stainv.for (File 2)

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

     c****************************************************************
     c* FORTRAN 77 data retrieval routine to read and print the              
     c* file named "m153sta.inv" (File 4)                            
     c**************************************************************** 
     
            INTEGER stat, cast, depth 
            CHARACTER date*7, expo*8, sect*2, time*4
            REAL latdcm, londcm
            OPEN (unit=1, file='m153sta.inv')
            OPEN (unit=2, file='m153stat.inv')
            write (2, 5)
        
      5     format (20X,'METEOR CRUISE 15 LEG 3',5X,'WOCE LINE A9',/,
          1 2X,'EXPOCODE',2X,'SECT',2X,'STNNBR',2X,'CASTNO',5X,'DATE',
          2 3X,'TIME',5X,'LATDCM',5X,'LONDCM',3X,'DEPTH',/)
         
      7     CONTINUE    
            read (1, 10, end=999) expo, sect, stat, cast, date, time,
          1 latdcm, londcm, depth 
      
      10    format (2X, A8, 2X, A2, 7X, I3, 7X, I1, 2X, A7, 3X, A4, 4X, 
          1 F7.3, 4X, F7.3, 4X, I4)
             
            write (2, 20) expo, sect, stat, cast, date, time, latdcm, 
          1 londcm, depth
     
      20    format (2X, A8, 2X, A2, 7X, I3, 7X, I1, 2X, A7, 3X, A4, 4X, 
          1 F7.3, 4X, F7.3, 4X, I4)
         
            GOTO 7
      999   close(unit=1)    
            close(unit=2)
            stop
            end

 
 akozyr 9/06/96