GUTHRIE/MANNESS PROBLEM
244.,50.,0.,0.,0.,0.,0.
0,1,1,0,0,0,0,0,100,100,300
2.,2.,40.,188.4,356.,-1.
-49.,2.,49.
0.,3000.,10.,3000.,20.,3000.,31.,2800.,40.,3000.
500.,3000.,-1.
       1 0.         NZ
      0. 1523.8     100. 1523.0     200. 1520.0     300. 1517.5     400. 1513.0
    500. 1507.0     600. 1500.0     700. 1496.0     800. 1493.0    1000. 1490.0
   1250. 1488.0    1500. 1489.0    2000. 1492.6    3000. 1508.0    4000. 1525.0
     -1.
   -9999
!$ COPY TRIMAIN.RAY FOR001.DAT
!$ FOR/NOLIST TRIPLT
!$ LINK/NOMAP TRIPLT
!$ RUN TRIPLT
!0.,2.,40.,3000.,10.,200.
!100,100,20
!1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20
! R1,DR,R2(KM), ZMAXPLOT,XLG(IN),ALIM(DB) / NSRS,NBRS,NRPLOT/
! (NRAY(I),I=1,NRPLOT)
!READ RAY FILE FROM UNFORMATTED FOR001.DAT