stainv.for (File 2)

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

c*****************************************************************
c* This is a Fortran retrieval code to read and print the              
c* station inventory R/V Akademik Ioffe Cruise, WOCE S4P Line
c***************************************************************** 

c*Defines variables*
  
             INTEGER  stat, cast, depth
             REAL latdcm, londcm 
             CHARACTER expo*12, sect*3, date*6, time*4
             OPEN (unit=1, file='s4psta.inv')
             OPEN (unit=2, file='s4pstat.inv')
             write (2, 5)

c*Writes out column labels and sets up a loop to read and format all
c*data in the file*

 5          format (3X, 'STATION INVENTORY: R/V AKADEMIK IOFFE',/,
          1 4X,'EXPOCODE',1X,'SECT',1X,'STNBR',2X,'CAST',
          2 5X,'DATE',2X,'TIME',3X,'LATITUDE',3X,'LONGITUDE',2X,
          3 'DEPTH',/)      

           read (1, 6)
 6        format (/////////)

 7       CONTINUE    
          read (1, 10, end=999) expo, sect, stat, cast, date, time,
       1 latdcm, londcm, depth

 10      format (A12, 2X, A3, 3X, I3, 5X, I1, 3X, A6, 2X, A4, 4X,
       1 F7.3, 4X, F8.3, 3X, I4) 

           write (2, 20) expo, sect, stat, cast, date, time,
        1 latdcm, londcm, depth

 20       format (A12, 2X, A3, 3X, I3, 5X, I1, 3X, A6, 2X, A4, 4X,
        1 F7.3, 4X, F8.3, 3X, I4)
 
           GOTO 7
 999     close(unit=5)    
           close(unit=2)
           stop
           end