stainv.for (File 2)

This file contains a FORTRAN 77 data retrieval routine to read and print cgc90sta.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 cgc90sta.inv.

     c****************************************************************
     c* This is a FORTRAN 77 retrieval code to read and print the      
     c* file named "cgc90sta.inv" (File 4) 
     c****************************************************************
            INTEGER  sta, cast, dep 
            REAL lat, lon
            CHARACTER date*8, time*4
            OPEN (unit=1, file='cgc90sta.inv')
            OPEN (unit=2, file='pmel90sta.inv')
            write (2, 5)
     
      5     format (2X,'STANBR',1X,'CASTNBR',1X,'LATITUDE',1X,
          1 'LONGITUDE',6X,'DATE',4X,'TIME',3X,'DEPTH',/,18X,
          2 'DEC.DEG',3X,'DEC.DEG',5X,'D/M/Y',5X,'GMT',7X,'M',/)
     
      7     CONTINUE    
            read (1, 10, end=999) sta, cast, lat, lon, date, time,
          1 dep
      10    format (6X, I2, 5X, I3, 2X, F7.3, 2X, F8.3, 2X, A8, 4X,
          1 A4, 4X, I4)
       
            write (2, 20) sta, cast, lat, lon, date, time,
          1 dep
      20    format (6X, I2, 5X, I3, 2X, F7.3, 2X, F8.3, 2X, A8, 4X,
          1 A4, 4X, I4)
            GOTO 7
     
      999   close(unit=1)    
            close(unit=2)
            stop
            end