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

c*Defines variables*

       REAL lon, lat, coef1, coef2, coef3, coef4, coef5 
       REAL coef6
       OPEN (unit=1, file='coef_talk.dat')
       OPEN (unit=2, file='coef_talk.txt')
       write (2, 5)
       
c*Writes out column labels*
      
 5     format (2X,'LONG',4X,'LAT',2X,'A_COEFF_OFST',1X,
     1 'A_COEFF_OFST',2X,'B_COEFF_TMP',2X,'B_COEFF_TMP',
     2 1X,'C_COEFF_SAL',1X,'C_COEFF_SAL',/,3X,'DEG',4X,
     3 'DEG',5X,'MLD-1000M',7X,'>1000M',4X,'MLD-1000M',
     4 7X,'>1000M',3X,'MLD-1000M',6X,'>1000M')
     
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, coef1, coef2, coef3, coef4, 
     1 coef5, coef6
     
 10    format (F6.1, 1X, F6.1, 2X, F12.4, 1X, F12.4, 1X, F12.5,
     1 1X, F12.5, 1X, F11.4, 1X, F11.4)
     
       write (2, 20) lon, lat, coef1, coef2, coef3, coef4, 
     1 coef5, coef6
     
 20    format (F6.1, 1X, F6.1, 2X, F12.4, 1X, F12.4, 1X, F12.5,
     1 1X, F12.5, 1X, F11.4, 1X, F11.4)

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