c********************************************************************
c* FORTRAN 77 data retrieval routine to read and print the files    *           
c* named "tco2_*.dat" (Files 15-19)                                 *
c********************************************************************

c*Defines variables*

       REAL lon, lat, dep, mld, trco2, tmp, aou, sal
       OPEN (unit=1, file='tco2_*.dat')
       OPEN (unit=2, file='tco2_*.txt')
       write (2, 5)
       
c*Writes out column labels*
      
 5     format (3X,'LONG',4X,'LAT',3X,'DEPTH',5X,'MLD',6X,'TCO2',
     1 4X,'TEMP',5X,'AOU',2X,'SALNTY',/,4X,'DEG',4X,'DEG',7X,'M',
     2 7X,'M',3X,'UMOL/KG',5X,'DEG',1X,'UMOL/KG',2X,'PSS-78',/)
     
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) lon, lat, dep, mld, trco2, tmp, 
     1 aou, sal
     
 10    format (F7.1, 1X, F6.1, 1X, F7.1, 1X, F7.1, 1X, F9.1,
     1 1X, F7.3, 1X, F7.3, 1X, F7.3)
     
       write (2, 20) lon, lat, dep, mld, trco2, tmp, aou, sal
     
 20    format (F7.1, 1X, F6.1, 1X, F7.1, 1X, F7.1, 1X, F9.1,
     1 1X, F7.3, 1X, F7.3, 1X, F7.3)

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