p10pco2w.for (File 5)

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

     c********************************************************************
     c* FORTRAN 90 data retrieval routine to read and print the file        
     c* named "p10pco2w.txt" (File 9).                                  
     c********************************************************************
            CHARACTER sect*8
            INTEGER year, qflag
            REAL jdate, latit, longit, surtmp, sursal, eqtmp, atmpre
            REAL xco2eq, xco2sst, xco2a 
            OPEN (unit=1, file='p10pco2w.txt')
            OPEN (unit=2, file='p10pco2w.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,'EQTMP',1X,'ATM_PRE',
          2 2X,'XCO2_EQ',1X,'QF',1X,'XCO2_SST',3X,'XCO2A',/,
          3 5X,'#',13X,'DATE',6X,'DCM',6X,'DCM',4X,'DEG_C',5X,'PSS',
          4 3X,'DEG_C',4X,'ATM',5X,'PPM',9X,'PPM',6X,'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, eqtmp, atmpre, xco2eq, qflag, xco2sst, xco2a
     
      10    format (1X, A8, 2X, I4, 2X, F7.3, 2X, F7.3, 2X, F7.3, 2X, 
          1 F7.4, 2X, F7.4, 2X, F4.1, 2X, F6.4, 2X, F7.3, 2X, I1, 2X, 
          2 F7.3, 2X, F7.3)
     
            write (2, 20) sect, year, jdate, latit, longit, surtmp, 
          1 sursal, eqtmp, atmpre, xco2eq, qflag, xco2sst, xco2a
     
      20    format (1X, A8, 2X, I4, 2X, F7.3, 2X, F7.3, 2X, F7.3, 2X, 
          1 F7.4, 2X, F7.4, 2X, F4.1, 2X, F6.4, 2X, F7.3, 2X, I1, 2X, 
          2 F7.3, 2X, F7.3)
     
            GOTO 7
      999   close(unit=1)    
            close(unit=2)
            stop
            end