girarbot.for (File 2)
This file contains a FORTRAN 77 data retrieval routine to read and print m115gir.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 m115gir.dat.
c**************************************************************** c* FORTRAN 77 data retrieval routine to read and print the c* file named "m115gir.dat" (File 4) c**************************************************************** INTEGER STAT, BOTTLE REAL PRES, TEMP, SALTY, TCO2, THETA, SIGMA0 OPEN (unit=5, file='m115gir.dat') OPEN (unit=2, file='m115gira.dat') WRITE (2, 5) 5 FORMAT (1X,'STA',3X,'BOT',4X,'PRES',6X,'TEMP',6X, 2 'SAL',4X,'TCO2',5X,'THETA',4X,'SIGMA0',/) 7 CONTINUE READ (5, 10,end=999) STAT, BOTTLE, PRES, TEMP, SALTY, TCO2, 1 THETA, SIGMA0 10 FORMAT (1X,I3,1X,I4,1X,F6.1,1X,F8.3,3X,F6.3,1X,F6.1,1X,F8.3, 1 1X,F8.3) WRITE (2, 20) STAT, BOTTLE, PRES, TEMP, SALTY, TCO2, 1 THETA, SIGMA0 20 FORMAT (1X,I3,2X,I4,2X,F6.1,2X,F8.3,3X,F6.3,2X,F6.1,2X,F8.3, 1 2X,F8.3) GOTO 7 999 CLOSE(unit=5) CLOSE(unit=2) STOP END
Last modified: 2021-03-17T18:30:27Z