stainv.for (File 2)
This file contains a FORTRAN 77 data retrieval routine to read and print m115sta.inv (File 4). 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 m115sta.inv.
c**************************************************************** c* FORTRAN 77 data retrieval routine to read and print the c* file named "m115sta.inv" (File 4) c**************************************************************** INTEGER STAT, MONTH, DAY, YEAR, SDE REAL LAT, LON CHARACTER SECTION*4 OPEN (unit=5, file='m115sta.inv') OPEN (unit=2, file='m115stat.inv') WRITE (2, 5) 5 FORMAT (7X, 'STATION INVENTORY: R/V METEOR CRUISE 11/5', 6X,/, 1 1X,'SECTION', 1X,'STAT', 2X,'LATITUDE', 2X,'LONGITUDE',2X, 2 'MON', 2X,'DAY', 2X,'YEAR',2X,'DEPTH',/) 7 CONTINUE READ (5, 10, end=999) SECTION, STAT, LAT, LON, MONTH, 1 DAY, YEAR, SDE 10 FORMAT (A4, 2X, I3, 1X, F7.3, 2X, F7.3, 2X, I1, 1X, I2, 1 1X, I2, 2X, I4) WRITE (2, 20) SECTION, STAT, LAT, LON, MONTH, DAY, YEAR, SDE 20 FORMAT (3X, A4, 3X, I3, 3X, F7.3, 3X, F7.3, 5X, I1, 3X, I2, 1 3X, I2, 4X, I4) GOTO 7 999 CLOSE(unit=5) CLOSE(unit=2) STOP END
Last modified: 2021-03-17T18:30:27Z