r1_0.in

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

  &pltpar  itxout=2, iray=2, ibnd=0, vred=8.,
  &end
  &axepar  xmax=300., xinch=13., ntickx=6,
           zmax=40.,  zinch=4.,  ntickz=4, 
           tmax=10.,  tinch=4.,  ntickt=5,  
           itrev=0,
  &end   
  &trapar  imodf=0, ibsmth=1,
           ishot=1,-1, xshot=0.,300., 
           ray=1.1,2.1,2.2,3.2,4.3,
           nsmax=15,
           nray=20,25,25,50,1,
           space=1.,1.5,2.,2.5,1., 
           aamin=0.25, aamax=75.,
  &end
  &invpar  invr=0, ttunc=.05,
           ivray=1,1,2,3,4,
  &end
      x/z    x/z    x/z    x/z    x/z    x/z    x/z    x/z    x/z    x/z
      x/vu   x/vu   x/vu   x/vu   x/vu   x/vu   x/vu   x/vu   x/vu   x/vu
      x/vl   x/vl   x/vl   x/vl   x/vl   x/vl   x/vl   x/vl   x/vl   x/vl
 1    0.00  25.00  50.00  75.00 100.00 125.0  150.00 175.00 200.00 225.00 
 1    0.40   0.20  -0.50  -1.50   0.20   0.60   1.50   0.30   1.00   0.70
         0      0      0      0      0      0      0      0      0      0
 1  250.00 275.00 300.00
 0    0.00   0.50   0.50
         0      0      0
 1    0.00 150.00 300.00
 0    5.70   5.00   5.70
         0      0      0
 1    0.00 150.00 300.00
 0    6.20   5.50   6.20
         0      0      0
 2  300.00  
 0   10.00
         0
 2  300.00 
 0    0.00
         0 
 2    0.00 150.00 300.00
 0    6.30   5.80   6.30  
         0      0      0
 3    0.00 100.00 200.00 300.00 
 0   22.00  17.00  17.00  22.00
         0      0      0      0
 3  300.00
 0    6.60
         0
 3  300.00 
 0    7.00 
         0 
 4    0.00 150.00 300.00 
 0   28.00  33.00  33.00
         0      0      0
 4  300.00
 0    7.50
         0
 4  300.00
 0    0.00
         0
 5    0.00 150.00 300.00 
 0   30.00  35.00  35.00
         0      0      0
 5  300.00
 0    8.00
         0
 5  300.00
 0    0.00
         0
 6  300.00 
 0   40.00