stainv.for (File 2)

This file contains a FORTRAN 90 data-retrieval routine to read and print p13sta.dat (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 p13sta.dat.

     c********************************************************************
     c* FORTRAN 90 data retrieval routine to read and print the file          
     c* named "p13sta.dat" (File 4).                                    
     c********************************************************************
     
     c*Defines variables*
     
            INTEGER  stat, cast, depth
            REAL latdcm, londcm 
            CHARACTER expo*11, sect*3, date*10, time*4
            OPEN (unit=1, file='p13sta.dat')
            OPEN (unit=2, file='p13sta.txt')
            write (2, 5)
     
     c*Writes out column labels*
     
      5     format (1X, 'STATION INVENTORY: R/V JOHN V. VICKERS', 
          1 9X, 'CRUISE DATES 08/03-10/21/1992',/,
          2 1X,'EXPOCODE',5X,'SECT',1X,'STNBR',2X,'CAST',9X,
          3 'DATE',2X,'TIME',2X,'LATITUDE',2X,'LONGITUDE',2X,
          4 'DEPTH',/)
     
     c*Sets up a loop to read and format all the data in the file*
     
            read (1, 6)
      6     format (////////)
     
      7     CONTINUE    
            read (1, 10, end=999) expo, sect, stat, cast, date, time,
          1 latdcm, londcm, depth
     
      10    format (A11, 4X, A3, 4X, I2, 5X, I1, 3X, A10, 2X, A4, 3X,
          1 F7.3, 3X, F8.3, 3X, I4)
      
            write (2, 20) expo, sect, stat, cast, date, time,
          1 latdcm, londcm, depth
     
      20    format (A11, 4X, A3, 4X, I2, 5X, I1, 3X, A10, 2X, A4, 3X,
          1 F7.3, 3X, F8.3, 3X, I4)
     
            GOTO 7
      999   close(unit=5)    
            close(unit=2)
            stop
            end