stainv.for (File 2)
This file contains a FORTRAN 77 data retrieval routine to read and print cgc90sta.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 cgc90sta.inv.
c**************************************************************** c* This is a FORTRAN 77 retrieval code to read and print the c* file named "cgc90sta.inv" (File 4) c**************************************************************** INTEGER sta, cast, dep REAL lat, lon CHARACTER date*8, time*4 OPEN (unit=1, file='cgc90sta.inv') OPEN (unit=2, file='pmel90sta.inv') write (2, 5) 5 format (2X,'STANBR',1X,'CASTNBR',1X,'LATITUDE',1X, 1 'LONGITUDE',6X,'DATE',4X,'TIME',3X,'DEPTH',/,18X, 2 'DEC.DEG',3X,'DEC.DEG',5X,'D/M/Y',5X,'GMT',7X,'M',/) 7 CONTINUE read (1, 10, end=999) sta, cast, lat, lon, date, time, 1 dep 10 format (6X, I2, 5X, I3, 2X, F7.3, 2X, F8.3, 2X, A8, 4X, 1 A4, 4X, I4) write (2, 20) sta, cast, lat, lon, date, time, 1 dep 20 format (6X, I2, 5X, I3, 2X, F7.3, 2X, F8.3, 2X, A8, 4X, 1 A4, 4X, I4) GOTO 7 999 close(unit=1) close(unit=2) stop end
Last modified: 2021-03-17T18:30:27Z