stainv.for (File 2)
This file contains a FORTRAN 77 data retrieval routine to read and print tun2sta.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 tun2sta.inv.
c**************************************************************** c* FORTRAN 77 data retrieval routine to read and print the c* file named "tun2sta.inv" (File 4) c**************************************************************** INTEGER stat, depth REAL lat, lon CHARACTER expo*11, sect*8, date*8, time*4 OPEN (unit=1, file='tun2sta.inv') OPEN (unit=2, file='tun2stat.inv') write (2, 5) 5 format (3X,'EXPOCODE',4X,'SECTION',3X,'STNNBR',3X,'LATDCM', 1 4X,'LONDCM',6X,'DATE',2X,'TIME',1X,'DEPTH',/) read (1, 6) 6 format (///////////) 7 CONTINUE read (1, 10, end=999) expo, sect, stat, lat, lon, date, 1 time, depth 10 format (A11, 3X, A8, 6X, I3, 2X, F7.3, 2X, F8.3, 2X, A8, 1 2X, A4, 2X, I4) write (2, 10) expo, sect, stat, lat, lon, date, 1 time, depth GOTO 7 999 close(unit=1) close(unit=2) stop end
Last modified: 2021-03-17T18:30:27Z