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
Last modified: 2021-03-17T18:30:28Z