fort.7

来自「弹性波动方程正演程序」· 7 代码 · 共 20 行

2D RESPONSE FOR ELASTIC/ELASTIC INTERFACE, COMPRESSIONAL SOURCE
ux (0) oder uz (1)
1
  TMIN         TMAX	    NTSTP                      <-- TIME WINDOW
  0.0D0        0.5D0	    400
  DELAY        FP           ZS                         <-- SOURCE
  0.0D0        60.0D0       18.0D0
  XREC         ZREC         DXR          DZR      NREC <-- RECEIVERS
  300.0D0      27.0D0	    0.0D0        0.0D0    1
  CP1          CS1          RHO1                       <-- MEDIUM II
  3000.0D0     1700.0D0     2.6D0
  CP2          CS2          RHO2                       <-- MEDIUM I
  0.0D0		0.0D0	    0.0D0
  ITRACE(1)    ITRACE(2)    ITRACE(3)                  <-- P-WAVES
  1            1            1
               ITRACE(4)    ITRACE(5)                  <-- S-WAVES
               1            1
  OUTPUT(1)    OUTPUT(2)    ISPV        FAC           <-- OUTPUT
 'CON'         '   '        0           1.000D+00