stainv.for (File 2)

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

c*****************************************************************
c* This is a Fortran retrieval code to read and format the        
c* station inventory cruise TUNES-3 R/V Washington WOCE P16C line
c***************************************************************** 

c*Defines variables*

       INTEGER  stat, cast, depth
       REAL latdcm, londcm 
       CHARACTER expo*11, sect*4, date*6, time*4
       OPEN (unit=1, file='tun3sta.inv')
       OPEN (unit=2, file='tunes3sta.inv')
       write (2, 5)

c*Writes out column labels*

 5     format (3X, 'STATIONS INVENTORY: R/V THOMAS WASHINGTON',/,
     1 3X,'EXPOCODE',1X,'SECT',1X,'STNBR',2X,'CAST',
     2 5X,'DATE',1X,'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 (A11, 1X, A4, 3X, I3, 5X, I1, 3X, A6, 1X, 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, 1X, A4, 3X, I3, 5X, I1, 3X, A6, 1X, A4, 3X,
     1 F7.3, 3X, F8.3, 3X, I4)

       GOTO 7
 999   close(unit=5)    
       close(unit=2)
       stop
       end