coef_talk.for (File 2)

This file contains a FORTRAN 77 data-retrieval routine to read and print coef_talk.dat (File 7). The following is a listing of this program. For additional information regarding variable definitions, variable lengths, variable types, units, and codes, please see the description for coef_talk.dat.

     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
     

CDIAC   |  CCSI   |  ESD   |   ORNL   |   Security   |   Contact Us   |   maintained by Alex Kozyr   |   Last modified: 16 Jun 2010