c********************************************************************
c* FORTRAN 90 data retrieval routine to read and print the file     *           
c* named "a15fco2a.txt" (File 7).                                   *
c********************************************************************

c*Defines variables*

       CHARACTER sect*13
       INTEGER  year
       REAL date, latdcm, londcm, cond, tmp, pre, fco2 
       OPEN (unit=1, file='a15fco2a.txt')
       OPEN (unit=2, file='a15fco2a.dat')
       write (2, 5)

c*Writes out column labels*

 5     format (6X,'SECTION',2X,'YEAR',6X,'JULIAN',7X,'LATIT',
     1 6X,'LONGIT',5X,'COND',2X,'S_TMP',3X,'ATM_PRE',2X,
     2 'ATM_FCO2',/,27X,'DATE',9X,'DCM',9X,'DCM',5X,'SI/M',
     3 2X,'DEG_C',6X,'MBAR',7X,'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, date, latdcm, londcm, 
     1 cond, tmp, pre, fco2

 10    format (A13, 2X, I4, 3X, F9.6, 3X, F9.6, 2X, F10.6, 2X,
     1 F7.2, 2X, F5.2, 2X, F8.3, 2X, F8.3)
 
       write (2, 20) sect, year, date, latdcm, londcm, 
     1 cond, tmp, pre, fco2

 20    format (A13, 2X, I4, 3X, F9.6, 3X, F9.6, 2X, F10.6, 2X,
     1 F7.2, 2X, F5.2, 2X, F8.3, 2X, F8.3)

       GOTO 7
 999   close(unit=1)    
       close(unit=2)
       stop
       end