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