c********************************************************************
c* FORTRAN 77 data retrieval routine to read and print the file     *           
c* named "coef_tco2.dat" (File 8)                                   *
c********************************************************************

c*Defines variables*

       REAL lon, lat, coefa, coefb, coefc, coefd
       OPEN (unit=1, file='coef_tco2.dat')
       OPEN (unit=2, file='coef_tco2.txt')
       write (2, 5)
       
c*Writes out column labels*
      
 5     format (2X,'LONG', 4X,'LAT',6X,'A_COEFF',5X,'B_COEFF',
     1 6X,'C_COEFF',5X,'D_COEFF',/,3X,'DEG',4X,'DEG')
     
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, coefa, coefb, coefc, coefd
     
 10    format (F6.1, 1X, F6.1, 2X, F11.4, 1X, F11.5, 1X, F12.6,
     1 1X, F11.5)
     
       write (2, 20) lon, lat, coefa, coefb, coefc, coefd
     
 20    format (F6.1, 1X, F6.1, 2X, F11.4, 1X, F11.5, 1X, F12.6,
     1 1X, F11.5)

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