stainv.for (File 2)
This file contains a FORTRAN 77 data retrieval routine to read and print met18sta.inv (File 5). 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 met18sta.inv.
c********************************************************** c* FORTRAN 77 data retrieval routine to read and print the c* file named "met18sta.inv" (File 5) c********************************************************** INTEGER stat, cast, depth CHARACTER date*6, expo*8, sect*3, time*4 REAL latdcm, londcm OPEN (unit=1, file='met18sta.inv') OPEN (unit=2, file='m18stat.inv') write (2, 5) 5 format (2X,'R/V METEOR CRUISE 18 LEG 1',5X,'WOCE LINE A1E',/, 1 2X,'EXPOCODE',2X,'SECT',2X,'STNNBR',2X,'CASTNO',5X,'DATE', 2 3X,'TIME',5X,'LATDCM',5X,'LONDCM',3X,'DEPTH',/) read (1, 6) 6 format (/////////////) 7 CONTINUE read (1, 10, end=999) expo, sect, stat, cast, date, time, 1 latdcm, londcm, depth 10 format (2X, A8, 3X, A3, 5X, I3, 7X, I1, 3X, A6, 3X, A4, 5X, 1 F6.3, 4X, F7.3, 4X, I4) write (2, 20) expo, sect, stat, cast, date, time, latdcm, 1 londcm, depth 20 format (2X, A8, 3X, A3, 5X, I3, 7X, I1, 3X, A6, 3X, A4, 5X, 1 F6.3, 4X, F7.3, 4X, I4) GOTO 7 999 close(unit=1) close(unit=2) stop end
Last modified: 2021-03-17T18:30:27Z