PACIFIC SCENARIO, 
25.,20.,0.,0.,0.0,0.,6
1,0,0,0,1,0,1,1,0,1,0
 0.,1.0,100.0,25.0,-9.
-90.0,1.0,-9.76,0,0.,0.
-1.0,6
5.0
0.0,0.0
0.,5000.0,100.,5000.0,-1.,-1.
       1 0.         PACIFIC SCENARIO
   0.0,1522.2,   10.0,1522.2,   20.0,1522.3,   30.0,1517.5,   50.0,1509.6
  75.0,1508.4,  100.0,1506.8,  125.0,1504.3,  150.0,1501.5,  200.0,1495.6
 250.0,1490.2,  300.0,1486.0,  400.0,1481.1,  500.0,1479.5,  600.0,1479.3
 700.0,1479.3,  800.0,1479.6,  900.0,1480.3, 1000.0,1481.1, 1100.0,1481.9
1200.0,1482.7, 1300.0,1483.5, 1400.0,1484.4, 1500.0,1485.4, 1750.0,1488.0
2000.0,1491.1, 2500.0,1498.7, 3000.0,1506.8, 4000.0,1523.9, 5000.0,1542.2
                                                                            
   -9999              
$ REN TRIMAIN.PRT PACIFIC.PRT
!
!SD,FHZ,SORLEV,DATD,SLDB,XATT,XBOT    (Source depth,freq,level,,,bottom flag)
!XATT=1 for Thorp attenuation, XBOT=0 for perfectly reflecting bottom.
!ICOH,IRAN,IT2,IT3,IGNRAY,IRD,IRF,IPL,NSRS,NBRS,LIMDB    (output options)
!R1KM,DRKM,R2KM,(RCD1,RCD2...   (Ranges & depths for Tloss or whatever)
! Add record or 2 if more than 6 receiver depths(10/record to blank or neg.)
!A1,DA,A2,SL,PH,XCONT           (Angles for fans w/level,phase,cont.flag)
! bottom loss data
!(RB(I),ZB(I),I=1,N)            (Bathymetry:read to blank or negative range.)
!NCUR,RPROF,PROFTITLE           (Curved-earth flag, range, title.)
!(Z(I),C(I),I=1,N)              (SSP:read to blank or negative depth.)
!