p10pco2a.for (File 4)

This file contains a FORTRAN 90 data-retrieval routine to read and print p10pco2a.txt (File 8). 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 p10pco2a.txt .

     c********************************************************************
     c* FORTRAN 90 data retrieval routine to read and print the file         
     c* named "p10pco2a.txt" (File 8).                                    
     c********************************************************************
            CHARACTER sect*8
            INTEGER year, qflag
            REAL jdate, latit, longit, surtmp, sursal, atmpre, xco2a
            OPEN (unit=1, file='p10pco2a.txt')
            OPEN (unit=2, file='p10pco2a.dat')
            write (2, 5)
     
     c*Writes out column labels*
      
      5     format (2X,'SECTION',2X,'YEAR',3X,'JULIAN',4X,'LATIT',3X,
          1 'LONGIT',2X,'SUR_TMP',2X'SUR_SAL',1X,'ATM_PRE',3X,'XCO2A',
          2 1X,'QF',/,
          3 5X,'#',13X,'DATE',6X,'DCM',6X,'DCM',4X,'DEG_C',5X,'PSS',
          4 6X,'ATM',5X,'PPM')
     
     c*Sets up a loop to read and format all the data in the file*
     
            read (1, 6)
      6     format (/////////)
     
      7     CONTINUE    
            read (1, 10, end=999) sect, year, jdate, latit, longit,  
          1 surtmp,sursal, atmpre, xco2a, qflag
     
      10    format (1X, A8, 2X, I4, 2X, F7.3, 2X, F7.3, 2X, F7.3, 2X, 
          1 F7.4, 2X, F7.4, 2X, F6.4, 2X, F7.3, 1X, I1)
     
            write (2, 20) sect, year, jdate, latit, longit,  
          1 surtmp,sursal, atmpre, xco2a, qflag
     
      20    format (1X, A8, 2X, I4, 2X, F7.3, 2X, F7.3, 2X, F7.3, 2X, 
          1 F7.4, 2X, F7.4, 2X, F6.4, 2X, F7.3, 1X, I1)
     
            GOTO 7
      999   close(unit=1)    
            close(unit=2)
            stop
            end