^JPC TimUR?

SPEED2, A Computer Program for the

Reduction of Data from Automatic

Data Acquisition Systems

Richard D. Peacock

Center for Fire Research

National Engineering Laboratory

National Bureau of Standards

Washington, DC 20234

and

John M. Smith

Institute for Computer Sciences and Technology

National Bureau of Standards

Washington, DC 20234

"^^

^^/JfAU o^

U.S. DEPARTMENT OF COMMERCE, Juanita M. Kreps, Secretary

Luther H. Hodges, Jr., Under Secretary

Jordan J. Baruch, Assistant Secretary for Science and Technology

NATIONAL BUREAU OF STANDARDS, Ernest Ambler, Director

Issued September 1 979
National Bureau of Standards Technical Note 1 108

Nat. Bur. Stand. (U.S.), Tech. Note 1108, 153 pages (Sept. 1979)

CODEN: NBTNAE

For sale by the Superintendent of Documents, U.S. Government Printing Office, Washington, D.C. 20402

Stock No. 003-003-021 12-1 Price $4.75

(Add 25 percent additional for other than U.S. mailing)
TABLE OF CONTENTS

Page

LIST OF TABLES iv

ABSTRACT 1

1. INTRODUCTION ; 1

2. SPEED2, PURPOSE AND STRUCTURE 3 2.1 Purpose of SPEED2 3 2.2 Structure of SPEED2 4

3. MAIN PROGRAM, SPEED2 5

4. PLOTl, PURPOSE AND STRUCTURE 5

5. PL0T2, PURPOSE AND STRUCTURE 6 5.1 Using PL0T2 7 5.2 Data Transformation 7 5.2.1 Linear Transformations 7 5.2.2 More Complex Transformations 8 5.3 Making Corrections to the Data Matrix 10

5.4 Generating Graphs 11

6. PL0T3, CALCOMP PEN PLOTTING OF DATA 12

6.1 Using PL0T3 13

6.2 Generating Pen Plots 13

7. PL0T4, COMBINING SEVERAL SETS OF DATA 15

7.1 Using PL0T4 15

7.2 Renumbering of Instruments Using PL0T4 16

8. RESTRICTIONS ON THE USE OF SPEED2 16

9. NOTES ON THE USE OF SPEED2 17

9.1 Choice of NROW and NCOL 17

9.2 Instrument Definition Cards 18

9.3 Unconverted Input 18

9.4 Converted Input 19

9.5 Creating New Instruments . . 19

10. DIAGNOSTIC AND ERROR MESSAGES 20

10.1 Unconverted Data Checking 20

10.2 Data Cards and Format Errors 21

10.3 Other Messages and Diagnostics 22

11. DATA CARDS FOR THE EXECUTION OF SPEED2 24

11.1 SPEED2 Data Cards 24

11.2 PLOTl Data Cards • 24

11.3 PL0T2 Data Cards 25

11.4 PL0T3 Data Cards 25

11.5 PL0T4 Data Cards 26

12. REFERENCES 26

APPENDIX A. PROGRAM STATEMENT LISTING OF SPEED2 A-1

APPENDIX B. SAMPLE RUNSTREAMS AND EXAMPLES OF THE USE OF SPEED2 . . . B-1

iii
LIST OF TABLES

Page

Table 1. Recording format of several data acquisition systems 27

Table 2. Data acquisition system formats 28

Table 3. SPEED2 data cards 37

Table 4. PLOTl data cards 38

Table 5. PL0T2 data cards 44

Table 6. PL0T3 data cards 5 3 Table 7. PL0T4 data cards 57

IV
SPEED2, A COMPUTER PROGRAM FOR THE REDUCTION OF

DATA FROM AUTOMATIC DATA ACQUISITION SYSTEMS

Richard D. Peacock and John M. Smith

The voluminous amount of data that can be collected

by automatic data acquisition systems requires the use of

a digital computer for the reduction of data. A general

purpose computer program for the reduction of data collected by automatic data acquisition systems is presented.

The program is written with the ability to accept data

from a number of different data acquisition systems, with

the ability to check the correctness of data included.

Through the use of FORTRAN computer programming, the data

can be converted to meaningful scientific and engineering

units. The data can then be presented in tabular, printer

plot or ink pen plot form.

The program is documented, and detailed instructions

for its use, with examples, are presented. The use of

SPEED2 requires some knowledge of FORTRAN programming

language and the executive control language for the

computer system in use.

Key words: Computer program; data reduction; data

acquisition systems; plotting.

1 . INTRODUCTION

In 1968, the Building Research Division of the National Bureau of

Standards (NBS) approached the Computer Services Division of NBS with a proposal concerning the design of a series of computer programs to facilitate the analysis of automatically recorded data. During the following

two years, a system of computer programs called SPEED (Systematic Plotting

and Evaluation of Enumerated Data) was developed and tested. This system

was announced at the Ninth Annual Technical Symposium of the Association

for Computing Machinery and in an article in Computer Graphics. The following paragraphs, quoted from the Computer Graphics article, which indicated

the need for SPEED are still valid:
"During the past ten years the use of data acquisition systems

or digital scanning systems has increased many fold. Such systems

record automatically the readings of a number of instruments on either punched paper tape or magnetic tape. The individual characteristics of the various commercially available digital scanning

systems vary greatly; however as a point of reference it may be

noted that: one commercially available system is able to record

the readings of up to one thousand instruments; another digital

scanning system is able to read a clock and record the time plus

the readings of up to twenty-five instruments in 2.3 seconds.

The use of digital scanning systems offers several advantages

to the research scientist. First, their rapid recording capabilities allow for more complete data sampling. Second, automatically recorded data is more accurate than data that has been

recorded manually.

These advantages are however, to some extent, counterbalanced

by several problems which arise. Two problems are caused by the

large volume of recorded data. First, it is difficult, if not

impossible, to process large volumes of data by hand. Thus, the

scientist finds it necessary to make use of the computer. Unfortunately, he is often unfamiliar with the capabilities and limitations of this device. Second, when presented with a large volume

of data, it is often difficult for the scientist to rapidly interpret the broad characteristics of general trends that may be present,

Two other problems arise in the form in which the data are recorded.

The data are generally recorded in millivolts rather than standard

units. Thus, some conversion process, usually a linear transformation, is required. Furthermore, the recorded data are not usually

directly compatible with computers. In order for a computer to

read this data some special computer program must be used to read

this data in the recorded form and translate it into the internal

computer representation. " [1]

1Numbers in brackets refer to the literature references listed at the end

of this report.
During the nine years since its announcement, SPEED has been

widely used at NBS and other computer installations. SPEED has operated

successfully on UNIVAC , IBM, and CDC large-scale computers and has proved

its usefulness. Unfortunately, during those nine years, many users found

it convenient to modify the original system. This has led to the existence

of different versions of SPEED, many of which do not include some important

features, and few of which correspond directly to the original (and only)

documentation

For these reasons, SPEED has been rewritten with the new system titled

SPEED2 . The goals of this task have been:

a. To provide a standardized system of programs with appropriate

current documentation;

b. To recover features lost through evolution of SPEED, in particular,

the handling of input data;

c. To provide a more easily readable program including all old features

and several new features; and

d. To take advantage of changes in computer operating systems.

The remainder of this paper provides a description of SPEED2 and

instructions for its use.

Although this paper is meant as a detailed guide to the use of the

SPEED2 system, some knowledge of FORTRAN programming and executive system

control language for the computer in use is assumed.

2. SPEED2, PURPOSE AND STRUCTURE

2.1 Purpose of SPEED2

SPEED2 is designed to aid in the' analysis of experimental data composed

of a set of readings from a series of instruments. Thus, the basic data

for SPEED2 are represented as a matrix

REED(i,j)

where the row index, i, refers to a given scan through the series of

instruments, with i=l corresponding to the first scan, etc. Typically,

3
data acquisition systems scan at a fixed interval of time, so that the row index will also refer to a single time since the start of a test.

The column index, j, refers to the readings from a single instrument.

The order of the instruments in the columns of the array is controlled

by the user through data cards read during the execution of the program.

SPEED2 provides the capability to read the input matrix from a variety

of media including magnetic tape, paper tape, mass storage devices, or punched cards (of unconverted or converted data) . This includes input

checking and appropriate error messages. The ability to modify (correct

or alter) individual entries, portions of rows or portions of columns, or entire rows or columns of the matrix is included in SPEED2. SPEED2 also

provides for the transformation of analog instrument readings into standard units through linear or nonlinear transformations. This transformed

and corrected matrix may be outputted to a printer, card punch, magnetic

tape, or mass storage device. The user may generate printer plots or ink

pen plots of the readings of any instrument versus a series of readings

from other instruments. Finally, the ability to compare entries of several

matrices, or to merge several matrices, each representing a different

experiment, is included.

2,2 Structure of SPEED2

The system, SPEED2 , is composed of a main program, ambiguously titled

SPEED2; four major subprograms named PLOTl, PL0T2 , PLOTS, and PL0T4; and

a number of minor subprograms. Several of these subprograms are proprietary

and/or limited in use to a UNIVAC computer. Consistent use of variable

names among the various subprograms has been largely achieved.

The major subprogram, PLOTl, provides a means to read, check, and

correct the input data recorded by a variety of data acquisition systems

as shown in table 1. In addition, the user may specify a unique data

acquisition system through card input.

The major subprogram, PL0T2 , and its dependent subroutines have the

role of reading, correcting, transforming, and printing of the input matrix.

This segment of the system also generates printer plots.

The system segment controlled by PL0T3 may be used to generate pen

plots on a CalComp plotter.
The segment controlled by PL0T4 is used to make comparisons between

several input matrices of different experiments.

3. MAIN PROGRAM, SPEED2

The main program of the SPEED2 system is also titled SPEED2.

Although a relatively short program, SPEED2 serves several vital functions.

First, SPEED2 provides dimensioning for many of the arrays used in

the system that change in size depending on the size of the input matrix.

For the NBS UNIVAC Computer, these dimensions are controlled by PARAMETER

cards in the program SPEED2 as shown in appendix A:

PARAMETER NROW=30, NCOL=50

PARAMETER MAXPLT=6

PARAMETER MAXCNL=150

The entries on the first card, NROW and NCOL, refer to the number of

rows (scans) and columns (instruments) , respectively, in the input matrix.

The second parameter card contains a single parameter, MAXPLT, which

specifies the maximum number of curves to be plotted on any one graph

in PL0T2 or PLOTS. The parameter MAXCNL defines the actual maximum number

of instruments recorded by the data acquisition system in a single scan.

It may be larger or smaller than the parameter NCOL. A proper choice of

values is important to the efficient operation of the system.

Second, SPEED2 provides direction to the system. Through an input

card, the user indicates his intention to use a particular major subprogram, PLOTl, PL0T2, PLOTS, or PL0T4 . SPEED2 reads this input card and

calls the proper subroutine. The user also has the options, as indicated

through an input card, to process several data sets in sequence. SPEED2

provides this capability, and also erases all input from one data set

before proceeding to the next.

4. PLOTl, PURPOSE AND STRUCTURE

PLOTl, the first of the major subprograms of SPEED2, provides for

the initial input of data from a data acquisition system; checking of

this input data; and optional output of the data to card punch, printer,

or mass storage. With a minimum of data cards, the user can check the

correctness of the data recorded by a data acquisition system.
PLOTl, like SPEED2, reads a data card which indicates the user's

choice of a number of options. The parameters are interpreted, and the

appropriate subroutines are called to perform the desired tasks.

The first card read by PLOTl contains a series of parameters which

indicate the particular input media and data acquisition system used to

record the data, and the action to be taken with the input data matrix.

Options include printing all, some, or none of the input records; punching

the input data onto punched cards or writing to mass storage or magnetic

tape; printing messages when errors are encountered in the input data; and

skipping particular records of data.

In addition to this parameter card, PLOTl requires two cards which

indicate the title of the experiment to be printed at the top of each

page of output. All other cards are optional, as detailed in section 11.

5. PL0T2, PURPOSE AND STRUCTURE

PL0T2 is the second of the major subprograms of SPEED2 . In addition

to all the features of PLOTl, PL0T2 provides for the conversion of analog

instrument readings into standard units through linear or nonlinear

transformations and for analysis of the input matrix.

PL0T2, like SPEED2 and PLOTl reads data cards which indicate the

user's choice of a number of options. These cards are interpreted, and

proper subroutines are called to perform the desired tasks.

The first card read by PL0T2 contains a series of parameters which

indicate the particular input media of the data matrix (magnetic tape,

paper tape, unconverted data cards, converted data cards, etc.), the

data acquisition system used to record the data, and the action to be

taken with the input data matrix. Options include printing all, some,

or none of the records; punching the input data on cards or writing to mass storage; stopping or proceeding after reading the input; printing

some, all, or no input error messages; and skipping specified data records,

Next, a series of parameters is read which indicate actions to be

taken with the converted data matrix. Options include printing, punching,

and writing the converted matrix; generating graphs; making corrections

to the matrix; and stopping after the conversion process is completed.
The remainder of the input is composed of the experiment title,

cards defining the instrviments (or columns) , corrections (if any) , and

directions for the generation of graphs.

5.1 Using PL0T2

In order to use PL0T2 efficiently, the user should first examine

the data collected by the data acquisition system to determine the number

of rows and colvimns needed to store the input matrix. The user should

also determine at this point whether or not new columns, which augment

the input matrix, are to be generated through the use of subprograms

CONV and FIND. If necessary, cards should be prepared to change the

parameters which define the storage area for the input matrix and cards

should be prepared to modify subprogram CONV. Instructions for changing

subprogram CONV are given in section 5.2, and examples of both types of

changes described above are given in appendix B. These cards should be

preceded by the required executive system cards and followed by the

appropriate executive system cards necessary to create and run an executable program.

The user then prepares the data cards. The format and content of

each data card is given in section 11. It should be noted that the main

program, SPEED2, requires two data cards prior to those cards required

by PL0T2.

5.2 Data Transformation

. As previously noted, instrumentation data readings are normally

recorded in millivolts or volts. To convert these readings to standard

units of temperature, length, etc., it is often sufficient to transform

the reading through a linear equation. Some conversions, however,

are considerably more complex and nonlinear.

5.2.1 Linear Transformations

PL0T2 achieves linear transformations as follows: The input data to

PL0T2 includes a series of cards which describe each instrument. For each

instrument, these cards contain the instrument's number, the instrument's

type, and the instrument's name. The name is used only for identification

purposes in printing results. The instrument's number is the channel number

7
assigned by the data recording device. The instrument type is a user assigned number. Generally, instruments requiring the same linear transformation are assigned the same type. However, note that there may be

only one instrument of type 1 (which usually records time) . Following

the instrument descriptors, PL0T2 requires a series of coefficient cards.

These cards contain the transformation coefficients for each type used, 1

through n (assuming n different instrument types have been assigned)

All of this data is passed from PL0T2 to subprogram CONV. For each

instrument, readings have been stored in the columns of the input matrix

REED. Thus if instrument number j appears on the i'th descriptor card,

its readings are

REED(a,i) , Jl=l,]yiAXR(i)

where MAXR(i) is the number of readings of instrument number j.

Furthermore, if the type of instrument number j is k, that is ITYPE(i)=k,

then the appropriate transformation coefficients are C (k) and ADD (k)

Hence, the transformation required is

REED(«.,i) = REED(£,i) * C (k) + ADD (k) , £=1 ,MAXR (i)

5.2.2 More Complex Transformations

Nonlinear or more complicated transformations require the user to

make modifications to subprogram CONV. Such modifications are made by

computer programming using ordinary FORTRAN statements. Clearly, the user will wish to modify a given column of the input matrix; however, the user may not know which column of the matrix contains the readings of the

instrument in question. This may be answered through the use of subprogram

FIND.

Subprogram FIND has four arguments and is invoked through a FORTRAN

statement of the form

CALL FIND (J,I,KH,NCOL)

where KH is the array of instrument numbers in use, NCOL is the maximum

dimension of that array, and J is an instrument number. The value of I,

is computed by FIND and, is the column of the matrix in which the readings
of instrument J have been stored. A convenient convention to follow

is the form

CALL FIND (72,L72,KH,NCOL)

In this example, the readings of instrument number 72 will be found

in column L72 (location of instrument 72)

.

Having located the proper columns of the matrix, nonlinear transformations are carried out through FORTRAN arithmetic statements. Thus the

following simple FORTRAN DO loop

CALL FIND (71,L71,KH,NCOL)

CALL FIND (23,L23,KH,NCOL)

MAXROW=MAXR (L 7 1

)

DO 100 L=1,MAXR0W

REED(L,L71)=REED(L,L71)+REED(L,L23)

100 CONTINUE

would transform the readings of instrument number 71 by adding to it the

readings of instrument number 23. A series of nonlinear transformations

might be programmed as shown below:

CALL FIND (71,L71,KH,NCOL)

CALL FIND (72,L72,KH,NCOL)

CALL FIND (7 3,L73,KH,NCOL)

CALL FIND (74,L74,KH,NCOL)

CALL FIND (80,L80,KH,NCOL)

CALL FIND (81,L81,KH,NCOL)

CALL FIND (82,L82,KH,NCOL)

MAXROW=MAXR (L8 2

)

DO 120 I=1,MAXR0W

REED (I , L71) =REED (I , L71) +REED (I , L72 ) +1 . 37

REED(I,L73)=REED(I,L74)*1.231 + 5.6

REED(I,L82)=SQRT(REED(I,L80) **2 + REED (I , L81) **2)

120 CONTINUE

The first seven cards call subprogram FIND as described above to

locate the instruments to be converted. The instruments are then used

in simple calculations to serve as an example of the use of subprogram

CONV. Obviously, much more complex conversions could be carried out.
The above cards should be inserted in subprogram CONV' as noted in

the examples shown in appendix B.

5 . 3 Making Corrections to the Data Matrix

The PL0T2 segment also provides the capability of modifying or cor- recting entries in the input matrix. Any number of corrections may be

made; however, any single correction may apply only to one single entry,

consecutive entries in a single column, or consecutive entries in a single

row. Corrections are expected if and only if the PL0T2 parameter NCORR

is set non-zero by the user.

Assuming NCORR is non-zero, PL0T2 v/ill read a card containing the

variables IRL (a low row index) , IRH (a high row index) , ICL (a low col\iinn

index) , and ICH (a high column index) . The following restrictions apply:

a. Either IRL=IRH or ICL=ICH or both. Note, if IRL=IRH, all corrections apply to a single row. If ICL=ICH, all corrections apply to a single

coli-imn. If IRL=IRH and ICL=ICH, a single entry will be corrected.

b. IRL is greater than zero but less than or equal to IRH or IRL is

less than zero. IRL less than zero signifies the end of the corrections.

c. ICL is greater than zero but less than or equal to ICH, or both

ICL and ICH are less than zero. Note that both ICL and ICH must be both

positive or both negative. If they are negative, they are interpreted to

be instrument numbers rather than column numbers. In this case, the col- umn i in which instrument niimber ICL is stored is found. Similarly, the

column j in which instrument number ICH is stored is found. Then the

values of ICL and ICH are replaced by i and j respectively. The restriction becomes i is greater than zero but less than or equal to j.

Failure to satisfy any of the above restrictions will result in an error message being printed, and may result in all following data cards

being out of order. Thus, particular care must be taken in the preparation of this card.

There are, in effect, only three valid combinations. They are:

a. IRL is equal to IRH and ICL is equal to ICH meaning correct entry

REED (IRL, ICL)

.

10
b. IRL is less than IRH and ICL is equal to ICH meaning correct

entries REED (IRL, ICL) REED (IRL+1 , ICL) , ..., REED (IRH- 1 , ICL) , and

REED (IRH, ICL)

.

c. IRL is equal to IRH and ICL is less than ICH meaning correct

entries REED (IRL, ICL) , REED (IRL, ICL+1) , ..., REED (IRL, ICH-1) , and

REED (IRL, ICH)

.

In any of the above cases, the number of entries to be corrected is

(IRH-IRL) + (ICH-ICL) + 1

These entry corrections are read from a series of data cards punched

in the format 8F10.0.

5.4 Generating Graphs

PL0T2 provides the capability to generate printer plots of the readings

of either one or more instruments versus those of several other instruments.

This is done only if the input parameter NPLOT is set non-zero by the user.

The program PL0T2 reads a card, containing up to 80 characters,

which is printed as a heading on the graph. The program also reads a card or cards which contains the word PLOT (in any four consecutive

columns, followed by a series of instrument numbers that specify the

instruments to be plotted typed in free format separated by at least one

space. There are two allowable formats for plot cards. If the card

contains a comma separating instruments into pairs such as

PLOT 3999,3017 5999,5017 3999,10017

then the readings from the first instrument of each pair are taken to be

x-values (abscissas) and the second instrument of each pair are taken to

be y-values (ordinates) . If no comma is found on any of the cards, such as

PLOT 999 017 019 021

then, the first mentioned instrument's readings are taken to be x-values

(abscissas) , and readings from the other entered instruments are taken to

be y-values (ordinates) . From one to n curves may be plotted simultaneously

on a single graph, where n equals the SPEED2 parameter MAXPLT

.

11
The user also controls the lower and upper limits of the two axes. A card is read containing the desired lower and upper limits of the x and Y axes, XL, XH, YL, and YH, respectively. Care should be taken in

choosing the limits to insure that readable values are printed on the

axes. One important note is that points which fall outside the ranges

determined for the two axes, are neither plotted nor noted.

Finally, the program reads a single card with two messages of 40

characters each. The first is printed vertically as a title for the

y-axis , and the second is printed below the graph as a title for the

X-axis.

After printing the graph, the program seeks another set of graph

defining cards. A blank card signals the end of the plotting phase which

is the final portion of PL0T2

.

6. PL0T3, CALCOMP PEN PLOTTING OF DATA

The third of the major subprograms of SPEED2, PL0T3, allows the user

to prepare high quality ink pen plots. PL0T3 is designed to accept data

generated by PL0T2 and prepare a magnetic tape to be plotted off-line on

a CalComp plotter. Many of the subroutines used by PLOTS are proprietary,

however, and may be used only by license from California Computer Products,

Inc. Like the other major subprograms, PLOTS reads data cards which indicate

the user's choice of a number of options to control the generation of the

plots

.

The first two cards read in the PLOTS phase contain parameters which

specify certain parameters which control the generation of the graphs produced. The user can specify the type of curve generated, either a smooth,

fitted curve, or a curve connecting points on the graph with straight lines;

whether to print or not to print the data; the course of action to be

taken if points are found that would be out of bounds on the graphs produced; whether to put axes on two or four sides of the plots; the spacing

of plotting symbols on the curves produced; and whether or not to read

cards to produce legends on the curves. In addition, the user can specify the size of the horizontal and vertical axes of the graphs, and a scaling factor to increase or decrease the overall size of the plots

produced.

12
A number of cards are then read which specify the experiment title,

define the instruments, and specify the plots to be produced, in a fashion similar to that used in PL0T2. Note that no conversion of data is

made in PL0T3. Only reduced data (data processed by PL0T2) is read by

PL0T3.

6.1 Using PL0T3

As with PL0T2, some forethought should be given to the data to allow

the most efficient use of the SPEED2 system. The user should examine the

data to determine the number of rows and columns needed to store the input

matrix and the maximum number of curves on any single graph. If necessary,

cards should be prepared to change the parameters which define the storage

area for the input matrix exactly as was done with PL0T2. Of course, these

cards should be preceded by and followed by the necessary executive system

control cards to create an executable program.

The user then prepares the data cards. The format and content of

each card is defined in section 11. As with PL0T2 , SPEED2 requires data

cards prior to those required by PLOTS.

6.2 Generating Pen Plots

PL0T3 is designed to prepare a magnetic tape to be plotted on a CalComp plotter. For each plot prepared, the readings of one or more

instruments are plotted versus those of one or more other instruments.

A card is read which contains a figure number and two 39 character

title lines which are placed below the plot as the title of the plot.

Also read is a card containing two messages of 40 characters each. The

first is printed as the title for the y-axis, and the second for the

X-axis. All of the titles are centered along their respective axes.

PL0T3 has the capability to produce plots with linear, semi-log (with

the log axis along the y-axis) , or log-log axes. The program reads a card

or cards containing either the word PLOT for a linear plot, SPLOT for a semi-log plot, or LPLOT for a log-log plot in any consecutive columns followed by a series of instrument numbers that specify the instruments to

be plotted. As with the PL0T2 printer graphs, there are two allowable

13
formats for the cards. If the card contains a comma separating instruments

into pairs, such as

PLOT 3999,3017 5999,5017 3999,10017

SPLOT 3999,3017 5999,5017 3999,10017

LPLOT 3999,3017 5999,5017 3999,10017

the readings from the first instrument of each pair are taken to be x- values (abscissas) , and the second instrument of each pair is taken to

be y-values (ordinates) . In the above statements, instrument 3999 is

plotted versus 3017, 5999 versus 5017, and 3999 versus 10017. If no comma is found on any of the cards, such as

PLOT 999 017 019 021

then the first mentioned instrument's readings are taken to be x-values

(abscissas) and the readings from the other entered instruments are taken

to be y-values (ordinates) . As with PL0T2, up to MAXPLT curves may be

plotted on a single graph. If a card containing instrument numbers contains

a semicolon in column 80, then another card is read and interpreted as containing additional instrument numbers for plotting on the same graph.

As many cards as are needed may be used to specify instrument numbers.

The user can also control the lower and upper limits of the two axes. A card is read containing the lower and upper limits of each axis. Care

should be taken in choosing the limits to insure that readable values

are printed on the axes. However, PL0T3 checks these numbers to insure

that readable numbers will be printed and may modify the limits to insure

readability.

Finally, the program reads a single card containing two messages of

40 characters each. The first is printed as the title for the y-axis,

and the second for the x-axis. As with the graph heading, the axis titles

should be centered in their 40-character spaces to insure that they will

be centered properly on the plot.

For example, the following sequence of cards

SPLOT 999,017 36,123 231,84

93,998 41,86

78,81

0.0 250. 0.001 100.

14
OIRATE OF DECOMPOSITION

TIME (HOURS) RATE (1/SEC)

would prepare a single semi-log graph of instriiment 999 versus 017, 36 versus

123, 231 versus 84, 93 versus 998, 41 versus 86, and 78 versus 81. The x-axis

limits would be from 0.0 to 250. and the y-axis (a log scale) from 0.001

to 100. The title for the plot would be FIGURE 1: RATE OF DECOMPOSITION.

The X and y axes would be labeled TIME (HOURS) and RATE (1/SEC)

,

respectively

.

PL0T3 also provides a means for the user to place a legend on the

graph. The legend can be positioned anywhere on the graph and lines of

text, up to 60 characters each, can be optionally prefixed with a symbol

to identify legends for individual curves.

After generating the necessary information on the magnetic tape, the

program seeks another set of graph defining cards. A blank card signals

the end of the plotting, and the program prepares the tape for plotting.

7. PL0T4, COMBINING SEVERAL SETS OF DATA

PL0T4 is the last of the major subprograms of the SPEED2 system.

PL0T4 allows the user to perform analysis and plotting on a number of

instruments from several different tests, possibly with repeated instrument numbers in the tests. By renumbering the instriiments to include a test number for each instrument, PL0T4 creates a new data set consisting

of the readings of the renumbered instruments. Further analysis may then

be performed on this new data set using PL0T2 or PL0T3 as desired.

As an example, consider an instrument numbered 121 from 11 different

tests numbered arbitrarily test 3 through test 13. PL0T4 would perform a renumbering of the 11 instriiments as 3121, 4121, 5121, 6121, 7121, 8121,

9121, 10121, 11121, 12121, and 13121, respectively. These instruments

may then be punched on cards or written to mass storage and referenced in

either PL0T2 or PL0T3 as reduced data using the new instrument numbers

3121 through 13121.

7.1 Using PL0T4

As with the previous major phases of SPEED2, the user should determine

the number of rows and columns needed to store the readings of the instruments

15
to be processed. If necessary, cards should be prepared to " change

the parameters which define the storage area for the input matrix. Of

course, these cards should be preceded by the required executive system

cards and followed by the appropriate executive system cards necessary to

create an executable program.

The user then prepares the data cards. The format and content of each

data card is described in detail in section 11 and generally outlined below.

It must be noted that as with PLOTl, PL0T2 , and PL0T3, the main program,

SPEED2 requires two data cards prior to those required by PL0T4

7.2 Renumbering of Instruments Using PL0T4

The first card read by PL0T4 contains two parameters that specify

whether the data is to be printed and/or punched onto cards or mass storage. After reading title cards, cards defining the instruments to be

selected from the various tests are included. Each instrument card con- tains a test number, provided by the user; an instrument number within

the test; and a short description of the instrument. The remainder of

the cards is comprised of the reduced data from each test preceded by

a card of the form

TEST nnn

defining a test number for each test. Specifications for the data cards

are given in section 11 along with examples of the use of PL0T4 in appendix B,

8. RESTRICTIONS ON THE USE OF SPEED2

The system, SPEED2 , has been tested and continues to be tested by

the authors. Users are requested to report any problems which arise

through the use of SPEED2 . Users should not modify any of the programs

in this system with the exception of changing the parameters (see section 3)

and inserting nonlinear transformation statements in subprogram CONV

(see section 5). Examples of these changes are given in appendix B. Any

other substantive changes are strongly discouraged without a detailed

knowledge of the internal structure of the SPEED2 system.

16
While most of SPEED2 is written in a portable subset of FORTRAN IV and

thus is compatible with a variety of computers, a number of exceptions were

found when the subprograms were verified using the VERIFIER developed by

Bell Laboratories [2]. These are described below:

a. Subprograms EREXIT, BYTE and NTRAN are written in UNIVAC assembler

language. These would have to be replaced with the equivalent routines to

be used on another machine.

b. A number of subprograms make use of Hollerith literals in arithmetic operations. To use SPEED2 on a computer other than a UNIVAC 1100

series computer, the computer must have the ability to arithmetically

manipulate character strings.

c. The PARAMETER statement used in the main program, SPEED2 , is

unique to UNIVAC FORTRAN. Actual dimension limits for the variables

NROW, NCOL, MAXPLT, MAXCNL, INDIM, OUTDIM, NPTS , and PLTDIM must be substituted in the main program to use SPEED2 on another computer. An alternate main program that has been successfully used on an INTERDATA 7/32

minicomputer is included in the program listing in appendix A.

d. Finally, PLOTS makes use of a niomber of CalComp proprietary

subprograms which must be obtained by a given computer installation from

California Computer Products, Inc. The authors believe that a detailed

description of the many secondary subroutines would be either too brief

to be of value or too complex to be comprehended. Thus, such statements

have been omitted unless absolutely necessary.

9. NOTES ON THE USE OF SPEED2

9.1 Choice of NROW and NCOL

Choosing NROW and NCOL should be done with care. If values are chosen which are too small, execution will be terminated when the input

matrix size exceeds the allocated size. Conversely, computer use charges are based, in part, on the allocated storage. Too large values

of NROW and NCOL will cause excess costs. In addition to the input matrix,

REED, being dimensioned NROW by NCOL, the arrays KH, ITYPE, C, X. Y, and

NAME all depend on NCOL for their size. Thus, the storage allocation for

all of these arrays is approximately

17
(NROW+15) * (NCOL+13) .

On the NBS UNIVAC 1108, this product should not exceed 45000.

9.2 Instrument Definition Cards

As noted in section 5, each instrument is defined by a card containing

the instrument number, type, and name. The use of these data in the con- version process has already been explained, but other points should be

mentioned.

First, subprogram PRINT prints only those instruments defined through

an instrument card. Thus, each instrument whose readings are to be printed

must be defined, whether the instrument is real or whether it represents

some combination of other instruments formed through the use of subprogram

CONV. Conversely, if the user wishes to divide his experiment into several

smaller sub-experiments, he may omit the processing of data for any instruments by omitting their defining cards. One exception to this rule is the

instrument card which defines time. If its defining card is left out, the

•program will internally reserve space for it in the array REED. However,

if its card is not included, the time readings will not be available for

plotting or conversion.

Second, subprogram PRINT will print the converted instrument readings,

in columns, in the order in which the defining cards appear. Thus, the user may predetermine this printout order in whatever way is most convenient

and may easily change the order if the computer run is repeated. As previously mentioned, each column will be headed by the first six characters

of the instrument's name.

Finally, if the user indicates a desire to punch the converted matrix

on cards or mass storage through setting NPNCH non-zero, the above comments

apply to these cards too.

9.3 Unconverted Input

Data acquisition systems record readings from instruments in a variety

of different formats. Table 1 presents the formats used in a niomber of

different data systems. Several characteristics common to the different

systems are detailed below.
a. A time reading is usually prefixed to the series of instrument

readings. Time readings and instrument readings are of different formats.

b. Time readings consist of digits to indicate days, hours, minutes,

and/or seconds, perhaps separated by spaces or other special characters.

c. Each instrument reading consists of characters to indicate a channel number assigned by the data acquisition system, the sign of the

reading, the value of the reading, and a channel overflow indicator.

d. Within a single scan, the time reading and each instrument reading

is separated by spaces and/or other special characters.

e. Scans are separated by a special character sequence on card

images or by a record separator on magnetic tape.

f. The end of the test data recording is indicated by a special

character sequence or by an end of file mark on magnetic tape.

Table 2 presents sample scans from a number of different data systems.

Tables 1 and 2 also provide guidelines to follow if cards are to be prepared

by the user.

9 . 4 Converted Input

Converted instrument readings also require that data be prepared

following a particular format. The readings from each instrument are prepared in a format similar to table 2. Each set of readings from an instrument begins with a data card specifying the number of readings of

the instrument and the instrument number in a format 216, followed by

a series of cards containing the readings. The readings, in the format

E10.5, are packed eight readings per card. Finally, the end of test is

indicated by a card with 999 in columns 78, 79, and 80.

9.5 Creating New Instruments

Complex transformations made through the use of subpro-jram CONV may

include new instruments representing combinations of othc^- instruments.

19
It should be noted that the user must specify the number of readings in

the created instrument by setting MAXR for the created instrument.

10. DIAGNOSTIC AND ERROR MESSAGES

The SPEED2 system is designed to intercept and interpret most user

errors and to print a diagnostic or error message indicating the error. While most messages are self-explanatory, they are listed below, along

with explanations of the errors and how to correct them.

10 . 1 Unconverted Data Checking

When the unconverted data are input to the program in any of the

available forms , the data are checked for errors in the format of the

data or for illegal characters, etc. If errors are found, a message

is printed. Five different messages are possible. The first indicates

an error in the unconverted data. This can either be an illegal character in the data, or data in which characters are out of sequence,

bad, or missing. The message takes the form

CHARACTER SEQUENCE ERROR RECORD: i CHARACTER: j

The record index, i, is the record (scan) number of the particular

record in error and the character index, j, is the number of the actual

character in error. The normal action taken by SPEED2 is to set the

particular reading in error to zero and continue processing. If the user has prepared punched data cards or card images on mass storage of

the unconverted data, and the user wishes to correct the error, the data

can be edited, corrected, and the program re-run with the corrected set

of data. The user could also simply replace the reading in error by

using subprogram CORR to correct the reading.

The second type of error message indicates an overflow in a data

reading from the data acquisition system. It takes the fo2nn

OVERFLOW WARNING RECORD: i CHARACTER: j CHANNEL: k

All comments made for the previous error message also apply for this diagnostic warning. The channel number as recorded by the data acquisition

system, k, is also given.

20
The third type of message indicates simply that the record length of

a single scan through the instruments has changed from the last scan. It

is simply a warning to the user that something may be wrong with the data.

It takes the form:

RECORD LENGTH WARNING RECORD: i OLD LENGTPI : j NEW LENGTH: k

The record number, i, the length of the last scan, j, and the length of

the current scan, k, is given.

The last two error messages indicate a duplicate time or channel

reading in a single scan. The messages take the form:

MULTIPLE TIME ERROR RECORD: i CHARACTER: j

MULTIPLE READING WARNING RECORD: i CHARACTER: j CHANNEL: k

The record number, i, and the character number, j, are given for both

messages. The channel number, k, is also given for the channel warning.

10.2 Data Cards and Format Errors

Many user errors result from improper placement of or from incorrect

formats on data cards entered by the user. While it is urged that the user carefully check the data cards before running SPEED2, such errors

are bound to occur. Each data card read by SPEED2 has a unique identification (SPEED2 Data Card Al, PLOTS Data Card D3 for instance) . If

format errors are found on data cards, program execution is halted and

an appropriate error message is printed. Two messages are possible for

read errors, but both take the same form:

FORMAT ERROR ON is eg DATA CARD icrd

or

END OF FILE ENCOUNTERED ON iseg DATA CARD icrd

PRECEDING DATA CARDS MAY BE IN ERROR

The two variables, iseg and icrd, are the program segment (SPEED2,

PLOTl, PL0T2, PLOTS, or PL0T4) and the card identification (Al , DS, etc.).

21
10.3 Other Messages and Diagnostics

Many other error messaged are printed by the SPEED2 system to alert

the user of possible errors encountered during the processing of data by

SPEED2. A short explanation is provided below for each along with an explanation of how it can be corrected.

ONLY ONE INSTRUMENT OF TYPE 1 IS ALLOWED

SECOND FOUND AT INSTRUMENT NUMBER i

Instrument Type 1 is reserved to indicate the time channel.

Obviously, only one channel is allowed for this. If more than one is

found, program execution is stopped. The user must correct the instrument cards so there is only one instrument of Type 1, the time channel.

COLUMN STORAGE LIMITS EXCEEDED AT COLUMN i

CHECK PARAMETERS NCOL AND NROW

The user has not allowed enough room for the instruments he wishes

to process as defined by the instrument defining cards. The PARAMETER

NCOL should be increased to the proper size.

ILLEGAL INPUT FILE TYPE SPECIFIED FOR INTYPE

The user has specified an illegal number for the input file parameter

INTYPE, or there is a format error on the data card on which INTYPE is

read.

ROW STORAGE LIMITS EXCEEDED AT ROW i

CHECK PARAMETERS NCOL AND NROW

The user has not allowed enough room for the number of scans in the

experiment. The PARAMETER NROW should be increased to the proper size.

READING OF INPUT FILE TERMINATED BY NTRAN ERROR, STATUS: i

An unrecoverable error has occurred while reading the magnetic tape

with NTRAN. All data read in and processed up to the point of error is

processed however. There are ways to read magnetic tapes with such errors;

however, none appear to be very reliable. (UNIVAC 1100 only)

22
INPUT RECORD SIZE OF i EXCEEDS BUFFER SIZE

CHECK PARAMETER NAXCNL

The standard version of SPEED2 is configured for a maximum of 150

channels of data per record (scan) . More than the maximum number of

channels, MAXCNL, have been processed in one record. To correct this,

check the input data and/or increase the PARAT^ETER MAXCNL.

READING TERMINATED BY READ ERROR OR END OF FILE

Reading of the unconverted input data has been terminated by a read

error or by an attempt to read past an end of file. Usually, there is a format error on the input punched cards. The user should check the data

to insure it is in the proper format.

NUMBER OF READINGS FOR INSTRUMENT NUMBER i EXCEEDS STORAGE LIMITS,

CHECK PARAMETERS NROW AND NCOL

There are too many readings of reduced data for instrument number i, or there is a format error on the card defining the instrument in the

reduced data set. The user should check the data for correctness and/or

increase PARAMETER NROW.

ERROR ON FOLLOWING CORRECTION CARD

The user has specified NCORR non-zero and subprogram CORR has found

an error on the correction cards. The user should check the format of

the data cards. The card in error is printed.

ERROR IN SUBPROGRAM FIND

NO REFERENCE TO INSTRUMENT NUMBER i CAN BE FOUND

Instrument number i was not defined on an instrument card, and the

instrument was referenced during transformations using subprogram CONV.

The results of the calculations are unpredictable, and the user should

check the FORTRAN modifications to subprogram CONV carefully.

23
11. DATA CARDS FOR THE EXECUTION OF SPEED2

The data cards required for the execution of SPEED2 fall naturally

into five major divisions: those cards required by the main program,

SPEED2, and cards directing the execution of each of the major phases

of SPEED2 — PLOTl, PL0T2 , PL0T3, and PL0T4, In addition, the data

cards for each major phase fall into distinct parts. These are described below.

11.1 SPEED2 Data Cards

The main program segment, SPEED2 , requires two data cards to control

the execution of the other program segments. The content and format of

these cards is described in table 3. One data card that specifies the

number of sets of data is followed by sets of cards defining the major

phase of SPEED2 to be used to process each data set and the cards required

by the major phase specified on that card. NSETS sets of these cards are included in the total set of data cards.

11.2 PLOTl Data Cards

If the user specified PLOTl on SPEED2 data card A2 , then cards are read as defined in table 4 to control the execution of PLOTl. The six

distinct parts defined for PLOTl are:

A: PLOTl Control Parameters - required

B: Experimental Title - required

C: Data Acquisition System Definition - optional

(only if INTYPE=0)

D: Skipping Records of Data - optional

(only if INSKIP is non-zero)

E: Unconverted Data Cards - optional

(only if INTYPE specifies cards)

F: Converted Data Cards - optional

(only if INTYPE=4)

Data cards Part C through F are optional and are only required

depending upon the values of certain control parameters defined in Part A.

24
11.3 PL0T2 Data Cards

The data cards required for the execution of PL0T2 fall naturally

into nine distinct parts. Not all parts are required in each run. Whether or not a certain part is required depends on the values of certain

input parameters described below and detailed in table 5.

H:

I:

PL0T2 Control Parameters - required

Experiment Title and Instrument Description - required

Data Acquisition System Definition - optional

(only if INTYPE=0)

Skipping Records of Data - optional

(only if INSKIP is non-zero)

Unconverted Data Cards - optional

(only if INTYPE specifies cards)

Converted Data Cards - optional

(only if INTYPE=4)

Reading Corrections to Data - optional

(only if NCORR is non-zero)

Cards Read By the User in CONV - optional

Generating Printer Plots - optional

(only if NPLOT is non-zero)

11.4 PLOTS Data Cards

The data cards for the execution of PL0T3, described in table 6,

fall into four distinct parts. All parts are required for execution.

PLOTS Control Parameters - required

Experiment Title and Instrument Definition - required

Converted Data Cards - required

Generating Pen Plots - required

25
11.5 PL0T4 Data Cards

The data cards required for the execution of PL0T4 are described in

table 7. The three major parts are:

PL0T4 Control Parameters - required

Experiment Title and Instrument Definition - required

Converted Data Cards for Each Test - required

12 . REFERENCES

[1] Smith, John M. , Automatic data evaluation, manipulation, display,

and plotting with SPEED, Computer Graphics, Vol. 4, No. 2, 41-53

(Fall 1970)

.

[2] Ryder, B. G. , The FORTRAN verifier: user's guide. Bell Telephone

Laboratories, Incorporated, Murray Hill, New Jersey.

26
o o U b

Id u s

+) <u> Q o e

•HH

Ij3 U- . n P

0)

h

H >, & <U a- -p

PQ -H

<S 04

n S IQ ^D (0 t^ in en

<4-l

Q

a

0) z a -H b h:) a C PLI O H H M a tn h

it-i -aM

b; •V o O

X c <u U CQ a K n m w w

en CO w c/i w to

g 01 <U 01 (U a) Ot 73

4J •H lO

U

m

u Eh (fl >i <u U w w

n) o 4J 0) jj o dJ Si

(0 * C Q in Cn

G

10 3 « S ft <Q

01

01 •H^

<u w

01 00 73u

10 to

4-1

U

(0 a Tl

0)

4-1 x; p o < c3

0^ Qj <Q

-o CJi c c

(0 13 ^ IT) 73

01

O (1)

w « P p (fl 3 (1) <u C e a

U •H

H (U

a EH a;

p

nJ ^ y-i ui m -H

•H l-( "0 3 01

n c -0 0)

M

H

KC P

(1)

u P 5 ^ O (0 o 01 <D H 01

(0 .-1 >i

W (B (U

Q

Q

Q

M M-l (0 .c e

rO

M

DU -H

fef S [i<

a 3 U % 1 EH0)

O

H

O

HH o ^ o M h U b h >iC<1 <1

Eh 00 1

icO < o

q'

CO

Oi « O X o x; M m M to Q Q Q Q

01 •HM

0) w

<U 01 Oi a -a

(0

M

n) EH (d p u

n)

O

'O •H 73 p (1) P o x; 3 a u < CJi c

(S 3 « S ft <Q

mm

n

m

m ffl m (Q m ffi CO w w w i i K X

JU E

PQm

Qa

§^

01 01 O O m to u u u u u u ^

10o

CNQ

ft (1) 01 a <x3 01 Cd IH 3 Eh to Di U C O < H 73 P <D

(1) 0) £ C C O

rH CJi

C

r-H IS (U •P

01 H c Di

•rH

C

73

H

(0

a en

0) to ^-^

C

cr; 0) 05 1 •H

73

iw o (0

0) o

73

p •H M-l 3 c ^

iH P o OJ •H c to 0) C H 3 3

01 Di

m s rH

to

X lO s w sC < > I I I I I > M m s cc;

73U

0)

.-1

O •H a h P

•H

<H ItH Di •HQ

73 73

r

CC

W ><l

WW (U enc

4) 0) 'pH SH ft ft 3 73 (U to to S lO p

EH EH Ql o

iH Qi lO

Ou (UM

•H •H c tu Id P P c ^

0) <U 10

u c C £ c

tp Oi

U tn (U

lO to •H x: a1 a < W Eh a I u 1

01

X o o w H

27
Table 2* Da+a Acqutsltton Systen Formats

VIDAF. 5400 SERIES

SPEEDS Data Acq,ui«ltlon System Format Specification

INPUT=TAPE

HE ADi NG=3* ( C ) ( + 1 ++-2—0900 )5* C V ) ( E ) 2* (K ) TIME=3*(S)(K6)6*<S)2*<K ) EOR=EOR

EOF=EOF

0006000000 0001000166 0012000016 0021000036 0031000016 0041000016

0051000926 0061000036 0C72000016 0C81C0CC16 0092000016 01010C0046

0112000016 0121000026 0132000016 0141000036 0151000036 0162000016

0172000016 0181000026 0191C00066 0201000036 0212000006 0221000026

(MAGNETIC TAPE RECORD GAP)

OOC600C003 C002CeOC06 0011000C16 C021C00036 0031000026 0C420C0016

0051000026 0061000016 0072000016 0062000006 0092000006 0101000046

0112000016 0121000036 01320C0016 0141000026 0151000046 0162000016

0172000016 0181000036 0192000006 0201000046 0212000016 0222000016

(MAGNETIC TAPE RECORD GAP)

(MAGNETIC TAPE END OF FILE)

28
TabLe 2* Data Ac<iutsttton System Formats* cant*

VIOAR 5400 SERIES

SPEED2 Data Acqulsttton System Format Spec t ft cat ( on

INPUT=CARD IMAGES

REAOING=3*(C)C+l++-2—0900)5* (V> ( E)2*<K ) TIME-3^(S)(K6)6'^(S)2*<K ) ECR=<K J(KX)

E0F-(KF)(KI)<K1.)(KE)<KN)(K0)

0006000000 0001000166 0012000016 0021000036 0031000016 0041000016

0051000026 0061000036 0072000016 0081000016 0092000016 0101000046

0112000016 0121000026 0132000016 0141000036 0151000036 0162000016

0172000016 0181000026 0191000066 0201000036 0212000006 X 0006000003 0002000006 0011000016 0021C00036 0031000026 0042000016

0051000026 0061000016 0072000016 0082000006 0092000006 0101000046

01120000ie 0121000036 0132000016 0141C00026 0151000046 0162000016

01720C0016 0181000036 0192000006 C2C10CCG46 0212000016 X F I LEND

29
Table 2* Data Acq.ulsttton Sj/stem Formats* cont*

SPEED2 REDUCED DATA

SPEEDS Data Acquisition Sys+era Format Specification

357 31

, 270C0+02

.27000+02

,270C0+02

,27000+02

,27000+02

,27000+0 2 ,27000+02

,27000+02

,27000+02

,27000+02

,27000+02

,27000+02

,27000+02

,27000+02

,280C0+02

,28000+02

,28000+02

,28000+02

,28000+02

,28000+02

,28000+02

,28000+02

,28000+02

,28C00+02

,28003+02

,290C0+02

.2900 0+02

, 290C0+0 2

,29 00 0+02

,30000+02

, 300C0+0 2 ,30000+02

,30000+02

,30000+02

,31000+02

,31000+02

,31000+02

50TC 1 .27000+02

.27000+02

.27000+02

.27000+02

•27000+02

.27000+02

•2700 0+02

.27000+02

•27000+02

.27000+02

•27000+02

.27000+02

•27000+02

•27000+02

.270CO+02

•28000+02

.28000+02

•27000+02

.28000+02

•28000+02

.28000+02

.28000+02

•28000+02

.26000+02

•28000+02

.29000+02

•29 000+02

.29000+02

• 29 00 + 02

.29000+02

.30000+02

•30000+02

.30000+02

•30000+02

.30000+02

•31000+02

.31000+02

.27000+02

•27000+02

.27000+02

•27000+02

•27000+02

.27000+02

•27000+02

.27000+02

•27000+02

.27000+02

.27000+02

.27000+02

• 27000+02

•27000+02

.28000+02

•27000+02

.26000+02

•27000+02

.28000+02

•28000+02

.28000+02

.28000+02

•28000+02

.28000+02

•28000+02

.29000+02

•29000+02

.29000+02

•29000+02

.30000+02

.30000+02

•30000+02

.30000+02

•30000+02

.30000+02

•31000+02

.31000+02

.27000+02

•27000+02

.27000+02

•27000+02

•27000+02

.27000+02

•27000+02

.27000+02

•27000+02

.27COO+0 2 •27000+02

.27000+02

•27000+02

•27000+02

.270C0+02

•28000+02

.28000+02

•28000+02

.28000+02

•28000+02

.28000+02

.28000+02

•28000+02

.28000+02

•29000+02

.29000+02

•29000+02

.29000+02

•29000+02

.300C0+02

.30000+02

•30000+02

.30000+02

•30000+02

.31000+02

•31000+02

.31000+02

.270CO+02

•27000+02

.27000+02

•27000+02

•27000+02

.27000+02

•27000+02

.27000+02

•27000+02

.27000+02

.27000+02

.27000+0 2 •27000+02

.27000+02

.27000+02

•28000+02

.27000+02

•28000+02

.27000+02

•28000+02

.28000+02

.28CO0+02

.28000+02

.29000+02

•28000+02

.29000+02

•29000+02

.29000+02

•30000+02

.30000+02

.3C 000+02

•30000+02

.30000+02

.30000+02

.31000+02

•31000+02

.31000+02

.27000+02

•27000+02

.27000+02

•27000+02

•27000+02

.27000+02

•27000+02

.27000+02

•27000+02

.27000+02

•27000+02

.27000+02

•27000+02

•27000+02

.27000+02

•27000+02

.28000+02

•28000+02

.28000+02

•28000+02

.28000+02

.28000+02

•28000+02

.28000+02

•29000+02

.29000+02

•29000+02

.29000+02

•29000+02

.30000+02

.30000+02

•30000+02

.30000+02

.30000+02

.31000+02

•31000+02

.31000+02

.27000+02

•27000+02

.27000+02

•27000+02

•27000+02

.27000+02

•27000+02

.27000+02

•27000+02

.27000+02

•27000+02

.27000+02

•27000+02

•27000+02

.27000+02

.27000+02

.27000+02

•28000+02

.28000+02

•28000+02

.28000+02

.28000+02

•28000+02

•28000+02

•29000+02

.29000+02

•29000+02

.29000+02

•30000+02

.30000+02

.30000+02

•30000+02

.30000+02

•30000+02

.31000+02

•31000+02

.31000+02

.27000+02

•27000+02

.27000+02

•27000+02

•27000+02

.27000+02

•27000+02

.27000+02

•27000+02

.27000+02

•27000+02

.27000+02

•27000+02

•27000+02

.27000+02

•27000+02

.27000+02

•28000+02

.28000+02

•28000+02

.28000+02

.28000+02

•28000+02

.28000+02

•29000+02

.29000+02

.29000+02

.29000+02

.29000+02

.30000+02

.30000+02

•30000+02

.30000+02

•30000+02

.31000+02

•31000+02

.31000+02

30
Table 2c Data Acquisition System Formats^ conte

VIDAR AUTOOATA EIGHT

SPEED2 Data Acquisition System Format Specification

INPUT=CARO IMAGES

READING=(N)(K )3*(C)(K )(R0 ) SOCR )2*( A) (K ) TIME=2*(H)(K:)2*(M)75*<K ) E0R=80*(K ) EOF=(KF){KI)(KL»(KE)(KN)(KD)

05:2A

5 105 0027.6 C 5 106 0030.0 C 5 107 0028.3 C 5 108 0030.2 C

5 109 0441*0 C 1 110 010a52MV 1 111 000*87MV 2 112 0e0984 V 05:25

5 105 0027.3 C 5 106 0030.2 C 5 107 0028.3 C 5 108 0030.5 C

5 109 0443e8 C 1 110 011»18MV 1 111 001«06MV 2 112 0*0994 V FILENO

31
Table 2* Da + a Ac<iu<s(t(on Sj/s+em Formats* cont.

ESTERLINE ANGUS PD20e4

SPEED2 Da + a Ac<iu t s (t <on System Fopmat Specification

1NPUT=TAPE

READING=(KC)3*(C)(K )(K 0*N)(+ —)6*(RC )CK )2*(A)2*<K ) TIME=4*(<-N)2*(K }2*(0)(K )2* ( H)( K: )2* ( M ) ( K : )24'( SMK ) (KH) ( KR )2*( K ) EOR=E0a

EOF=EOF

0002 01 14:25:00 HR COOO 0073.2 OF COOl 00.012 MV C002 0075.1

OF CC03 0078.0 OF C004 0079.3 OF COOS 0080.3 OF C006 0080.3

OF C007 0079.4 OF COOS 0078o

1

OF C009 0075.1 OF COlO 0073.6

OF coil 0074.0 OF C012 0072.1 OF C013 0073.1 OF C014 0074.3

OF C015 0074.7 OF C016 0074.4 OF C017 0074.8 OF COlS 0074.4

OF C019 0072.6 OF

( MAGNETIC TAPE RECORD GAP)

00 02 01 14:26:00 HF. OF C003 077.8 OF CF C007 0079.1 OF

OF COll 0074.4 OF

OF CO 15 0074.2 OF OF C019 C072.2 OF

(MAGNETIC TAPE RECORD GAP)

(MAGNETIC TAPE END OF FILE)

COOO 0073.2 OF COOl 00.008 MV C002 0075.0

C004 0079.0 OF COOS 0079.7 OF C006 0079.9

COOS C078.5 OF C009 0075.3 OF COlO 0073.8

C012 0072.1 OF CO 13 0072.6 OF C014 C 0074.8

C016 0073.5 OF C017 0072.1 OF C018 0074.4

32
Table 2. Data Ac^utsitlon Sys-teai Formats* cont*

ESTERLINE ANGUS PD2C6*

SPEE02 Data Acquisition System Format Sped ft cat t on

INPUT=CARD IMAGES

READ1NG=(KC)3*(C)(K HK D*mi+ —)6*(R0 )(K )2*(A)2*(K ) TIME=4*(K-N>2*(K" I2*(0)(K )2>«< ( H) ( K: )2*(M )C K : )2*(S) (K ) (KH ) (KR ) 2*( K ) E0R3(K )(KX)

E0F=(KF)(KI1 (ia.)(KEX(KN)(KO)

0002 01 14:25:00 HR COOO 0073.2 OF COOl 00.012 MV C002 0075.1

OF CO 03 0078»0 OF C004 0079.3 OF COOS 0080.3 OF C006 0080.3

OF C007 0079.4 OF C008 0078.1 OF C009 0075.1 OF COlO 0073.6

OF coil 0074.0 OF CO 12 0072.1 OF CO 13 0073.1 OF CO 14 0074.3

OF CO 15 0074.7 OF CO 16 0074.4 OF C017 0074.8 OF CO 18 0074.4

OF CO 19 0072*6 OF X 0002 01 14:26:00 HR COOO 0073.2 OF COOl 00.008 MV C002 0075.0

OF C003 0077.8 OF C004 0079.0 OF COOS 0079.7 OF C006 C079.9

OF C007 0079.1 OF C008 0078cE OF C009 0075.3 OF COlO 0073.8

OF coil 0074.4 OF C012 0072.1 OF C013 0072.6 OF C014 0074.8

OF C015 0074.2 OF C016 0073.5 OF CO 17 0072.1 OF CO 18 0074.4

OF C019 0072.2 OF X FILEND

33
Tabic 2« Data Acq.ulsttton System Formatst cont*

VIDAR AUTOOATA NINE

SPEE02 Data Ac(iutsItton System Format Specification

1NPUT=TAPE

READING=3*(C>(K ) ( )5*<V0 ) ( VK )3*(A)(E0 )fKX)

TIME=3*(D)2*(H)(K: )2*(M)(K:)2«(S)4*(K )(KX)

EOR=EOR

EOF=EOF

22009:30:04 XlEl +00029 C0X152 00027 C0X1E3 +00026 C0X154 +00023 COX

155 f0002e C0X156 +00023 C0X157 +00022 C0X158 +00022 C0X159 +00022 COX

160 4^00026 C0X161 +00024 C0Xie2 +00024 C0X163 +00024 C0X164 +00023 COX

165 +00024 C0X166 +00023 coxie7 +0OC23 coxie8 +00023 C0X169 +00024 COX

170 +00023 C0X171 +00022 C0X172 +00023 C0X173 +00026 C0X180 +09874 MVOX

181 +10008 MV0X182 +10089 MV0X183 +10041 MV0X184 +10073 MV0X185 +10321 MVOX

186 +C0C02 MV0X187 +00001 NIV0X188 +00001 MV0X189 +00000 MV0X190 +00001 MVOX

191 +00070 MV0X192 +00123 MV0X193 +00022 MV0X194 -00004 MV0X195 -00007 MVOX

196 +00057 MVOX

(MAGNETIC TAPE RECORD GAP)

22009:30:i9 X151 +00034 C0X152 +00031 C0X153 +00033 C0X154 +00047 COX

155 +C0060 C0X156 +00022 C0X157 00022 C0X158 +00022 C0X159 +00022 COX

160 +00025 C0X161 +00024 C0X162 +00024 C0X163 +00024 C0X164 +00023 cox 165 +0 0024 C0X166 00023 C0X167 +00023 C0X168 00023 C0X169 00024 cox

170 +00023 C0X171 +00022 C0X172 +000 22 C0X173 +000 26 C0X180 +09857 MVOX

181 +10001 MV0Xie2 +10078 MV0Xie3 +10035 MV0X184 +10068 MV0X185 10320 MVOX

186 +00002 MV0X187 +00000 MV0X188 +00000 MV0X189 +00001 MV0X190 +00000 MVOX

191 +00082 MV0X192 +00130 MV0X193 +00012 MVCX194 +0003S MV0X195 -00005 MVOX

196 +00036 MVOX

(MAGNETIC TAPE RECORD GAP)

(MAGNETIC TAPE END OF FILE)

34
Table 2« Data Acq,u ( s t 't Ion Systen Fermatst cont*

VIDAR AUTODATA NINE

SPEED2 Da-ta Acquisttion System Format Spec t f ( cat t on

INPUT=CARO IMAGES

READING=3*(C)<K ) ( ++—O )5*(V0 ) ( VK )3*(A)(E0 )(KX)

TIME=3*(D)2*(H)(K: )2*(M)(K:)2*(Si4*(K )(KX)

EOR=(K )(KX)

EOF=(KF)(KI)(KL){KE) (KNXKO)

22009:30:04 X151 +00029 C0X152 +00027 C0X153 +00026 C0X154 +00028 COX

155 +00028 C0X156 +00023 C0X157 +00022 C0X158 +00022 C0X159 +00022 cox

160 ••00026 C0X161 +00024 coxie2 +00024 C0X163 +00024 C0X164 +00023 cox

165 +0 0024 C0X166 +00023 coxie7 +00023 C0X168 +00023 C0X169 +00024 cox

170 +000 23 C0X171 +00022 C0X172 +00023 C0X173 +00026 coxieo +09874 MVOX

161 +1C0C8 MV0X182 +10089 Mvoxie3 +10041 MVOX 184 +10073 MV0X185 +10321 MVOX

lee +00002 MV0X187 +00001 MV0X188 +00C01 MV0X189 +00000 MV0X190 +00001 MVOX

191 +00070 MV0X192 +00123 MV0X193 +00022 MV0X194 -00004 MV0X195 -00007 MVOX

196 +0 0057 MVOX X 22009:30:19 X151 +00034 C0X152 +00031 C0X153 +00033 C0X154 +00047 COX

155 +00060 C0X156 +00022 C0X157 +00022 C0X158 +00022 C0X159 +00022 cox

160 +00025 coxiei +00024 C0X162 +00024 C0X163 +00024 C0X164 +00023 cox

165 +0 0024 C0X166 +00023 00X167 +0 0023 C0X168 00023 C0X169 +00024 cox

170 +0 0023 C0X171 +00022 C0X172 +00022 C0X173 +00026 C0X180 +09 857 MVOX

181 +10001 MV0X182 +10078 Mvoxies +10035 MV0X184 +10068 MV0X185 +10320 MVOX

186 +00002 MV0X187 +00000 Mvoxiee +00000 MV0X189 +00001 MV0X190 +00000 MVOX

191 +00082 MV0X192 +00130 MV0X193 +00012 MV0X194 +00039 MV0X195 -00005 MVOX

196 +00036 HVOX X F I LEND

35
Table 2, Data Acq.uts(tton Svs*em For«a + st cont«

DORIC DIGITREND 220

SPEED2 Data Ac(iul8(tton Sj/sten Foraat Specification

INPUT=CARD IMAGES

READIN{S=(0*K )3*(C)(+ ) 6*(S ) ( A) 2*( K ) TIME=(K )15*(K N)2*(H)(K ) 2* ( M ) ( K J2*(S)(< )<KH)*4*(K ) EOR=70*(K ) EOF=(KF) (KIXKL) (KE)(KN)(KD)

60072777 00 00 30 H 001 0063.2C 002 02.603M 003 0063.9C 004 02, 59SM 005 0061. 2C

006 0064. 6C C07 C0:?3.4C 008 036. 71M

60072777 00 30 30 H 001 0063. 2C C02 02.589M 003 0064. OC 004 02.596M 005 0063. 7C

006 0064.3C 007 0023.5C 008 04lc46M

FILENO

36
p

UlD fN E §

tn

u

EH Ph U CO W2 >4-( ••

Ul (U -a 4) Ul

(U Ul

Ul (0 (0

CO ^ 4J

(D ft 10 T3 H

)-i (U o< •r-i H • • • (0 0^ fH (N ro 'T e cH g g g

(11 Ul • ij • i^ * h? • t-5 in JZ

ft '^ CN 04 C^ 04 "^ 04 4J 4J •P « g-( ^ c Q <U O 0) 3 -p O tu O 0)

Ul M-( M-l

J -PJ -pJ -p

g +J a< 3 04

a 04 3 04 P g (U . o o O o

Ul r^ £ Dl <u <u ai HI 01 <u 01 01

u o c P X P X P X P X

10

H -H 3 0) P 01

D 01 3 01 •p -tJ ^ Ul o o o

lO S Ul

D 4J (U -P 0) -P 0) 4J 13 rH 0) X X X X

(0 >i 0) c 01 c 01 c 01 c

M-(p IH •. D* H H o' o' o

0) o a

U "O V4 "O Jh "O

U

'0

M a) 0) 0) <u 01

01U

a

M

N » N > N ' N "" i °

Ul 1 1 1 1 M-l c u C M C Sh c ^ P c Ul <u 0) 01 01 C (0 (U T3 C N C N C N C N £ t-t S)

0) -M ^ 3Ul Ul Ul Ul Ul

w Ul Ul ^ H -H rH -H H -H •H -H H H rH

0) »H <UH <-t CM CM rom >* ^

Ul -P to il 04 Ol 04 04 04 04 04 04 •H 10 > H H H H M H H H

0)

W ^< 0) 4J MH <4H IP MH l*-l MH tH MH

t^ IJ> Ul

HH

H

H

HHH

H

w 01 (U W 01 £ n s ^ Eh (0

+J^h

in

inH^

in eu

0)H

H^ n

10 0* -H H M ^

(S (N > iz HH oM

IT) iH CM U < <

+1M

10 <

ft

CN

0)

Qa

x; 04

o<

m

37
c

73 u 73 • • -H

73 H 1 01 1 73 73 (0 a 1 10 u x: 4-1 4-) Q< 43 +J -rH H •r4 4J JZ 0) 4-) (0 o to to O to 3 O 4-> 4-1 C

E4 Qj 10 o c c p 4J tr (0 c C

[fl 73 3 cr v^ p U 4J a -H •H O

73 73 Oh to o D. to to 01 ^ M

• nj 0) (U )-i E m •r4 M-l 73 a a 4J

4J Q< .C fO 4-1 4-> 4J to Eh 10 >1 (0 to 01 01 (0 E 4-1 on .c

Q. iw 4-1 c P &

E to c Ch J3 U 4-1 C •H 3 73 M H H p 4-1 73 z 10 •r4 O, 0) )^ l-l 10 01 ik H 01

CJ H x; IH E 144 >. to 4J 01 73

0) a 4-1 4-1 o 01 01 01 U fc 73 U

x; m 01 (0 c in 01 01 >i 01 U

+j .. c 3 01 <a' ir C XI N u 73

(U en ^ Q< •H O i£ H •r4 u O

r-l U 4J >H o o U U rH 73 N u

(« • » g <u 4-) 0) fNi .« CN 4J 4-1 u

S-l o e (0 01 Q E a 01 01 •H 73 c <0 P m (U m 01 Oj a< 01 u rH 10 u (0 4J C Di 4-1 4J 01 cu n CO 4J a^ ON •H to .c 4-1 (0 c u m -H -H 01 01 01 3 3 4-1 to to 73 O -H ns >i n ^4 14-1 to &

>1 &

(0 - to tr cr 4-1 73 c dt U) 01 0) 4-1 01 4J E 4-1 U u ^ (0 >i w ^ (0 m Ul rO to c c (0 to 10 73 rH rH

4-1 (1) to c 4-1 73 < C rt 73 4-1 73 01 01 4-1 rH C

C H e 73 o o to .^ 01 (0 . to •H 10 14H 10

Q) s: )-l -H O ... o 73 4-1 r4 01 4-1 >i 4-1 4J 01 g 3 V< td 4j ..a- E 'J" 3 c V c 3 01 3 (0 10 Eh U ^ ^ s H •r4 in 01 in 73 < •H •H •H 01 < < 73 Di 4-1 K tji u rH (N M (U in 4-1 i-H 01 ^ C (0 (0 CLi [ 1 u

w 5

(d •H a in « O a ^ •H ^ g a X u E 73 Z 01 4J a < >1 < 3 < 3 'H < "4 < H •H H •H *£

4J (0 a< Q M Q 73 Q 4J cr 4J Q 4J Q a; <4-l 3 4J 4J • 0) 73 73 O H H (U M .^ 01 o 01 73 M -H H - o 73 14-1 Eh c 73 i c 10 > c > M > 01 M to W U > 01 > 01 Q V4 M « rH H

(3 ffl f-l 0) ns H to Oi fl. p 10 to 4-> u EH (0 in H •' 0] 01 01 IJl 01 fO 01 O 01 3 0) tri 01 c Z 3 3 3 C

ns m o 4J a) 4J 73 (U 01 to 4-1 cr to r4 • M E tr o< -H a a) 1-^ rO -H H Q) •H • - -H •- -H E ri to •H 73 •r4 O •rH E -rH 73 4J E •H 01 01 u

•H Oj 73 <44 m !/] 14-1 in t-i 01 14-1 -H 14-1 73 14-1 14-1 10 l*-l •r4 U-l c <4H ^ a m 4-) •r4 •H 3 H •r4 01 -H •H •H .C -H •H •r4 s: •H 4-1 H 01 01 C -H 73 rH U 3 CP o 01 O 73 o O o to 73 O o 14 01 E •H -r4 •H i-H (0 lO 01 C 4-1 (1) ro « to >4 Ck c 4-1 k c a >, u

IB -H « H a O ft E a e a <fl 04 (0 a 3 Cu to a to a 3 01 • fe! fc! "O

4-1 Xl iH o m (0 c M -rH 01 r4 01 O 01 4-1 01 Cu 01 73 01 O 01 a 01 73 .c « «

C -H 4-1 C 4J 04 Ai 01

U] 1 1 1 1 1 1 1 1 1 1 1 U 4-1 Z Z ^

m 1 1 1 1 1 1 1 1 1 1 1 r4 C 01 H H

u 4J •H n

73 D< o r-i CN m 'S' in kO r~ CO 0^ O -H H U •H 14H 14H M

U r-l D 01 a 14H H H

n u)3 • w .. W •r4 a, E4 •H k4 >-c « £ to E4 04 H > z

H z

+J

t3e

u

fe inH

in

Xu

z

cus

ra H

OJ « H Ej &< XI o; 1-4 (B fc S4 H z w

M H Z

m •^ H

>

El W z z

T3M

rO nH U <

4-1 u

to <

a.

o ^

m E-i fl o X J

e^ &I

38
(1) (V (U

10 a> X3 Q( 0) 10 -p P rH lO (0 X3 -P •O • 10 M rH H -P (0 Q 0) E a lO >i -P -O •P a) XI P o P -P c p

(0 > - M tt) QJ -H (0

U rl 01 (u '0 £ i-H -P in 10 M >,

>, Di >H (U >i +J ^ <U C 10 C

0) >i ft

a 01 XI (0 <D -H CPXI • • V( N IW rO in rH 01 10 01 13 « C

13 -H •H -H (0 01 73 T) (U

p

u

0) -PCO

"0 U) S (U

10 e 01 (U )H Q( c -H 0) P rH > 0) T3 10 Q< ^

-P

N

M £ a (0

H E H

O •H E -H

in -PM P -P A(

H 01

O 01 rl -H <U

MO 10 01 ^ •H -P

(U lO )H -PCC )H (U (U -M 0) 3 M E tU -H 3 3 (0 Di u u 10 (U a CT-H

•P

C 10

u -O XIX

O 10

m » (0

D in » M'

n 4) 10 OJ 10 3

(0 J3 <U •H 00 >* •p rH cr o M a) £ O 1 +J IH lO Eh -p (U 10 0)

10 c cn^ *l rH CT\ to T3

O x; -p

4J P -P rH t^ (0 -p 10 01

10 .Oi in c inm

M HH ft

p 73 -H

(0 -a » -H en

u +J in 0)

O 10 MH

p •a -p •H < -H rt o -0 -0 rH

W c 0) H 33 in > c e 1 tP 10 10 ft x; 10 u c in H 3 3 C (U •p <U -P •H >H g p o z <u 10 2 in C -rH H 3 '-* 9 o t^ g ft -p D a 10 01 k a -p a 0) z

MH S -P >i

C E 01 c H -P

a

H

u -P

H -H 1 W 10

n 3 m V4 •rl •P 3 01 )H g o • V MH

•p E '+H S g js in HOEN MH 01 10

H 3 0) H u O 3 >< H Q)

IT) D( -P 1 5-3 Of 4-> 0) lU CI c c >. >i

4J Ul V4 in £ 3 d) 3 5 Oi x; E 01 01 IH

H 3 >i • « D^ >, c -d >i 01 H C

in (u jj 0)

C 01

u IH 0)

O

Oi in 0) >H T) S IH

C

01

H cn tv

(1)

C 10 "0 x:

M >,

p

h 10 XI

-rl o m a^i £ -P n 3 a) ID a 01 C P -H — o 01 73 -rl ft u a 10 -POO a 0) -P H 01 rH 01

in -H -H <u 4J 0) ^ rH T) -H i4 >i r^

O iw

4J in -P ^^ ac • rH c • HH 0) 01 Ui MH 01 10 IH -H O -H Q) (J 10 3 tri 0) •H -P -rl z rH 73 10

Q) 3 C to 3 -H 10 -H lU

O

C 3 H o U MH

O T)

n cr Cn -P Oi 13 MH 01 iH

J2 0) 0) 01 -H

qj -H tf

S(

H

O

Qi (0 (0

H

O (0 10 >IH

a o 10 <D

Q lo e -d

H E 13 10 14H

W ft 10

H in

a -P

M

10 -a OJ

a: i

ft

m

U 10

u

H (U x: Z i>i in -p

M >i

en s w 0)

M lU z H n

x; -p 10 XI

H Eh 10 ft EH

p

rfl <o^

fu \<o

00o

IN

Ul rA

<U

w

rH

H ^

II •H ^ M ,—

(fl

M > 5•EHH

IN -0 m u

n) rH O a

4JM

(« CQ

U

A(

(U rH rH

to ^ Eh 5 2 s

a, ft ft

39
01 o -P 1 +> c rS •rH iH

fd • (d 4J E 0] » CN fc ^ g 01 (3 w C -H • u 01 01 ^ a » rg E 13 3 4J • c c » 01 01 ^^ \i MJ O' ^ -H -H 01 ^

4-1 mora c 14-1 rH >H 73 73 C 01 E i-l M-l IB Id - u 13 Id -H c

•H -H iP -H ft 3 tN G G 73 •H ^

u-l "O 73 +J 13 4-> (8 CT 01 H H 13 73

rH TS (U C -H 4J 13 -P 73 G U G IB 2 Vh 0) V< (H 01 E 13 S - G a U G

II a a 0) G -H a i-l 73 13 U. rHp E E U

• H to '0 ^03^ e 01 D" -p u u -H -H G

(0 •z +» -H IP G IB 4-1 4-1 E G

-H H c 01 3 x; C Sh Sh •H E

T3 J -H Sh C C 13 01 • 1-1 4J IB G 13 G G 4-1 -H

x: G TJ G j: 4-1 JS s: Si 4J e K 05 E-i 13 C ffl -P E 4-100 4J 4-1 G ^ a •H G x; -p -H c , ^ IB

u-l V4.1 5

G ^ jj 0. 01 G 4J 13 U-l -H 13 n c U U 10 Si 01 3 4-> a M • '0 G <H •n 14-1 u <a m Si 4J 1 a Ul 3 M ra 01 G T3 ffl IB -P /S -P uh c J r^ a G 01 G 73 x; 01 * "c IB ceo Mh —

-H H U c iJ ra H 13 J3 -P c c u G U

-H 01 iH «-l E -P (3 01 •H z — u s: -H -H C 4J

Ui g &H ra •H -H x; -H S^TI * 01 mh P +J C -H

4-1 £ < <. ffl to c >i +J XI 13 c Id ^ ^ -H 01 C 4J s s x: 0) -H G 73 ja t^ G z 01 G 01 4J -H -H

CI u 2 -P fl E ft M o> U M M ^-. • U G ft ft n 4-1 73 p M-l E M 01 13 73 C <

U G -H K

G (N G 01 -H U

E - li. jj a 4-1 G u 01 G 4J 01 01 ft U

U3 « E -P +J 73 M B U E G E -H 73 G ft-H u a; H M x; 13 G S-l +J r- 13 -H * CN 4J -H iH C 4-1 01 ^

a< u a< p v< X; ^ 01 II +J CP El M 4J >• CM U C 4-1 -H 3 1-1 01 G

>^ < < M-i +J Id 0] z -- -H X! C 3 >i E

-p s &< m C G S-l < x: G -H -— « I4H -H G -H Id 3 M a TS E >-l -H M G 2 Si H CM 01 01 E £ 73 C

k. H G 01 JJ K 4-1 4-1 H ^ M 01 /: Q &3 4-1 T3 S-l 01 GOO G 13 13 M G G G G >,

-y Is •H TI DDE G (3 ft 13 Cn P 13 H 51 I

* 1-1 H CJ G ft ^^^ 5 §

01 u &^ C C -P ro H 18 z — Z g G

<9 II II Q< (3 )-l HO x: &i D 301 M-l II * 3 X. 01 t3i 01 01 01 -H t^ Eh 01 +J M-l G 01 a -H ~ C Eh C C C c c

U-l D 3 13 C 73 -rH Eh •H C G z z H -H -H •H -H

-H & a. 4J T3 T) 13 +J 10 M-l -r4 S. H II G 4J 4-1 4-1 4J 4J Z 2 13 73 G >i -rH 73 EH § §

• Si • Id IB Id Id (d • H HI e ' M 01 M C 01 -H 13 J-1 -O 000 n, M M M •H 01 -H C G G 2 Eh G •H -H -H •H -H

01 .H 0-0 US ft H * CMG 4J •• 73 73 73 73 73 ^ m >< IH ^ffl E .-1 01 E Z 4-1 13 G C C C C C

-0 -H (3 01 Z k U - 4J G IB G M -H -H -H -H -H u m -p C 01 >, 73 C 4-1 » U ft IB

ra to 01 rB 01 G -H ^ G 01 <-tH G 1 1 1 1 1 U '^ U • iH -H • 4J IB E >i Z 73 M C 1 1 1 1 1 Cu -^^ 4J 01 G Mh E C 3 01 C U

m w £ G C -H G G )-l ffl -H 01 W S E Z

-H (3 01 c -P M 01 4J c M -H »• X n ffl C 4J 13 13 G to M -H 01 G 73

E-i nj J= 3 (3

E-i Ch 'C E x; ft >, 3ri 01 01 U

x: c

E-1 -H

•H

4J s: c c • S IB U •

4-^6u

<

CO

tno

rH Q

Si CO CO a ^ H rH rH n II II ra H M

>

H

Z

M

Hz

n

^3 U >jnj r-H IN U U U

U

IS p<

&)

01

13

4:;

(1<

40
13

13 •P S T) M

0) 0) n U C 0) 0) T3 M • ^

> >4 > H 4J P •rH rH to 4J C to oi •H 0) -rH 0) w in MH 3 tj C to 43 rH P P -P +J c c Ch <U M 10 0) O 10 to MH -H to •rH H ^ (U M M x; kH « IH

tn (0 tTi to rH 4-1 > 0) to 4-1 1 + CO ^ OJ Vl ID >4 01 0) 10 •P x: h •H T-{ > a 10 C to 5

^ e MH o o ^ 01 d) x s: 4-1 •H c to U

-(-"" £ 3 c

to u to o O to M 0) 01 • • 4J c 73

U-l in 01 4J to 4S 4-1 in 0) rH 10 c

>l r-l >1 .H -O C >i £ Eh O •rH 4-1 01 MH .c to

M-l to M-l to 0) MH O to 10 to c ^ o

•H 3 • -H p • 0) 0) tl C •H • U 0) u H <U 01

h p 4J tn 4-1 -P tn 3 3 0) 4-1 rH o • to x: •H •P > MH c u c O Cn c O CJi rH .H '0 a c to u x; 4J -a to rl

<u 01 to c <u to c to to 73 X 0) 3 01 0) u c c o 73 p -a -^^ T) •H > > 01 01 13 44 X 4-1 OJ -H

73 3

in to o » -H 0) 73 -H 0) TJ f

«

-rl O 4J O 01 M 4-1 0)

to jj j3 to x: to 0) 01 to 10 rH to c •H k

u •H 4-1 0) 4-1 0) J5 s: 0) x: tn U cn ft 4J •H -a 01

to tji -p >4 4-1 in 4J 4J 4-1 44 0) 3 to c c •H MH x: •H >1 >1 c £ x; •H 0) 73 ^ to 73 o 0 "a ^ oj -0 ja 0) IH <4-t to <4H T3 Eh rH o 10 x; 0) ai V > 0) > 0) rH 4-1 to o - OJ c w >j in TD -rH W T) •H x tn QJ to 3 tN (N 0) 01

-p H 0) 3 0) 4-1 3 0) 4J 4-1 4-1 4-1 •P 3 • l)H rH c 1 Vl •H c M

"e ij S -H S to -rH H •H tH 01 01 u -H in r-l to j: tn O tn >4 01 cn tri S 01 U C 3 c ^ -rl + •p p E 01 f—t 0) >H 0) -H •rH •H 0) -H H u-t 44 -' in Oi s D C -P 1-1 Ol 4-1 rH C 13 T) >i TS 4J -a rH tn •H M •rl c

C u o rH o to MH 4-1 3 0) tn • • •rl u to rH (0 M-l Di to <4-l tp O O ^ o 10 01 ^ rH tn 44 to u 10 4-1 x: )-{ c u C -H -rH •H •H ^ u u 0) 10 •rl 73 O tu 3 to a c to in -H to ui -H S-l U tn M 01 10 > -H s

01 to 73 4-1 o

iH c x; •H >, £ -rH >i 0) V tn 0) c x; 4-1 o O U 0) rH •rl to to M-l O MH g e E •H c 01 to to 73 to f-A 73

x; + -H 1 -H 3 3 ft 3 ^3 0) 11 ft tn rH s: u c

>i 0) 4-1 01 4J C C c to 0) E .c to • 0) ft o o to MH •H c

to to +J

0) C ^ 01 c

0) to 01 to cn to 01 5 2

4-1 to •H

4-1 0) 0) .c

OJ o in 0) H Ti ei TJ c C 4-1 >, 01 •H >H rH ^ to >

en Di en -rl W •H cn •H cn •rH cn +4 CJi tn UH ?5 H to cn 1 C c c c C T) C n c c c c •rl •H c +J cn

•rH •H -H • M -H • U -H 10 •-( to •H 01 •rl -rl 4-1 -H ja tn •H £ 0) c ^

P J-1 -p m 4J tji 4-1 01 4-1 0) 4J 4-1 c 44 in •rl 01 in 01 £ •H

(0 (0 to C M-l to c i4-( to >H to M to 3 Ifl 01 OJ to 3 tn •H •d •'-' 73 tn o O •H U -H O O O M .^5 -0 o tn 4-1 to g to to •H •H -H T) T) -H -O T3 -H 4J tH 4-1 •H 4-1 H •rl rH •H * 01 73 T3 "O to 0) T3 <0 01 TI C 73 C Tl in T3 a rH ft rH MH 4J rH u 4-1 C C C (u in c 01 tn C 0) C 0) C c c c o C -H •rl •rt •rl -H

1

H -H

1 1

1 1

IH 3 -rH >-l

1

3 -rH

1

1

E •H

1

1

e •H

1

1

•H •H -rl

1

4-1 •H i+H

1

1

rH

10U•rH >

tn Q)

tn o

10 3 to -H

rH

to

Sh

0) 73

cn -H

73

OJ rt u + 1 > K « o M 01 MH )H •H t-i 10 4J H in U 01 0) 4-1 10c

01c

MH H C > l-l o •H H to •rl to o tn

p

ai

fr(

m

0) H

9

•HM

m>

-au

to u

4-1 u

(0 a<

0)

in

to s:

ft

41
a)

M 1 -n

u

rH P 3 m 4J 01 C ft mux; c T) O a) T3 to -0 10 4-1 H <U to E C 01 « 4-1 ItH <W

tn

m 01 rl Iflm to c

ro 3 to 4J T! 3 TJ 73 -0

fl 4J tl) ^ <0 0) T) .—s +J 10 ^ ft 4J to 01 tn j< +j > ID g t3 10 o to 3 3 M 01 oi -a ^

ip 4J ID E >! 10 ID c S 10 ^ u G X5 n E 01 E 4-1 •H ^^ to o U -H a '^-l >i TJ -H rH v*H TJ O 4) tH

(0 0}

H X3

M 4-1 10 01 Mh 4-1 rH

V x> »H to 0) o IH "O 10 -H u ^-^ Q) -a O C -H ID M 0) E MH -a

TI

w +J <u 01 to 4-1 x;

M 1 c

I) rH

O TJ <D 10 >i 4J MH a) £ 3 ^-^ 10 u ^^ x; E J= to <D ^-« MH P > u c 4J ft u u c 1 ai s (0 u IH to CJ 4J 73 73 x;

M-l ,

J= ID tn >i x: 4-1

C

C 4J

-U > • OM « 10 MH XI ID * >H 0)

H c to c 10 >i

tfl 01 ^-, >, n) 3 £ 13

n > z rH 0) rH MH

-M 3 > ^ XI -p E <U <D XI 10 • rl 01 to -H C rH • to . tn 4J 4-1 to • E u 4J

(1) IT) in ^^ « U 73 Mh 3 10

H 10 -H • •H a) -H c > 01 > IN a) ^^ u V 73 ^-v 01 ^ 01 a)

g 4-1 Mh IN (D to 10 4-1 4-1 tN t4 >, 73

<U 1! '-w

u E -H ft

OO 10 o 01 x: -H

u x; ft > — to 0) 3 ID to

M E

^-' -H ft

4-1

W

U "O •H * to 4J to iH -H Vj * — > 10 u r-i to to 4J IN 4-1 01 to 4J 0\ 01 — s: 4-1 z ID E <U x: c MH z 10 Oi c S o * o u 10 x; iH n O ID .r^ E C ID 73 -H -P (N in 4) g r-i 4J 10 tu rH M -H 4J 0) 4J dj s u u 144 oj ID x: u 73 to 01

10 TJ rH 01 £ c tn 55^ MH 10

O 3 O C + o 4J 10 MH 7" X H -0 TI * 6h Q) -H

-H 10 ^r' CN •-I o c ^ rH

O 4J >H 73 01 t) m 14H 0) z w to to Mh • 2 W 01 C -rH C P U rH 0) j: II II •-H ID E 11 II M 4-1 -rl •H C ^' + •H Eh tS OS <D <D •H (D fc h -rl C 73

tt) hh -a o o 4-1 in ^4 MH 73 4J o o MH a) c

l/l c U '- •H

C

M

a to -rH c in

HH E 4-1 to

H

—' u (D • i (D to ID >, OJ 3

(U Qi 0) e H x: 4-1 ID

m

X i< 0) ai P X u * Oi <u <u Eh 10 • ft 01 •P 4-1 ft ft O 0) — r^ m x; 4-1 <H 1^ lU to x; c 01 10 10

to II II 4J to ft +J « C 4J 4J U M O U T3 >, 4-1 • tn 10 73 -rH a) -rl to OJ z s U >i 10 in to ID .p H > 4-1 M O O

s: -p

H

H to HH

M Dl 4-1 to MH -HH -H -H

O 99 -H c •rH

C 10 (U

u -H tn MH 4-1 4J

(0 4J MH -H x:

-0 -H 4J

4-1 -H a) a) a)

(Uu S§ to c •H tn c 3 xj a) c c > 10 rl p ID to T3 •H 0) a< i 01 01 ^ 01 -a 10 10 x: £ -0 •H x; ID c c x: 73 o

l+H

U 6H .rl to Eh

M -H E-1 -H 10 < 4J E E

Jj

IBE

>-i

fe rH<o

CO

rH<o

CO

m

0) fH o o

XI 00 CO

(0 ^ ^

•H ^ l-l S^ 1! II (d H H > z Hz

TJ

S-l fO ^ in u u u p

>-l rO 0.

0)W

to £

ft

42
Tl

1 M C 1 W -P T3 0 •rH a) 10 0) 01 E Ch H 01 01 ft Tl 01 01 U en •H C TS iH to 01 lO X XI U •H ft »; 1 4-1 iH 01 4-1 01 u

Ck M-i ^ 4J G •rH M Tl O T) O - z Tl

01 U H » O 01 O iH •H 4-1 01 01 ft ,-A 0) rH rH • <U ID a:, Tl rH to 4-1 to 3 3 5g 01 10 • to • ft £ iH 4-1 o MH g

to E H

Xl 3 • • 01 01 O C E •rH x:

cr • C •rH 01 in • i^ 01 01 01 0) -a <D ' Oi 3 4-1 0^ O MH Tl C

c • 4-) - 01 0) .C IMC Xi iH Ol XI MH iH •H Tl

•iH e M 04M 01 4-1 O; •H SH t-i 01 iri Sh to 4-1 H 0) M U fO 01 ft 01 •H MH v ,c 4J 4J u • -P a <u - ' ft 01 TD s 1 rH 4-1 c 3 4J tJ m u c - m -0 o •H rHrH 3 u "0 3 01 01 T! C

>1 ifl i-HM 0) s « ^ iH U H ft c u x: P •::l T3 in ,c o <u ft u •H 01 0) in s to •H 4-1 >H !h

<U (1) p -p ft 4J a U ^ 01 o rH .-H MH XI ft ft a c u iH O •rH ft • ID 4-1 IH 3 4-> iH Ti MH m *—' a Sh 0) to M (D ID <D 0] ^ iH 01 H •rH H 01 01 •H -H iH (1) -P iH 01 X Si iH -H 4-1 M-, e Tl > iH Q CN -rH M -P fl 4-1 U ro 01 01 .H 5

l-i iH to Q 01 x; m -H 3 10 to £ ID 0) C 01 ^ iH ft • W to 4-1 w '0 !U H U ^ XI 4J •H j: O » MH ft O Tl • w E

<U -rH •rH u to 01 4-1 -rH 0) c iH e H ft •H 4-1 m ,Q ;3 > 01 J2 (U TJ C X rH 73 • *• in 01 O ft ^ 10 to -p cr H c O ^ 4-1 4J U to 0) S ft M o 01 M 01 O 4-1 4-1 •H Tl C O a a 01 4J iH e o 4J U ^0 to 01 01 01 MH u c

a) P (0 c H £ 01 01 iH (0 to (N C Tl O ^ >. 01 to rH c <U M •H •H ID ft 4-1 X ^^ C MH rH 4-1 01 01 U •rH g tn ID s 01 to U MH 0) U rH E 10 u h ft c 4-1 -a -p \D c Qj oj m -a 13 0) ft i^ Tl ft 6 c F" MH iH u S-l (0 iH CJ -p u U rH 4-1 JS 3 iH (N iH 01 iH iH •rH u

-0 C 01 01 (0 01 4J c t/1 •rH Tl Tl ffi 3 •H iH 01 u H u O C •H 01 h — 3 iH O iH Ct 01 Tl 4-1 to i^ 4J C

<U rO +J • e -H 0) (D •rH X C iH D' in C iH •rH •H u • 0) •rH 4-1 iH Sh MH 0) •H 0) ft 01 O iH O ^^ •H lO 01 •rH 01 >1 Qt • iH 4-1 •rH m 4-1 & tl)

to iH rH • O •rH n rH IH

<u ja a to rH ID (D iH >1 iH 5

01 3 • iH 5 -a

• (N 14H •rH ^ £5 C •rH 3 > M •a 01 iH 4-1 ij O" 01 to ^MH

>, Di oi CO ^ P 5 C rH C IN 4-1 U o

0) MH C ^-x 2 •H •rH 4-1 '0 Tl •rH > 01 o C 4-1 to lO c 4J m -a •rH •rH <N M 01 01 01 01 4J -a Tl O c 3 ft to in c * to

a) u O 01 S » 0) 01 c c c to ID iH 0) to o •H rH rH ^£ 01 to •H to ^ E H 0) 01 (N • M •rH •H •H C MH r-H M ft ^^ to Tl 4-1 4J fi m o a 01 U 1 '^ 4-1 4-1 4-1 •H to O HH 01 rH 01 rH 4-1 U iH to o >^ U

•H (U 01 to to (0 o rH OJ 01 e ft iH -0 ^ x: i^ to to Tl XI MH O M c <u o O O iH MH -. AS 4-1 rsi ft to N

(U 01 u rH £ •rH •rH -H 0) T) in in ^ to Tl U

Q( nj ID 0) a « CNItU Eh •a -o -n 01 iH o rH Tl •— to C q M -P H rH ,—

V

Z £ c c c Vh X! to 3 s: 1 C XI Tl x; 4-1 >i^rH iH to ft

(fl ^ ^^ rH 4-1 H rH •H H to 4-1 u 4-1 to in rH 4-1 to XI to Tl 73 -H 2 ». • to 01 3 rH ^^ 3 Tl Tl ft 5 2

u in H .p i-H rHOl 73 1 1 1 !H 01 C iH » 4-1 rH c Tl ft

nj M-i 0) u u Z 4-1 (U 4-10 3 4-1 01 O H £ H W XI iH iH U nS CP to 4J CO ^^ Ph > •rH to -rH 4-1 H T3 Tl in 01 01 Tl •rH ft a > c II 0) o to 4J O 4-1 •H U 1-^ •rH II 4-1 4-1 iH i4 4-1 x;

in cp •H CM M -rH O 01 -H •H (0 ft - 01 cu 01 SH O to 4-1 H C 0) (U Vh H 0) to a rH T) O •H O c U 1 o H iH •H to O 01 iH X -H H j: ^ ^ c tu IH •H C •H ^ O O W to X a, iH C

E-i W 10 Eh -a W S •rH Sh H ^ •rH MH 01 (N u U <D ID Ul U U -V 3 01 •H

-p

^

B4 inH

rH<O

CO

w

OJ ^

^

•H

Vl

la >

T!U

lU rH u Q

+J

inlO Q w

ft

0) r-{ r-l CO EH EH

ro O o

Si J hJ

cu &i ft

43
iH c

10 T3 T3 • • -H

•H T3 0) •H 0) S) 1 en 1 73 73 fl

(0 )-l j: 4-1 4J O4 £ 4-1 •H -n H V 41 4J

(1) 0) p 10 o 0) {rt 10 tj 3 U 4-1 4J C

j2 Q< 10 c c g 4J C g 0* (0 4> C C

El en a 3 Oi u 3 P tJ -P Oi -H •H

-0 D a Q4 10 10 en U U

10 0) V U g in •n in T3 O4 a -p

• Oh s: n 4J 4J P fl H fl •y > 10 o o 10 en en 4) g 4J a: ID 4> s: 3 lU •y c g 41 <a c g 10 c O4 Si U +J a H 3 -o Q H H 01 p +J -0 z fl C O a 01 i-i s^ 10 CD H en

•^^ <u •H £ IM 41 o g in >. 10 4J en 73 a 4-1 4J to en to M « 73 n

(U en <U 10 c en en m >i 4) en u £ c E 3 CD 1* '3' 41 0) c XI N l-i -0

4J .. 01 ^ Q. •H VO VO •H rt 03 u t) 4)

11 jj lO ^ o o V4 M H a N 4) V4 rH ^< g <4H 4-1 ID (N .. <N <U OJ 4-> (U 4J u M

fl o (0 en Q e Q to to H 73 C 4) fl ^ en en g & V 04 to l4 H 10 u fl 4J

jj m 4J a HI c CO +J en eji •H 10 5 fl 4J fl C Oi ^ •H •H en en en 3 3 (0 73 c 10 - M u U-l (0 3 >. 3 10 .« (0 D' 4) cr 4-1 73 -H s^ B W <u 4J 01 en Oi 4J g 4J V4 OJ ^ fl >

c <s} in en (0 (0 c c 10 41 (0 ID 73 iH iH w J3 (0 M 4J 4-1 -0 < c < o 4-> 0 en en 4-1 •H C

JJ 0) -0 en o o 10 - en fl) (0 -H fl in fl c H E >J >, o - o '0 4J 0) •H ffl to 4J >i 4J JJ 01 4)

Q) £ 10 en '» g ^ 3 c 4-1 C 41 3 en 3 (0 Q) 18 E-i ^ ^ H £ 3 >J in m in T3 < •H •H -H 01 < < -a !7i +J « 01 U r-i CN g H C 4J 0) r-l en M lO c 10 O4 4) 1 1 CO o 10 « en « (ij u H l-l S K o: (J g T3 2

u u ^ 4J H < >, < D < ai 3 41 -^ < •H < M •H H Si <U -M 10 4J Q en Q -a Q 4-1 tr 4J a 4-1 Q a tn 3 4J 4-1 . 4-1 -o •H M H <u H .- en o en -a M •H M - TJ in &< c 73

41 -a en > c > u > en W (0 M n > en > to D V4 H « rH 1-1 4) e c CN •H a; 10 -H 41 10 01 O4 E fl fl 4-1 « fl ^ 3 en -H .. en m en oi en 10 en en 3 to 01 to tJ C 2 3 3 3 C

n o tr (U -P "O a) 0) 01 10 Q) 4J 4) <u D* V (0 4) H • H g ff C -rt

IB W J -H -rt 0) •H ' -rt •« -H g -H 10 •r^ -a -H -H E -H T3 4-1 g -H 4) V ^

Oi (U a< 10 in en en H-l en in en in •H 14-1 TJ In 4J in 10 in -H in 4J C <U m X 04

•H -H -H 3 •H eu -rt a -H •H -H £ -H -H •H J3 H 4J H fl CO en m 4J -a 10 3 a^ CJ 01 -a (U O 10 TI u en g -H -H ®

C -H ro 4-1 <u tr -u g <u 10 G M 4J O4 <U C 01 •P M C Di >i M

•H .-( <u (0 Oi o D< E Qt e 04 (8 O) (0 O4 3 Q4 (0 O4 lO Q4 3 en • El Eh fl

10 -H M T3 en 10 c en •H en •H en U 01 4-> eo O4 en 73 to u en Q4 eo

4-1 c 0) -P 04 04 en C -H 1 1 1 1 1 1 1 1 1 1 1 4-1 z Z u

m 1 1 1 j 1 1 1 1 1 1 1 <U -H c en HMO ra M 4-1 •H 41 u o t-i <N ro 'T in \o r-- CD en •H -H ^4 -H <n in >H u

10 w M Q en 04<n H H 4) „ O 3 M .. A< Eh M -H Sm « H l^ t< J= 10 2 g Eh > H "^

4J

fog

nh

in

K Ck U M 2 :>i a. CO S 2

ra H H

i) ^ ^ M t^ a

X! a b;

<B a, w

•H 2 2

U M H

n ^ ^ >

a, o

E^ CO 2 2

H H

TJ

S-l (0 M

U <

+J^

10 «:

Q.

0) (N

ra El

IT) s

Oi Q.

44
<u o 01 (U a)

nJ t7> ^ ft 5 . a) to

p

upp

p rH (8 to X3 P to 3

(0 >H rHH 4 • g to

Q 01

M ft

"0 10 >i P Ji 0) T)

C 01 01 +J ^ -P o C P p p 01 •3 =>

(8 » > to 0) <B f-l

H 01 tou rH -H 1 °

0) "0 ,C rHp 01 >, 01 18

p

p

>, 01

H 0) >, P ^ US i) •-t C 10a) Jl 01 a) >. Oi

O -H

C 01 XI c IV 01 XI • to H M M N M-l (S W rH CP o a to 0) -0 •H p a) 73 -H -H -rH to 01 TJ Tl a) H XI 01 ^

0) P C o nj

g

U -H 01 a)M ft -H <u

g

TJ 01 rt (D P rH > ft P Q) TJ 18 ft

U 01

p 3 ^

01 +J 01 P P M •H E ^ O •H P 01 c M 01 >! C to o 01 -H -H a) 0) -H U to 01 ft P v US U -O C C U P 3 ai P O Oi B u g (1) -H 3 D (« 01 M-l cr u u to a> ai '^ P c to to o u 13 Xt x: X i

in » (0 3 01 . ^ )H to 01 to tH ">, 3 o' 1 Si i) -H CO 'S' c p H •H MH M M O M 0) £ O 1 p to M-l to t^ p x: rH p ai

ItC 01 £ P r-( CTl 01 •rt

p -o o s • 01

N

p 3 p --1

p to

J toX 01 c

19 0< 01

C 01 01 3 T3 >4 M-l 0*

p 01 -H ft-H

B

"O -rt Di

O P 01 0) to

MM 01 li

01 0 P -H rt -H Hi 01 E Di -o T3 a)

p 18 x:

+J 01 MX 01 > c g S5 to P to <31 4J P B s: 10 (J C 01 H 3 3 C tt) p 01 e ITi t8 p 2 (U (tl 2 u C -H u 3 E (31 T3 M g 0) P D -0 ft >, 01 ^ ft t8 to a) g M-l 2 P >i C XI E 0} M

a) c M P T3 73 P p H -H g w nj u p 3 01 •f-l (0 to E a) to

u

Mg PQ 01 01 -0 E • ft -0 US

U 01

p E M-l s g x; 01a -I E M-l 3 M 3 a) H M u 3 -0 X n 3 1 C T) O "O tJi 0< P (U <U D C

01

M 01 £ 3 P V4 ig ft

p

g 01

Bc

rH 01 a) P m 01 to i B M a: 3 >, • ta 3 p ft 5

CN 01 >, T3 P fi ai

u

01 0)

Q ID aj c 01

M

M 01 z

ft 01 a) (^ TJ

H

U x; -rH 01 ai M-l (U C n) 73 ^ M >, W PMC •H O O 01 B^g s: OP M Eh h nS XI fk 10 3 01 B OS 73 V H ^ O yi p 01 "O -H CM U 01 to X> a) 01 POO T3 to ai p H C M X B

to •rH -H (1) • P (1) ^ 01 T3

H "a -H « >iH P M tH -H

p 01 P )H 33 • iH

C • p M-l a) 01 Ul M-l lO a) MH

p o HO) U n) 3 01 01 O P H P -H 2 •^^ P 01 9 a) p

(U 3 C fl 2 -H to

H tU 0) 3 o C 3

a) -H & H o B x:

g

M ai

)^ 0< 01 P fl< 73 M-l 01 r-l

U ft 01 P 3 ft 01 'H S to 2 "u <u

to E "O

H E 73

01 -r-l

H c ftM o M-l ft o c Q (0 ip Q ^^ M ft to H 01 01 ai >,

-a c < XI XJ U -H • • • •• to B X CM g

CM

OM ••

u

g

H ai Eh s H « 01 o m g g

(0z H

C

x: i H "" H Eh O

•pgb

inHau

in 2

0)

i-i 3 Is •H rt o

(0 g^ > Eh eh

to o H 1^

-0u

(0 ^3 u < pM

n)

Cl<

(U

Ulm^

en

45
01

a

a

u

K -H » a T3 Si sz T)a

O JJ ^ CO (U 13 IB Ti JJ • a ^ +) 2 +J O M tP a a jJ — JJ E

0) Cm

C i-i nJ fOu • U JJ 01 - -H ^j IB 3

-H

X Z Q)C -HU 01 c 3 —

—

a

a c >

-H JJ tn ^0

a JJa -rj E -H

w ^ n qX M IH jJ -H u ^ JJ M c n ^H -^ s E o am •H JJ M -H 01 < 1 01 (3 a 10 ft a a: 9 3 si ^ 13 Ij -01 > CTi E U 2 Z C ^H Eh 73 P

n]

g S n)

Mz m

01

01

H 3

iJ o

JJ

». x;a » » ^ an01 IB

g (3 a) o >, 3 jj lO JJ JJ JJ c p iH

aa 3 ' P ft ^1 10 -HE M 01 u a a E c u

nt 18 10 ITI E w c IB c 13 E » ^ IB

C iH

a 13 -P a JJ cq 3 01 & -rj 0. • -H X e c IB 01 IS muz 10 >« u -H 3 j: UJ 3 >i 73 T) O T! O T3 01 TJ 01 -H a iH c jJ u ja

01 -HM 01

a c sj TJ

a T3

M ft JJ c -a

a E JJ 3 x; 10 o iH jj Sh JJ »< IB JJ

a

a >H x: "O o M 0) O JJ 01 IB u IB 10 a E c E j: jJ a £ C <U O « 3 a O E a 3 JJ ^ ^ <u D^ M J3 M j: i-H G 13 E n » >. IB

01 10 Eh

O IBa 13 IB £. P 3 JJ ^^ E ja

C

IH c E 10 hex JJ 01 P JJ JJ IB

n 01

aa 01

0) IB +J -' 3 JJ IB 13 IB T) JJ c j:: JJ T) -H c U M 13 • ft Ti 14H -a -a l+H 01 -H jJ 01 a 01

CD nj 4J T! S >,

a c -H >, c

4J

U

U • "O ^ I-M CN

a

x -H

a

a 01 01 73 c +J 01 - .-1 Z 13 tJ Eh 01 £h X a p JJ x; -H c

<a x: rH 0< -H 13 T3 ^^

O JJ o JJ ^ 3 a JJ 01 c 01

a

g o JJ oi 13 2 -a

aJ J^ JJ ft

C JS -H 01 £ ^ 10 o c 01 (ly r-i a< UJ -H JJ -H JJ ts -h 10

a

•p <u ^- " >i E JJ C7>

a ft ^

JJ 3 c • JJ x:

u XI rH -H .H

ua

"O Di 10 -~ -rHM JJ

JJ >-i

O 3 01

HUu 01

aa c -H 01a

u JJ 01 -O O^ 13 01 Ujaa 01 x; >n -a -H - — -H ^ £ 3 C — X 3 E P

rH -H -H

K CT 3 -H

a 3 N (U 13 i+J 13

N JJ ^0 c +J

N ft 01 -H iH

O

a 1 c 1 •rj 1 JJ m c "JJ "O ft C •H cc

TJ > 01

O HH -'

C 3 c 3 13 13 -H JJ Si 13 tH 13 M a c a H > 10 E X; O 01 O JJ c ft a -H Ol •H 73 Ph n a » c JJ X u O IB >H a 10 3 a o ft > JJ +J O 01 01 a ft JJ E Eh 4 JJ CTi-l

01 j: J3 Sh 01

C -H •H JJ -H JJ ft

CM

M 1 10 -H XI

•rH jj

a IB 01 JJ 18 o 01 .H

a 3 "O c 10

C JJ JJ -H r^a Eh

U

K

a rH E li-i » C 3 -H

Eh T3 to 3 18 -H ja

ft

a c JJ r-i id c o a 2 M 01 IB 3 a

a

n « 0) JJ en a o U '0 M 01 ft P J: IB 13 n^ jj u M 3 rH a U V-i JJ -H >H C +J > g C (1) T3 en JJ JJ -rj £ 01 2 O 10 01 X JJ a H u iH a -rt -H IS O C P E >i 01 01

M-l

M -H 10 01 x: c s > M Mh Uh ft -H JJ 3 X3 JJ -H

M ft

Q

O -H JJ 3 3 13

M JJ

M JJ S JJ JJ a

IJH

C >H

C

x;

a JJ TSa 01 o E 01 a i 73

IB T) 3 CC 3 M • ti B ti g a £ asHM-HDiVHios

(x: o O 01 JJ 10 JJ -H JJ

O

p< z >^ o a ij 01

a 01 01

M z g

CUu Si JJ c X 01 c MH

a Z z Eh IB 6h 10 -h Eh 13 -h ua

p .H m tH < e < 1^ u vO ^ •. h <o

CO

INMOH o

IN

h

m rH ,-^ a « -H iH rH ^^ a 11 a

(8H & H •k >H U ^-^ t^ m M M ^~ > 3

EhHi

Eh » -H S 2

IN -c ra

k^

ra rH ro u cc a

-p^

(0

m

OhG fNJ 01 £h

IS o

j: v^

"^

46
S 1 . H -H 3 -o P

jj

H 4-1 in c

0) <4-l 73 (1) 4-1 a) • P • 10 "^

01 01M IQ i U C lO Cin e

0)

g e

(U •P -H -H 0) 4-1

H tJl 0)M S MH £ C t-l (U £ in (0 4) 10 c

4J 01 (U V4 tP •H -O <U

p

in mh

g rH rl -rl IP 41 MH -H ft

U-l o js M-l MH Ti T3 P Id •H C P -P c d g

13 4)

C -rl 4J

4-1 0)

M

H

M 4JM >H in -0 M-i -H in tn ID •H a) •z 10 ft 0) 4) -rl 0) c 0) in IT) C 4-1 N II O 10 TI ^ 4) 3 J3

0) on 0) a) •H • 4J -H

g in & P U (1) -^ J3 in (0 3 c in 3 O

4) > -H 4-1 a) rH 4-1 •H

M

HM

CC 4) IB in • J3 C C -' J3 3 T3 J ^ 41 T3

-P

QC

p ly .-H 41 in o 4) Eh IB

C 4)

in 3 O 10 E a rl 4J JS P -rH

C

(0 in (0 3 H 01 4) 4J (d MH -H

i-H MM T3 iH

C 4-1 ft P 10

M • 73 4) MH

IT) a) It) -0 0) 10 10 0) 3 3 n 10 in 4) TJ 4) C • > 0) c c c 4-1 ft to ft 0) cn 0) TI

Dl (1)

C

C n3 -rH en 10 in

C

J rH

C 4-1 in -H Id £ P H > -H M-l •H 13 -rH •H W U H in rH MH g P Id in

10

O ^ — 0) in Z II Id •H -H ff, -rH

M

-0 (3 •H -a ^ w 4) 1 ^ 4) in c O >i P P 0) (U ^ T) iB ft ^ £ in -H 4) TI ^ U, C ^ £ x; o in P 4J (0 M •H >H 4-1 X s an Di u lU IB n (0 EH rj S in (d T3 C rf g o m >1 o in 0) a M-l O 4J 4) O 4) -H ft E 4-1 n c in 13 ft H - h 10 g P 4-1 TI Vl Eh

Ui - c a

4J in

u in en 5 M 0)

(0 4)

M P r~

u •H U] 0) IH

g c •H (0 M-l

aw

w .C

H in II 5-2 in <u 5 o (0 -H ft is MH 4-1 4-1 Di O Eh

0) » in i >. in

C 41n <

(0

M -H IT) 3 4-1 >1 >1 4-1 S H 4) T3

g

n -HM 4J S » o ft M ^ c M-l r-l H •H 41 4) 4J in 4-1 2

C^ 0) 0)

D 4-1 a^ a)

H

C 4) ^ MH T3 >H 01 4J

O

O

tn oi

M ftn in in

H

O ^ Q

W •H T) 4) (0 ft 10 tn 01 c >i ta c • 01 O (U P %% 10 g P 10 IH •H —.4-1 -HO) •H ft 73 41 C C 4-1 (0 W c r4 (1) > in '" s

in V^ ft 10 IH •HO x: ft

p -H ^ 144 Vj IH

p H-l 4) in 4-1 MH o o g in Q 4) ^ < in Eh in

0) in •H Eh Eh 10

C TI -H EH rH 0) H T3 IP M-l D 3 4J -0 T3 Id 4J 4-1 10

(0 TI (0 o U -H

H ft ft S -

"^ 0 4) >i 3 p 0) n 3 D O g S in n c in rH C 4J 13 c ft m D* c O T) O; •• H H G in M H Dl-H C

a) c c m >, 0) (0 ft 01 T3 4) o (d

OJ Id E CNI P .. •rH IB 11) in r-l IP iH MH rH41

g ^

Ui e 3 • in in in 4-1

M XI Id in Z M

U -

•H 3 — V4 in 4-1 73 •H

u Id

n -Hpu c in >i

U •H 4-1 c u <u T3 41

u in in Id in 4) rH

Q -P -' in c o (0

Q > M 10 inM T)

M . H -H • +J 2 in u c n Z c U 10 •H 4) 4-1 in 4) MH g c M C •H -i-l (1) w ft iP A 4) C -H 4) 4) H -H 42 4-1 M-l 4-1 H o 4J >i m o Id Cn C O P M

rH

O U-l

C 13^ •H aj 5 §1^ § Id 4) inM

in 4-1 ID

H (U -H 0) M-l M-l J3

M i Xi ft >7 3 H W 10 in TI g H ft Eh tH Id Eh ft T) •a o 0) in u

p

to \D 6M in

fO r-l

n

b

M

(NX

I-H

H

>< r- CO

CO

(U rH o s r-l CO •H ^ r-H

)-<

Q II > QaH Hu aZWM HH

•zH

-a^

IS •sr in VD

H

u pq

mm

U

+j^

(0

U ft

0) IN

in Eh

(fl

O

x:

J

ft ft

47
1

1313 44 •H rH Q) 0) n W c m - (N ^ - fc > H > U 4-1 4-1 rl C -H u 01 Oi •H d) •H 01 01 01

113 3 +J • c c ^ 4J -P 4-1 4J c C Oi 01 cr • ^ r4 •H 01 w H O to U rl rl

M-l O iH rH o TS c Dl 01 to 01 10 m5 to (0 - U to to •H c U 01 IH d) 01 to 3 oi 01 01 -0 •r4 D^ to c 10 X X E I4H JJ (0 cr u 01 u M 10 0 X X 4-1 4J H

(0 -u -o <U M 01 to to u to o O

i fd c » 0) 01 d) 14 d) 14H H-t dl 4J H Tl to M r-l4-l E B 14 >i •-! >i rH o c u o •H •r4 d) I4H to MH to 01

M-l (U 10 4-1 4-1 E 01 -r4 3 • -H 3 • d) 01 "O c ^ a u u -r4 e ^ 4J -P 01 4-1 p 01 3 3 dl M 4-1 to (1) to d) d> 4-1 r4 i-i C 01 c o 01 r^ rH TD ft

<" _ x: 4J X x: x: 4-1 d) dl 10 C 0) 10 C to to Tl X

-p e 4-1 o 4J 4-1 01 ». 4-1 -a H Tl rH > > 01 dl O ^~^ to X 0) -~ U ^ •H 01 Tl -H 0) Tl

to 1-1 c ^ i-l 0) U4 <U i dl 4J XI CTl 10 4-1 X 10 X 10 d) 01 U M-l u (ij to x; 4-1 1 1-1 rH 4-1 0) 4-1 d) X X 0) X to 4J Xi 4J in o to 01 4-1 14 44 14 4-1 4J p

£ en * '^c IT) O c c M-l — x; •H >, >1 c

o c c u 01 >-l u T) Tl XI 0) -O X 0) >W MH to 14H H 2 — IH x; •H •H c 4J 0) > 0) >

>i -o • * 01 O 4-1 4J 4-1 C -H I-I 01 Tl •H 01 Tl H X

m XI to c to 1-1 14 H 01 -H 01 3 01 4J 3 a; 4-1 44 4J 44 4-1 •p 0) • s 01 d) 01 4-1 •H -H 14 i

3 -H 3 10 -n •H •H -rt c M H 1-1 (D 0< a 14 4J -a 0) IH 01 IH 01 01 01 S Oi

Q) OJ CN • OJ 01 -H u 3 01 rH 0) ^-^ 01 -H H •rl 4J dJ u 01 0) 4-1 01 01 a 3 C 4J rH a p I-i C Tl Tl >, Tl E u e 0) e -H a dl a-H C rH

lO -H * (N +J -H rH c 4J 01 M to rH 10 MH 01 10 MH Oi o XI U U !h 4-1 • • CN u C 4J -H 3 1-1 01 0) X 01 IH c u C -H •H H H »

to 01 z — H XI C 3 >i i 0< C to 01 •H 10 01 H 14 14 01 IH 01 x; a) H -^ * H-l -H 0) H to 3 r-4 C X -H >! X H >i 01 01 dl C o X 1-H (N tU 01 01 E x; -0 c to to O I4H O 4H E E 9 1-^

4J 4-1 y ^ 14 01 X + •H 1 H 3 3 Oj 3 Tl

(V 10 to 14 d) 01 01 01 >i >! o 01 4-1 0) 4J C C c to x; "O e * iH d) D( 5

x; x; x; c c X 0) C X 01 c * d)

4-1 c u H U

2 E 01

4-1 4-1 4-1 to to 10 4J X 0) 4-1 X 01 to 01 to Oi to M

to 2 ii EH Tl ei Tl c c

to in II « 3 x; 01 01 01 01 01 01 Oi OI •H Oi H 01 r4 01 •H 01 4J

0) CJi O ^ - C El c c c c c c c c C c Tl C Tl C C

•H c <u 2 3 -H •H •rH •H -H H r4 'I-i ^4 -H • 14 H to -rl to -rl 0) ^ -H X H II • dJ 4J 4-1 4-1 4-1 4J 4-1 4J 44 01 -P 01 4-1 01 4J 01 4J E

•H 73 E-i

' 5 'o

to to to 10 to 10 to 10 c 14H 10 c MH to IH to IH to 3

o to s ^ o O O O o O -H H O O O M

d) (U U H d) •r4 H H •H -H •H •H H T! Tl -n Tl Tl rl P rl 4J -H 4-1 Of M . S &H CNO) 4-1 •• Tl a T3 a -0 73 a Tl 10 T3 10 dl -a C Tl C T) 01 W E 2 4-1 to 01 C c c c c C c C 01 01 C 0) 01 C 01 a 01 C C

4J s to 01 IH •H •H •H •H -H H •H H H 3 -H IH 3 -H E rl E -H H

•o c +J - O a 10 ^ <u 01 i-IH d) 1 1 1 1 1 1 1 1 1 1 1 1 10 g >i 2 "O 14 C 1 1 1 1 1 1 1 1 1 1 1 1 U 3 01 c u

u 0) -H 01 Kl s x 2 < u + 1 > b; w

to 4-1 c 14 -H ' •H m 0) Tl x; c •H J= C c • Eh -H +J 3 10 U •

P

ifl e

i~i h

1-4 <o

00

en

a)

r-l o

XI CO

IB ^

•H H

M II m H >

a

H

n

-o U

M

ra (N u u

4-1 M

(0 a<

(U

in

ca x;

a<

48
3 "O u 1 1 0) 01 d u 3 (U u -H Sh iH U) 4-1 C lO (Ti H p p 10 IH P U C lO £ H tJi D< 04 n lO 0) O (0 CO M-l C 73 0) 73 CO

(1) u M ^ n - ^4 -H (U CO e C 01 > 0) <d 4-1 1 4- CO » 0) in CO in •H (0 -P ,c h -H rH > lO P CO 4J 73 o - 0) 01 10 4-1 01 ^4 C (fl M + x; 3 G 73 ,-^ 4-1 CO U ft

(8 >4 01 0) • 4-10 C 73 - 0) CO 73 10

lO J3 4-1 m 0) iH (0 C tP 73 ^ MH 4-1 0) >i ,C Eh O -H 4-1 01 M-l ,C (0 C S (0 ^4 u

M-l O (0 CO 10 C M -HO .-v in -H Vl 0) U -H 0) 01 73 M-l >, 73 H H 4-1 iH O • (0 ^ -H 4-1 > £ 4J '0 10

M-l a ra 0) 5 XI u P CO C (0 M -H 0) XI SH (0 0)

<U p (1) 0) O C C U 73 Sh ^—

s

0) 73 e -H

73 P ^ p 0) -H -rH C 10 (0 73 H

4-1 01 01 in •H -P u O >-l 73 lO 4J 01 0) iH 73 01 CO >i

(0 fO iH (0 C •H M ^ p „—CO U ^-, x: e x; PUSw ^4 tji Q( 4-1 -H 73 01 4-10 > U c 4-1 Q4

lO C C H M-l S CO u )-i J3 Si -H QJ 73 ^-^ (0 73 M-l „—.. x: 0) in >i

-a E-i .H u m -C 01 (TV 4J > • ^4 * CO MH ^ 4) iH p in o ' OJ C H c; m 0) lO 3 OJ (N 0) Ol 0) ^-s >i (0 z c 73 73

in p • ip H C 1 IH -H P > 5 XI 4-1 p 0) 01 +J 01 en >4 -H 10 H (0 £ 10 M . CO • in 4-1 C M C s c J5 -H H- p CO in ^-^ * >4 73 • MH P to

0) OJ -H •H M-i 4-1 -'in 01 > OJ > IN <D ^-« U

s P 73 rH Ul •H 1-4 -H c *-- ^-, P M-l (N (U in CO E O (0 M-l 4-1 S 0) in •• -H 0) (0 -^ w U •H ft

(0 <u n H m 4-1 (0 M ra p ^ ft > " CO W ^ 0) o ^4 ^4 (1) 10 H 73 O OJ 3 (0 4-1 in ^ 73 -H * in 4-1 10

CO > H X 0) to Tl 4-1 '- > CO J-l rsi £ P 0) M 0) O M -H 01 131 -' x; 4-1 S 0) E (U c 0) 10 fO 73 fO H 73 C 3 * cfl XI M !h

01 0) a in H 4:: n C -H 4J (N in (U E r-H 4-1 CO o e Si 42 D 4J

in • 0) Di U lO Mh -H P 1 -^ OJ S-l fi MH W H ^ CO 73 r-i Ol xi c in P ^ rO P (U 0) 0) in 0) c + 4-1 CO M4 * oi •r4 73 to P >i 0) •H ^ ,-1 ^ CO > -H CO -— IN rH C U

tn m M-l ?5 M 10 CJl 1 73 — 1 10 M-l 0) S W in C C -H -H C 4J Ol ;9 C P

C 10 -H C U tH 0) x; II II -H

•H -H 4-) H ^ in -H £ 0) — -H H tH a p; OJ 0) 4J C 4-1 Ul r^ <u in cn ^ •H 0) M-l 13 4J 10 ^

(0 0) 0) to S 10 -H -H 4-1 73 10 in c U '-- H C W M

O £ -o 10 4-1 (0 g CO (0 n — u 0) • g 0) CO •H 4-1 -H •H cH -H 0) 0) ft OJ E ^ x; 4J "O •a H ft H M-l 4-1 iH H P 4-1 X * ft 0) <D Eh CO . ceo C •H -H -H •H 0) —' rn in x; -P

4J in MH 73 0) •H -H P •H M-l r-H 43 lO CO Ol cO II II O4

fO -H • - H U U u 73 >1 P • in CO

1 1 ^4 in CJ 3 in M 73 CO S 2 i-i >i in in in 0) 4-1

1 1 0) 10 -H 0) X: 4J H H CO M-l Sh 01 P

> C -H 73 o; 99 -H C H C CO 0) o w 0) Of (0 M-l S-l •-{<-{ (0 4-1 MH •H r in 4j (H Qj in 01 0) M 73 -H 4J §§ in c -H H in 0) P C C > 10 H 0) 4-1 01 CO 73

M-4 H C > -rH -rH X X: 73 -H x: 0) c c H lO -H 10 U in M-l Eh -H 10 Eh iH -rH

p

(d1h

CO

w

<u

r-\ ,Q CO

(d •H iH

>^

II 10 H

> H

S

H

-au

n) *

U U

-P

^4

10 04

dim

ta ,c

ft

49
3 1 tn C 1 en P •0 (3 H

01 (0 <a Ul • o E a rH to 01 a 73 0) 4J n M

4) 2 S H c a o; 1 4J s k (0 01

01

O (0 4Ja («a P c -r\ A< roO 73 o

0) -u U-l (44 01 (J rH » O 01 o k •rH w ta C G r^ rH . 05 T3 rH 3 TJ TJ T3 5g ro . (0 -ax: )H 4-10 (p

lU X5 3 • 01 01 o c

4-1 (B 01 01 ^ 4-1 O' • C -H tn >H • B 3 3 >H 01 Oi -0 - CJi 3 4J (Tl «) e >i k (0 0) c P - 4) x: CNC x: n 01 ja M A g

01 E 4JH E U (NM 01 4J OS -H V4 •-{ momk

•HU 01 01 CJ (0 01

a •rH (44 "0 <w -O 0) (H 3 4-1 13 » - a 01 TJ 3 1 -^

(U (M +J

M TS 01 )H

C » 01 T) o H r-IH 3 •h Tl 3 01

^^ "O

H >. (0 rH>4 z a,

n

HM rH

a

(!)k 0)

g (4H fa T! 01 x;

u OJ 0<

u •H 01 o O in 3 (0 +J x: •h 1 c (U 0) 4J +J a 4J On u x: 01 rH rH O ^i^ 4-1 (p 0) a c ^J l4 u r< a • 4J M 3 4-1 IH

ro Q) c >M

a

u 


a j< 01 j; >H 01

W

M i-l

u 1 o •H -H rH 4) P V4 01 a; S^ rH -H 4J I4jg 73 >

ta 4J T3 ^0 X. a;p ra P O ro Dl 01 ^ x; ^ n

s: 4-1 * C

C 4J 01 -H 3 (0 (0 J= c x:M 4J • O 4) c k « 01 -0 4) H a XI 4-1 -H x; o ' (44 a 73

tn z (0 o >1

O -H

H )H (0 01 4-1 -H

© c

tn >i r-l (D rH (P X> 3 > Dl X; 41 o c x: rH

a • • IH 01 o p XI 13 > •H 01 (0 -H tr •H C s 4J 4J u (003a •h o tn ji 01 o p c 4-1 m > E 4-1 o a Pi 01 4J ^ ^ o 4J IH \D ro

0)k (S -H ^-^ •H •H

C 4J (0 c H J3 01 01 CJ

M (0 3 o rvj

C 73

O s.

OJ TJ <N 01 £ 01 Q) •H ^C o n •H -H

a 4J

X .^-^C (44 •-K

p £ 4-1 4J U Eh ^TJ 01 (0 s Dl (0 M (44 k rH E (0 M fa o 0) (d 01 ,C -H -O 4J VC c (44 Tl -a a t^ T) a u fl ^1 e * •H a K (0 (H CJ 4J n u rH 4J x: 3 M O) k tn kH u

>4 -H k4 CN -a

C 01 01 (0 01 +J c w -H Tl 73 tn 3

(0 4-10 2 4J 01 (0 P -H o c -H

m fa

a

n o M en 01 £ C IH (0 01 0) (0 P • e -rH -rl >! C M D* in c O (U M E s (il Tl »H • -rH 4-1 u u IP -H a (0 CJ M O ,-^ •H

(UU ^4 •H

p (1) >.

a • k 4-1 -rH 01 4J "E o m

M •-^ • 0) 0) .c -o (0 01 (D XI 3 (0 rH fl) n >, n « 01 j5 j: B * 6i (M (0 tj 3 £ • OJ (44 -rH 55 5 C -H 3 > A« "O Oi M p u

4-1 4J r-l

O 0) •H 4J '0 >i Dl

A CO XJ 3 C -HC <N 4J

•z » 4J

u T3 01 (U <w

C Z -H -H 4-1 73 73 -H > 01 o c 4J

W H-l • II

n 01

C -H 01 73 -rH •H '"fS

M 01 Dl !3i Dl 4J 73 73C 3 a (0 in (DOE Cn fc M 4-1 -H OJ H O 01 s ' 01 C C C (0 ^4 (0 •H rH •-K a: E

•H (D o o -H c a •H 4) 01 CN •H -H -rl

C

O (44 rH Ai

a ^^ (0 (0

«-< -D 4J « w 14-4 (U c (44 a< 4)

u 1 ^ 4-1 4J 4-1 •H (fl 144 01 rH 01 4) rH 4-1

k

•^^ c tn E 4-1 (0 -H (D 01

O (0 (0 (0 E a

M

73

a £ y; (0 o o >. G 3 O U C U U H (P > AS 4-1 <N a

(U tn £ M

O (i) o in »4 r-l £. rH -H •H Tl inw .a Q< <u +J 4-1 Qj a Oi to (u o 0< « tNi0 Eh TS 73 73 n o rH T3

01 x: c 01 10 (0 01 4-1 r-l rH ^-^ z x:

CC

Ck x: (0 3 x: 1 c ^ '^. x;

^^^ •P ^ C 4J P (0 XI ^ V rH 4-1 •H -rH -rH rH (0 4J

u 4J (0 in 4-1 4J 73 -H (U •H T3 73 -H £ z ^ • (0 01 3 rH ^r^ 3

V< >i 4-1 )4 o o ^H 01 -H •P rH rH0 T3 1 1 1 >4 0]

C

M - 4J rHC

"c8

(0 «-l -H

k •H ---1 (0 (H 01

M CJ 2 +J P 3 4-1 01 o « x: •rt

O -H 01 (44 4-1 4-1

O (0 Dl (0 4J cn i^ &< > -H (0 -H 4-1 •rH 73 73 in 01 01

4-1 -H HI (U dl

a > C II

O (0 4-1O 4-1 •rlM rH •H II Pl

01 c a ja (U c c 01 01 •H 0< >H -H 01 -H -H 10

a ^ 01 u* o 01 r^ 0) cr E 01 01 H C 4) 4) H H T) Q< rH Tl O •rl O C O 1 o H k rl

CO j: T! o 01 •H (0

g j: -H

M £ 3 y. x: c 1-1 -H e -rHn o o « (fl •A

au

Eh -H (0 <: 4-1 E E Eh 01 (fl Eh Tl (^ S -HM HH X3 -H (44 01 CM CJ IH VD VOw o o n

jj

10 Q

CN

p

f8 o E

J^ ^

a.

fc< <

LiH

rH<

in o

CO i; o

a) tHA

(t e<

01

01

•H> o

00

.H

II MHH

^3M

rj 1/1 r-l U o a

4-1 w

flQ

Qi

<U (N

0] Eh

nj o

s: ij

Cu a,

50
^4 >i

—, 0) a)

C 73

0) Id a: 0) 4-1m Id

M rH

K XI 4J SHX

U CO 01 na

g Id to

u Id a) >4 a)

H s n o c - W 3 t! TJ 4J c a) T) — Id Id m en

tn (1) ft rH a) -H 4J

a • u o ra: 0) rH -rl P 4-1 en 2 P T) E a) r4 X iQ Id X! Id m

10 (S njH a; Id n3 i a) 01 ft 4H

C e g e £ 4-1 >4 OJ 3 3 10 4J • >1 -rl k4 k -H cr en n Id c n C O 0) C Id MH 44 C a; ft -H Id >H -H 0) x: n E i« IH T3 -H T) > MH ft >4 4J a) •H aj 73

^4 4J <U c aj 0) x; s *^ 44 73

C a) 01 4J (d +J • x: TJ a) Cr E 144 *£ u 01 O m £ C (U 3 4J o 4J x: •r4 g -H 3 C u 3

4J 0) tn T)

C

M 4-1 x: i-H

C 3 •rl

M (1) 0-1-1 E tji Id a) >i Mh 3 • 0) c a) ^ >i S4 DC MH Id X3 -H a) m r-t e^ ra XI

•r4 14-1 4J X! ft ft >H -H +J -H c X3 c >4 0) c

M-l " 144 4-1 (d ' x: EH + a)

M 4J T3 -H iH m tn +J E >,

T) aj

H

M

a)

m c ^ en 4.)

H en -H V)

(1)QH CN 0) -rH

M

Q 01 x:

J -H T3 2 x; X c

4J • r a) ai +J 3 ~^ 44 M E

(d » H nj 4-1 )H «H

H -H Id

X a; rH c Id 0) ft • • M e Id >, -' Id i4 •rl u + •H HO (u g a) a< -H 4J ft X3 w TJ 4-1 MH u u ^^ W M Sh M <U H W td a) — -H c X T) Id -H +J XI +4 to 0)

w ft 4J XI -a ^ x: Id a) c E to o u

W ON 4-1 en -H M-i ^4 c Dj (N 4-1 ID Id 1^ E H a) IN C m >i ra (d D MH c Id Id 144 1 4J U >i C

0)w

W

O -HM

M

C -H

H - 44 a) a) 33 to iH Id s Di C 4-1 T3 M -H -^ Id M X3 U ai T3 Id js £ Id C ft 3 H-l V4 M CU "O 3 XI H c w -P iQ 44 u M EG i4 (1) Id w Sh Id u a) aj v^ 00 iji Id m u •H -H a) (/) a) a) M H a) sh n

44 ^ + 0)

m 01

4-1

MM 4-1

C 144

m !H " x; Id ^-v a; rH

um rQ

'0 -H Id 0) (1) -H Id 3 S 4J ^

X3

O a) a) S4

>-lm -rH Ul 4J a) oxm

m c 44C rH Id n) -H ^ rH M Id c a) M rH a) 144 "d c H 1/1 o O D rH i-i 0) a 3 ^ Id 12 u aj 1 D* (d x; t4 Id c Id •H x: 44 !H X 2 Id

aj 0) (u 4J a)

w • •H

C 44 44 § C Id 44

H 44

Sh Id

H +J ^ >4 >, ID M- aj

H Q)

O Id

Id ^ c - Id

Id Id Id ^^ 6

Id 01 X3 iH c g -H 0) a)

G , -

01 E x; 73

H (d •iH E 4Jm >H I m 4J 4J H m .H vi o 4J MH 3 M a; u >4 •H ei 73 Id >, >4 iQ ^4 a) rH £ u m ft «H S M T3 C X5 a) iH ^4 Id — aj r-< 10 ft Eh 01 iQ a) Ul M 44

Id -H

N Id 0)m Id

u

N c i4 44 a) rH ^H

O (0 T3 Sh iH a) 3 ra a) 1 a) a) ai ft

u 10 fO OJ C 01 c a) x: cr a) s XI • c X3 ft 1—1 Ul ft

Id >i aj sh Id ft Id IdN tH a) rH 44 ro 44 (D

G

4J X( X! Id Xi 4J 1 to a) in c T3 rH 44 fi 4H

Id -H ft 4J

M Id >, c ra 01 Id 13 -a k4 a) ft iQ X! • •rH H to c m M T3 C 73 MH

0) Sh

M

C rH (H -H S rl Id 0) >—' a) 73

w "0w ft aj oj &4 J4

H Id > 144 ^ •H 73 a) s

iH a) 4J x; aj a: 0) PM > ^ a) -rl §

OJ -rl 0) 4-1 3 X3 01

4-1 73 aj Id 4J 4J x;

u

H ^ 33 T3 44m 3 M tH rH 44

>4M >H 4J 3 ^ Id -H Qj l3 Fh aj 2 o o a) er 0) 73 o a)

Id a)

M a) S4 c 2; x:

H 01

u X3 0) x; 73 c MH x;

(ii sh Id s tji -H 0< 01

g 4J

H Eh ^ 44 ra 2 &H SH 3 Id •rl 44

4J

S^ o h

inH o

rH

Cm00H

m

33o ^ o H H H II s: 9 J •rl U

(S

U - H

•H

H .—^ •»

M •r-i XI > H - U

•H

H

— II Q !-, wM V4 2

T3Mm rH CM u O o

+jn

<8

w fc. o

0^

0) rsi (N (M m fH tH EH

0) o o O X )-^ XI J

Oi fx. Oj ft

51
c -a TJ 1 u-i i) 73 i to X 1 H 3 C to % u

-H

a a) i-( c IB

X -H

X a) c to a) -H

X < to C (1) 4-) 4-1 3 •• > • 4-1 « X • ai IB •H m 4J a 4J a) to c O J3 p JJ

fl 3 4J

IB -1

IB x: rHiB CB a< 5x to g 4-1 1 g U X (S 73 c o a n t* eg c 4J p tT> a) a>

to x;

a OJ

C 3 1) c cr

C

X 73

<UO 4J 0) , a)

X iH -H ox 3 tp 4J 3 ? .

4J

X 1 -o i-H a; r-H rH • C >-. M-l ^4 3 4-1 - c >, >, X IB 3 o to to IB H V C 10 ClB X IB to 4-1 C 73 x; g to 4-1^3 £ 4-1 >i iH H P o c 73 -H .to c •H a) M 01 IB CO • •H to C M-i 13 . k4 >i •H g > H X a) o

to -P c P IB

C • -H a) -H (8

X (0 c S I) c a) IB IB x; c rH 9 O 73 IB 0) X( a; b X - a 4-1 1 O 4J • 3' •H a) >~i 4-1 u a iH P 4-1 4-1 IB IB

di (Uu -o 3 J • z > ai T3 P c g 73

to +J -H l-f

H 0<

C • 4J T3

a aj a) -H 3 IB a) 3 4J M m c u •H Q. 4-1 > p 73

M

4-)

X to 73 1^3 -H IB

g 3 c a aj

OJ to 4J j:

C S-I z to o 0) •H 73 P 4J

X to •HO'

M T3 to

a

p 0) a> -H P m +J 2 IM 3 to V a) o ai c Oi 44 rH to IB 4J S >! a) 01 IN > 4-1 c IB IB C 4J ai ft c >1 « 0) X a) z IB Oi H -H 73

0) XI Eh to

X 4-1

X 10 rn>-i CP P c P 4J Mh £ X n 4-1 4-1 Qj to Z IB C c 01 •H a to £ T! O ^^ to to 3 Oj -H 3 T3 p IB

0)

h (0 ^ a) to to « a)

O IB a) 73

uu o to •H

C >| S4 (NtO 4-1 IB ^ OJ rH 4J to

C s

>^ Tl tp -H

X a; z -H i-H x: 4JO 73 0)

a ^j IB )4 •H IB > O 1+4

a

a •H IB P

(D (B 4-1 IB 4-1-0 to >4

X

p 4-1

M IB a)

>-l

C IB a) c a) -a 3 IB 4-1 >i 4J di (S o j:

Oi -H T) Oi 4-1 aj to

X 4-1 P £ 4J

TJ >i to IB 4J >4 to c a) o G

O

M

to

H

CC V^ 4J 01 >4 to c . IB 4-1 to

C -H IB -•- "O IB > a) rH 73 •H >i

p o o 4J r^

to tj

a -<X ^ p I4H nH IB IB >* P IB •H Di -O C T3 IB Oi -O g -H IB a) a) X P IB c

to

C IB •H ^4 o to ai 3 3 73 > o (B (0 ft 01

M -H 0) ffl to 4J >: •H

X -H

0) to tH T3 a) ' -H 4-1 to i-\ to 4-1 o o tn MH to > 3 IB X 4J a) 4J IB <u O 00 •H S ^ a) ^4 Eh IB -M X C C l-l a) o rH > 4-1 u g z Ot 4-1 a) «

a< 41 q. [ij to

M " S

*"' ^ g

H to 5 b 4-1

O to • 4-1 to Ti 3 4-1 •H <D IB

a

a 73

i4

U 4-1 4J Tl

X tPC -HCM •Hp P CQ to P

IB

C

M

a a) IB 4J TJ IB to to I-: IB

d) e oj to IB IB a)

g ^ to o > h •H •H >1

C IB E 4-1 • O P 3 Z CC IB to c H S4 OJ O 4-1 tJi P P Z -H aj a) § h • IB ^ rH cn 4J 0) C to UH p > to X &, to g C C IB a -H Ha) m 73 to a) 4-1 a> as H O -H IB H 4-1 X X X C C C 3 X c X X m X to rH z a to Qj a, E-i 4J -H -H to 4-1 Eh >t M H (3 < X p

+J

(0£uc a

O

fa 3

r-lt Z^

o"

rH <o

CO <o00 c z ^zmZ in

a) CN M z

XI I h rO CM >H fa •H z ^ 3 >-l ij CQ

(SH .H >H In > z z S 9

fa

H EHX fa

OO <h Kl 3 J J J E m

0- CM

X

M

H c

S-i rO tH <N

n '*

U

H

MHH

j-i ^j

to 33

M

D^V (N IN

Ul EH Eh

IB

O

O £ q a

Ch ft ft

52
j: > • 4-1 ^ 0) 01 01 01 "0 IH 4J T) C 0) 1 0> 1 P OJ • u IB ceo T3 lg

.c

+J (IS e H 3 -H r4 01 4-1

u c c +J 01 01 OOP 01 •rl 01 Z 01 CH H IB O 4-1 OjXI 3

01 S

x: •rH

to

u T3 c O • M 01 01

in •H

a 4J

H 01 ip 0) 73 3 C.

C II 3 -H

4J ^ 4J

O

XC •rH •H

C

Eh (fl

M -o 0<

G 0) 3 MH rH •p

M ^ • iH S -H (0 0) rH 3 4J • +J 0) rC p Eh Q< 01 as 01 3 » MH rH (B 01 n 4-1 >i Z g x; <P 3 3 a ^ tN rH O r^ 0) 01 Oi Qj .. •H C c 0) IB ^ ft* P z e <i) u-l ^-1 01 0) 3 MH > M St 5 rH II M H +J D^ -H rH 4-1 IB C U 3 rH IB Id c U n) C 01 Si 0) IB > M •rl rH g H 01 -H 4J rH 01 N •H 4-1 -o 0)

ta 10 P +J HH 3 4J IB 4J -a r-t

O

C 01

M

u o>

X « 4-1C 33 3 C 0)

H 0) •H 0) ft 0) c H 4J -H Eh rH D< -H o 4-1 IB ft C 01 XI

a) -rH

U ru rH E 4J « IB 0) IB 01 ft •H ^ S £ c 4J fO 04 a W 3 3 Oh rH r-i MH H (B jj « (rt z M 0* 01 a l8 IB (fl ^ E T) u X 0) 01 -H 01 3 4J 0) -a 4J

i^-i E OJ Eh tH MHN Tl 0) tr 4-1 « Id x: e c

IT) i ip S H •rl 01 Eh

Cu 0) c '0 4-1 IB •H

to

M -P

M t/1 -r<D 3 IB •rl

U

4J

U -rH njU Z C 4JO

U 0) XI » > a

C ig 0) T3 M-l • 0) E^ Z XI 0] Oh

N P p -0

_

01

B x; in 4-1 Di 01 01 ^ H

D 0) • C

H 0) (B ^ 4-1 l§ C 4J o IB O MH MH S 0) §2 0) 01 4J

g la -H IB P 3 Z H 4J >,

N 01 l8 'U 73 >P 01 H rH cr . o 5-3 )H 0) T3 o C 4-> 3 On a 0) 0) ip P 3 rH 0) C M

(1) f1 IP t7> ^ M . 3 U T! S 5" 12 S<-^ ^ 0) C 01 M 01 01 TS OJ M XI 3 01 XI ft 4J

+J Ul

tji 5

•H

C IB 01 rH 0)

NU 0)

O S 4J

4J 3 C

<u x; -H 0) ig

4J P IP 1 ft 4J IB 01 iH -H c P J3 C Eh "0 P -H c IB 0) IB 01 >,

-P •H » P -H

p c D 0) XI 0) +J 01 01

H

)^ -H P O P rH -O c a

M XI -a 0) •rH 0) 4J rH c u g cr> •rl Z 4-1 Oi 0) IB 01 01 C 0) rH > C -rH •H 0) 01 E C c 4-1 P 01 u 3 o tn OJ ja Vj N 01 -rH •H CJ 14H rH 01 IB •H tJi 01 01 IB 01 4J O -rH Q< IB ^ IB H a M C rH IH •H rH •n c 4-1 Ul U (B 4J IB -H W >i Eh5 r '^ •rl IB

ui in 01 P 01 (0 4J 01 4-1 E H

M Eh E-" S _ (U 4J 0) 0) (B 0) • 01 C 2 "* Z Z 01 Z ft "0

01 Id

CC T3

H -H 01 c

•H

T)

C P 0)

C

C +J z 0) ^•rH

g ,8 S H 3 MH i-H rH Uh 3 0) -H IB H 4J IB

H ^ •H

C i) r^ 0)

H 01 MH MH 144 ^ MH UH IB

H

u P Q 0)Q < rB c Q ip IBa -H

H

H -0

H XIM Tl Ql

(S>

0) "0 EjK EH

W Eh

m (U o: EHD

H z

01 o § a

g ^

Eh T) z z

+J

Ifl guh

inHH o

[0

DW

01 o a H z g

•§

an EH

-rH &< 2 > - w Z 3

•a

^^

(S i-l u <

4JM

(0 <

0<

(U ro

01 EH

ifl

O

j: ^

04 Ch

53
D)

as O

<d paa 5 ^ a U ^ JJ — - rH a x; 73 a rH 4-1

m

ra &] .-1 +j • a 5 a

a P u ^-^ ^ ^

10 4J ^ p 1 XI tn la

a

V en - -H JH ta 3 73 -P c u M U In 3 — -- a a c » a

(0 tSJ

W

X ^ i i § !h 'a' x; 73 E o H -- Eh a (0 p a (0 73 M a a a: § 3 x: •p M a

(« • X I-I 73

n 2 z c H Eh 73 I4H

M (0 c +J "O -- • C jj a a u a a -H

nj (1) J-) tD ra £ » > rH

m (0 > <*H o o 0) 4J 4J M a a 3 • 73 c a

0) (0

H

X ij-i -Ha £ a e c u e x: 73

n -o +j ^ L

a c w

a 10

a -p

t^ art; c 01 U

X 1 c 10

m

m

O

M

y •H 3 s: i« 3 >,

a E en (0

J 0, •r^

C rHW !0

w c -p XI x; c

P< - H rH * -P c > a jj >H -H 4J

4:^

C rH IS

W T) fl -pa

a in x: 73 OH JJ (0 "2 9" •rH 18 N a g c E ^ -p a in P B

(B IB IW

M +J

a 3 -p •-I rH 73

a

H

(1) ^ £ M

W c 10 E ^ » >< (0 rOa tn

U 01 P X -Hp 3 -P >j e XI c C • ^< I4H 01 11) 0) n ta *H 0) a a Di 01 a fl >, ' £ C N OJ a -a -p c j: p 73 -H •rl > a XI tn -O -W V4 W -H 4J m a tn tn a — -H

m >-i nj rH

C tn (0 +j

a c -H >. c X3 in x:

4J a; (D Itf c j3 -ri

a

a

m Di 73 73 ra

a <N 4-1 c N m .-1 m a p £ •ri c u Q c -H » H a) E a -P tn c tn a ra ro tn M c E X ^ n) X •H H jJ -a m CD 73 W -H £ 4J ns w u n V4 •H 10 a ^4 cu m N a C ' +j x; tn - la tn n u r-t -a X H > >< a '^ tji lO ^^ H i^ -P •H tn a

(0 c en

Xa c -H tn

a X; 73 I4H 01 3 d) >< T! . a T3 -H •- — •5-15 •P u la 3

cr tji j:

— (u c >, 3 C " K

rH -rl -ri «

10 4-1 <u -u Xi n rH a tr 3 -H ~ IB c a

i-i

m 4-1a 5 ^ ~-' c s (31 ^ 4J 00 X > c a H > (0 01 01 25

a) c 4:

a

H •H T3 ft >H

a .V 01 c a c •rH m a p H-i X a 10 3 a H M V4 >, 3 iw c la /:: P e Eh ^ -P Cr rH 9 = 10 a XI m Tl 0) -H a) -u C ^J M s 10 -H XI P -H •H

•r^

a

u

a

a

a 3 73 c ra <4H

m rHM

M

C M-l en

H • E IM ' C 3 -rl rH

a 73M

U Oi in -H c 4J J-l 3 a

a

u la 73 t4 10 ^ a a) -^^ >-i •H 3 n ra a -P x; ta 10 3 la a J ^ Si s: -n a +> -rH >1 c +j > C 4J u Z +J Si -p u -p ^ +j CO x: -p a ^ a c c a

fd C7» 01

wa 3 C -P E >i tn

m

a

iB IB

N

14-1 ID i-l c c J s: -H -P 3 ^ -P -H ra E P 1 M D u < +j MH C ^H c •n 3 J >' c

r3 r-l iH

u U-l j::

a

p 73

a tn IH 73 X3 • > 3 t/3 in era a E 73 Q -P C rH

tn 73 iH * •H 10 73 3 c c 3 >H 2 m

M

a) -H a) fl

U [0

a ^J IH -rl cr in raHCa

Ka

a

01

Xn 3 N 10

a ro 4J -H -p

M -H 4J x;

u rH am -P H ri a\ u u tn a in in u -p z n 2 s: u 05 sz 10 c X in c iH IP Mh IB -H a< (B

E-i >< -u r: >H Eh

a i 13 -rl Eh 10 -rt

M ft

ag 4J

+J rH

fd 1—( < g < VD n ID p 'T

n

rH <

CC

M

to

HX

t^

a< (N

h

m

U .H , , (U w ^ rl

.-H rH ^ H II

W (0 N H 04 r4 H ^ >4 H CO ^-^ Eh

fl

X

M

M ^ > H

tsl HmX

H

EhH

EH » -rl

QH

rN! 73 m M

(3 CN ^ ro ^ U < aa ca «

+JM

ra pa

u a^o m rn w Eh fri 10 x: J a a & ft

54
C T) T3 . . a) 1 y-i <u 'O oj • 01 £ U 1 H 3 c (1) rH ? 01 x: 1 TJ 0) Vj C 10 M iJ 01 X -H a a) c

01

C I/l 0) -H

5>

p

rH e X 10 x: 10 JJ D . > . JJ . X! <U 0) (0 M 4J ai 4J a jj (u M c o •H XI ^ XI 01 E

iS J3 r-(lO CO <u t+H <U to P X <u

rH

M S -P 1 i O XI x; T! a)

HM

Q<M S egCp to P a) -o 01 a) x; -rH

(1)

C 2 0) i o a) c x: PI >i a)

0) 5 in -H

O

J 3 ItH 01 UH (0

M J-> rH x:

ja § T) rH (U rH ai rH

CC 4J 3 +j - c >i >i •rl a p" 10 3 C M C(0 XI n) O 01 MH 0) c o -0 P H 3 g 4J rH C a) a) >1 rH a -0 c a •^^ . m c •rl O -rH M o H OJ a) c to W C M-l TS . U >,-H 6 0) rH (0 •-> XI o 10 •P (0 C • -H (1) •H a 01 10 (0 (fl c 0) (0 (0 x; c rH 01 4J P -rH o -a rH MH a)

0)

H x; » a -P 01 to rH a)

a -rH -H E O -P ^ rH M U M x; aj P 4-> JJ 3 J • 3 - <U H -rl +J c M c a) 01 -H

>H a* c • p T3 o a

h >« •H OJ -H X3 TJ rH

JJ

H

W

C kj -rl

a

H 01 rH > M

M -H

Ul -0 <^3 -rH (0

g 3 (DV

a to XI

C >^ S MU Q) o5 •-iM 73 P O -H

•rK • >H T3 tn -0

p a) a) a; 01

tn 5 01 « dj 0) 4) c M

H P p i-i 0) P 01 •p 0) <U <N> +J C n3 to 0) P C -P -0 c x; 0) u 3 ra 4J X; fl ro^i 01 N P (0 rH -H c rH a 01 M E M M 4J aj a E -P a m 3 (0 C C 0) C T3 3 ifl a 01 a; g 01 1/13 Oj -H s 10 0) E Xi M a) MH x;

a) 01 01-11) o 5.2

Hu a) 0) rH Eh

u

H

C >i >H CNOl 4J nj rHX rH P

UH -H ja HI Z -M rH MH to <ri P o aj

p . •rH to > d) ip Qt (U M a) E f^ H 10 c 01 O 4-1 73 01 ^4 5

(U

M P M •H in

M aica)'O3f0P>i pi a M x: 10 MH (11 a p Q) 01 j3 to ai o M XI a) x: N n (0 p n 01 c <u <U 01 p) to a) o a u 1 — M -P (U M 01 c * M -rl o w p to c T!'ao>(i)rH'd -H >1 Cr to o -~ a; 01 IH a rH ,5 rH ^H MH r-i p M 10 q' 01 c TJioaa'Og-rirfl OJ <u 01 to to • 01 M T3 XI MOM 0) 3 3 O a > ^s £ x: -rH 10 10 M 4-1 0]

n) 01 -P c r) o a ><

to to x; IB -rH -HO tt) - -H +J 01 rH 01 -p e)

O 0)O 3

x; -p 0) -p (0 <u o H

M 01M

H

O

M &H

a

r-*H x; c c H (U

h (U 1^ en

X o M -d

w E 3 a p 0) ^ a H ^ M- (u 10 J

—' M E "rf

w E a) a) (n

— 0) 3 • P UJ ^3 3 P H (1) "4-1 3 3 X! x; S P 4-1 10 D M

T3 x; iwC -HC

M -H

MM

H

C

n T)

M •• Ma V to p -0 (0 01 ^3 M 0) a) a)

to lO (U E rH 01 73 > — •H 10

M 4-)

M

OM a) 3 3 CC 10 01 • • •• o to 01 lO tn M M 3 -H (U o o §

fn • g

0] Uh P - 01

IS

H

h 01 01 >, 3 01 HO) 01 "0 Ul (1) P (U [i< a 3 -H •H 01 M 01 x:x;ccc3x;c x: M ac oa X £ XI 10 c

Eh JJ -H -H 01 P Eh >lH

H lO Eh

H a^H

i-{

M <oO

p

IQ ^0 e h M 1-1 CM C o <

fa 3 CO <N * o r- r-i H

t-H rH - < - 1 h <N o rH c ^ M CO H 3 C 3 ^ t/1 3 o • ». Hi rn EH 3 X

W

(U (N Ul rH 3 o 9 K b 0< IN 3

>< § fe g^

rH rH S 1^ 2 > 3 3 H X

fel ^ X !J s S - H

D * w ^

fe OQ U2K

ft Qi

HH

H

H

'0

>^

10 rH (M

m '3' in o Q Q a Q Q p

>^

to

Q

Qja fn m Eh

to

O

X!a

cu CU

55
a> 1 - Vj M iH ^

.h 73

rH Id c iH .H ID SH

14-1 •rH Id Id 01 C in C in O 0) 4 <u c o iH iH <U ID Id Ul <

5. "^ cd 0) 3 CP 01 0) •H 4J •rH .P •-\ H "g ^ a rH C -H 4-1 O -P U 0< p

in -a 4J M •rH •rH *£ o Id O Id MH c • 0) 4-1 •P ID P <D Sh (U iH Ul H 73

&> M M 1) "p

iH 4-1 > c iH Id u Id •H rH 0) C 0) 0) X ^ Id •rH Si •H x; 73 • •H 4J 4-> 4-1 01 04 rH a rH 73 U 73 O ^ • n P 01 P c (d Oi Id 01 ~ p r-i 73 P (U (1) M 01 Id X 4-1 >H H-1 >H CO ?^ iH o »H d) •H ID .H *£ 01 01 0) o 01 C Id iH ij> 4-1 Si c P Q >1 (U iH (U iH 4-1 CU •n a -p Id EH cr 01 Si -H Si tH Eh X M U •H T3 4-1 MH 4J MH Id >i 4-1 oj Id rH 0) •H •H 01 C iH w >H .Q -P

(S -P 73 • OJ p Id -a C (U C (U Id - Dl Id •H s C 4J > o c -^^ H x: £ i/i c >i 73 O 0) >4 -H X iH Id 4-1 u o •H Id <u Si w 0) 3 c ^ 04 73 e a -p H S •p o <D 01 HH 01 IP O Eh C

01 >f 4-1 01 0) (D ^B X 73 H-1 -a w (1) .H T) X J2 04 0) Sh

fl 4J c H x; Id 01 CD <D Sh o u 01 • i4 Id

Id p p -a c Si C (D C ID 4J 01 0) 4-1 •H CU

in » T3 (1) T3 C tH P •H C •rH C 01 i4 X 01 p 0) 1—

(

(U •H I4H >H M Oh hJ u 0) 0) MH c H X u XJ iH > 0) ID •. 73 73 P Id 4J 73

0) a) -H 0) Id •H 01 TJ O <D U (U O C

N m N -rH ip a (D H rH — •rl 01 01 73 E <D U 0) c iH (D u Id 73 Id 73 73 73 rH x: Id C

V4 Id Si •rH iH > 0) C o c C Sh p 0) U 4-1 Q( • 4-1 > iH 01 Id 01 Id 01 ^ 01 U T3 >1 P "e C Si C ,c CP ^ tJ 01 iH 10 0) rH ID (1) UH 3 P 1 • P 1 0) O >1 p iH Si

(d -H 4-1 (d Xi u •H <D c •P § C ^ S

rH 01 Id 4-1 D 3 +J Id p > 4J C 4H 0) 73

cr s (d w t-\ c U 01 H •rH (U w •"^g .S5

0) ID 01

0) >H u (1) ^ a, a) P H •-< ac Si X Q rH

C/2 (d a tH ,5 ^ H H 4-1 p -H Id P H £ p u dj •iH Mh 1 <U iH (D iH 4-1 .. MH p e

o OJ 13 Si >i O 0) 4-1 O (U 4-1 MH Id 0) iH Dl C >i c N O 01 01 • s i

X CSX )H Sh Id •H ^ +J p Id •H c ID Id 0) Dl <u D4 04 01 Ul m in p W XI 73 4-1 rH P iJ rA ^ •P C N H -a ^ •rH .p 73 tH <a 01 01 X •H 1 01 MH - D •H .-H 0) C •H 0) (D •H ID ID ID C c •H <-<

t/3 C M-l w .H 01 • en 01 ^5 ,C 73 x; £ P C H -H M Id o P 4-1 • •H 4J p p •H c E 01

U-l 0) p "H M 01 73 CD (D (D CP >4 4-1 -

M-l (1) £ 4-1 cr ^ 0) -H 01 c Si IH ip X; MH 4H ,C 0) 01 «1 01 73 H Ti P H a) w ja 04X1 Id Id Eh EH Eh ja •H M 01 Sh

Id >1

• • t> •• • • c W s W CO g

a ^

H >4 o o e c w (u 0< u Id H

1^

Eh X 01 rH X H < x>

+J

H

fc

U]

CJ iH^

•Hn

n3 >

T3M

(d u

p

>J

Hi Oi

a)w

(0 ^

a<

56
1 I) 0) Vh n J3 XJ- a a) 4J

•u JJ

d 0) 01 73

10 -H 4J -P lU 4-1 (1) • +j

g in x: d) +J C W rH >i 4-" 10 x: .-^ U IS 3 +3 •H

ui n) M-i

DD 43 c 3 4-1 •H a) 0) c > di MH

H t3H >i (0 rl

g

—

u ^ x: MH -H

0)

C iwa

M

M "3

d>

m 4-1 4-1

X <U £ IB 0) <u ft a) ^ § 9 x: c

•H 4: . +j -a c U -H ^ c M

H T3 MH 01 OJ

^J V)-<D en ^ <u •^ 2 OJ iH en 73

+J Q) -U (U

H 4J

CM rA in IS

C tH

Id "H IS 4J J3 g -P -P -P

to

C P 0. ^ 0) 3 • 73 •rl

m 0)

X <u c U c -a +J

C -H iS E - Eh c M 0) IS 01 IS a)

IS -P o- m^c

m •rH

X

H l3 IS in a) 01 4J 3 -rt 4J*3 -H <V Vh •rf c x: MH 3 >i 0) M

IS ft -P -P ^ ^-N <U

H - XI £ Xl

73 -P 0) -H (1)1-1 • ft 4J

M 4J ». 0) 4-1 d)

a c uX COX IS <U c a)

U x; -o x; IB -a Di s -p -p P 0) d) E ^ 0) x; 4-1 a; in P ai

0) ffl -rHH

g E 4-1 r^ rH c 0) E 0) c c Q) H (U IS 3 3 •> > IS IS • ip x;

ri

X iJ Dl 3 H 0-1 5

+J

C

Mu E XI c c d) 4J ^ JJ H IS -rH e m - •s

(S 4-1 <u 0) 01 en > •H

(1) T3 +J 10

X 4J -O -H •H 73 S

01 IS Ul CO r-H ft M-l 10 c 4-1 01 a) in in 3 a)

w +J - JJ IS

H IS (U 01 •rl •rt >i c 01 »

+J 0) (S

M IS 4-) x: 4J d) to 01 73 73 •H 01 c 0) <U &> TD >1 rH > a) 4-1 4J a) -H C u V H 4J x; n IS IS (S U H 3 (U 5

in c in 0) IS

m ft 01

g 4J -H Vj iH E a -.H +J ft

.5 5

•rH in CQ

G 01

g TD .H < 0) 4-1

H 4J •H IS 0) 5 4J

4J IS

M > )-l 0) 4-1 3 -0 ^ 4J m5 in ^ u BB m 0) H IS C 0 en c ^—,

•rl •rl in rH MO » ui 2 Cn 01 a) c IS •rH in ai 5

-d d) IS

0) S 01 3 D ^ Xi IP -a -rl ^-^ •H 9 -fi

uUU

g IS 0) 0) U3 "J

g 4J 3 c • « g 3 1 4J Id IS OJ 1 rH -rl ..^—. w 3 •H ^ > • E N £ g a\ M >i 10 1*H -H c 3 (Ti u ai >H P 0) E^ g u-i a) C 0) —

«. IS <n en 01 a)

ual

iabl nch,

than H.

the

in

H en -H T3 § n 01 - (Ti c 4J ^ p d) U IS d) (S 3 0) •rl M a) B

•H tJi 01 ft ^ g i

+J CTrH c IS x; 3 c IS ft «. IS 3^ 4J •rl 0< 4J c

cr vj 3 u 3 t-l in

H dJ

u 3 •a MH

(1) IS Oi (-1 2 Sh iH E

tp ai

C 3 •rl rH d) 01g

p > 0) Qj -a +J in IS p 01 M IS 73 73 01 +j T3 -p a h c 10 73 C in "p

•P 5

IB IS 3 M iH 0)

0) Vl IS --- IS Vh IP 4-1 -rH 3 c > cr P IB MH 4J

C £ IB 0) >, in (S in x: c d) 0) c

tH

H XI ^ tn

C 4J >i in in OJ 01 01

m cn XI ftH 4-1

p X) 4-1 -H in IS +J 3

•H 73 IS

g MH c ^ c •rlp 4J c cr • 4-1 M (1) -r4 c 3 -P x: 01 4-1 -d 0) in u IB 0) •H

E-1 73 <-< -H X) 3 in •PU in a) i 73

Q 4-1 73 E G

a; (1)

X ip 0) ft IS <u IS T3 3 c c 3 >H • 2 in 3 3

pj 4J -H a: -H E m x:

in 4J

01 )H

U •rH 01 )H IS S B

C ^ U s c n u u 13 u IS A-i •H +J U •H Eh 4-1 IB

-r4 +J 2 (1) 0)

U Q) 0)M in OJ in in ^ Q 01

M-l ^4 IS Oj Qi CP 3 C >i H ft E 2 to IS

IS in x; +J c g

in c UH a) MH MH 3 Eh is Cn 10 •H lO •H XI H fe •H XI

4-1

H

g

rH< < ^ ^D

'* ^ n

h

inH

(N

H

00

nHH

H

><

IN

Ifl rH ,_^

(U •H

iH rH ^^

•§

K

II H s H u ^ M 2 ,,^ ,_^ ^ ^sg HM

Eh

-H --- H 2 QH

(N

a

a

u

(0

H

Hn <r

u -a:

m CQ CQ

pMa < m

U

fh

(U

V M- <*

m tH E-t Eh

IS 3 s

Cli cu 04 en

^1
c >, ID <u Xt 1 C 01 ID 0) -' 01 O 4-1 £ 3 x: ID 143 01 •P 4-1 4J CN O 01 0) Q ID • £

>i ^ 4-1H « C 01 01 Id

M-l to

H 4J 3 4J

•^^

M I) MH ft 01 01 Id

4-1 OJ 4J

m Id ID V< 73 c ^ to 4-1 s:

a)g 4-1 TS UH T3 4J 0) 73 9 c V4 0) +J £

•H

C (1) Id -0C rH 4J

»-l o c 3 ID >i (1) 3 rH H 01 14-1 4-1 C M-l Id u O 0) C

4-1

C 144 E

i-l -H Id ^4 rH 14H 3 73

0)C '0 X) 01 •H rHC

10 en •H (U 73 0) 3 -H td T3 rH ja O m <D ^ ^ 01

0) (fl t3 Id >i Id c £

j= Id 01 3 <U Id

H -rH 4J

4J

C TI

g ID >, en 0) C > Q rH

>i 3 •'^ iH Id (N 01 2 Id

01 43 e to

U 01w c

JJ to MH >,

a oi c -O >4 (0 XI 01 0) H -H

0)

V 0) 13 ^ fe 01 c C to 0) +J TI ^1 4J g 01 3 U3 ID a) Id 01 •H to IH E H 4J u to dJ T3 Id 01

to £ 1-1 01 Ot

d >H 4J TD

(d Eh 3 5 S C IH c

Id Id 01

>H

X Q< • Id

u

<U • (/] (D •"- rH 4-1 Id 01 § " iH Eh p u Id £ ^

Id t/1 >H T3 o +J 5 w W <U -o C .H 0) IN Eh fJ M 0) 01 4J iH 4J U M 1 Id j; ^ Id 4J II 4J 4J S

0) 14-1 £ 01 c TJ

UJ T3

C 14H ID £ 01

4-1 4J Id IH ID "O 4-1 Tl

Id

W IdH E 3 -n 3 55 O 0) U 01 rH S rH

j:: z 4-10

4-1 Id S Pj 01

C 73C

Id 01 4-1 Z 01 -H

U •-< 01 4-1 (Ti Id 4-1 (d r4 Id 01 • 73 01 (71 >i u 01 "O M ID C c 4J ja

Eh -a 0) •* 4-1 -H IB rH

Id 4JC ^ W 01 id g

Eh 4J E >i Id 4-1 q x; -n J +J ID M C 01 Eh 0) 3 01 Id -H 3 H 4-1 rH C &l C 01 «: 01 MH g

4J^

64

H

x; l-i VD < W

(U

l-l Si

(d •HH

(d >

EHw

EH z H H

T3

>4

(fl rH IN

m

UuUu

JJM

(fl Oi

dJ

in

li JS

&<

58
APPENDIX A

PROGRAM STATEMENT LISTING OF SPEED2

A listing of all subprograms of the SPEED2 system follows. A program

flow / program interdependency diagram is shown in figure A-1. While the user need not be concerned with most subprograms, all are included for

completeness. Subprograms SPEED2 and CONV are the only two that users would

normally change. All other changes should only be attempted by those with

a detailed knowledge of the SPEED2 system.

Subprogram Comments Page

SPEED2 (UNIVAC 1108 only) A3

SPEED2 (a.Lternate main program) A6

PLOTl A9

PL0T2 A-10

PLOT 3 A-15

PLOT 4 A-25

DEFINE A-28

DATAIN A-39

DREAD A-43

MATCH A-46

DIGIT A-49

SKIP A-50

REDCIN A-51

PRINT A-53

PUNCH A-55

CONV A-57

CORK A-58

FIND A-60

DRAW A-61

TEXT A-64

RWERR (entry point in subprogram ERROR) A-65

RWEOF (entry point in subprogram ERROR) A-65

BYTE (UNIVAC 1108 only) A-66

EREXIT (UNIVAC 1108 only) A-67

MAP (UNIVAC 1108 only) A-68

A-1
IBU

u

«c

0) Q

u

en

)^ ft

I <

0)u

p

en H

H

)^

CO

(MO

-I

0=

CM

LU

liJ Q.

A-2
SUBPRCGRA'Ji: SPEED2 PROGRAM DRIVER UNI VAC 1108

i;C SPEED2

2; C 3: C SYSTEMATIC PLOTTING AND EVALUATION OF ENUMERATED DATA

4: C (SYSTEM 2) s: c

6: C WRITTEN BY JOHN M. SMITH, COMPUTER SERVICES DIVISION, NBS

7: C RICHARD D. PEACOCK, CENTER FOR FIRE RESEARCH, N8S

8: c

9: C SPEED2 IS A COLLECTION OF ROUTINES DESIGNED TO ROUTINELY REDUCE DATA

10: C COLLECTED FROM DATA ACQUISITION SYSTEMS. IT IS DESIGNED TO TRANS11; C LATE DATA COLLECTED BY A DATA ACQUISITIC^J SYSTEM, PERFORM LINEAR AND

12; C NON-LINEAR TRANSFCRM(\T IONS ON THE DATA, AND TO PRODUCE PLOTS OF THE

13: C REDUCED DATA. IN ADDITION, REPORT QUALITY PEN PLOTS CAN BE GENERAT14: C ED FOR INCLUSION IN REPORTS.

is: C 16: c *******************************************

17: c is: C SPEED2 COMPILE TIME PARAMETERS

19: c 20: C NROW: MAXIMUM NUMBER OF ROWS (SCANS) IN THE INPUT DATA

21: C NCOL: MAXIMUM NUMBER OF COLUMNS (INSTRUMENTS) TO BE PROCESSED

22: C MAXPLT: maximum number of curves to be plotted on a SINGLE CURVE

23: c maxcnl: maximum number of instruments recorded by the data system

24: c

25: PARA'^ETER NR0W = 125, NC0L= 21 26: PARAMETER MAXPLT=6

27: PARAMETER MAXCNL=150

28: C

29: C ***«****************************«********

30: c

31: PARAMETER PUTDI M=l 8*MAXCNL+1 60

32: PARAMETER NPTS=MAXPLT*NRCW+2

33: PARAMETER PLTDI M=2*MAXPLT

34: INTEGER VERSN

35: COMMON /ERRORS/ ICRD.ISEG

36: DIMENSION REED( NROW , NCOL ), KH ( NCOL ), ITY=E (NCOL) , C( NCCL)

,

37: 2 NAME(NC0L,6) , ADD(s)CDL) , X( NROW, MAXPLT ), Y ( NROW, MAXPLT ), XP3( NPTS) , 38: 3 YP3(NPTS) ,MAXR(NCDL), lOUT(OUTDIM) ,MCN_( MAXCNL)

,

IPC(PLTDIM) , 39: 4 JM(PLTOIM> ,IPN(PLTDIM,6) ,VERSN( 10) ,ISKIP(320)

40: EQUIVALENCE (X,XP3), (Y,YP3)

41

c 42: C VERSN IS USED FOR IDENTIFICATION PURPOSES ONLY, TO IDENTIFY THE

43: C VERSION CF SPEED2 IN USE

44: C 45: DATA ( VERSN( I ),I=1, 10) / 1H4, 1H5, IH. , IH 1 , IHl , IH , 1 H 1 , IHl , IHO , 1 H8/

46: C 47; DATA IBL /IH /

48: WRITE (6,130) ( VERSN (I ) , I = 1 , 1 0)

49: ISEG=1

50: ICRD=11

A3
subprogram; SPEED2 PROGRAM DRIVER UNIVAC 1108

5152

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

. 73

74

75

76

77

78

79

8C

31

82

83

84

85

86

87

88

89

90

91

92

93

94

95

96

97

98

99

100

c

c

c

c

c

10

20

30

40

50

60

70

80

90

ICO

SPEED2 DATA CARD Ai: NSETS

NSETS: NUMBER OF SETS CF DATA TO BE PROCESSED

READ (5, 140,ERR=110,END=120) NSETS

ZERO ARRAYS TQ PREPARE FOR NEXT DATA SET

DO 4 I=1.NC0L

KH( I )=0

ITYPE( I)=0

C( I)=0.

ADD( I

) =0.

MAXR( I )=0

DC 20 J=1»NR0W

REED( J, I )=0.

DC 30 K=l,6

NAME( I t K ) = IBL CONTINUE

DO 50 1=1,320

ISKIP( I ) =0 CONTINUE

DC 60 I=1,MAXCNL

MCNL(I)=0

CONTINUE

ISEG=1

ICRD=12

SPEED2_ DATA CARD A2: IPl , IP2, IP3.IP4

IPl: IF IPl IS NOSI-ZERC, CALL PLDTl

IP2: IF IP2 IS NON-ZERO, CALL PL0T2

IP3: IF IP3 IS N?N-ZERC, CALL PLCT3

IP4: IF IP4 IS NON-ZERO, CALL PLDT4

READ (5,140,ERR=110,END=120 ) I PI , IP2. 1 =3 , I = 4 IF ( IPl .EQ.O) GO TQ 70

CALL PLOTl (NROW.NCOL.REED.KH, lOUT.OUTDI M,MAXR, MCNL , MAXCNL , I SKIP)

GO TO 100

IF (IP2.EQ.0) GO TO 80

CALL PL0T2 ( NRC W , NCOL. REED . KH, ITYPE. C

,

ADD , NAME, X , Y , MAXPLT , I OUT, OUT

2DIM,MAXR,IPC,JM,P_TDIM, IPN.MCNL .MAXCNL, ISKIP

)

GO TO 100

IF (IP3.EQ.0) GO T3 90

CALL PLCT3 (NROW,NCOL,REED,KH,ITYPE,NAME,X,Y , MAX PLT , NSETS, N^TS , MAX 2R,IPC,PLTDIM,IPN,1SKIP)

GO TO 100

IF (IP4.EQ.0) GO TO 100

CALL PL0T4 ( NROW, NCOL, REED, <H,1TYPE. NAME, MA XR, MCNL. MAXCNL, I SKIP)

CCNTINUE

NSETS=NSETS-1

WRITE (6,150) (VERSN( I) ,1=1, 10) IF (NSETS. GT.O) GO TO 10

A4
B PROGRAM : SPEE02 PROGRAM DRIVER UNI VAC 1108

loi: STOP

102: 110 CALL RWERR

103: 120 CALL RWEOF

104: C

105: c 106: 130 FORMAT (46H1 SPEED2 DATA REDUCTION ROUTINES version: *10A1)

107: 140 FORMAT (1615)

106: 150 FORMAT {22H1 SPEED2 version: .lOAl.lSH END OF DATA SET

109: C

no: END

A5
subprogram: SPEED2 ALTERNATE PROGRAM DRIVER NON-UNIVAC 1108

i:C SPEED2

2: c

3: C SYSTEMATIC PLOTTING AND EVALUATION OF ENUMERATED DATA

4: C (SYSTEM 2)

5: C 6: C WRITTEN BY JOHN M. SMITH, COMPUTER SERVICES DIVISION, NBS

7: C RICHARD D. PEACOCK, CENTER FDR FIRE RESEARCH, NBS

8: c

9: C SPEED2 IS A COLLECTION OF ROUTINES DESIGNED TO ROUTINELY REDUCE DATA

10: C COLLECTED FROM DATA ACQUISITION SYSTEMS. IT IS DESIGNED TO TRANSli: C LATE DATA COLLECTED BY A DATA ACQUISITION SYSTEM, PERFORM LINEAR AND

12: C NON-LINEAR TRANSFORMATIONS ON THE DATA, AND TO PRODUCE PLOTS OF THE

13: C REDUCED DATA. IN ADDITION, REPORT QUALITY PEN PLOTS CAN BE GENERAT14: C ED FOR INCLUSION IN REPORTS.

15: C 16: INTEGER OUTDI M, PLTD I M, VERSN

17: COMMON /ERRORS/ ICRD.ISEG

18: DIMENSION REED<100,25),KH(25), I TYPE (25) , C( 25 ), NAME ( 25,6 ) .ADD ( 251

,

19: 2 X(100.6) ,Y( 100, 6) ,XP3(602) , YP3 (6 02) , MAXR( 25 ) , IOUT(2860) ,MCNL(150)

20: 3,IPC(12),JM(12), IPN( 12, 6) , VERSN ( 1 ) , I SK I P (320

)

21: EQUIVALENCE ( X (1 , 1 ) , XP3 ( 1 J ) , ( Y ( 1 , I J . YP3 ( 1 )

)

22: C 23: C VERSN IS USED FOR IDENTIFICATION PURPOSES ONLY, TO IDENTIFY THE

24: C VERSION OF SPEED2 IN USE

25: C

26: DATA ( VERSN( I) , 1=1 , 10) /1H4, 1H5, 1 H. , IHl , IHl , IH , 1 HN , 1 HO , I HN , 1 H /

27: c 28: DATA IBL /IH /

29: c 30: c ******************************************************************

31c 32: C SPEED2 COMPJLE TIME PARAMETERS

33: C

34: C NROW: MAXIMUM NUMBER OF ROWS (SCANS) IN THE INPUT DATA

35: C NCOL: MAXIMUM NUMBER OF COLUMNS (INSTRUMENTS) TO BE PROCESSED

36: C MAXPLT: maximum number OF CURVES TO BE PLOTTED ON A SINGLE CURVE

37: C MAXCNL: maximum number OF INSTRUMENTS RECORDED BY THE DATA SYSTEM

38: c 39: NROW=100

40: NC0L=25

41

MAXPLT=6

42: MAXCNL=150

43: C 44: c *******************+*************************************

45: c 46: 0JTDIM=1 8*MAXCN'_ + ie0

47: NPTS=MAXPLT*NRDW+2

48: PLTDIM=2*MAXP_T

4.9: WRITE (6,130) (VERSN( I ) , 1 = 1 , 10)

50: ISEG=1

A6
SUBPROGRA*^: SPEED2 ALTERNATE PROGRAM DRIVER NON-UNIVAC 1108

5i: ICRD=11

52: c 53: C SPEED2 DATA CARD Ai: NSETS

54: C NSETS: NUMBER CF SETS OF DATA TO BE PROCESSED

55: C 56: READ { 5, 140.ERR=110.END=120) NSETS

57: C ZERO ARRAYS TO PREPARE FOR NEXT DATA SET

58: 10 DO 40 I=1,NC0L

59: KH( I)=0

6O: ITYPE(1)=0

ei: c(i)=o.

62: ADD(I)=0.

63: MAXR(I)=0

64: DO 20 J=1,NRCW

65: 20 REED(J,I)=0.

66: DC 30 K=l,6

67: 30 NAME( ItK)=IBL

63: 40 CONTINUE

69: DO 50 1=1,320

70: ISKIP(I)=0

7i: 50 CONTINUE

72: DO 60 I=1.MAXCNL

73: MCNL(I)=0

74: 60 CONTINUE

75: ISEG=1

76: ICRD=12

77: C 78: C SPEED2 DATA CARD A2: IPl , IP2, IP3 , I P4

79: C IPi: IF IPl IS NON-ZERO, CALL PLOTl

8O: C IP2: IF IP2 IS NON-ZERO. CALL PL0T2

8I: C 1P3: IF IP3 IS NON-ZERO, CALL PL0T3

82: C IP4: IF IP4 IS NON-ZERC, CALL PL0T4

83: C 84: READ (5, 140.ERR=110,END=120) I PI , I P2, I P3 , IP4

85: IF (IPl.EQ.O) GO TO 70

86: CALL PLOTl ( NROW ,NCOL , REED, KH, I OUT . OUTDI M, MAXR , MCNL , MAXCNL , I SKIP)

87: GO TO 100

8S: 70 IF (IP2.EQ.0) GO TO 80

89: CALL PL0T2 ( NROW ,NCOL , REED,KH, ITYPE,C , ADD,NAME , X, Y , MAXPLT , I OUT, OUT

90: 2DIM,MAXR,IPC, JM.PLTDIM, IPN , MCNL , MAXCNu , I SKI P

)

91: GC TO 100

92: 80 IF (IP3.EQ.0) GO TO 90

93: CALL PL0T3 ( NRDW ,NCCL, REED, KH, ITYPE, NAME ,X, Y , MAXPLT, NSETS, NPTS, MAX

94: 2R, IPCPLTDIM, IPN, ISKIP)

95: GC TO 100

96: 90 IF (IP4.EQ.0) GO TO 100

97: CALL PL0T4 ( NROW.NCOL, REED, KH, ITYPE, NAME ,MAXR , MCNL , MAXCNL , ISKI P

)

98: 100 CONTINUE

99: NSETS=NSETS-1

100: WRITE <6,150) ( VERSN( I) .1=1, 10)

A7
subprogram: SPSEOZ alternate program driver NON-JNIVAC 1108

IF (NSETS.GT.O) GO TO 10

STOP

CALL RWERR

CALL RWEOF

FORMAT (46H1 SPEED2 DATA REDUCTION ROUTINES VERSION: tlOAl)

FORMAT (1615)

FORMAT (22HI SPEED2 VERSION: ,10A1.19H END OF DATA SET)

END

loi:

102:

103: no

104: 120

105: c 106: c 107: 130

108: 140

1C9: 150

no: C

111

:

A8
subprogram: ploti input data dump and error checking

SUBROUTINE PLOTI ( NROW . NCOL , REED , KH, lOUT . OUTDI M , MAXR . MCNL. MAXCNL

.

2 I SK I P

COMMON /ERRORS/ ICRD.ISEG

INTEGER OUTDIM

DIMENSION RSED<NROW,NCDL) ,KH(NCDL) , IOUT( OUTDIM) .TITLE (120)

2 MAXR(NCCL). I NDAS( 22 ) , I CHRS( 320 » . MCNL( MAXCNL ) , I SKIP (320

)

ISEG=2

ICRD=11

PL0~1 DATA CARD Ai: INTYPE , I NPRT. I NPNCH , INERR . I NSKI

P

INTYPE: UNCONVERTED INPUT DATA FILE TYPE

INPRT: DIRECTS PRINTING OF UNCONVERTED INPUT DATA

INPNCH: DIRECTS PUNCHING OF UNCONVERTED INPUT DATA

INERR: NUMBER OF INPUT ERROR MESSAGES TO BE PRINTED

INSKIP: DIRECTS SKIPPING OF INPUT RECORDS

READ (5, 30.ERR=10.END=20 ) INTYPE , INPRT. I NONCH, 1 NERR , INSKI

P

ICR0=21

PLOTI DATA CARDS B1&B2: TITLE

title: SPECIFIES TITLE OF EXPERIMENT PRINTED AT TOP OF EACH PAGE

READ (5,40.ERR=10.END=20) (T ITLE ( I ) . 1 = 1 . 120)

WRITE (6.50)

WRITE (6,60) INTYPE. INPRT. INPNCH. INERR. INSKIP

NR=NROW*NCCL

NC = 1 » KH(l)=-l

ITIME=1

CALL DEF INE (INTYPE. ICHRS. INDAS. IRE AD, I TIM, lEOR. I EOF . MED I A . T I TLE .

I

2 NSKI P. ISKIP.NCNL.NTFORM)

CALL DATA IN (NR , NC, REED . KH, INTYPE, INPRT , INPNCH , MAXR. IT I ME , I NERR . I

N

2 SKI P. I OUT, OUTDIM, ICHRS, INDAS, I READ, ITIM, lEOR . I EOF. MED I A . T I TLE . MCNL

3. MAXCNL. ISKIP.NCNL.NTFORM)

RETURN

CALL RWERR

CALL RWEOF

FORMAT (1615)

FORMAT (80A1/40A1)

FORMAT <27H0 PLOTI CONTROL PARAMETERS./)

FORMAT { 8H I NT YPE : . I 5 . 2X . 7H I NPRT : . I 5 . 2X .7HI NPNCH : , I 5 ,2 X , 7H INERR:

2.I5.2X.7HINSKIP: .15)

END

i:2:3: C

4: C

5: c

6:7:

8:9: lo:

ix:

12: c 13: c 14: c 15: c 16: c

17: c is: c

19: c 20:

2i:

22: c 23: c 24: c 2S: c 26:

27:

28:

29:

30

3i:

32:

33:

34:

35:

36:

37:

38:

39: 10

4o: 20

41

c 42: c

43: 33

44: 40

45: 50

46: 60

47:

48: C 49:

A9
subprogram: plot2 data input and reduction

i: subroutine plct2 ( nrowi ncol. reed. kh, itvpet c . add . name. x. yt maxplt

t

2: 2 IOUT.OUTDIM.MAXR.IPC. JM.PLTDIM, IPN.MCNL.MAXCNL. ISKIP)

3: c

4: C ******************************************************* **Kt###i|i

s: c

6: COMMON /EPRORS/ ICRD.ISEG

7: INTEGER OUTDI M, PUTDI M, CHAR

8: DIMENSION REED( NRCW . NCDL) .KH(NCOL) ,ITYPE(NCDL) . C( NCCL ) . ADD* NCOU )

•

9: 2 NAME(NC0L.6) .XCNROW.MAXPLT) .Y(NROW.MAXPLT) , MAXR(NROW),

lO: 3 lOUT(OUTDIM) ,TITLE(120).IN(80).CHAR(10),IC(6). IPC(PLT3IM)

.

H

:

4 JM(PUTDIM) . IHEAD(80) .ISYM(6). ICHRS(320) ,INDAS<22) . I PN( PLTD I M, 6 )

.

12: 5 IBUFF(40), JBUFF(40 ).MCNL(MAXCNL) . ISKIP(320)

13: DATA <CHAR( J) , J=l,10) / IHO . IHl , 1 H2 , 1H3, 1 H4, 1 H5, 1 H6, 1H7, 1H8. 1H9/

14: DATA ( ISYM( J) , J = l,6) / 1 H* . 1 HX , IHO . 1H+ , 1 H-, 1 H.

/

15: DATA NSEMI,NCCM /1H;,1H,/

16: ISEG=3

17: ICRD-11

18: c 19: C PL0T2 DATA CARD Al : INTYPE , INPRT , I NPNCH , INSTOP, INERR , INSKI

P

2o: c intype: unconverted input data file type

21

:

c inprt: directs printing of unconverted inpu' data

22: c inpnch: directs punching of unconverted input data

23: c instcp: if instop is non-zero, stop processing

24: c inerr: number of input error messages to be printed

25: c inskip: directs skipping of input records

2e: c 27: READ (5.270.ERR=220.END=230) INT YPE , IN=RT. I NPNCH, INSTCP .

I

NERR .

I

NSK

28: 2IP

29: ICRD=12

30: c 31

:

C PL0T2 DATA CARD A2: NTEST, NPRT. NPNCH, NPLOT. NCORR

32: C NTEST: TEST NUMBER

33: C NPRT: DIRECTS PRINTING OF CONVERTED DATA

34: c npnch: directs punching of converted data

35: c nplot: if npuot is non-zero, printer plots are to be generated

36: c ncorr: if ncorr is non-zerc. read corrections to data

37: c 38: READ ( 5,270. ERR=220.END=230) NTEST , NORT . NPNCH, NPLOT , NCORR

39: ICRD=21

40

:

c 4i: C PL0T2 DATA CARDS 3ie.B2: TITLE

42: C title: specifies TIT_E OF EXPERIMENT PRINTED AT TOP OF EACH PAGE

43: c 44: READ (5,280,ERR=220,END=230) ( Tl TLE ( I ) . 1 =1 . 1 20

)

45: WRITE (6.290)

46: WRITE (6,390) I NT YPE , INPRT , I NPNCH , I NSTO P , I MERR , I NSK IP

47: WRITE (6,400) NTEST . NPRT . NPNCH . NPLOT. NCORR

48: K=l

49: 1TIME=0

50: WRITE (6.300)

A- 10
subprogram: plots data input and reduction

51

10 ICRD=23

52: c

53: C PL0T2 DATA CARDS B3&B4: KH, ITYPE, NAME 1 1 END

54: c kh: instrument number

55: c itype: instrument type

56: c name: descripticn of instrument

57: c iend: directs end of instrument cards

58: C

59: READ (5,310tERR = 220t£ND = 230) KH( K ) , ITYPE ( K) » (NAME( K» J ) , J = l , 6 ) , ( I N(

60: 21) tl=l t60).IEND

6i: IF (IEND. EQ. 999) GO TO 30

.62: IF (ITYPE(K) .EQ.l .AND. ITIME.NE.O) 60 TO 20

*3: IF ( ITYPE(K).EQ.l) ITIME=K

64: WRITE (6.320) KH(K) , ITYPE (K ) , ( NAME(K. J ) , J=l ,6) , ( IN( I ) , I =1 ,60 ) ,K

65: IF (M0D(K,5) .EQ.O) WRITE (6,250)

66: IF (M0D(K-35,40) .EQ.O) WRITE (6.410) (Tl TLH ( 1) , I =1 , 120

)

67: IF (MOD(K-35,40) .EQ.O) WRITE (6,300)

68: K=K+l

69: IF (K.LE.NCOL) GO TO 10

70: C TOO MANY INSTRUMENTS. KILL ^HE RUN

7i: WRITE (6,370) K 72: CALL EREXIT

73: STOP

74: 20 WRITE (6,260) KH(K)

75: CALL EREXIT

76: STOP

77: 30 WRITE (6,330)

78: MAXC=K-1

79: K=l

80: 40 1CRD=25

81

c

32: C PL0T2 DATA CARDS B5&B6: C, ADD, IEND

83: C C: CONVERSION CONSTANT

84: c add: addition constant

85: c iend: directs end of conversion cards

86: C

87: read (5,340,ERR=220,END=230) C (K ) . ADD( K ) , IEND

88: IF ( IEND. EQ. 999) GO TO 50

89: WRITE (6,350) K , C(K ) ,K, ADD( K

)

90: K=K+1

91GO TO 40

92: C READ INPUT FILE.

93: 50 CALL DEFINE ( INTYPE , ICHRS, INDAS, IREAD . I T IM. 1 EOR . I EOF , MED I A ,TI TLE ,

94: 2NSKIP, ISK1P,NCNL,NTF0RM)

95: CALL DATAIN ( NROW.I>JCOL , REED, KH, I NT YPE , 1 NPRT , INPNCH , MAXR, IT I ME, I NER

96: 2R, INSKIP,IOUT.CUTDIM, ICHRS, I NDAS , I READ, I T IM, lEOR, lEOF ,MEDI A. T ITLE,

97: 3MCNL,MAXCNL, ISKI P,NCNL , NTFORM)

98: IF ( INSTOP.NE.O) RETURN

99: C CONVERT INPUT FILE.

lOO: CALL CCNV (NROW , NCOL, REED ,KH, ITYPE, C, ADD ,NCORR , MAXR , MAXC

)

A-11
subprogram: PLOT 2 DATA INPUT AND REDUCTION

101

102

103

104

105

106

107

108

109

110

111

112

113

1 14

1 15

116

117

118

1 19

120

121

122

123

124

125

126

127

128

129

130

131

132

1 33

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

C60

C

c

c

c

70

PRINT OUT CONVERTED DATA (IF NPRT .NE. 0) IF (NPRT.NE.O) CAUL PRINT ( NRCW , NCOL. REED, KH , I T YPE , NAME t I T 1 ME , MAXR

2.MAXC,TITLE)

PUNCH OUT REDUCED DATA (IF NPNCH IS NON-ZERO)

IF (NPNCH. NE.O) CALL PUNCH ( NROW, NCOL , RE ED . KH, NAME . MAXR , MAXC , NTEST

2, NPNCH)

IF (NPLOT.EQ.C) RETURN

GENERATE PLOTS ( IF NPLOT . NE . ) ICRD=91

PL0T2 DATA CARD II : IN in: card SPECIFIES INSTRUMENTS TO BE PLOTTED

80

C

90

100

110

120

130

READ (5.

IP = K=0

DO 120 I DO 70 J=

IF (IN(I

CONTINUE

IF (K.EQ

IP=IP+1

CALCULATES

L = DO 80 J=

M=IABS(K

L=L+IC(

J

LOCATE COL

DO 90 J=

IF (KH(J

CONTINUE

IF <IPC(

WRITE (6

IP=IP-1

K=0

GO TO 12

K = K + 1 IC(K)=JCCNTINUE

IF (IN(8

IF (IP.E

DO 130 1 IF (IN(I

CONTINUE

L=IPC( 1)

IN(1 )=NA

DC 160 I K=IPC( I) MAXROW=M

DO 140 J

380.ERR=220.END=230) IN

= 1.80

1,10

) .EQ,CHAR( J) ) GO TO IIC

.0) GC TO 120

INSTRUMENT NUMBER.

l.K

-J)

)*10**M

UMN INSTRUMENT IS STORED IN. l.MAXC

).EQ.L) IPC(1P)=J

IP). NE.O) GC TO 100

,240) L,IN

0) .EQ.NSEMI ) GO TC 60

Q.O) RETURN

= 1 ,80

).EQ.NCOM) GO TO 170

ME(L,1

)

=2, IP

AXR(K)

=1 • MAXROW

A-12
subprogram: PL0T2 DATA INPUT AND REDUCTION

15i: X( JtI-l)=REED(J.L)

152: 140 Y(J,I-1)=REED(J.K)

153: JM( I-1)=MAXR0W

154: DO 150 M=l,6

155: 150 IPN(I-l,M)=NAME{K.M»

156: 160 CONTINUE

157: 1M=IP-1

158: GO TO 210

159: 170 DC 200 I=l.IPi2

160: L=1PC<I)

16i: K=IPC(I+1)

162: MAXROW=MAXR(K)

163: ICRV=l/2+l

164: DO 180 J=lfMAXROW

165: X( J.ICRV)=REED( J,L)

166: 180 Y{ J,ICRV)=REED( J.K)

167: JM( ICRV)=MAXROW

168: DO 190 M=l,6

169: 190 IPN( ICRV.M)=NAME(K,M)

170: 200 CONTINUE

17i: IM=IP/2

172: 210 ICRD=92

173: C 174: C PL0T2 DATA CARD 12: XLtXH.YLtYH

175: C XL: X-AXIS LOWER LIMIT

176: c xh: X-AXIS upper limit

177: C YL: Y-AXIS LCWER LIMIT

178: C YH: Y-AXIS upper LIMIT

179: C 180: READ (5t3eO.ERR=220f END=230> XLtXH»YLtYH

lai: ICRD=93

182: C 183: C PL0T2 DATA CARD 13: IHEAD

184: c ihead: graph heading

185: c 186: READ (5,380tERR=220.END=230) IHEAD

187: ICRD=94

188: C 189: C PL0T2 DATA CARD 14: IBUFF.JBUFF

190: C IBUFF, JBUFF: Y-AXIS, X-AXIS TITLES

191

:

c 192: READ (5.380,ERR=220.END=230) IBUFF»JBUFF

193: CALL DRAW { JM, I M.X. Y ,XL . XH, YL, YH, I BUFF, JBUFF , I HEAD.TITLE . IPN , NROW,

194: 2PLTDIM)

195: GO TO 60

196: 220 CALL RWERR

197: 230 CALL RWEOF

198: C 199: C

200: 240 FORMAT (24H0N0 FIND FOR INSTRUMENT ,I6,23H ERROR ON THE FOLLOWING,

A-13
SUBPROGRAM : PI

201:

202: 250

203: 260

204:

205: 270

206: 280

207: 290

208: 300

209:

210:

211: 310

212: 320

213: 330

214: 340

215: 350

216: 360

217: 370

21a:

219: 38

220: 390

221:

222: 40

223:

224: 410

225: C 226:

Pt-0T2 DATA INPJT AND REDUCTION

2 lOH PLOT CARD./tlX.aOAl)

FORMAT { IH ) FORMAT (AlHOCNLY ONE INSTRUMENT OF TYPE 1 IS ALL3WED./,

2 35H SECOND FOUND AT INSTRUMENT NUMBER ,13)

FORMAT (1615)

FORMAT (80A1/40A1)

FORMAT (27H0 PL0T2 CONTROL PARAMETERS/)

FORMAT {22H0 TABLE OF I NSTRUMENTS/.6X,

2 41HKH ITYPE I.D. INSTRUMENT DESCRI PTI N, T87, 6HC0LUMN, / , 1 H , 3 92(1H-) ,/)

FORMAT ( 16, I2,66A1,3X, 13)

FORMAT < 1X,16,I3,3X,6AI,2X,60A1,T87,I6}

FORMAT (//,22H0TABLE OF MULTIPLIERS , 1 OX , 1 5HTABLE OF ADDERS)

FORMAT ( IX,F15.6,F15.6, 149)

FORMAT (2H C, I 2 , 1H= ,F 15 .6 , 1 2X, 3HADD , 12 , 1 H=, F 1 5. 6)

FORMAT (4F10.0)

FORMAT (42H0C0LUMN STORAGE LIMITS EXCEEDED AT CCLUMN .14,/,

2 31H CHECK PARAMETERS NCCL AND NROW)

FORMAT <80A1)

FORMAT (8H INTYPE : , 15 , 2X , 7H INPRT : , I5,2X ,7H I NPNCH : , 15 ,2X ,7HI NSTOP:

2.15'. 2X,7H INERR: ,I5,2X,7HINSKIP: , 15)

FORMAT (8H NTEST : , I 5, 2X , 7H NPRT : , 15, 2X , 7H NPNCH :, 15 ,2X,7H NPLOT:

2,I5,2X,7H NC0RR:.I5)

FORMAT (1H1,120A1)

END

A-14

:
subprogram: plots CALCOMP plotting for data generated by PL0T2

i: SUBROUTINE PLCT3 { NROW, NCCL , REED . KH, ITYPE, NAME t X«Y. MAXPLTt NSETSt

2: 2 NPTS,MAXR,IPC,PLTD1 vi.IPN.ISKIP)

3: C

4: c ******************************************

s: c

6: COMMON /ERRORS/ ICRD.ISEG

7: INTEGER CHAR,PLTDIM.XPOW,XDIG,YPOW,YDIG,FTIT

8: REAL lYtlX

9: DIMENSION REED ( NROW, NCOL) .KH(NCOL) . ITYPE ( NCDL) . NAME (NCOL .6 )

10: 2 TITLE(120),1N(30),CHAR(10) , IC< 6 ) , I PC( PLTDI M ) , AREA ( 102* ) , I B JFF( *0

)

11: 3, JBUFF(40) ,X(NPTS). Y(NPTS) , I HEAD ( 7 8) . M AXR( NCOL) . IPN< PLTDI M, 6 )

,

12: 4 FTIT(10),ISKIP(320)

13: DATA (CHAR( J) . J=l,10) / IHO , IHl , 1 H2 , 1H3, 1 H4 , 1 H5 , 1H6 , 1H7, 1H8 , 1 H9/

14: DATA {FTIT( J) , J=l,10) / IHF. IHI . IHG , IHU, 1 HR , 1 HE , 1 H ,1H .IH .1H:/

15: DATA NCOM,NSEMI,NS,NP,NL /I H, , IH ; , 1 HS, 1 HP, 1 HL/

16: C INITIALIZE THE CALCOMP TAPE FOfi THE PLOTTING

17: CALL PLOTS ( AREA , 1024, 7

)

18: CALL PLOT (0.,-ll.,-3)

19: CALL PLOT (0.,1.5,-3)

20: WRITE (6,710)

21: C 22: ISEG=4

23: ICRD=11

24: C

25: C PL0T3 DATA CARD Al : NPRT , NSMTH , NOUT ,NAX1 S,NPNT, NLSG

26: c nprt: if nprt is non-zero, print data

27: c nsmth: smoothing factor

28: c ncut: determines fate of cut-of-bounds points

29: C NAXIS: two or four sided AXES

30: c npnt: spacing of points on curves

31 : C NLEG: read cards FDR LEGENDS ON CURVES

32: c 33: READ (5,720,ERR=630.END=640) NPRT , NSMTH , NDUT, NAXI S , NPNT , NLEG

34: ICRD=12

35: C

36: C PL0T3 DATA CARD A2: XSIZE, YSIZE, SCALE

37: C XSIZE: length CF the X AXIS OF THE PLOT IN INCHES

38: C YSIZE: LENGTH CF THE Y AXIS OF THE PLOT IN INCHES

39: c scale: scale factor for plotting

4o: c 4i: READ (5,880,ERR=630.END=640) XSI ZE,YSI ZE , SCALE

42: IF (XSIZE. LT, 1.0) XSIZE=10.0

43: IF (YSIZE. LT. 1.0) YSIZE=8.0

44: IF (SCALE. EQ.G.) SCALE=1.0

45: IF (NSMTH. LT.O) NSMTH=0

46: CALL FACTOR (SCALE)

47: WRITE (6,730) NPRT , NSMTH , NOUT, N AX I S ,NPNT , NLEG

48: WRITE (6.740) XS IZE , YSI ZE, SCALE

49: ICRD=21

so: c

A-15
subprogram: plots CALCOMP plotting for data generated by PL0T2

PL0T3 DATA CARDS Bl & B2: TITLE

title: SPECIFIES TITLE CF EXPERIMENT PRINTED AT TOP OF EACH PAGE

READ (5.820tERR=630.END=640) (Tl TLE < I ) » I =1 i 1 20)

K = l ITIME=0

WRITE (6.830)

ICRD=23

PL0T3 DATA CARDS B3&B4: KH. ITYPE. NAME. I END

KH: INSTRUMENT NUMBER

ITYPE: INSTRUMENT TYPE

name: DESCRIPTICN DF INSTRUMENT

iend: directs end of instrument cards

read (5.84 0.ERR=630.END=640) KH (K )

,

ITYPE (K) , ( NAME( K« J } . J=l .6} . (IN(

21 ) .1 = 1 .60) « IEND

IF ( IEND. EQ. 999) GO TO 30 IF (ITYPE(K) .EQ.l.AND.ITIME.NE.O) GO TO 20

IF (ITYPE<K) .EQ.l) ITIME=K

WRITE (6.850) KH(K) . ITYPE(K). (NAME(K,J) . J=l ,6). ( IN{ I),I=1.60) .K IF (M0D(K.5) .EQ.O) WRI-'E (6,800)

IF (M0D(K-35.40) .EQ.O) WRITE (6,660) (T I T^E ( I ) . I = 1 , 120)

IF (MOD(K-35.40) .EQ.O) WRITE (6.830)

K = K+1

IF (K.LE.NCOL) GO TO 10 TOO MANY INSTRUMENTS. KILL THE RUN

WRITE (6,860) K CALL EREXIT

STOP

WRITE (6,810) KH(K)

CALL EREXIT

STOP

MAXC=K-1

READ IN DATA

CALL REDCIN ( NROW, NCOL . REED. KH, . . MAXR , ITI ME .0 . , I SKIP)

PRINT OUT DATA

IF (NPRT.NE.O) CALL PRINT ( NROW. NCOL , REED, <H , ITYPE. NAME . IT I ME, MAXR

2.MAXC,TITLE)

WRITE (6.750) (T ITLE( I ) . I = 1 . 120

)

IPPLOT=0

IP = IPTYP=0

NGRAPH=0

ICRD=41

PL0T3 DATA CARD Dl : IN

in: SPECIFIES INSTRUMENTS TC BE PLOTTED

READ (5.870,ERR = 630,END= 640) ( IN ( I ) , 1 = 1 , 80)

5i: C 52: c 53: c 54:

55:

56:

57:

58: 10

59: c 60: c 6i: c 62: c 63: c 64: c 65: c 66:

67:

68:

69:

7o:

7i:

72:

73:

74:

75:

76:

77: c 78:

79:

80:

81

:

20

82:

83:

84: 30

85: c 86:

87: c 88:

89:

90

:

91

92:

93:

94:

95: 40

96: C 97: c 98: c 99: c lOO:

A-16
subprogram: PL0T3 CALCOMP PLOTTING FOR DATA GENERATED BY PL0T2

loi: K=o

102: DO 100 I=l«80

103: IF (IN(I).EQ.NCOM) IPPLCT=1

104: IF (IN( I ).EQ.NS.AND. IN< I+l ).EQ.NP) IPTYP=1

105: IF (IN( I).EQ.NL.AND.1N( I+l ).EQ;nP) IPTYP=-1

106: DC 50 J=ltl0

107: IF (IN( I).EQ.CHAR( J) ) GO TO 90

108: 50 CONTINUE

109: IF (K.EQ.O) 60 TO 100

110: IP=IP+1

111: C CALCULATES INSTRUMENT NUMBER.

112: L=0

113: DO 60 J=ltK

114: M=IABS<K-J)

lis: 60 L=L+IC( J}*10**M

lie: C LOCATE COLUMN INSTRUMENT IS STORED IN. iVT. DO 70 J=1.MAXC

lie: IF (KH(J).EQ.L> IPC(IP)=J

119: 70 CONTINUE

120: IF (IPC( IP) .NE.O) GO TO 80

121: WRITE (6.670) L.IN

122: 80 K=0

123: GO TO 100

124: 90 K=K-H

125: IC(K)=J-1

126: 100 CONTINUE

127: IF (IN(80) .EQ.NSEMI ) GO TO 40

128: IF (IP.EQ.O) GO TO 620

129: C DETERMINE AXIS LIMITS SC THAT READABLE VALUES ARE PRINTED ON AXES

130: IOUT=0

131 : ICRD=42

132: C 133: C PL0T3 DATA CARD D2: XL.XH.YL.YH

134: C XL: X-AXIS LOWER LIMIT

135: c xh: X-AXIS upper limit

136: c yl: Y-axis lower limit

137: c yh: Y-axis upper limit

138: c 139: READ (5,880.ERR=630.END=640) XL.XH.YL.YH

140: IF (IPTYP.NE.O) GO TO 140

141

DELY=(YH-YL)/YSIZE

142: N=0

143: K=0

144: 110 IF (DELY.GT..8) GO TO 120

145: DELY=DELY*10.

146: K=K+1

147: GO TO 110

148: 120 N=N-K-1

149: IY=DELY*10.

150: 130 IY=IY/10.

A-17
subprogram: PLOT 3 CALCCMP PLOTTING FOR DATA GENERATrD BY PLCT2

151 : 152:

153:

154:

155:

156:

157:

158:

159:

160:

161 : 162: 140

163:

164:

165: 150

166:

167:

168:

169: 160

170 : 171

:

172:

173: 170

174:

175: 180

176:

177:

17a:

179:

180:

181

:

182:

183:

184:

185:

186:

187: 190

188:

189:

190: 200

191 : C 192: c 193: c 194: c 195: c 196:

197:

198:

199: c 200 :

GO TO 130

DHLY=2.

D=LY=4.

D£LY=5.

DELY=8.

N = N + 1 IF (lY.GT.S.)

DELY=1

.

IF (lY.GT.l.)

IF (IY.GT.2.)

IF (IY.GT.4.)

IF (lY.GT.S.)

DELY=OELY*10.**N

YH=YL+DELY*YSIZE

YPOW=N

GC TO 150

IF (YL.EQ.O.O.CR.YH.EQ.0.0) GO TO 630

DELY=FLOAT( INT( ALDGl ( YH/YL) +0 .99) )/YS:ZE

YH=YL*10.**{ DELY*YSIZE)

IF (IPTYP.EQ.-l ) GO TO 190

DELX=(XH-XL)/XSIZE

N=0

K=0

IF (DELX.GT..8) GO TO 170

DELX=DELX*10.

K=K+ 1 GO TO 160

N=N-K-1

IX=DELX*10.

IX=IX/1 0.

N = N+1

IF (IX.GT.8.

DELX=1

.

IF ( IX. GT. 1 . ) IF {IX.GT.2.)

IF (IX.GT.4.)

IF (1X.GT.5.)

DELX=DELX*10.**N

XH=XL+DELX*XSIZE

XPOW=N

GO TO 200

IF (XL.EQ. O.O.CR.XH.EQ. 0.0) GO TO 630

DELX= FLOAT ( INT (ALOG10(XH/XL) +0.99) )/XSIZE

XH=XL*1 0.**(DELX*XSIZE)

ICRD=43

PLCT3 DATA CARD D3: IFIG.IHEAD

IFIG: FIGURE NJMBER (IF ANY)

IHEAD: title of PLOT (2 39 CHARACTER TITLE LINES MAXIMUM!

READ (5, 890.ERR=630, END=640) IFIG.IHEAD

YTPrS=-0.95

IF (IPIG.EQ.O) GO TO 210

PUT TITLE WITH FIGURE NUMBER ON GRAPH

XTPCS=XSIZE/2.-3.57

) GC TO 180

DELX=2.

DELX=4.

DELX=5.

DELX=8.

A-IS
subprogram: PLCT3 CALCCMP plotting for data generated by PL0T2

201: K=IFIG/10

202: FTIT(8)=1H

203: IF (K.NE.O) FTIT ( 8) =CHAR (K+1

)

204: K=IFIG-K

205: FTITC9)=CHAR(K+1 ) 206: CALL TEXT ( XTPOS tYTPOSt . 14t FTIT . 0. t 10)

207: XTP0S=XSIZE/2.-l .89

208: CALL TEXT ( XTPDS t YTPOS. . 1 4. I HEADt . .39)

2C9: YTP0S=-1.15

210: CALL TEXT (XTPOS. YTPOS. . 14 , I HEAD( 40) » 0. . 39)

211: GO TO 220

212: C PUT TITLE WITHOUT FIGURE NUMBER ON GRAPH

213: 210 XTP0S=XSIZE/2.-2.73

214: CALL TEXT ( XTPCS . YTPOS. . 1 4, IHEAD . . . 39)

215: YTP0S=-1.1

216: CALL TEXT (XTPOS. YTPOS, . 14 , 1 HEAD( 40) . 0. . 39

)

217: 220 ICRD=44

218: C 219: C PL0T3 DATA CARD D4 : I BUFF. JBUFF

220: C IBUFF: VERTICAL AXIS TITLE

221: C JBUFF: HORIZONTAL AXIS TITLE

222: C 223: READ ( 5. 900. ERR=630 . END=640) ( IBUFF ( J ) . J=l . 40) , ( JBUFF( J ) . J=l . 40

)

224: C CREATE THE AXES OF THE GRAPH USING THE TITLES SUPPLIED

225: C DRAW Y AXIS

226: IF (IPTYP.NE.O) GO TO 290

227: YTPOS=0.

228: CALL PLOT (0..0..3)

229: 230 YTP0S=NIIN(YTP0S + 1..YS1ZE)

230: CALL PLOT (0.. YTPOS. 2)

23i: IF (AMODCYTPOS. 1 .).NE.O. ) GO TO 240

232: CALL PLOT (. 125. YTPOS. 2)

233: CALL PLOT (0.. YTPOS. 3)

234: 240 IF (YTPOS. LT.YSIZE) GO TO 230

235: C FIND NUMBER OF CHARACTERS IN AXIS LABEL NUMBERS

236: YDIG=0

237: YP=10.*AMAX1 ( ABS ( YL ) . ABS( YH)

)

238: IF (YP.LT.IO.) GO TO 260

239: 250 YP=YP/10.

240: 260 YDIG=YDIG+1

24i: IF (YP.GE.IO.) GO TO 250

242: IF (YPOW.GT.O) YPOW=0

243: NDEC=IABS(YPOW)

244: IF (NDEC.EQ.O) NDEC=-1

245: IF (NDEC.NE.-l) YDIG=YDIG+1

246: XTP0S=FL0AT(-(IABS(YP0W)+YDIG+1) )*0.14

247: C PUT NUMBERS ON

248: YTP0S=-1 .0 249: YKUM=YL

250: 270 YTPCS=AMIN1(YTP0S+1 ..YSIZE)

A- 19
subprogram: PL0T3 CALCCMP PLDTTING FOR DATA GENERATED BY PLCT2

251'

252

253 280

254

255 C 256

257

258

259

260 290

261

262

263 C 264 30

265

266

267 310

268

269

270

271

272 320

273! C 274

275

276' 33

277

278 C 279

280

281

282 340

283 350

284

285

286

287-

288

289

290

291

292 360

293

294 C 295

296

297

298 370

299

300

IF (AMCD(YTPCS.

CALL NU'-IBER (XT

YNUM=YNUM+DELY

IF (YTPCS.LT.YS

AXIS TITLE

YTP0S=YSIZE/2.-

XTPCS=XTPCS-.20

CALL TEXT (XTPD

GO TO 300

CALL LGAXIS (0.

YTP0S=YSIZE/2.-

CALL TEXT (-0.5

DRAW X AXIS

IF (IPTYP.EQ.-l

XTPOS=0.

CALL PLOT (0.,0

XTP0S= A'-1IN1 (XTP

CALL PLOT (XTPO

IF (AMOD(XTPCS,

CALL PLOT (XTPO

CALL PLOT (XTPC

IF (XTPOS.LT.XS

PUT NUMBERS BELCW

XTP0S=-1

.

XNUM=XL

XTPOS=AStINl (XTP

IF (AMOD(XTPCS,

FIND NUMBER OF CH

XDIG=0

XP=1 0.*XNUM

IF (XP.LT.IO.)

XP=XP/1 0. XDIG=XDIG+1

IF (XP.GE.IO.)

IF (XPOW.GT.O)

NDEC=IABS(XPOW)

IF (NOEC.EQ.O)

IF (NDEC.EQ.-l)

XTPOS=XTPOS-FLD

CALL NUMBER (XT

XTPCS=XTPOS+FLO

XNUM=XNUM+DELX

IF (XTPOS.LT.XS

ADD AXIS TITLE

XTP0S=XSIZE/2.-

CALL TEXT (XTPO

GO TO 380

CALL LGAXIS (0.

XTP0S=XSIZE/2.-

CALL TEXT (XTPO

1 . ) .NE.O . .AND.YTPOS.EQ.YSIZE ) GO TO 280

FOSf YTPCS-C.07, . 14i YNUM, 0. ,^^DEC)

IZE) GC TO 270

2.8

S.YTPOS, .14, I BUFF, 9 0., 40)

,0.,1H , 0,YSIZE,90. . YL.DELY)

2 .8

, YTPOS.. 14, I BUFF, 90. .40)

) GO TC 370

. ,3)

CS+1 . ,XSIZE)

S,0. .2)

1 .) .NE.O. ) GC TC 320

S,. 125,2)

S,0. ,3)

IZE) GC TC 310

TIC MARKS CN X AXIS

OS+1 . ,XSIZE)

1 .). NE.O. .AND. XTPOS.EQ.XSIZE) GC TO 360

ARACTERS IN AXIS LABEL NUMBER

GO TO 350

GC TO 340

XPOW=0

NDEC=-1

XDIG=XDIG-1

AT( ( IABS(XPCW)+XDIG+1) )*0.07

POS,-. 19, . 14,XNUM, 0. ,NDEC)

AT( ( IABS(XP0W)+X0IG+1) )*0.07

IZE) GO TC 330

2 .8 S,-.53» . 14. J BUFF, 0. ,40)

,0.,1H ,-1 ,XSIZE, 0. ,XL,DELX)

2.8

S, -0.53,. 14, J BUFF, 0.. 40)

A-20
subprogram: plots CALCOMP plotting for data generated by PL0T2

IF (NAXIS.EQ.C) GO TO A30

PUT AXES ON THE OTHER TWO SIDES OF THE GRAPH, Y AXIS FIRST

YTPOS=0.

CALL PLOT (XSIZE,0..3)

YTPCS=AMIN1(YTP0S+1 . ,YSIZE)

CALL PLOT (XSIZE.YTP0S,2)

IF {AMOD(YTPOS, 1. ) .NE.O. ) GO TO 400

CALL PLOT (XSIZE-.125.YTP0S,2)

CALL PLOT (XSIZE,YTP0S.3)

IF (YTPOS.LT.YSIZE) GO TO 390

DRAW X AXIS

XTPOS=0.

CALL PLOT (O..YSIZE,3)

XTP0S=AMIN1 (XTPDS+1

.

.XSIZE)

CALL PLOT (XTP0S,YSIZE,2)

IF (AMOO(XTPOS, 1 .).NE.O. ) GC TO 420

CALL PLOT (XTPOS.YSIZE-. 125.2)

CALL PLOT (XTP0S,YSIZE.3)

IF (XTPOS.LT. XSIZE) GO TO 410

NCRV=IP-1

IF (IPPLOT.EQ.l ) NCRV=IP/2

DO 540 I=1.NCRV

IF (IPPLOT.EQ.l) GO TO 440

IXX=IPC(1)

IYY = IPC( I + l

)

GO TO 450

IXX=IPC{2*I-1)

IYY=IPC(2*I)

NPT= MAXRCW=MAXR(IYY)

DO 470 L=1.MAXR0W

IF (REED(L, IXX) . 6E . XL. AND . REED( L , I XX) . _5 .XH. AND. REED(L. lYY) .6E.YL.

2AND.REED(L. lYY) .LE.YH) GC TO 460

I0UT=10UT+1

IF (NOUT.EQ.O) GC TC 470

NPT=NPT+1

X(NPT)=REED(L, IXX)

Y(NPT)=REED(L» lYY)

CONTINUE

ISYM=I-1

X(NPT+1 )=XL

X(NPT+2)=DELX

Y(NPT+1 )=YL

Y(NPT+2) =DELY

IF (NPT.EQ.O) GO TO 520

IF (IPTYP.EQ.O) GO TO 480

CALL LGLINE ( X, Y .NPT , 1 , NPNT, I SYVI , I PTYP)

GC TO 520

SMOOTH DATA IF NSMTH IS NOT EQUAL TC ZERO

IF (NSMTH. EQ.C) GO TO 51C

30i: 380

302: C 303:

304:

305: 390

306:

307:

308:

309:

310: 400

311

:

c 312:

313:

314: 410

315:

316:

317:

318:

319: 420

320: 430

321

:

322:

323:

324:

325:

326:

327: 440

328:

329: 450

330:

33i:

332:

333:

334:

33S:

336: 460

337:

338:

339: 470

340:

341

:

342:

343:

344:

345:

346:

347:

348:

349: C 35C: 480

A-21
subprogram: PL0T3 CALCOM? PLOTTING FOR DATA GENERATED BY PL0T2

351 : DO 500 L=l .NPT 352: IPTHsNPT-L+l

353: IPTL=MAX0(NPT-L-NSMTH-1 , 1

)

354: Y(IPTH)=Y(IPTH) /FLOAT (( IPTH-IPTL+1 )

)

355: IF (IPTH.EQ.l) GO TO 500

356: IPTHM1=IPTH-1

357: DO 490 LL=IPTLt I PTHMl

358: Y( IPTH)=Y(1PTH)+Y(LL)/FL0AT( ( IPTH-IPTL+1 )) 359: 490 CONTINUE

360: 500 CONTINUE

36i: 510 CALL LINE ( X , Y. NPTt I . NPNT, I SYM)

362: 520 DO 530 J=1.6

363: 530 IPN( I , J)=NAME(IYY. J)

364: 540 CONTINUE

365: IF (NLEG.EQ.O) GO TO 550

366: C 367: C PL0T3 DATA CARD D5 : I S. I SYM, XTPOS . YTPOS, IHE AD

368: C is: PLOTTING SYMBOL FLAG

369: C ISYM: plotting symbol PREFIXED TO LEGEND 1=^ IS IS NON-ZERC

370: C XTPOS: X position of LEGEND

371

:

C YTPCS: Y POSITION OF LEGEND

372: c ihead: legend

373: c 374: read (5.650,END = 630.ERR = 640) I S. I S YM, XTPOS, YTPOS. ( 1 HEAD C I ) . I =1 . 60

)

375: IFdS.EQ.O.AND. ISYM .EQ . 0. AND .XTPOS. EQ. . . AND. YTPOS. EQ .0. .AND. I

H

376: 2EAD(1) .EQ.IH ) GO TO 550

377: IF (IS.NE.O) CALL SYMBOL ( XTPOS- . 1 05, YTPOS+. 035 , .07, ISYM, .. -1

)

378: CALL TEXT { XTPO S . YTPOS, . 07 , I HEAD, . , 60)

379: C PUT A LEGEND BLOCK IN BOTTOM RIGHT HAND CORNER

380

:

550 CALL FACTOR (1.0)

381

:

XTPOS=XSIZE*SCALE+0 .5 382: YTPOS=0. l*FL0AT(NCRV/2+M0D(NCRV,2) )+0.03

383: DC 580 I=1,NCRV.2

384: YTPOS=YTPCS-0.10

385: CALL SYMBOL (XTPOS, YTPOS+. 035, . 07 , I-l , ., -1

)

386: DO 560 J=l ,6

387: 560 IN( J)=IPN(I, J)

388: CALL TEXT (XTPCS+. 14 , YTPOS , . 07, I N , 0. . 6

)

389: IF (I.EQ.NCRV) GO TO 590

390: CALL SYMBOL (XTPCS+0 . 7, YTPOS+ . 035 , . 07, I , 0. , - 1) 391

:

DC 570 J=l,6

392: 570 IN( J)=IPN( I+l, J

)

393: CALL TEXT ( XTPOS+0 . 84, YTPOS, . 07, I N, 0. , 6

)

394: 580 CONTINUE

39S: 590 XTPOS=XSIZE*SCALE+0.4

396: YTPCS=0.1*FLOAT(NCRV/2+MOD(NCRV,2) )+0.03

397: YLEN=0.1*FLOAT(NCRV/2+MOD(NCRV,2) )+0.03

398: CALL PLOT ( XTPOS , YTPOS, 3)

399: CALL PLOT ( XTPOS+l . 425, YTPOS , 2)

400: CALL PLOT (XTPO S+1 . 425, YTPOS-YLEN, 2

)

A-22
subprogram: F»L0T3 CALCOMP plotting FDR DATA GENERATED BY PL0T2

CALL PLOT (XTPDS,YTP0S-YLEN,2)

CALL PLOT (XTP0S,YTP0S,2)

CALL FACTOR (SCALE)

WRITE OUT INFORMATION ABOUT THE GRAPH WE JUST FINISHED

DO 610 1=1. IP J=IPC(I)

IPC(I)=KH( J)

DC 600 K=l,6

IPNd ,K)=NAME( J.K)

CONTINUE

IF ( IPPLOT.EQ.O) WRITE (6.760) ( ( IPN( I , J ) , J = 1 .6) . IPC( 1 ) . I = 1 . I P>

IF (IPPLOT'.EQ.I ) WRITE (6,680) ( ( IPN( I . J ) . J = l . 6 ) . IPC ( I ) . 1= 1 , IP ) WRITE (6.770) XL.DELX . XH , YL. DELY , YH

WRITE (6,780) JBUFF.IBUFF

IF (IFIG.EQ.O) WRITE (6.790) IHEAD

IF (IFIG.NE.O) WRITE (6,910) IFIG. IHEAD

IF (lOUT.NE.O) WRITE (6.690)

IF (YSIZE*SCALE+1.5.GT. 10.75) WRITE (6.700)

XMOVE=XSIZE+7.0

CALL PLOT (XMOVE.O. .-3)

IPPLOT=0

IP = IPTYP=0

NGRAPH=NGRAPH+1

IF (M0D(NGRAPH.5).EQ.0) WRITE (6.750) ( T I TLE ( I ) . I =1 . 1 20

)

GO TO 40

IF (NSETS.LE.l) CALL PLOT (0..0..999)

RETURN

CALL RWERR

CALL RWEOF

FORMAT ( 11.12, 2F6.0.60A1

)

FORMAT (1H1,120A1)

FORMAT (31H0N0 FIND FOR INSTRUMENT NUMBER .16.

2 14H ERROR ON THE 19HF0LL0WING PLOT CARD . /. 1 X. 80A1

)

FORMAT (17H0CALC0MP PLOT OF .2(6A1.2H ( . 16. 4H) , ,6A1,2H (,I6,

2 5H) ).20(/.T18.2(6Al,2H (,I6,4H) . ,6A1,2H (,I6.5H) )))

FORMAT (29H0P0INTS OUT OF BOUNDS ON PLOT)

FORMAT (48H0PAPER WIDER THAN 12 INCHES MUST BE USED ON PL3T)

FORMAT (25H0PL0T3 CONTROL PARAMETERS)

FORMAT (1615)

FORMAT (8H0 NPRT : . I 5. 2X , 7H NSMTH : . I5.2X .7H NOUT : . 15 .2X .7H NAXIS:

2,I5.2X,7H NPNT: , 15, 2X,7H NLEG:,I5)

FORMAT (8H XSI ZE: , F5. 2 , 2X, 7H YSI ZE : . F5 . 2, 2X , 7H SCALE:, F5. 2)

FORMAT (IHl, 120Al,/,23H0CALCOMP PLOTS PREPARED)

FORMAT (17H0CA^COMP PLOT OF ,6A1.2H (,I6.9H) VERSUS . 3( 2X . 6A1 , 2H ( 2.I6.1H) ) ,7(/,T37,3(2X.6Al .2H ( , 16. IH)) )

)

FORMAT (21H X-AXIS LOWER LIMIT: .G8.3,21H DELX (PER INCH): . 2 G8.3.14H UPPER LIMIT: .G8.3./.21H Y-AXIS L3WER LIMIT: .G8.3.

401

402:

403:

404: c 405:

406:

407:

408:

409: 600

4io: 610

4ii:

412:

413:

414:

415:

Aie:

417:

418:

419:

420:

42i:

422:

423:

424:

425:

426:

427: 620

428:

429: 630

430: 640

431

C 432: c 433: 650

434: 660

435: 670

436:

437: 680

438:

439: 690

440 : 700

441 : 710

442: 720

443: 730

444:

445: 740

446: 750

447: 760

448:

449: 770

450:

A-23
subprogram: PL0T3 CALCOMP plotting for data generated by PL0T2

3 21H DELY (PER INCH): ,G8.3,14H UPPER LIMIT: ,G8.3)

FORMAT (15H X-AXIS TITLE: .40A1./,15H Y-AXIS TITLE: ,40Al ) FORMAT <14H GRAPH TITLE: . 39A1 ,/, 1 4X, 39A 1

)

FORMAT (IH ) FCRMAT (41H00NLY CNE INSTRUMENT OF TYPE 1 IS ALLOWED./,

2 35H SECCND FOUND 'AT INSTRUMENT NUMBER ,13)

FCRMAT (80A1/40A1)

FORMAT (22H0 TA3LE OF I NSTRUMENTS/ ,3X,

2 41HKH ITYPE I.D. INSTRUMENT DESCR I PTID N,T87, 6HC0LUMN, /, 1

H

3 92(IH-) ,/)

FORMAT ( 16, I2,66A1.3X,I3)

FORMAT <1X,I6,I3,3X,6A1.2X,6 0A1,T87,I6)

FCRMAT (42H0C0LUMN STORAGE LIMITS EXCEEDED AT COLUMN ,14,/,

2 3aH CHECK PARAMETERS NCCL AND NRCW)

FORMAT (SOAl)

FCRMAT (4F10.0)

FCRMAT (I2,78A1)

FORMAT (SOAl)

FORMAT (21H GRAPH TITLE: FIGURE ,I2,3H: ,39A1 ,

/

,26X. 39A1

)

END

451 : 452: 780

453: 790

454: 800

4 55: 810

456:

457: 820

458: 830

459:

460:

46i: 840

462: 850

463: 860

464:

465: 87

466: 88

467: 890

468: 900

469: 910

470: C 47i:

A-24
subprogram: PL0T4 COMPARH INSTRUMENTS BETWEEN DIFFERENT TESTS

i: SUBROUTINE PL0T4 (NROW . NCOL. REED , KHt ITYPE. NAME. MAXR . MCNL t MAXCNLt

2: 2 ISKIP)

3: C

4: C ***#**********#*** *:)!**«***** ^^^^^^^Jlc^t **************** ***********

5: c

6: COMMON /ERRORS/ ICRD.ISEG

7: DIMENSION REED ( NROW , NCOU ) .KH(NCOL) .ITYPE<NCCL) . NAME( NCOL .6 )

,

a: 2 MAXR<NCOL).TITLE(120),IN(80).MCNL(MAXCNL). ISKIP(320)

9: DATA NF /IHF/

lO: ISEG=5

li: ICRD=11

12: C 13: C PL0T4 DATA CARD Ai: NPRT.NPNCH

14: C NPRT: DIRECTS PRINTING CF CONVERTED DATA

is: c npnch: directs punching of converted data

16: c

17: read (5.nO.ERR = 80.END=90) NPRT.NPNCH

18: ICRD=21

19: C PL0T4 DATA CARDS Bl & 82: TITLE

20: C TITLE: SPECIFIES TITLE OF EXPERIMENT PRINTED AT TOP OF EACH PAGE

21 : C 22: READ (5. 120.ERR=80.END=90) (TITLE ( I ) .1 =1 . 120

)

23: WRITE (6.130)

24: WRITE (6.140) NPRT.NPNCH

25: K=l

26: WRITE (6,160)

27: 10 ICRD=23

28: C 29: C PLCT4 DATA CARDS 83: 1 TYPE. KH .NAME . lEND

30: C ITYPE: TEST NUMBER FOR THIS INSTRUMENT

31

:

C KH: instrument (channel) number for THIS INSTRUMENT

32: C name: DESCRIPTION OF INSTRUMENT

33: C IEND: DIRECTS END OF INSTRUMENT CARDS

34: C 35: READ (5.150.ERR = 80.END=90) I TYPE (K ) .KH( K) , ( NAME( K . J ) , J=l .6 ) , ( IN ( I

)

36: 2.1=1.60) .IEND

37: IF ( IEND. EQ. 999) 60 TO 20

38: WRITE (6.170) KH(K) . ITYPE ( K) . ( NAME< K. J) . J=l . 6) . ( IN( J ) . J=l .60 ) .K 39: IF (MOD(K.5).EQ.0) WRITE (6,180)

40: IF (MOD(K-35,40) .EQ.O) WRITE (6,100) (TI TLE ( 1) . I =1 , 120

)

41: IF (MOD(K-35,40) .EQ.O) WRITE (6,160)

42: K=K+1

43: IF (K.LE.NCOL) GO TO 10

44: C TOO MANY INSTRUMENTS, KILL THE RUN

45: WRITE (6,250) K 46: CALL EREXIT

47: STOP

48: 20 MAXC=K-1

49: 30 ICRD=31

50: C

A-25
subprogram: PL0T4 COMPARE INSTRUMENTS BETWEEN DIFFERENT TESTS

51

:

C PL0T4 DATA CARD CI : ITEST

52: C ITEST: test number of this DATA SET

53: C 54: READ (5,190.ERR=80.END=90) < IN (I ) , I =1 ,6 ) . ITEST

55: IF (INCD.EQ.NF) GO TO 70

56: DO 40 I=1.MAXC

57: IF (ITYPE(l) .NE. ITEST) KH( I ) =KH( I ) +1000* ITYPE( I

>

58: 40 CONTINUE

59: CALL REDCIN ( NROW.NCOLi REED, KH, 0. ,MAXR . Ot . Ot I SKIP

)

60: WRITE (6,200) ITEST

61

:

INSTS=0

62: DO 50 I=1,MAXC

63: IF (ITYPE<I).NE. ITEST) GO TO 50

64: IF (MAXR(l).EQ.O) GO TO 50

65: INSTS=INSTS+1

66: MCNL( INSTS)=ITYPE(I )*1000+KH(I)

67: IF (NPNCH.EQ.O) GO TO 50

68: MAXROW=MAXR( I)

69: WRITS (NPNCH,220) MAXROW,MCNL ( INSTS) , (NAME( I , J ) , J=l ,6)

70; WRITE <NPNCH,230) { REED( J, I ) , J=l , MAXROW)

71

:

50 CONTINUE

72; WRITE (6,210) ( MCNL (I )

,

1=1 , I NSTS)

73: DO 60 I=1,MAXC

74: IF (ITYPE(I).NE. ITEST) KH( I

)

=KH(I )-l 000* ITYPE( I

)

75: 60 CONTINUE

76: GO TO 30

77: 70 IF (NPNCH.EQ.O) RETURN

78: WRITE (NPNCH,240)

79; END FILE NPNCH

80; REWIND NPNCH

8i; IF (NPRT.NE.O) CALL PRINT ( NRCW, NCOL, REED, KH , ITYPE, NAME, 0, MAXR . MAX

82: 2C, TITLE)

83: RETURN

84: 80 CALL RWERR

85: STOP

86: 90 CALL RWEOF

87: STOP

as: c 89: c 90: 100 FORMAT (1H1,120A1)

91: 110 FORMAT (1615)

92: 120 FORMAT (80A1/40A1)

93: 130 FORMAT ( 27H0 PL0T4 CONTROL PARAMETERS,/)

94: 140 FCRMAT ( 8H NPRT : , I 5 , 2X , 7H NPNCH:, 15)

95: 150 FORMAT ( 13, 13 ,2X ,66A 1 ,3X, 13)

96: 160 FORMAT ( 22H0 TABLE OF INSTRUMENTS/ ,3X,

97: 2 44HKH TEST I.D. INSTRUMENT DESCRI PTI0N,T87,6HCCLUMN, /,

98: 3 IH ,92(1H-),/)

99: 170 FORMAT ( 2X, 13, 3X , 13 , 5X, 6A 1 ,2X, 60A1 ,T87, I 6)

lOO: 180 FORMAT (IH )

A-26
subprogram: plot* ccmpare instruments between different tests

FORMAT (6A1,I3)

FORMAT (/,7H0TEST: . 13. 1 OX, 1 5HNEW INSTRUMENTS,/)

FORMAT (10(16, 6X>)

FORMAT (I6,I6,6A1)

FORMAT (8E10.5)

FORMAT (77X,3H999)

FORMAT (36H0R0W STORAGE LIMITS EXCEEDED AT ROW ,16,/, IX,

2 30HCHECK PARAMETERS NRCW AND NCOL)

END

loi: 190

102: 200

103: 210

104: 220

105: 230

106: 240

107: 250

108:

109: C no:

A-27
subprogram: DEFINE DEFINITION OF DATA ACQUISITION SYSTEM

12

34

5

67

8

9 10

1112

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

3132

33

34

35

36

37

38

39

40

4142

43

44

45

46

47

48

49

50

SUBROUTINE DEFINE ( INTYPE, ICHRS, INDAS, I READ, IT I ME, lEOR, I EOF, MEDIA,

2 TITLE, INSKIP, I SKIP , NCNL , NTFORM)

:^:«c *«:<c:(c*:jc :4c 4c :4c :tc :)<:{::«<:{< «^:{c:{; Jt<*** ******:!:* *******:4< ** 4c* ************** *:ti3)c****t

I CRD

2 1H,,1H ,1HT,1HA

3 IHR, IHA, IHC, IHK DATA {INPU"r(2.J)

DATA (INPUT(3,J)

2 IH ,1HI,1HM,1HA

3 IHS.IH ,1HP,1HE

DATA (INPUT(4,J)

DATA (INPUT(5,J)

2 IH ,1H1,1HM,1HA

3 1HS,1H ,1HP,1HH

DATA (INPUT(6,J)

2 1H,,1H .IHT.IHA

3 IHR, IHA, IHC, IHK DATA (INPUT(7,J)

2 IH ,1HI,1HM,1HA

3 1HS,1H ,1HP,1HE

DATA (INPUT(8,J)

2 1H,,1H ,1HT,1HA

3 IHR, IHA, IHC, IHK

DATA (INPUT(9,J)

2 IH , IHI ,1HM, IHA

3 IHS.IH ,1HP,1HE

DATA (INPUTdCJ

2,1H ,1HI.1HM,1HA

3 1HS,1H ,1HP,1HE

DATA (READd.J),

2 1H(,1HC,1H),1H(

3 IH) , 1H5, IH* ,1H{

4 IH ,1H ,1H ,1H

DATA <READ(2,J),

2 IH , IH ,1H ,1H

3 IH ,1H ,1H ,1H

4 IH , IH , IH , IH DATA {READ(3,J),

2 1H( , IHCIH) ,1H(

3 IH), IHS.IH*, 1H(

4 IH , IH , IH , IH DATA (READ(4,J),

2 IH ,1H ,1H ,1H

320 ) (10 , P(32

J = l IHP 3*1H

J=l

J=l

IHG

IHR J=l

J=l

IHG

IHR J=l

IHP

8*1H /

J=l

IHG

IHR

J=l

IHP

1H4- IHV

IH

1H + IHV

IH

COMMON /ERRORS/ ISEG

INTEGER READ, TIME, EOR, EOF, DAS,

DIMENSION ICHPS(

2 TIME( 10 ,68) ,ECR

3 TITLE(120), ISKI

DATA (INPUT(1,J)

1H5

IH38)

38) IHE

IH 38)

IHE

38)

IHE

IH 38)

IHE

IHl

IH) IH =1,56) /IH

IHl

IH)

IH J=l,56) /IH

, IH ,1H , IH

TFORM

, IN(80>, INPUT( 10,38) , READ (10 ,56)

,

,28),DAS( 10,22), I CHARS (26),

,6)

IHN, IHP, IHU.IHT, 1H=, IHT.IHA, IHP, IHE,

HF, IHC, IHR, IHM , IHA, IHT, 1H=,1H7, IHT,

H /

IHN, IHP, IHU, IHT, 1H=, 1HC,1HA.1HR,1HD,

H, , IH , IHC, IHH, IHA, IHN, IHN, IHE, IHL,

HI , IHN, IHE, lH=,lHe/

H /

1HN,1HP.1HU,1HT,1H=,1HC,1HA,1HR,1HD,

H, , IH , IHC, IHH, IHA, 1 HK , IHN , 1 HE. 1 HL

,

HI,1HN,1HE,1H=,1H4/

1HN,1HP, 1HU,1HT, 1H=,1HT,1HA,1HP,1HE,

HF, IHO, IHR, IHM, IHA, IHT, 1H=, 1H7, IHT,

/1HI,1HN,1HP,1HU,1HT,1H=,1HC,1HA,1HR,1HD,

1HS,1H,,1H , IHC, IHH, IHA, IHN, IHN, IHE, IHL,

IHL, IHI , IHN, IHE, 1H=,1H4/

/IHI, IHN, IHP, IHU, IHT, 1H=, IHT, IHA, IHP, IHE,

IH . IHF, IHC, IHR, IHM, IHA, IHT, 1H=, 1H7, IHT,

INDAS(22)

6) ,EOF(10

) ,TFCRM(1

38) /IHI,

IHE, IH ,

1

/

38) /38*1

38) /IHI,

IHS .1

1 HL , 1 /38*1

/IHI,

1HS,1

IHL , 1 /IHI,

IH ,1

8*1H /

J=l,38) /IHI, IHN,

IHG, IHE, IHS, IH, ,

1

1HR,1H , IHL, IHI,

1

,J=1,38) /IHI, IHN

IHG, IHE, IHS ,1H, ,

1

1HR,1H , IHL, IHI,

1

=1,56) /IHP, IHE,

1

H4-, 1 HE, 1 1H+, II 1H( , 11 IH ,11

IHP,

H , 1 HN, 1

, IHP

H , 1 HN, 1 HA,1

H-,1

H), 1

IHU,

HC, 1 HE, 1

1 HU

HC, 1 HH,1

HD,1

H2,l

H2, 1 H , 1 IH , 1 IH , IH , IH , IH , 1 IH ,1H ,1H ,1H ,1 IH , IH , IH , IH ,

1

J=l,56) /IHR, IHE,

1

1H+, 1 1H( ,1 IH , 11

1

H+, 1 HE, 1 H , 1 H ,1 H , 1

HA,1

H-,1

H) ,1 H ,1 H ,1 H ,1

HD,1

H2,l

H2,l

H , 1 H ,1 H ,1

1 HT, 1H=

HH, IHA,

H=, 1H5/

, IHT, IH HH, IHA,

H=,1H5/

HI , 1 HN

,

H-, 1H-,

H*, 1H(

,

, IH ,

, IH , .IH . .IH . ,1H , HI , IHN,

H-,1 H-,

H*, 1H(

,

H ,1H , H ,1H , H , IH ,

, IHC, IHA, IHR, IHD.

IHN, IHN, IHS, IHL,

= , IHC, IHA, IHR, IHD

IHN, IHN, IHE, IHL,

IHG,

IHO,

IHK,

IH , IH , IH , IH , IH , IHG,

IHC , IHK, IH , IH , IH ,

1H=,

1H9,

IH , IH / IH , IH , IH , IH /

1H=,

1H9,

IH , IH / IH , IH ,

1H3

IHO

IH)

IHIHIH

1H3

IHO

IH)

IH

IH

ilH*,

i IHO,

I IH ,

. IH , >1H ,

i IH ,

ilH*,

I IHO, IH ,

IH , IH ,

A-28
bprogram: define DEFINITION OF DATA ACQUISITICN SYSTEM

5i: 3 IH , IH ,1H . IH , IH .IH , IH , IH , IH , IH , IH , IH , IH , IH .IH , IH , 52: 4 IH 1 IH .IH . IH , IH .IH , IH , IH , IH , IH , IH , IH , IH , IH /

53: DATA (READ(5 .J) . J=I. 56) >'IHR . IHE, IHA,,IHD, IHI .IHN, IHG, IH= .IHC , IHN.

54: 2 IH), XH( ,1HK .IH .IH) .1H3, IH*, 1H(, IHC, IH) , 1H( , IHK, IH , IH) . IHC, IHR,

55: 3 IHOi IH .IH) , 1H5 . IH* . 1H(, IHR, IH) IH2 IH*, IHC IHA, IH), IHC .IHK, IH . 56: 4 IH), IH ,1H .IH .IH .IH , IH .IH , IH ,.IH , IH .IH , IH , IH /

57; DATA (R£AD(6 ,J) ..J = I . 56) /'IHR, IHE, IHA, IHD, IHI .IHN, IHG, IH= .IHC, IHK,

58: 2 IHC, IH) ,1H3 . IH* .IH( .IHC IH), IH( , IHK, IH IH) .IHC , IHK, IH .IHO IH*.

59: 3 IHN, IH)',1H{ *IH + iIH .1H-, IH-,>1H),. IH6,. IH* .IHC .IHR, IHC, IH .IH) . I HC . 60: 4 IHK,.IH .IH) . IH2 ,-IH* . 1H( ,.IHA, IH), IH2, IH* IHC .IHK, IH , IH)/

61: DATA (READ<7 .J)..1 = 1, 56) /'IHR, IHE IHA .IHD, IHI .IHN, IHG, 1H = .IHC, IHK,

62: 2 IHC, 1 H ) . 1 H3*.IH* .IH( .IHC,. IH) , 1H( . IHK .IH >1H) .IHC , IHK .IH .IHO, IH*.

63: 3 IHN,,1H) .1H( .IH*- . IH .IH-, IH-, IH) , IH6, IH*, IHC .IHR, IHC, IH .IH), IHC.

64: 4 IHK, IH ,1H) , 1H2 . IH* .1H( , IHA, IH) , 1H2, IH* IHC .IHK,.IH , IH)/

65: DATA (RE AD (8 .J) ..J=I. 56) /'IHR, IHE, IHA IHD, IHI .IHN, IHG, IH = . 1H3, IH*.

66: 2 1H{, IHC.IH) .1H( , IHK .IH , IH) , IHC, IH + , IH + .IH- . IH-, IHO IH .IH) 1H5.

67: 3 IH*, 1H(

,

IHV . IHO .IH .IH), IH( .IHV,. IHK .IH .IH) . 1H3 . IH* .IHC ,IHA .IH) . 68: 4 1H{ .IHE.IHO .IH .IH) .1H( .IHK . IHX, IH), IH .IH .IH .IH IH /

69: DATA (READ(9 .J) ,.i=l. 56) y'IHR, IHE, IHA IHD .IHI .IHN, IHG, IH = .1H3, IH*,

70: 2 1H(, IHC.IH) .1H(, IHK .IH , IH), IH( . IH+,,IH* .IH- ,IH- , IHO .IH .IH) .IH5.

71: 3 IH*, 1H( ,1HV .IHO .IH .IH) ,.1H{ ,.IHV, IHK,. IH ,.IH) . IH3, IH*, IHC .IHA, IH) . 72: 4 1H( . 1 HE . 1 HO .IH ,1H) . IHC ,. IHK IHX, IH), IH .IH .IH , IH , IH /

73: DATA <READ(1 D.J) .J = I ,56) /IHF?.IH£i. IH/\, IH[5.1H [. IHr«l. 1H<i. IH:= . IH ,IHC

74: 2 IH* IHK. IH .IH) IH3 « IH* IH( IHC .IH) .1H( . IH+ .IH ,.IH-, IH- ,IH), IH6.

75: 3 IH* ,1H( .IHR .IH) .IH( . IHA,. IH) ,, 1H2 . IH* .IH( .IHK .IH .IH),.IH .IH .IH . 76: 4 IH >1H «1H .IH .IH .IH , IH .IH , IH , IH .IH .IH .IH .IH /

77: DATA ( T I ME < 1 • J) ..) = I. 68) /'IHT .IHX, IHM IHE .IH = . IH3, IH*, IHC .IHS, IH) . 78: 2 1H(,. IHK.1H6 .IH) . IH6 . IH* .IH(,. IHS . IH) .IH2 .IH* .IHC .IHK .IH .IH) ,.IH . 79: 3 IH , IH .IH . IH . IH .IH . IH ,.IH . IH . IH .IH .IH .IH .IH .IH ,.IH . 80: 4 IH ,.IH ,XH .IH .IH .IH . IH .IH .IH .IH .IH >IH .IH .IH .IH .IH . 81: 5 IH ilH .IH .IH .IH .IH .IH iIH ,. IH . IH 4f 82: DATA (T1ME(2 .J) ..) = I . 68) yI'lH . IH . IH . IH .IH ilH . IH ,. IH .IH . IH , 83: 2 IH ilH .IH .IH . IH .IH .IH .IH . IH .IH .IH ilH .IH .IH .IH .IH , 84: 3 IH ilH .IH .IH .IH .IH .IH >IH . IH .IH IH .IH .IH , IH > IH .IH , 85: 4 IH ilH « IH .IH .IH .IH .IH .IH .IH . IH .IH iIH .IH . IH 1 IH . IH , 86: 5 IH ,1H ,1H .IH ilH . IH .IH . IH . IH . IH sf 87: DATA <TIME(3 .J). J = I. 68) JMHT .IHI .IHM ,IHE .IH= .IH3 , IH* .IHC .IHS, IH) , 88: 2 1H( , 1 HK . 1 H6 .IH) , IH6 .IH* .IH( .IHS .IH) . IH2 . IH* 1 1H( . IHK . IH 1 IH) . IH , 89: 3 IH .IH .IH .IH . IH ,IH .IH .IH .IH .IH .IH ,IH . IH . IH .IH ,> IH . 90: 4 IH .IH .IH .IH .IH .IH .IH iIH .IH .IH .IH • IH .IH .IH .IH .IH . 9i: 5 IH IH ,1H .IH .IH .IH iIH iIH . IH .IH ./ 92: DATA (T1ME(4 .J). J=I . 68) y'IH .IH . IH .IH .IH • IH .IH .IH .IH .IH , 93: 2 IH .IH .IH .IH .IH .IH ilH .IH . IH . IH .IH ilH . IH .IH .IH .IH , 94: 3 IH .IH ,1H .IH .IH .IH .IH • IH 1 IH . IH .IH .IH .IH . IH .IH .IH . 95: 4 :h ,1H .IH .IH .IH *1H ilH ilH .IH .IH .IH .IH .IH .IH .IH .IH . 96: 5 IH •IH «1H .IH .IH • IH >IH .IH .IH ,IH if 97: DATA (TIME(5 .J)..J = l . 68) i'IHT .IHI . IHM .IHE • IH = >IH2 . IH* . IHC . IHH . IH) . 98: 2 1H{ 1 ihk.ih: . IH) . 1H2 . IH* ,IH( . IHM .IH) . 1H7 .IH5 . IH* .IHC .IHK .IH .IH).

99: 3 IH .IH ,1H .IH ,IH .IH • IH .IH .IH .IH .IH • IH . IH . IH t IH . IH , 100: 4 IH > IH . IH .IH .IH .IH . IH . IH .IH .IH .IH . IH . IH ,.IH . IH . IH ,

A-29
SUBPROGRAM!

lOi:

102:

1 03:

104:

105:

106:

107:

108:

109:

110:

111 : 112:

113:

114:

1 15:

lie:

117:

118:

119:

120:

121:

122:

123:

124:

125:

126:

127:

128:

129:

130:

13 1

132:

133:

134:

135:

136:

137:

138:

139:

140:

141 : 142:

143:

144:

145:

146:

147:

148:

149:

150:

DEFINE DEFINITI

5 IH . IH , IH IH DATA (TIME(6 . J) . 2 IHN, IH) , 1H2 , IH*

3 IH), 1H2, IH* . 1H(

4 IHK, ih: .IH) ,1H2

5 1H(, IHK.lHR .IH)

DATA (TIME (7 .J).

2 IHN, IH) ,1H2 , IH*

3 IH), 1H2.1H* . 1H(

4 IHK, 1h: , IH) . 1H2

5 1H( , IHK.lHR .IH)

DATA (TIME (8 ,J) . 2 1H2, 1H*.1H( . IHH

3 ih: , IH) .1H2 . IH*

4 IH), IH . IH 1 IH

5 IH , IH , IH 1 IH DATA (TIME (9 .J) . 2 1H2, 1H*,1H( , IHH

3 ih: , IH) .1H2 . IH*

4 IH),.IH ,1H ,1H

5 IH , IH , IH .IH DATA (TIME(1(J.J ) 2 1H5, IH* .1H( .IHK

3 1H2 IH*. 1H( . IHM

4 IH , IH) , 1H( , IHK

5 IH , IH .IH .IH DATA (ECRd, J). J 2 IH , IH , IH 1 IH DATA (E0R(2. J).

2 IH IH . IH .IH DATA (ECR(3,.J ). J 2 IHX IH) , IH .IH DATA (ECR(4..J). J 2 IH , IH . IH .IH DATA (ECR(5. J).

2 IH),,IH .IH .IH DATA (E0R(6. J). J 2 IH , IH ,1H . IH DATA (E0R(7, J). J 2 IHX . IH) .IH .IH

DATA (ECR(8, J). J 2 IH , IH , IH . IH DATA (ECR(9. J). J 2 IHX , IH) . 1H{ , IHK

DATA (EOR( 10 . J) . 2 IH) IH . IH . IH DATA (ECFd , J). J 2 IH ,1H tlH .IH

3 IH .IH /

DATA (EOFCa, J). J

DEFINITION OF DATA ACQUISITION SYSTEM

. IH .IH . IH . IH . J=1.68) /IHT.IHI.

,1H(.1HK.1H ,1H).

1 IHH, IH) , 1H( . IHK ,

, 1H*,1H(, IHS. IH),

, lH-2, IH*. 1H( , IHK,

J=1.68) /IH-^.IHI.

.1H( .IHK.IH , IH)

,

, IHH, IH) . 1H( , IHK.

, IH*. 1H( .IHS.IH)

. 1H2. IH*. 1H( . IHK. )=1,68) /IHT.IHI,

i1H).ih(,ihk.ih:,

,1H( .IHS.lH) .1H4.

. IH .IH ,1H .IH ,

I IH , IH .IH ,1H . J=1.68) /IHT.IHI,

,ih).ih(.ihk,ih:,

,1H( , IHS, IH) , 1H4,

.IH ,1H ,1H .IH .

. IH , IH , IH . IH . .J=1.68) /IHT.IHI

, IH .IHN. IH) . 1H2.

. IH) , 1H( , IHK, IH ,

. IHH.IH) . 1H4. 1H4.

,1H .IH .IH ,1H . =1. 16) /IHE, IHC.

.IH ,1H /

= 1 . 16) /IH . IH , 1

, IH , IH /

=1.16) /IHE, IHC,

,1H , IH /

= 1,16) /IH , IH , 1 .IH ,1H /

=1.16) /IHE, IHC.

,1H , IH /

=1.16) /IHE, IHC,

,1H , IH /

=1,16) /IHE, IHC,

,1H . IH /

=1,16) /IHE, IHC,

,1H . IH /

=l! 16) /IHE. IHO,

,1H .IH)/

J=l ,16) /IHE, IHC,

,1H , IH /

=1.28) /IHE, IHO.

,1H ,1H .IH ,1H ,

IH , IHM.

1H2,

ih:.

1H(,

IH . IHM,

1H2.

ih:,

1H( . IH . IHM.

IH) . IH*.

IH , IH . IHM.

IH).

IH*.

IH . IH , .IHM

IH*.

IH).

IH*.

IH , HR.l

IH /

1HE.1H=

IH*. 1H{

IH) . 1H2

1 H< . 1

IH)/

1HE.1H=

IH*. 1H(

IH) ,1H2

IHK.IH

IH)/

IHE, 1H=

1H2,1H*

1H( ,1HK

IH .IH

IH /

1HE.1H=

1H2. IH*

1H( .IHK

IH ,1H

IH /

. IHE.l H 1H( . IHH

1H2, IH*

1H( .IHK

IH /

H=, IHE,

H , IH , IH .

HR, 1H=, 1H( ,

H , IH . IH ,

HR. 1H=. IH8 .

HR. 1H=, IHE,

HR,1H=, 1H(

HR, 1H=, IHE.

HR, 1H=. 1H(

,

IHR, 1H=, 1H7

HF, 1H=, IHE,

1 H , 1

, IH

IH IH IH , IH

.1H4 IH* .1H( .IHK,

.IHD IH), 1H(, IHK,

.IH*, 1H( . IHM . IH) , ,1H) 1H(, IHK, IHH.

.1H4 . IH* .1H( .IHK,

.IHD, IH) 1H( . 1H<,

,1H*, 1H( .IHM . IH) , .IH) .1H( .IHK .IHH,

,1H3 . IH*,. 1H( .IHD,

.1H( . IHM .IH) .1H( ,

. IH .IH) . 1H( .IHK,

.IH .IH . IH .IH ,

.1H3 . IH* . 1H( • IHD.

.1H{ . IHM . IH) . 1H( . .IH ilH) .1H( .IHK,

.IH . IH . IH .IH .

= . IH [

,

IHK.IH ,1H)

,1H) . 1H( . IHK .IH , ,1H( , IHS . IH) ,1H( , ,1H .IH) .IH • IH .

IHO, IHR. IH , IH ,1

IH , IH . IH , IH ,1

IHK, IH , IH) , IH(, 1

IH , IH , IH . IH .1

IHO, IH*. IH{ . IHK.l

IHO, IHR, IH , IH . 1

IHK, IH . IH) , IH( ,1

IHC, IHR, IH , IH ,1

IHK. IH ,.LH) . IH(,1

,1H0 , IH* . 1H( . IHK,

IHC. IHF,]IH . IH ,1

, IH . IH . IH ,1H ,

IH , IH , IH , IH , 1

IH-i

IH

1H(

IH)

1H-,

IH

1H(

IH)

IH)

IHK,

IHX, IH

IH)

IHK,

IHX,

IH

,1H]

IH)

IHK, IH

H ,

H ,

HK,

H »

H ,

H ,

HK,

H ,

HK,

IH

H , IH

A-30
DEFINE DEFINITION OF DATA ACQUISITION SYSTEM

151 : 152:

153:

154:

155:

156:

157:

158:

159:

160:

lei:

162:

163:

164:

165:

166:

167:

168:

169:

170:

171

:

172:

173:

174:

175:

176:

177:

178:

179:

180:

181

:

182:

183:

184:

185:

136:

187:

188:

189:

190:

191

:

192:

193:

194:

195:

196:

197:

198:

199:

200:

2 IH 3 IH DATA

2 IHI

3 IHD

DATA

2 IH

3 IH DATA

2 IHI

3 IHD DATA

2 IH

3 IH DATA

2 IHI

3 IHD

DATA

2 IH

3 IH DATA

2 IHI

3 IHD DATA

2 IHI

3 IHD DATA

2 IH

DATA

2 IH

DATA

2 IH DATA

2 IHU

DATA

2 IHD

DATA

2 IHA

DATA

2 IHA

DATA

2 IHD DATA

2 IHD DATA

2 IHT

DATA

2 IHO

3 1H(

DATA

flH flH ,

f IH /

(E0F(3,J

t IH) .1H(

,

tlH)/

(E0F(4,

J

.IH tlH . .IH /

(E0F(5.

J

.IH) .1H(

.

.IH)/

(E0F(6.

J

.IH .IH . .IH /

(E0F(7,

J

. IH) . 1H( , ,1H)/

(E0F(8.

J

•IH .IH . .IH /

(E0F(9.

J

. IH) .1H(

.

.IH)/

(EOFdO.

.IH) .1H(

.

.IH)/

(DASd.J

.IHS. IHE. {DAS(2,

J

. IH . IH . (DAS(3.

J

, IHS. IHE,

(DAS(4,

J

.IHC. IHE. <DAS(5.

J

. IHA, IHT,

(DAS(e,

J

.IHN.IHG.

(DAS(7,

, IHN, IHG,

(DAS(8,

. 1 HA . 1 HT

.

<DAS(9, J

, IHA. IHT. (DAS( 10.

. IHR, IHE,

( ICHARS(

.IHK.IHD.

. IH) , 16/

(TFORMCl

IH , IH ,1H ,1H

).J=1.28) /

IHK.IHL.IH)

).J=1.28) / IH .IH .IH ).J=1.28) /

IHK.IHL .IH)

).J=1.28) / IH .IH .IH ).j=i,2e) /

IHK, IHt, IH)

).J=1.28) / IH ,1H .IH

).J=1.28) /

IHK. IHL.IH)

J) . J=1.28)

IHK, IHL ,1H)

). J = IHR.

),J = IH , ), J = IHR,

), J = IHD.

), J = IHA,

),J = IHU,

). J = IHU.

). J= IHA.

), J = IHA,

J) , J IHN,

I) . I IHH,

1,22) / IHI , IHE 1,22) / IH .IH

1.22) / IHI . IHE 1.22) / IH .IHD

1,22) / IH .IHE

1.22) /

IHS.IH

1,22) /

IHS.IH

1.22) / IH .IHN

1.22) / IH ,1HN

=1,22)

IHD, IH

=1 ,26)

,

IHM. IHS

. IH .IH , IH , IH .IH ,

IHE. IHC.l HF.lLH=. IH( ,1

.1H( . IHK, IHE, IH) .1H( ,

IH . IH . 1 H .1LH . IH .1 .IH 1 IH , IH , IH .IH ,

IHE. IHO. ] HF, IH=. IH( . 1

, 1H( , IHK IHE, IH) .1H( .

IHE. IHC. 1IHF. IH=. IHE, 1 .IH ,1H , IH , IH ,1H .

IHE, IHO.]LHF.]IH=. IH{ . 1

, 1H( .IHK, IHE .IH) . 1H( .

IHE, IHC. 1IHF,]IH=. IHE, 1 .IH .IH , IH . IH .IH ,

IHE. IHC.lLHF. IH=. IH( ,1

.1H( , IHK, IHE .IH) > 1H( . /IHH , IHO . IHF ,1H = .IH( , .1H( . IHK IHE .IH) .1H( .

IHV. IHI. LHD. IHA. IHR.l

.IHS .IH . IH . IH ,1H , IH , IH , IH . IH , IH , 1 .IH ,1H .IH .IH ,1H , IHV, IHI,]IHD, IHA, 1H(?, 1

. IHS ilH . IH .IH .IH . IHS, IHP.lIHE, IHE. IHD.l

,1HA , IHT, IHA . IH ,1H , IHV, IHI, LHD, IHA, IHR, 1 ,1HI , IHG .IHH ,1HT ,1H , IHE, IHS,]IHT. IHE, IHR, 1 ,1HP ,1HD , 1H2 .IHO , 1H6,

IHE, IHS, ]IHT. IHE, IHR, 1 .IHP , IHD . 1H2 .IHO ,1H6.

IHV, IHI, IHD. IHA. IHR. 1 .IHI , IHN . IHE . IH .IH . IHV, IHI, IHD, IHA, IHR. 1

, IHI , IHN , IHE ,1H .IH . /IHD , IHC . IHR ,1HI , IHC,

, 1H2 ,1H2 • IHO .IH ,1H , NCHARS / IHN. IHA, IHC, 1 ,1H( ,1H) . IHS . 1H< • IHI ,

IH ,1H .IH .IH .IH . HK.IHF.IH) . 1H( .IHK.

IHK. IHN, IH) .1H( .IHK.

H .IH .IH .IH .IH . IH ,1H . IH . IH . IH .

HK. 1HF,1H).1H( ,1HK,

IHK. IHN. IH) . 1H(. IHK.

HO.IHF.IH ,1H .IH . IH , IH .IH .IH . IH . HK.IHF. IH) . 1H( .IHK.

IHK, IHN.IH) .IHC.IHK.

HO.IHF.IH ,1H .IH . IH . IH . IH . IH .IH . HK.IHF.IH) ,1H< .IHK.

IHK, IHN, IH) , 1H( , IHK,

1 HK . 1 HF , 1 H ) , 1 H ( . 1 HK

.

IHK, IHN. IH) . 1H( . IHK,

H .1H5.1H4. IHO.IHO.

IH /

H . IH . IH . IH . IH . IH /

H . 1H5. 1H4. IHO.IHO.

IH /

H2.1H , IHR. IHE. IHD.

IH / H . IHA. IHU. IHT. IHO.

IH /

HL. IHI , IHN. IHE.IH • 1H4/

HL.IHI, IHN, 1HE,1H . 1H4/

H . IHA. IHU. IHT. IHO.

IH / H .IHA. IHU, IHT, IHO,

IH / IH .IHD. IHI. IHG. IHI.

IH /

H*. 1H-. IHV.IHR.IHE.

IHP. 1H=, IHK, IHS. IHF,

. J),J=1.6).NF0RM /1H7,1HT.1HR.1HA.1HC.1HK.1/

A- 31
SUBPROGRA^l; DEFINE DEFINITION OF DATA ACQUISITION SYSTEM

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

219

220

221

222

223

224

225

226

227

228

229

230

231

232

233

234

235

236

237

238

239

240

241

242

243

244

245

246

247

248

249

250

DATA NI,NC.NT,NR,NE,NF,NBL,NEQU.NSTAR /I HI , 1 HC . 1 HT , IHR, IHE t IHF, 1

H

2. 1H=,1H*/

C DECODE THE DATA ACQUISITION SYSTEM SPECIFICATIONS

1C = 1 WRITE (6,750) (T ITLE ( I ) , I = 1 , 1 20)

IF (INTYPE.EQ.O) WRITE (6.710)

IF ( INTYPE.GE.l .AND.INTYPE.LE. 10) WRITE (6.720) ( DAS( INTYPE . J ) . J=l

2.22)

DO 440 NCRD=1,5

ICRD=30+NCRD

IF ( INTYPE. NE.O) GO TO 10

C

C PLOTl OR PLCT2 DATA CARDS CI - C5: IN

C in: SPECIFIES DATA ACQUISITION SYSTEM FORMAT

C READ (5,700.END=660.ERR=670) ( IN ( I ) . 1=1 , 80)

GO TO 110

C IT'S ONE OF THE PREASSIGNED TYPES. GET IT 10 IF ( INTYPE. GE. LAND. INTYPE. LE. 10. AND. INTYPE. NE. 2) GO TO 20

WRITE (6,690)

CALL EREXIT

STOP

20 DO 30 1=1.80

30 IN(I)=1H

DC 80 1=1.68

IF (NCRD.NE.l) GO TO 40

IF (I.GT.38) GO TO 90

IN(1 )=INPUT( INTYPE. I

)

40 IF (NCRD.NE.2) GO TO 50

IF (I.GT.56) GO TO 90

IN( I)=READ( INTYPE, I

)

50 IF (NCRD.NE.3) GO TO 60

IN( I)=TIME( INTYPE, I)

60 IF (NCRD.NE.4) GO TO 70

IF (I.GT,16) GO TO 90

1N(I)=E0R( INTYPE, I)

70 IF (NCRD.NE.5) GO TO 80

IF (I.GT.28) GO TO 90

IN(I)=EOF( INTYPE, I) 80 CONTINUE

90 DO 100 J=l,22

100 INDAS( J ) =DAS(INTYPE. J) IF ( INTYPE. EQ. 4) GO TO 450

110 WRITE (6,730) ( IN ( I ) , 1= 1 , 80

)

C IS CARD AN INPUT CARD

IF (IN(1 ) .NE.NI ) GO TO 160

IF ( IN(7).NE.NT) GO TO 1 4C

C CARD IS INPUT TAPE. DECODE IT

'^EDIA = 2 IF (IN(24) .NE.NEQU) GO TC 670

A-32
SUBPRQGRA"^: DEFINE DEFINITION OF DATA ACQUISITION SYSTEM

251DO 130 NTF0RM=1 t NFORM

252: DC 120 1=25,30

253: J=I-24

254: IF (IN( I).NE.TFORM(NTFORM, J) ) GO TO 130

255: 120 CONTINUE

256: GO TO 440

257: 130 CONTINUE

258: GO TO 670

259: 140 ME0IA=1

260: IF (IN(37) .NE.NEQU) GO TO 670

261

NCNL=0

262: DO 150 1=38,80

263: CALL DIGIT ( IN( I ) , I D I G. I STAT

)

264: IF (ISTAT.NE.O) GO TO 440

265: NCNL=NCNL*10+IDIG

266: 150 CONTINUE

267: GO TO 440

268: C IS CARD A READING CARD

269: 160 IF ( IN( 1 ) .EQ.NR) IREAD=IC

270: C IS CARD A TIME CARD

27i: IF (IN(1 ).EQ.NT) ITIME=IC

272: C IS CARD AN END OF RECORD CARD

273: IF (IN( 1 ) .NE.NE.OR. IN(3) .NE.NR) GO TO 170

274: IEOR=IC

275: IF (MEDIA. EQ.l) GO TO 180

276: IF (IN(5) .NE.NE.0R.IN(7) .NE.NR) GC TO 670

277: ISUB=IC

278: 1C=IC+1

279: IDIGIT=1

280: GO TO 430

28i: C IS CARD AN END CF FILE CARD

232: 170 IF (IN(1 ) .NE.NE.0R.IN(3) .NE.NF) GO TO 180

283: IEOF=IC

284: IF (MEDIA. EQ.l) GO TO 130

285: IF ( IN(5) .NE.N5. OR. IN(7) .NE.NF) GC TO 670

286: ISUB=IC

287: IC=IC+1

288: IDIGIT=1

289: GO TO 430

290: 180 ISUB=IC

291: IC=IC+1

292: IL=0

293: IS=0

294: DC 190 1=1,80

295: 11=81-1

296: IF ( IN( I I

)

.NE.NBL.AND.il. EQ.O) IL=II

297: IF (IN(I).EQ.NEQU) IS=1+1

298: 190 CONTINUE

299: IDIGIT=1

300: NREP=0

A-33
SUBPROGRAM! DEFINE DEFINITION OF DATA ACQUISITION SYSTEM

301

302

303

304

305

306

307

30 8 309

310

31 1 312

313

314

315

31 6 317

318

319

320

321

322

323

324

325

326

327

328

329

330

331

332

333

334

335

336

337

338

339

340

341

342

343

344

345

346

347

348

349

350

IPAREN=0

ICHR=IS

200 DO 210 I=1,NCHARS

IF (ICHARS(I) .EQ.IN( ICHR)) GC TO 240

210 CONTINUE

C CHARACTER NOT RECOGNIZED. IF IT'S WITHIN (), ASSUME SPECIAL CHAR

IF (IPARSN.EQ.O) GO TO 220

ICHR=I CHR-l

GC TO 340

220 CALL DIGIT ( IN{ I CHR ) , I D IG . I STAT)

IF (ISTAT.NE.O) GO TO 230

NREP=NREP*10+IDIG

GO TO 420

230 IF (IN(ICHR) .NE.NSTAR) GC TC 670

GO TO 420

240 IF ( IPAREN.NE.l .AND. I .LE. 14) GC TO 670

GO TO (250.260.270.280.290. 300,310,320.33 0,340. 350,360,370.38a

2,390, 400), I C ANY NUMERIC CHARACTER (DIGIT 0-9)

250 ICHRS(IC)=-1

IC=1C+1

GO TO 410

C ANY ALPHABETIC CHARACTER (ANY CHARACTER BUT A NUMERIC)

260 ICHRS(IC)=-2

IC=IC+1

GO TO 410

C A CHANNEL NUMERAL (DIGIT 0-9 PART OF A CHANNEL NUMBER)

270 ICHRS(IC)=-3

IC=IC+l

GO TO 410

C POSITIVE SIGN CHARACTER

280 ICHRS(IC)=-4

1CHRS( IC+1 )=IN( ICHR+1)

IC=IC+2

ICHR=ICHR+1

GO TO 410

C NEGATIVE SIGN CHARACTER

290 ICHRS(IC)=-5

ICHRS( IC+l)=IN(ICHR+l)

IC=IC+2

ICHR=ICHR+1

GO TO 410

C MANTISSA OF READIMG (INTEGER VALUE) CHARACTER

300 ICHRS(!C)=-6

IC=IC+1

GO TO 410

C MANTISSA OF READING (REAL NUMBER WITH EMBEDDED DECIMAL) CHARACTER

310 ICHRS(IC)=-7

IC=IC+1

GO TO 410

A-34
subprogram: define definition cf data acquisition system

EXPONENT CF READING (INTEGER VALUE) CHARACTER

ICHRS(IC>=-8

IC=IC*1

GO TO 410

OVERFLOW INDICATOR (ANY CHARACTER)

ICHRS(lC)=-9

ICHRS(IC+1)=IN(ICHR+1)

IC=IC+2

ICHR=ICHR+1

GO TO 410

A 'special CHARACTER

ICHRS(IC)=-10

ICHRS{ IC+1)=IN( ICHR+1)

IC=IC+2

ICHR=ICHR+1

GO TO 410

DAYS COMPONENT OF TIME READING (NUMERAL 0-9)

ICHRS( IC)=-11

IC=IC+1

GO TO 410

HOURS COMPONENT CF TIME READING (NUMERAL 0-9)

ICHRS( IC)=-12

IC=IC+1

GO TO 410

MINUTES COMPONENT OF TIME READING (NUMERAL 0-9)

ICHRS( IC)=-13

IC=IC+1

GO TO 410

SECONDS COMPCNENT OF TIME READING (NUMERAL 0-9)

ICHRS( IC)=-14

IC=IC+1

GO TO 410

A LEFT PARENTHESIS. THE START CF NEXT CHARACTER SPECIFICATION

IF (IPAREN.NE.O) GO TO 670

IPAREN=1

ICHRS(IC)=ID1GIT

ICHRS(1C+1)=0

ICHRS( IC+2)=0

ICHRS( lC+3)=0

IP0SS=IC+1

IC=lC+4

NPOSS=0

GO TO 420

A RIGHT PARENTHESIS, THE END OF THIS CHARACTER SPECIFICATION

1CHRS(IP0SS)=IC

IF (NREP.EQ.O) NREP=1

ICHRS( IPOSS+1 )=NREP

ICHRS( IP0SS+2)=NPCSS

IDIGIT=IDIG1T+NREP

IPOSS=0

351c 352: 320

353:

354:

355: c 356: 330

357:

358;

359:

360:

36i: c 362: 340

363:

364:

365:

366:

367: c 368: 350

369:

370:

37i: C 372: 360

373:

374:

375: C 376: 370

377:

378:

379: C 380: 380

381

382:

383: C

384: 390

385:

386:

387:

388:

389:

390 : 391

392:

393:

394: C 395: 40

396:

397:

398:

399:

400:

A- 35
SUBPROGRA-^: DEFINE DEFINITIGN OF DATA ACQUISITION SYSTEM

401 : 402:

403:

404:

405:

406:

407:

408:

409:

4io:

4ii:

412:

413:

414:

415:

416:

417:

41 8: 419:

420:

421

:

422:

423:

424:

42 5: 426 : 427:

428:

429:

43 o: 431

:

432:

433:

434:

435:

436 : 4 37:

438:

439:

440 : 441

:

442:

443:

444:

445:

446:

447:

448:

449:

450:

410

420

430

440

450

c

c

c

c

460

c

470

480

49

500

510

c520

c530

NPOSS=0

NREP=0

IPAREN=0

GO TO 420

NPDSS=NPCSS+1

ICHR=ICHR+1

IF (ICHR.LE.IU) GO TO 20C

ICHRS( IC)=-15

IC=IC+1

ICHRS( I SUB) = I DIG IT1

CONTINUE

IF (INSKIP.EQ.O) RETURN

ICRD=41

PLOTl OR PLCT2 DATA CARD Di: IN

in: SPECIFIES CHANNELS TO BE SKIPPED

READ (5,700,END=660tERR=670) ( IN ( I ) , 1=1 , 80

)

CHECK TO MAKE SURE IT IS A SKIP CARD

DC 460 I=lt5

IF (IN( I) .NE.1CHARS( 1+16) ) GO TC 620

CONTINUE

IT IS, DECODE THE CARD INTO ISKIP

WRITE (6.730) ( I N ( I ) , 1= 1 , 80

)

ISKIPd )=1

IC = 2 DO 470 1=1,80

11=81-1

IF ( IN( I I) .NE.NBL) GO TO 480

CONTINUE

GO TO 670

IL = II IPAREN=0

IDIGIT=1

NFINAL=0

ICHR=6

DC 500 1=22.26

IF (IN( ICHR) .EQ. ICHARS( I ) ) GO TC 510

CONTINUE

IF {IN( ICHR) .NE.NBL) GO TO 670

ICHR=ICHR+1

GO TO 610

1=1-21

GO TO (520,530.550,560.570). I RECORD IS TO BE KEPT, CHARACTER SPECIFICATION = K ISKIP(IC)=0

ISKIP( IC+1 )=0

GO TO 540

RECORD IS TO BE SKIPPED, CHARACTER SPECIFICATION = S ISKIPC IC)=-1

A-36
subprogram: define definition of data acquisition system

45i: ISKIP(IC+1 )=0

452: 540 ICHR=ICHR+1

453: CALL DIGIT (IN( ICHR) tlDIG. IST.AT)

454: IF (ISTAT.EQ.l) GO TO 600

455: ISK1P(IC+1 )=ISKIP(IC+I)*10+IDIG

456: GO TO 540

457: C LAST RECORD SPECIFICATION, CHARACTER SPECIFICATION = F 458: 550 ISKIP(IC)=-2

459: NF1NAL=1

460: ISKIP(IC+1)=0

461: GO TO 54

462: C LEFT PARENTHESISt START OF A NEW SPCIFICATICN

463: 560 IF (IPAREN.NE.O) GO TO 670

464: IPAREN=1

465: ISKIP( 1C)=IDIG1T

466: ISKIP( IC+1 )=0

467: 1SKIP( IC+2)=0

468: ISKIP(IC+3)=0

469: IP0SS=IC+1

470: IC=IC+4

471

NPOSS=0

472: ICHR=ICHR+1

473: 60 TO 610

474: C RIGHT PARENTHESIS. THE END OF THIS SPECIFICATION

475: 570 IF (IPAREN.NE.l ) GO TO 670

476: IPAREN=0

477: IF (NPOSS.EQ.O) GO TO 670

478: ISKIP( IPOSS)=IC

479: ISKIP(1P0SS+1)=NP0SS

480: IDIGIT=IDIGIT+1

481ISKIP(IPOSS+2)=0

482: 580 ICHR=ICHR+1

483: CALL DIGIT < IN( I CHR ) . ID IG, ISTAT)

484; IF (ISTAT.EQ.l) GO TO 590

485: ISKIP( IP0SS+2>=ISKIP(IP0SS+2)*10+IDIG

486: GO TO 580

487: 590 IF (ISKIP(IPOSS+2).EQ.O) GO TC 670

488: IF (NFINAL.EQ.l ) I SK IP ( lPCSS+2) =1 SKIP< I P0SS+2)*1

489: NFINAL=0

490: GO TO 610

491

600 NPOSS=NPOSS+l

492: IC=IC+2

493: 610 IF (ICHR.LT.IL) GO TO 490

494: ISKIP(IPOSS)=C

495: WRITE (6.740)

496: RETURN

497: C SIMULATE CARD IN THE OLD SINGLE CHANNEL FORMAT

498: 620 IVAL=0

499: ISKIP(1)=0

500: IC=3

A-37
subprogram: define definition of data acquisition system

501: DO 650 1=1.80

502: 630 CALL DIGIT ( IN ( I ) , I DI G, ISTAT)

503: IF (ISTAT. EQ.l) GO TO 640

504: IVAL=IVAL*10+IDIG

505: GO TO 630

506: 640 IF ( IN( I ) .NE.NBL) GO TO 660

507: IF ( IN( I-l ).EQ.NBL) GO TO 650

508: ISK1P( IC)=IVAL

509: IVAL=0

510: IC=IC+1

511: 650 CONTINUE

512: ISKIP(2)=IC-3

513: WRITE (6,680) ( IN ( I ) , 1 = 1 , 80)

514: RETURN

515: 660 CALL RWEOF

516: 670 CALL RWERR

517: C 518: C 519: 680 FORMAT ( 6H SKIP= ,80 A 1 ,/l HO

)

520: 690 FORMAT (43H0ILLEGAL FILE TYPE SPECIFICATION FOR INTYPE)

521

:

700 FORMAT (80A1)

522: 710 FORMAT (50H0INPUT DATA AS RECORDED BY DATA ACQUISITION SYSTEM,/,

523: 2 26H0DATA FORMAT SPECIFICATION,/)

524: 720 FORMAT (27H0INPUT DATA AS RECORDED BY ,22A1,/,

525: 2 26H0DATA FORMAT SPECIFICATION,/)

526: 730 FORMAT (IX.SOAl)

527: 740 FORMAT (IHO)

528: 750 FORMAT (1H1,120A1)

529: C 530: END

A-3J
subprogram: datain input data processing

i: subroutine datain { nrow.ncol treed^kh, intype , inprt » inpnch, maxr.

a: 2 ITIME.INERR.INSKIP, lOUT.OUTDIM, ICHRSt INDASt IREAD, ITIM, lEOR t lEOF,

3: 3 MEDIA. TITLE. MCNU. MAXCNL. ISKIPtNCNLtNTFORM)

4: C

6: c

7: COMMON /ERRORS/ ICRD.ISEG

8: INTEGER OUTOI M, FORMAT. RECHRS

9: DIMENSION REED(NROW.NCOL) .KH(NCOL) .lOUT(OUTDIM) .MAXR(NCOL)

10: 2 ICHRS(320).INDAS<22).F0RMAT(3).TITLE(120).MCNL(MAXCNL)

,

11: 3 ISKIP<320)

12: DATA NBL.NCOM.NDASH /IH .1H..1H-/

13: IF (INTYPE.EQ.4) GO TO 250

14: 1PRT=0

15: IDIAG=0

16: IERR=0

17: IROW=0

le: iREC-o

19: RECHRS=0

20: 10 IRERR=0

21: IRDIAG=0

22: 1=1

23: CALL DREAD ( lOUT .OJTDIM . INSKIP.L . LCHRS. I REC , IROW. I NTYPE . ICHRS.IREA

24: 2D. lEOR. lEOF, MEDIA. ISKIP. NCNL .NTFORM)

25: IF (L.LT.O) GO TO 190

26: 00 20 J=l. MAXCNL

27: MCNL(J)=-1

28: 20 CONTINUE

29: ICNL=0

30: IR=0

31: 1B=-ICHRS< IREAD)

32: IC=0

33: IT=0

34: JROW=IROW-»-l

35: IF (IROW.LE.NROW) GO TO 30

36: WRITE (6.290) IROW

37: CALL EREXIT

38: C HAS RECORD LENGTH CHANGED IF SO. PRINT A WARNING

39: 30 IF (IROW.EQ.l) RECHRS=LCHRS

40: IF (RECHRS. EQ. LCHRS) GO TO 40

41 : IOIAG=IDIAG-«-l

42: IRDIAG=IRDIAG-«-l

43: IF (lERR+IDIAG.GT.INERR.AND. INPRT.NE.-2) GO TO 40

44: IF (IRERR+IRDIAG.EQ.l) WRITE (6.300)

45: WRITE (6.390) I REC. RECHRS. LCHRS

46: fiECHRS=LCHRS

47: C CHECK FOR TIME OR CHANNEL READING

48: 40 CALL MATCH ( lOUT .OUTDI M. ICHRS. IT I M. I . ISI 6N. I CHAN. I DEC. I VALUE. lEXP.

49: 2IDAY.IHR.IMIN.ISEC, I MAT , NCHRS, NO VFL)

50: IF CIMAT.EQ.l) GO TO 170

A-39
subprogram: datain input data processing

5i: CALL MATCH ( lOUT * OUTOIM. ICHRSt IREAOtl* ISIGN« ICHANt I DEC, I VALUE* lEXP

52

:

2 . 1 DA Y . I HR» I MI N, I SEC . I MAT , NCHRS, NO VFL

)

53: IF (IMAT.EQ.l) GO TO 70

54: C NO MATCH. PERHAPS WE NEED AN ERROR MESSAGE

55: NERR=I+NCHRS

56: IF (lOUT(NERR).EQ.NBLJ IB=IB+1

57: IF (I0UT(NERR).EQ.NBL.AND.IB.GE.2} GO TO 60

58: IF (NERR.GE.LCHRS-ICHRS{ lEOR)) GO TO 190

59: IF (IABS<NERR-IC).LT.ICHRS(IREAD)-t.ANO.IR.EQ.IROW) GO TO 50

6O: IERR=IERR+1

6i: IRERR=IRERR*1

62: IF (IERR+IDIAG.GT.INERR.AND.INPRT.NE.-2) GO TO 5C

63: IF (IRERJi-t-IRDIAG.EQ.l) WRITE (6.300)

64: WRITE (6*310) IREC.NERR

65: IC=NERR

66: 50 IB=0

67: 60 IR=IROW

68: IF (NERR.GE.LCHRS-ICHRS(IEOR)) GO TO 190

69: 1=1+1

70

:

GO TO 30

7i: 70 IF (NOVFL.EQ.O) GO TO 80

72: C OVERFLOW OF READINGi PRINT AN ERROR MESSAGE

73: IDIAC=1DIAG+1

74: IR0IAG=IRDIAG-I-1

75: IF (IERR+IDIAG.GT.INERR.AND.INPRT.NE.-2) GO TO 130

76: IF (IREFR+IROIAG.EQ.l ) WRITE (6.300)

77: WRITE (6.260) I REC. NOVFL. ICHAN

78: GO TO 130

79: C A MATCH WAS FOUND ON A READING, CALCULATE IT 8O: 80 IF (ICNL.EQ.O) GO TO 100

8I: DO 90 K=l.IC^a.

82: IF (MCNL(ICNL).EQ.ICHAN) GO TO 120

83: 90 CONTINUE

84: 100 ICNL=ICNL+1

85: IF (ICNL.LE.MAXCM.) GO TO 110

86: WRITE (6.260) ICNL

87: CALL EREXIT

88: 110 MCNL(ICNL)=ICHAN

89: GO TO 140

90: 120 IDIAG=IDIAG-t-l

9i: IRDIAG=IRDIAG+1

92: IF (IERR+IDIAG.GT.INERR.AND.INPRT.NE.-2) GO TO 130

93: IF ( IRERR4-XRDIAG.EQ.1) WRITE (6.300)

94: WRITE (6,410) IREC.I. ICHAN

95: 130 I=I+NCHRS+1

96: IF ( j.GE.LCHRS-ICHRS(IEOR)) GO TO 190

97: GO TO 30

98: 140 DO 150 J=1.NC0L

99: IF (ICHAN.EQ.KH( J)) GO TO 160

100: 150 CONTINUE

A-40
subprogram: oatain input data processing

iOi: I=I+NCHRS+l

102: IF (I.GE.LCHRS-ICHRS(IEOR)) GO TO 190

103: GO TO 30

104: 160 REED<IROW,J)=ISIGN*IVALUE*IO.**(-IDEC)*10.**<-IEXP)

lOS: IF ilOEC.NE.O) REEDdROW. J)=REED< IROW, J)*10.

106: I=I+NCHRS+1

107: IF (I.GE.LCHRS-JCHRS(IEORJ> GO TO 190

-lOe: GO TO 30

109: C A MATCH WAS FOUND ON TIMEt CALCULATE IT no: 170 IF (IT.EQ.O) GO TO 180

in: IERR=IEf<R+l

112: IRERR=IREiRR+l

113: IF UERR+IDIAG.GT.INERR.AND.INPRT.NE.-2) GO TO 180

114: IF (IRERR+IROIAG.EQ.l) WRITE (6,300l

lis: WRITE (6«400) IREC.

116: 180 IT=1

117: IVALUE=ISEC+60*IMIN+3600*IHR+86400*IDAY

118: IF 4IRCW.EQ.1) INT=IVALUE

119: IF (ITIME.NE.O) REED( IROW.JTl ME) = 1 VALUE-INT

120: I=I+NCHRS+l

12i: IF <I,GE.LCHRS-ICHRS(IEOR)> GO TO 190

122: GO TO 30

123: C END OF RECORD. PRINT INPUT RECORDS IF PRINT FLAGS ARE ON

124: 190 IF (INPRT.EQ.O) GO TO 220

125: IF (INPRT.EQ.-2.AND.1RERR.EQ.0J GO TO 220

126: IF <IPRT.EQ.INPRT) GO TO 220

127: IPRT=IPRT+1

128: IF (MOO(IPRT.IO) .EQ.O) WRITE (6«380) (TI TLE ( I ) . I =1 . 120)

129: WRITE (6.320) IREC. I ROW .LCHRS t IRERR. I RDI AG

130: NREAD=(130-ICHRS(ITIMJ)/ICHRS(IREAD)

13i: NUMPL=NREAD*ICHRS(IREAD)+ICHRS( ITIM)

132: IF .(NUMPL.GT .LCHRS) NUMPL=LCHRS

133: WRITE (6.330) ( lOUT < 1 ) . 1=1 .NUMPL

)

134: K=NUMPL+1

135: NUMPL=NREAO*ICHRS(IREAD)

136: NX=ICHRS{ITIM)+1

137: 200 IF <NX.LE.ICHRS(IREAD)) GO TO 210

138: NX=NX-ICHRS(IREAD)

139: NUMPL=NUMPL-«-ICHRS(IREAD)

140: GO TO 20

141

210 ENCODE (340. FORMAT) NX. NUMPL

142: IF (K.LE.LCHRS) WRITE (6. FORMAT) ( IOUT( I ) .1 =K.LCHRS

)

143: C PUNCH INPUT RECORD IF PUNCH FLAG IS ON

144: 220 IF (INPNCH.EQ.O) GO TO 230

145: NUMPL=(80/ICHRS{IREAO))*ICHRS(IREAD)

146: ENCODE (270. FORMAT) NUMPL

147: WRITE (INPNCH, FORMAT) ( IOUT( I ) « 1= 1 .LCHKo

)

148: 230 IF (L.GE.O) GO TO 10

149: NERR=IERR+lDaAG

150: IF (JNTYPE.EQ.O) WRITE (6.370)

A-41
subprogram: data in INPUT DATA PROCESSING

I5i:

152:

153:

154:

155: 240

156:

157: c 158: 250

159:

160:

161

c 162: c 163: 260

164:

165: 270

166: 280

167:

168: 290

169:

170: 300

I7i: 310

172:

173: 320

174:

175: 330

176: 340

177: 350

178: 360

179:

180: 370

l8i:

182: 380

183: 390

184:

185: 40

186:

187: 410

188:

189: C

190:

IF (INTYPE.NE.O) WRITE (6,350) ( INDAS( I ) , 1= 1 . 22

)

WRITE (6>360) NERR. I ERR* I OJAG* IREC, IROW

DO 240 I=1.NC0L

MAXR(I)=IROW

CONTINUE

RETURN

INPUT JS FROM REDUCED DATA CARD IMAGES, GO READ THEM

CALL REOCIN ( NROW.NCOL, REED, KH. INPRT. INPNCH. MAXR , ITIME. INERR,INSKI

2P,ISKIP)

RETURN

FORMAT (22H0INPUT RECORD SIZE OF ,I5,20H EXCEEDS BUFFER SIZE,/,

2 23H CHECK PARAMETER MAXCNL

)

FORMAT (1H(,I2,3HA1)

)

FORMAT (34H OVERFLOW WARNING RECORD: ,I5,13H

2 I6.13H channel: ,16)

FORMAT (36H0ROW STORAGE LIMITS EXCEEDED AT ROW ,14,

2 31H CHECK PARAMETERS NROW AND NCOL)

FORMAT </lHO)

FORMAT {34H CHARACTER SEQUENCE ERROR RECORD: ,15,13H

2 16)

FORMAT <9H0REC0BD: ,I4.8H ROW: .I4.20H

2 IIH errors: ,I4,13H WARNINGS: ,14)

FORMAT (1X,130A1)

FORMAT (1H(,I2,1HX,I3,3HA1))

FORMAT {22H0REAOING OF DATA FROM ,22A1,10H COMPLETED)

FORMAT (17H TOTAL MESSAGES: , 16,3X, 8HERR0RS : , I6,3X, lOHWARNl NGS: , 2 I6,3X,9HREC0RDS: , I6,3X,6HMAXR: ,16)

FORMAT <55H0READING OF DATA FROM DATA ACQUISITION SYSTEM COMPLETED

2)

FORMAT (1H1,120A1)

FORMAT (34H RECORD LENGTH WARNING RECORD! ,15,13H OLD LENGTH: , 2 I6,13H NEW length: ,16)

FORMAT (34H MULTIPLE TIME ERROR RECORD: ,I5.13H CHARACTER: • 2 16)

FORMAT (34H MULTIPLE READING WARNING RECORD: ,I5,13H CHARACTER: . 2 I6,13H channel: ,16)

character:

character:

character count: ,14.

END

A-42
subprogram: dread input data reading

xi subroutine dread ( i out . outd i m. inski p. l.» lchrs . irec. ircwt i ntype . 2! 2 ICHRSt IREAD,IECRtlEOF,(i^EDIA,lSKIP.NCNL.NTFORVI)

3: c

5: c

6: INTEGER OUTDIM

7: COMMON /ERRORS/ ICRD.ISEG

8: DIMENSION lOUT ( OUTDI M) , I SKI P(320 ) . ICHRS < 320

9: DATA NE.NAT /IHEtlHS/

lO: 10 11=0

li: 1REC=IREC+1

12: IF (MEDIA. EQ.l) GO TO 80

13: C INPUT IS TO BE FROM MAGNETIC TAPE. READ A BLOCK OF DATA

14: IF (NTFORM.NE.l ) GO TO 70

is: C 7 TRACK TAPE INPUT

16: CALL NTRAN (7.26.24.22)

17: I0UT(1)=NE

18: CALL NTRAN ( 7 . 2 . OUTDI M, lOUT.LSTAT . 20.L)

19: IF (LSTAT.EQ.-2) GO TO 60

20: IF (I0UT(1).EQ.N5) LSTAT=-4

2i: IF (lOUTd ) .EQ.NE) GO TO 160

22: IF (LSTAT.EQ.-3) CALL NTRAN (7,22)

23: IF (LSTAT.EQ.-3) LSTAT=L

24: IF (LSTAT.LT.O) GO TO 160

25: IF (L.6T.0UTDIM/6) GO TO 180

26: DC 30 1=1.

27: II=L+1-1

28: IC=IOUT(II)

29: DO 20 J=1.6

30: IK=6*( II-l)+7-J

3i: CALL BYTE ( I C.7- J, IOUT( IK)

32: 20 CONTINUE

33: 30 CONTINUE

34: LCHRS=6*L

35: 40 IF (lOUT(LCHRS) .NE.NAT) 60 TO 50

36: LCHRS=LCHRS-1

37: GO TO 40

38: 50 I0UT<LCHRS+1 )=1H

39: I0UT(LCHRS+2)=IHX

40: LCHRS=LCHRS+2

4i: ICHRS(IE0R)=2

42: GO TO 150

43: 60 I0UT(1)=1HF

44: ICUT(2)=1HI

45: I0UT(3)=1HL

46; 10UT(4)=1HE

47: I0UT(5)=1HN

48: I0UT(6)=1HD

49: ICHRS( IE0F)=6

50: GO TO 170

A-43
subprogram: dread input data reading

5i: c other formats aren't defined, format error

52; 70 ICRD=31

53: GO TO 190

54: C INPUT IS TO BE FROM CARD IMAGES, READ A SCAN OF DATA

55: 80 L = l 56: NE0F=1

57: NE0R=1

58: 90 ICRD=41

59: C 60: C PLOTl OR PL0T2 DATA CARDS Dl 6i: C THESE CARDS ARE PREVIOUSLY PREPARED DATA CARDS OF THE UNCONVERTED

62: C DATA

63: c 64: K=NCNL*lCHRS(IREAD)+'_-l

65: IF (K.LE.OUTDIM) GO TO 100

66: WRITE (6,230) K 67: CALL EREXIT

68: 100 READ ( 5 , 21 , ERR=1 90 , END=200 ) ( lOUT ( I ) , I =L , K)

69: MEOF=K-ICHRS( lEOF)

70: DO 110 I=NECF,MEOF

7i: CALL MATCH ( lOUT ,GUTD I M , I CHRS, lEOF , I , , , , , , , , , 0, I MAT , NCHRS,

72: 20)

73: IF (IMAT.EQ.l) GO TO 170

74: 110 CONTINUE

75: NE0F=ME0F+1

76: MEOR=K-ICHRS{ lEOR)

77: DO 120 I=NEOR,MEOR

78: CALL MATCH ( lOUT ,CUTDI M , ICHRS, I EOP , I , , , , , , , , , , I MAT, NCHRS,

79: 20)

80: IF (IMAT.EQ.l) GO TO 130

8i: 120 CONTINUE

82: GO TO 14-0 83: 130 LCHRS=I+ICHRS( lEOR)

84: GO TO 150

85: 140 NE0R=ME0R+1

86: L=K+1

87: GO TO 90

88: C IS THIS SCAN TO BE SKIPPED

89: 150 IF ( INSKIP.EQ.O) RETURN

90: CALL SKIP ( IREC, ISKIP,NSKIP)

9i: IF (NSKIP.EQ.O) RETURN

92: IF (NSKIP.EQ.-2) GO TO 60

93: WRITE (6,240) IREC

94: GO TO 10

95: 160 WRITE (6,220) LSTAT

96: 170 L=-2

97: LCHRS=ICHRS( lEOF)

98: RETURN

99: 180 WRITE (6,230) L lOO: CALL EREXIT

A-44
subprogram: dread input data reading

lOi: 19 CALL RWERR

102: 200 CALL RWEOF

103: c 104: c 105: 210 FORMAT OOAl ) 106: 220 FORMAT (59H0READING OF INPUT FILE TERMINATED BY NTRAN ERRORt STATJ

107: 2S : ,15)

lOa: 230 FORMAT (22H0INPUT RECORD SIZE OF ,I5,20H EXCCEDS BUFFER SIZH,/.

109; 2 23H CHECK PARAMETER MAXCNL)

no: 240 FORMAT (9H0RECORD: .I4.12H SKIPPED)

in: c 112: END

A-45
SUBPRCGR*. M; MATCH COMPARE INPUT STRING VERSUS DAS SPHCI FICATI CN

12

3

4

5

67

8

9

10

1 1 12

13

1 4 15

1 6 17

18

19

20

2122

23

24

25

26

27

28

29

30

3132

33

34

35

36

37

38

39

40

4142

43

44

45

46

47

48

49

50

C10

c20

C30

c40

SUBROUTINE MATCH ( I OUT, CUT DIM, ICHRS,ISU3,I, ISIGN, I CHAN, I DEC, I VALUE

2,IEXP, IDAY, IHP, IMIN, I SEC, I MA T, NCHR S, NO VFL

)

INTEGER GUTDIM

DIMENSION IOUT( OUTDI M) , ICHRS (320

)

DATA NPER /IH,/

ICHAN=0

ISIGN=0

NOVFL=0

IDEC=0

I VALUE=0

IEXP=0

IDAY=0

IHR = IMIN=0

ISEC=0

IMAT=0

NCHRS=ICHRS( ISUB)-1

IS=ISU3+1

NREP=1CHRS ( lS+2)

NCHRS1=NCHRS+1

DC 190 K=l ,NCHRS1

IK=I+K-1

NPOSS=ICHRS( IS+3)

IC=IS+4

DC 170 I?CSS=1 .NPOSS

INDEX=IABS( ICHRS( IC)

)

GO TO (10,20,30.40,50, 6 0,70,100,110,120, 130,140,150,160), INDE

2X

CHECK FCR ANY NUMERIC DIGIT

IC=IC+1

CALL DIGIT ( ICUT( IK) , IDIG, ISTAT)

IF (ISTAT. NE.O) GO TO 170

GC TO 180

CHECK FCR ANY ALPHANUMERIC CHARACTER

IC=IC+1

GO TO 180

CHECK FCR A CHANNEL NUMBER D I G

I "!" IC=IC+1

CALL DIGIT ( ICUT(IK) , IDIG, ISTAT)

IF (ISTAT. NE.O) GC TO 170

I CHAN=I CHAN±1C+I DIG

GC ^0 180

CHECK FOR SIGN POSITIVE CHARACTER SPECIFICATION

IC=I C+2

IF ( ICUT ( IK) .NE. ICHRS( IC-1 ) ) GC TO 170

ISIGN=1

GO TO 180

A-46
subprogram: ,»iatch compare input string versus das specification

51; c check for s13n negative character sp'hcifi cation

52; 50 IC=IC+2

53; IF (lOUT (IK) .NE.ICHRS( IC-n ) GO TO 170

54; ISIGN=-1

55: GO TO 180

56: C CHECK FOR READJNG VALUE DIGIT

57: 60 ICs=IC+l

58: CALL DlfelT { lOUT ( IK) , ID IG» ISTAT)

59; IF ( ISTAT. NE.O) GO TO 170

60; IVALUE=IVALUE*10+IDIG

61

;

GO TO 180

62; C CHECK FOR A REAL VALUE DIGIT POSSIBLY WITH DECIMAL POINT

63: 70 IC=IC+1

64; CALL DIGIT ( I CUT ( IK ) , ID IG, ISTAT)

65: IF ( ISTAT. NE.O. AND. IOUT( IK). NE.NPER) GO TO 170

66: IF ( lOUT(IK) .EQ.NPER. AND. IDEC. NE.O) GO TO 170

67: IF (IDEC.EQ.O) GO TO 80

68: IDEC=IDEC+1

69: 80 IF (lOUTdK) .NE.NPER) GO TO 90

70: IDEC=1

71 : GO TO 180

72: 90 IVALUE=IVALUE*10+IDIG

73: GO TO 180

74; C CHECK FOR AN EXPONENT DIGIT

75: ICO IC=IC+1

76: CALL DIGIT ( ICUT ( IK) , ID IG. ISTAT)

77; IF (ISTAT. NE.O) GO TO 170

78; IEXP=IEXP*10+IDIG

79; GC TO 180

so: C CHECK FCR OVERFLOW OF READING

81 : 110 IC=IC+2

82: IF (ICUTdK) .NE.ICHRS(IC-l) ) GO TO 170

83: ISIGN=0

84: NOVFL=IK

85: GO TO 180

86: C CHECK FOR ANY SINGLE SPECIAL CHARACTER

87; 120 IC=IC+2

88: IF (lOUT(IK) .NE. ICHRS( IC-1 ) ) GO TO 170

89: GO TO 180

90: C CHECK FCR TIME READING DAYS DIGIT

9i: 130 IC=IC+1

92: CALL DIGIT ( ICUT ( IK ), ID IG, ISTAT)

93: IF (ISTAT. NE.O) GO TO 170

94; IDAY=IDAY*10+IDI6

95; GO TO 180

96; C CHECK FOR TIME READING HOURS DIGIT

97: 140 IC=IC+1

98; CALL DIGIT ( lOUT ( IK ) , ID IG, ISTAT)

99: IF (ISTAT. NE.O) GO TO 170

lOO: IHR=IHR*10+IDIG

A-47
subprogram: match compare input string versus das specification

101

GO TO 180

102: C CHECK FOR TIME READING MINUTES DIGIT

103: 150 IC=IC+1

10*^: CALL DIGIT ( lOUT ( IK ) , ID I G, ISTAT ) 105: IF (ISTAT. NE.O) GO TO 170

106: IMIN=IMIN*10+I3IG

107: GO TO 180

108: C CHECK FOR TIME READING SECONDS DIGIT

109: 160 1C=IC+1

110: CALL DIGIT ( ICUT(IK) ,IDIG. ISTAT)

111: IF (ISTAT. NE.O) GO TO 170

112: ISEC=ISEC*10+IDIG

113: GO TO 180

114: C NO MATCH TRY OTHER POSSIBILITIES

115:

116:

117:

118:

119:

120: C MATCH ON THIS CHARACTER — GO TO NEXT ONE

121

122: IF (NREP.EQ.O) IS=ICHRS( IS+1

)

123: IF (NREP.EQ.O) NREP= ICHRS( IS+2)

124:

125:

126:

127:

c NO MATCH TRY

170 CONTINUE

NCHRS=K-1

IMAT=0

NOVFL=0

RETURN

c MATCH ON THIS CH

180 NREP=NREP-1

IF (NREP.EQ.O)

IF (NREP.EQ.O)

190 CONTINUE

IMAT=1

RETURN

END

A-48
subprogram: digit convert numeric characters to integer digits

i: subroutine digit ( i char

idig . i stat

2: c

4: C

5: INTEGER CHAR

6: DIMENSION CHAR(IO)

7: DATA (CHAR( I) .1=1 tlO) /IHOIHl . 1 H2 . 1H3. 1H4, 1 H5. 1H6, 1H7. 1H8. IHg/

8: DC10I=1.10

9: IF (CHAR(I).EQ. ICHAR) GO TO 20

10: 10 CONTINUE

11: C CHARACTER IS NOT A NUMERIC

12: ISTAT=1

13: RETURN

14: C CHARACTER IS A NUMERIC CHARACTER

15: 20 ID1G=I-1

16: ISTAT=0

17: RETURN

is: END

A-49
SUBPROGRA^^: SKIP CHECK FOR INPUT RECORD TO BE SKIPPED

i: SUBROUTINE SKIP ( IREC , I SKIP, NSKI P) 2: C

4: c

5: DIMENSION ISKIP(320)

6: IF (ISKIP(l) .EQ.l) GO TO 30

7: C FORMAT IS OLD SINGLE CHANNEL FORMAT

8: NSPEC=ISKIP(2)

9: DC 10 I=1,NSPEC

10: IF (ISKIP{1+2).EQ.IREC) GO TO 20

li: 10 CONTINUE

12: NSKIP=0

13: RETURN

14: 20 NSKIP=-1

15: RETURN

16: C FORMAT IS BLOCKED SKIP, CHECK TO SEE IF RECORD IS SKIPPED

17: 30 IF (IREC.NE.l) GO TO 40

18: NSPEC=2

19: NP0SS=1

20: NREC=1

21: C ARE WE PAST THE LAST RECORD FOR THIS SPECIFICATION

22: 40 IF (IREC.LE. ISKIP(NSPEC+3)) GO TO 60

23: IF (ISKIP(NSPEC+l).NE.O) GO TO 50

24: NSK1P=0

25: RETURN

26: 50 NSPEC=ISKIP<NSPEC+1

)

27: NP0SS=1

28: NREC=1

29: C ARE WE PAST THE LAST POSSIBILITY FOR THIS SPECIFICATION

30: 60 IF (NP0SS.LE.ISKIP{NSPEC+2)) GO TO 70

31: NP0SS=1

32: NREC=1

33: C ARE WE PAST THE LAST RECORD FOR THIS POSSIBILITY

34: 70 IP0SS=2*(NP0SS-1 )+4+NSPEC

35: IF (NREC.LE.ISKIP<IP0SS+1)) GO TO 80

36: NP0SS=NP0SS+1

37: NREC=1

38: GO TO 60

39: C IF WE MADE IT THIS FAR, LET'S USE THE PARAMETER

40: 80 NREC=NREC+1

41: IF { ISKIP(IPOSS) .NE.-2) GO TO 100

42: IF ( IREC.GE.ISKIP(NSPEC+3)) GO TO 90

43: NSKIP=0

44: RETURN

45: 90 NSKIP=-2

46: RETURN

47: 100 NSK1P=ISKIP(IP0SS)

48: RETURN

49: END

A-50
subprogram: redcin reduced data reading

SUBROUTINE REDCIN ( NRCW t NCC_ t REED, KH» INPRT. INPNCH.MAXR, ITIME. INERR

2. INSKIPtlSKIP.LASREC)

COMMON /ERRORS/ ICRD, ISEG

DIMENSION REED(NRCWtNCOL)tKH(NCOL) .MAXR( NCOL) . R( 8 ) .IEXP(8)

,

2 1SK1P{320)

1CSKIP=0

NCHAN=0

READ CHANNEL NUMBER AND NUMBER OF READINGS

IF (ISEG. EQ. 2. OR. ISEG. EQ. 3) ICRD=60

IF <ISEG.EQ.4) ICRD=30

IF (ISEG.EQ.5) ICR0=32

READ (5.I90.ERR = 120.ENO=130) NRE AD . I CHAN , lEND

IF ( IEND.EQ.999) GC TO 110

LOCATE COLUMN INSTRUMENT IS "STORED IN (IF ANY)

DO 20 J=1.NC0L

IF ( ICHAN.EQ.KH( J) ) GO TO 30

CONTINUE

THIS CHANNEL IS NOT NEEDED. SKIP OVER THE READINGS

NCARDS= ( NREAD+7 ) /8

READ (5.140.ERR=120.END=130) ( IN , I =1 , NCARDS)

ICSKIP=ICSK1P+1

IF (INPRT.EQ.O) GO TO 10

IF (IPRT.EQ. INPRT) GC TO 10

WRITE (6.150) ICHAN

IPRT=IPRT+1

GC TO 10

READ IN THIS CHANNEL'S READINGS INTO ARRAY REED

IREC=0

IROW=0

READ (5.210tERR=120.ENO=130) ( R( I ) . lEXP ( I ) « I =1 . 8)

DC 80 1=1.8

IREC=IREC+1

IF ( INSKIP.EQ.O) GC TO 50

CALL SKIP (IREC, ISKIP.NSKIP)

IF (NSKIP.EQ.-l ) GO TO 70

IF <NSKIP.EQ.-2) GO TO 70

CONTINUE

IF (IROW.LT.NROW) GO TO 60

WRITE (6,200) ICHAN

CALL EREXIT

STOP

IR0W=1RCW+1

REEDdROW, J)=R( I ) +1 . **1 EXP( I ) IF ( IREC.GE.NREAD) GO TC 90

CONTINUE

GO TO 40

MAXR( J)=IRCW

i:2:

3: C

4: C

5: c

6:

7:a:

9: lo:

ii: C

12;

13:

14:

is: 10

16:

17: C

18:

19:

20: 20

2i: C

22:

23:

24:

25:

26:

27:

28:

29:

30

:

C 3i: 30

32:

33: 40

34:

35:

36:

37:

38:

39:

40

:

SO

41

42:

43:

44:

45: 60

46:

47: 70

48: 80

49:

so: 90

A- 51
subprcgram: redcin reduced data reading

print instruments readings (if print flags are cn)

if (inprt.eq.o) go to 100

if ( iprt.eq. inprt) go to 100

iprt=iprt+1

nrsk:ip=nread-irow

WRITE (6tl70) ICHAN .NREADt IR0W.NRSKIP,.1AXR( J ) WRITE (6.180) (REED(L. J) .L=l ,IROW)

IPRT=IPRT+1

NCHAN=NCHAN+1

GO TO 1 END OF READINGS SET, RETURN FROM WHENCE WE CAME

ICHAN=NCHAN+ICSKIP

WRITE (6,160) ICHAN,NCHAN, ICSKIP

RETURN

CALL RWERR

CALL RWEOF

FORMAT (Al)

FORMAT ( 10HOCHANN5L : , I 6 . 1 OH SKIPPED)

F0RV1AT (56H0READING OF DATA FROM SPEED2 REDUCED DATA COMPLETE

2D,/,22H TOTAL CHANNELS READ: , I *, 3X,6HUSED: , I 4 , 3X ,9HSKI PPEO : . 3 14)

FORMAT ( ICHCCHANNEL: , I 6, 3X, 9HREC0 RDS : , I 4, 3 X , 6HUSED ! ,I4,3X,

2 9HS<IPPED: , 14 ,3X,eHMAXR: ,14)

FORMAT (1X,10E12.5)

FORMAT ( le , I6,65X,I3

)

FORMAT (42H0NUMBER OF READINGS FOR INSTRUMENT NUMBER ,13.

2 57H EXCEEDS STORAGE LIMITS CHECK PARAMETERS NRCW AND NCOL)

FORMAT (8(F7.0,I3))

END

51

:

c 52:

53:

54:

55:

56:

57:

58:

59: 100

60:

61

:

c

62: no

63:

64:

65: 120

66: 130

67: C 68: c 69: 140

70: 150

71

:

160

72:

73:

74: 170

75:

76: 180

77: 190

78: 200

79:

80: 210

81

:

c 82:

A-52
subprogram: print reduced data printing

i: subroutine print ( nrow, ncol . reed t kh, itypetname . it ime. maxr , maxc

2: 2 TITLE)

3: C

4: c *****************#*******#**)([**************+****

5: c

6: DIMENSION REED(NROW«NCOL).KH{NCCL ) .NAME<NCOL t6) .MAXR(NCCL) . 7: 2 ITYPE(NCCL) tIBUF(r20) . JBUF( 120) ,TITLE(120)

a: data" ibl /ih /^ 9: KHL=1

10: 10 KHH=KHL+9

11 : KHH=MINO<KHHtMAXC)

la: IL=0

13J DO 60 U=ltNROW

14: 1P=0

is: DO 20 I=ltl20

16: IBUF(I)=IBL

17: JBUF(I)=IBL

18: 20 CONTINUE

19: ENCODE (70,JBUF) (REED ( L t I ) . I=KH!. 1 KHH)

20: DECODE (BOtJBUF) ( I BUF( I ) , 1= 1 , 1 20

)

21: DC 50 I=KHLtKHH

22: IF (L.GT.MAXRd ) ) GO TO 30

23: IP=1

24: GO TO 50

25: 30 IWL=(I-KHL)*12+1

26: IWH=1WL+11

27: DO 40 J=lWLt IWH 28: 40 IBUF(J)=IBL

29: 50 CONTINUE

30: IF (IP.EQ.O) GO TO 60

3i: 1L=IL+1

32: IF (M0D(ILt40).EQ.l ) WRITE (6.140) (T ITLE ( I ) . 1 = 1 . 1 20

)

33: IF (MOD(IL,40).EQ.l ) WRITE (6,100) ( ( NAME( I . 1 1 ) . I 1 = 1 , 6 ) , I =KHL. KHH)

34: IF (M0D(IL.40).EQ.l ) WRITE (6,110) ( IBL . KH( 1 ) , I =KHL , KHH

)

35; IF (M0D( IL,10).EQ.l ) WRITE (6,120)

36: IF (ITIME.NE.O) WRITE (6.130) REED (L . IT I ME ) . ( I BUF ( I ) . I =1 . 1 20

)

37: IF (ITIME.EQ.O) WRITE (6,90) ( IBUF ( I ) , I = 1 , 1 20)

38: 60 CONTINUE

39: KHL=KHL+10

40: IF (KHL.LE.MAXC) GO TC 10

41

RETURN

42: C 43: C 44: 70 FORMAT (1 ( 1 X .Gl .4 . IX) ) 45: 80 FORMAT (120A1)

46: 90 FORMAT ( IX ,T 1 2. 1 20A I

)

47: 100 FORMAT (1H0.T12.10(4X,6A1.2X)

)

48; 110 FORMAT ( 1 1 X, 1 0( Al ,2X . 1H( . 16, IH ) . 1 X )

)

49: 120 FORMAT (IH ) so: 130 FORMAT ( IX ,G10 .4, Tl 2, 120A1 )

A-53
subprogram: print reduced data printing

si: 140 FCRMAT (1H1,120A1)

52: c 53: END

A-54
subprogram: punch reduced data punching

i: subroutine punch ( nrow t ncol. reed. khtna-^ie t niaxr. maxct ntest , npnch » 2: C

3: C *!(.*******************************************

4: c

5: dimension REED(NROW.NCOL) .KH(NCCL) .NAME(NCCL.6) .MAXR{NCCL) . 6: 2 IBUF(80), IZERD(IO) . ICHR(17)

7: DATA < IZERC(I). 1=1. 10). (ICHR(I), 1=1,17) , IBL /IH*. IH, . 5*1H0 . 1 H+.

8: 2 2*1H0.1H0.1H1.1H2,1H3. 1H4,1H5.1H6. 1H7. 1H8. 1H9. 1H-, IH .1H+,1H..1H9: 3.1H . IH ,1H /

10: DO 80 I=1,MAXC

11 : KHK = MOD(KH(I) , 1 000 ) + 1 00 0*NTEST

12: WRITE (NPNCH,90) MAXR( I ) . KHN . ( NAME ( I , J ) , J=l . 6)

13; MAXRL=1

14: 10 MAXRH=MAXRL+7

15: MAXRH=MINO(MAXRH,MAXR( I )

)

16: DO 20 J=1.80

17: IBUF(J)=IBt

18: 20 CONTINUE

19: DC 70 L=MAXRL.MAXRH

20: IWL=(L-MAXRL)*10+1

21: IF (REED(L.I) .EQ.0.0) GO TO 30

22: 1EXP=INT(ALOG10( ABS(REED(L. !))))+!

23; IF (ABS(REED(L. 1 )).LT.1.C) IEXP=IEXP-1

24: IVAL=INT(ABS(100000.*REED(L. I ) /I 0.**IEXP ) +0 .5

)

25: IREED=1C00*IVAL+ABS( lEXP)

26: IBUF< IWL+1)=ICHR{14)

27: IC=ISIGN(1 ,IEXP)

28: IBUF( IWL+7)=ICHR( 12+IC)

29: IC = 1FIX(SIGN(1. .REED(L, I) )

)

30: IBUF(1WL)=ICHR( 16+IC)

31: 30 DO 60 J=1.10

32: IF (REED(L,I).EQ.O.O) GO TO 50

33: IF ( J.GT.8.0R. J.EQ.3) GO TO 40

34: IC=MOD( IREED, 10)

35: K=IWL+10-J

36: 1BUF(K)=ICHR(IC+1)

37: 40 IREED=IREED/10

38: GC TO 60

39: 50 K=IWL+J-1

40: IBUF(K)=IZERO(J)

4160 CONTINUE

42: 70 CONTINUE

43: WRITE (NPNCH.IOO) ( I BUF ( J ) . J=l . 80

)

44: MAXRL=MAXRL+8

45: IF (MAXRL.LE.MAXRd ) ) GO TO 10 46: 80 CONTINUE

47: WRITE (NPNCH.llO)

48: END FILE NPNCH

49: REWIND NPNCH

50: RETURN

A-55
subprogram: punch reduced data punching

FORMAT (216t6Al)

FORMAT (80A1

)

FORMAT (T78.3H999)

END

5i: c 52: c 53: 90

54: 100

5S: 110

56: c 57:

A-56
subprogram: ccnv data conversion

i: subroutine cgnv ( nrow, ncol, reed. kh , itype i ct add, nccrr , maxr, maxc

)

2: C 3: c #*****#**********************************************************

4: c

5: DIMENSION REED ( NROW, NCCL).KH( NCOL) . ITYPE (NCOL) , C( NCOL ), ADD ( NCOL)

,

6: 2 MAXR(NCOL)

7: DO 20 1=1, MAXC

8: K=ITYPE{I)

9: IF (K.EQ.O) GO TO 20

10: IF (C(K).EQ.O.) GO TO 20

11: MAXROW=MAXR( I

)

12: DO 10 L=1,MAXR0W

13: 10 REED(L, I )=REED(L, I )*C(K)+ADD(K)

14: 20 CONTINUE

15: IF (NCORR.EQ.O) GO TO 30

16: CALL CDRR ( NROW , NCCL ", REED, KH, MAXC ) 17: 30 CONTINUE

18: RETURN

19: END

A-57
subprogram: corr read in corrections to data

i: subroutine ccrr ( nrowtncou , reed tkh ,maxc

)

2: c

3: c *«****************************

4: c

5: COMMON /ERRORS/ ICRD.ISEG

6: DIMENSION REED( NROW , NCOL ) t KH( NCOL

)

7: WRITE (6,90)

e: 10 ICRD=71

9: C

10: C PL0T2 DATA CARD GI : IRL . IRH , I CL . I CH

11: C IRL: low row index for corrections to be READ IN

12: c irh: high row index for corrections to be read in

13: c icl: low column (or instrument) index for corrections

14: C ICH: high column (CR INSTRUMENT) INDEX FOR CORRECTIONS

15: c

16: read (5,eO.ERR=60iEND=70) IRL . IRH . I CL , I CH

17: WRITE (6.80) IRL , IRH

,

ICL , ICH

16: IF (IRL.LE.O) RETURN

19: IF (IRH. LT. IRL) GO TO 50

20: IF (ICH.LE.O) GO TO 20

21: IF (IRH. EQ. IRL) GO TO 20

22: IF (ICH. NE. ICL) GO TO 50

23: 20 IF (ICL.GT.O) GO TO 40

24: DO 30 I=1.MAXC

25: IF (KH( 1 )+ICL.EQ.O) ICL=I

26: IF (KH( I)+ICH.EQ.O) ICH=I

27: 30 CONTINUE

28: 40 IF ( ICL. LE.O. OR. ICH.LE.O) GO TO 50

29: IF (ICH. LT, ICL) GO TO 50

30: ICRD=72

31 : C 32: C PL0T2 DATA CARD(S) G2 : REED

33: C reed: CORRECTIONS TO THE MATRIX

34: C

35: IF (IRL. EQ. IRH) READ ( 5 , 1 1 , ERR= 60 ,END = 70 ) ( REED( IRL , I ) , 1 = ICL, I CH)

36: IF (ICL, EQ. ICH) READ ( 5 , 1 1 , ERR=60 ,END=70) ( REED( I , ICL ) . I = IRL . I RH)

37: IF (IRL. EQ. IRH) WRITE ( 5, 1 ,ERR=60 ,END=70) ( REED( IRL, I ) , I =ICL. I CH

38: 2)

39: IF (ICL. EC. ICH) WRITE ( 5 , 1 00, ERR=60 ,END=70 ) (REED ( I , ICL) , 1 =IRL , I RH

40: 2)

41

GO TO 10

42: 50 WRITE (6,120)

43: WRITE (6,80) IRL, IRH, ICL, ICH

44: 60 CALL RWERR

45: 70 CALL RWEOF

46: C 47: C

48: 80 FORMAT (1015)

49: 90 FORMAT (54H1 CORRECTION TO DATA MATRIX ADDED AT TIME OF EXECUTION/

50: 2)

A-58
subprogram: ccrr read in correcticns to data

5i: 100 FORMAT <8F15.6)

52: 110 FCRMAT (8F10.0)

53: 120 FORMAT (48H0***** ERROR CN FOLLOWING CORRECTION CARD ***** > 54: c 55: END

A-59
SUBPRCGRA'vl: FIND FIND LOCATION CF AN INSTRUMENTS READINGS

i: SUBROUTINE FIND { I , J , KH , NCCL

2: c 3: C *± * *±* ********************************** ********#***#*»**3)[#*:***:^*:^

4: C 5: DIMENSION KH(NCOL)

e: DC 10 K=1,NC0L

7: IF (KH(K).EQ.I) GO TO 20

e: 10 CONTINUE

S: WRI-^E (6,30) I 10: RETURN

11: 20 J=K

12: RETURN

13: c 14: c 15: 30 FORMAT ( 62H0 ERROR IN SUBROUTINE FIND, NO REFERENCE TO INSTRUMENT

16: 2NUMBER ,I4.,13H CAN BE FOUND)

17: c 18: END

A-60
subprogram: draw printer plot generation

i: subroutine draw ( jm, i m, x, y. xo,xm . yo.ymt i buff , jbuff, i head tt i tlh , i pn

2: 2.nr0w,pltdim)

3: C

4: c ******************************************************************

5: c

6: INTEGER PLTDIM

7: DIMENSION X(NROW.PLTDIM) . Y( NROW. PLTDI M) , JM( PLTDIM) ,P(1C1 )tYSC(6).

8: 2 XSCdl ) ,ISYM<6) , IPN(PLTDIM, 6 ) , IHEAD(80) , IBUFF( 40) , JBUFF ( 40 ) . 9: 3 TITLE (120)

10: INTEGER RMl.R.CtPiDASH, PLUS. BLANK

11: DATA BLANK, DASH. PLUS. (I SYM( I ), 1=1 .6) /IH , 1H-, 1H+. IH* . 1 HX, IHO . 1H+.

12: 21H-.IH./

13: WRITE (6,250) (T ITLE( I )

.

1=1 , 120) , ( IHEAD ( I ) , I =1 , 80

)

14: WRITE (6.280)

15: DYM=YM-YO

16: DXM=XM-X0

17: YSC(1)=YM

18: XSC(1)=X0

19: DC 10 L=2,6

20: 10 YSC(L)=YSC(L-1 )-DYM/5.

21: DC 20 L=2.11

22: 20 XSC(L)=XSC(L-1 )+DXM/10.

23: DO 30 J=1,IM

24: IM1=JM(J)-1

25: DO 30 1 = 1. IMl 26: iPl=l+l

27: I^1M = JM(J)

28: DO 30 II=IP1. IMM

29: IF (Y( II, J) .LT.Yd.J)) GO TO 30

30: TEMP=Y(I,J)

3i: Yd, J)=Y(II, J)

32; Y(II.J)=TEMP

33: TEMP=Xd,J)

34: Xd . J)=Xdl. J)

35: X(II.J)=TEMP

36: 30 CONTINUE

37: R=0

38: L=0

39: 40 R=R+1

40: IF (R.LE.6,0R.R.GE.47) GO TO 50

41: ICHAR=IBUFF(R-6)

42: GO TO 60

43: 50 ICHAR=BLANK

44: 60 CONTINUE

45: RM1=R-1

46: ARl=(RMl-.5)/50.

47: AR2=(RMl+.5)/50.

48: DO 70 C=1.101

49: 70 P(C)=BLANK

50: J = I'<

A-61
SUBPROGRA^l: ORAW PRINTER PLCT GENERATICN

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

85

86

87

88

89

90

91

92

93

94

95

96

97

98

99

100

80

90

100

11

120

130

140

150

160

170

180

190

200

C

c210

220

230

240

250

260

270

280

C

1 =

1 =IFIF

IFC=

IFK=

P(GC

J =IF

K =

IFIF

IF 2-6

IF 2LU

GC

IFIF

IF 2-6

IF 2AS

GC

L =IF

IF 2, ( IF 2.1

GC

IF

WRWR

WR

RE

I + l (I-JH

(Yd,

(Y( I , 100.0*

(C.GT

M00( J, C)=ISY

TO 90

J-1

(J ) 1 MOD( R-

(MOD(

(R.LE

(R-6.

, I) .1 = (R-e.

s TO 20

(MOD(

(R.LE

( R-6.

. I ) ,1 =

( R-e.

H TO 20

U + 1 (R.!_H

(R-6.

IPN( R-i (R-6.

01). DA TO 2C

(R.LT

ITE (6 ITE (6 ITE (6

TJRN

( J) ) 100. 100. 11 J) .GE.Ysl-ARl*DYM) GC TO 90

J) .LT.YM-AR2*DYM) GC TO 110

((X( I . J )-X0 )/DXM)+l .

5

. 101 .CR.C.LT. 1) GC TO 90

6)+l

M(K)

20.120. 30

e.6)+i

R'41.5)) 130,150.130

.6) GC TO 140

LE.IM) WRITE (6.260) I CHAR . PLUS, ( P( I ) , 1 = 1 , 1 01 )

, PLUS, (I PN( R 1,6) ,ISYM(K)

GT.IM.CR.R.LH.6) WRITE (6,210) I CHAR , PLUS, ( P( I ) , I = 1 , 1 1) , p

RM1,10)) 160,180,160

.6) GC TO 170

LE.IM) WRITE (6.260) I CH AR . DASH . { P ( I ) , I = 1 , 1 1 ) . D ASH . ( I PN (

R

1.6)

,

ISYM(K ) GT.IM.0R.R.LE.6 ) WRITE (6.210) I CHAR , DASH . ( P ( I ) . I = 1 . 1 1 ) .

D

.6) GC TO 190

LE.IM) WRITE (6.270) ICHAR . YSC ( _ ) , D ASH, ( P ( I ) , I =1 , 1 1 ) , D ASH

6, I) . 1=1 .6) . ISYM(K)

GT.IM.0R.R.LE.6) WRITE (6,220) I CHAR , YSC (L ) . DASH. ( P ( I ) , 1 = 1 SH

.51) GO TO 4 .280)

.230) XSC

.240) ( J3UFF( I ) . 1=1 .40)

FCfiMAT ( IH . Al. 14X. 103A1

)

FCRMAT (IH . Al .F13.2. IX. 103A1

)

FCRMAT (9X.11F10.2)

FCRMAT (lH0.4eX.4CAl)

FCRMAT ( IHl . 120A1./.26X. 80AI

)

FCRMAT (IH , Al . 14X. 103A1 .3X.6A1 ,2X. Al

)

FCRMAT (IH , Al . F13. 2. IX. 1 03A1 ,3X,6A1 ,2X, Al)

FCRMAT (IH .iex.l0(10H+ ),1H+)

A-62
subprogram: draw printer plot generation

loi: END

A-6 3
subprogram: text put TExt CNTO CALCOMP PLGTS

i: SUBROUTINE TEXT ( XPOS, YPCS , HEI GHT , ICHARS , ANGLE, NCHRS)

2: C 3: c *******************************************+******

4: c 5: DIMENSION ICHARS(NCHRS)

6: DC 10 1=1, NCHRS

7: XTPCS=( I-l )*HEIGHT*COS( ANGLE*0.01745329)+XPCS

8: YTP0S=(I-1 ) *HEIGHT*S IN (ANGLE*0. 01 745329) -fYPCS

9: CALL SYMBOL ( XTPOS, YTPO S , HE I GHT , I CHARS( I ) . ANGLE , 1

)

10: 10 CONTINUE

11: RETURN

12: END

A-64
ubprogram: srror read and write error

i: SUBROUTINE RWERR

2: c

4: c

5: COMMON /ERRORS/ ICRD.ISEG

6: DIMENSION IN < 80 ) .NSEG ( 5, 6 ) , NPART ( 9

)

7: DATA ( (NSEG( I, J) .J=l t6) . 1=1. 5) / 1 HS. IHP , IHE , IHE . 1 HD , 1 H2 , IHP, 1 HL.

8: 2 IHC, IHT. IHl . IH . IHP , 1 HL . 1 HO. IHT . 1 H2» 1 H . 1 HP , 1 HL , 1 HO. IHT . 1 H3 . 1 H . 9: 3 IHP. IHL. IHO. IHT. 1H4. IH /

10: DATA (NPART( I ) .1=1 .9) / 1 HA. IHB. IHC . 1 HD. 1 HE . 1 HF. 1 HG, 1 HH. 1 HI/

11: IPART=ICRD/10

12: ICRD=ICRD-IPART*10

13: IF (ICRD.EQ.O) WRITE (6,20) ( NSEG ( I SEG. J ) . J= 1 .6 ) , NPART ( I PART

)

14: IF (ICRD.NE.O) WRITE (6.30) ( NSEG ( I SEG. J ) . J= 1 .6 ) . NPART( I PART ) , I CRD

is: READ (5.40.ERR=10.END=10) ( IN( I ) . I =1 . 80

)

16: WRITE (6,50) ( I N ( I ) , 1=1 , 80

)

17: 10 CALL EREXIT

18: STOP

19: c 20: c **********************

21

c 22: ENTRY RWEOF

23: c 24: c **********************

25: c 26: 1PART=ICRD/10

27: ICRD=ICRD-IPART*10

28: IF (ICRD.EQ.O) WRITE (6.60) ( NSEG ( I SEG. J ) . J= 1 .6 ) . NPART ( I PART

)

29: IF (ICRD.NE.O) WRITE (6.70) ( NSEG ( I SEG. J ) . J= 1 , 6 ) , NPART ( I PART ) , I CRD

30: CALL EREXIT

31: STOP

32: C 33: C 34: 20 FORMAT (17H0FORMAT ERROR ON .6A1,17H DATA CARD PART .Al,

35: 2 31H CHECK FORMAT SPECIFICATIONS)

36: 30 FORMAT ( 17H0F0RMAT ERROR ON ,6A1.12H DATA CARD ,A1,I1,

37: 2 31H CHECK FOR^IAT SPECIFICATIONS)

38: 40 FORMAT (80A1)

39: 50 FORMAT (45H0THE FIRST CARD NOT READ DUPING EXECUTION WAS . / . 1 X . 80A1

40: 2./.38H PRECEEDING DATA CARDS MAY BE IN ERROR)

4i: 60 FORMAT (28H0END OF FILE ENCOUNTERED ON ,6A1.17H DATA CARD PART , 42: 2 A1.31H CHECK FORMAT SPECIFICATIONS,/.

43: 3 38H PRECEEDING DATA CARDS MAY BE IN ERROR)

44: 70 FORMAT (28H0END OF FILE ENCOUNTERED ON ,6A,1,12H DATA CARD ,A1.I1.

45: 2 31H CHECK FORMAT SPECIFICATIONS./.

46: 3 38H PRECEEDING DATA CARDS MAY BE IN ERROR)

47: C 48: END

A-65
subprogram: byte UNPACK CHARACTERS PACKED SIX PER WORD

i:2:

3:4:

5:6:

7:

s:

9: 10:

11

:

12:

13:

14:

is:

16:

17:

is:

19:

20:

21:

22:

23:

24:

25:

BYTE :S A SUBROUTINE TC OBTAIN A SINGLE 6 BIT BY^^E LEFT JUSTIFIED

SPACE FILLED FROM A WORD PACKED 6 BYTES PER WORD.

BYTE IS CALLED WITH THREE ARGUMENTS:

CALL BYTE (PACKEDWCRD , BYTENUMBER.UNPACKEDCHARACTER)

AXRS.

$( 1) . BYTE*

S(0) . LOAD

SPACE

L

SLEX

S.Sl

J

+L«S1

L«S2

LfS3

L.S4

L.S5

LtS6

•END.

AO.SPACE.

A0.*2.X11

Al .*1«X11.

LOAD.Al.

A0.*2iXH.

4.X11

.

A0**0.X11

AOt*0»Xll

AO.*Ot Xll

A0.*C.X11

AOi*O.Xll

AO.*OtXll

BLANK FILL FIRST

BYTE NUMBER

GET THE CHARACTER

STORE IT AND RETURN

SINGLE BYTE LOAD INSTRUCTION TABL:

A-66
subprogram: erexit ERROR TERMINATION

t:a:3:

4:5:

6:

7:

8:

9: 10:

11:

12:

13:

14:

15:

16:

17:

EREXIT

S(l).

EREXIT*

$(0).

ERRMSG

LOGMSG

IS A SUBROUTINE FOR ERROR TERi^^INATlON OF THE EXECUTION OF SPHED2

TO BE USED ONLY ON A UNIVAC 1100 SERIES COMPUTER. A SIMILAR ROUTINE

MUST BE WRITTEN FOR OTHER MACHINES TO PRINT AN ERROR MESSAGE AND

BOMB OUT EXECUTION.

AXRS.

LERL«U

ER

ER

AO t( 0777705. ERRMSG) . PRINT ERROR MESSAGE AND STOP

PRINTS.

AO. LOGMSG. PUT ERROR MESSAGE CN TEAR SHEET

CSF$.

ERRS. AND BOMB OUT PROGRAM EXECUTION

• END OF SPEED2 ERROR EXIT'

•S)LCG SPEED2 ERROR EXIT — RESULTS MAY BE INCORRECT . •. END.

A-67
subprogram: map map to create SPEED2

i: LIB NBS*CALCOM.

2: LIB NBS*JNTRAN.

3: SEG SPEED-2 . MAIN PROGRAM

4: IN SPEED2

5: SEG PLCT-1-2*. (SPEED-2) . PLOTl , PLCT2

6: IN PLOTl ,PL0T2, ERROR

7: SEG PLOT -3-4*, (SPEEO-2) . PL0T3

8: IN PLCT3,PL0T4

9: END

A-68
APPENDIX B

SAMPLE RUNSTREAMS AND EXAMPLES OF THE USE OF SPEED2

This appendix provides a number of examples of runstreams , data cards

and FORTRAN code used to reduce data collected by data acquisition systems

using SPEED2 . Examples of the use of PLOTl, PL0T2, PLOTS, and PL0T4 are presented and described in some detail. Several examples are included

describing the use of PLOT 2 , the most complicated phase of SPEED2

B-1
EXAMPLE 1. DATA PRINTOUT AND ERROR CHECKING USING PLOTl

As a first step in the reduction of data using SPEED2, PLOTl provides

the ability to quickly list the data recorded by a data acquisition system,

check the correctness of the data and, if desired, output the data to

punched cards, mass storage, or magnetic tape. This short example illustrates the use of PLOTl.

Explanation (numbers refer to lines within the example)

;

1. Standard UNIVAC 1108 EXEC 8 run initiation card specifying

run ID (FIREOl) , account number (00000-AAAAAA) , project ID

(PROJECT) , priority (M) , and maximum run time and page

estimate.

2. Assign a temporary mass storage file called 11.

3. Assign a magnetic tape (FIREOl) containing data recorded by

a data acquisition system to logical unit 7. The assignment

options (MTJI) , and tape unit type (8C) are dependent upon the

data acquisition system tape unit recording format (here, 7 track, 500 BPI, odd parity BCD)

.

4. Execute the program SPEED2 contained in the mass storage file

SPEED2*SPEED2.

5. SPEED2 data card Al — specifies one data set is to be processed,

6. SPEED2 data card A2 — specifies PLOTl is to be called.

7. PLOTl data card Al -- entries specify: Esterline Angus PD2064

magnetic tape input (INTYPE=6) ; a printout of all input data

records is to be produced from the data recorded on the magnetic

tape (INPRT=-1); a copy of the input data is to be output to

logical unit 11 (INPNCH=11) ; up to 100 error messages are to

be printed (INERR=100); and no input data records are to be

skipped — do not read PLOTl data cards Dl (INSKIP=0)

.

8-9. PLOTl data cards Bl and B2 — title of the experiment.

10. Copy the raw data written into the mass storage file called 11

into a permanent mass storage file called FRANKLIN. The data is

identified by the element name FIREOl/RAW within the file.

11. UNIVAC 1108 EXEC 8 run termination card.

B-2
EXAMPLE i: DATA PRINTOUT AND ERROR CHECKING USING PLOTl

i: SRUN.M FIREOl.OOOOO-AAAAAA*P^CJECTt 1*200

S: SASG.T 11.

3: SASGtMTJI 7o«8C»FIRE01

4: fflXQT SPEED2*SPEED2.SPEE02

s: 1 6: 19

7: 6 -1 11 100

8: 'FRANKLIN HEATER — FIREPLACE* FIRE TEST 01:31178

9: test: FIREOl

10: aCOPYtl 11. .FRANKLIN. FIREOl/RAW

11: aFIN

B-3
EXAMPLE 2. THE REDUCTION OF DATA USING PL0T2

After the data have been processed with PLOTl, the data must be reduced

and converted into scientific units for analysis. PL0T2 is used for this

purpose. In the first example, data recorded on magnetic tape were processed by PLOTl and output to a mass storage file for permanent storage.

This example illustrates the use of PL0T2 to reduce data generated by

PLOTl and produce printer plots of the data. The data are to be converted

with only linear equations. Hence, there is no need to use FORTRAN coding

to convert the data.

Explanation (numbers refer to lines within the example)

:

1. Standard UNIVAC 1108 EXEC 8 run initiation card.

2. Copy the mass storage file SPEED2*SPEED2 containing all the

subprograms of SPEED2 into the temporary workspace file TPF$.

3-5. Call the FORTRAN language processor to compile the main program

SPEED2, changing the size of the data arrays to NROW=240 and

NCOL=25 to allow up to 24 columns and 24 rows of data (note that

one extra column is needed by SPEED2 over and above the number

columns needed by the user)

.

6. Call the @MAP processor (the collector) to collect together

the relocatable elements of the subprograms of the SPEED2

system to produce an absolute element for execution.

7. Assign a temporary mass storage file called 10.

8. Assign an existing mass storage file called FRANKLIN.

9. Execute the absolute element SPEED2 created earlier with the

@MAP processor.

10-11. SPEED2 data cards Al and A2 — specifies one data set (NSETS=1)

is to be processed by PL0T2 (IP1=0, IP2=1, IP3=0, IP4=0)

.

12. PL0T2 data card Al -- entries specify: Esterline Angus punched

card image format (INTYPE=7) ; only the first two input data

records are to printed (INPRT=2) ; do not output the raw data

(INPNCH=0) ; do not stop processing after reading the input

data (INSTOP=0) ; do not print any input error messages (INERR=0)

;

and do not skip any input data records — do not read PL0T2

data card Dl (INSKIP=0)

.

13. PL0T2 data card A2 -- entries specify: a test number of zero

(NTEST=0) ; print the transformed data matrix (NPRT=1) ; output

the transformed data matrix to unit 10 -- in this case, a previously assigned mass storage file (NPNCH=10) ; read PL0T2

data cards part I to generate printer plots (NPL0T=1) ; and

do not read PL0T2 data cards part G to correct readings of

the data matrix (NCORR=0)

.

14-15. PL0T2 data cards Bl and B2 — title of the experiment.

B-4
PL0T2 data cards B3 — instrument definition cards for instruments

numbered 0-18 and a time channel numbered 999.

PL0T2 data card B4 signals the end of the set of instrument defining cards.

PL0T2 data cards B5 specifying conversion coefficients for instrument types 1, 2, and 3.

PL0T2 data card B6 signals the end of the set of coefficient cards,

Element FIREOl/RAW in the mass storage program file FRANKLIN

contains raw data images in the format of the data acquisition

system prepared by using PLOTl as in example 1. The @ADD

control statement is used to add into the runstream at this point

the entire contents of the element. These are PL0T2 data

cards part E.

PL0T2 data cards II, 12, 13, and 14, the first of several sets

of four cards to generate printer plots from the reduced data.

Here, channel 999 is plotted as the x-axis versus channel 1 as the y-axis. The axis limits are - 5000 for the x-axis and

- 0.25 for the y-axis. The graph title is INCIDENT RADIANT

FLUX ON BACK WALL SURFACE. Axis titles are HEAT FLUX WATTS PER

SQUARE CM (y-axis) and ELAPSED TIME IN SECONDS (x-axis)

Six additional sets of four cards to generate six separate ' printer plots.

A blank card signals the end of the plot generating cards.

Copy the temporary mass storage file named 10 containing the

reduced data output by SPEED2 (NPNCH=10) into permanent storage

in the element named FIREOl/REDUCED within the mass storage

program file named FRANKLIN.

Standard UNIVAC 1108 EXEC 8 run termination card.

B-5
EXAMPLE 2: THE REDUCTION OF DATA USING PL0T2

123

4

5

6

7

8

9

IG

1112

13

14

IS

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

SRUN.M FIREOl.OOOOO-AAAAAA.PROJECT.2.100

fflCOPY SPEED2*SPEED2. tTPFS.

SFOR«W SPEED2

-25t25

PARAMETER NROW=240. NC0L=25

SMAP.N MAPtSPEE02

SASG.T 10*

aASG.A FRANKLIN.

aXQT SPEED2

1 10

7 2 9

1 10 1 •FRANKLIN HEATER FIREPLACE* FIRE TEST

test; FIREOl

000103FLUX HEAT FLUX RADICMETER. REAR WALL

000002TC REF REFERENCE THERMOCOUPLE

000202RW 46 TEMPERATURE

00630 2RW 107 TEMPERATURE

009402RW 168 TEMPERATURE

0e0502RW 229 TEMPERATURE

000602S.W 46 TEMPERATURE

60070 2SW 107 TEMPERATURE

000e02SW 168 TEMPERATURE

000902SW 229 TEMPERATURE

001C02HEARTH TEMPERATURE

001102RT LEG TEMPERATURE

0012021.T LEG TEMPERATURE

001302R LEG TEMPERATURE

001402R SIDE TEMPERATURE

001S02R REAR TEMPERATURE

C01602C REAR TEMPERATURE

001702L REAR TEMPERATURE

001802L SIDE TEMPERATURE

oi:3i:78

REAR WALL. 0*46 M UP REAR WALL. 1.07 M UP REAR WALL. Ie6e M UP

REAR WALL. 2.29 M UP SIDE WALL* Oa46 M UP SIDE WALL. 1.07 M UP SIDE WALL. I068 M UP

SIDE WALL. 2.29 M UP HEARTH CENTER

BENEATH RIGHT LEG

BENEATH LEFT LEG

BENEATH REAR LEG

RIGHT SIDE OF FIREPLACE

FIGHT REAR OF FIREPLACE

CENTER REAR OF FIREPLACE

LEFT REAR OF FIREPLACE

LEFT SIDE OF FIREPLACE

099901 TIME ELAPSED TIME SINCE IGNITION

W/CM2

OEG C OEG

DEG

OEG

DEG

DEG

DEG

DEG

DEG

DEG

DEG

DEG

OEG

DEG

DEG

DEG

DEG

DEG

SEC

C 1*0

C 0.55556

C 0«2335

32.C

SAOO FRANKLIN. FIREOl/RAW

PLOT 999 1 0.0 50C0. 0.0 0.25

INCIDENT RADIANT FLUX ON BACK WALL SURFACE

HEAT FLUX WATTS PER SQUARE CM

PLOT 999 2 3 4 5 0*0 5000* 0*0 100*

TEMPERATURE ON REAR WALL BEHIND FIREPLACE

TEMPERATURE DEG C

PLOT 999 6 7 8 9

599

999

ELAPSED TIME IN SECONDS

ELAPSED TIME IN SECONDS

B-6
EXAMPLE 2: THE REDUCTION OF DATA USING PL0T2

5i:

52:

53:

54:

55:

56:

57:

58:

59:

60

61:

62:

63:

64:

65:

66:

67:

68:

69:

70:

71:

72:

0*0 SOCOc 0*0 100.

TEMPERATURE ON SIDE WALL RiGHT OF FIREPLACE

TEMPERATURE DEG C ELAPSED TIME IN SECONDS

PLOT 999 10

0*0 SOOOo 0*0 100*

TEMPERATURE AT FRONT EDGE OF HEARTH

TEMPERATURE DEG C ELAPSED TIME IN SECONDS

PLOT 999 11 12 13

0*0 SOCOc 0*0 100*

TEMPERATURE ON FLOOR BENEATH LEGS OF FIREPLACE

TEMPERATURE OEG C ELAPSED TIME IN SECONDS

PLOT 999 14 18

0*0 5000c 0*0 500*

TEMPERATURE ON SIDES OF FIREPLACE

TEMPERATURE DEG C ELAPSED TIME IN SECONDS

PLOT 999 15 16 17 0.0 50C0. 0.0 500.

TEMPERATURE ON REAR SURFACE OF FIREPLACE

TEMPERATURE DEG C ELAPSED TIME IN SECONDS

SCOPY.I 10. t FRANKLIN. FIREOl /REDUCED

SPIN

B-7
EXAMPLE 3. USING PLOTS TO GENERATE PEN PLOTS FROM REDUCED DATA

For reports and other presentations of data, the user may desire better

quality graphs of the data reduced and stored using PLOTl and PL0T2 . In this

example, PLOTS is used to generate a pen plot from data reduced as shown in

example 2

Explanation (numbers refer to lines within the example)

1. Standard UNIVAC 1108 EXEC 8 run initiation card.

2. Copy the mass storage file SPEED2*SPEED2 containing all the subprograms of SPEED2 into the temporary workspace file TPF$.

3-5. Call the FORTRAN language processor to compile the main program

SPEED2, changing the size of the data arrays to NROW=240 and

NCOL=S.

6. Call the @MAP processor (the collector) to collect together the

relocatable elements of the subprograms of the SPEED2 system to

produce an absolute element for execution.

7. Assign an existing mass storage file (A-option) called FRANKLIN.

8-9. Assign a magnetic tape CAL to logical unit 7 to be used for the

output of the CALCOMP plotting commands.

10. Execute the absolute element SPEED2 created earlier with the @MAP

processor.

11-12. SPEED2 data cards Al and A2 — specifies one data set (NSET=1) is

to be processed using PLOTS (IPl, IP2, IP4 equal zero and IPS

equals one)

IS. PLOTS data card Al -- entries specify: data matrix is not to be

printed (NPRT=0); smooth the data before plotting using a running

five point linear average (NSMTH=5) ; ignore all out of bounds

points (NOUT=0) ; place axes on all four sides of each graph produced (NAXIS=1) ; draw a line through each data point of all curves,

placing a special plotting symbol every 10 points (NPNT=10) ; and

do not produce any legends on the graphs (NLEG=0)

14. PLOTS data card A2 — entries specify the size of the graphs

produced. The x-axis length is 10.0 scaled inches (XSIZE=10 . 0)

the y-axis length is 5.0 scaled inches (YSIZE=5 . 0) ; and the

scaling factor is 0.8 (SCALE=0.8).

15-16. PLOTS data cards Bl and B2 — the title of the experiment.

17-18. PLOTS data cards B3 -- instrument definition cards for channels

002 and 999.

19. PLOTS data card B4 signals the end of the instrument definition

cards

B-{
20. Element FIREOl/REDUCED in the mass storage program file FRANKLIN

contains the set of reduced data output by PL0T2 . The @ADD

control statement is used to add into the runstream at this point

the entire contents of the element. These are PLOTS data cards

part C.

21-24. PL0T3 data cards Dl, D2 , D3, and D4 describing the pen plot to be

produced. Channel 999 is plotted on the x-axis versus channel 002 on the y-axis. The axis limits are - 5000 for the x-axis and

- 100 for the y-axis. The graph title is FIGURE 4: SURFACE

TEMPERATURE ON REAR WALL BEHIND FIREPLACE. Axis titles are TEMPERATURE (DEC C) and TIME SINCE IGNITION (SEC) for the y and

X axes respectively.

25. A blank card signals the end of the plot generating cards.

26. Standard UNIVAC 1108 EXECS run termination card.

B-9
EXAMPLE 3: USING PL0T3 TO GENERATE PEN PLOTS FROM REDUCED DATA

1: SRUN«M FIRE01.00900-AAAAAAtPRCJECT.2ilOO

2: fflCOPY SPEED2*SPEED2« .TPF$.

3: SFOR.W SPEED2

4: -25t25

5: PARAMETER NRGW=240« NC0L=3

6: aMAPtN MAP«SPEED2

7: SASG.A FRANKLIN.

e: SASG.TJ 7..8C.CALW

9: 9MSG.W REEL CAL BELONGS TO 00000-AAAAAA

10: fflXQT SPEED2

11: 1 12: 10

13: 5 c 1 10

14: 10*0 5*0 OqS

15: 'FRANKLIN HEATER FIREPLACE' FIRE TEST

16: PLOTS

17: 0000020324 IN TEMPERATURE ON REAR WALL BEHIND FIREPLACE

18: ©0a99903TlME TIME IN SECONDS SINCE IGNITION

19: S99

20: aADD FRANKLIN.FIREOl/REDUCED

21: PLOT 999.002

22: 0*0 5000c OeO lOOe

23: 04SURFACE TEMPERATURE CN REAR WALL BEHIND FIREPLACE

24: TEMPEKATURE < DEG C) TIME SINCE IGNITION (SEC)

25:

26: SFIN

B-10
EXAMPLE 4. COMBINING SEVERAL SETS OF DATA USING PL0T4

If a number of related tests have been processed using SPEED2 , with the

reduced data stored on mass storage, magnetic tape, punched cards, or the

like, the user may wish to compare instruments from several different tests

using PL0T2 or PLOTS. This example illustrates the use of PL0T4 to create

a new combined set of reduced data that may then be further processed with

PL0T2 or PLOTS.

Explanation (numbers refer to lines within the example)

1. Standard UNIVAC 1108 EXEC 8 run initiation card.

2. Copy the mass storage file SPEED2*SPEED2 containing all the

subprograms of SPEED2 into the temporary workspace file TPF$.

3-5. Call the FORTRAN language processor to compile the main program

to change the size of the data arrays.

6. Call the @MAP processor (the collector) to collect together

the relocatable elements of the subprograms of the SPEED2

system to produce an absolute element for execution.

7. Assign a temporary mass storage file called 10.

8. Assign an existing mass storage file called FRANKLIN.

9. Execute the absolute element SPEED2 created earlier with the

@MAP processor.

10-11. SPEED2 data cards Al and A2 — specifies one data set is to be

processed using PL0T4

12. PL0T4 data card Al -- entries specify: do not print the combined

data matrix (NPRT=0) ; and output the combined data matrix to unit

10 — in this case, a previously assigned mass storage file

(NPNCH=10)

lS-14. PL0T4 data cards Bl and B2 — the title of the experiment.

15-102. PL0T4 data cards B3 -- instrument definition cards for tests

1-4.

103. PL0T4 data card B4 signals the end of the set of instrument defining cards.

104. PL0T4 data card CI specifies that the data which follows belongs

to test number 1.

105. Element FIREOl/REDUCED in the mass storage program file FRANKLIN

contains the set of reduced data for test number- 1 output by

PL0T2. The @ADD control statement is used to add into the run- stream at this point the entire contents of the element. These

are PL0T4 data cards C2

106-111. Three similar sets of PL0T4 data cards part C for tests 2, 3 and 4. B-11
112. PL0T4 data card C3 specifying the end of the data sets

113. Standard UNIVAC 110 8 EXECS run termination card.

B-12
EXAMPLE 4: CCMBINiNG SEVERAL SETS OF DATA USING PLDT4

SRUN*M FI RE* COOOO-AAAAA. PROJECT t 2. 100

aCOPY SPEED2*SPEED2e tTPFS.

SFORtW SPEED2

-25.25

PARAMETER NR0W=20C* NC0L=99

SMAPtN MAP.SPEE02

SASG.T 10.

SASG.A FRANKLIN*

aXQT SPEE02

1 1 10

•FRANKLIN HEATER FIREPLACE* FIRE TEST

ALL TESTS

00100103FLUX HEAT FLUX ISAOIOMETER. REAR WALL

00100002TC REF REFERENCE THERMOCOUPLE

REAR WALL« 0.46 M UP

REAR WALL. 1*07 M UP

REAR WALL. 1.68 M UP REAR WALL. 2.29 M UP

SIDE WALL,

SIDE WALL.

0.46 M UP

le07 M UP

00100 202RW 46 TEMPERATURE

a0100302RW 107 TEMPERATURE

00100402RW 168 TEMPERATURE

00100502RW 229 TEMPERATURE

00100602SW 46 TEMPERATURE

03100702Sll( 107 TEMPERATURE

00100802SW 168 TEMPERATURE

00100902SW 229 TEMPERATURE

00101002HEARTH TEMPERATURE

00101 102RT LEG TEMPERATURE

00101 202LT LEG TEMPERATURE

00101302R LEG TEMPERATURE

00101402R SIDE TEMPERATURE

00101 S02R REAR TEMPERATURE

00101 602C REAR TEMPERATURE

f0101702L REAR TEMPERATURE

00101802L SIDE TEMPERATURE

09101902FLOOR TEMPERATURE

00102002S STAK TEMPERATURE ON SIDE WALL AT STACK

00199901 TIME ELAPSED TIME SINCE IGNITION

00200 103FLUX HEAT FLUX RADIOMETER. REAR WALL

00200002TC REF REFERENCE THERMOCOUPLE

00200202RW 46 TEMPERATURE. REAR WALL. 0.46 M UP 00200302RW 107 TEMPERATURE, REAR WALL. Ie07 M UP

09200402RW 168 TEMPERATURE, REAR WALL. 1.68 M UP 00200502RU 229 TEMPERATURE, REAR WALL. 2*29 M UP

09200602S.W 46 TEMPERATURE. SIDE WALL. 0.46 M UP 00200702SW 107 TEMPERATURE. SIDE WALL. 1.07 M UP a0200802SW 168 TEMPERATURE. SIDE WALL. 1«68 M UP 00200902SW 229 TEMPERATURE, SIDE WALL. 2.29 M UP 00201002HEARTH TEMPERATURE, HEARTH CENTER

002dll02RT LEG TEMPERATURE, BENEATH RIGHT LEG

00201202LT LEG TEMPERATURE, BENEATH LEFT

C3201302R LEG TEMPERATURE, BENEATH REAR

SIDE WALL. 1.68 M UP SIDE WALL. 2*29 M UP

HEARTH CENTER

BENEATH RIGHT LEG

BENEATH LEFT LEG

BENEATH REAR LEG

RIGHT SIDE OF FIREPLACE

RIGHT REAR OF FIREPLACE

CENTER REAR OF FIREPLACE

LEFT REAR OF FIREPLACE

LEFT SIDE OF FIREPLACE

FLOOR SURFACE CENTER

LEG

LEG

W/CM2

DEG C DEG

DEG

DEG

DEG

DEG

DEG

DEG

DEG

DEG

DEG

DEG

DEG

DEG

DEG

DEG

DEG

DEG

DEG

DEG

SEC

W/CM2

DEG C

DEG

DEG

DEG

DEG

DEG

DEG

DEG

DEG

DEG

DEG

DEG

DEG

B-13
EXAMPLE CCMBINING SEVERAL SETS OF DATA USING PLCT4

5i

52

53

54

55

56

57

58

59

60

6162

63

64

65

66

67

68

69

70

7i

72

73

74

75

76

77

78

79

80

3182

S3

84

85

86

87

68

89

90

91

92

93

94

95

96

97

98

99

100

00201402R SIDE

00201 502R REAR

0020i602C REAR

00201702L REAR

0J201802L SIDE

00201902FLCCR

00202002S STAK

00295901 TIME

C03001&3FLUX

00300002TC REF

00300202RW 46

a0300302RM 107

00300402^W 168

0030050 2RW 229

00300602SW 46

0030070231* 107

00300802SW 168

00300902SW 229

00301002HEARTH

00301i02RT LEG

00301202LT LEG

003dl302R LEG

C03014S2R SIDE

00301502R REAR

00301602C REAR

00301702L SEAR

00301802L SIDE

00301 902FLC0R

330 200 2S STAK

00399901 TIME

00400103FLUX

00400002TC SEF

00400202RW 46

00400302RW 107

00400402RM 168

0040050 2RW 229

CC400602SW 46

00400702S* 107

004g0802SW 168

00400902SW 229

00401002HEARTH

00401102RT LEG

00401 202LT LEG

00401302^ LEG

0.34014d2R SIDE

00401502R REAR

00401602C REAR

03401702L SEAR

C0401802L SIDE

00401 902FLCOR

TEMPERATURE,

TEMPERATURE,

TEMPERATURE,

TEMPERATURE,

TEMPERATURE.

RIGHT SIDE OF FIREPLACE

RIGHT REAR OF FIREPLACE

CENTER REAR OF FIREPLACE

LEFT REAR CF FIREPLACE

LEFT SIDE CF FIREPLACE

TEMPERATURE, FLOOR SURFACE CENTER

TEMPERATURE ON SIDE WALL AT STACK

ELAPSED TIME SINCE JGNITICN

HEAT FLUX RADIOMETER, REAR WALL

REFERENCE THERMOCOUPLE

TEMPERATURE

TEMPERATURE

TEMPERATURE

TEMPERATURE

TEMPERATURE

TEMPERATURE

TEMPERATURE

TEMPERATURE

TEMPERATURE

TEMPERATURE

TEMPERATURE

TEMPERATURE

TEMPERATURE

TEMPERATURE

TEMPERATURE

TEMPERATURE

TEMPERATURE

TEMPERATURE

REAR WALL,

REAR WALL,

REAR WALL,

REAR WALL,

SIDE WALL.

SIDE WALL.

SIDE WALL.

SIDE WALL.

0*46 M UP

1.07 M UP 1*68 M UP

2.29 M UP 0*46 M UP

1.07 M UP

Ie68 M UP 2.29 M UP HEARTH CENTER

BENEATH RIGHT LEG

BENEATH LEFT LEG

BENEATH REAR LEG

RIGHT SIDE OF FIREPLACE

RIGHT REAR OF FIREPLACE

CENTER REAR OF FIREPLACE

LEFT REAR CF FIREPLACE

LEFT SIDE CF FIREPLACE

FLOOR SURFACE CENTER

TEMPERATURE ON SIDE WALL AT STACK

ELAPSED TIME SINCE JGNITICN

HEAT FLUX RADIOMETER, REAR WALL

REFERENCE THEF.MOCOUPLE

TEMPERATURE

TEMPERATURE

TEMPERATURE

TEMPERATURE

TEMPERATURE

TEMPERATURE

TEMPERATURE

TEMPERATURE

TEMPERATURE

TEMPERATURE

TEMPERATURE

TEMPERATURE

TEMPERATURE

TEMPERATURE

TEMPERATURE

TEMPERATURE

TEMPERATURE

TEMPERATURE

SEAR WALL, 0.46 M UP

REAR WALL, 1.07 M UP REAR WALL. 1.68 M UP REAR WALL. 2.29 M UP SIDE WALL. 0.46 M UP SIDE WALL, 1.07 M UP SIDE WALL. 1.68 M UP SIDE WALL. 2,29 M UP HEARTH CENTER

BENEATH RIGHT LEG

BENEATH LEFT LEG

BENEATH REAR LEG

RIGHT SIDE OF FIREPLACE

RIGHT REAR OF FIREPLACE

CENTER REAR OF FIREPLACE

LEFT REAR CF FIREPLACE

LEFT SIDE CF FIREPLACE

FLOOR SURFACE CENTER

DEG C OEG C OEG c OEG c OEG c OEG c DEG c SEC

W/CM2

DEG c DEG c DEG c DEG c OEG c DEG c OEG c OEG c DEG c OEG c OEG c OEG c DEG c OEG c OEG c DEG c OEG c DEG c DEG c OEG c SEC

W/CM2

OEG c DEG c DEG c DEG c OEG c OEG c DEG c DEG c DEG c DEG c DEG c DEG c DEG c OEG c DEG c DEG c DEG c DEG c DEG c

B-14
EXAMPLE 4: COMBINJNG SEVERAL SETS OF DATA USING PL0T4

101

00402002S STAK TEMPERATURE ON SIDE WALL AT STACK OEG C

102: 00499901 TIME ELAPSED TIME SINCE IGNITION SEC

103: 999

104: TEST 001

105: SAOO FRANKLINaFIREOl /REDUCED

106: TEST 002

107: SAOO FRANKLIN»FIRE02/REDUCED

lOe: TEST 003

109: aAOO IFRANKLIN«FIRE03/REOUCED

110: TEST 004

ill: SAOD FRANKLIN«FIRE04/REDUCED

112: i=ILENO

113: SFIN

B-15
EXAMPLE 5. USING PL0T2 AND SUBPROGRAM CONV FOR

COMPLICATED DATA TRANSFORMATION

The reduction of data using SPEED2 can, of course, be considerably more

complex than presented in example 2. In this example, subprogram CONV is

used with FORTRAN code to provide complicated data reduction and analysis.

Explanation (numbers refer to lines within the example)

1. Standard UNIVAC 1108 EXEC 8 run initiation card.

2. Copy the mass storage file SPEED2*SPEED2 containing all the

subprograms of SPEED2 into the temporary workspace file TPF$.

3-5. Call the FORTRAN language processor to compile the main program

SPEED2, changing the size of the data arrays to NR0W=51 and

NC0L=36 to allow up to 36 columns and 51 rows of data (note that

one extra column is needed by SPEED2 over and above the number

columns needed by the user)

6-7. Call the FORTRAN language processor to compile the subprogram

CONV to provide FORTRAN changes for data reduction. Insert the

FORTRAN code that follows in the runstream after line 17.

8-9. Call subprogram FIND to determine the location of instrument

number 126. The subscript (column) of the array REED containing

the readings from instrument number 126 is returned in the variable L126.

10. Establish the variable MAXROW as the maximum number of readings

from instrument number 126. This variable will be used throughout

as the maximum number of readings for all instruments.

11-14. Convert the readings of instrument number 126 with a simple

FORTRAN do loop.

15-34. Similar conversions for other instruments.

35-36. A more complicated conversion on several instruments by using an additional FORTRAN DO loop with instruments numbered 129 through

134.

37-4 3. Convert the millivolt output for these instruments into meaningful

units

44-46. Create new instruments (which must be defined in instrument cards)

numbered 32 9 through 334 and set the maximum number of readings

for these instruments by letting MAXR(i) equal MAXROW for these

instruments.

47-54. Define, the readings for these user created instruments as con- versions of readings from instruments scanned by the data acquisition system.

55-97. Similar conversions for other instruments.

98-121. Create four new instruments as different conversions from a single

instrument.

B-16
122. Call the @MAP processor (the collector) to collect together

the relocatable elements of the subprograms of the SPEED2

system to produce an absolute element for execution.

123. Assign a temporary mass storage file called 10.

124. Execute the absolute element SPEED2 created earlier with the

@MAP processor.

125-130. SPEED2 data cards Al and A2 , PL0T2 data cards Al , A2, Bl and B2

.

131-165. PL0T2 data cards B3 — instrument definition cards for instruments

to be processed.

166. PL0T2 data card B4 signals the end of the set of instrument defining cards.

167-170. PL0T2 data cards B5 specifying conversion coefficients for instrument types 1, 2, 3, and 4.

171. PL0T2 data card B6 signals the end of the set of coefficient cards,

172. Element TEST17 in the mass storage program file RAW-DATA contains

raw data images in the format of the data acquisition system

prepared by using PLOTl or PL0T2 . The (SADD control statement is

used to add into the runstream at this point the entire contents

of the element. These are PL0T2 data cards part E.

173-216. Several sets of four cards to generate separate printer plots.

217. A blank card signals the end of the plot generating cards.

218. Copy the temporary mass storage file named 10 containing the

reduced data output by SPEED2 (NPNCH=10) into permanent storage

in the element named TEST17 within the mass storage program file

named REDUCED-DATA.

219. Standard UNIVAC 1108 EXEC 8 run termination card.

B-17
EXAMPLE THE USE CF SUBPROGRAM CONV FCR CCMPLICATED DATA TSANSFOSMATION

1z:

3:

4:5!

6;7;

s:

9: iO:

11iz:

15:

14: 15!

16: 17: is:

19: 20

21

22: 23:

24: 25:

26:

27:

28:

2?

36 ; 31

32J

33:

34:

35;

36;

37:

38:

39:

4C;

41

42:

43;

44:

45:

46:

47:

48:

49:

50;

SRUN, M TEST17.00000-AAAAAA,PF.OJECTi4t20

fflCCPY SPEED2*SPEED2. tTPFS.

SFORiS SPEED2

-25,25

PARAMETER NR0W=51, NC0L=36

fflFOR. S CONV

-17

C ** ZX CO *** LIRA 32062 ***

CALL FIND(126,L12e.KH,NC0L)

MAXR0W=MAXr(L126) S ESTABLISH MAXROW FOR ALL INSTRUMENTS

00 50 L=1,MAXR0M

Y=REED{L.L126)

REED(L.L126)=-.000435+.014073*Y+,000 033*( Y**2)

50 CONTINUE

C *** 10% CO *** LIRA 3C759 **

CALL FIND( 123,L123.KH, NCOL)

DO 60 L=1,MAXR0W

Y=REED<L.Li23)

IF( Y.LE.l.) REED (L,L 123 )=.C769231*Y

IF(Y.GT,1. ) 1 REEO(L.L123J=-.04 2538+.077776*Y+.0 0013 0*( Y**2} +. 000001 *( Y**3

)

60 CONTINUE

C

*

20% C02 *** LIRA 32371 *** CALL FIND(121.L121 ,KH, NCOL)

DO 70 L=1,MAXR0W

Y=REED(L-.L121)

REED(L.L121)=.1207B22+.1406&10*Y+.000 4877*(Y**2)+.OOOOOiO*{y**3)

70 CONTINUE

C *** 5X CO ** BEC<MAN 1521-E **

CALL FiND<128,L128,KH,NC0Li

DO ICO L=1,MAXR0W

Y=REED(L.L128)

REED(L,L128)=0«05*Y

100 CONTINUE

C *** SMOKE METERS ***

DO 90 1=129,134

CALL FIND(I-.LINST. KH,NCCL)

0RIGNL=REED(1,LINST)

DO 80 L=1.MAXR0W S DETERMINE X TRANSMISSION

REED(L,LINST)=REED(L.LINST)/0RIGNL*100.

IF iREED(L,LINST)cGTelOOo ) SEED ( L , LINST )= 1 0. IF (REED(L,LINSTJ.LT.O.) REED(L . L INST) =0.

80 CONTINUE

J=I+2C0

CALL FIND( J, JINST, KH,NCOL)

MAXR( J1NSTJ=MAXRCW

PATH=0»7684

IF(J.GT.331) PATH=0.7430

DO 85 L=1.MAXR0W 3 DETERMINE OD/M

IRANS=REED(L.LINST)

B-li
5: THE USE OF SUBPROGRAM CONV FOR CCMPLICATEO 3ATA TRANSFORMATION

Si: IFCTRANS.LT. 0.001) TRANS=0.00l

52: REEDiL, J1NST)=( ALDG10( XOOB/TaANS) )/PATH

53: 85 CONTINUE

54: 90 CONTINUE

55: C *** 02 READINGS ***

56: OO 130 K=125*127

57: I=K

58: IF(K.EQ»126) 1 = 124 3> 00 CHANNELS 124t 125. 127

59: CALL FINDd tLINST.KH.NCOLi

60: ORIGNL=REED(l.LINST)

6i: DO 12© L=1.MAXR0W a COMPUTE X CONCENTRATION

62: {^EED(L.LINST)=REED(L«LINST))I<21«/0SUGNL

63: 120 CONTINUE

64: J=I-t-200 65: CALL FIND(J.JINST.KH,NCOL)

66: MAXR( JINST)=MAX^OW

67: DO 125 L=1,MAXR0»I 8 COMPUTE (CHANGE IN X CONCENTRATION) = (% DEPLETION)

68: REED(L. JINST)=21oO-REED(L.LINST)

69: 125 CXINTINUE

70: 130 CONTINUE

71

c 72: C *** BURN RATE OF CRIB (PERCENT LOSS) **

73: c 74: C ORIG WT - CURRENT WT

75: C PCT LOSS = X 100.

76: C ORIG WT

77: C

78: CALL FIND(135.L135.KH,NC0L)

79: CALL FIND(305tL305.KH.NC0L)

80: MAXR(L305)=MAXROM

81

0RIGNL=REED(1.L135)

82: OO 190 L=1.MAXR0M

83: 190 f%EEO(L.L305) = (OL^IGNL->$EED(L.L135) )/0RIGNL*100.

84: C

85: C ** BURN RATE OF CRIB (PERCENT LOSS PER SECOND)

*

86: C

87: C PCT LOSS CHANGE IN PCT LOSS OVER EACH 10 SEC INTERVAL

89: C SEC lOe

90: c

9i: CALL FIND(306.L306.KH.NCOL)

92: MAXR(L306)=MAXROW

93: 0RIGNL=REE0(1,L135)

94: REED(1.L306)=0.

95: DO 200 L=2tMAXROW

96: LM1=L-1

97: 200 REED(L.L30&)=(REEO(L*L305)-REEO(LM1.L305))/10;

98: C 99: C *** BURN RATE OF CRIB (GRAMS/SEC) **

lOO: C

B-19
EXAMPLE 5: THE USE OF SUBPROGRAM CCNV FOR COMPLiCATED DATA TRANSFORMATION

102

105

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

1 49

150

LOAD CELL READINGS IN GRAMS

10 SECOND INTERVAL

SECOND INTERVAL

SECOND INTERVAL

CALL FIND(307«L307.KH,NC0L) 3 CALL FIND(30e9L308t<H, NCOL) 3 CALL FIND(309tL30S.KH,NCCL) S 30

CALL FIND(310,L310 tKH.NCOL) S 60

MAXR(L307)=MAXROW

MAXR(L308)=MAXROIK

MAXR(L30S)=MAXR0W

MAXR1L310>=MAXROW

CONVERT LOAD CELL READINGS FROM POUNDS TO GRAMS

DO 210 L=1.MAXR0W

REED(L.L307J=REEO(L«L135)*453.6

DETESMINE BURN SATE ( G/S ) OVER A 10-SECi 30-SEC.

DO 220 L=2tMAXR0W

LM1=L-1

REEO(L,L308)=(REED(LM1,L307)-REED{L.L307) )/10.

DO 230 L=4iMAXR0W

LM3=L-3

REED(L,L309)=(REED(L13tL307)-REED(LtL397))/30.

DO 240 L=7.MAXR0W

LM6=L-6

REED {L,L310)=C REED (LM6.L307)-REED(L.L307))/60.

aMAP,S MAP,SPEED2

SASGtT 10*

210

C

220

230

240

60-SEC INTERVAL

a 10-SEC INTERVAL

a 30-SEC INTERVAL

a 60-SEC INTERVAL

aXQT SPEED2

1

1 C 3 -1

1 le 1 *** MXDBILE HOME FIRE TEST 17

00007102TC 1 TC- L [VINGF.M,CENTR

00007202TC 2 TC- LIVINGRM.CENTR

0C007302TC 23 TC- CORSIDCRtNORTH

0C007402TC 37 TC- CORRIDORI. SOUTH

00012C04RAD 1 RADIDMETER- LIVINGR

00012902HSM 4 HORIZ SMOKE METER00C13002HSM 5 HORIZ SMOKE METER000131&2HSM 6 Hoaiz SMOKE METER00013202HSM 8 HORIZ SMCKE METEReOOl3302HSM 9 HORIZ SMOKE METEROC01340 2HSM 10 HORIZ SMOKE METER00032902HSM 4 HORIZ SMCKE METER00033002HSM 5 HORIZ SMCKE METER00033102HSM 6 HORIZ SMOKE METER30033202HSM 8 HORIZ SMOKE METERe0033302HSM 9 HORIZ SMOKE METER0&0334S2HSM IC HORIZ SMOKE METER001 230 2C0 13 CO - CENTS CF LIVI

00012102C02 14 C02 - CENTR OF LIVI

00C12402O2 15 02 - CENTR OF LIVI

*

MAY ISf 1978 ***

1 INCH FROM CEILING

10 INCH FROM CEILING

1 INCH FROM CEILING

32 INCH FROM CEILING

M, CENTR FLOOR LEVEL I CCRRIDCRtNORTH 2 FT ABV

COF.RlDORfNORTH 4 FT ABV

CORRIDOR. NORTH 6 FT ABV

CORRIDOR, SOUTH 2 FT ABV

CORRIDOR. SOUTH 4 FT ABV

CORRIDOR. SOUTH 6 FT ABV

CORRIDOR-, NORTH 2 FT ABV

CORRIDOR, NORTH 4 FT ABV

CORRIDOR. NORTH 6 FT ABV

CORRIDOR, SOUTH 2 FT ABV

CORRIDOR, SOUTH 4 FT ABV

CORRIDOR. SOUTH 6 FT ABV

NGRM AT 5 FT ABOVE FLOOR

NGRM AT 5 FT ABOVE FLOOR

NGRM AT 5 FT ABOVE FLOOR

54511

FLR ( FLR C FLR < FLS ( FLR ( FLR ( FLR ( FLR ( FLR ( FLR { FLR ( FLR ( LIRA

LIRA

TRANS J TRANS)

TRANS)

TRANS)

TRANS)

TRANS)

OD/M)

DD/M)

OD/M)

OO/M)

OD/M)

CO/M)

30759

32371

B-20
5: THE USE OF SUBPROGRAM CDNV FOR. COMPLICATED DATA TRANSFORMATION

0001250202

0001 260 2C0

0001270202

0C012802C0

0003240202

OC03250202

0003270202

000 13 50 3L CELL

00030502% LOSS

0003060 2X/SEC

06030702GRAMS

00030 e02G/S 10

0C030902G/S 30

00031002G/S 60

OOOOOOOITIME

1.0

leO

.0940

2c 69

24 02

16 CO

17 02

25 CD

15 02

24 02

17 02

DOOR OF LIVINGRM AT 1 IN ABOVE FLOOH

SOUTH CORRIDOR AT 5 FT ABCVE FLOOR LIRA 32062

SOUTH CORRIDOR AT 5 FT ABCVE FLODK

SOUTH CORRIDOR AT 3 FT ABOVE FLOOR

CENTER OF LIVINGKM, 5 FT ABV FLR (CHG IN CONC)

DOOR OF LIVINGRM, 1 IN ABV FLR (CHG IN CONC)

SOUTH CORRIDOR. 5 FT ABV FLR (CHG IN CONC)

LOAD CELL (POUNDS)

BURN RATE IN PERCENT LOSS

BURN RATE IN PERCENT LOSS PER SECOND

LOAD CELL (GRAMS)

BURN RATE IN GRAMS PEK SECOND ( 1 0-SEC INTERVAL)

BURN RATE IN GRAMS PER SECOND (30-SEC INTERVAL)

BURN RATE IN GRAMS PER SECOND (60-SEC INTERVAL)

TIME IN SECONDS AFTER IGNITION

660.0

999

999

aADD RA«-DATAeTEST17

PLOT OCOO 0071 0072 0073 007*

0*0 1250* OoO lOOOe

THERMOCOUPLES- HV RM CENTER (1.10 IN), CORR N (1 IN), COP.R S (32 IN)

DEGREES C SECONDS AFTER IGNITICN

PLOT 0000 0120

0. 1250. 0. 5.

RADIOMETER- CENTER OF LIVING ROOM, FLOOR LEVEL

WATTS PER SQUARE CM SECONDS AFTER IGNITION

PLOT eOOO 0329 033© 0331

0* 1250* Oo 7o5

SMOKE METERS- CORRIDOR, NORTH (2,4,6 FT ABOVE FLCOR)

OPTICAL DENSITY PER METER SECONDS AFTER IGNITICN

PLOT 0000 0332 0333 0334

0* 1250e Oo 7o5

SMOKE METERS- CORRIDOR, SOUTH (2.4,6 FT ABOVE FLOOR)

OPTICAL DENSITY PER METER

PLOT 0000 0124 0125 0127

0* 1250o 0« 25e

02- LIV RM CENTER (5 FT), LIV RM DOOR (1 IN)

PERCENT GAS IN THE ATMOSPHERE

PLOT OOCO 0123 0121

0. 1250. 0. 23.

10% CO* 20% C02- LIVING ROOM CENTER (5 FT ABOVE FLCOR)

PERCENT GAS IN THE ATMOSPHERE

PLOT OCOO 0126 3128

0* 1250* Oo So 2% CO (5 FT UP), 5% CO (3 FT UP) - CORRIDOR SOUTH

SECONDS AFTER IGNITION

CORR SOUTH (5 FT)

SECONDS AFTER IGNITION

SECONDS AFTER IGNITICN

PERCENT GAS IN THE ATMOSPHERE SECONDS AFTER IGNITICN

B-21
EXAMPLE 5: THE USE OF SUBPROGRAM CONV FOR COMPLJCATEO DATA TRANSFORMATION

201: PLOT 0000 0135

202: 0* 1250* Oe D*

203: LOAD CELL

204: CRIB WEIGHT JN POUNDS SECONDS AFTER IGNITION

205: PLOT 0600 0306

206: 0* 1250* Oe 50o

207: BURN RATE IN GRAMS PER SECCND (13-SECOND INTERVAL)

208: GRAMS PER SECOND SECONDS AFTER IGNITION

209: PLOT 0000 0309

210: 0« 1250* Oe 50e

211: BURN RATE IN GRAMS PER SECOND (30-SECOND INTERVAL)

212: GRAMS PER SECOND SECONDS AFTER IGNITION

213: PLOT OOCO 0310

214: 0. 125C. 0. 50.

215: BURN RATE IN GRAMS PER SECOND (.60-SECOND INTERVAL)

216: GRAMS PER SECCND SECONDS AFTER IGNITION

217:

218: aCCPYiI 10.. REDUCED-DATA. TEST17

219: fflFIN

B-22
NBS-114A (REV. S-78)

U.S. DEPT. OF COMM. BIBLIOGRAPHIC DATA

SHEET

1. PUBLICATION OR REPORT NO. NBS Tech Note 1108

Z.Gov*t Aecesston No,

4. TITLE AND SUBTITLE

SPEED2, A Computer Program for the Reduction of Data

ff«n Automatic Data Acquisition Systems

7. AUTHOR(S)

Richard D. Peacock and John M. Smith

9. PERFORMING ORGANIZATION NAME AND ADDRESS

NATIONAL BUREAU OF STANDARDS

DEPARTMENT OF COMMERCE

WASHINGTON, DC 20234

12. SPONSORING ORGANIZATION NAME AND COMPLETE ADDRESS fSfreet. city. St^te. ziP)

9, ^ci|it^f$ Aec^^^foit No»

5. Publication Date September 1979

8. Performing Organ. Report No.

brk Unit No.

11. Contract/Grant No.

13. Type of Report & Period Covered Final

15. SUPPLEMENTARY NOTES

fxl Document describes a computer program; SF-185, FIPS Software Summary, is attached.

16. ABSTRACT (A 200-word or leas factual Biimmary of moat aignificant information. If document includes a significant bibliography or

literature aurvey, mention it here.) The voliaminous amount of data that can be collected by automatic data

acquisition systems requires the use of a digital computer for the reduction

of data. A general purpose computer program for the reduction of data collected by automatic data acquisition systems is presented. The program is

written with the ability to accept data from a number of different data acquisition systems, with the ability to check the correctness of data included.

Through the use of FORTRAN computer programming, the data can be converted to

meaningful scientific and engineering units. The data can then be presented

in tabular, printer plot or ink pen plot form.

The program is docvunented, and detailed instructions for 'its use, with

examples, are presented. The use of SPEED2 requires some knowledge of

FORTRAN programming language and the executive control language for the

computer system in use.

*'• KEY WORDS (six to twelve entries; alphabetical order; capitalize only the first letter of the first key word unless a proper name;

separated by semicolons)

Computer program; data reduction; data acquisition systems; plotting.

1«. AVAILABILITY [X] Unlimited

I I For Official Distribution. Do Not Release to NTIS

P^ Order From Sup. of Doc, U.S. Government Printing Office, Washington, DC

20402, SD Stock No. SN003-003-02112-1

CD Order From National Technical Information Service (NTIS), Springfield, VA. 22161

19. SECURITY CLASS

(THIS REPORT)

UNCLASSIFIED

20. SECURITY CLASS

(THIS PAGE)

UNCLASSIFIED

21. NO. OF

PRINTED PAGES

153

22. Price $4.75

USCOMM-DC
A typical plant can save about 20 percent of its fuel—just by installing waste heat recovery equip- ment. But with so much equipment on the market,

how do you decide what's right for you?

Find the answers to your problems in the Waste

Heat Management Guidebook, a new handbook

from the Commerce Department's National Bureau

of Standards and the Federal Energy Administration.

The Waste Heat Management Guidebook is designed to help you, the cost-conscious engineer or manager, learn how to capture and recycle heat

that is normally lost to the environment during in- dustrial and commercial processes.

The heart of the guidebook is 14 case studies of companies that have recently installed waste heat

recovery systems and profited. One of these applications may be right for you, but even if it doesn't

fit exactly, you'll find helpful approaches to solving

many waste heat recovery problems.

In addition to case studies, the guidebook contains

information on:

• sources and uses of waste heat • determining waste heat requirements

• economics of waste heat recovery • commercial options in waste heat recovery

equipment

• instrumentation • engineering data for waste heat recovery • assistance for designing and installing waste

heat systems

To order your copy of the Waste Heat Management

Guidebook, send $2.75 per copy (check or money

order) to Superintendent of Documents, U.S. Government Printing Office, Washington, D.C. 20402.

A discount of 25 percent is given on orders of 100

copies or more mailed to one address.

The Waste Heat Management Guidebook is part of ' the EPIC industrial energy management program

aimed at helping industry and commerce adjust to [ the increased cost and shortage of energy.

U.S. DEPARTMENT OF COMMERCE/National Bureau of Standards

FEDERAL ENERGY ADMINISTRATION/Energy Conservation and Environment

<rU.S. GOVERNMENT PRINTING OFFICEi 1 9 7 9- 2 8 1 " 6 7 / 2 2 £

f
There's

anew

look

/A ^^X7 IX ' * * ^^ monthly

y/^>^^^^x^ J / magazine of the NationJ^ ^^^^^1^'^/ *•' Bureau of Standards.

f ^^^^^ / Still featured are special ar- ^^^^0^^Y^

/

tides of general interest on

\^^ \ / current topics such as consum-

^\;>^y

/

^^ product safety and building ^^^^^''^ / technology. In addition^ new sections are designed to . . . PROVIDE

SCIENTISTS with illustrated discussions

of recent technical developments and

work in progress . . . INFORM INDUSTRIAL

MANAGERS of technology transfer activities in Federal and private labs. . . DESCRIBE TO MANUFACTURERS advances in the field of voluntary and

mandatory standards. The new DIMENSIONS/NBS also

carries complete listings of upcoming conferences to be

held at NBS and reports on all the latest NBS publications,

with information on how to order. Finally, each issue carries

a page of News Briefs, aimed at keeping scientist and consumer alike up to date on major developments at the Nation's physical sciences and measurement laboratory.

(please detach here) SUBSCRIPTION ORDER FORM

lEnter my Subscription To DIMENSIONS/NBS at S11.00. Add $2.75 for foreign mailing. No additional

jipostage is required for mailing within the United States or its possessions. Domestic remittances

Ijshould be made either by postal money order, express money order, or check. Foreign remittances

.'should be made either by international money order, draft on an American bank, or by UNESCO

(coupons.

li Send Subscription to:

D Remittance Enclosed (Make checks payable

to Superintendent of Documents)

D Charge to my Deposit Account No.

1 1 1 II

NAME-FIRST, LAST

1 1 1 1 i 1 1 1 1 1 1 1 1 1 1 1 1 1

1 1

1

COMPANY NAME OR ADDITIONAL ADDRESS LINE

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 III II

STREET ADDRESS

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 M 1 1 III I I I I !

I I

STATE

MAIL ORDER FORM TO:

Superintendent of Documents

Government Printing Office

Washington, D.C. 20402

PLEASE PRINT


W.s. o: ?VT OF COMMEUCE

':iAL BUS'NBSS

t^JU-