stainv.for (File 2)

This file contains a FORTRAN 77 data retrieval routine to read and print tun2sta.inv (File 4). The following is a listing of this program. For additional information regarding variable definitions, variable lengths, variable types, units, and codes, please see the description for tun2sta.inv.

     
     c****************************************************************
     c* FORTRAN 77 data retrieval routine to read and print the             
     c* file named "tun2sta.inv" (File 4)                            
     c**************************************************************** 
     
            INTEGER  stat, depth
            REAL lat, lon
            CHARACTER expo*11, sect*8, date*8, time*4
            OPEN (unit=1, file='tun2sta.inv')
            OPEN (unit=2, file='tun2stat.inv')
            write (2, 5)
     
      5     format (3X,'EXPOCODE',4X,'SECTION',3X,'STNNBR',3X,'LATDCM',
          1 4X,'LONDCM',6X,'DATE',2X,'TIME',1X,'DEPTH',/)
     
            read (1, 6)
      6     format (///////////)
     
      7     CONTINUE    
            read (1, 10, end=999) expo, sect, stat, lat, lon, date,
          1 time, depth
     
      10    format (A11, 3X, A8, 6X, I3, 2X, F7.3, 2X, F8.3, 2X, A8,
          1 2X, A4, 2X, I4)
     
            write (2, 10)  expo, sect, stat, lat, lon, date,
          1 time, depth
     
            GOTO 7
      999   close(unit=1)    
            close(unit=2)
            stop
            end