Part 2: Information About the Data Files Provided on Magnetic Tape or Floppy Diskettes
11. Contents of the Magnetic Tape or Floppy Diskettes
The following is a list of files distributed on magnetic tape or floppy diskettes by CDIAC along with this documentation.
---------------------------------------------------------------------------
File number, description, Logical Record Block Record
and name records format° size length
---------------------------------------------------------------------------
1.General descriptive
information file:
NDP044.DES 324 FB 8000 80
2.Track list of
expedition legs:
TRACKLST 66 FB 9000 90
3.List of data
filenames:
DATA.LST 84 FB 8000 80
4.FORTRAN-77 data
retrieval code to
read and print the
surface water and
atmospheric CO2 and
N20 data (Files 5-86):
NDPO44.FOR 21 FB 8000 80
5.SASb input/output
routine to read and
print the surface water
and atmospheric CO2 and
N2O data (Files 5-86):
NDPO44.SAS 26 FB 8000 80
6.Atmospheric CO2 and N20
data for Indomed Leg 2:
INDOM2.AIR 1080 FB 8000 80
7.Surface seawater CO2 and
N20 data for Indomed Leg 2:
INDOM2.H2O 1068 FB 8000 80
8.Atmospheric CO2 and N20
data for Indomed Leg 3:
INDOM3.AIR 349 FB 8000 80
9.Surface seawater CO2 and
N20 data for indomed Leg 3:
INDOM3.H20 357 FB 8000 80
10.Atmospheric CO2 and N2O
data for indomed Leg 4:
INDOM4.AIR 1607 FB 8000 80
11.Surface seawater CO2 and
N20 data for Indomed Leg 4:
INDOM4.H20 1529 FB 8000 80
12.Atmospheric CO2 and N20
data for Indomed Leg 5:
INDOM5.AIR 1233 FB 8000 80
13.Surface seawater CO2 and
N20 data for Indomed Leg 5:
INDOM5.H20 1223 FB 8000 80
14.Atmospheric CO2 and N2O
data for Indomed Leg 11A
INDOM I1AAIR 204 FB 8000 80
15.Surface seawater CO2 and
N20 data for Indomed Leg 11A
INDOM11AH2O 207 FB 8000 80
16.Atmospheric CO2 and N20
data for Indomed Leg 12:
INDOM 12.AIR 1520 FB 8000 80
17.Surface seawater CO2 and
N20 data for Indomed Leg 12:
INDOM12.H20 1521 FB 8000 80
18.Atmospheric CO2 and N20
data for Indomed Leg 15:
INDOM15.AIR 989 FB 8000 80
19.Surface seawater CO2 and
N20 data for Indomed Leg 15:
INDOM15.H20 934 FB 8000 80
20.Atmospheric CO2 and N20
data for Indomed Leg 15A:
INDOM 15A.AIR 353 FB 8000 80
21.Surface seawater CO2 and
N20 data for Indomed Leg 15A
INDOM 15A.H2O 353 FB 8000 80
22.Atmospheric CO2 and N2O
data for NORPAX Transit:
NORPAXO.AIR 375 FB 8000 80
23.Surface seawater CO2 and
N2O data for NORPAX Transit:
NORPAXO.H20 375 FB 8000 80
24.Atmospheric CO2 and N2O
data for NORPAX Leg 7:
NORPAX7.AIR 1115 FB 8000 80
25.Surface seawater CO2 and
N20 data for NORPAX Leg 7:
NORPAX7.H20 1107 FB 8000 80
26.Atmospheric CO2 and N20
data for NORPAX Leg 9:
NORPAX9.AIR 1141 FB 8000 80
27.Surface seawater CO2 and
N20 data for NORPAX Leg 9:
NORPAX9.H20 1143 FB 8000 80
28.Atmospheric CO2 and N20
data for NORPAX Leg 13:
NORPAX13.AIR 1130 FB 8000 80
29.Surface seawater CO2 and
N20 data for NORPAX Leg 13:
NORPAX13.H20 1128 FB 8000 80
30.Atmospheric CO2 and N20
data for NORPAX Leg 15:
NORPAX15AIR 1301 FB 8000 80
31.Surface seawater CO2 and
N20 data for NORPAX Leg 15:
NORPAX15.H20 1300 FB 8000 80
32.Atmospheric CO2 and N20
data for TTOINAS Leg 1:
NASLAIR 568 FB 8000 80
33.Surface seawater CO2 and
N,O data for TTO/NAS Leg 1:
NAS 1.H20 542 FB 8000 80
34.Atmospheric CO2 and N20
data for TTO/NAS Leg 2:
NAS2.AIR 1201 FB 8000 80
35.Surface seawater CO2 and
N20 data for TTO/NAS Leg 2:
NAS2.H20 1115 FB 8000 80
36.Atmospheric CO2 and N2O
data for TTO/NAS Leg 3:
NAS3.AIR 1300 FB 8000 80
37.Surface seawater CO2 and
N20 data for TTO/NAS Leg 3:
NAS3.H20 1274 FB 8000 80
38.Atmospheric CO2 and N2O
data for TTO/NAS Leg 4:
NAS4.AIR 1119 FB 8000 80
39. Surface seawater CO2 and
N20 data for TTO/NAS Leg 4:
NAS4.H20 933 FB 8000 80
40. Atmospheric CO2 and N20
data for TTO/NAS Leg 5:
NAS5AIR 1206 FB 8000 80
41. Surface seawater CO2 and
N20 data for TTO/NAS Leg 5:
NAS5.H20 1109 FB 8000 80
42. Atmospheric CO2 and N20
data for TTO/NAS Leg 6:
NAS6AIR 1255 FB 8000 80
43. Surface seawater CO2 and
N20 data for TTO/NAS Leg 6:
NAS6.H20 1212 FB 8000 80
44. Atmospheric CO2 and N20
data for TTO/NAS Leg 7:
NAS7.AIR 1144 FB 8000 80
45. Surface seawater CO2 and
N20 data for TTO/NAS Leg 7:
NAS7.H2O 1089 FB 8000 80
46. Atmospheric CO2 and N20
data for Hudson 82-001 Leg 1:
HUD LAM 1578 FB 8000 80
47. Surface seawater CO2 and N20
data for Hudson 82-001 Leg 1:
HUD 1.H20 1590 FB 8000 80
48. Atmospheric CO2 and N2O
data for Hudson 82-001 Leg 2:
HUD2.AIR 544 FB 8000 80
49. Surface seawater CO2 and N20
data for Hudson 82-001 Leg 2:
HUD2.H2O 496 FB 8000 80
50.Atmospheric CO2 and N20
data for TTOTTAS Leg 1:
TASIAIR 953 FB 8000 80
51.Surface seawater CO2 and
N20 data for TTO/TAS Leg 1:
TAS1.H20 947 FB 8000 80
52.Atmospheric CO2 and N20
data for TTO/TAS Leg 2:
TAS2.AIR 1165 FB 8000 80
53.Surface seawater CO2 and
N2O data for TTO/TAS Leg 2:
TAS2.H20 1133 FB 8000 80
54.Atmospheric CO2 and N20
data for TTOiTAS Leg 3:
TAS3.AIR 905 FB 8000 80
55.Surface seawater CO2 and
N20 data for TTO/TAS Leg 3:
TAS3.H20 904 FB 8000 80
56.Atmospheric CO2 and N20
data for Ajax Leg 1:
AJAX LAIR 1408 FB 8000 80
57.Surface seawater CO2 and
N20 data for Ajax Leg 1:
AJAX1.H20 1407 FB 8000 80
58.Atmospheric CO2 and N2O
data for Ajax Leg 2:
AJAX2.AIR 1785 FB 8000 80
59.Surface seawater CO2 and
N20 data for Ajax Leg 2:
AJAX2.H20 1748 FB 8000 80
60.Atmospheric CO2 and N20
data for TPS24 Leg 1:
TPS241.AIR 1392 FB 8000 80
61.Surface seawater CO2 and
N20 data for TPS24 Leg 1:
TPS241.H20 1485 FB 8000 80
62.Atmospheric CO2 and N20
data for TPS24 Leg 2:
TPS242.AIR 1499 FB 8000 80
63.Surface seawater CO2 and
N20 data for TPS24 Leg 2:
TPS242.H20 1513 FB 8000 80
64.Atmospheric CO2 and N2O
data for TPS47 Leg 1:
TPS471.AIR 1554 FB 8000 80
65.Surface seawater CO2 and
N20 data for TPS47 Leg 1:
TPS471.H20 1595 FB 8000 80
66.Atmospheric CO2 and N20
data for Ant V Leg 2:
ANT52.AIR 3641 FB 8000 80
67.Surface seawater CO2 and
N20 data for Ant V Leg 2:
ANT52.H20 1697 FB 8000 80
68.Atmospheric CO2 and N20
data for Ant V Leg 3:
ANT53.AIR 3592 FB 8000 80
69.Surface seawater CO2 and
N20 data for Ant V Leg 3:
ANT53.H20 2797 FB 8000 80
70.Atmospheric CO2 and N20
data for SAVE Transit:
SAVEO.AIR 825 FB 8000 80
71.Surface seawater CO2 and
N20 data for SAVE Transit:
SAVEO.H20 816 FB 8000 80
72.Atmospheric CO2 and N2O
data for SAVE Leg 1:
SAVEI.AIR 930 FB 8000 80
73.Surface seawater CO2 and
N20 data for SAVE Leg 1:
SAVE1.H20 888 FB 8000 80
74.Atmospheric CO2 and N20
data for SAVE Leg 2:
SAVE2.AIR 1624 FB 8000 80
75.Surface seawater CO2 and
N20 data for SAVE Leg 2:
SAVE2.H20 1618 FB 8000 80
76.Atmospheric CO2 and N20
data for SAVE Leg 3:
SAVEO.AIR 1790 FB 8000 80
77.Surface seawater CO2 and
N20 data for SAVE Leg 3:
SAVE3.H20 1785 FB 8000 80
78.Atmospheric CO2 and N20
data for SAVE Leg 4:
SAVE4.AIR 1713 FB 8000 80
79.Surface seawater CO2 and
N20 data for SAVE Leg 4:
SAVE4.H20 1697 FB 8000 80
80.Atmospheric CO2 and N20
data for SAVE Leg 5:
SAVEO.AIR 2044 FB 8000 80
81.Surface seawater CO2 and
N2O data for SAVE Leg 5:
SAVE5.H20 1927 FB 8000 80
82.Atmospheric CO2 and N20
data for SAVE Leg 6:
SAVE6.AIR 1471 FB 8000 80
83.Surface seawater CO2 and
N2O data for SAVE Leg 6:
SAVE6.H20 1466 FB 8000 80
84.Atmospheric CO2 and N20
data for CGC-90 Leg 1:
CGC901.AIR 1175 FB 8000 80
85.Surface seawater CO2 and
N20 data for CGC-90 Leg 1:
CGC901.H20 1197 FB 8000 80
86.Atmospheric CO2 and N2O
data for CGC-90 Leg 2:
CGC902.AIR 996 FB 8000 80
87.Surface seawater CO2 and
N20 data for CGC-90 Leg 2:
CGC902.H20 1003 FB 8000 80
Total records 102,523 (or -7.1 mB)
---------------------------------------------------------------------------
αFB = fixed block.
βSAS is the registered trademark of SAS Institute, Inc., Cary, NC 27511-8000.
12. Descriptive File on the Tape/Diskettes
The following is a listing of File 1 on the magnetic tape (or NDP044.DES on the floppy diskettes) distributed by CDIAC. This file is intended to complement the documentation and provide details (i.e., variable descriptions, formats, and units) about the data files on the magnetic tape or floppy diskettes.
Title of the Data Set
Surface Water and Atmospheric Carbon Dioxide and Nitrous Oxide Observations by Shipboard Automated Gas Chromatography: Results from Expeditions between 1977 and 1990.
Data Contributors
R. F. Weiss, F. A. Van Woy, P. K. Salameh
Scripps Institution of Oceanography
University of Calfornia, San Diego
La Jolla, California
Source and Scope of the Data
Note: The material provided on the magnetic tape or floppy diskettes for this section is essentially identical to the contents of Sections 4 (Source Information) and 5 (Methodology) of Part I of this documentation.
Data Format
Eighty-seven files are provided on this magnetic tape or these floppy diskettes, including (1) this descriptive file - File 1 on the magnetic tape or NDP044.DES on the floppy diskettes; (2) a file containing a list of expedition legs on which measurements were made - File 2 on the magnetic tape or TRACK.LST on the floppy diskettes; (3) a file containing a list of the data filenames corresponding (by number) to the expedition legs listed in File 2 (or TRACK.LST) - File 3 on the magnetic tape or DATA.LST on the floppy diskettes; (4) a FORTRAN-77 retrieval program to read and print any of the data files - File 4 on the magnetic tape or NDP044.FOR on the floppy diskettes; (5) a SAS input/output routine to read and print any of the data files - File 5 on the magnetic tape or NDP044.SAS on the floppy diskettes; and (6) - (87) 82 files containing the surface water and atmospheric CO2 and N2O data - Files 6-87 on the magnetic tape or *.AIR and *.H2O on the floppy diskettes [with full filenames as listed in File 3 (or DATA.LST)].
Table 2 (located in the documentation that accompanies this tape/diskettes) presents a
partial listing of one of the surface water and atmospheric CO2 and N2O data files. The
data files are formatted in the following way:
CHARACTER SAMPTYP, HEADER*77, DATEMO*3, LATHEM, LONHEM
INTEGER DATADA, DATEYR, TIME
REAL LAT, LON, PRESS, H2OTMP, XN2O, XCO2
READ (5, 500) SAMPTYP, HEADER
10 READ (5, 600, END=800) DATEDA, DATEMO, DATEYR, TIME,
1 LAT, LATHEM, LON, LONHEM, PRESS, H2OTMP, XN20, XCO2
GOTO 10
500 FORMAT (A1, 2X, A77)
600 FORMAT (I2, IX, A3, IX, I2, 3X, I4, 3X, F7.3, 1X, A1, 3X, F8.3,
1 1X, A1, 3X, F6.1, 3X, F5.2, 3X, F5.A, 3X, F5.1)
800 STOP
where
| SAMPTYP | is a one-character code describing the type of samples being presented in the data file: A = atmospheric samples, S = surface seawater (i.e., gas equilibrated with surface seawater) samples; |
| HEADER | is a descriptive character string consisting of (1) the name of the expedition (e.g., AJAX Leg 1) and (2) the name of the research vessel (e.g., R/V Knorr); |
| DATEDA | is the numeric day of the month on which the sample was collected; |
| DATEMO | is the three-letter abbreviation (Jan, Feb, etc.) for the month in which the sample was collected; |
| DATEYR | is the final two digits of the year (since 1900) in which the sample was collected; |
| TIME | is the Greenwich Mean Time at which the sample was collected, expressed in 24-hour time from 0000 to 2359; |
| LAT | is the latitude (in decimal degrees) at which the sample was collected, with possible values from -90,000 to 90,000 (north latitudes are represented as positive); |
| LATHEM | is the latitudinal hemisphere in which the sample was taken; N = Northern Hemishpere, S = Southern Hemisphere; |
| LON | is the longitude (in decimal degrees) at which the sample was collected, with possible values from -180,000 to 180,000 (east longitudes are represented as positive); |
| LONHEM | is the longitudinal hemisphere in which the sample was taken: E = Eastern Hemisphere, W = Western Hemisphere; |
| PRESS | is the approximate sea level barometric pressure in mBar, interpolated from discrete values recorded on the ship at hydrographic stations; |
| H2OTMP | is the approximate surface water temperature in degrees Celsius, interpolated from discrete values recorded on the ship at hydrographic stations; |
| XN2O | is the dry gas mole fraction of nitruos oxide (N2O) in the sample, measured in parts per billion (ppb); |
| XCO2 | is the dry gas mole fraction of carbon dioxide(CO2) in the sample, measured in parts per million (ppm); |
Stated in tabular form, the contents include the following:
--------------------------------------------------------
Variable Variable Starting Endin
Variableα type widthβ Line column column
--------------------------------------------------------
SAMPTYP Character Al 1 1 1
HEADER Character A77 1 4 80
DATEDA Numeric I2 2...n 1 2
DATEMO Character A3 2...n 4 6
DATEYR Numeric 12 2...n 8 9
TIME Numeric I4 2...n 13 16
LAT Numeric F73 2...n 20 26
LATHEM Character Al 2...n 28 28
IAN Numeric F8.3 2...n 32 39
LONHEM Character Al 2...n 41 41
PRESS Numeric F6.1 2...n 45 50
H2OTMP Numeric F5.2 2...n 54 58
XN2O Numeric F5.1 2...n 62 66
XCO2 Numeric F5.1 2...n 70 74
--------------------------------------------------------
αMissing values are represented as follows - PRESS: -999.9; H2OTMP: 99.99; XN2O: -99.9; XCO2:-99.9.
βValues for variable width are entered as FORTRAN 77 format codes.
References
Note: The material provided on the magnetic tape or floppy diskettes for this secion is identical to the contents of Section 9 (References) of Part I of this document
13. Listing of the FORTRAN-77 Data Retrieval Program
The following is a listing of the FORTRAN-77 data retrieval program (File 4 on magnetic tape or NDP044.FOR on floppy diskette) provided by CDIAC to read and pring the surface water and atmospheric CO2 and N2O data (Files 6-87 on magnetic tape or files *.AIR and *.H2O on floppy diskettes). The job control language (JCL) statements (preceded by // or /*) shown below are not provided in the file on the tape/diskette; requestors must add JCL statement themselves if required. The statments required will vary for each operating system. The JCL statements shown below are provided to illustrate the statements that an individual using an IBM mainframe (e.g., IBM 3090) at ORNL would need to read these data from a nine-track, 6250 BPI, standard-labeled tape with character written in EBCDIC.
//UTDCO2 JOB(12345), 'USER ADDRESS'
//OUT OUTPUT DEFAULT=YES,JESDS=ALL,DEST=LOCAL
//EXEC FORTVCLG
//FORT.SYSIN DD =
C*************************************************************
C A FORTRAN program to read and print the surface water and
C atmospheric carbon dioxide and nitrous oxide data.
C
C*************************************************************
CHARACTER SAMPTYP, HEADER*77, DATEMO*3, LATHEM, LONHEM
INTEGER DATEDA, DATEYR, TIME
REAL LAT, LON, PRESS, H2OTMP, XN2O, XCO2
READ (5, 500) SAMPTYP, HEADER
WRITE (6, 500) SAMPTYP, HEADER
10 READ (5, 600, END=800) DATEDA, DATEMO, DATEYR, TIME, LAT,
1 LATHEM, LON, LONHEM, PRESS, H2OTMP, XN2O, XCO2
WRITE (6, 650 DATEDA, DATEMO, DATEYR, TIME, LAT,
1 LATHEM, LON, LONHEM, PRESS, H2OTMP, XN2O, XCO2
GOTO 10
500 FORMAT (A1, 2X, A77)
600 FORMAT (I2, 1X, A3, 1X, I2, 3X, I4, 3X, F7.3, 1X, A1, 3X, F8.3, 1X, A1,
1 3, F6.1, 3X, F5.2, 3X, F5.1, 3X, F5.1)
650 FORMAT (I2, 1X, A3, 1X, I2, 3X, I4.4, 3X, F7.3, 1X, A1, 3X, F8.3, 1X,
1 A1, 3X, F6.1, 3X, F5.2, 3X, F5.1, 3X, F5.1, ' ')
800 STOP
END
/*
//GO.FT05F001 DD UNIT=TAPE62, VOL=SHR=TAPEVOL, DISP=(,PASS),
// LABEL=(4, SL, RETPD=0),
// DSN=TAB.NDP044.DATA
//GO.FTO6F001 DD *
//
14. Listing of the SAS Input/Output Retrieval Program
The following is a listing of the SASα data retrieval program (File 5 on magnetic tape or NDP044.SAS on floppy diskette) provided by CDIAC to read and print the surface water and atmospheric CO2 and N2O data (Files 6-87 on magnetic tape or files *.AIR and *.H2O on floppy diskettes). The JCL statements (preceded by // or /*) shown below are not provided in the file on the tape/diskette; requestors must add JCL statements themselves if required. The statements required will vary for each operating system. The JCL statements shown below are provided to illustrate the statements that an individual using an IBM mainframe (e.g., IBM 3090) at ORNL would need to read these data from a nine-track, 6250 BPI, standard-labeled tape with characters written in EBCDIC.
//UIDCO2 JOB (12345), 'USER ADDRESS'
//OUT OUTPUT DEFAULT=YES, JESDS=ALL, DEST=LOCAL
//STEP1 EXEC SAS, SASRGN=4096K, WORK=1600
//IN DD UNIT=TAPE62, VOL=SER=TAPEVOL,DISP=(,PASS),
// DSN=TAB.NDP044.DATA, LABEL=(4,SL,RETPD=0)
//FT06F001 DD SYSOUT=A
//SYSIN DD *
* A SAS program to rad and print the surface water and
atmospheric carbon dioxide and nitrous oxide data;
DATA WEISS(DROP=X);
INFILE IN;
INPUT X $ 2 @;
IF X EQ ' ' THEN DO;
INPUT SAMPTYP $ 1 @4 HEADER $CHAR77.;
RECCODE=1;
END;
ELSE DO;
INPUT DATEDA 1-2 DATEMO $ 4-6 DATEYR 8-9 TIME 13-16 LAT 20-26
LATHEM $ 28 LON 32-39 LONHEM $41 PRESS 45-50 H2OTMP 54-58
XN2O 62-66 XCO2 70-74;
RECCODE=2;
END;
DATA PRINT;
SET WEISS;
FILE PRINT;
OPTIONS MISSING=' ';
IF RECCODE=1 THAN
PUT SAMPTYP 1 HEADER 4-80;
ELSE IF RECCODE-2 THEN
PUT DATEDA 1-2 DATEMO 4-6 DATEYR 8-9 @13 TIME z4. @20 LAT 7.3
LATHEM 28 @32 LOW 8.3 LONHEM 41 @45 PRESS 6.1 @54 H2OTMP 5.2
@62 XN2O 5.1 @70 XCO2 5.1 @75 ' ';
RUN;
/*
//
-------------------------------------------------------------------
αSAS is the registered trademark of SAS Institute, Inc., Cary, NC 27511-8000.
15. Verification of Data Transport
The surface water and atmospheric CO2 and N2O data can be read by using the FORTRAN or SAS input/output routines provided. Users should verify that the data file had been correctly transported to theri systems by generating some or all of the statistics presented in Table 3. These statistics were generated in FORTRAN but can be duplicated in other languages or statistical packages. If the statistics generated by the user differ from those presented here, the data files may have been corrupted in transport.
These statistics are presented only as a tool to ensure proper reading of the data files. They are not to be construed as summarizing the surface water and atmospheric CO2 and N2O data.
The following is a listing of the FORTRAN program used to generate the statistics described in Table 3:
CHARACTER DATAFIL*12, VARNAME(9)*6
INTEGER DATEDA, DATEYR, TIME, I, J, N
REAL LAT, LON, PRESS, H2OTMP, XN2O, XCO2, DATA(9, 5)
VARNAME(1)='DATEDA'
VARNAME(2)='DATEYR'
VARNAME(3)='TIME '
VARNAME(4)='LAT '
VARNAME(5)='LON '
VARNAME(6)='PRESS '
VARNAME(7)='H2OTMP'
VARNAME(8)='XN2O '
VARNAME(9)='XCO2 '
DO 10 I=1,9
DO 5 J=1,5
DATA(I,J)=0
5 CONTINUE
10 CONTINUE
N=0
OPEN (UNIT=2, FILE='DATA.LST', ACCESS='SEQUENTIAL',
1 FORM='FORMATTED', STATUS='OLD')
OPEN (UNIT=4, FILE='SUMSTATS.OUT', ACCESS='SEQUENTIAL',
1 FORM='FORMATTED', STATUS='NEW')
15 READ (2, 100, END=45) DATAFIL
OPEN (UNIT=3, FILE=DATAFIL, ACCESS='SEQUENTIAL',
1 FORM='FORMATTED', STATUS='OLD')
READ (3, 200)
20 READ (3, 300, END=40) DATEDA, DATEYR, TIME, LAT, LON, PRESS
1 H2OTMP, XN2O, XCO2
DATA(1, 1)=REAL(DATEDA)
DATA(2, 1)=REAL(DATEYR)
DATA(3, 1)=REAL(TIME)
DATA(4, 1)=LAT
DATA(5, 1)=LON
DATA(6, 1)=PRESS
DATA(7, 1)=H2OTMP
DATA(8, 1)=XN2O
DATA(9, 1)=XCO2
IF(N.EQ.0) THEN
DO 30 I=1,9
DO 25 J=4,5
DATA(I, J)=DATA(I,1)
25 CONTINUE
30 CONTINUE
END IF
DO 35 I=1,9
DATA(I, 2)=DATA(I, 2)+DATA(I,1)
IF(DATA(I, 1).LT.DATA(I, 4)) DATA(I, 4)=DATA(I, 1)
IF(DATA(I, 1).GT.DATA(I, 5)) DATA(I, 5)=DATA(I, 1)
35 CONTINUE
N=N+1
GOTO 20
40 CLOSE (UNIT=3)
GOTO 15
45 CLOSE (UNIT=2)
DO 50 I=1,9
DATA(I, 3)=DATA(I, 2)/REAL(N)
50 CONTINUE
DO 55 I=1,9
WRITE (4, 400) VARNAME(I), N, DATA(I, 3), DATA(I, 4),
1 DATA(I, 5)
55 CONTINUE
CLOSE (UNIT=4)
STOP
100 FORMAT (4X, A12)
200 FORMAT (1X)
300 FORMAT (I2, 5X, I2, 3X, I4, 3X F7.3, 5X, F8.3, 5X, F6.1, 3X, F5.2,
1 3X, F5.1, 3X, F5.1)
400 FORMAT (1X, A6, 2X, I6, 2X, F8.3, 2X, F8.3, 2X, F8.3)
END