stainv.for (File 2)

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

     c****************************************************************
     c* FORTRAN 77 data retrieval routine to read and print the              
     c* file named "m115sta.inv" (File 4)                            
     c**************************************************************** 
     
            INTEGER  STAT, MONTH, DAY, YEAR, SDE 
            REAL LAT, LON
            CHARACTER SECTION*4
            OPEN (unit=5, file='m115sta.inv')
            OPEN (unit=2, file='m115stat.inv')
            WRITE (2, 5)
     
      5     FORMAT (7X, 'STATION INVENTORY: R/V METEOR CRUISE 11/5', 6X,/,
          1 1X,'SECTION', 1X,'STAT', 2X,'LATITUDE', 2X,'LONGITUDE',2X,
          2 'MON', 2X,'DAY', 2X,'YEAR',2X,'DEPTH',/)
     
      7     CONTINUE    
            READ (5, 10, end=999)  SECTION, STAT, LAT, LON, MONTH, 
          1 DAY, YEAR, SDE
      10    FORMAT (A4, 2X, I3, 1X, F7.3, 2X, F7.3, 2X, I1, 1X, I2, 
          1 1X, I2, 2X, I4)
       
            WRITE (2, 20) SECTION, STAT, LAT, LON, MONTH, DAY, YEAR, SDE
      20    FORMAT (3X, A4, 3X, I3, 3X, F7.3, 3X, F7.3, 5X, I1, 3X, I2,
          1 3X, I2, 4X, I4) 
            GOTO 7
     
      999   CLOSE(unit=5)    
            CLOSE(unit=2)
            STOP
            END