Skip to main content

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 and Name Description Logical Records Record Format Block Size Record Length
1. NDP044.DES General descriptive information file 324 FB 8000 80
2. TRACKLST Track list of expedition legs 66 FB 9000 90
3. DATA.LST List of data filenames 84 FB 8000 80
4. NDPO44.FOR FORTRAN-77 data retrieval code to read and print the surface water and atmospheric CO2 and N20 data (Files 5-86) 21 FB 8000 80
5. NDPO44.SAS SASb input/output routine to read and print the surface water and atmospheric CO2 and N2O data (Files 5-86) 26 FB 8000 80
6. INDOM2.AIR Atmospheric CO2 and N20 data for Indomed Leg 2 1080 FB 8000 80
7. INDOM2.H2O Surface seawater CO2 and N20 data for Indomed Leg 2 1068 FB 8000 80
8. INDOM3.AIR Atmospheric CO2 and N20 data for Indomed Leg 3 349 FB 8000 80
9. INDOM3.H20 Surface seawater CO2 and N20 data for indomed Leg 3 357 FB 8000 80
10. INDOM4.AIR Atmospheric CO2 and N2O data for indomed Leg 4 1607 FB 8000 80
11. INDOM4.H20 Surface seawater CO2 and N20 data for Indomed Leg 4 1529 FB 8000 80
12. INDOM5.AIR Atmospheric CO2 and N20 data for Indomed Leg 5 1233 FB 8000 80
13. INDOM5.H20 Surface seawater CO2 and N20 data for Indomed Leg 5 1223 FB 8000 80
14. INDOM I1AAIR Atmospheric CO2 and N2O data for Indomed Leg 11A 204 FB 8000 80
15. INDOM11AH2O Surface seawater CO2 and N20 data for Indomed Leg 11A 207 FB 8000 80
16. INDOM 12.AIR Atmospheric CO2 and N20 data for Indomed Leg 12 1520 FB 8000 80
17. INDOM12.H20 Surface seawater CO2 and N20 data for Indomed Leg 12 1521 FB 8000 80
18. INDOM15.AIR Atmospheric CO2 and N20 data for Indomed Leg 15 989 FB 8000 80
19. INDOM15.H20 Surface seawater CO2 and N20 data for Indomed Leg 15 934 FB 8000 80
20. INDOM 15A.AIR Atmospheric CO2 and N20 data for Indomed Leg 15A 353 FB 8000 80
21. INDOM 15A.H2O Surface seawater CO2 and N20 data for Indomed Leg 15A 353 FB 8000 80
22. NORPAXO.AIR Atmospheric CO2 and N2O data for NORPAX Transit 375 FB 8000 80
23. NORPAXO.H20 Surface seawater CO2 and N2O data for NORPAX Transit 375 FB 8000 80
24. NORPAX7.AIR Atmospheric CO2 and N2O data for NORPAX Leg 7 1115 FB 8000 80
25. NORPAX7.H20 Surface seawater CO2 and N20 data for NORPAX Leg 7 1107 FB 8000 80
26. NORPAX9.AIR Atmospheric CO2 and N20 data for NORPAX Leg 9 1141 FB 8000 80
27. NORPAX9.H20 Surface seawater CO2 and N20 data for NORPAX Leg 9 1143 FB 8000 80
28. NORPAX13.AIR Atmospheric CO2 and N20 data for NORPAX Leg 13 1130 FB 8000 80
29. NORPAX13.H20 Surface seawater CO2 and N20 data for NORPAX Leg 13 1128 FB 8000 80
30. NORPAX15AIR Atmospheric CO2 and N20 data for NORPAX Leg 15 1301 FB 8000 80
31. NORPAX15.H20 Surface seawater CO2 and N20 data for NORPAX Leg 15 1300 FB 8000 80
32. NASLAIR Atmospheric CO2 and N20 data for TTOINAS Leg 1 568 FB 8000 80
33. NAS 1.H20 Surface seawater CO2 and N,O data for TTO/NAS Leg 1 542 FB 8000 80
34. NAS2.AIR Atmospheric CO2 and N20 data for TTO/NAS Leg 2 1201 FB 8000 80
35. NAS2.H20 Surface seawater CO2 and N20 data for TTO/NAS Leg 2 1115 FB 8000 80
36. NAS3.AIR Atmospheric CO2 and N2O data for TTO/NAS Leg 3 1300 FB 8000 80
37. NAS3.H20 Surface seawater CO2 and N20 data for TTO/NAS Leg 3 1274 FB 8000 80
38. NAS4.AIR Atmospheric CO2 and N2O data for TTO/NAS Leg 4 1119 FB 8000 80
39. NAS4.H20 Surface seawater CO2 and N20 data for TTO/NAS Leg 4 933 FB 8000 80
40. NAS5AIR Atmospheric CO2 and N20 data for TTO/NAS Leg 5 1206 FB 8000 80
41. NAS5.H20 Surface seawater CO2 and N20 data for TTO/NAS Leg 5 1109 FB 8000 80
42. NAS6AIR Atmospheric CO2 and N20 data for TTO/NAS Leg 6 1255 FB 8000 80
43. NAS6.H20 Surface seawater CO2 and N20 data for TTO/NAS Leg 6 1212 FB 8000 80
44. NAS7.AIR Atmospheric CO2 and N20 data for TTO/NAS Leg 7 1144 FB 8000 80
45. NAS7.H2O Surface seawater CO2 and N20 data for TTO/NAS Leg 7 1089 FB 8000 80
46. HUD LAM Atmospheric CO2 and N20 data for Hudson 82-001 Leg 1 1578 FB 8000 80
47. HUD 1.H20 Surface seawater CO2 and N20 data for Hudson 82-001 Leg 1 1590 FB 8000 80
48. HUD2.AIR Atmospheric CO2 and N2O data for Hudson 82-001 Leg 2 544 FB 8000 80
49. HUD2.H2O Surface seawater CO2 and N20 data for Hudson 82-001 Leg 2 496 FB 8000 80
50. TASIAIR Atmospheric CO2 and N20 data for TTOTTAS Leg 1 953 FB 8000 80
51. TAS1.H20 Surface seawater CO2 and N20 data for TTO/TAS Leg 1 947 FB 8000 80
52. TAS2.AIR Atmospheric CO2 and N20 data for TTO/TAS Leg 2 1165 FB 8000 80
53. TAS2.H20 Surface seawater CO2 and N2O data for TTO/TAS Leg 2 1133 FB 8000 80
54. TAS3.AIR Atmospheric CO2 and N20 data for TTOiTAS Leg 3 905 FB 8000 80
55. TAS3.H20 Surface seawater CO2 and N20 data for TTO/TAS Leg 3 904 FB 8000 80
56. AJAX LAIR Atmospheric CO2 and N20 data for Ajax Leg 1 1408 FB 8000 80
57. AJAX1.H20 Surface seawater CO2 and N20 data for Ajax Leg 1 1407 FB 8000 80
58. AJAX2.AIR Atmospheric CO2 and N2O data for Ajax Leg 2 1785 FB 8000 80
59. AJAX2.H20 Surface seawater CO2 and N20 data for Ajax Leg 2 1748 FB 8000 80
60. TPS241.AIR Atmospheric CO2 and N20 data for TPS24 Leg 1 1392 FB 8000 80
61. TPS241.H20 Surface seawater CO2 and N20 data for TPS24 Leg 1 1485 FB 8000 80
62. TPS242.AIR Atmospheric CO2 and N20 data for TPS24 Leg 2 1499 FB 8000 80
63. TPS242.H20 Surface seawater CO2 and N20 data for TPS24 Leg 2 1513 FB 8000 80
64. TPS471.AIR Atmospheric CO2 and N2O data for TPS47 Leg 1 1554 FB 8000 80
65. TPS471.H20 Surface seawater CO2 and N20 data for TPS47 Leg 1 1595 FB 8000 80
66. ANT52.AIR Atmospheric CO2 and N20 data for Ant V Leg 2 3641 FB 8000 80
67. ANT52.H20 Surface seawater CO2 and N20 data for Ant V Leg 2 1697 FB 8000 80
68. ANT53.AIR Atmospheric CO2 and N20 data for Ant V Leg 3 3592 FB 8000 80
69. ANT53.H20 Surface seawater CO2 and N20 data for Ant V Leg 3 2797 FB 8000 80
70. SAVEO.AIR Atmospheric CO2 and N20 data for SAVE Transit 825 FB 8000 80
71. SAVEO.H20 Surface seawater CO2 and N20 data for SAVE Transit 816 FB 8000 80
72. SAVEI.AIR Atmospheric CO2 and N2O data for SAVE Leg 1 930 FB 8000 80
73. SAVE1.H20 Surface seawater CO2 and N20 data for SAVE Leg 1 888 FB 8000 80
74. SAVE2.AIR Atmospheric CO2 and N20 data for SAVE Leg 2 1624 FB 8000 80
75. SAVE2.H20 Surface seawater CO2 and N20 data for SAVE Leg 2 1618 FB 8000 80
76. SAVEO.AIR Atmospheric CO2 and N20 data for SAVE Leg 3 1790 FB 8000 80
77. SAVE3.H20 Surface seawater CO2 and N20 data for SAVE Leg 3 1785 FB 8000 80
78. SAVE4.AIR Atmospheric CO2 and N20 data for SAVE Leg 4 1713 FB 8000 80
79. SAVE4.H20 Surface seawater CO2 and N20 data for SAVE Leg 4 1697 FB 8000 80
80. SAVEO.AIR Atmospheric CO2 and N20 data for SAVE Leg 5 2044 FB 8000 80
81. SAVE5.H20 Surface seawater CO2 and N2O data for SAVE Leg 5 1927 FB 8000 80
82. SAVE6.AIR Atmospheric CO2 and N20 data for SAVE Leg 6 1471 FB 8000 80
83. SAVE6.H20 Surface seawater CO2 and N2O data for SAVE Leg 6 1466 FB 8000 80
84. CGC901.AIR Atmospheric CO2 and N20 data for CGC-90 Leg 1 1175 FB 8000 80
85. CGC901.H20 Surface seawater CO2 and N20 data for CGC-90 Leg 1 1197 FB 8000 80
86. CGC902.AIR Atmospheric CO2 and N2O data for CGC-90 Leg 2 996 FB 8000 80
87. CGC902.H20 Surface seawater CO2 and N20 data for CGC-90 Leg 2 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 Type Variable Widthβ Line Starting Column Ending 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
Last modified: 2021-03-17T18:30:27Z