uwpco2.for (File 4)

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

     c****************************************************************
     c* FORTRAN 77 data retrieval routine to read and print the              
     c* file named "uwpco2.dat" (File 7)                             
     c**************************************************************** 
     
            INTEGER day, month, year 
            CHARACTER time*5
            REAL latdcm, londcm, salt, temp, pco2
            OPEN (unit=1, file='uwpco2.dat')
            OPEN (unit=2, file='uwpco2.data')
            write (2, 5)
        
      5     format (2X,'R/V METEOR CRUISE 18 LEG 1',5X,'WOCE LINE A1E',/,
          1 4X,'DATE',6X,'TIME',3X,'LATDCM',4X,'LONDCM',3X,'SURFSAL',
          2 1X,'SURFTMP',2X,'PCO2',/)
     
            read (1, 6)
      6     format (/////////////)
         
      7     CONTINUE    
            read (1, 10, end=999) day, month, year, time, latdcm, 
          1 londcm, salt, temp, pco2
     
      10    format (I2, 2X, I1, 2X, I4, 2X, A5, 3X, F6.3, 3X, F7.3, 3X, 
          1 F7.4, 2X, F5.2, 2X, F5.1)
             
            write (2, 20) day, month, year, time, latdcm, 
          1 londcm, salt, temp, pco2
     
      20    format (I2, 2X, I1, 2X, I4, 2X, A5, 3X, F6.3, 3X, F7.3, 3X, 
          1 F7.4, 2X, F5.2, 2X, F5.1)    
            GOTO 7
      999   close(unit=1)    
            close(unit=2)
            stop
            end