stainv.for (File 2)

This file contains a FORTRAN 77 data-retrieval routine to read and print a10sta.txt (File 5). 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 a10sta.txt.

    c********************************************************************
    c* FORTRAN 77 data retrieval routine to read and print the file   
    c* named "a10sta.txt" (File 5).                                 
    c********************************************************************
    
    c*Defines variables*
    
           INTEGER  stat, cast, depth
           REAL latdcm, londcm 
           CHARACTER expo*10, sect*9, date*10, time*4
           OPEN (unit=1, file='a10sta.txt')
           OPEN (unit=2, file='a10stat.txt')
           write (2, 5)
    
    c*Writes out column labels*
    
     5     format (1X, 'STATION INVENTORY: R/V Meteor Cruise 22/5',/,
         1 1X,'EXPOCODE',3X,'SECT',1X,'STNBR',2X,'CAST',9X,
         2 'DATE',2X,'TIME',2X,'LATITUDE',2X,'LONGITUDE',2X,
         3 '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 (A9, 4X, A3, 3X, I3, 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 (A9, 4X, A3, 3X, I3, 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