stainv.for (File 2)

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

     c**********************************************************
     c* FORTRAN 77 data retrieval routine to read and print the 
     c* file named "met18sta.inv" (File 5)              
     c**********************************************************
     
            INTEGER stat, cast, depth 
            CHARACTER date*6, expo*8, sect*3, time*4
            REAL latdcm, londcm
            OPEN (unit=1, file='met18sta.inv')
            OPEN (unit=2, file='m18stat.inv')
            write (2, 5)
        
      5     format (2X,'R/V METEOR CRUISE 18 LEG 1',5X,'WOCE LINE A1E',/,
          1 2X,'EXPOCODE',2X,'SECT',2X,'STNNBR',2X,'CASTNO',5X,'DATE',
          2 3X,'TIME',5X,'LATDCM',5X,'LONDCM',3X,'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 (2X, A8, 3X, A3, 5X, I3, 7X, I1, 3X, A6, 3X, A4, 5X, 
          1 F6.3, 4X, F7.3, 4X, I4)
             
            write (2, 20) expo, sect, stat, cast, date, time, latdcm, 
          1 londcm, depth
     
      20    format (2X, A8, 3X, A3, 5X, I3, 7X, I1, 3X, A6, 3X, A4, 5X, 
          1 F6.3, 4X, F7.3, 4X, I4)
         
            GOTO 7
      999   close(unit=1)    
            close(unit=2)
            stop
            end