xco2air.for (File 3)
This file contains a FORTRAN 77 data-retrieval routine to read and print xco2air.txt file File 13). 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 xco2air.txt file.
c**************************************************************** c* FORTRAN 77 data retrieval routine to read and print the files c* named "xco2air.txt" (File 13) c**************************************************************** c*Defines variables* CHARACTER date*10, time*8, lab*1 REAL latdcm, londcm, xco2 OPEN (unit=1, file='xco2air.txt') OPEN (unit=2, file='xco2air.dat') write (2, 5) c*Writes out column labels* 5 format (5X,'DATE',9X,'TIME',4X,'LATITUDE',2X,'LONGITUDE', 1 2X,'xCO2_AIR',1X,'LAB',/,5X,'GMT',10X,'GMT',7X, 3 'DEG N',6X,'DEG E',5X,'PPMV',4X,'NO',/, 5 2X,'DD.MM.YYYY',4X,'HH:MM:SS') c*Sets up a loop to read and format all the data in the file* read (1, 6) 6 format (////////////) 7 CONTINUE read (1, 10, end=999) date, time, latdcm, londcm, xco2, lab 10 format (2X, A10, 4X, A8, 4X, F6.3, 4X, F7.3, 4X, F6.2, 1 3X, A1) write (2, 20) date, time, latdcm, londcm, xco2, lab 20 format (2X, A10, 4X, A8, 4X, F6.3, 4X, F7.3, 4X, F6.2, 1 3X, A1) GOTO 7 999 close(unit=1) close(unit=2) stop end
Last modified: 2021-03-17T18:30:27Z