r7_0.in

实现地震射线追踪和反演的frotran程序

  &pltpar isep=0, iplot=1, ibnd=0, vred=7., xwndow=290., ywndow=175.,
          iroute=1, iseg=0, ivel=0, nrskip=1, isum=3, idump=0, iszero=0,
         modout=0, dxmod=5., dzmod=0.10, modi=1,2,0,0, xmmin=0., xmmax=345.,
         modout=0, dxmod=5., dzmod=0.25, modi=1,2,5,6, xmmin=0., xmmax=345.,
         modout=0, dxmod=5., dzmod=0.05, modi=1,2,0,0, xmmin=0., xmmax=345.,
          ircol=1, itcol=1, irays=0, istep=0, xmin1d=  5., xmax1d= 60.,
          imod=1, iray=2, itxout=0, itx=3, idata=1,
          imod=0, iray=0, itxout=0, itx=0, idata=0,
  &end
  &axepar xmin=-10., xmax=360., xmm=270.,
          xmint=0., xmaxt=350., xmm=270.,
          zmax=47.,  zmm=70.,
          tmin=0.0, tmax=7.5,  tmm=70.,
          itrev=0, albht=2.5, orig=15., 
  &end   
  &trapar imodf=1, ibsmth=1, iraysl=1, step=.025,
          istop=2, i2pt=2, n2pt=15, x2pt=.05,
          ishot=1,1,-1,-1,-1,0,0,-1,
          ishot=0,0,0,0,0,0,0,0,
          ishot=1,0,0,-1,0,0,0,-1,
          ishot=0,0,0,1,0,-1,-1,-1,
          ishot=1,2,2,2,2,2,2,-1,
          ishot=0,0,0,0, 0,0,0,-1,
          ishot=1,1,-1,-1,-1,0,0,-1,
          irayt=0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,1,1,0,0,0,0,0,
                0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,1,0,0,0,0,0,0,
                0,0,0,0,0,0,1,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,
                0,0,0,0,0,0,1,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,
                0,0,0,0,0,0,1,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,
                0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,
                0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,
                0,0,0,0,0,0,1,1,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,
          xshot=5.07,73.217,140.547,187.636,
                207.915,258.473,299.518,340.115,
          ray=1.1,1.3,2.1,2.3,3.1,4.2,5.2,5.3,5.0,5.0,5.0,5.0,5.0,
          nsmax=15,15,50,25,50,15,25,25,1,1,1,1,1,
          nray=35,1,100,1,100,100,200,1,500,200,200,200,200,
          space=1.5,1.,1.5,1.,2.,2.,2.,1.,1.,1.,1.,1.,1., hws=1.5,
          aamin=-7.0, aamax=75., 
          amin=2*54.,60.,55.7,59., amax=2*77.,65.,56.,62.,
          frbnd=0,0,0,0,0,0,0,0,5,2,3,1,4,
          frbnd=0,0,0,0,0,0,0,0,0,0,0,0,0,
  &end
  &invpar invr=1, ximax=10.,
          ivray=1,1,1,1,1,2,3,5,4,4,4,4,6,
  &end
  &amppar iamp=0, isect=2, hedcut=50., icaust=1,
          qp=250.,500.,500.,500.,1000.,1000., 
          omega=6.0,
  &end
          irayt=0,0,0,0,0,0,0,0,0,0,0,0,0, 1,1,1,1,1,1,1,1,0,0,0,0,0,
                1,1,1,1,0,0,0,0,0,0,0,0,0, 1,1,1,1,1,0,1,0,0,0,0,0,0,
                1,1,1,1,1,0,1,0,0,0,0,0,0, 1,1,1,1,1,0,0,0,0,0,0,0,0,
                1,1,1,1,1,1,1,0,0,0,0,0,0, 1,1,1,1,1,0,0,0,0,1,0,0,0,
                1,1,1,1,1,0,1,0,0,0,0,0,0, 1,1,1,1,1,0,0,0,0,0,0,0,0,
                1,1,1,1,1,0,0,0,0,0,1,0,0, 1,1,1,1,1,0,0,0,0,0,0,0,0,
                1,1,1,1,1,0,0,0,0,0,0,1,0, 1,1,1,1,0,0,0,0,0,0,0,0,0,
                1,1,1,1,1,1,1,1,1,0,0,0,1, 0,0,0,0,0,0,0,0,0,0,0,0,0,
          irayt=0,0,0,0,0,0,0,0,0,0,0,0,0, 1,1,1,1,1,1,1,1,0,0,0,0,0,
                1,1,1,1,0,0,0,0,0,0,0,0,0, 1,1,1,1,1,0,1,0,0,0,0,0,0,
                1,1,1,1,1,0,1,0,0,0,0,0,0, 1,1,1,1,1,0,0,0,0,0,0,0,0,
                1,1,1,1,1,1,1,0,0,0,0,0,0, 1,1,1,1,1,0,0,0,0,0,0,0,0,
                1,1,1,1,1,0,1,0,0,0,0,0,0, 1,1,1,1,1,0,0,0,0,0,0,0,0,
                1,1,1,1,1,0,0,0,0,0,0,0,0, 1,1,1,1,1,0,0,0,0,0,0,0,0,
                1,1,1,1,1,0,0,0,0,0,0,0,0, 1,1,1,1,0,0,0,0,0,0,0,0,0,
                1,1,1,1,1,1,1,1,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,
          irayt=0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,1,1,0,0,0,0,0,
                0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,1,0,0,0,0,0,0,
                0,0,0,0,0,0,1,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,
                0,0,0,0,0,0,1,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,
                0,0,0,0,0,0,1,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,
                0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,
                0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,
                0,0,0,0,0,0,1,1,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,
          irayt=0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,
                0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,
                0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,
                0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,1,0,0,0,
                0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,
                0,0,0,0,0,0,0,0,0,0,1,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,
                0,0,0,0,0,0,0,0,0,0,0,1,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,
                0,0,0,0,0,0,0,0,1,0,0,0,1, 0,0,0,0,0,0,0,0,0,0,0,0,0,