c********************************************************************
c* FORTRAN 90 data retrieval routine to read and print the file     *           
c* named "p10pco2w.txt" (File 6).                                   *
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