_2)i /

NBSiR 80-2102 SEP 1 6 1981 User's Manual for Factor-Jump

Thermogravimetry Apparatus, and

Associated Programs, Including A

General Plotting Program

B. Dickens

Polymer Science and Standards Division

Center for Materials Research

U.S. Department of Commerce

National Bureau of Standards

Washington, DC 20234

March 1981

U.S. DEPARTMENT OF COMMERCE

NATIONAL BUREAU OF STANDARDS
.1^
NBSIR 80-2102

USER'S MANUAL FOR FACTOR-JUMP

THERMOGRAVIMETRY APPARATUS, AND

ASSOCIATED PROGRAMS, INCLUDING A

GENERAL PLOTTING PROGRAM

B. Dickens

Polymer Science and Standards Division

Center for Materials Research

U.S. Department of Commerce

National Bureau of Standards

Washington, DC 20234

March 1981

U.S. DEPARTMENT OF COMMERCE, Malcolm Baldrige, Secretary

NATIONAL BUREAU OF STANDARDS, Ernest Ambler, Director
cors-oe W2Sii

qMUL-nOTDA^ no^ IM^AM a^f9380

QUA »8UTAflAq«!A YRT3MIVAROOMR3HT5

A DMIOUiOy!l ,3MAROOHq a3TA!0033A

MAftOORR DWITTOiR JAR3y!30 ?|.i

15

Tjfl

i'. naioKI^S v;jJ

*-'M m

taiM <ori«b2 io

, . T **fti^4f8naisM vA W7I

•nowmmoD k> TrwiHHt^tfO 8,U

»- stonmbrm^ k>

htSDt OQ notomHi

Ai

lA

* i

V.'J a

i\

fWr

;«ifl

It. ,y’

t>1L

y>a)«v>*3 ,«9ht>tft9 rriloolBM .3DR3MM00 ^0 1TV13MTRAR3Q *2.U

,l«klmA r»sm3 >20»A0I1AT2 ^^UA3flUt JAMOrrAbl

L ",

t SI

•> > ,<

'j vV., o

'Jtk
Table of Contents

page

Introduction 1

I . Apparatus Set-up 2

1.1 Rebooting the Computer Excecutive System 3

1.2 Turning on the Automation System and the

Thermogravimetry Apparatus 4

II. Factor-jump Experiments using TGRUNF ..... 13

II.l Detailed Procedure 13

III. Editing of Activation Energy File from TGRUNF : TGED I T ... 31

IV. Estimation of Average Activation Energy by Trimmed

Means: TGTRIM 34

V. General Calculation of Activation Energies from Rate

Data: TGDEPG - 35

VI. Generalized Polynomial Fitting: POLGEP 45

VII. Making Publication-Type Tables of Activation Energy

Data: TABLE? 46

VIII. General Program to Operate MIDAS Interface: BMPD .... 46

IX. Generalized Plotting Program for Versatec PrinterPlotter: PABS 46

References 49

Notes on the Program Appendices 51

Appendix A: TGRUNF: example of use, program listings, and

assembly procedure

Appendix B: TGEDIT: example of use, program listings, and

assembly procedure

Appendix C: TGTRIM: example of use, program listings, and

assembly procedure

Appendix. D: TGDEPG: example of use, program listings, and

assembly procedure

Appendix E: POLGEP: example of use, program listings, and

assembly procedures

9 ii
TABLER

example of use, program listings, and

assembly procedure

I Appendix F:

Appendix G:

Appendix H:

Appendix I

Appendix J

BMPD: example of use and program listing

PABS : example of use, program listings, and

assembly procedure

Cautionary remarks

Cable diagrams for interface

I

^1
TABLES

1. Initialization of interface using BMPD and BASIC 6

2 . MIDAS commands 8

3a Set-up of TGRUNF from flexible disc 9

3b Set-up of TGRUNF from rigid disc 9

4 Initialization of program parameters using

subroutine PRIME 16

5 Assignment of controlling values for TGRUNF

program . 18

6 Typical choice of controlling values for TGRUNF

program 19

7 Specification of starting values and maximum values

of temperature, pressure, and the flow rates 20

8 Ratio in rates for various values of E, AT and T 22

9 Build-up of design matrix in TGRUNF program 24

10 Entering steadiness checks choice into TGRUNF

program 25

11 Procedure for testing factor responses in

TGRUNF 26

12 Output of factor response checking routine in

TGRUNF 27

13 Initialization of TGRUNF routine to determine

bias voltages 29

14 Determination of bias voltage 30

15 Initialization of interface using commands

transmitted by TGRUNF then return to beginning

of TGRUNF program 32

16 Initialization of MIDAS, specification of sample

weight and bake-out parameters 33

%

iv
Figure

1 Outlier rejection for a normal distribution 40
Introduction

A scheme for automation for thermogravimetry was

described initially by Dickens, Pummer and Flynn [1] and

then further by Dickens [2]

The performance of the apparatus is detailed by Dickens in references [2] and [3]

The apparatus includes a minicomputer which directs the

course of the experiment. The computer programs were

described initially in reference [4] and in more detail in

reference [5]The present report describes the operation

of the automated equipment in minute detail. Several

computer programs have been written to collect data using

the automated thermogravimetry apparatus, to process thermogravimetric data, and to plot the results. Their operation

and/ to some extent, their philosophies, are described

here

These programs are:

1. Factor-jump thermogravimetry: TGRUNF.

2. Editing of thermogravimetric results: TGEDIT.

3. Calculation of trimmed means: TGTRIM.

4. General calculation of activation energies from

rate data, provide normal probability plots: ^ TGDEPG

5. Examination of the trend of activation energies

with time, extent of reaction, or sample weight

(actually a generalized polynomial fitting program)

POLGEP. . ,

6. Make publication- type tables of activation energy

data : TABLEP

7. General program to operate interface so that

non-routine operations can be easily carried out:

BMDP.

8. Generalized plotting program for Versatec printerplotter: PABS.

TGRUNF is a FORTRAN system of overlays which operates

the thermogravimetry apparatus while running on an attached

minicomputer. It collects data and provides a real-time

calculation of activation energies using only one sample.

Typically, 10 to 25 activation energies are obtained per

experiment.

TGEDIT uses cut-off limits input by the operator to

edit the output file from TGRUNF. Activation energies are

1
discarded if the associated data do not exceed the chosen

threshold values. The program also discards those parts of

the data which fall outside the desired limits of degree of

conversion (extent of reaction) and temperature.

TGTRIM is a FORTRAN program (in overlay form) which

reads the edited output file of TGRUNF. The program places

the activation energies in ascending numerical order and

then computes the weighted and unweighted average activation

energy as up to two-thirds of the outer values are chopped

off.

TGDEPG is a data processing program (written in FORTRAN)

which uses rate data and thermocouple emfs to calculate

activation energies. Input data and activation energies

are subjected to critical examination.

POLGEP is a FORTRAN program which reads data in almost

any format (it may have trouble if there are alphabetic

words among the data it reads in) and fits a polynomial of

user-chosen degree to the data. The polynomial and its

derivative can be evaluated at points specified by the

user.

TABLEP is a FORTRAN program which reads the 'save

file’ of TGRUNF and provides a ready- for-publication type

table.

BMDP is a BASIC program which allows the operator to

set modules in the MIDAS interface by direct commands or

from a previously made file on disc, and to read specified

voltages available at the analog scanner for a specified

number of times with a user-chosen time delay between

readings

PABS is a FORTRAN program which uses the VERSATEC

plotting software and plotter to plot information selected

under user control from files in more or less any (repetitive) format.

I . Apparatus Set-Up

The following procedure is intended to be an exhaustive

checklist to enable the user to progress from a completely

shutdown apparatus to data collection. Some items need not

be performed by the user if the apparatus is already

switched on and has not been disturbed since the normal

termination of a successful run. In that case, go to step

I. 11 or 1.12.

2
1. I . 1 ; Rebooting the Computer Executive System

’ Turn on CRT terminal (switch at rear). Ensure that

the keyboard is in "remote" with the "ttY" button (top

row) depressed, and that it is not in "shift lock"

mode

2. Open doors on all drives of flexible discs.

3. Turn on flexible disc controller (switch at rear).

4. Turn on computer (key at right side -of push-button

panel )

5. Put disc with FLOXOS system on it in unit 0 with the

slot in the disc cover to the rear. Both sides of the

disc contain the same information.

6. Using the sequence: "DTA, characters for address, ADD,

DTA, characters for contents, WRT", on the hexadecimal

panel, enter the bootstrap loader:

DTA, ADD and WRT are buttons on the panel. The address

contents are numbers given in base 16, where A^e 10

and Fi 6 = l^io'- The computer is now ready to load the

operating system into its' memory from the disc in

drive 0

7. Flip the IPL switch on the lower front left of the

disc controller. The red select light should go to

drive 0. If it does not, try two or three times, then

try with another system disc or dial another drive to

be drive 0. Take care not to have two drives dialed

to the same number. The disc drive assignments are

changed using the thumbwheels at the front left. (It

is rare indeed that you cannot read in the system from

one of the discs on one of the drives. If all else

fails, the disc ensemble may need service.

)

8. Perform "DTA, 50, ADD" on the hexadecimal panel to

enter the starting address of 50 for the boot strap

program (i.e., it starts from the instruction given in

address 50 in the computer).

9. Press RUN on the hexadecimal panel.

ADDRESS CONTENTS

0050

0052

0054

0056

0078

D500

OOCF

4300

0080

16C1

3
10. Flip the IPL switch on the disc controller. The

executive system should read into the computer.

*FLOXOS or *FLOXOS-R7.1 SYS-28 should appear on the

CRT. When this fails to occur, try another disc in

the drive, or the disc in another drive, which is then

dialed to be drive zero.

11. Pressing "carriage return" on the CRT keyboard and

getting the reply

* -p *

is a useful testing of successful loading. The commands

required to use the operating system are given in the

FLOXOS manual[6]. (Not FLOS, which- is an old version

of FLOXOS :

)

12. If you are starting with the computer already running,

remove old file assignments the safe way by typing the

following list (after pressing "INI" if necessary to

get back to the operating system):

*CH FO

*CH FI

*CH F2

*CH F3

*CH DO

*CH D1

*ZU

The F means flexible disc and the number corresponds

to the digit dialed on the thumbwheel switch for each

drive. The D means rigid disc; DO is the removable

one, D1 is fixed. The operating system provides the * as a prompting character.

1.2: Turning on the Automation System and the

Thermogravimetry Apparatus

1. Power must be supplied to both the power supply used

for the photocell in the electrobalance and to the

electrobalance itself. These supplies are usually

left switched on.

2. If necessary, attach the small power plug to the

housing of the electrobalance on the Dupont 951 thermobalance. The bulb illuminating the photocell must

light up (the light can be seen through the glass

envelope). Unsteadiness of > 20 pV in the weight

reading when the electrobalance is completely assembled

is usually an indication that the contact between the

4
bulb and the bulb housing must be improved by sandpapering the bulb base. Normally the balance is steady

to 1-2 mV.

3. Check that the FAN and DERIVATIVE switches on the

electrobalance console are turned to OFF. You may

wish to check that power is indeed being supplied to

the body of the electrobalance by momentarily turning

the fan on.

4. Make sure that the ice point reference cell is switched

on, or, if you are using ice in a dev;ar, that the

dewar is completely filled with ice and the thermocouple is in the middle of a tightly packed mass of

crushed ice and water.

5. Turn on the MIDAS interface (switch on front left).

The various outputs of the interface will be in a

random state. Do not switch on the recipients of the

control voltages yet (i.e., the flow controller,

temperature controller, and pressure controller).

Press the ''clear" button on the front right of the

interface if the error light is on.

.6. Switch on the DANA 5900 digital voltmeter. Turn the

range switch to "auto". (If "NO" is in the digital

display, the voltmeter is not set to a high enough

range .

)

7. At this point, the MIDAS modules must be initialized.

Although this could be done by attaching the CRT to

the MIDAS cable, it is more convenient to do it with

the programs BMPD (step 8) or TGRtJNF (step 9).

8. To find the BMPD program (refer to table 1), type AC

BMPD,2D1^ on the CRT. ^ means carriage return.

Assign the usual output from the program to a writeonly unit by typing AS 700. Then type DO MIDAS, Dlj^ , (To erase the line when typing on the CRT, type #

(shift 3). To erase the latest unerased character,

type - (shift 0).)

When the light has stopped flashing on the disc drive

and BASIC has appeared on the CRT, type LOAD 2 ^ and

wait until BASIC reappears. Then type RUN, and answer

the question about title with a carriage return. When

you get the question about setting MIDAS, answer

KOMPOIODO : 0 ; GO : 0 ;

• This will set all digital-to-analog converters to 0 V

dc output and will display the electrobalance reading

on the digital voltraeter. (A list of the MIDAS com9 5
Table 1. Initiation of interface using BMPD and BASIC

(User input is underlined.

)

Kas-zesL

BMPD. 2D 1 ->4JD0 MIIWSJU

3572

END 2SS2

BIAS 38B2

BASIC C3-04

LOAD 2 •

• gA^Tc" 03-04

Eyii

GIVE TITLE

INITIALISE INTERFACE USIA'G F.riFT) AND BAS IC .TNTERFRTER

JnITIALISE 'interface using EriPD AND BASIC INTERPRETER

SET INITIAL CONDITIONS, Y OR N?

Y

GIVE COMMAND

D0:0;G0:0;

SET IMITfAL CONDITIONS, Y OR N?

iL

GIVE INPUT TO BE READ, FINISH UITH -1

£. (TO STOP PROGRAM ON ILLEGAL INPUT)

IN-ERR 590

PAUSE

%

^

6
mands appropriate to the thermogravimetry apparatus is

given in table 2 . ) You may proceed to switching on

the rest of the apparatus (step 11). If you have not

given the illegal input described in table 1, the

program will remain in a state where it can transmit

commands to MIDAS. Later you can either press "INI”

or enter the illegal output to return to the FLOXOS

system, which allows you to run a different program.

9. To use the TGRUNF program to initialise the apparatus,

first decide whether to use flexible discs or the

rigid disc. The rigid disc is prefexable.

The programs which collect data and the raw unedited

data files are usually kept on the fixed rigid disc

D1 . Typing LI Dl^^ will give a listing on the CRT of

the files on disc D1 , but it will be hard to read

because it goes by so quickly. A better way is to

turn on the printer, and then type AS 36:^ and LI

3D1^ . This will produce a listing on the printer.

Verify that the files TGMAIN and BMPD are on the fixed

disc. If they are, go to step 9(c).. If they are not,

they will have to be copied on to it from the appropriate removable rigid disc (TGRUNF) as in 9(a). The

removable disc is usually reserved for edited data

files and for the programs which perform editing and

other calculations on the data. Look in the rigid

disc file for the number of the appropriate disc.

9a. To change the removable rigid disc, switch the drive

to "OFF" if it is on and wait until the lights to out

(about 60 s) before installing a new disc. Follow the

procedure on pp . 2 to 8 in the manual "Control Data

Cartridge Disk Drive, model 9427H", to install the

disc in its drive. Switch the unit on and wait for

the 'ready' light to go on (this takes about 60 s).

The removable rigid disc is referred to as unit DO,

the fixed rigid disc as unit D1 . Type DO COPYTG,DO^

on the CRT. When this procedure is finished, install

the TGPROC disc as the removable disc. Type DO

SETTG,D1J to assign the needed files and then go to

9c.

9b. To use flexible discs, put the TGRUNF flexible disc in

flexible disc drive 1 and a TGS flexible disc in

drive 2. Use the appropriate disc for the material

you are giving to degrade i.e., keep all files for a

given material on the same disc. Type DO SETUP, 2F1^

on the CRT (refer to table 3). Turn on the VERSATEC

printer (knob at top right).

7
Table 2 . MIDAS Commands

Reset -> /

Begin commands -> #

Set desired pressure D _ _ _ (in Torr)

Set desired temperature ^ D _ _ _

9999 = 40 mV (thermocouple emf)

Set flow N

2

G _ _ _

5000 = 500 scc/min N2

Set flow ©2 ^ G _ _ _

5000 = 200 scc/min 02

Set time interval ^ IT _ _ *R

(switch on clock module set to "interval")

Set time ^IT______R

hr min s Read time ^ IQ:;<=>?R (output is hr, min, s as a 6 digit number)

Set voltage to be measured ^ K _

0 = electrobalance 1 = thermocouple 2 = pressure 3 = N

2

flow

specification

4 = O

2

flow specification 5 = actual N

2

flow 6 = actual 0

^ flow

Set DVM, read voltage ^ MP_?A*T*U _

= 0 means no control _

= 3 means program control

? = 0 means no filter

? = 1 means use filter

A = 3 means use 0.1 V scale

A = 4 means use 1. V scale

A = 5 means use 10 V scale

Literals (i.e., CR, LF and titles) are rarely necessary, but are

entered after a $ sign.

8
Table 3a. Setup of TGRUNF from flexible disc.

User input is underlined.

SETTG.JE1

LU PU NAME

1 F2 NFILED

3 62

6 00

7 00

B FI TGSEET..

C FI TGFACT

D FI- TGPLAT

E FI TGPREC

F FI TGSTAT

ASSIGN SAVE FOR E'S (6) AND PARAMETERS (9) THEN TYPE

? »Al PE04yg_^6F2.2.80

»AC PE5AVE.9 f£"

"

>KRIJN TGMAIN.Fj,

'TK^'TTTle

'RUN TGMAIN^Fr

Table 3b. Setup of TGRUNF from rigid disc.

User input is underlined.

lCi PU’ NAr-iE

1 D1 NFILED

2 62

3 D1 PRINT

6 00

7 00

9 D1 NFILEC

B D1 TGSETU

C D1 TGFACT

D D1 TGPLAT

E D1 TGPREC

F D1 TGSTAT

ASSIGN SAVE FILE FOR E'S (F) ANB PARAMETERS (9) THEN TYPE 'RUN TGMAIN,D1'

7 »AL PE82V2, EDI .1.80

»AC PESAVE.9D1

GIVE TITLE

FACTOR JUMP THERMOGRAVIMTERY FOR PE IN VACUUM PRESS< 10 MICRONS

YEARE~Dr-GRACE--l EFS-lTD — —

9
9c. Next to the * displayed on the CRT, type RUN TGMAIN,XJQ

where XX = FI (flexible discs) or D1 (rigid discs).

(Note: from here on, the carriage return will be

omitted. However information is not sent from the

CRT to the computer until the carriage return is

typed, so all lines must end with a carriage return).

Answer ^ to all questions until you get to "SET MIDAS,

Y or N?". Answer Y. Then type in KOMPOIODO :D0;G0 :G0;

This will set all digital-to-analog converters to 0 V dc

output and will display the electrobalance reading on

the digital voltmeter. (A list of the MIDAS commands

appropriate to the thermogravimetry apparatus is given

in table 2 .

)

You may leave the program in this state for the time

being. Later, you will type N to exit from the MIDAS

setting routine and then will type. B in answer to the

question "FORWARD or BACK, F or B?". This will take

you back to input of the title for the run.

10. NOTE: Programs can be interrupted catastrophically

(i.e., the program must be read into the computer

again before it can be rerun) hy pressing "INI" on the

hexadecimal keyboard on the computer. After pressing

"INI", it is a good idea to type *SM 0 to zero the

available computer memory. Programs can be interrupted

more gently by typing @ when the program is "busy" on

some calculation (but not when it is expecting input

from you, because @ would then be read as an item of

data and would surely give a FORMAT ERROR, and not

when a new par-t of the program is being read from a flexible disc). The program can then be continued by

typing *CO. BASIC programs (such as BMPD) in the

process of calculation can also be interrupted by

hitting the "ESCAPE" key on the right hand side of the

CRT keyboard. TGRUNF is a FORTRAN program; hit @

rather than ESCAPE to stop it.

11. Turn on the L/N Electromax III controller (switch on

front left) . Room temperature in the furnace and 0 °C

in the ice-point reference cell will give an on-scale

deviation to the right. Deviation to the left means

the system will heat up if the power supply is switched

on, and at this stage means a malfunction somewhere

since the MIDAS system should have been initialized to

a programmed temperature of 0 °C.

12. If it is warranted by the results of step 11, turn on

the'Kepco power supply, which supplies power to the

furnace as directed by the L/N Electromax III controller. The Kepco meters should show zero output.

10
13. If you are going to control the pressure, turn on the

MKS pressure measuring system (switch at left front).

The pressure will probably read near to 760.

14. If the exhaust valve and gas flow are going to be

used, attach the flow controller to the end of the

silvered furnace manifold, then turn on the Granville

Phillips automatic pressure controller by depressing

its power switch. The valve should automatically go

to "OPEN." If the run is to be in vacuum, do not

switch on the pressure measuring system or the pressure

controller. Attach the pump assembly to the furnace

manifold. If vacuum is currently being applied to the

apparatus, you will have to open one of the valves to

release it. Note 1: Runs can be conducted in air

simply by leaving the upstream end of the silvered

manifold open. Note 2: The pressure controller/

exhaust valve combination cannot handle temperatures

> 410 °C. Cooling of gas in the side arm sets up

oscillations which the controller is unable to overcome.

These temperatures can be used, however, for pressures

greater than atmospheric, if the gas flow is bubbled

through a glass tube in a cylinder of mercury to give

the required pressure. In this case, the exhaust

valve is not used.

15. Turn on the flow controller if gas flows are needed.

Use the front panel channel switch and the digital

display (which should show zero output) to examine the

output of each channel at this time. The displays

give percentage of maximum capacity (500 scc/min N2 on

channel 1; 200 scc/min O2 on channel 2).

16. Turn the electrobalance time constant to 1 s

.

17. If the initialization process v/as successful, the DVM

should now be displaying the electrobalance signal.

If it is not, sending the command KOMPOlO via the CRT

is the way to proceed, provided the program is still

in a state where it will accept MIDAS commands. If

, necessary, rerun BMPD or TGRUNF and display the

electrobalance signal on the DVM*. If the pressure is

*There has been a history (now apparently corrected satisfactorily) of the DVM refusing to display the voltage

applied while functioning satisfactorily in remote control.

If this is the case, enter MT several times on the CRT as a command to MIDAS to trigger the DVM to take a reading, or,

better, use a portable DVM to read the voltage at the input

to the interface DVM.

11
less than 650 mm Hg, open a valve to the atmosphere

to equilibrate the pressures inside and out. Place an

empty pan on the balance arm or, better, use the arm

with the quartz cup, and adjust the balance to -0.170 V

by turning the "SUPPRESSION" knob on the front panel

and changing riders on the rear of the balance arm

(rarely necessary). Keep the total load on the balance

< 0.5 g. The DVM on its most sensitive scale will

read voltages between ± 0.16 V to 1 |jV.

18. Place 10 to 20 mg of sample in the cup on the balance

arm. Because 1 mg is equivalent to 20 mV, this means

adding sample to the cup until the voltmeter changes

from -0.17 V to between +0.03 V and +0.23 V.

0.23 V seems to work well. If you have decided to use

more sample than this, it may be necessary to adjust

the suppression so that the weight can be read on the

most sensitive DVM scale for the most important part

of the degradation process. (TCranspose the weight of

the empty pan accordingly.) The TGRUNF program. will

automatically select the appropriate DVM scale to read

the sample weight. Note that, as a safety measure,

the program will unconditionally stop when . the voltage

corresponding to the sample weight reaches -0.158 V.

The small amount of sample between -0.158 V and -0.170 V

is usually not worth studying, being the residual of

degradation at the 90 to 95 percent stage. Smooth out

the grease on the end of the furnace manifold and

attach the reaction manifold to the balance housing.

19. Turn the electrobalance time constant to 5 s.

20. If a gas flow is to be used, check the gas cylinders

for adequate back-up pressure and the drying tubes for

further life. Turn the valves to give 10 psi in the

lines to the flow controller.

21. If the exhaust valve is to be used, consider filling

the traps which would protect the valve from contamination. The exhaust may be connected to the house

vacuum or to a vacuum pump by choosing the appropriate

position on the rear stop cock of the exhaust system.

The pump is probably the safer choice.

22. It is a good idea to check the reaction manifold for

tightness and remove the air inside, even when using a

flow of gas, by pumping the system down to a vacuum

using the vacuum pump. (You will have to set the

exhaust stop cocks appropriately to do this if you

later intend to use a gas flow. Direct the flow to

the top manifold in this case.) Leaks are usually at

the furnace manifold-balance housing junction. Leaks

12
exist if the pyrex reaction manifold is not perpendicular to the balance housing, if the 0-ring is dirty,

and perhaps if the swagelok system at the rear of the

flow controller has been jarred. Establish to your

satisfaction that the system is sufficiently leak

tight (< 25 pm Hg? ) by watching the rate of pressure

increase when the pump is not connected with the

system.

23. If vacuum is not the reaction condition, and you are

using the exhaust valve rather than the mercury level

to control the pressure, push the "CONTROL" switch on

the pressure controller, set the rate knob to "MANUAL"

and the "DAMPING" knob to "10." The reference knob

should already be set to 0.6, and the range knob to

"10 V." Turn the manual knob to "OPEN" to open the

valve. The "OPEN" light flashes when the valve is

fully open. Reset the stop cocks so that the line is

open to the pump or house vacuum. If 100 percent N2 is the reaction condition, turn off the valve at the

top of the oxygen tank and use "D5000"; as a MIDAS

command to open the O2 channel flow control valve so

that the O2 line will be pumped out.

II. Factor- Jump Experiments Using TGRUNF

The factor- jump method. [5,7] calculates activation

energies using one sample and a series of short isothermal

plateaus. The procedure has been programmed in FORTRAN as

the program TGRUNF, which is a series of overlays. This

program has been described briefly in references [4] and [5].

Reference [3] describes some considerations associated with

successful running of TGRUNF and provides preliminary

results on several polymers

.

The following paragraphs describe the input to the

program. Many of the considerations involved in choosing

suitable values for the input are given in reference [3].

The remainder are given here. Examples of inputs and

outputs are dotted throughout the text. For more detail,

refer to the program listing in Appendix A. If TGRUNF is

already available in the computer because of the set-up

procedure given above, answer the question about input of

MIDAS commands with N and reply with B to the question

about whether you want to go forward or back to the beginning of the program. Then continue at step 7 below.

II.l Detailed Procedure

[Assuming computer operating system- is running.]

1. Place the overlay disc TGRUNF into disc drive 1 if you

are using flexible discs. Ensure the TGRUNF rigid

13
disc files are available on the fixed disc if you are

going to use the rigid disc (this is the more reliable

mode of operation). See Section 1.9(a).

2. Press "INI" on the hexadecimal panel to return to the

FLOXOS executive system. J FLOXOS should print on the

CRT. Consult section I.l if pressing INI fails.

3. If you are using the flexible discs, you will need a second disc for the output Save file. This second

disc also provides space for the initial parameters

(NFILEC) and for temporary storage o'f data (NFILED).

Put the appropriate disc in unit 2. Refer to Appendix A

if you have to generate a new disc.

In the case of the rigid disc, there is sufficient

space to keep all this information and the programs on

the one disc.

4. Type DO SETTG,XX where XX=F1 for the flexible disc and

D1 for the rigid disc. Refer to table 3. Successful

execution of these commands returns * to the CRT.

5. After * is printed on the CRT,* make any needed assignments for' the following files:

3 = permanent record of progress of run, If you are

using the rigid discs, this has already been assigned

automatically to the rigid disc as file PRINT. If you

are using the flexible discs, you may wish to assign

it to a disc file on a flexible disc, probably in

drive 0 (e.g.,’AC TGDAT1,3F0). If you use a flexible

disc file, you will need to have the whole disc available. Also, it will be touch and go as to whether the

sample or the disc space v/ill be used up first. With

the rigid disc there is plenty of space to assign the

needed 75 to 100 cylinders. You may also assign the

print file to the printer using AS 362, but this is

not recommended because 8 s are wasted betv/een data

points waiting for the developer in the printer to

pump up. The rigid disc is definitely the best choice.

6 = output of activation energy data; energy, sigma(E),

sample weight, rates of weight loss, temperatures,

etc. The usual procedures for this are; (a) to use a

file named with an initial letter code for the substance, then either the month, day, year, or the

reaction conditions and run number, e.g., M63077 or

MVAC5. The latter designation is probably better,

e.g., AL MVAC5 , 6XX, 2 , 80 allocates (creates) a file

called MVAC5 of line length 80 characters, and two

cylinders long (which should be adequate) on disc

14
drive XX (F2 for flexible disc, D1 for rigid disc).

Note that all file names must be six characters or

less. (See the Cautionary Remarks Appendix in this

report and the FLOXOS write up for explanations of AL

and AC, etc.) Two cylinders will hold 96 lines of

output on the flexible disc, three times that amount

on the rigid disc. Three overflow cylinders are

automatically provided. Each activation energy and

its associated data such as temperatures and rates

take five lines. The title to the file takes two

lines. This size file is almost always adequate in

size

7 = file to log rav; data for later reprocessing,

rarely used.

6. After assignments in 5 have been made, type LU, affirm

that file assignments are similar to those in table 3

(with 6 and 9 included), . then type RUN TGMAIN,XX where

XX=F2 or Dl.

7. When prompted by the program, enter the title of the

experiment via the CRT.

8. Complete the choice of control parameters. The uses

of the various parameters are indicated in table 4.

NOTE: The program onlg calculates activation energies

when the temperature has been measured. It tests for

input 1; therefore, always assign temperature to input 1

and the sample weight to input 0. . The choice of a typical parameter block is given in

tables 5 and 6. File 9 is assigned automatically in

SETTG to be file NFILEC on drive F2 or Dl . If you did

not assign save files and print units because you were

merely initializing the system, you may assign them

when the program returns to the executive program to

allow specification of the save file for the parameters.

The file assignment commands are given in I I. 5 above.

9. Choose initial levels, P^, and maximum values for each

of the four factors (temperature, pressure, flow- of

N2 , flow of O2 ) . Typical values and the method of

inputting them are shown in table 7. The values to

use are discussed below.

9a. Temperature: The ideal starting temperature is one at

which the sample will lose weight at a rate betv;een

15 and 40 to 60 pV/s. This obviously depends on the

sample size. The ideal temperature difference to use

' between adjacent temperature plateaus depends on

keeping both rates of weight loss in the range 15 and

15
Table 4. Initialization of Program Parameters

Using Subroutine Prime

Requires N, I and VALUE in (213, FIO.O).

1 .e. N

-- right justi f ied to column 3. no decimal point

I — right justi ficd to column 6, no deci.'.wl point VALUE! -- between coluir.ns 7 and 16 inclusive, include decimal point

To Cfianqe Ji X Value Details

NTHCP 1 0 I or K -Specify thermocouple tyce. TSCALE 2 0 -Specify scale to apoly to bring

•

DAC voltage into correspondence

with thermocouple voltage at temperature controller.

SKIP 3 0 30 to 120 -time in seccncs to «ait between

sets of readings, i.e., read

weight every "sKip" seconds.

FACTOR 4 1 to 8 order -Specify oncer in which inputs

• on analog scanner are to be read as factors.

FACFU.’l 5 1 to 8 0 -Raw reading, r, untransformed.

1 -Use log (r) 2 -Use r^.

3 -Use 1/r. DERIVS 6 1 to 8 0 -No derivative for the Ith factor

1 -Calculate derivative and

- check precision for Ich factor.

INPUTS 7 1 to 8 input -Specify which inputs on

nuciber on analog scanner are to oe read. scanner

SCALES 8 1 to 8 seal e -Scale to be applied to voltage

factor reading on input to put it in appropriate physical units

HR/UJ&E 9 1 to S 3 -Use C.lv scale on uiW for reading this factor (DVM will over-range to 0.16 v;

4 -use Iv scale

5 -Use lOv scale NREADS 10 1 to 8 >1 Number of individual readings

of an input to be taken in succession (without waiting

"skip" seconds) and averagea

together to give "reading"

and its estimated standard

deviation.

NTERiiS n 1 to 8 0 to 5 -Nuniber of terms to use in polynomial which is tp be fitted to the 1th factor.

CHI TEST 12 1 to 8 -Target value in chi square test for Ith factor. PTIMES 13 1 to 8 -Maximum time allowed for a factor

to steady down after charge.

PRECF 14 1 to 8 -Target precision for factor

extrapolation.

PRECR 15 1 to 8 • -Target precisions for rate

ClFACTS extrapolations.

16 0 >1 -Number cf factors to be measured

in this experiment.

HRATES 17 0 -Number of rates to be considered.

TJMLIi-1 18 0 .>0 -Maximum time allowed ror Bieasurement of any one plateau.

16
BAD PTS 19

EQUIL 20

CHECKS 21

ENDSIG 22

RATMIN 23

RATMA^X 24

TJUMP 25

1/0 UNITS

25

- 2728

29

3D

3132

33

Hi 34 PRECE 35

0

0 >0 -Maximum number of data points

to throw away before resetting

steadiness indicators.

0

• >0 -Time in seconds to allow after

resetting of factors before oata are measured.

0 >0 -Number of data points between

checks of currently attained

precision.

•Hinimum nurr.ber of standard

deviations adjacent readings must differ by if exoeriment

Is not to be termnateo (tests

for whether sone sample is still left).

-Minimum value of rate of weight

less to allow. Failure of this test increases the temperature

unconditionally b.y TJU.’-'.?. '-Maximum value of rate of weight

loss to allow. Failure here

unconditionally decreases tne temperature by TJUMP. -Number of cec’-ees tc jump temp- erature by uncondi tior.al ly 'when

. so 'indicated by Rniillh and RATltA tests.

0 0 to 15 -Assign logical units in program

to actual peripherals on compute

-Input from; user -Program instructions to user -Print file.

-(Disc) fil e for buffered experimental cerely data (for later

processing; tnis if^used.) -User console (for duplicate of

print file)

. -Unit tp save initalized para- meters cn^(Disc) file for

data transfers between

subroutines

-SurTdTiary of activation energy

determinations.

1 to 5 -Exponents of polynomial.

>0 -Target precision for activation

energy.

0

' -input required to stop initialization procedure.

1 to 5 0

0

17
Table 5. Assignment of Controlling

Values for TGRUNF Program.

(Dialogue on terminal; user input is underlined.)

RERD PRPRMETERS FPDM SRVE FILE?

0=HD> 1=VES!. GIVE IH II FDPMRT

GIVE FILE HUMBER IN I£ FDPMRT

PRDGRRM l.iILL THEM PfiUvE^ GIVE CDHTIHUE I.IHEM RERnV

FILE MILL BE REMDUMB FIRST

'

9^ PRUSE 5

PRUSE

»CD file assignments can be changed here if , necessary

PRRRMETERS INITIRLISEIi R S FDLLDMS ! NTHOP = E TSCRLE = £^3.73 SKIP= 30.

FfiCTDRS = 1 £ 0 0 0 0 0 0

FfiCFUN = 0 0 0 0 0 0 0 0

I'ERIVS = 1 0 0 0 0 0 0 0

INPUTS = 0 1 •£ 3 4 5 6 f SCRLES = 1.000 1.000 0. 010 1 . 0 0 0 1 . 0 0 0 1 . 00 0 1 . 0 0 0 1 . 0 0 0

HRRNGE = 3 3 5 5 5 5 5 5

NRERBS = 3 3 3 3 3 3 3 3

NTERMS = £ 1 0 0 0 0 0 0

CHI TEST= £ 0 0 0 . 1 0 0 01 0 0 0

1 0 0 01 0 0 0 . 1 0 0 01 0 0 01 0 0 0

PTIMES = 300. 0 300.

30 0. 0 300. 0 30 0. 0 300. 0 300. 0 300. 0

PRECF = 1 0 0 , 0 0 1 0 0 . 0 0 1 0 0 . 0 0 1 00. 0 0 1 0 0 . 0 0 1 0 0 . 0 0 1 0 0 . Cl 0 1 0 0 . 0 0

PRECR = 30. 0 0 30. 0 0 30. 0 0 30. 0 0 3 0. 0 0 30. 0 0 3 0. 0 0 30. 0 0

NFRCTS = £ NRRTES = 1 TIMLIM C- 00. BRB PTS = 3 EQUIL = £ 0 0

CHECKS = 75 END SIG = 5.0 RRTMIN = 1£.5 RRTMRX = 4 0. 0 TJUMP

TC TD II = 0.17 0£3E- 0

-0. 3'£03 7 E ~ 0 6 0. 54S03E-1

~ 0 . 5 1 t* 70E-16

ID UNITS= 5 5 o 7 8 1 6

PDLNDM ERR= 1 £ 3 4 5

PRECISION IN E ACT = £5 . 0 0

I'D YOU MRMT TD CHRHGE RMV CDNTRDL PRRRMETERS?

IF hdtj give prrrmeter df zero

IF SO 5 EHTER PRRRMETER HUMBER^ ELEMENT IN PRRRMETER RkPRY-.

HEM VRLUE IiL IS? I3> F7.

FDPMRT

INTEGER VRLUES MILL BE INTEGER I SElG GIVE NEM VRLUE MITH

HECIMRL POINT

13 3 9?999.

EFvR 03 3 033 (See Note belo\\r.)

RNDTHER CHRNGE?

0

Note: This error message was generated because the program converts

the third quantity in the line into an integer. 99999 is greater

than the maximum integer allox-jed, but will be used in fact only

•a's floating point. The message may be ignored in such cases.

18
Table 6. Typical Choice of Controlling

Values for TGRUNF Program.

(Dialogue on terminal; user input underlined.)

TEST OF RESPON 2. ElfiSVL ROUTINES S^'4/?7 RESPONSE TIMES hND ElfiS

VDLTfibES UILL EE DETERMINED ‘

TYPE E THERMDCOUPLE=NI-CF>-CLi-NI T EXPRESSIONS GOOD

FROM ~U. U5 TO +U. u4j u TO 4ULi DEbPEEi u, '%TRELE fiS. c!, S? P. 3u7

NES MONOGRRPH 1 £5 . 1 R74::'

OUTPUT PRRRMETERS ON SRVE FILE

0=MO»1=YESj in II FORMRT 'yes’ would return control to

0 executive program and v/ould allow

reassignment of files if required.

PfiRRMETERS INITIALISED RS FOLLOUI •r** • NTHCP = E TSCALE = £43 . 73 SKIP= 30.

FACTORS = 1 2 0. 0 0 0 0 0

FRCFUN = 0 0 0 0 0 0 0 0

EERIVS = 1 0 0 0 0 0 0 0

INPUTS = 0 1 2

•ow . 4 5 6 7

SCALES = 1. 00 0 1 . 0 0 0 0. 01 0 1 . 0 0 0 1 . 0 0 0 1 . 0 0 0 1 . 0 0 0 1 . 0 0 0

MRRNGE = ^ 3 3 5 5 .5 5

cr 5

NRERDS = 3 3 3 3 3 3 3

•o NTERMS = 2 1 0 0 0 0 0 0

CHI TEST= £ 0 0 0 . 1000. 99999. 1 0 0 0 . 1 0 0 0 . 1 0 0 0 . 1 0 0 0 . 1 0 0 0 . PTIMES = 3 0 0. 0 3 0 0 . p 300. 0 300. 0 3 00. 0 300. 0 3 0 0 . 0 3 0 0 . 0

PRECF = 1 0 0 . 0 0 1 0 0 . 0 0 1 0 0 . 0 0 1 0.0 , 0 0 1 0 0. 00 1 00. 00 1 ij 0

.

0 0 1 0 0 . 0 0

PRECR = 30. 00 30. 0 0 3 0. 0 0 30. 0 0 30. 0 0 3 0. 0 0 3 0

.

0 1 j 3 0 . 0 0

NFRCTS = £ NRRTES = 1 TIMLIM = -5 0 0 . ERD PTS = 3 EG UIL = £0 0.

CHECKS = 75 END SIG = 5.0 RRTMIN = 12.5 RRTMRX = 4 0 . 0 TJUMP = TC TO D = 0. 170£3E- 0

1

- 0

.

££ 09 7E~ U6 0 . 543 09E- 1

1

-0. 57670E-16

ID UNITS= C* 5 O 7 8 1 6

POLNOM EXP= 1 2 3 4 5

PRECISION IN E ACT = 25 00

19
Table 7. Specification of starting values

and maximum values of temperature,

pressure, and the flow rates.

User input is underlined.

REPlDY TO SET UP FfiCTOR LEVELS AND CHANGES

ONE PER LINE

GIVE INITIAL T AND mXimM T IN DEGREES CELCIUS

F7.2 FORMAT, ONE PER LINE

300.

HWe initial P AMD MAXIMUM P IN MM HG IN F7.2 FORMAT

MAXIMUM VALUE OF 0 AUTOMATICALLY CHANGED TO 203 MuM HG

800.

sm_.

^IVE INITIAL N2 FLOW AND MAXIMIJM FLOIJ IN SCC/MIN

MAXIMUM VALUE OF 0 AUTOMATICALLY CHANGED TO 203 SCC/MIN

400J

_500.

GlV^ INITIAL 02 FLOIJ AND MAXIMUM IN SCC/MIN

MAXIMUM VALUE OF 0 AUTOMlATICALLY CHANGED TO 203 SCC/MIN

fACTOR LEVELS AND MAXIMA FOLLOU:

NO. INITIAL MjAXIMUM

1 300.00 400,03

2 S03.00 930.00

3 400.00 500.00

4 100.00 200.00

GIVE FACTOR NUM3ER (! TO 4) FOR FURTHER CHANGES

0 « NO CHANGES

0

20
40 to 60 |jV/s. The actual choice depends on the

activation energy. See table 8 for guidance. Values

in the range 5 to 15 are appropriate.

When the rate of weight loss falls off continuously as

the reaction proceeds, a sequence such as +8, -6, +8,

-6... will probably keep the rate within the appropriate range. When the rate of weight loss goes through

a maximum, use a sequence such as +8, -8, +8, -8....,

unless you want to study the part of the degradation

occurring after the maximum, in which case you should

use a gradually ascending series.

Remember that gas flows above 415 °C are not stable

when the exhaust valve is used. The hot gas cooling

in the side arm of the furnace-specimen charriber introduces instabilities which the pressure controlling

system cannot keep up with (partly because the pressure

must go past the desired setting before the servodriver exhaust valve reverses itself and partly because

the valve action is slow).

9b. Pressure: Ordinarily, the pressure is kept constant

at 800 to 810 mm Hg. Slow flow rates of N2 (50 to

100 scc/min = 1/2 to 1 mm/s over the sample) at this

pressure seem to give chemically meaningful activation

energies, free of the effect of thermal history of the

sample. Degradation in vacuum is generally unsatisfactory, partly because the activation energies seem to

include the physical effect of evaporating performed

small molecules and molecules up to different maximum

molecular sizes depending on the temperature, and

partly because' the surface of the molten polymer is

very viscous and the escaping volatiles form bubbles

which impact shocks to the balance as they burst.

However, changing pressure and/or flow rate may be a

useful way of widening the range of oxygen concentration available at the degrading polymer. Slow flow

rates (< 100 scc/min) and high pressures (> 600 mm Hg)

make for slow re-establishment of control by the

exhaust value. It is not worthwhile to attempt to

give a table of equilibration times under various

conditions because the times depend on the initial and

final conditions. Ensure to your satisfaction that

the system will stabilize within the time period

specified by the EQUIL parameter (usually 150 to

250 s) or use the mercury valve described earlier.

9c. Gas flows: The flow meter is intended to be precise

to within one percent of full scale, but may show a

bias unless it is level. We have checked the absolute

flow and feel that the meter can be trusted to the

j

21
Table 8. Ratios in rates for various values of E,

E(kcal/mole

)

AT and T.

AT/T(°C) 15 • 20 30 40 50 60

10/250 1.32 1.44 1.73 2.08 2.49 2.99

15/250 1.51 1.73 2.28 2.99 3.94 5.18

10/350 1.21 1.29 1.47 1.67 1.90 2.17

15/350 1.34 1.47 1.79 2.17 2.63 3.19

22
10

above one percent. This implies a minimum flow of

(say) 25 scc/min for N2 and 10 scc/min for O 2

. It is

probably best to use O2 already diluted with N2 if you

want reliable rates with less O2 flow than this.

Choose the input values for the design matrix, ^

,

which is used to update the current values, C., of

factor i according to

C. = P. + D.

.

1 1 ID

where is the previous level of factor i. Refer to

table 9.

11. Enter one for implementation of steadiness checks (via

value obtained from fit of five latest readings to

polynomial of maximum degree 2 ) or 0 for no steadiness

checks. Refer to table 10. When polymers are degrading in vacuum, it is usually best to forego steadiness

checks, which tell a horrible story, and which waste

time better spent on collecting as much data as possible. For well-behaved conditions such as degradation

in oxygen-containing or inert gas atmospheres, steadiness checks may be used, but may not be necessary even

then

.

12. Enter 1 to implement filtering of input to DVM (this

is the usual mode).

13. Usually enter 0 to avoid reading other experiments

while this one is in progress.

14. Usually enter 0 (when requested after next overlay

has read in) to forego measurements of factor response

time

.

However, if you want to determine the factor response

times, enter 1 instead of zero and then enter for

each of the four factors (temperature, pressure, flow

of N2 , flow of O2 ) either 0 (response time will be

read in as the next input value) or 1 (response time

will be measured) as shown in table 11'. In the latter

mode of operation, the program will set initial values

of the parameters, will wait until their levels stabilize, and will then set them to new values and wait

again until their levels restabilize. A typical set

of results is shown in table 12. The stabilization

time is considered to be the response time. This part

of the program is intended to be used to check the

functioning of the apparatus as it is being tuned up

after some major changes such as replacement of the

23
Table 9. Build-up of Design Matrix

in TGRUNF Program

(Dialogue on terminal; user input is underlined.)

REFlUY TO PUILIi lESIGM MRTRIX

I.E.» VECTDP:: FDP CHhMbEl- IN FRCIDP LEVEL:

MRXIMUM CF 16 VECTDP6.

GIVE LINE NUMBERS .THEN

FDRMRT as.- -rFR. S>:>

EMU MITH LINE riUMBER =

r^E PEP LINE

4 CDMPDNENTS

“ 1 0. 000 0 . 000 0 . 000 0 . 000

2 . 1 £. 000 0 . 000 0 . 000 0 . 000

TFiPUT NUMBER DF VECTORS IN IS FORMAT

£

itsiGN MATRIX FOLLOWS

1 - 10 . 0 0 0 0 . 0 0 0 0 . 0 0 0 0 . 00 0

£ IS . 000 0. 000 0. 000 0. 000

CHANCE FOR FURTHER CHANGES? 0=NO5 1=VES:. IN £ FORMAT

24
Table 10. Entering Steadiness Checks

Choice into TGRUNF Program.

(Dialogue on terminal; user input is underlined.)

STERHIHESS CHECKS TO EE NREE EUR I MG ERTfi COLLECTION

GIVE 0 FDR NO? 1 FDR YES? IE FDRMRT

1FILTER INPUTS TO EVM? 0=ND^1=YES <YES

0.5 SEC.-RERIO GIVE IN I£

1RERE OTHER EXPERIMENTS RT

GIVE IN I£ FDRMRT

0

FfiCTDR LEVELS

1 £50. 000

£ 4 00 . 000

3 500. 000

4 0. 000

DESIGN MRTRIX

1 “ 10 . 0 0 0

£ 1£. 000

STEREINES

INPUT FILTER

RERE OTHER E

RNE CHRNGES

1 . 0 0 0

0 . 00 0

0 . 00 0

0 . 000

FOLLOWS

FORMRT

SRME TIME?

FOLLOW

0 . 0 00

0 . 00 0

TRKES

0=ND? 1=YES

0 . 000

0 . 000

0 . 000

0 . 000

CHECK = 1 WHERE 0=ND!.1=YES

TO EVM = 1 WHERE 0=NO?1=YES

PTS = 0 WHERE 0=NDj1=YES

25
Table 11. Procedure for Testing Factor

Responses in TGRUNF.

(Dialogue on terminal; user input is underlined.)

NEfilUPE FhCTDR FESFDMfE TINES'^ 0=MD» 1=YES

1

READ IN FAC TOP PESPCMJE TINES DP NEASUPE THEM'^

ENTER 0 FDP PERU

1 FOP NEASUPE

IN II FORMAT FDR TEMP PARANETEP

READ IN FACTOR RESPONSE TINES DR NEASUPE THEN?

ENTER 0 FDR REAP

1 FDR NEASUPE

IN 11 FORMAT FDR PRESS PARAMETER

1

REAP IN FACTOR RESPONSE TINES DR MEASURE THEN?

ENTER 0 FOR REAP

1 FDR MEASURE

IN II FORMAT FOR NE FLOI.J PARAMETER

1

REAP IN FACTOR RESPONSE TINES DR MEASURE THEN''

ENTER 0 FDR REAP

1 FDR NEASUPE ' • IN II FORMAT FDR D£ FLO!.l PARAMETER

JL

TARGET VALUES OF FACTORS IN RESPDN APE:

1 1 £50. 0

1 £ £7 0.0

£ 1 400. 0

£ £ 450. 0

. 3 1 £00.

3 £ £4 0. 0

4 1 50. 0

4 £ 60. 0

no YOU UANT TO CHANGE ANY VALUES?

IF SDj ENTEP:

FACTOR NUNPERi 1=T-. £=F> 3=FNE> 4 = FD£

1 DR £ FDR FIRST DR SECDNP VALUE OF A FACTOR

VALUE ITSELF

ALL IN ';£I3<F10.0>

. 7/^ END I.IITH FACTOR NUMPER OF ZERO '.’y. 0

26
Table 12. Output of Factor Response

Checking Routine in TGRUNF.

FfiCTDR RE:

FfiCTDR

FfiCSET

250. 0

14 iiB

FflCSET

270. 0

14 “II TEMP

FfiCSET

4 00. 0

14 “Ii

FfiCSET

PDMSE TIMES

LDW HIGH

41 S5 ;

4558 ; 250.

4 0 0 0

:

5 0 0 0

1

0 0 0 0 5

14 «G

FfiCSET

0 . 0

14 iJG

FfiCSET

450. 0

14 an 4500:

FfiCSET

500. 0

14 50 0 0:

FfiCSET

0 . 0

14

PRESS

FfiCSET

200 . 0

14

FfiCSET

24 0 . 0

14 ::G M2 FLDUI

FfiCSET

50.0

14 -G 1250?

rb tilJUIj:

24 00:

2 0 0 .

FDLLDf.i:

TIME CHISQ MEfiSURED? TIMES t CHI VfiLUES

(the heading applies only to the long lines belov/.)

set temperature to low then high values

.

1

C- o O 1 C* c- c’£'4

.

oo 309 . 1 18 .

3

Set pressure, N2 flow and O2 flow under program

control. These must all be set so the pressure

response is measured under -well defined conditions

The factors indicated by the last number in the

line below FACSET. The level of the factor is

the first number in these lines.

3

0 0 ij 0 j 4 0 0. 450. 1 i' c* • 5 0 1

‘ 1 • U 1 1 88 . c! 4 . i" c 8 o 4 . 89 U 5 4

Set flow

126. 500.4

Set O2 flov;

170, 218 78c

,

RfiMGE CHRMGE FRDhf 5 TO 4 DM INPUT 6 3::I:$

FfiCSET

60. 0

14 ::G 1500;

D2 FLDUI 50. 60. 95. 4 85. ( r 1 03. 37.

27
furnace. It is rarely done just before the real

experiment is begun but could be used to check how

well previously untried experimental conditions would

be controlled. In particular, it determines the

probable extrapolation time between plateaus.

15. Enter your choice for the treatment of bias voltage.

Refer to table 13.

1 = set bias voltage equal to zero

2 = read it in

3 = measure it

0 = terminate input, no more bias voltages need

be considered.

The usual input is 1 for each parameter for which a

voltage will be read. This sets that particular bias

voltage to zero. The parameters are:

sample weight

thermocouple reading

pressure

specified flow on channel 1 (N2 ) specified flow on channel 2 (O2 ) actual flow on channel 1

actual flow on channel 2

Alternatively, the bias voltages on some or all of

. these lines can be determined. Refer to table 13 for

the sequence of operations.

If you give 2 above, the bias voltage and its standard

deviation must then be given on the next two lines,

each with a decimal point and carriage return.

If you enter 3 above, the program will set the parameter to a preselected value (100 °C for temperature,

400 mm Hg and 300 scc/min N2 for pressure, 0 scc/min

for the flov7s of N2 and O2 ) and will correct the

actual reading by the preset value to obtain the bias

voltage. It will indicate problems with unsteadiness

(as defined by the values of PTIME and CHTEST in the

control parameter table input in paragraph 8 )

After the bias voltages have been determined, the

various factor levels are not reset. They will be set

to your chosen values as soon as the next overlay is

read in. A typical output for the determination of

bias voltages is given in table 14. The results are

saved and used in the program for the current run

only. They must be given to the program again the

next time it is run (the program starts by initializing

all its parameters).

28
Table 13 Initialisation of TGRUNF Routine

to . Determine Bias Voltages.

(Dialogue. on terminal; user Inputs are underlined.)

THIS ROUT I HE IS SET UP FDR:

UEIbHT hS ‘•FRCTDP" 1 TEMPEPhTUPE R:: PRC TOP E

PRESSUPE RS FRCTOP 3

FLDl.-l CHRHMEL 1 RS FRCTDR 4

FLDl.-l CHRMMEL E RS FRCTDP 5

FfiCTDRS E TD S RRE PRESET FDR THE ElhS MERSUREMEMT

FDR ERCH FRCTDR? IS EIRS VDLTRGE TD EE:

SET = 0

NERSUPEIi < DR RE RE IN

J=E>

':: J=3> ?

TERMIHRTE INPUT l.l ITH j= 0

GIVE J FDR

£

FRuTDR 1 IN 11 FDRMRT

GIVE J FDR

£

FRCTDR •-I c. IN 11 FDRMRT

HsIVE j FDR FRCTDR IN 11 FDRMRT

GIVE J FDR

£

FfiCTDP! 4 IN 11 FDRMRT

“nSIVE J FDR

£

FRCTDR cr

.^1 IN 1

1

FDRMRT

GIVE J FDR FRCTDR 6 IN 11 FDRMRT

EIRS VDLTfiiBE riETERr'IINHTIDNS: FDLLDI/

FRCSET

1 00 . 0

14 1541?

FRCSET

400. 0

1 4 ijii 4 fi n 0

:

FRCSET

300. 0

14 30 00:

FRCSET

300. 0

14 ::G 500 0:

FRCSET

100 . 0

14 -G £50 Oj

29
Table 14. Determination of bias voltages

User input is underlined.

THIS ROUTINE IS SET UP FOR:

UEIGHT ftS "FftCTCR' 1 TEMPERATURE AS FACTOR 2

PRESSURE AS FACTOR 3

FLOW CHANNEL 1 AS FACTOR 4

FLOU CHANNEL 2 AS FACTOR 5

FACTORS 2 TO 5 ARE PRESET FOR, THE BIAS MEASUREMENTS

FOR EACH FACTOR. IS BIAS VOLTAGE TO BE:

SET = 0 (J=l)

MEASURED (J=2)

OR READ IN (J=3)?

TERMINATE INPUT UITH J=0

GIVE J FOR FACTOR 1 IN II FORMAT

2

~GIVE J FOR FACTOR 2 IN II FORMAT

2

GIVE J FOR FACTOR 3 IN II FORMAT

eBIAS VOLTAGE DETERMINATIONS FOLLOU:

FACSET

IB0.0 1 14 1541;

$$$ RANGE CHANGE FROM 3 TO 4 ON INPUT 0 SSS

BIAS VOLTAGES AND SIGMAS FOR FACTOR INPUTS

FACTOR VOLTAGE SIGMA

1 -0. 173S267E-i-Co 0.5773553Ev01

.2 0. 29242 15E+02 0.35118333+81

30
16. Set MIDAS as and if required by typing MIDAS-type

commands in directly from the CRT (see table 15). The

format of the commands is given in table 2.

17. Input the initial and final sample vzeights in microvolts. Refer to the first half of table 16. Although

the factor-jump method does not require the initial

and final sample weights to determine an activation

energy, these quantities are necessary to calculate a degree of conversion and thus relate the activation

energy in this sample to that obtained in other samples.

18. Give the appropriate information for preconditioning

the sample. Refer to the second half of table 16. If

you are using the exhaust valve, use the preconditioning time to adjust the value manually to obtain

the desired pressure (using the CLOSE-OPEN knob on the

Granville-Phillips pressure controller) and then turn

the RATE knob on the controller fully clockwise to

give the maximum response of the value to changes in

pressure. Once the mercury valve has been set at a

given immersion depth of the exhaust tube in the

mercury, it needs no further attention until a new

pressure is required.

This is the end of the operator input; the program now

directs the flow of the experiment. Note, however, that

the program will stop if the sample weight goes more negative than -0.158 V, if adjacent weight readings do not

differ by (ENDSIG) (a^) , or if the maximum allowed value of

a parameter is exceeded. Any of. these conditions provides

a normal termination of a run. In fact the run continues

until one of these conditions occurs.

III. Editing of Activation Energy File from TGRUNF

The program TGRUNF cannot influence the course of the

experiment until it has obtained a result. For example,

until it obtains a rate of weight loss below the m.inimum,

it will not adjust the temperature categorically upward.

Even though such a low rate of weight loss has been obtained,

the TGRUNF program still calculates the activation energy.

It is best therefore to set the allowed minimum rate above

the lowest rate which still gives reliable results. The

output file written by TGRUNF can later be "edited" using

the program TGEDIT.

TGEDIT is written in FORTRAN and is listed in Appendix B.

It allows corrections to be made to all temperatures in the

file, with subsequent recalculation of activation energies.

It allows activation energies to be discarded for the

following reasons:

e 31
Table 15. Initialisation of Interface Using Commands

Transmitted by TGRUNF, then Return to

Beginning of TGRUNF Program.

(Dialogue on terminal; user input is underlined.)

SET iniTIRL CONDI TIDr^S ON MIDRS? Y OR H?

X

GIVE COMMRND^ 3r. CHREhCTEP; MRXIMUM

SHRRP SIGN I.IILL EE RDDED BY COMPUTER

KOMPQUU

33 i^KOMpnoo

SET INITIRL CONDITIONS ON MIDRS? V OR N?

Y

’"give COMMRND.- 36 CHRRRCTEPS 'MRXIMUM

SHRRP SIGN UILL BE RDDED BY COMPUTER.

DO: o;33 i^DOi 0?

SET ’INITIRL CONDITIONS ON MIDRSj Y. OR N?

Y

nGIVE COMMRND? 36 CHRRRCTEPS MRXIMUM

SHRRP SIGN UILL EE RDDED BY COMPUTER

GCi: O;

3E: ::Gui 0?

SET INITIRL CONDITIONS ON MIDRS.- Y OR N?

M

**GO FORURRD DR BRCK? ENTER =P= OR =B=

E

"give TITLE FOR RUN? £ LINES? 7£ CHfiRS^LINE MRXIMUM

32
Table 16. Initialisation of MIDAS, specification

of Scunple weight and bake-out parameters

User input in underlined.

SET INITIAL CONDITIONS ON MIDAS. Y OR N?

Y

“give command, 36 CHARACTERS MAXIMUM

SHARP SIGN MILL BE ADDED BY COMPUTER

KiMPeao

53 K1MP030

SET INITIAL CCNDITIOHS GN MIDAS, Y OR N?

N

*^0 FORUARD OR BACK? ENTER =F- OR =B=

F

GIVE INITIAL AND FINAL L'EIGHTS IN MICROVOLTS, WITH SIGN

ON 2 LINES IN FI5.0 FORMAT.

INITIAL LJEIGHT OF 0 WILL CAUSE PROGRAM TO USE FIRST

UEIGHT READING IN DATA COLLECTION AS INITIAL UEIGHT

I.E., AFTER BAKEOUT OF SAMPLE

?00039.

-1750SQ.

INITIAL AND PINAL LPiGHTS ARE: 309093. -I75330.

OK OR NOT, Y OR N?

DO YOU UANT PRECONDITIONING OF THE SAMPLE? Y OR M?

X

GIVE BAKEOUT TIME, TEM.^ERAUJRE, PRESSURE, FLQIJ N2, FLOW 02

EACH ON A SEPARATE LINE IN FORMAT F13.0

1839.

29.0.

. 80.0.

438.

TeeS

BAKE Tir;p IN SECONDS IS 1800 . BAKE TEMPERATURE IN DEGREES CELCIUS IS 299.

BAKE PRESSURE IN MM HG IS 809.

FLOU OF N2 IN SCC/MIN IS 490.

FLOIJ OF 02 IN SCC/'MIN IS 183.

OK OR NOT, Y OR N?

Y

33
(1) the extent of reaction does not fall within

user-specified limits;

(2) a rate of weight loss is below a user-chosen

minimum;

(3) the percentage error in at least one of the rates

(i.e. , 100 a(r)/r is above a user-chosen maximum);

(4) a temperature is below a user-chosen minimum

(5) a temperature is above a user-chosen maximum

(6) an estimated error in a temperature is above a

user-chosen maximum; and

(7) the estimated error in the activation energy is

above a user-chosen maximum.

Test 1 may be used to select activation energies when

the degradation contains several steps or when the sample

or the rate-determining process slowly changes. Tests 2

and 3 obviously ensure prespecified precision in the rates

of weight loss. Tests 4 and 5 are designed to cull out

activation energies over a small range in a degradation

which consists of several different chemical steps. Test 6

ensures that the temperatures are adequately determined.

Test 7 serves to discriminate against cases which were

border-line but passed in tests 2, 3 and 6. In these cases

the errors pile up in a (E).

The TGEDIT program has been found very useful in

culling out untrustworthy measurement according to prespecified and more or less objective criteria. It produces an

edited version of the input while leaving the original

input file intact. The sequence of operations is shown in

Appendix B.

IV. Estimation of Average Activation Energy by

Trimmed Means : TGTRIM

One accepted [8,9,10] way of estimating the mean of a

set of numbers, some of which may be in error, is to place

the numbers in order of increasing magnitude and calculate

the mean as more and more extreme values are removed from

consideration. The system of FORTRAN overlays TGTRIM does

just that for activation energies contained in an output

file from TGRUNF. The listing of the program is given in

Appendix C, which also contains examples of the input and

output

34
The program calculates the weighted and unweighted

means and their estimated standard deviations for the

surviving subset. It also calculates the corresponding

values for the Winsorised subset, where the rejected values

have been replaced by the nearest unrejected value. In

this case, standard deviations are estimated using the

number of degrees of freedom associated with the subset

rather than the complete set. The most reasonable values

to quote are the unweighted mean from the trimmed set and

the unbiased (i.e., unvzeighted) estimate of the standard

deviation from the corresponding Winsorised subset.

V. General Calculations of Activation Energies

from Rate Data: TGACTE

The program TGDEPG [1] calculates activation energies

from temperature and rate data. Also, it uses normal order

statistics and probability plots in a partly intuitive and

definitely exploratory attempt to provide a diagnostic

procedure for removing atypical values. Examples of its

use and the program listings are given in Appendix D. The

activation energy and its standard deviation are obtained

from the Arrhenius equation using data which pass a test

based on assigned standard deviations. The program estimates an absolute scale for the standard deviations associated with data points, assuming in the present version* that

the distributions of log d [2], the data, and the derived

E values are all normal. Some idea of the scale of standard

deviations is required if data are to be examined for

atypical points and if the standard deviation of the

weighted average is to be meaningful (as is required when

various weighted averages are to be compared). Of course,

it is good practice to examine the conditions generating

atypical data for insight into the functioning of the

apparatus or changes in the rate limiting step during the

experiment. It is also good practice to redo experiments

which contain ambiguous results, and to replicate experiments in general to obtain an independent estimate of the

precision. Although several methods for detection of

outliers exist [12-18], none makes use of standard deviations on individual values. In particular, Tietjen and

Moore have shown [16] by computer analysis of 5000 synthesized data sets that their test is among the most powerful

for detecting inhomogeneity, in univariate samples. Specifically, they mixed random selections from a population

*A version with the more appropriate t statistics has

stubbornly proved to be too large for the computer. However,

for more than 10 to 15 data, there is little to be gained by

substituting t for normal statistics.

35
distributed normally with mean 0 and standard deviation 1

with selections from a normal population of mean k and

standard deviation 1, where \ = 0, 1,2,3, and 4, in proportions ranging from 'N' 10 to 25 percent. They compare the

sums of squares of deviations from the average value for

the complete set of data and a subset. In this way they

tend to avoid the "masking" effect several outliers on one

end of a sample would have on the sample mean (for the

subset the calculated mean will approach that of the population in favorable cases). The ratio of sums of squares of

deviations for subset and complete set is then used in an

F-like test to see if the subset and complete set differ

significantly.

Their test has not been applied. as a routine procedure

here for several reasons:

1. "Unfiltered" TG data generally do not conform

exactly to the required conditions of normality

and univariance.

2. The high discrimination of their test may be a liability if the quantities being tested are only

approximately normally distributed or do not all

have the same standard deviation.

3. We wished to be able to make use of even approximate estimates of the standard deviations of the

experimental quantities and derived quantities.

This requires scaling of DS or DE values (see

later for their definitions) to their expected

values as calculated from order statistics.

4. The computer program must be kept as small as

possible so it will fit in the laboratory computer.

5. Their procedure and the procedure in TGDEPG have

given identical results on the few TG data sets

subjected to both tests. Hov/ever, because of

their avoidance of the masking effect, their test

is expected to be superior, especially when the

data are exactly normal and univariate. For

example, when applied at the normal operating

level ('^ 2 percent), the test in TGDEPG does not

detect outliers in the eight results of uranium

isotope analysis quoted in reference [15]; however,

the methods in references [12-15 and 17-18] also

fail to discriminate among the data.

Values of the activation energy E^ obtained as the

reaction proceeds may reveal the existence of an induction

period, vary randomly about the population mean in the

36
40 to 70 percent region of degradation, or, if a monatomic

trend with extent of reaction or time is present, be

somev7hat smoothly distributed about the population mean,

and change as the remains of the sample react. Also, in

a passive data collection (v/here the data have no influence

on the control of the experiment), averaging the values

is sometimes difficult because the 6^ values may vary

widely. This is usually because of a fall off in the

magnitude of the rates as the sample size decreases but may

also arise because of lower viscosity as the sample degrades.

The contribution of each value to the average, E^, must

therefore be weighted to reflect differing uncertainties

and to maximize the reliability of the value obtained for

E . Further the standard deviation, d=, of the weighted

average value, E^, must be estimated to reflect the spread

of the individual E. values about E . First, however, an

attempt should be made to identify unacceptable values of

E. and the associated estimated standard deviation, a„ .

.

1 El

In devising our procedure we have had. to make several

simplifying assumptions which \ie point out as the need

arises. The procedure should be considered to be heuristic

rather than rigorously derived.

We assume that in TG each experimental datum (sample

weight, temperature) is a random (i.e., independent) selection from a population of potential experimental data which

are distributed according to a nomal type of distribution.

We also assume that the same is true for results such as E^

which are derived from the . experimental data even though

the experimental data have been subjected to several transformations to provide values of E^ . Therefore, we proceed

as though the majority of our experimentally derived results,

E^, belong to the same population and assume that differences between individual E^ values and the weighted mean,

E^, follow the normal distribution law. The appropriateness of this assumption is indicated by the usual linearity

of the probability plots which are produced by the TGDEPG

program and to some extent by the small magnitude of

the standard deviation assigned to E^.

One possibility is to assume that all E^ values have

the same standard deviation (i.e., that they are drawn from

the same sample population) and are normally distributed.

Then the appropriate statistics to define the collection of

values are the arithmetic average, E, and the "unbiased"

37
estimate of its standard deviation

0(E) = { U(E-E^)2]/[n(n-l)]!*5,

where there are n values of . The 95 percent confidence

limits on the range of E are estimated from a(E) and the

appropriate value from the t distribution with n-2 degrees

of freedom.

The E^ values themselves also have estimated standard

deviations, obtained in the case of our TG data by propagation of errors estimated from the fit of a polynomial to

the raw data. When the individual standard deviations d_

.

El

on the data E^ are different, each E^ is said to come from

a different parent distribution (with different a„ . but the

same mean, |j ) . In this case, we minimize

by varying p

.

X

2

That is.

/

and our estimate of the average (weighted in this case) is

given by

M =

Thus, the weighting factors,

mental data E^ are ~ ^ • ^i

2 formula, the variance, a^,

£i given by

1 aEi

I

i ^

Ei

w^, for combining the

From the propagation

experiof error

of this weighted average is

o| = , SO that the error estimated in the weighted average depends

on the scale of the individual standard deviations. We

2 stress that the equations for E^ and are best estimates

only when the E^ values are normally distributed and when

38
the a„. values are well known. The error propagation path

in the TG factor- jump procedure is tortuous (through extrapolation and derivatives) and the initial assessments of

error in the primary data of sample weight and sample

temperature may be crude. Also the sample behavior may

change during the experiment. Because the absolute values

of the derived standard deviations, a„ . , may not adequately

hiX

represent the observed variation in the values we will

need to estimate the scale, k, of these derived standard

deviations i.e., . = ka„ . . An estimate' of the absolute

scale of the values can be obtained by relating the

experimental distribution to the normal distribution. This

also allows us to examine the data for atypical data points.

After calculation of d„. (in the TGRUNF program) we

can form the statistic

DE. ( 1 )

where k, the scale of is initially set equal to unity

but is then refined. DE is essentially the quantity T in

references [12-16]. If all values of a„. were known exactly

tiX

and all values of E^ came from populations with the same

mean, E , then the DE . statistic would follow a normal

w 1

distribution (N). Jn practice we have to estimate cr^^, and

our estimate, kd„ • , would, if replicated, vary according to

hiX

a X distribution. DE^ is then seen to be distributed

according to N/x, which is a t-distribution. For a reasonably large number of points (say > 10 or 15), the t distribution approximates a normal distribution. For various

reasons, we therefore assume that the DE^ statistic is

normally distributed and thus that the relative probability

of observing the particular value E. with standard deviation

ka„. will be given by

2

1 1 Ei - Ew

- ag. 2r. -

2

The .probability of observing a value of E . less than

z E^ + is given by P. dz. This is illustrated for

—00 the second extremum by the shaded area in figure 1. The

( 2 )

39
(00)

3

O

N

V)

i-<D

3

o

40

Figure

1
expected value for each DE^ quantity may be obtained

using order statistics (see reference [19]) if the DE^ quantities are first arranged in increasing magnitude. For n

observations, we would expect, on the average, that the area

under the probability curve in figure 1 would be divided

into n + 1 equal areas. Therefore, the actual DE^ quantities should be related to the corresponding values, z^, of

the abscissa which divide the area under this curve into

n + 1 equal parts

z i.e., Pdz'\'i/(n + l)

*-00

In practice, we estimate the z. values from the relationships [20] ^ . .

P

—00 P dz

z

(i - 7t/8)/(n + 1 - n/4) for i >_ 2 or n ^ 10

or (3i - l)/(3n + 1) for i = 1 and/or n < 10 , and

z^ = 4.91(p 0-14 . (i.p)0-14)

If all E^ values come from parent populations with the

same mean, ideally there should be a linear relationship

between DE^ and z^, with the line passing through the

origin. A plot of DE^ vs z^ is known as a probability

plot. Here we use the normal (i.e, Gaussian) probability

plot (see references [21 and 22]). Values of DE^ belonging

to a population with a mean different from that of the main

body of data will probably be found as extreme values in

the set of DE values. Hence, less weight should be given

to the extreme values in determining the coefficients of

the best linear relationship between DE^ and z^. This

could be achieved by considering only some inner set of DE^

values. A further consideration is that the scale of DE^

and z^ is non-linear, actually in some inverse relationship

to the height of the probability function at point z^,

given that equal areas given approximately by ) should be delineated. The scale determination should

41
therefore be weighted to make all contributions univariate.

Exact weights would be l/o^ where is the variance of z^.

Tables of are available, but we have approximated these

variances in practice by weighting the DE^ values according

to the associated values of (eq. 2). This incorporates

the facts that the scale of DE^ is non-linear and values of

DE^ nearer zero are expected to vary over a smaller range

than values lying towards the extremes. The slope of the

DE^ versus z^ relationship is the estimate of k, the scale

of required to fit the DE^^ values to a normal distribution. A plot of DE^ against z^ is produced by the computer

program and has the advantage that the scaling and outlier

rejection procedures are shov;n in a visual as well as an

analytical fashion. A break in the, plot is typically found

between two different populations of DE^ values, although

random fluctuations can sometimes produce surprisingly

non-linear plots (see reference [23]).

The least probable values of E^ are necessarily associated with the extreme values of DE^. These need not necessarily be associated with the largest or smallest values of

E . , hov/ever, because the size of a„ . has also been incorpor1 lliX ated in DE . . We must now decide whether to accept or

reject the^extreme values. From figure. 1, we, see that, on

the average, the extremum DE^ should bisect the area to the

left of DE2. If we set the cut off limit for DEj such that

we will accept a. DEj value that falls within the 90 percent

of the area closest to DE2 , we will on average reject only

10 percent of the time an extremum which appears to be an

outlier purely because of random fluctuations. Note this

is not 10 percent of the data. For n values, it corresponds

to approximately [l/(n+l)]/10 = 1 percent at each extreme

for 20 data values; this constitutes a two-tail test at the

2 percent level. We expect to be able to reject most

outliers which include additional non-random bias which

makes their E^ values quite different from E^, and which,

because of a small value, of a„., would otherwise effect E„ El w

significantly. Because the areas in figure 1 depend on the

sample size, the cut off limit also depends on the sample

size (cut off limits are applied to both negative and

positive DE values). Thus, after determining the approximate scale, k, for in eq. 1 from a least squares fit of

z^ to DE^, we scale DE^ to z^ by applying the scale factor k

42
to a„ . . We determine the cut off limit for the DE . values El 1

using the sample size and a prechosen chance of rejecting

an acceptable extreme point along with atypical points, and

we reject any extreme values of DE^ beyond the cut off

limit. We then re-average the remaining E^ values to give

a new value for E , recalculate DE . and rescale the remaining d„. values by refitting DE. to z . . In this way we can

til. X X

reiterate the procedure (decreasing the cut off limit

appropriately for each iteration) until, no further outliers

are discarded.

From the final set of scaled . values we can calcu- Ei

late the standard deviation of the weighted average activation energy, E^. Here we re-emphasize that although we may

have estimated the error in the rate and temperature measurements individually, (and perhaps, with other experimental

setups, crudely from chart records, experience, or intuition) when we use the above procedure to estimate the

values by rescaling we in fact assume only the

proportions of the contributions of temperature and rate to

the standard deviations of the individual activation energies

E^. Strictly speaking, we have also assumed that all

deviations from the average arise from random error. In

some cases, we have found a systematic trend of E^^ with

time or wide scatter among the E^ values. To the extent

that these are assigned as random error, the associated

values and the resulting estimate of a= are proportionately

ts increased. This essentially states the extent to which the

average value, E^, is meaningful when a trend or wide

scatter is evident. Typically, one uses preferably

the reduced value, = X^/(n - v), as an estimate of the

goodness-of-fit of a function (such as an average) to data.

In the definition of v quantities are determined from n

data, and h - v is the number of degrees of freedom. Here

we have rescaled the denominator, . = kl(a_.)^, of x^ so

JbiX hiX

that x^ should be approximately unity. When x^ is not in

the range 0.90 to 1.10, something may be wrong with the

data set or the selected cut off limit. For example, the

unbiased data may constitute a minor population in a very

poor data set. The distribution will then be dominated by

"bad" data. Thus, the "good" data may be outliers, partly

because of their smaller a„ . values. In such cases the El

43
procedure will probably give poor results, but this should

be neither surprising nor mitigating.

Extension of the Procedure

We have described how the DE^ population can be checked

for atypical values. We now extend this concept to examining

whether the values themselves constitute a homogeneous

sample. This is especially important if one is examining

data gathered and processed entirely by machine without

operator intervention or assessment.

We could assume that the . values follov; a distri- Ei

bution [24], but much of the reasoning (and computer programming) for the DE^ case can be reused if instead we examine

the distribution of the residual

In a

DS. = Ei - In aEi

which we assume to be approximately normally distributed [25]

.

The scale factor, k, is initially set equal to 1. This

actually assumes that the values of In are randomly

distributed, which is usually not the case. Nevertheless,

the practice is defended on the grounds that it appears to

be a satisfactory test for sample homogeneity. Box’s

test [26] gave the same results at the one percent level as

this procedure.

In practice, the procedure consists of first checking

the In a_ . distribution (a„. El El ka„ . ) for outliers without El

reference to the associated values of E.

points which have anomalously low valuei

This finds

of In d^. (these El

points would then dominate further calculations) and weeds

out points with anomalously high values of In which

have no effect on the final result yet V7ould nominally

contribute to the number of degrees of freedom. Explanations

should be sought for either occurrence, but - discarding

points because of large In values is more common.

Rejections tell the experimenter either that the change in

conditions producing the data point was not large enough to

be well known (for large In &gj^) or that the rest of the

data are not of the same high quality as the one with the

anomalously low value of In

44
Precautionary Notes

This procedure is an attempt to estimate a reasonable

value for the weighted average of the activation energy and

its associated standard deviation using both individual

estimates of the activation energy and their assigned

standard deviations. It assumes that E. and In a„. are

1 El

both normally distributed and that a weighted fit between

z. and DE . is appropriate in scaling a„ . values to obtain

estimates of . Although the power of the method has

not been tested on statistically assembled artificial data

sets, the procedure appears to produce reasonable results

when operating on TG data, provided that the "good" data

dominate in the definition of the distribution. It evaluates the data in a way complementary to that of the trimmed

mean program, which examines the means of E^ values without

considering the associated a_ . values. Nevertheless,

IjI

neither procedure should be used blindly.

The conditions generating data rejected as outliers should

be examined for significance regarding the performance of

the apparatus or changes in the sample behavior.

Further, it should be realized that the procedure here is

to some extent intuitive, and its use is still experimental.

Because the process rests equally on the individual

activation energies and their assigned standard deviation,

the experiment should be designed to produce reasonable

estimates of both these quantities as well as to keep the

standard deviations. small

.

Finally, replication is advisable to allow use of

analysis of variance to check that the measure of error

between samples of the same material is consistent with the

measure of error within the samples. If the error between

samples is the larger, thermal history is probably playing

an important role.

VI. Generalized Polynomial Fitting: POLGEP

POLGEP is a FORTRAN program which allows the user to

read data in almost any format, to pick out from the "repeat

unit" of data those items to which the polynomial will be

fitted, to specify the degree and coefficients of the

polynomial, and to choose whether the fit is to be weighted

by l/a|(y) or not. The general scheme of data input is

essentially that of PABS (Section IX). The user can evaluate the fitted polynomial and its first derivative at any

point. Estimates of the error are provided. The program

is intended for such uses as extrapolating activation

45
energies to zero seunple weight in those cases where there

is a trend with sample weight. A listing of the program

and an example of its use are given in Appendix E.

VII. Publication Tables: TABLEP

The FORTRAN program TABLEP is provided to make tables

of activation energies and associated data automatically.

This saves time and avoids transcription errors. The

listing and an example of its use are given in Appendix F.

VIII. General Program to Operate the

MIDAS Interface: BMDP

• BMDP is a BASIC program which allows the use of the

MIDAS interface for quick checks 'of the apparatus, nonroutine applications and so on. The results are written on

file 7 in such a way that other BASIC programs will be able

to read them. The program reads voltages on specified

inputs on the analog scanner for a user-provided number of

times, with a user-specified wait between each set of

readings. The program is quite simple and is easily altered.

The listing of the program and an exeimple of its use are

given in Appendix G.

IX. Generalized Plotting Program for Versatec

Printer-Plotter: PABS

During the check-out of the apparatus and examination

of data and of derived results, it became imperative to

write a plotting program (incorporating software available

for the VERSATEC printer-plotter). Because of the widely

differing formats of numerical quantities to be plotted, we

decided to make the program fairly general . The program

PABS is the result. The listings are given in Appendix H.

PABS will read files in most formats. The user inputs

the details in response to prompting questions. The first

line is assumed to be a title. Any numbers of subsequent

lines may be ignored. PABS reads in a repeating unit of up

to 100 numbers, selects one of them to be x and selects up

to 5 others to be y values at that value of x. This process

is repeated until the end of the input file 'is reached or

until a user-chosen number of points has been read in.

Thus up to 5 curves are built up and plotted. Input is in

free format, regardless of the number of lines required to

contain the repeating unit. The user then specifies whether

symbols should be plotted at the data points or not at all

and whether blanks, a straight line or line interpolated

using a user-chosen nun±>er of points is to be used to join

adjacent points. The size of the plot is chosen, user46
supplied scaling factors are applied to be the input data,

and the plots are scaled automatically or by a user-provided

scale factor.

The output of PABS must be processed by the program

VCPY to produce a plot. An example of the procedure "automated" to plot several files is given in Appendix H.

47
r

> ii' 4-

rk iJt A|lr)»

.-ad ,.raUliL.

', .-T TiV' ^ jtA

u a 1 i £.p a p&l I qqw

:

.'•.• br.»

: f YIOV

-,V^;

;-' *. ' I. j '•

* ii*,' ^rvi<

.' - -

> « 1 ’ i f .;• :

. .

' VJ .> 4. >41. ';-! y jj v c ’. twa^e.

' •a L tX,(f Mi

: , aoftV (. 1 tt<

> T OOJ

iv^

. f.,1

t; -

‘Si

, i ' tic » tc , ^ e pic-tXi

, r.Gral . 1’;;* fXoyX>

r- qi.V(an in ^^ppendii^

i‘

li •T.lC«fi

'

‘i r** i yrpa&

•'

^ ' --Vi

! C< T

I .;t- ..jwR4ftr» nq»l>;^r .5f

p;> r' 1 . The . 5

1

;^ e 'ii U •

.its OS'DV

t ni >i j

d i. t«?

.'t
References

[1] B. Dickens, W. J. Rummer and J. H. Flynn, "Automation

of a thermogravimetry apparatus with a laboratory

computer", in Analytical Pyrolysis, C. E. R. Jones and

C. A. Cramers, Eds, Elsevier, Amsterdam (Holland),

1977,

[2] B. Dickens "Automation of factor- jump thermogravimetry

for active computer control", Thermochim. Acta, 2^, 41

(1979)

.

[3] B, Dickens, "Experiences in developing an automated

factor-jump method of thermogravimetry" : Thermochim.

Acta, 87 (1979).

[4] B. Dickens and J. H. Flynn, ' "Optimisation of thermogravimetric experiments under active computer control",

Proc. First Eur. Symp. on Thermal Anal., Salford,

1976.

[5] B. Dickens, "Computer programs to implement factor- jump

thermogravimetry," Thermochim. Acta, 2^, 57 (1979).

[6] P. G. Stein, "Laboratory Automation Software for NBS

16-Bit Computers," Feb. 1977.

[7] J. H. Flynn and B. Dickens, "Steady-state parameterjump methods and relaxation m.ethods in thermogravimetry",

Thermochim. Acta, ]^, 1 (1976).

[8] J. W. Tukey, "The future. of data analysis", Ann. Math.

Statistics, ^

1 (1962).

[9] J. W. Tukey and D. H. McLaughlin, "Less vulnerable

confidence and significance procedures for location

based on a single sample: Trimming/winsorization 1",

Sankhya, A^, 331 (1963).

[10] E. L. Crow and M. M. Siddiqui, "Robust Estimation of

Location", J. Amer. Statistics Assoc., §2^, 353 (1967).

[11] B. Dickens and J. H. Flynn, 5th North American Thermal

Analysis Society Meeting, Peterborough^ Ontario,

Canada, 1975.

[12] F. E. Grubbs, Ann. Math. Stat. , ^ (1950) 27.

[13] F. Proschan, Am. J. Phys . , 2^ (1953) 349.

[14] W. J. Dixon, Biometrics, 2^ (1953) 74.

49
[15] F. E. Grubbs, Technometrics, 2JL (1969) 1.

[16] A. L. Tietjen and R. H. Moore, Technometrics, lA

(1972) 583.

[17] F. E. Grubbs and G. Beck, Technometrics, lA (1972)

847.

[18] G. L. Tietjen, R. H. Moore and R. J. Beckman, Technometrics, (1973) 717.

[19] J. Mandel, The Statistical Analysis of Experimental

Data , Wiley-Interscience, New York, (1964) 85.

[20] J. J. Filliben quoted in D. Hogben, S. T. Peavy, and

R. N. Varner, OMNITAB II, User's Reference Manual,

National Bureau of Standards Technical Note 552,

(1971) 146.

[21] M. B. Wilk and R. Gnanadesikan, Biometrika, 55 (1968)

1 .

[22] S. C. Abrahams and E. T. Keve, Acta Cryst. A27 (1971)

157.

[23] C. Daniel and F. S. Wood, Fitting Equations to Data , Wiley-Interscience, New York (1971).

[24] P. R. Bevington, Data Reduction and Error Analysis for

the Physical Sciences, McGraw-Hill, New York, (1969)

187.

[25] C. Eisenhart, in Selected Techniques of Statistical

Analysis , C. Eisenhart, M. W. Hastay and V/. A. Wallis,

Eds. McGraw-Hill, New York, p. 412, equation 31 (1974).

[26] G. P. E. Box, Biometrika, ^ (1949) 317.

50
Notes on the Program Appendices

. Much use is made of 'transfer' files (see the FLOXOS

manual). This is a convenient way of instituting automatic

operation, both in assembling the programs from their

component parts and in running the programs in production

use. The files that a given program needs are evident from

the SETXX files, which make routine file assignments, and

from the examples of input, which show the assignment of

particular input files. To run a program, use DO SETXX for

that program, assign any needed input and output files and

then type RUN YYY,DZ where YYY is the program name and the

program is on disc DZ.

To change a program, edit the source, file with the

EDIT system program, and then form a binary file, usually

with almost the same name as the source file but with a

final B (for binary) in the name. Use the sequence

*AC SOURCE , IDO

*AC CAL0UT,2D1 (this is a general scratch file)

*AS 300 (generally no output needed)

*RUN FORTY, DO

and then, after compilation (translation from FORTRAN into

the CAL language)

*AC CAL0UT,1D1

*AC BINARY, 2D0

*RUN CAL

and finally, after translation from CAL into binary,

*WF 2

*CL

Errors in the compilation show up on unit 7, which is

usually the terminal. The line numbers mentioned are those

found in the EDIT program. Use of

*AS 362

*AS 762

for the compilation will print a listing with interspersed

error messages. Always use

*AS 300

*AS 720

when about to run CAL. The listing is of no interest if

you have started from FORTRAN.

51
The general order in the program Appendices is

SETXX

Example of input

Example of output

Listing of routines in program

Program remaking routine LOXXXX

File XXXXL5, associated with LOXXXX

Memory map of the program

52
Appendix A. TGRUNF, a FORTRAN to perform

’ factor-jump thermogravimetry.

'.‘4

2, t im-

‘ rc?;ic'l- r.>n, (

, ^4.3 '.e'J • o .pt:-. .

’{N^IIUF 'hrX -

Tri*' I c/

\ •>, •.. - •

F-'" .

:- 4^' 5 . Vi'

0 . 'r'

. '-asrE'h^cV m

F • >'«•/•

-r. aw .ah 0,62

.vt». 5 ii>74oe

7^. (?,Se -e V

‘•l!-

'

r r, :<;' Uw.. •

s e. 22 ?

*5 .

5

K-. VC

•'fT

.

J3 U-"ee

"t

M \ ici .Q^ f

' Cv£ c -

- 3^2 cA L.^’ 2A^ j

v^Ge,SBJl^ OA

' c

c

- -cj&at2iUTi>^i'r 3a

• > 'S:G.TP,i‘V!' OA

lCG3^:0h^0T DA

firH^rATihlT OA

V-- • UJ

, 5l6=?'2JIh

:.-- 3244»:-S 3 :t ,-^.v,.- at

>•>«•>< ’3®. - 01

-

' ^ . r*r . y.,^/ .- -

^ '•*• » -.- J

H- -

'

'k - w _ •.•/.**•

' -fitIS £

60S 4 e

2S6 .rv.?

‘ 3^. !t: ?99.17 -0. .

:- ?i.47^,

53^ 1 , 0 ,->i«9E€7T.^-

( 5.02 '-e.e;?!'-' ' O.-d^'^GO?: ' .r, 25s. iv’ 0 . P*'

'

? V -,

. €«». r ; h -. 1^15

-v : 5^? -l;# •

. .

^••'» ^ ., Nfi- -, -

.

1.3-01 '4 •sa

|r#lV|»f ^ 18 : Mi<

Cl \

(<r. r - r 'tv /SH^ . Ok^

w)H*

v-t '

0 ., .;-. 75“ '

:- j

- !a \

r

'*• 1

- . i

^

®

ig.

,

1 ^

'’ r r

'"

-

. i’"

(j.
File SETTG, used as DO SETTG,D1 to make file assignments needed

in a run of TGRIMF.

fiCNFILEB.lDl

AS 262

AC FRINT,3D1

AS 420

AS 520

AS 600

AS 700 ’ AS 820

AC NFILEC,9D1

oc; opfi

AC TGSETU,BD0

AC TGFACT,CC0

AC TGPLAT,DD0

AC TGPREC,£D0

AC TGSTAT.FD0

LU

ASSIGN SAVE FILE FOR E'S (6) AMD PARAMETERS- (9) THEM TYPE 'RUN TGMAIN,Dr

TR

User then types:

*AL PMMA01,6D1,1,80

*AC PMSAVE,9D1

*RUN TGMAIN,D1

A2
Example of the ’save' file written on unit 6 by TGRUNE. The

file contains a two line title and then, for each activation energy,

ordinal number, E, g(E)

,

time of determination, sample weight,

percentage of reaction, temperature T for plateau 1, a(T^), rate 1,

a(r^), extrapolated sample weight from plateau 1, a(w^), and number

of data points taken during this plateau. The corresponding quantities

are then given for plateau 2.

ms 706 IN 40% 02 P=800 MM HG 3/20/78

1 22.422 0. 177 933. 0.573756E+06 5.82

292.89 0.03 -0.331 lE+02 0.4547E-01

0.573473E+06 0. 101013E4B2 30

284.09 0.03 -O.2417E+02 0.3533E-01

0.574O39E+05 0.7659S5E401 39

2 23.191 0.139 1765. 0.554887E+06 8.19

284.14 0.03 -0.2122E+O2 0.353SE-01

0.5552G9E+G6 0.7859S5E401 30

295.03 0.03 -0.3171E+02 0.3244E-01

0.554506E+06 0.720734E401 30

3 23.392 0. 191 2591. 0.529632E406 11.37

294.96 0.03 -0.2912E432 0.3244E-01

0.529354E4Gb 0.72B734E431 30

286.09 0.02 -0.209SE+02 0.4273E-01

0.523912E+05 0.950372E-i'01 30

4 23.157 0. 175 3419. 0.512748E+05 13.43

286.19 0.02 -0. 197GE+02 O.4278E-01

0.513065E+06 8.S50372E401 30

297.06 0.03 -0.2944E+02 e.4581E-01

0.512431E+06 0. 1O1767E402 30

5 22.867 0.228

.

4246. 0.43893SE+0S 16.43

296.97 0.03 -0.27S2E+02 3.4536E-01

0. 48874 lE+06 0. 1019878-^02 33

288.03 0.03 “0.2020E+02 0.4374E-O1

0. 48923 lE+06 0.97259 1E401 30

6 22.935 0.167 5074. 0.472496E+06 13.55

288.18 0.03 -0. 1946E+02 0.4374E-01

0.4728133406 0.97269 IE401 30

299.13 0.02 -0.2S33E402 0 . 3539E-0 1 0.47217SE406 8.787663E401 39

? 23.031 0.198 5901. 0.44BS67E+06 21.53

299.02 0.02 -0.2315E432 0.3535E-01

0.44S6O2E43S 0. 735352840

1

30

290.12 0.03 -0.2045E432 0.410SE-O1

0.449133E40S 0.S12550E401 30

8 23.086 0.172 6729. 0.432094E+06 23.64

290.15 0.03 -0.20O1E402 0.4198E-O1

0.432404E406 0.91255OE401 30

301.13 0.03 -0.2969E402 0.3SS5E-01

0.431784E406 0.8630498401 30

f A3
9 23.764 0.231 7555. 0.4076;59E+86 26.71

303.99 0.. 03 -0.2931E+G2 8.3SS5E-01

0.40759GE-4-06 0.S53049E+O1 30

291.91 8.03 -0.2097E+02 0.5O51E-91

0.407948E-)-Ob 0. 112212E+92 33

10 23.552 0.230 8382. 0.390441E-i-06 23.88

292.08 0 . 03 -0.2052E+02 0.5051E-01

0.333790E+06 0. 1 12212E+02 30

303.14 0.04 -0.3070E+02 9.4333E-01

0. 39003 lE+Ob 0. 1Cd635E+32 30

10 23.507 0.224 9210. 0.365137E+86 32.86

303.01 0.04 -0.3O33E+O2 0.4308E-01

0.364343E-f-Ob 0. 1069262+0? 30

293.90 0.04 -0.2131E+O2 O.4135E-01

0. 36543 1E+0S 0. 93067 lE+01 30

10 23.831 0. 191 10037. 0.347203E+0S 34.31

294.05 0.94 -0.2140E+02 0.41S0E-01

0.347554E+06 0.923650E+01 30

305. 12 0.03 -0.3203E-f52 0.6393E-01

0.346852E+06 0. 142037E+02 30

10 24.055 0.246 10354. 0.3203S6E+3S ^7.63

305.03 0.03 -0 . 3 15 lE+02 0.6333E-01

0.32B559E+0S 0. 142037E+92 o8

295.95 0.03 -0.2256E+02 8.5145E-01

. 0.321 172E+66 0. 114309E+02 33

10 22.93? 0.203 11691. 0.30230OE+26 39.95

296.04 0.03 -0.2221E+32 O.5145E-01

0. 302666E+0b 8. 114385E+02 30

307.13 0.03 -0.3276E+02 3.6552E-01

0.301940E+0b 0. 147778E+02 30

10 24.370 0.217 12519. 0.275378E+86 43.35

306.98 0.83 -a.3232E+82 • 0.6652E-O1

0.275030E+3S 0. 147778E+02 30

297.92 0.03 -9.2312E+02 e,3731E-01

G.275726E+0b 0. 82379 lE+01 39

10 24. 122 0. 143 13346. 0 . 256475E+8S 45 . 73

298.07 0.03 -O.2253E-02 0.3731E-01

0.25d353E+06 0. 82875 lE+01 30

309.12 0.02 -0.3371E-T02 8.3979E-01

0.256097E+8C 0 . S33363E+8

1

38

10 23.990 0. 166 14173. 0.229012E+36 43.18

309.02 0.02 “0 . 3257E+02 0.3579E-01

0 . 223687E+Gb 0 . 86oo63E+0

1

30

300.00 0.03 -0.2330E+02 C.3254E-01

0.22S337E+0S 8.722S18E+01 30

10 24.200 0. 140 14999. 0.289822E+0S 51.53

300.04 0.03 -0.2279E-^02 0.3254E-01

0.210195E+0S 0.722918E+01 30

311.11 0.03 -0.348SE+02 8.4399E-01

0.28944SE-f05 0.310525E+01 30

10 23.929 0. 177 15826. 8.182190E+86 55.07

310.97 0.03 -a.3260E-iG2 0.4099E-01

0. 1S1877E+0S 0.910525E+G1 30

301.99 0.03 -0.2363E-r02 0.3449E-01

0.ie2503E+06 0.766166E+01 30

A4

I
How to prepare a new flexible disc to be a TGS save file disc.

Put an old disc in drive FO

Put a new disc in drive FI

*ZU

*AC NFILEC , IFO

*AL NFILEC, 2F1, 1,80

-CP 1,2, 80,

A

(You will get an end of medium message--90F0--ignore it.)

*AL NFILED,2F1,3,80

-ZU

The. new disc is now ready.

A5
Beginning of a typical output of the TGRUNF program. Examples of

the user-input are given in Tables 3 to 16 of the main text. Users of

the TGRUllF program will find much useful information in references 2,

3, and 5.

NBS 1475 PE IN VftC 4/4/78 3PM

TYPE E THERMOCOUPLE=NI-CR/CU-N I, EXPRESS IONS GOOD

FROM -0.05 TO +0.04, 0 TO 430 DEGREES C. (TABLE A3. 2. 3, P.307

NBS MONOGRAPH 125,1974)

PARAMETERS INITIALISED AS FOLLOWS:

NTHCP = E TSCALE = 243.73 SKIP= 0.

FACTORS = 1 2 0 0 0 0 0 0

FACFUN = 0 0 0 0 0 0 0 0

DERI VS = 1 0 e 0 0 0 0 0

INPUTS = 0 1 2 3 4 5 6 7

SCALES = 1.000 1.000 0.010 1.000 1.000 1.000 1.090 1.000

NRANGE = 3 3 5 5 5 5 5 5

NREADS = 3 3 3 3 3 3 3 3

NTERMS = 2 1 0 0 0 0 0 0

CHI TEST= 4000. 1500. 1000. 1009. 1030. 1030. 1033. 1003.

PTIMES = 300.0 300.0 300.0 390.0 300.0 300.0 330.8 300.0

PRECF = 100.03 100.00 109.00 100.09 103.00 100.00 190 . 99 100.00

PRECR = 30.00 30.00 30.00 30.00 30.00 30.00 33.00 30.00

NFACTS = 2 NRATES = 1 TIMLIM = 600. BAD PTS = 15 EGUIL = 200

CHECKS = 75 END SIG = 0.0 RATMIN = 15.9 RATMAX = 45.0 TJUM?

TC TO D = 0. 17023E-01 -0.22097E-0S 0.54309E-11 -0.5767OE-16

10 UN1TS= 5 5 3 7 8 1 6

POLNOM EXP= 1 2 3 4 5

PRECISION IN E ACT = 25 .00

FACTOR LEVELS AND CHANGES FOLLOW:

1 425 . 000 1.000

2 0 .000 0.000

3 0 .000 0.000

4 0 .000 0.009

DESIGN MATRIX FOLLOWS

1 .8. 030 0.000 0.000 0 .003

2 -6. 000 0.000 0.000 0 .000

STEADINESS CHECK = 0 WHERE 0=NO,1=YES

INPUT FILTER TO DVM = 1 WHERE 0=NO.1=YES

READ OTHER EXPTS = 0 WHERE 0=N0,1=YES

BIAS VOLTAGES AND SIGMAS FOR FACTOR INPUTS

FACTOR VOLTAGE SIGMA

1 0,B0eO030E+0O 0.9S99999E-99

2 0.0OO0Q03E+00 0.9S99999E-O9

INITIAL AND FINAL WEIGHTS ARE: 187200. -175000.

BAKE TIME IN SECONDS IS 1200.

BAKE TEMPERATURE IN DEGREES CELCIUS IS 420.

BAKE PRESSURE IN MM HG IS 0.

FLOW OF N2 IN SCC/MIN IS 0.

FLOW OF 02 IN SCC/MIN IS 0.

FACSET

420.0 1

A6
14 7445;

FftCSET

0.0 2

14 0000;

FftCSET

0.0 3

14 *G 0000:

FftCSET

0.0 4

14 *G 0000;

FftCSET

433.0 1 14 #D 7698;

FftCSET

0.0 2

14 0000:

FftCSET

0.0 3

14 =R=G 0000:

FftCSET

0.0 4

14 4i=G 0000;

FftCTOR LEVELS SET TO 433.000 0.000 0.000 0.000

MEftSUREMENT FOR PLftTEftU NUMBER 1

:<oio{=}oio}c

NO. F I READING SIGMfl RD TIME BftD RCHI TESTCH

1 1 0 0.1498407E+OS 0.2973396E+02 3 204. 0 0.0 4809.0

1 2 1 0 . 3 13 liS7E+0o O.SS19175E-1-00 3 204. e 0.0 1560 .

0

2 1 0 0. 1494G93E+0S 0.283Q589E+82 3 211. 0 0.0 4G00.0

2 2 1 0.3131G30E+05 0.57735SSE+G3 3 211. • 0 0.0 15G0.0

3 1 0 0. 14937b0E-f0S 0.31 4635 1E+G2 3 219. 0 0.0 4000.0

S 2 1 0.3131933E+G5 0 . 3333346E+03 3 219. 0 0.0 1569.0

4 1 0 0. 14So640E+0S 0. 39022 17E-:-32 3 227. 0 0.0 4000 .

0

4 2 1 0.3132133E+05 0 . b33334SE"r90 3 227. 8 0.0 1500.

G

5 1 0 0. 14S2503E+0b 0.3117SS3E+G2 3 234. 0 0.0 4880 .

0

5 2 1 0.31317G0E+05 O.5773533E+03 3 234. 0 0.0 1500.

G

6 1 0 0. 147S403E+GS 0.31170S3E+02 3 242. 0 0.0 4800.

G

6 2 1 0.3131233E+85 3.3333346E-I-S0 3 242. 0 0.0 1500.0

7 1 0 0. 1474127E+0S 0.30S0132E-:-92 3 250. 0 0.0 4088.0

7 2 1 0.31312GGE-f35 0 . G0OG000E"1'03 3 250. 0 0.0 1500.0

8 1 0 0. 14?'G20CE+Go O.2S36743E+02 3 257. 0 0.0 4600 .

0

8 2 1 0.313130GE+G5 0.00000002+00 3 257. 0 0.0 1500.0

9 1 0 0. 14G6473E-;-0S 0.282323SE+02 3 265. 0 0.0 4000.0

9 2 1 0.3131 133E+05 Q , 3333345E+0O 3 265. 0 0.0 15C0.Q

10 1 0 0. 14S2573E-i-QS 0.285792SE+Q2 3 272. 0 0.0 4009.0

10 2 1 0.313G9S7E-!-05 0 . 333334SE^00 3 272. 0 0.0 1560.0

11 1 0 0. 1458S43E+0S 0.2944S70E+02 3 2S0. 0 0.0 4080 .

0

11 2 1 0.3133333E-r05 0 . 3333346E+O0 3 280. 0 0.0 1590.0

12 1 0 3. 1454b47EH-0c 0 . 2944S70E'5'Q2 3 288. 0 0.0 4000.0

12 2 1 0.3131 lGCE+05 0 . GO00000E+0O 3 288. 0 0.0 1590.0

h ‘l ‘i ^

73 1 0 0. 12112S3E+0S I 1 n0.2S2920SE+02 -pQ'iQonocj.no -2 vc/i a a 3 754. 0 0.0 40G9.0

73 2 1 0.31 27S3oE+G5 0.S313175E+00 3 754. 0 0.0 1500.0

74 1 0 0. 1297420E+06 0.291b343E+G2 3 762. 0 0.0 4000 .

0

74 2 1 0.31276GGE+G5 0 . 3000300ti+00 3 762. 0 0.0 1580.0

75 1 0 0. 1203593E+O5 0.2915SS2E-!-G2 3 769. 0 0.0 4009.0

75 2 1 0.3128300E+05 0.57735OSE+09 3 769. 0 0.0 1500.0

* A7
CHECKS OF PRECISION FOR PLftTEfiU 1

XoMcK^f<>K>K>l«K><olc>)5(;M"I.'::;>l;>|:>l»lt>l:>tc4:>!o}c>|oln|:>};5l»!:>l<>!otc>lcIo|c>W=tofoto)o|o(ototoJoK

UEIGHT LOSS FOR THIS FLflTEOU = 0.2S5E+O5 MICROVOLTS

UITH AVERAGE RATE OF 0.522£-i-O2 MICROVOLTS PER SECOND

TIME

-282.5

-275.5

-267.5

-259.5

-252.5

-244.5

-236.5

-229.5

-221.5

-214.5

-206.5

-198.5

-191.5

-183.5

229.5

236.5

244.5

252.5

259.5

267.5

275.5

282.5

P

0. 143341E+0S

0. 1434S9E+OS

0. 14S076E+3S

0. 143S64E+06

0. 14S250E-;-0S

0. 147340E+06

0. 1474l3E-:-0b

0. 14702OE+OO

0. 14Sb4?E+0S

0. 14S257E+0b

0. 145Sb4E+3S

0. 1454S5E+0S

0. 1450d 6E+05

0. 144b62E+0b

YFIT SIGMA P

0.149S61E+06 0.297E+32-0

0. 1494^3E-^06 0.2S3E-i-32-9

0. 14937 lE-:-05 0.315E+32 0

0.143S5QE+06 0.333E+02 0

0. 143231E-^96 0.312E+02-0

O.1478S0E+06 3.312E-i-32-a

0.147439E+36 O.3O.3E+82-0

0. 147O71E-;-05 0.299E^-02-0

3.14SS50E+06 O.233E+02-0

0. 14o282E-f06 O.23SE+02-0

9.145851E+06 3.234E-r32 9

0.1 4544 lE+05 0.234E+02 9

O.145073E+OS 0.336E-fO2-0

0.144b53E+O5 0.294E+O2 0

P-VFIT (P-YFIT)/SIGP DEL P

235E+02-O.634E-^-S3 O.090E-=€9

23SE+92-0 . 8413-^-09-0 . 372E-23

475E-f01 0. 151E-:-03-a.393E--O3

142E-f02 0.4S6E-^33-O.412E-r03

3 13E-r02-a . ieeE-i-2 1-0 . 41^E-^23

222E-^02-3 . 647E-;-09-0 . 4 1 EE-f03

SboE-l-OE— 0 . 874b.-'.-00— 0 . 42£:i-’-C3

5! lE-rOE— Q. 1 77E-i'0 1 —0 . 33cE*!-03

33EEH-0 1-0 . lCSE-i OO-0 . 373E-:-33

243E-:-32-0 . S78E-:-8O-0 . 2S0E-f33

231E-1-01 O.355E-0 1-3. 3333^33

23£E-f02 0 . S33E--:c30-0 . 433E-?-03

6S3E-f0 1-0 . 2 1 CE4G0-O . 39SE-^83

S75E-;-01 0.331E409-0.4O4EH-05

0. 123C53E40b

0 . 122b73E-iSb

0. 12223SE405

0. 121314E406

0. 12151OE40S

0. 12112GE40b

0. 12O742E406

0. 12935SE406

0 . 1 23353E405 0 . 283E-1-32-0 . 1 33E432-0 . 47 1 E400-0 . 395E403

0. 122bS3E405 O.277E432-0.2olE-^02-O.940E4C0-0.377E-:-33

0.1222S3E4OS O.274E402 0.123E-:-32 0.4592400-0. Z77E-i-93

0.1213S7E405 0.333E4B2 0.453E402 0 . 153E49 1-0 . 3S2E403

0. 121594E-!-85 0.23SE-HD2 0.613E431 0.214E403-0.484E-V03

0.1213SSE4C5 0.233E432 0. 4032402 0 . 142E40 1-0 . 3S 1E403

0.12OS72E405 0.2S2E492 0.69SE432 0 . 233E40 1-0 . 3£bE4G3

0. 1203e3E-i-05 0.292E402 O.594E402 0 . 173E4G1-0 .3S3t:^4G3

POLYNOMIAL COEFFICIENTS FOR FACTOR 1 COEFF SIGMA

8.135932192405 0. 493277 17E40

1

-0.52335359E4O2 0. 19S59339E-01

e.66241332E-03 0. 13429741E-03

REDUCED' CHI SOUARE= 810.19

FTEST = 0.16E407

RMLIL = 0.10E401

R(l) = -0.10E401

R(2) = 0. 15E-02

TIME P YFIT

-282.5 0.313137E405 0.3131 15E405

-275.5 0.3131 0SE405 0.3131 133405

-267.5 0.313 1933405 0.31311 IE405

-259.5 0.313213E-1-05 0.313109E405

-252.5 0.31317GE405 0.313137E405

-244.5 0.313123E-t-05 0.313135E4O5

259.5

7

0.312950b.-!-0o

7

0.3129d3£4G5

267.5 0.312733E405 0 . 3 129boz.405

275.5 9.3127SGE405 0.312954E4G5

282.5 0.3 12S3QE435 0.312SS2E+03

SIGMA P P-YFIT <P-YFIT)/SIGP DEL P 0.S32E489 0.215E401 0.244E431 0.O02E42O

0 . 577E4 J0-0 . 132E40 1-0 . 229E-J-9 1 -G . 3S7E48

1

3.333E4O0 0.322E401 O.247E402 O.933E401

0.333E4aa 0.104E402 8.313E402 0.2983401

0.577E433 3.630S491 0 . 109E492-0 . 433E40

1

0 . 333E400 0 . 1 S5E43 1 0 . 554E40 1 -9 . 467E40

1

‘l

^

0. 1 15E431-0. 132E401-0. 157E401-B. 1 133492

0.S32E433-9. 133E-r02-3 .207b.4e2-0 . 157E402

0 . Q93E400-0 . 2O4E4O2-0 . 204E4 1 7-0 . 2b3E43

1

0 . 577E40O-0 . 1 32E-i-a2-a . 22SE402 0 . 700E40

1

A8
POLYNOMIAL COEFFICIENTS FOR FACTOR 2

COEFF SIGMA

0.31303S52EH-Q5 0.9335S'033E+O0

“0.271 17463E-01 0 . 5641 1624E-02

REDUCED CHI SQUARE= 65.37

FTEST = 0.23E+02

RMUL = 0.49E+00

R(l) = -0.4SE+O0

EXTRAPOLATION TIMES ABOUT MID POINT OF PLATEAU FOR POLYNOMIALS

FIRST PLATEAU = -2Q0. 200.

SECOND PLATEAU = -4S2. 432.

REAL TIMES ARE 200. SECONDS ON EITHER SIDE OF

e. 0. FOR FIRST PLATEAU, AND 204. 769. FOR SECOND

EXTRAPOLATED VALUES AND SIGMAS BACK AND FORIJARD IN TIME

THEN PRECISIONS, = BACK, FORWARD AND REQUESTED

R1 “0.529E-K02 0. 131E+00 -0.5I7E^O2 0, 131E+30 404. 394. 30

FI 0. 160E+OS O.331E+02 0.1 10E-:-G6 0.331E+02 435 1

.

3325. 100

F2 0.313E+O5 0.2S3E-:-31 0.3133+05 0.283E+01 103B3. 10874. 100

FACSET

425.0 1 14 #D-7542;

FACSET

0.0 2

14 =&D 0003;

FACSET

0.0 3

14 *G 0000:

FACSET

0.0 4

14 *G 0000;

FACTOR LEVELS SET TO 425.000 0.000 0.000 0.800

MolctoloioK MEASUREMENT FOR PLATEAU NUMBER 2

NO. F I READING SIGMA RD TIME BAD RCHI TESTCH

1 1 0 0.1051397E+O5 0.15O25S3E+02 3 1133. 0 0.0 4000.0

1 2 1 0 . 3O66SO0E+9r! 0. 1154780E+01 3 1133. 0 0.0 1503.0

2 1 0 0. 104932ZE-:-3S a.. 153730 lE+02 3 1140. 0 0.0 4300 .

0

2 2 1 0.33S7S33S+G5 0.83191753+30 3 1140. 0 0.0 1500.0

3 1 0 8. 104b3S3E+0S 0. 1760995E+32 3 1148. 0 0.0 4003.0

3 2 1 0 . 3063 1 67E+0b 0 . 3333345E+09 3 1148

.

0 0.0 1560.0

4 1 0 0. 1044S7OE+0S 0. 161S5S3E+82 3 1155. 0 0.0 4080.0

4 2 1 0.3Gb76b7E+35 0.333334SE+03 3 1156. 0 0.0 150.0.0

73 1 0 0.S972SOOE+O5 0. 1553345E+92 3 1680. 0 0.0 4033.0

73 2 1 0 . 33SS2G < E'i Od 0.333334SE+00 3 1633. 0 0.0 1500 .

0

74 1 0 0.8951 33 lE+05 0. 153700 lE+02 5 1683. 0 0.0 4000 .

8

74 2 1 Q.30b63G3E+05 0.COOCG8GE+O9 3 1683. 0 0.0 1560.0

75 1 0 0.8931bb9E+O5 0. 15O1432E+02 3 1695. 0 0.0 4900.0

A9
75 2 1 0.3O66633E+35 O.333334SE+00 3 1695 0 0.0 1503.0

CHECKS OF PRECISION FOR FLftTEFlU 2

UEIGHT LOSS FOR THIS PLHTEPU = 0.15SE+05 MICROVOLTS

UITH AVERAGE RATE OF 0.232E+02 MICROVOLTS PER SECOND

TIME P YFIT

-281. 0 0. 105143E40S 0. 10514SE40S

-274, 0 0. 104332E4Ob 0. 1 04941 E403

-266. 0 0. 10459934.35 0. 1047eSE40S

-253. 0 0. 404467E495 0. 1G4472E43S

-251.,0 0. 104252E4C:5 0. 1042S7E-'r0S

-243. 0 0. 1 G4024li40S 0. 1O4033E43S

-235. 0 0. 103S82E405 0. 1037933495

-228.,0 0. 1O3574E40S 0. 1 03595E425

-220.,0 0. 103343E4G5 0. 1 03332E40S

-212.,0 0. 103122E405 0. 1031303405

-205.,0 0. 102914E406 9. 1G232SE48S

-197.,0 0. 1O2714E406 0. 1025943495

-190.,0 0. 1O2497E40S 0. 10249IE40S

-182.,0 0. 10227CE4GS 0. 1G2259E435

-175.,0 0. 102071E40S 9. 102057E4GS

-167.,0 0. 101S41E40S 0. 101326E40S

-159.,0 0. 101b 17E405 0. 101 395E40S

-152.,0 0. 10139 1E405 0. 131393E405

-144.,0 0., 101 153E43b 0. 101 163E405

-136.,0 0., lGO95f'b40S 0. 1O3933E403

-129.,0 0., lQ9734E43b 0., 1037323495

-121.,0 0., 109527E4GS 0., 1 03^923405

-114,,0 0., 10O3O9E405 0., 109392E4SS

-106,,0 0., 1QGO33E406 0., 1G9073E405

-98,.0 0..99S5S0E435 G.,9934443495

-91,.0 0.,995333S405 0.,9954453405

-83,.0 0.,99419SE405 0,,9941553485

-75,.0 0.,9921309405 0.,9913373495

-68,.0 0,,9909779405 0.,9395373-1-35

-60,.0 0,.9S7993E-r05 0., 937G24E405

-53,.0 0..985347E435 0., 9355333403

-45,.0 0,,9335707-^05 0.,9333713405

-38,.0 0,.931399E435 0.,9313913405

-30,.0 0,.97S939E405 0.,3791293405

-22,.0 0,.9757803405 0., 9763793405

-15,.0 0,.974733E405 0,,9743953495

-7 .0 0,. 972445E405 0,.9726433405

0,.0 0,, 970377E405 0,. 970S7434Q5

8 .0 0,, 96S23bE-!-05 0..3534273405

16 .0 0,.966032E4O5 0,.9551323405

23 .0 0,,9540423405 0,.9542213405

31 .0 0,.9S1S53E405 0,.9512313405

38 .0 0,.9593369-^05 0,. 9599243405

4S .0 0,. 9576433405 0,. 95779QE-i-35

53 .0 0,.9555103405 0,. 355S37E405

SIGMA P P-YFIT (P-YFIT)/SIGP DEL P

0. 150E+92-0.631E+01-

0. 159E+02-O.S53E+31-

0. 175E-f02-0.694E+01-

0. 152E+32-3,431E-i•31-

0. lS2E+92-a, 152E+02-

0. 17SE+32-9.S0SE+01-

0. 165E+02 0.23iii+01

0. 17SE-i-02-3.21 lE+02-

0. 1S2E+92-0. 143E+02-

0. 153E+02-0.750E+91-

0. 150E+32-3. 124E-^02-

0.159E+32 0.23IE-;-02

0. 1S2E+02 a.6G5E+01

0.159EH-32 0.137E+02

0.165E-:-32 3.133E+02

0.170E+O2 0.155E+02

0.1S2E+O2 0.221E~'-’32

0. 159E+02-0.219E+01-

0.1S2E-;-32 0.533E+ai

O.152E+02 9.241E+92

9.17oE+02 0.1E1E+01

0 . 144E+92 0 . 243E+92

0.17GE+92 0.731E-1-01

O.1S5E+02 O-.7OOS+01

0.167E+32 0.13b'EH-02

0. lo2S+22-9.533E-f-91-

0.159E+92 0.313E+31

0.159E+O2 0.243E-^82

0. 1S5E+92 0. ISQE+02

0.147E+02 9.3SSE^02

0.IS7E+92 9.209E+02

0.1S7E+O2 O.299E+02

0 . 173E-J-02-9 . 625E-0 1

0. 173E^-02-G.•lSSE-:-02•

0. 153E+O2-9.93OE-:-01-

0. 162E+32-9. 1 13E-f-92- 0. 1S7E+02-0. 197E+02-

0. 159E+02-O.293E+92-

0. 159E+02-0. 144E+02-

0. 153E+02-a.994E+01'

0. 153E-^02-0. l~GE+02-

0. 159E-f02-0. i31E+0i'

0. lo3E-032-9. lcSE+02-

0. 1S2E-H02-0. 150E^-92

0. 159E+02-3.327E+02'

•0.453E-i-O0 0.G0OE+C0

•0 . 543E+00-0 . 207E-H03

0 . 394E+O0-0 . 233E+03

•0.29EEH-00-0.232E+03

•0 . 943E+00-0 . 2 1 5E+33

•9.514E+00-0.223E+93

0. 17IE+09-0.222E+O3

0. 1 1SE-I-O1-0.22SE+O3

0.SE6E-;-00-0.226E+03

0.472E+00-0,22EE-:-33

0.S2SE+00-0.20SE+O3

0. 126E+01-0.20SE+O3

0 . 375E+O0-0 . 2 1 7E->-03 0. llSE+01-0.21SE-i-03

0 . 839E4O0-0 . 2O7E+03

0.919E+09-0.22SE433

0. 137E+01-0.224E+03

•0. 13SE499-0.22EE4S3

0 . 332E400-0 . 223E403

0. 143E401-0.21 1E403

0. 1O3E430-0.223E4O3

0. 16SE4OI-0.207E403

0.415E400-0.217E403

0 . 425E400-0 . 229E403

0.S14E409-0.222E4C3

-0.332E40O-0.219E403

0. 197E4O0—0 . 220E403

0. 162E401~0.207E403

0. 16SE401-0.205E4B3

0.25OE401-0.20GE403

0. 125E4O1-0.215E403

0. 17SE401-0.21SE403

-0.3SOE-02-G.228E4O3

-0. 1 15E4O1-0.24SE4S3

-0.5SSE40O-0.215E403

-0.70OE400-O.203E403

-0. 1 1SE401-0.234E493

-0. 19SE401-0.207E403

-0 . 904E4O0-O . 20SE403

-9 . G49E400-0 , 22CE-. 03

-9 . 1 1 6E40 1 -0 . 204E423

-0. 1 14E40G-e.2aEE403

-9 . 1 1 4E40 1-0.2! 3E-1 33

-0 . S2CE4GO-0 . 220E4O3

-0.2O6E401-O.213E403

I

i

I

AlO
61. 0 0..953313E+05

69. 0 0.,951 133E+05

76. 0 0., 943907E+05

64. 0 0.,94S9S3E+05

92. 0 0.,9449903+95

99. 0 0.,9429533+05

107. 0 0., 940343E+05

114. 0 0., 93876SE+95

122. 6 0.,93GS86E+05

130. 0 0.,9347083+05

137. 0 0.. 932676E+05

145. 0 0.. 9305S3E+O5

152. 0 0,.9284273+05

160. 0 0,.9263233+05

168. 0 0..924183E+05

175. 0 0,,922183E+05

183. 0 0,, 92G307E+0D

190. 0 0,.9183363+05

198. 0 0,,9163073+05

206. 0 0,.9142033+95

213. 0 0,.9120863+35

221. 0 0,.9099833+05

228. 0 0,.9078433+05

236. 0 0,.9956103+95

243. 0 0,.9334603+05

251. 0 0,.9314333+05

259. 0 0,.8392933+35

266. 0 0,.8972303+05

274. 0 0,. 835 1833+05

281. 0 0,.8931663+05

0.953S09E-f-05 0.iS5E+92-

0.951384E+05 0.1S2E+02-

0 . 949433E+95 0 . 1 62E+02-

0.94721SE+O5 O.141E-!-02'

0.9459OlE-r05 0.147E+92

0.943063E+D5 0 . 153E-I-92' 0 . 94935 1E4-85 G . 147E-^02-

O.93S919E+05 G.153E-^02-

0.9357I2E-I-05 O.153E-!-02'

0 . 934r593E-f05 0 . i 5SE+02

0.9325S3E+95 0. 155E+92

8.930335E+05 0. 255E-r92

0.92S454E+95 0.17!Ev92

0. 92627 lE-i-35 0.153E+02

G.924932E405 0.159E-:-92

0.9221 S3E-:-a5 0.141 E*h32

G.9193S4E+05 0.144E+92

0.91 S975E+05 0 . 1 62E*r92

0.31539SE-!-05 O.153E+02

0.913720E+05 0.159E+92

0.911319E+95 0.155E+92

0 . 909S48h*r05 0. 1S7E+02

0.9O7751E-K05 0.173E-^02

0.9055GSE+G5 8.157E+82

O.903394E+05 0.1S2E+32

0.9Oi534E+95 0.159E+92

0.899377E-f05 0.147E+O2

0 . 897493^405 0 . 1 56E+32

0 . 895342E+05 0 . 1 59E+32

0.S93452E+05 0.15GE+02

•0.296E+02-0,

-0.251E+92-O,

0.532E-rO2-0,

•0.255E+92-0,

9. 1 13E491-0,

0. 1 1CE402-0,

-0.375E-I-09-0,

•0. 152E-i-92~0,

-O.255E491-0,

1E0E4O1-

155E-:-8l329E401-

1S9E401-

764E-91-

719En'C0-

5S4E-01-

SS0E4G3-

167E493-

-0.223E+03

-0.21SE403

-0.223E+93

0 . 194E+03

-0 . 1 9 1' E+B3

0 . 204H+03

-0.21 lE+93

-O.20SE+03

-0.20SE+03

0., 191E-I-32 0., 1233+01--0., 1393 +93

0.,931E+91 0.,597E+00'-0.,2023+03

9., 17SE+02 0., 1 123-i.n 1

.

, w - -0.,2113+03

9.,3S3E+01--0.,2163 +80--0.,2143

9.,5123+31 0., 3343-'-03--0,,2103+03

0., 1913+02 0.,6383+33'-0.,2143i'03

0., 1503+01 0., 1063+00'-0.. 200b+03

0.,3233+02 0.,2243+01'-0.1 i C w ^ +03

0.,2613+02 0., 1623+3 T-0., 1973+03

0.,41 13+02 0,,2683+01'-0.,2033+33

3.,4333+02 0., 3223+C I--0.,2103+03

0.,2633+02 0., 1723+37-0.,212E+03

9.,3353+02 0.,2003+07-0..210E+03

0,,S13E+01 0.,5263+00'-0..214E+03

0.,2383+01 0.. 1423+03-0,.2233+03

0., 234E+32--0., 1453+0 7-0..2153+03

0.. 1913+02--0.,6373 rs -3.. 2033+03

•3..8593+91--9..5773+03-0,.2143+03

•0..2133+02--0,. 1 37ti+3

1

-a..2013+03

•0,, 1593+02--0,. 1003+07-0,.2103+03

-0.296E4O2-9. 197E+31-0.202E403

POLWCMIfiL COEFFICIENTS FOR FACTOR 1 ccEFF SI cm

0.970S7437E-I-05 0.34519031E431

>0.281145783+02 0. 1393539SE-01

0.22657185E-O2 0.95330075E-04

REDUCED CHI SQUARE = 397.19

PTEST = 0.97E+OS

RMUL = 0.10E+01

R(l) = -0. 103+01

R(2) = 0. 903-02

TIME P YFIT

>281.0 0.3Q666Oi.+Go 0 . 30o6o2z.+G5

-274.0 0 . 3067833+95 9.3OSS513-r05

-266.0 Q.3G6S17E+05 0.3066513-1-05

-258.0 0. 3067673+05 8.3066513-1-05

-251.0 0. 3067033+05 O,30S6503-!-G5

-243.0 0.3OSS47E-:85 0. 3365503+05

-235.0 0 . 3Ob''jo0L:-f 0.30S.E;5G3->-05

-228.0 0 . SOoSESE-t-GS 0 . 3366433+05

SIGMA ? P-YFIT (?-YFIT)/SIGP DEL P

0.115E+91 0.820E+O0 0.71CE-^00 0.C00E+09

0.S32E-HDO O.132E+02 O.149E+02 0.123E+02

O.333E+C0 0.1GSE+92 0.497E+02 O.334E+01

O.333E+30 O.HbEf02 0.3433+02-0.5003+01

0 . 333E+90 0 . 539E+0 1 0.158 E+02-0 . 634E+0

1

0 . 333E+30-0 - 323E+03-9 . 9C4E+90-0 . 56SE+0

1

0.999E+00-3, I95E+01-O. lSCE+lo-0. lb7E+01

0 . 333E+00—0 . 259E+0 1~0 . 77SE+0 1—0. 6r'2E+30

t All
220.0

212.0

205.0

197.0

193.0

182.0

175.0

167.0

159.0

152.0

144.0

136.0

129.0

121.0

114.0

106.0

-93.0

-91.0

-83.0

-75.0

-68.0

-60.0

-53.0

-45.0

-38.0

-30.0

-22.0

- 15.0

-7.0

0.0

8.0

16.0

23.0

31.0

38.0

46.0

53.0

61.0

69.0

76.0

84.0

92.0

99.0

107.0

114.0

122.0

130.0

137.0

145.0

152.0

160.0

168.0

175.0

183.0

190.0

198.0

0.306627E+05 O.30S649E-f05 0.333;

0 . 3056 1 GE+05 O.30S64SE+05 0.033;

9.3OG32GE+05 3 . 20GG43E+03 0.033;

0 . 3O6600E+05 a . 305648E+0O 0.030:

0 . 30 -'1 -• i b,r.'r0b 9 . 30G647E+05 0.333;

0 . ZGbG27E+G5 0 . 305647E"i-05 G . 333'

0.3O6517E+G5 0.305S47E+05 0 . 333;

0 . 3063 13E-I-95 9 . b0S54SE+0b 0 . 333;

0 . 39b640E+G5 0 . 33S646E+05 0.000i

0 . 396643E+G5 0 . Z0664SE+85 0 . bbb!

0.30bG27E+05 0 . 305543E+05 0 . 33b.

0 . 306b3b£+0.b G.3GbS45E+e5 0 . 33 = ; 0 . 33665GE‘i‘05 0 . 303S44E+03 0 . 033;

0 . 3G6b47E-i-0b 9 . 3GS644E+05 9 , 333!

0 . 30S637E+G5 0 . 3G5S44E+05 0.333'

0 . 3G6530b+83 0 . 33SS43E+G5 0.033:

O.30662OE+G5 0 . 306543E+95 9.003'

0 . 3G6627E+05 8 . 305b4-3E+93 0.333!

0.30oS37E+05 0 . 303b42E+35 0.333!

0 .3066403+05 0.30G642E+35 0.033!

0 . 30SS3O=H-O5 0.30S641E+95 3.003!

0 . 3Qbb38E+05 G.3GSS41E+35 0.000

6 . 3C5o50E+G5 0.3056413+35 0 . £ 0 j

0 . 30SS23E+G5 0. 3055433+05 0.333

0 . ,i06b0>iE+93

0 . 3QSS37E-r05

0.3OSbOGE-i-O3

0 . 30S5S7E+0D

0 . 30639GE+05

0 . 30S537E+3o

0.3OS573E405

0 . 336S50E+9b

0.3OSoSGE+O5

9 . 3O6S70E'!'0b

0 . 30S’ob7E+95

0 . 3GSEb0E'r33

0 . 30ob33E+05

0 . b0oG27E*:'O5

0 . 3Obb4OE'f-0D

0 . 306S40E+05

0 . 306S37E+05

0.30SS29E+05

9 . 30SS57E+O5

0 . 30S'oS7E+0o

0 . 30c'b5OE+05

0 . 30oS67LI. +05

3 . 30bb77E+G5

0 . 30Go57E+O5

O.30Sb2GE+05

0 . 30Db2OE+G5

0 . 30Sb27E+03

0.3066103+05

0.3G554OE+05

0 . 3056 1 GEi'‘0b

0 . 3GG6G71+05

0 . GGObGr" t.+ c.'b

9

-0 . 221 E +01 - 3-a.334E+01-

G-0.531E+31-

0-0.477E+31-

0-0.341E+D1-

O-3.295E+01-

0-0.300E-*-0'-

0—9 • 33Gb.+a 1 9-2.5S5E+0O0-O.223E+G0-

9-0. 134E+G1-

0-0 . 1 15.E+0 1 0 0.55SE+00

0 0.25SE+30

0-0 . 6S3E+G0-

9-0. 133E+91-

3-9.22SE+01'

3-0. 159E+91-

0-9.551E+39'

9-

0. 1S3E+90

3-0. 114E+01

3-0. Ill £+31

3 0.93GE+30

10-

0 . 173E+9

1

0 . 33564GE+35 0 . 333E+93—0 . 367E'’c9

1

0 . 33554GE+35 G . 333E+S3-9 . 329E+3

1

0 . 3G3b3SE+05 0 . GG3E+33-0 . 392E+3

1

0 . 306S39E+G5 0 . 333E+33-0 . 422E+0

1

0 . 3G563oE+35 0 . G0GE+00-0 . 435E+9

1

0 . 33oS3Si:i'!-G5 0 . 65 r =,+03—3 .131 E+02

0 . 30S533E+05 8 . S32E+03-3 . 645E+9

1

O.30bb37E+05 0.G33b.+G3 0.126=+31

0.33bS37E+35 G.003E+G3 0.42SE+31

0.30bG37E+Q5 0-O0OE+G3 0.333E+31

O.3G363SE+05 0.b3=E+33 0.334=+01

0 . 33bb36E+05

0 . 30SS36E+G5

0 . 306635E+35

0 . 30ob35E*i'35

0.3Q6534E+05

0 . 33Sb34E+G5

G . 3Gbb34E+Q5

0 . 33ob33E+G5

0 .

3

God33E+05

3 . 3G5633E+G5

0.30S632E+05

0 . 305b32E+3b

0.39S632E+G5

0.3B5G31E+05

0 . 33663 lE+05

0 . bOobbGE+Gb

0.3SG533E+G5

O.3G6b30EH-9D

0.3GSb29E-i-Q5

0.3G6629E+05

0 . 3Gb623E+05

0.343E+00

-0. 167E+01

-0.203E+G1

0. ICGE+Gl

0. 133E+01

0. 134E+01

-0. lGGE+01

'0 . b4GE+00

0 . 257E+3

1

O.32EE+0O

-0. I55E+01

0 . bbGE+80

0 . 1 S7E+9

1

-0.332E+00

-0. 10GE+31

-0.£cSE+C3

-G. ieGE+01

G.6SSE+03

3. ICGE+ai

0 . b32E+33

-0. ieOE+31

0 . GG0E+GO

C,2GGE+ai

-0.267E+ai

-0.2C0E+01

G.343E+30 0 . 665E+39

-0.332E+30

Q.,0303+90 0.,2413+01 0

0., 3333+00--0.,234£+30--3

0.,3333+33--0.1 0w3b-'*ba'-3

0.,0933+90 0.,5153+30 0

0.,0303+30 0,, 5513+00 a

0.. 3333+03 0.,2533+30 0

0.,0a33-;-03--a., 1373+01 -0

0., 3333+00 0..233E-I-01 0

0., S_J W, .. ' w 3 a.. 3o7E+0

1

0

0.,0333+00 0., 173E-r01 3

0.. 3333+33 a.. 3443-K0

1

0

0.. 3333+03 0.. 4433+0

1

0

0.. 3333+00 0,.2523-1-01 0

0,.5773+93--0,. 1 1 lE-.'-ai — 0

0,,0333+03--0,. 1083+01'-0

0,.•3333+33--0,,375£-!-a3-0

0,.5773+03--9,. 2003+0

1

-0

0,.3033+33--3,. 39 i'c.+3

1

-0

0,.5773+03--0,, 1933+31 -0

8,. 3333+33 0 ,3773+31 3

0.. 3333+00 6 .3313+01 0

O . bb^b+Ul

0 . 334E+1 6—

0.501E+16-

0 . 477E+ 1

6

9. 1G2E+G2

0.6GEE+G1

a.S9£E+01-

0.2SrE+Ol0.SS6E+15

0.b58E+G0

0.553E+GI3.345E+G1

0.53EE+15

0.797E+G9'

0.21GE+G1'

•0. 133E+16'

•0.22SE+16-

•0.477E+O1

•0. i65E+Gl

0. 1S9E+15

•0. 1 14E+16

0. lllE+16

G.930E+15

0.51 lE+91

0. llCE+02

0.S2EE+01

3.3S2E+16

0 . 127E+G2

a.435E+lb-0.65SE+G0

0. 152E+G2

0 . 732t:+3

1

0.12bE+16 £!.767t+01

3.42SE+lS a.3GGE+01

3.333E+16—G. 103E+91

0 . 3o2=+03

Q.663E+G3

0.267E+91

0 . £6OE+L'0

0. 133E+31

0 . 6G3E+G0

0.332E+G0

G. 167E+31

^G2E+01 0.367E+01

:g:e+g2 0. 10OE+01

;73E+lb-0. 167E+01

[03E+G2 0.I67E+31

i34E+02 8.1£0E+01

’55E+O1-Q.2C0E+31

[93E+01-0.367E+31

lGSE+16 0.0OGE+03

[12E+01 0.668£-:C0

347E+01-0. 167E+01

:!07E— 1 6-0 . 70GE+0 1 i:34E-^01 0.7GGE+01

[13E+G2 G.567E-^01

114E+G2 0.O0OE+G0

d

0

0

42SE+lS a 333E+1G—

G

0.91 lE-r01-

241E+1S7C3E+G0-

257E+3 1-

533E+01

36£=+8

1

- d . Jbri -16-

A12
206.0

213.0

221.0

228.0

236.0

243.0

251.0

259.0

266.0

274.0

281.0

0.306657E+O5

0 . 3ob650E-!-05

0.3OG640E+05

0.3QS63GE-f-O3

0 . 306500E+05

0 . 30SS30E+05

0 . 30Sb37t.'rGo

0.30SS47E-T05

0.3GSS27E+05

0 . 3GSS3Ob.+05

0 . 30S663E+05

0 . 3O6S23E-.’-05

0 . 30Sb2oE+95

O.30qS27E+85

0 . 30b627E-r05

0 . b3SG27E-'r05

0 . 30SS2Gb+O5

0 . 30ob2S£'r95

0 . 33oo2b£'i-Q5

0 . 3OS625E-i-05

G . 306625E'!"0o

O.306625E+05

O.333E+03

0.O00E+03

0.033E'r03

0 . 030t."^00

0 . 033E+30'

G.C33E+30

0 . 333-+30

0 . 33bb+39

0 . 333E+33

0 . 033E-I-33

0 . 333E+03

0.2S5E+01 0.

0.221E-f-31 0. a. 125E+01 0.

0.233E+30 0.

-O.267E+01-0,

O.bboE+OO 0,

0.1O7E-;-01 0,

O.211E-f01 0,

8.141E+00 0,

0.512E+33 0,

0.387E+01 0,

G55E4-01-

221E+15-

125E-M5-

23SE+15-

2S7E+ 1 5“

363E+15

32GE+01

632E+31

422E-.'-E3- 512E+15

116E-^02

0. ieCE+01

0 . 66SE+00

0. 1B0E+31

0. 103E+01

0.3BCE+31

O.33OE+01

O.66SE+0O

0. leCE+Ol

0 . 200E+9

1

0 . 332E+03

0 . 33bE+0

1

POLYNOMIAL COEFFICIENTS FOR FACTOR 2

COEFF SIGMA

0.306638 16E+35 0.47010167E+0O

-0.48555051E-02 0.298562002-02

REDUCED CHI SQUARE= 17.14

FI'EST = 0.23E+01

RMUL = 0.19E+O3

. R(l) = -0. lSE+00

EXTRAPOLATION TI^ES ABOUT MID POINT OF PLATEAU FOR POLYNOMIALS

FIRST PLATEAU = -4S4. 464.

SECOND PLATEAU = -453. 453.

REAL TIMES ARE 182. SECONDS ON EITHER SIDE OF

204. 769. FOR FIRST PLATEAU, AND 1133. 1695. FOR SECOND

EXTRAPOLATED VALUES AND SIGMAS BACK AND FORWARD IN TIME

THEN PRECISIONS, = BACK, FORWARD AND REQUESTED

R1 -0.332E-f32 O.891E-01 -0.263E-}-32 0.89IE-31 339. 292. 30

FI 0. 1 1 !E-^-05 0.217E-f32 0.845E-^05 0.217E-f02 5196. 3304. 100

F2 0.307E^-a5 0. 143E-»-ai 0 . 3O7E-^05 0. 143E-f31 21479. 21476. 100

ACTIVATION ENERGY FROM =ACTIVE=

E SIG E FACTOR OR RATE

67.925 0.593 428.96 0.04 -0.51S9E+02 0.1263E-r03

421.30 0.02 -0.3021E+02 0.8310E-01

CONTRIBUTION OF RATE AND TEMPERATURE TO VAR I ANCE ( =S IG£>!oK2)

RATE TE7P

0.2352-^-00 0. 123E-t-03

NUMBER OF POINTS USED TO GET POLWOMIALS WAS 75 AND 75

E VALUES, TIMES AND SAMPLE WEIGHTS SO FAR:

1 67.925 0.593 951. 0. 1 10725E-f06 21.11

FACSET

- 433.0 1

A13
2

14 #D 7698;

FACSET

0.0

14 -SD 0000:

FACSET

0.0 3

14 *G 0000:

FACSET

0.0 4

14 =l>G 0000;

FACTOR LEVELS SET TO 433.000 0.000 0.000 0.000

MEASUREMENT FOR PLATEAU NUMBER 3

NO. F I READING SIGMA RD TIME BAD RCHI TESTCH

1 1 0 0.7689969E+05 0.2323329E4O2 3 2964. 0 0.0 4000.0

1 2 1 0.3131233E+05 0.333334SE403 o 2864. 0 0.0 1500.0

2 1 0 0.7659 13 lE-l-05 0. 235737 1E402 3 2071. 0 0.0 4600.0

2 2 1 0.3131O33E+G5 0 . 333334SE400 3 2071. 0 9.0 1580.0

3 1 0 0.7625269E+05 0,251 1530E402 3 2079. 0 0.0 4000.0

3 2 1 0.31303S0E-:-O5 0.eG9O030E430 3 2079. 0 0.0 1500.0

4 1 0 9. 759343 lE-:-05 0.251 1530E402 3 2086. 0 0.0 4600.0

4 2 1 0.313O333E+O5 0 . 3333346E4O0 3 2086. 0 0.0 1560.0

5 1 0 0.7560 169E+05 0.2425 10 1E402 3 2094. 0 0.0 4660.0

5 2 1 0.31 30433E+05 0 . 333334SE4O0 3 2094. 0 0.0 1500.0

6 1 0 0.7526490E+G5 O.24S2b35E402 3 2102. 0 0.6 4836.0

6 2 1 0.3130233E+35 0 . 333334SE+09 3 2102. 0 0.0 1500.8

7 1 0 0.7492bOCE+03 O.24S2S05E4O2 O 2109. 0 0.0 4006.0

7 2 1 0.3130300E+95 0 . GB8O0O0E400 3 2109. 0 '.0.0 1560.0

8 1 0 0.74S0S00E-^95 0.2367 13SE402 3 2117. 0 0.0 4600.8

8 2 1 0 . 3 130S0Ob+05 O.GOOG000E400 3 21 17. 0 0.0 1560.0

9 1 0 0. 742953 lE+05 0 . 23960b2c.402 3 2124. 0 0.0 4060.0

9 2 1 0.3130333E+O5 0 . 333334SE400 3 2124. 0 0.0 1560.0

10 1 0 0. 739723 lE+85 0 . 2397452E402 3 2132. 0 0.0 4000.0

10 2 1 0.31391S7E-f-05 0 . 333334SE430 3 2132. 0 0.0 1560.0

11 1 0 0. 736503 lE-;a5 0 . 2389342E402 3 2139. 0 0.0 4060.6

11 2 1 0.3130200E+O5 O.G030000E400 3 2139. 0 0.0 1500.0

12 1 0 G.73333GOE405 0, 2424372E402 3 2147. 0 0.0 4060.0

12 2 1 0.3130200E+O5 0.e0O090OE4a0 3 2147. 0 0.0 1500.6

13 1 0 0 . 730203 1 £405 O.2333329E402 3 2154. 0 0.0 4600.0

13 2 1 0 . 3 13G033E405 0 . 333334SE40O 3 2154. , 0 0.0 1500.0

14 1 0 0. 727073 1E405 0 . 2453795E402 3 2162. 0 0.0 4600.0

14 2 1 0.3130033E405 0 . 333334SE400 3 2162. 0 0.0 1500.0

15 1 0 O.723S20OE405 0. 230940 1E402 3 2170. 0 0.0 4000.8

15 2 1 0.3129400E4G5 0.57735OSE40O 3 2170. 0 0.0 1560.0

16 1 0 0.7207600E4U5 0.2231032E4O2 3 2177. 0 0.0 4609.0

16 2 1 0.3129633E4O5 O.S819175E4O0 3 2177. 0 0.0 1500.0

17 1 0 0.7175S0CE405 G.242S930E4G2 3 2105. 0 0.0 4060.0

17 2 1 0.313O457EHO5 0 . 3o33346E'i'00 3 2185. 0 0.0 1506.0

le 1 0 0.7 143331 EH 05 O.23960b2E4O2 3 2193. 0 0.0 4060.0

18 2 1 O.3130900E405 O.OG00O00E400 o 2193. 0 0.0 1500.0

] h 'i ‘i

A14
TGRUNF summary obtained for latest 10 activation energies.

The calculations are performed at the end of every temperature

plateau.

E VALUES, TIIES AND SAMPLE HEIGHTS SO FAR:

1 67.212 0.710 5979. 0.947759E+05 47.62

2 61.138 0.467 6793. 0.763499E-r05 51. 19

3 70.099 0.883 7612. 0.43955SE+05 55 .51

4 63.63? 0.691 8431. 0 . 32862Sci+35 53.64

5 59.779 0.631 9243. 0.917692E+04 64.24

6 -63.345 0.516 18055. -0.433650E^84 66.96

7 69.759 0.791 18374. -0 . 25 1777E+05 70.91

8 66.657 0.399 11781. -0.380 lOSE+05 73.40

9 66.230 0.653 12685. -0.639526E-:-05 73 . 44

10 63.573 0.366 13538. -0.777644E+05 81.12

WEIGHTED MEAN E IS 64.447 + OR - 0.172

REDUCED CHISQ FOR E CALCULATION IS 28.410 (SHOULD

UNWEIGHTED MEAN OF SIGMAS IS 0.612

CALCULATED OVER 9. DEGREES: OF FREEDOM

ASSUMING ALL POSSIBLE SAMPLE MEANS ARE NORMALLY

DISTRIBUTED, TRUE WEIGHTED MEAN LIES UlTHIN RANGE 64.110 TO 64.784

FOR 95% CONFIDENCE LEVEL

UNWEIGHTED ESTIMATE OF E AND UNBIASED ESTIMATE OF

SIG E ARE 65.143 AMD 1.033 WHICH GIVES CONFIDENCE RANGE

OF 63.016 TO 67.230

CHI-SQUARE FOR UNWEIGHTED E IS 39.26

A15
FORTRAN listings for the routines in the program TGRUNF, which

runs the computer-controlled factor-jump thermogravimetry apparatus

: SflSSM

i T&RLIN PROG

' SPORT

1 STRGT 16

! C

C TGRUN PROGRAM

C

C jfoMof=K><<>!oK>»:>foh>»otc>tc4o4c>lr5lDlotoK>io»K5fo(2loK5i=1>s<sfctniotofoMoioMcHo^^ c

C MAIN PROGRAM TO RUN THERMOGRAVIMETRY EXPERIMENT

C L'RITTEtl BY B. DICKENS

C NATIONAL BUREAU OF STANDARDS

C WASHINGTON D.C. ' - C TELEPHONE (301) 921-3322

C

C FOR DOCUMENTATION, SEE NES INTERNAL REPORT S3$

C

C THE MAIN PROGRAM NEEDS ALL COMMON BLOCKS

C

C COMMON /BIAS/

C '-EOMMON /DERIVE/

C COMMON /FACTR/

C COMMON /lO/ .

• C COMMON /MIDASR/

C COMMON /PARAMS/

C COMMON /PLAT/

C COMMON /STEPS/ . C COMiMON /WHEN /

C

C THE PROGRAM CALLS THE FOLLOWING SUBROUTINES:

C

C ACTIVE . C BAKEIT

C BIASVL

C EXTPOL

C FACSET '

•

•

. _ C INIT . . . . C OVERLY

C PLATTO . .

- •

• C PRECIS . - .

• i C PRIME

C RESPON

C TRAMID - C UTAVER

C

C 8 FACTORS MAXIMUM

C

cC COMMON STORAGE IS DEFINED VIA ARRAY =DUMP=

COMMON DUMP(SOO)

C

C COMMON /BIAS/

C

DIMENSION BIASVC3),SIGBV(S)

EQUIVALENCE ( B I ASVC 1 ) , DUMP ( 1 ) ) , CS IGBVC 1 ) , DUMP (9)

)

C

C COMMON /DERIVE/

C

EQUIVALENCE (PRECE,DUM?( 131) )

• C

C COMMON /FACTR/

C

DIMENSION KANDU(S) . IFUNCT(S) , IFDER(S) . INPUT(S) , SCALE (8)

8.,

NRANGE(8) ,NREADS(3) .NTERM3(3),CHTEST(3),PTIME(3)

8.,

PRECF(S),PRECR(8).AT(4)

A16
ooo

non

noo

ooo

o

nno

EQUIVALENCE . I'ULIP (17) ) , (KHMCU C 1) , DUrP ( 18)

)

&,(IFUNCT( 1) .LLir;?c:s)) . ( iflerc i) .lij;p(3J) ) &, ( INPUTC 1) ,IilJiiP(4P) ) , ( SCALE ( 1) .DUriPCSQ) ) 8.. (NRANGE( 1) .DUfiP(33) ). (tPEADS C 1 ) . DUf :? ( £5)

)

8.. (HTERr-i3( 1) .DUiiP(74) ) , (CHTESK 1 ) , DUr.P (32) ) 5., (PTINE( 1) ,DUr:?(£:i) ) , (PRECFC D ,L'Ufi?(S3) ) 8., (PRECR( 1) ,DUriP( !CS)). (tiFACTS. DUr ;P ( 1 14))

& , (NRATES . DUMP ( 1 1-5 ) ) , ( 7 1 ML I M . DUI P ( 1 1 6 ) ) 8., (NBADS,DUr;P i . 17) ) . ( IM7VAL, LUrP ( 1 13)

)

&,-(AT(l) ,DUrP(. 1 13) ) , (TSCFlLE,DUrP( 130) ) corroN /lo/

EQUIVALENCE (NTTYI .DUMP ( 123) ) , (NTTYO. D'JI4?(124) ) &. (NPR INT, DUMP ( 125) ) . CNF ILEA, lUlP ( 125) ) , (N.F ILE3, DUMP ( 127) ) 8., (NF ILED, DUMP ( 123) ) , (NF ILEE, DULP ( 123) )

COMTION /niDASR/

INTEGERX<2 OUT(20) ,REPLY(23) ,NUM( 10) , JUN’K2( 18)

EQUIVALENCE (OUT( 1 ) , DUf1P (

1 40) ) , ( REPLY ( 1 ) ,DUf'P( ISO) ) , (NUM( 1

)

DUMP (130) ) , (JUNK2(1),0UT(3) ) , (NF IL7R, DUMP ( 130) ) , (NVDC. DUMP ( 13 1 )

)

COMMON /PARAMS/

DIMENSION A01(3),AQ2(3),SIGA01(8) .SIGA02(8)

8.,

A1(4,3) ,A2(4,0) .3IGA1 (4.S) ,SIGA2(4.3)

8.,

FACT1 (2,8) ,SIGF 1 (2,3) ,RATE1 (2,8) .SIGRl (2.S)

&,FACT2(2,8) ,S!GF2(2,3) ,RATE2(2,8) ,SIGR2(2,3)

8.,

TIMEF(2),TIME3(2)

EQUIVALENCE (AOl ( 1 ) ,D'JLP(200) ) , (A02 ( 1 ), DUMP (208) ) 8., (SIGAOl ( 1) ,DUMP(2 IS) ) , (S IGA02 ( I ) , DUMP (224)

)

&, (A1 ( 1, 1) ,DUrP(232) ) , (A2(l, 1 ) ,DUrP(254)

)

8., (SIGAl ( 1, 1) ,DUM^(28S) ) , (SIGA2(1. I ) , DUMP (323) ) EQUIVALENCE (FACTKl, 1 ), DUMP (350) ) , (SIG-KI. 1 )., DUMP (376) ) &,(RATE1(1, l),DUrP(392)), (SIGRl (1, 1 ), DUMP (403)

)

8.,

(FACT2(1, 1) ,DUMP(424) ) , (SIGF2(1, 1 ), DUMP (443)

)

&, (RATE2( 1, 1) ,DUMP(435) ) , (SIGR2( 1, 1 ) , DUrP (472)

)

&, (K0UNT1,DUMP(4S3) ) , C!(CUNT2, DUMP (433) ) EQUIVALENCE (TIMEF( 1 ), DUMP (500) ) , (TIMES (,1 ), DUMP (502) )

8., (DAY,DUMP(504) ) , (HDTIME, DUiP(595)

)

8.,

(SKIP,DUhP(5£’5) ) , (RATMIN, DUMP (597) ) , (RATMAX, DUMP (503) ) &,(TJUMP, DUMP (503))

CONMON /PLAT/

DIMENSION RCHK8)

EQU I VALENCE ( LPLAT. DUMP ( 5 1 0 ) ) , ( NEL APS . DUMP (511))

8-, (NPIRST,DLTP(512)) , (fOCH I , DUMP (5 13) ) , (N5TCP, DUMP (5 14) ) &, (START. DUMP(515) ) . (RCH I ( 1 ) , DUMP (5 1 6)

)

& . (NOTHER , DUMP ( 524 ) ) , C KSTORE , DUMP ( 525 )

)

&, (ENDSIG,DUMP(52o))

8.,

(T0IM4,DUMP(527) ), (FACTIM,DUM?(523)), (EQUIL,DUM?(523))

COMMON /REGRS/

DIMENSION M(5),R(5).YFIT(250)

EQU I VALENCE (MCI), DUMP (530) ) . (R C 1 ), DUMP (535) ), (YF IT( 1 ), DUMP (540)

)

COMMON /STEPS/

DIMENSION F(4).DELF(4),DESIGN(4. 16), FDER(4)

EQUIVALENCE (F( 1) -DUMP (300) ) . (DELE ( 1 ). DUMP (804)

)

e..(DESIGN(l. l),DUrP (303)), (NFVEC, DUMP (872)), (FDER(l), DUMP (873))

A17
C COhMCN /UHEN/

C

DIMENSION TPLOTl (2) .TPL0T2C2) .NTY^:E(3)

EQUIVALENCE (EEG IN, DUMP (ECO) ) . (TFLAT 1 ( 1) , DUMP (83 1)

)

(TPLAT2C 1) ,DU:i?(333j ) , (NTVf :E ( 1 ) . DUMP> (335)

)

Cc

c DIMENSION TF(5.S) .STF(5.S) .TYT^(5) .FTIMEC4)

E.,PRECFF(8) .PRECFQ(S) ,PRECRF(3) ,PRECP3(3)

8.,

PSTOFF(S) .PSTQFB(3) ,PS7GRF(3) .FSTCR3(3)

8.,

E(10),SIGE( 10 ),TEr:?( 2 , 10).SIGT(2, 10) , ETIM£ (10) , SAMPLJTC 10) ,C ( 10)

5.,

ERATE(2, 10) ,SiGER(2, 10)

fc,EFACT(2, 10) ,SIGF (2, 10)

8.,

NPTS(2, 10)

Cc

C OVERLAY NAMES

C

INTEGER>i:2 ISETl (3) , ISET2C3) , ISET3C3) , IFACT(3), IPLATTC3)

IPR£CS(3), ISTATS(3)

C

DATA ISET 1 /' OS ’

. ' ET' ,

' U

1

' I SET2/" OS' ,

' ET* ,' U2'

/

!SET3/'03' , 'ET' , *U3'/

IFACT/'OF' ,'AC', 'TS'/, IPLATT/'OP' ,'LA','TT'/

8., IPRECS/'OP' , 'RE' ,'CS'/, ISTATS/' OS' ,

' TA' - ' TS'

/

C

C ASSIGN OVERLAY LOGICAL UNITS

C

NSETUP=11

NFACT=12

NPLATT=13

NPRECS=14

NSTATS=15

r

C INITIALISE MIDAS ARRAY =OUT= TO CONTAIN SHARP SIGN

C

0UT(2)=X'23'

C mX NUM3ER OF ACTIVATION ENERGIES FOR RUNNING AVERAGE

HENG=10

NENG1=NENG-1

C

• 732 CALL OVERLY( ISETl, NSETUP,0)

CALL IN IT

CALL PRIME

CALL DESYNE

C

C CHECK RESPONSE TIMES

C

CALL OVERLYC ISET2.HSETUP, 1)

CALL RESPONCFTIME.NERRCiR)

IF(NERROR.LE.0)GO TO 730

L'R I TE ( NTTYO ,731) riZRROR

731 FORMAT(' ERROR VALUE OF', 12,' FROM RESPON SUBROUTINE')

GO TO 732

C

C SETTLE QUESTION OF BIAS VOLTAGES

C . 730 CALL OVERLY( ISET3,NSETUP, 1)

CALL BIASVL

C

C INITIALISE MIDAS AND SAMPLE AS REQUIRED

C

CALL OVERLY( IFACT,NFACT,0)

. CALL BAKEIT(N,NTHCP,EEGINU,FINALU)

C

A18
ooo

ono

ooon

dqo

oooono

noon

nn OPTIONAL RETURN TO BEGINNING

IFCN.EQ.'B' )G0 TO 732

IJE NO'J HAVE ALL THE FACTORS. CHANGES AND VECTORS.

BEGIN EXPERIMENT

BEGIN=TiriER.(NTYriE) ) ZERO COUNTERS

LOOP = NUM3ER OF TIMES THROUGH DESIGN MATRIX

NPLAT = ORDINAL NUMSER OF PRESENT PLATEAU

IE = ORDIl^AL NUr-iBER OF PRESENT ACTIVATION ENERGY

LOOP=0

NPLAT=0

IE=0

NSTOP=0

1=0

LOO? OVER FACTOR CHANGING PROCEDURE BUILT INTO DESIGN MiATRIX

300 CONTINUE

NPLAT=NPLAT+1

IOK=0

IFCNST0P.EQ.5) I0K=1

HAVE FACTORS ALREADY BEEN SET AFTER EXIT FROM PLATTO (NST0P=2)

OR MUST THEY BE RESET (RATES TOO LOU. N5TC?=4. Nl=l)

IF(NSTOP.EQ.4)GO TO 13

1F(NST0P.EQ.2)G0 TO 21

11 1 = 1+1

12 N1=0

SET FACTORS

13 CALL OV.'ERLYC IFACT.NFACT.0)

10 CALL FACSETC I.N1,N2,N3.N4)

FACTIM=TIMER(NTYME)-EEGIN

MAKE THE LATER PLATEAU 'THE EARLIER PLATEAU

20 CONTINUE ' 1F(NST0P.EQ.2)G0 TO 47

'

21 DO 45 K=1.2

TPLAT1(K)=TPLAT2CK)

DO 46 J=1,NFACTS

A01(J)=A02(J)

SIGAOl (J) =SIGA02CJ)

PST0FF(J)=0.

PSTOFB(J)=0.

PSTORF(J)=0.

PSTORB(J)=0.

A1(K,J)=A2(K.J)

SIGAKK, J)=SIGA2(K.J)

FACTl (K. J)=FACT2CK.J)

• SIGF1(K,J)=SIGF2(K,J)

RATEKK. J)=RATE2(K.J)

SIGRHK, J)=SIGR2(K,J)

45 CONTINUE

K0UNT1=K0UNT2

C GO TO FACTOR MEASUREMENT. RETURN ON ERRORS. OR L'-EN IT IS TIME

C TO MAKE CHECKS ON PRECISION OF FACTOR MEASUREMENTS ^ AND DERIVED

C QUANTITIES SUCH AS ACTIVATION ENERGY.

A19
CALL OVEPLYC IPLATT,r;PLATT,0)

45 CALL PLATT0CA02.SIGH02,A2.SIGA2,K0UNT2,TF.STF,TYnE.NERP0R,NPLAT

8.,BEGINIJ)

IFCNSTOP.EQ. 1 -AND.K0LiMT2.LE.3)G0 TO 2000

IF(K0UIiT2.GT.3)G0 TO 2002 , NST0P=5 ' GO TO 100

C

C SET NEU FACTOR LEVELS IF PLATEAU PEASUREnENT COPPLETED

C

2002 IF(NST0P.ED.2)G0 TO 11 47 1F(NERR0R.GT.0)G0 TO 45

C

C CHECK PRECISION LEVELS

C

CALL OVERLY(1PRECS.NPRECS,0)

• CALL PRECISC IFG0,L:?LAT,PRECFF,PRECF3,PRECRF.PRECRB)

lF(NSTOP.h!E.0)GO TO 43

IF(IFGO.EQ.G) GO TO 49

NIX=0

DO 542 J=1,NFACT

1F(PRECFF(J) .LT.?3T0FF(J))NIX=NIX+1

PSTOFF(J) =PRECF(J)

IF(PRECFBCJ) .LT.P3T0FB(J))NIX=NIX+1

PST0FBCJ)=PRECF3(J)

IF(PRECRFCJ) .LT.PST0RF(J))NIX=NIX+1

PSTORF(J)=PRECRF(J)

IF(PRECRBCJ) .LT.P3TQR3(J))NIX=NIX+1

PST0RB(J)=PRECR3(J)

542 CONTINUE

IF(NIX.EQ.0

. IFCNFILEB.GT

IFCNPRINT.GE

AND,N3TOP.LE.0)GO TO 50

E.'ilJR

l 1.0 ITECNFILE3.543)

TS':NPRINT,343)

543 FORhATC/' TERMINATE T:^IS SERIES OF MEASUREMENTS

PRECISION IS DETERIORATING

BECAUSE'

NST0P=3

GO TO 49

C

C RESUME PLATEAU FACTOR MEASUREMENT IF PRECISION IS INADEQUATE

C

50 CALL OVERLY(IPLATT,N?LATT,0)

CALL PLATCO ( AG2 , S I GP.02, A2 . S I GA2, K0UNT2, TF . STF, TYTE, NERROR, NPLAT

8.,BEGINIJ)

IF(NSTOP.EQ. l.AND.K0UNT2.LE.3)G0 TO 2000

IF(K0UNT2.GT.3)G0 TO 2031

NST0P=5

GO TO 100

2001 IF(NST0?.EQ.2)G0 TO 11

GO TO 47

49 CONTINUE

C

C JUMP OVER EXTRAPOLATIONS IF THIS IS FIRST TIT-E THROUGH

C OR IF PREVIOUS PLATEAU L'AS NOT MEASURED PROPERLY

C

IFCNPLAT.EQ. l.OR. lOK.EQ. DGO TO 200

C

C TIME GAP BETLEEN PLATEAUS AND EXTRAPOLATION TIMES COMPUTED

C IN SUBROUTINE PRECIS

C

C E>CTRAPOLATE QUANTITIES

C

NACTE=-1 = DO 15 J=1,NFACTS

K=KANDU(J)

IF(K.EQ.2)NACTE=J

A20
noon

L=IFDER(J)

C

C DO FOR PLATEAU NPLAT-1

C

CALL E^<TP0L(A01 (K) ,A1 ( 1,K),SIGA01 (K),SIGAK1,K)

&,NTERN3(K)

&,Tir;EF(l) .TIMEECl) ,FACT1 (2, K) , S IGF 1 (2, K) , FACTl Cl , K)

a. S IGF 1C 1,10 , PATE 1 (2. K) , S IGR ! C2. lO , RATE 1 ( 1 , K) , S IGR 1 ( 1,K)

a , PRECA , PRECA .

>

RECA, PRECA, L, M)

15 CONTINUE

C

C IF TEMPERATURE UA3 MEASURED, CALCULATE ACTIVATION ENERGY

C

150 1F(NACTE.LT.0)G0 TO 100

1E=IE+1

IFCIE.LE.NENGIGO TO 101

C

C MOVE E'S DOUN IN LIST

C

DO 102 J=1,NENG1

JJ=J+1

E(J)=ECJJ)

SIGECJ)=SIGECJJ)

ETIMECJ)=ETIMECJJ)

SAMPUTC J) =SAMi?UTCJJ)

C(J)=CCJJ)

DO 102 K=l,2

TEMPCK. J)=TEM?CK. JJ)

SIGTCK,J)=SIGTCK, JJ)

ERATECK. J)=ERATECK,JJ)

SIGERCIC. J) =SIQERCK, JJ)

EFACTCK, J) =EFACTCK, JJ)

SIGFCK,J)=SIGFCK.JJ)

NPTSCK,J)=NPTSCK,JJ)

102 CONTINUE

IE=IE-1

101 CONTINUE

ETIMECIE)=(TPLAT2Cl)-TFLATlC2))/2. + TPLAT1C2)

SAMPUTC IE) =C FACT 1 C2, 1 ) +FACT2 C 1 , l))/2.

C< IE) = 1 G0 . >i: C PEG I NU-SAi-;?UT C 1 E ) >/ C EEG I-NU-F I NALU)

CALL OVERLYC ISThT3.N3TATS,0)

CALL ACTIVECEC IE) ,SIGEC IE) , IE, TEMP C 1 , IE) ,TEM?C2, IE)

a,SIGTCi;iE) ,SIGTC2. IE) ,FACT 1 C2,2) ,FACT2C I .2)

a,SIGFl C2,2) .SIGF2C 1.2) - VTEMP.RATEl C2, 1) ,RATE2C 1, 1)

a.SIGRl C2, 1) .SIGR2C 1, 1) .VRATE.AT.NERRGR)

IFCNFILEB.GT.6)URITECNFILE3.S32)ICCUNT1.KCUNT2

IF CNPR INT. GE .3) UR ITE CNPR INT, 332) KO'JNTl . KGUNT2

882 FORMATC' NUMBER OF POINTS USED TO GET POLYNCMIALS LAS', 14,' AND

a, 14/)

ERATECl, IE) =RATE1 C2, 1)

ERATEC2, IE) =RATE2C 1, 1)

SIGERCl, IE) =SIGR1 C2. 1)

SIGERC2, IE) =SIGR2C 1, 1)

EFACTCl, IE) =FACT1 C2, 1)

EFACTC2. IE)=FACT2C1. 1)

SIGFCl, IE)=SIGF1 C2, 1)

SIGFC2, IE) =3IGF2C 1, 1)

NPTSCl, IE)=KGL1NT1

NPTSC2. IE) =iC0UNT2

IF(NERROR.EQ.O)GO TO 85

IE=IE-1

GO TO 100

IF E PRECISION IS INADEQUATE CONTINUE, PROVIDED THERE IS ROOM

IN THE ARRAYS IN PLATTO AND REGRES

A21
85 IF(8B3((E(IE)/3IGE<:iE))) .GT.PRECE) GO TO 80

lF(NSTOP.NE.O)GO TO 80

1E=IE-I

GO TO 50

83 CuMTINUE

C

C TEST FDR NEED TO CHfiNGE TErPERPtTL'RE E5CPU3E RPTE OF L-EIGHT LOSS

C IS EITHER BELCi'J MINI MUM OR hEuVE MAXIMUM ALLOWED

C CHECK ONLY LATEST RATE (FORWARD IN TIME)

C

200 RATES=ABS(RATE2(2, 1))

IFCRATES. GT. RATI IIN. AND. RATES. LT.RATMAX)GO TO 881

IF (RATES.lt. RATI I IN) S IGN7= 1

.

IF ( RATES . GT . RATMAX) S I GNT=- 1

.

IF(N3T0P.NE.2) 1=1+1

F ( 1 ) =F ( 1 ) -DELF ( 1 ) W0E3 IGN ( 1 , I ) +S I GNTWUMP

IF(NST0P.NE. 1)NST0P=4

Nl = l 881 IFCE.LT. l.OR. lOM.EO. DGO TO 103

IF ((-:-R INT. GE . 3) MR I TE (N=R INT. 39)

89 FORr:AT(/' E VALUES. TIMES AND SAMPLE WEIGHTS SO FAR:'/)

lF(liPILEB.GT.6)URITE(NFILE5,39)

DO S4 J = l. IE IF(NPRINT.GE.3)URITE(NPRINT.S2) J.E(J).SIGE(J).ETIME(J).SAM?WJT(J)

'&.C(J)

82 FORMAT(I4,2F?.3.F1O.0.EI5.S.F7.2)

1F(NPILEB.GT.6)WRITE(NFILE3.32) J.E(J) .SIGE(J) .ETIME(J) .£AM?WJT(J)

&.C(J)

84 CONTINUE

1F(N-ILEE.LT.G)G0 TO 870

WRITE CNF ILEE.S2) IS . E C IE) . S IGE ( IE) . ETIME ( IE) . SAMPUT( IE) .C(IE)

IJRITECNFILEE.SEO) (TEM?(K. IE).SIGT(i(, IE).ERATE(K. IE).3IGER(K, IE)

e.,EFAST(K, IE) ,SIGF(K. IE)

8.,N?TS(K, IE) .K=1.2)

823 FORrLAT(20X.F8.2.F6.2.2E15.4/34X.2E15.6. 15)

C

c

870 IFdE.LE.DGO TO 133

CALL UTAVER(E.SIGE. lE.UTEA'vE.SIGlJTE)

C

C PUT EOF EETUEEN PLATEAU DATA IN DATA LOGGING FILE

C

100 END FILE NFILEA

C

C END OF LOOP THROUGH VECTOR OF DESIGN MATRIX

C

IFCNSTOP.EQ.DGO TO 2000

1033 IFd.LT.NF'vEOGO TO 363

1=0

L00P=L00P+1

C

C END OF LOG? THROUGH WHOLE DESIGN MATRIX

C

GO TO 303

C

C END OF JOB. USUALLY BECAUSE OF INSUFFICIENT SAMPLE

. 2330 CONTINUE ^

lF(NPRi;iT.GE.3)l.JRITE(NPRINT,2010)

• IF(NFILE3.GT.b)lJRITE>:i-!FILE3.2310)

2310 FORMATC' CONDITIONS TOO IMPRECISE. STOP') ' CALL 0'.E"WY( ISETl.NSETUP.O)

CALL OVEFLY( ISET2.NSETUP. 1)

CALL SETPAR(0. , l.NERROR.NTHCP.TC)

CALL £ETFAR(760. .2.MERR0R.NTHCP.TC)

• CALL SETFAR(250.,3,NERROR,NTHC?.TC)

CALL SETPAR ( 0 . . 4, NERROR. NTHCP . TO

c

C END OTHER FILES

C

END FILE NFILEA

END FILE NFILE3

END FILE NPRINT

END FILE NFILEE

STOP

END

A22
SfiSSM

ftCTIVE PROG

SPORT

STRGT IS

C M<>l«{cHoK>K>K>K>K>Mo}oK>K5(otc>»o|ofc>Motc^ofo(o{OK>(oK>tDfo)ojotoK>MoMo<^^ c SUBROUTINE flCTIVECE.SIGE. IE,TEM?1,TEMP2,SIGTI,SIGT2

8.,

TREftD 1 , TRE0D2, S IGTR 1 , S iGTR2, VTEMP

8.,

ROTE 1 , RATE2, S ! GR 1 , S IGR2 , VPGTE. AT, HERRGR)

C

C ;fG^c>K>K2K>K>h>l<^o>toh>k>K>i<>^oK>f^>K>|of^>K'>lc;<>K>f^>i^>io|c>^c>TOic>^c>io^o^oK>fofo^;>^c*>K>fofc4^ C SUBROUTINE TO CALCULATE ACTIVATION ENERGY FROM TEflPERATURE AND

C RATE DATA

C

C E = ACTIVATION ENERGY

C SIGE = STANDARD DEVIATION OF E

C IE = ORDINAL NUMBER OF E IN LIST OP E VALUES

C TEliPl = FIRST TEMPERATURE (IN DEGREES K)

C TEMP2 = SECOND TEMPERATURE

C SIGTl, SIGT2, = STANDARD DEVIATIONS OF TEMP! AND TEMP2

C TREAD = VALUES OF CORRESPONDING THERMOCOUPLE EDF'S IN MICROVOLTS

C VTEMP = CONTRIBUTION OF TEMP TO VARIANCE OF E

C

C RATEl, RATE2, SIGRl, SIGR2 AND VRATE ARE SIMILAR VALUES FOR RATES

C AT = POLYNOMIAL COEFFICIENTS FOR EMF TO DEGREE K CONVERSION

C NERRCR = ERROR INDICATOR

C

c

C NEEDS THE FOLLOyiNG COMMON BLOCK AND FUNCTION:

C COMMON /lO/

C TDEGAB

C

c

C COMMON STORAGE DEFINED VIA ARRAY =DUMP=

C

COMMON DUMP (1 060)

C

C COMMON /lo/

C

EQUIVALENCE (NTTYI ,DUMP( 123) ) , (NTTYO,DUM?( 124)

)

8.,

(NPRINT,DUM?(125) ) , CNFILEA,DUMP(12S) ) , (NFILEB,DUM?( 127) ) &,CNF1LED,DUMP(12S))

C

C

DIMENSION TEMP(2),SIGT(2),TREAD(2),SIGTR(2),RATEC2),SIGR(2),AT(4)

C

c R=l. 987/1000.

R2=R>!oi-'2 NERROR=0

TREAD(1)=TREAD1

TP.EAD(2)=TR£AD2

SIGTR(1)=SIGTR1

SIGTR(2)=SIGTR2

RATE(1)=RATE1

RATE(2)=RATE2

A23
SIGR(1)=SIGR1

SIGR(2)=SIGR2

DO 30 J=l,2

C

C GET TEMPERfiTURE IN DEGREES KELVIN, TREAD IS IN niCROV'OLTS

C

TEMP ( J ) =TDEG.qB ( TREAD ( J ) . AT)

T=TREAD(J)+SIGTR(J)

S=TDEGAB(T,AT)

SIGT(J)=S-TEMP(J)

IF (TEMPCJ) .LT. 1.) GO TO 40

IF (ABSCRATE(J)) .LT. l.E-06) GO TO 40

30 CONTINUE

C

C GET ACTIVATION ENERGY

C

TD I FF =TEMP ( 2

) -TEMP ( 1

)

TDIFF=ABS(TDIFF)

IF (TDIFF.lt. l.E-01) GO TO 40

T=RATE(2)/RATE(1)

IF (T.LT. 1.E-0E) GO TO 40

IF (T.GT. l.E+06) GO TO 40

IF (T.LT.l.) T=l./T

RTEMP=ALOG(T)

ETEMP =TEMP ( 2 ) >}<TEMP < 1 ) /TD I FF

E=R>f'RTEMP>»^ETEMP

- IF (ABS(E) .GT.200. .OR.ABS(E) .LT. 1.) GO TO 40

GO TO 90

C

C DISCARD THIS POINT FOR VARIOUS POSSIBLE REASONS

C

40 CONTINUE

IF(NPRINT.GE.3)URITE(NFRINT.50) IE

IF(NFILEB.GT.6)LJRITEaiFILES,5G) IE 50 FORMAT (' ACT. ENERGY NUMBER', 13,' DISCARDED')

NERR0R=8

RETURN

90 CONTINUE

E2=E51ok2

C

C GET ASSOCIATED SIGMA

C 1) FROM RATES

C

VRATE=C(SIGR(2)/RATE(2))>m:2+(SIGR(1)/RATE(1) )>{<>k2)>i€

22/RTEMP>K>K2

C

C 2) FROM TEMPERATURES

C

VTEMP = ( ( S I GT ( 1.) /TEMP ( 1 ) >K>i'-2 ) >K>t<2+ C S I GT ( 2 ) /TEMP C 2 ) >K>X2 ) 2>KH:2) >;<E2>i:ETEMP>H:-K2 C

C COMPUTE TOTAL SIGMA ON E

C

SIGE=SQRT(VRATE+VTEMP)

C

C OUTPUT INITIAL AND CALCULATED VALUES

A24
o

n

C

TEMP ( 1) =TEMP ( n -273 . 1

5

TEMP(2)=TEriPC2)-273. 15

IF(NPRINT.LT.3jG0 TO 200

URITE(NPRINT.52)

52 FORMPTC/' ACTIVATION ENERGY FROM =ACTIVE='

&/6X,'E' ,2X, 'SIG E' ,2X, 'FACTOR CR RATE

URITECNPRINT, 180)E,SIGE, (TEMP ( J) , S IGT( J) , RATE C J) , S IGR C J) , J = 1 . 2)

100 FORMAT (2F7.3.F3.2,F6.2,2E13.4/14X-F8.2,F6.2,2E13.4)

110 CONTINUE

120 URITECHPRINT. 130)

130 FORMAT (/' CONTRIBUTION OF RATE AND TEMPERATURE TO VARIANCE'

2,' (=SIGE>K»:2)'/' RATE TEMP'/)

URITE(NPRINT, 140) VRATE,VTEMP

140 FORMAT (2E12.3)

200 IF(NFILEB.LE.6)RETURN

L>RITE(NFILEB,52)

LRITECNFILEB, 100)E,SIGE, (TEMPCJ) ,SIGT(J) ,RATE( J) ,SIGR(J) , J=l,2)

URITECNFILEB, 130)

URITECNFILEB. 143) VRATE. VTEMP

TEMP1=TEMP(1) , . TEM?2=TEMP(2)

SIGT1=SIGT(1)

SIGT2=S!GT(2) ^ RETURN

END

A25
ooo

ooo

o

o

oo

o

o

oo

o

o

o

no

nn

$ASSM

ftVSDN PROG

$F0RT

$TRGT 16

SUBROUTINE fiVSDN(fiVE,SD,Q,NVflL)

SUBROUTINE TO COLCULBTE OVERAGE AND STANDARD DEVIATION

AVE = AVERAGE VALUE

Q = INPUT VALUES

SD = STANDARD DEVIATION OF POPULATION OF Q

NVAL = NUMBER OF VALUES

NEEDS NO COMMON BLOCKS, FUNCTIONS OR SUBROUTINES

RETURNS SD = l.E+06 IF ONLY ONE VALUE IS AVAILABLE

DIMENSION Q(NVAL)

CALCULATE AVERAGE

AVE=0.

DO 10 1=1, NVAL

10 AV£=AVE-i-Q(I)

AVE=AVE/FLOAT(NVAL)

IF(NVAL.GT.l) GO TO 50

SD=1.0E+05

RETURN

50 SD=0.

CALCULATE STANDARD DEVIATION

DO 40 !=1,NVAL

40 SD=SD+(AVE-Q(I))>K>»:2

SD=SQRT(SD/(FLOAT(NVAL-l)))

RETURN

END

A26
SASSM

BAKE IT PROG

$FORT

$TRGT 16

c SUBROUTINE BAKEITCN, NTHCP, BEG INU, F INALU)

C

C :K^o{oMoMo!c>(c>K5K>}<>K>(<>!<>K>K>)oi<>k^K>IoioK>to{of»K^)<ot<5K>KM<>K>K>K>MoK>K>totoK>K^>ioK>K5MoK)K>K^^ c

C SUBROUTINE TO PRESET MIDAS AND PRECONDITION ' SAMPLE BY A BAKEOUT

C

C NEEDS COMMON BLOCKS /lO/ AND /MIDASR/

C

C COMMON STORAGE IS DEFINED VIA ARRAY =DUMP=

COMMON DUMP (900)

C

C COMMON /lo/

C

EQUIVALENCE (NTTYKDUMPC 123) ) , (NTTYO.DUMPC 124)

)

8c, (NPR INT, DUMP ( 125) ), (NF ILEA. DUMP (126)), (NFILEB, DUMP (127))

8c, (NFILED,DUMP(123)), (NFILEE,DUMP(129))

C

C COMMON /MIDASR/

C

INTEGER^2 OUT (20) ,REPLY(20) ,NUM( 16) , JUNK2( 18)

C

EQUIVALENCE (OUT( 1 ) ,DUMP ( 1^0) ), (REPLY( 1 ), DUMP (160) ), (NUM( 1

)

e.,DUMP(180) ) , (JUNK2( 1) ,0UT(3) ) , (NF1LTR,DUMP( ISB) ) C

DIMENSION NTYME(3)

EQUIVALENCE (NTYME( 1) ,DUMP(885)

)

C

C INITIALISE MIDAS IF REQUIRED , C

0UT(1)=37

0UT(2)=X'23'

DO 210 1=3,20

210 OUT(I)=' ' 455 URITE(NTTY0.439)

430 FORMAT(' SET INITIAL CONDITIONS ON MIDAS, Y OR N?')

READ (NTTYI. 440) NA

440 FORMAT(Al)

IF(NA.EQ.'N')GO TO 460

URITE(NTTY0,45I)

451 FORMAT (' GIVE COMMAND, 36 CHARACTERS MAXIMUM'

&/' SHARP SIGN UILL BE ADDED BY COMPUTER')

READ (NTTYI. 420) JUNK2

URITE(NTTY0.423)0UT

420 F0RMAT(1SA2)

423 F0RMAT(I6,2X. 19A2)

CALL TRAMID(0UT(2), 19,REPLY(2), 19,0.)

• GO TO 455

460 CONTINUE

C

C SET TIME

A27
o

n

o

non

ooo

0UT(1)-12

0UT(3)=' ir

OUT(4)='0O'

OUT(5)='0O'

OUT(S)='03'

0UT(7)='R ' 0UT(3)=' ' 0UT(9)=' ' CALL TRAMID(0UT(2), 19,REPLY(2), 19,0.)

0UT(1)=38

OPTIONAL RETURN TO BEGINNING

735 UR I TEC NTTYO, 733)

733 FORNATC' GO FORUARD OR BACK? ENTER =F= OR =B=')

READ(NTTYI,440)N

IF(N.EQ.'B')RETURN

INPUT INITIAL AND FINAL UEIGHTS

530 URITE(NTTYO,503)

500 FORMATC/' GIVE INITIAL AND FINAL UEIGHTS IN MICROVOLTS, UITH SIGN'

&/' ON 2 LINES IN F15.3 FORMAT.'

8./' INITIAL UEIGHT OF 0 UILL CAUSE PROGRAM TO USE FIRST'

8./' UEIGHT READING IN DATA COLLECTION AS INITIAL UEIGHT'

8./' -I.E., AFTER BAKEOUT OF SAMPLE'/)

READ C NTTY 1 , 5 1 0 ) BEG I NU

READ(NTTYI,510)F!NALU

510 FORMATCF15.0)

URITECNTTYO,520)BEG1NLJ,FINALU

520 FORMATC/' INITIAL AND FINAL UEIGHTS ARE: ' ,2F15.0)

URITECNTTYO, 128)

READ (NTTYI, 443) NA

1F(NA.NE.'Y')G0 TO 530

IF(NFILEB.GT.6)URITECNFILEB,520)BEGINU.FINALU

IF(NPRINT.GE.3)URITE(NPR1NT,523)EEGINU,FINALU

INITIAL CONDITIONING OF SAMPLE VIA BAKEOUT

310 URITECNTTYO, 303)

300 FORMATC/' DO YOU UANT PRECONDITIONING OF THE SAMPLE? Y OR N?'

)

READC NTTY I, 440 )N

IF(N.EQ.'N') GO TO 430

IFCN.NE.'Y')GO TO 310

150 URITECNTTYO. 100)

100 FORMATC/' GIVE BAKEOUT TIME, TEMPERATURE, PRESSURE, FLOU N2,'

8.,' FLOU 02'/' EACH ON A SEPARATE LINE IN FORMAT F10.0')

READCNTTYI, 1 10)TIME, TEMP, PRESS, FN2,F02

110 FORMATCF10.0)

UR 1 TE C N7TY0 , 1 43 ) T I ME , TEMP , PRESS , FN2 , F02

140 FORMATC/' BAKE TIME IN SECONDS IS'.F7.0

8./' BAKE TEMPERATURE IN DEGREES CELCIUS IS',F7.0

&/' BAKE PRESSURE IN MM HG IS',F7.0

8./' FLOU OF N2 IN SCC/MIN 1S',F7.0

8./' FLOU OF 02 IN SCC/MIN IS',F7.0/)

A28
non

oo

o

URITECNTTYO, 120)

120 FORnflTC' OK OR NOT, Y OR N?')

REflD(mTYI,443)Nfi

IF(Nft.NE.'Y')GO TO 150

IF(NFILEB.GT.6)L'R1TE(NF1LEB, 140) TIME, TEMP, PRESS, FN2,F02

IF (NPR INT. GE . 3) L'R ITE (HPR INT, 143) TIME, TEMP, PRESS, FN2, F02

CALL SETPARCTEMP. I ,HERRGR,HTHCP,TC)

CALL SETPAR(PRES2,2,NERR0R,HTHCP,TC)

CALL SETPAR ( FM2 , 3 , NERRCR , NTNCP , TO

CALL SETPAR (F02 , 4, MERRGR , NTHCP , TC

)

UAIT IN LOOP FOR BAKE TIME TO ELAPSE

BTIME=TIMER(NTYME)+TIME

200 TNOU=TIMERCMTYME)

IFCTNOLJ.lt. BTIME)G0 TO 200

REZERO CLOCK

400 0UTC1)=12

0UTC3)='IT'

OUT(4)='00'

OUT(5)='00'

OUT(6)='03'

0UTC7)='R ' 0UT(8)=' ' OUT(S)=' ' CALL TRAMIDC0UTC2), 19,REPLYC2), 19,0.)

0UT(1)=38

RETURN

END

9 A29
$ASsri

BIPlSVL PROG

SPORT

STRGT 16

c SUBROUTINE BlftSVL

C

0 )|<5K>ic<oK>}c>I<^>K>KHo!oMc>t:>M<)i<>k>K>fc>k>KXoK>tc>t3io!r^|c+ofctoK>K*>»ofc>(i>fofoK>^'>foK>Wc*c5f^^

C SUBROUTINE TO DETERMINE OR READ BIAS VOLTAGES =BIASV= ON ANALOG SCANNER

C

C NEEDS THE FOLLOWING COMMON BLOCKS, FUNCTIONS AND SUBROUTINES:

C COMMON /BIAS/

C COMMON /FACTR/

C COMMON /lO/

C COMMON /MIDASR/

C RPAR

C SETPAR

C TRAMID

C LIAYT Cc

C COMMON STORAGE DEFINED VIA ARRAY =DUMP=

C

COMMON DUMP (980) c

C COMMON /BIAS/

C

DIMENSION BIASVC8),SIGB7(8)

EQUIVALENCE (8 1 ASV( 1 ) , DUMP ( 1 ) ) , (S IGBVC 1 ) , DUMP (9)

)

C

C COMMON /FACTR/

C

DIMENSION KANDU(8),1FUNCT(S),IFDER(8),INFUT(B).SCALE(S)

£.,NRAHGE(8) ,NREADS(3) ,NTERMS(8) ,CHTEST(8) .PTIMEC8)

8.,

PRECF(3) ,PRECRC8),AT(4)

EQUIVALENCE (NTHCP, DUMP ( 17) ) , (KANDU( 1 ) , DUMP ( 18)

)

&, ( IFUNCTC 1) ,DUMP (2S) ) , ( IFDERC 1 ) , DUMP (34)

)

8., (INPUT( 1) ,DUMP(42) ) , (SCALE ( 1) , DUMP (50)

)

. t , (NRANGE ( 1 ) , DUMP ( 3S ) ) . ( NREADS ( 1 ) , DUMP ( 6b )

)

8.,

(NTERMS ( 1 ) . DUMP (74) ) , (CHTESTC i ) , DLtP (S2)

)

8.,

(PTIME( 1) ,DLT1P(90) ) , (PRECFC 1) ,DUMP(98)

)

e., (PRECR(1),DLIMP( 106)), (NFACTS,D'JMP( 1 14)

)

8c, (NRATES,DUMP( 1 15) ) , (T!ML1M,DUMP( 1 16)

)

8c, (NBADS,DUMP( 1 17) ) , ( INTVAL, DUMP ( 1 13)

)

8c, (AT(1),DUMP(119) ), (TSCALE,DUMP(130))

C

C COMMON /lO/

C

EQUIVALENCE (NTTYI , DUMP ( 123) ), (NTTYO, DUMP ( 124)

)

8c, (NPR!NT,DUMP(125) ) , (NF ILEA, DUMP ( 126) ), (NFILEB, DUMP ( 127) )

8.,

(NFILED,DUrP(128)

)

C

C COMMON /MIDASR/ (PART OF)

C

I NTEGER>f<2 OUT ( 20 ) , REPLY ( 20 ) , NUM(13), JUNK2 (18)

A30
ooo

onoo

n

o

o

non

nn

nn

EQUIVALENCE (OUT( 1 ), DUMP (140) ) , (REPLYC 1 ) ,DUIiP( 160) ) 8., (NUM( 1 ), BUMP ( 180) ) , (JUNK2( 1 ) ,0UT(3) ) , (NVDC, DUMP ( 191 ) )

DIMENSION MBIAS(8),BASEBIC8)

300 IUAIT=0

NGO=a

J=0

DETERMINE UHAT TO DO

DO 60 K=I,8

MBIAS(K)=Q

INIITIALISE EACH BIAS VOLTAGE TO ZERO

BIASV(K)=0.

SIG3V(K)=l.E-09

IF(K.EQ. 1)URITE(NTTY0,5)

5 FORMAT (' THIS ROUTINE IS SET UP FOR:'

&/' WEIGHT AS "FACTOR" 1'

8./' TEMPERATURE AS FACTOR 2'

8./' PRESSURE AS FACTOR 3'

8./' -FLOW CHANNEL 1 AS FACTOR 4'

8./' FLOU CHANNEL 2 AS FACTOR 5'

8./' FACTORS 2 TO 5 ARE PRESET FOR THE BIAS MEASUREMENTS'/

&/' FOR EACH FACTOR, IS BIAS VOLTAGE TO BE:'

8./' SET = 0 (J = l)'

8./' MEASURED (J=2)'

8./' OR READ IN (J=3)?'

8./' TERMINATE INPUT WITH J=0')

185 liRIT£(NTTYO, 15)K

15 FORMATC' GIVE J FOR FACTOR' , 13, ' IN II FORMAT')

READ (NTTYI,25)J

25 FORMATC ID

IF(J.EQ.O)GO TO 350

IF(J.LT.0)GO TO 105

IF(J.GT.3)G0 TO 105

GO TO (60, 20, 30),

J

SET UP ARRAY AND COUNTER TO CONTROL MEASUREMENT OF BIAS VOLTAGE

WHEN READ- IN IS COMPLETED

20 CONTINUE

MBIAS(K)=1

IUAIT=IUAIT+1

GO TO 60

READ IN BIAS VOLTAGE

30 URITE(NTTY0,35)

35 FORMATC' GIVE BIAS VOLTAGE AND SIGMA IN F7.3 FDRM>AT <2 LINES)')

READ(NTTYI.45)BIASVCK),SIGBV(K)

45 F0RMATCF7.3)

# A31
non

ODD

ooo

ooo

on

non

ooo

ooo

IF(SIGBVCK) .LT. I.E-09)SIGBV(K)-l.E-09

60 CONTINUE

KK=8

GO TO 360

350 KK=K-1

IF (imiT.GT.0.ftND.NFILEB.GT.6) URITE (NFILEB,355)

IF (IUftIT.GT.O.HND.NPRINT.GE.3) URITE (NPRINT,355)

355 FORMAT (//' BIAS VOLTAGE DETERMINATIONS FOLLOU:'//)

ARE ANY MEARSUREMENTS TO BE MADE

360 CONTINUE

IF(IUAIT.EQ„0)GO TO 120

START CLOCK

0UT(1)=12

0UT(3)=' IT' OUT(4)='O0'

OUT(5)='00'

OUT(6)='00'

0UT(7)='R ' 0UT(8)=' ' CALL TRAMID(0UT(2). 19, REPLY, 19,0.)

0UT(1)=33

MEASURE BIAS VOLTAGES

DO 150 K=1,KK

IF(M51A3(K) .EQ.0)GO TO 150

J=K-1

GO TO (150,70,80,90, 100, 150, 150, 150),

K

SET TEMP

70 CALL SETPAR(100., 1,NERR0R,NTHCP,TC)

STORE TARGET VALUES IN ARRAY BASES I IN MICROVOLTS

BASEBI(K)=TC>i<10B3.

GO TO 150

SET PRESS = NEED A FLOU RATE FOR THIS, USE N2

80 CALL SETPAR(4e0..J,NERROR,NTHCP,TC)

BASEEI (K) =FLOAT(NVDC)>t:1000.'i=SCALE(K)

KJ=:<+i

J=KJ-1

CALL SETPARC300., J,NERROR.NTHCP,TC)

BASES I (KJ) =FLOAT(NVDC) >Kia00 . ^SCALE (KJ)

GO TO 150

SET FLOUS

A3 2
ooo

non

non

ooo

ooo

90 CALL SETPflR(300.,J.MERROR.NTV:CP.TC)

BASES I (K) =FLOATCHVDC) >KI033 . ^SCALE (K)

GO TO 150

100 CALL SETPARC100.,J,NERROR,NTHCP,TC)

BASEBI (K) =FLOAT(NVDC)-'i^e0O.>t:SCALE(K)

150 CONTINUE

NTIME=0

290 NERR=0

DETERMINE BIAS VOLTAGES

DO 160 K=1,KK

IF(M3IAS(K) .EQ.0)GO TO 160 .

‘

UAIT TILL READING IS STEADY

CALL UP.YT(CHTEST(K) ,PTIME(K) , INPUT(K) ,NRANGE(K) ,SCALE(K) ,TIMEST

&,CH ISQR, 0 . , NREADS (K) , NTERMSCK) , NERROR)

IF(NEr<RCR.EQ.0)GO TO 160

IF(NPRINT.GE.3)LJRITE(NPRIHT, 170) INPUTCK) , CHTEST(K)

8.,CHISQR,TIMEST,NTIME,MERR0R

170 FORMATC' INPUT', 12,' HAS UNSTEADY READING’

&/' CHTEST =',F7.2,' CHI READINGS =',F7.2,' TIME =',F7.2

&/' PASS =',I3,' NERROR =',I3,'

IF(HFILEB.GT.6)IJRITECNFILEB, 170) INPUT(K) , CtTfESTCK) , CH ISQR, TIMEST

&, NT I ME, NERROR

160 NERR=MERR+NERROR

NTIME=NTIME-;-i

IF(HERR.NE.0.AND.NTIME.LE. DGO TO 290

IF(NERR.NE.0.AND.NTIME.GT. 1)NG0=1

200 DO 253 K=1,KK

IFCMSIAS(K) .EQ.0)GO TO 250

BIASV(K)=0.

SIGBV(K) =1.E-0S

CALL RPAR(BIASVCK),SIGBVi:K) , INPUT(K) ,NRANGECK),SCALE(K)

&, NREADS (K) ,ei.,NERRCR)

IF ( NERROR. EQ.B) GO TO 250

IF(NPRINT.GE.3)LRITE(NPRINT, 133) I NPUT ( K) , NERROR

180 FORMATf' DVM ERROR FOR INPUT'. 12,' NERROR ='I2,' ) IF(NFILEB.GT.6)URITE(NFILEB, 180) INPUT(K) , NERROR

GO TO 300

250 CONTINUE

CORRECT FOR FACTOR LEVELS

DO 260 k=i,k:<

260 IF(M3IA3(K) .NE.0)BIASV(K)=BIRSV(K)-BASEBI(K)

OUTPUT BIAS VOLTAGES AND SIGMAS

120 IF(NPRINT.GE.3)IJRITE(NPRINT,50) Cl , B IASV( I ) , S IGBVC I ) , 1 = 1, KK)

50 FORMAT (/' BIAS VOLTAGES AND SIGMAS FOR FACTOR INPUTS'

8./" FACTOR VOLTAGE SIGMA'

8./(I7,2E15.7))

1F(NFILEB.GT.6)LJRITE(NFILEB,50) (I,BIASV(I),SIGBV(I), I = 1,KK)

CYCLE ROUND AGAIN UNDER OPERATOR CONTROL BECAUSE OF INSTABILITIES

IFCNGO.EQ. DGO TO 300

RETURN

END

A3 3
ooo

ooo

onooonoooo

oo

$ASSM

CHI6Q PROG

$FORT

$TRGT 16

SUBROUTINE CHISQ(P,SP,XSQ,N)

)^o^o^c^c^!oK^<^^nloH^k>K>^<>K>^>k>!;>lof'>ofoK^K>^oJc>fc>K>K>r^K>f^.i!oK^K>KHo^>K5K>K^K^^o^oK>f^^ SUBROUTINE TO CP.LCULflTE REDUCED CHI SQUPRE FOR N INPUT VALUES.

P - INPUT VRLUES

SP = STANDARD DEVIATIONS OF P VALUES

XSQ = CHI-SQUARE VALUE FDR P AND SP ARRAYS

N = HUMBER OF P VALUES

NEEDS NO COMMCN BLOCKS. FUNCTIONS OR SUBROUTINES

DIMENSION P(N),SP(N)

ftVE=0.

CALCULATE A'>v€RAGE

DO 10 1=1.

N

10 AVE=A'v'E+P(I)

AV£=AVE/FLOAT(N)

XSQ=0.

IF (N.LE. 1) RETURN

CALCULATE CHI SQUARE

DO 20 1=1,

N

20 XSQ=XSQ+((AVE-P(n)/SP(D)>K>K2

XSQ=X3Q/FL0AT(N-n

RETURN

END

A34
S>Hbbn

DEKODE PROG

SPORT

STRGT 16

C Xo|oK)<oi<>lo(<>K>KMc>KoK>K>totoK:K>!oK*>toK>fotoK5Motc4oK>MoMoMOMo|oMo(oMofo(otoMc>^^ c SUBROUTINE DEKODE(J,F,L,NSIDE)

C

C HoMoK^>!oo}c>K>fofolci;;K>k>^^:>K>l:>H3K>K>K^ic^r>(c^o^oK)^oto!:>^c>|oIoK>K>l<>!^^loK>!oK>K>^o^oK>^o(ciof:^c^^^

C SUBROUTINE TO DECODE RRRAY JCL) INTO =F=, I.E., ONE COMPUTER LORD

C HAS TO IJORK IN FLOATING POINT BECAUSE AN INTEGER MAY OVERFLOU

C L IS THE NUMBER OF BYTES TO DECODE

C NSIDE = 0 START AT LHS OF FIRST UORD (EACH UORD CONTAINS 2 BYTES)

C NSIDE = 1 START AT RHS OF FIRST UORD

C

c

INTEGER>K2 J(L),K,KK

C

C TABLE OF DECIMAL DIGITS:

C

DIMENSION TABLE (10)

DATA TABLE/0.. l.,2.,3.,4.,5.,6.,7.,8.,9./

C

N=0

NEG=0

F=0.

C

C LOOP OVER CHARACTER TRANSLATION, 20 CHARACTERS MAXIMUM

C

DO 10 1=1,20

KK=J(I)

C

C EXAMINE EACH B'tTE IN UORD IN TURN

C

• 20 DO 11 MM=1,2

M=MM-1

C

C NSIDE = 1 MEANS BEGIN UITH LESS SIGNIFICANT BYTE FROM FIRST UORD

C

IFd.NE. DGO TO -25 IF(NSIDE.EQ.0)GO TO 25

MM=2

M=1

25 CONTINUE

K=KK/256

IFCM.EQ. 1)K=KK-K>H256

C

C CHECK FOR NEGATIVE NUmER

C

30 IF(K.EQ.45)NEG=1

C

C JUMP OUT IF CHARACTER IS BLANK, + OR - ’ C

IF(K.EQ.43.0R.K.EQ.45.0R.K.EQ.32)G0 TO 60

K=K-47

1F(K.LE.0.OR.K.GT. 10)GO TO 11

C

C TACK EACH DIGIT ONTO NUMBER, COUNT NUMBER OF DIGITS

C

F=F?f.'10.+TABLE(K)

69 N=N+1

IF(N.EQ.L)GO TO 50

11 CONTINUE

10 CONTINUE

C

C APPLY ANY MINUS SIGN

C

50 IFCNEG.EQ. 1)F=-F

RETURN

END

A3 5
SASsri

DESYNE PROG

SPORT

STRGT 16

C 5Mo|o|otc^oioloK>fo|oMo|oM»McHotofOMc^oMotoMo(oK>!o»fc>to|otoK5Wc»oMoK^^ c SUBROUTINE DESYNE

C

c )K5K5|oK>k>to!<)t;>K>K>K3K>K>MoK>!;>foM:>(oMoMoK>McK>toK>K-5toK>ioMo|c4o|otok>K>|oto^^ c

C SUBROUTINE TO SET UP DESIGN MATRIX UHICH GOVERNS COURSE OF EXPERIMENT

C

C NEEDS COMMON /lO/

C COMMON /MIDflSR/

C COMMON /PLAT/

C AND COMMON /STEPS/

C COMMON STORAGE IS DEFINED VIA ARRAY =DUMP=

COMMON DUMP (900)

C

C COMMON /lo/

C

EQUIVALENCE (NTTYI , DUM?( 123) ) , (NTTYO; DUMP(124)

)

8., (N?RINT>DUM?(125)), (NFILEA,DUMP(126)), (NFILEB,DUMP(127))

8c, (NF1LED,DUMP(12S)), (NFILEE,DUM?(129))

C

C COMMON /MIDASR/ (PART OF)

C

EQUIVALENCE (NFILTR,DUMP( 190)

)

C

C COMMON /PLAT/

C

DIMENSION RCHK8)

EQUIVALENCE (LPLAT,DUMP(510) ) , (NELAPS,DUMP(51 1)

)

8c, (NFIRST.DUMP(512)), (NCHI.DUMP(513)), (NST0P,DUM?(514))

8c, (START, DUMP (515) ), (RCHKl), DUMP (516))

8c, (N0THER,EUMP(524)), (KST0RE,DU!'P(525))

&, (ENDSIG,DUMP(526))

C

C COMMON /STEPS/

C

DIMENSION F(4),T0PF(4),DESIGN(4, 16),FDER(4)

EQUIVALENCE (F ( 1 ), DUMP (S60) ), (TOPF ( 1 ), DUMP (804)

)

6., (DESIGNd, 1),DUMP(888)), (NF\/EC,DUMP(872)), (FDER( 1) ,DUMP(873) ) C

C INPUT FACTOR LEVELS, STEP SIZES AND DESIGN MATRIX

C

J=0

URITE(NTTYO,301)

301 FORMAT(' READY TO SET UP FACTOR LEVELS AND CHANGES'

8./' ONE PER LINE')

305 IJRITE(NTTYO,330)

330 FORMAT(' GIVE INITIAL T AND MAXIMUM T IN DEGREES CELCIUS'

& /' F7.2 FORMAT, ONE PER LINE')

READ(NTTYI,310)F(D ,T0PF(1)

310 F0RMAT(F7.2)

IF(J.NE.0)GO TO 415

A3 6
o

o

o

306 URITE(NTTYO,320)

320 FORmTC' GIVE INITIRL P HND MPXimn P IN MM HG IN F7.2 FORIDT'

8. /" mXIMUM VPLUE OF 0 PUTOMftTICftLLY CHPlNGED TO 200 MM HG')

REI=1D(NTTYI,310)FC2) ,T0PF(2)

IF (T0PF(2) .LE. 0.001) TOPF(2)=20B.

IF(J.HE.0)GO T0'415

307 URITE(NTTV0,335)

335 FORM0T(' GIVE INITIAL N2 FLOW AND MAXIMUM FLOW IN SCC/MIN'

8c /' MAXIMUM VALUE OF 0 AUTOMATICALLY CHANGED TO 200 SCC/MIN')

READ(HTTYI,310)F(3).TOPF(3)

IF (T0PFC3) .LE. 0.601) TOPF(3)=200.

IF(J.NE.0)GO TO 415

303 URITE(NTTYO,340)

340 FORMATC' GIVE INITIAL 02 FLOU AND MAXIMUM IN SCC/MIN'

8. /' MAXIMUM VALUE OF 0 AUTOMATICALLY CHANGED TO 203 SCC/MIN')

READ(NTTYI,313)F(4).TGPF(4)

IF <T0PFi:4) .LT. 0.031) TOPF(4)=203.

415 URITE(NTTY0.345) (I.FCD.TOPFCI), 1 = 1,4)

345 FORMATC' FACTOR LEVELS AND MAXIMA FOLLOU:

8. /' NO. INITIAL MAXIMUM'

8, /(I4,2F10.2))

345 FORMAT(I4,2F710.3)

435 URITE(NTTY0,420)

420 FORMATC' GIVE FACTOR NUMBER (1 TO 4) FOR FURTHER CHANGES'

8c/' 0 = NO CHANGES')

READ(NTTYI,75)J

75 FORMAT(Il)

IF(J.LE.0)GO TO 368

IF(J.GT.4)G0 TO 405

GO TO (305,306,307,308) ,J

READ IN DESIGN MATRIX

368 LIRITE(NTTYO,350)

350 FORMAT (' READY TO BUILD DESIGN MATRIX'

8c/' I.E., VECTORS FOR CHANGES IN FACTOR LEVELS'

8./' MAXIMUM CF 15 VECTORS. ONE PER LINE'

8c/' GIVE LINE NUMBERS THEN 4 COMPONENTS'

8c/' F0RMAT(I2/(F6.2))'

8./' END UITH LINE NUMBER = 8')

390 READ(MTTYI,360)

I

360 F0RMAT(I2)

IF(I.EQ.0)GO TO 440

READ(MTTYI,361) (DESIGNCJ, I),J=1,4)

361 FORMAT (F6. 2)

URITE(NTTY0,3G2) I, (DESIGN( J, I ) , J=l,4)

362 FORMAT(I3,4F10.3)

GO TO 390

440 CONTINUE

URITE(NTTY0,365)

365 FORMAT (' INPUT NUMBER OF' VECTORS IN 12 FORMAT')

READ (NTTYI, 360) NFVEC

URITE(NTTY0,363)

363 FORMATC' DESIGN MATRIX FCLLGUS')

URITE(NTTVQ.3G2) (I, (DESIGN(J, I ) , J= 1 , 4) ,

I = 1 . NFVEC)

UR ITE(NTTYO, 366)

A3 7
366 FORMAK' CHANCE FOR FURTHER CHANGES? 0»NO> 1*YES, IN 12 FORmT' ) READ(NTTYI,360)

J

IF(J.GT.0)GO TO 368

C

C STEADINESS CHECKS TO EE MADE DURING DATA COLLECTION?

C

URITE(NTTYO,370)

370 FORMATC' STEADINESS CHECKS TO BE MADE DURING DATA COLLECTION?'

8./' GIVE 0 FOR NO, 1 FOR YES. 12 FORMAT')

READ(NTTYI,360)NCHI

C

C FILTER INPUT TO DVM?

C

URITE(NTTY0.371)

371 FORMAT(' FILTER INPUTS TO DVM? 0=NO.1=YES (YES TAKES'

8./' 0.5 SEC/READ) GT/E IN 12 FORMAT')

READ(NTTYI.360)NF!LTR

IF(NFILTR.GT.0)NFILTR=!

C

C READ OTHER EXPERIMENTS ALSO?

C

URITE(NTTY0.372)

372 FORMATC' READ OTHER EXPERIMENTS AT SAME TIME? 0=NO,1=YES.'

8./.' GIVE IN 12 FORMAT')

READ (NTTYI , 360) NOTHER

IF (NPRINT.lt. 3) GO TO 455

URITE(NPRINT.345) (I,F( I).TOPF(I). 1=1,4)

URITE(NFRINT,3S3)

URITE(K?RINT,3b2) ( I , (DES IGN ( J, I ) , J=1 ,4) ,

1 = 1 ,NFVEC)

URITE(NPRINT,374)NCHI

374 FORMAT(' STEADINESS CHECK ='.I2,' UHERE 0=NO, 1 =YES'

)

UR I TE ( NPR I NT, 375 ) NF I LTR

375 FORMAT(' INPUT FILTER TO DVM =',I2,' UHERE 0=NO,1=YES')

UR I TE (NPR I NT. 376) NOTHER

376 FORMAT(' READ OTHER EXPTS =',I2,' UHERE 0=NO.1=YES')

455 CONTINUE

460 1F(NFILEB.LE.6)G0 TO 610

• URITE(NFILEB,345) ( I , F ( I ) , TOPF ( I ) ,

I =1 , 4)

URITE(NFILEB,363)

URITE(NFILE3,362) ( I , (DESIGN( J, I) , J = l,4) , I = 1,NFVEC)

URITE(NF!LEB,374)NCHI

URITE(NFILEB.375)NFILTR

UfRITE(NFILEB, 376) NOTHER ' 610 CONTINUE

RETURN

END

A3 8
$fiSSM

ENKODE PROG

SPORT

STRGT 16

C >M»|oiok>K>K>K>foK^oMoK>>oMoK>K5f:>K>WoK>Ms)o?otc>MoicMcioH>Mofc)jcloMc^cHc<oMo!o^ c SUBROUTINE EMKOPECNRRRftY.NVTlR)

C

C SUBROUTINE TO PUT INTEGER =NVP.R= INTO =NPRRfiY= IN HOLLERITH FORH

C PRODUCES 4 DIGITS, 2 TO fi UCRD IN =NPRRPY=

C

C NEEDS COMMON /MIDASR/

C

C COMMON STORAGE DEFINED VIA ARRAY =DUMP=

C

COMMON DUMP (900)

C

C COMMON /MIDASR/

C

INTEGER>!;2 NUMC10)

EQUIVALENCE (HUM( 1) ,DUMP( 180)

)

C

C

DIMENSION NARRAYC2)

C

C

K1«=NVAR/1000

K2*=(NVAR-K1>H1000)/109

K3 = (NVAR-Kl>f<109g-K2>K100)/10

K4=NVHR-K1h:10O0-:<2'K1Q0-K3>k19

NARRAY(l)=NUM(Kl + l)':<25b+NUM(K2+l)

NARRAY(2)=NUN(l<3+l)>t<256+NUM(K4+l)

RETURN

END

A3 9
SASSM

EXTPOL PROG

$FORT

$TRGT 16

C )MotoK>K>K>K>K5K>K>Mok>KMO»c><>4oMoMofoMoMotoK>!<>Mof:>K>MoMoK5K5K3»C5(oK5totoM^^ c SUBROUTINE EXTPOL (flTO, AT. S IGfiTO, S IGAT

8.,NTERMS

&, TIMEF,TIHEB,FACTF.SIGFF. FACTS, SIGFB

&. RATEF, S IGRF, RATEB. S IGR8, PRECFF, PRECFB, PRECRF, PRECRB. L. M) c

C SUBROUTINE TO USE POLYNOMIAL OF P=ATO+AT( 1)>kTIME>k>»:M( l)+AT(2)^TIME>tott1(2)

C TO EXTRAPOLATE TO VALUES OF BOTH P AND DP/DT TO TIMES TIMEF AND TIMES

C

C ATO = DEFINED ABOVE

C SIGATO = STANDARD DEVIATION OF ATO

C AT = DEFINED ABOVE

C SIGAT = STANDARD DEVIATION OF AT

C RCHI = CHI-SQUARE VALUE FOR FIT

C TIMEF = TIME TO EXTRAPOLATE TO IN FGRUARD DIRECTION

C TIMES = TIME TO EXTRAPOLATE TO IN BACKWARD DIRECTION

C FACTF = VALUE OF FACTOR AS EXTRAPOLATED FORWARD

C FACTB = VALUE OF FACTOR AS EXTRAPOLATED BACKWARD

C RATEF AND RATEB = CORESPONDING VALUES FOR FIRST DERIVATIVES

C SIGFF, SIGFB, SIGRF, SIGRS = STANDARD DEVIATIONS FOR ABOVE

C PRECFF,PRECFB,PRECRF,FRECRB = PRECISION OF EXTRAPOLATED

C RATES AND FACTOR LEVELS

C

C NEDDS NO COMMON BLOCKS OR SUBROUTINES

C

DIMENSION AT(NTERM3),SIGAT(NTERMS),M(NTERMS)

C

C EXTRAPOLATE FACTOR LEVEL

C

FACTF =ATO

FACTB =ATO

SIGFF=SIGAT0>!•^‘<2

SIGFB=SIGAT0x:>k2

IF(NTERM3.LE.0)GO TO 50

DO 40 I=1,NTERMS

FACTF =FACTF+AT ( I) >i<T I MEF>ioi<M ( I)

FACTB =FACTE+AT <; I ) >^<T I MEBxoi'M ( I

)

S I GFF =5 1 GFF+ ( 3 1 GAT ( I ) >"T I MEF>KXcM Cl )

)

>toK2 S I GFB =S I GF B+ ( S I G AT C I) >KT I MEB^-M ( I ) ) >toK2 40 CONTINUE

50 CONTINUE

SIGFF=SQRTCSIGFF)

SIGFB=SCRT(SIGFB)

C

C EXTRAPOLATE DERIVATIVE

C I.E., IF W=A+3WC>KT>r:>i^2,

C THEN DU/DT=B+2>»'-C.'t«T

C

RATEF=0.

RATEB=0.

A40
non

SIGRF=l.E-04

SIGRB=l.E-0^

IF(L.EQ.0)GO TO 120

IF(NTERMS.LE.0)GO TO 110

DO 100 I = l,NTERiiS

J-MCD-l

RfiTEF=RATEF+FLOfiT( J+1) ><<flT( n>KTiriEF>McJ

RflTEB=RATEP+FLOAT( J+n >KPT( I ) »:TIME3'K>fcJ S I GRF =3 1 GRF+ ( FLOAT ( J+

1

) :kS I GAT ( I) >KT I MEF>KM<J )

>

tofc2 S I GRB =S I GRB+ ( FLOAT C J+ 1

) >i<S I GAT ( I) >i<T I nEB>i<>i<J ) >K>K2 100 CONTINUE

C

SIGRF=SIGRF-l.E-04

SIGRB=SIGR3-l.E-04

IF(SIGRF.LT.0. 1E-04)SIGRF=O. lE-04

IF(SIGRB.LT.0. lE-04)SIGR3=a. IE-04

C

110 SIGRF=SORT(SIGRF)

SIGRB=SQRT(SIGRB)

EVALUATE PRECISION

120 PRECFF=A3S(FACTF/SIGFF)

PRECFB=ABS (FACTS/S IGFB)

PRECRF=ABS(RATEF/SIGRF)

PRECRB-ABS(RATEB/SIGRB)

RETURN

END

A41
ooo

oon

ooo

o

nonoo

$ASSM

FACFUN PROG

SFORT

$TRGT IG

SUBROUTINE FACFUN (IJ. S, I

)

SUBROUTINE TO CALCULATE DESIRED FUNCTION OF FACTOR.

NEEDS NO COmON BLOCKS, FUNCTIONS OR SUBROUTINES.

NO CHANGE IN INPUT

IF(I.EQ.0)RETURN

GO TO<10,20,30),

I

FUNCTION IS LOG(U)

10 S=ABS(S/U)

U=ALOG(U)

RETURN

FUNCTION IS U>5cK2

20 S=ABS(S»=2.>i<U)

U=U*>i<2

RETURN

FUNCTION IS 1/U

30 S=AB3(S/(U>M.-2))

U= 1 . /U

RETURN

END

A42
$ftssn

FACSET PROG

SFORT

STRGT 16

C *){<>MoioK>K5McK>M«>foK5K5Mofci|oMo|oioMoK3Mo»o|oMo|o«oM<>Mo<oK3K^^ c SUBROUTINE FftCSEK I , N 1 , N2, N3, N4. NSTOP)

C

C SUBROUTINE TO SET FACTOR LEVELS FROM INITIAL VALUES, INTERVALS

C AND VECTORS

C

C NEEDS THE FOLLOWING COMMON BLOCKS AND SUBROUTINES:

C COMMON /FACTR/

C COMMON /lO/

C COMMON /STEPS/

C SETPAR

C

C

C COMMON STORAGE IS DEFINED VIA ARRAY =DUMP=

COMMON DUMP (900)

C

C COMMON /FACTR/

C

DIMENSION KANDU(8) . IFUNCT(8) , IFDERC8) , INPUTC8) ,SCALE(8)

8., NRAMGE ( 8 ) , NREADS ( S ) , NTERMS C 8 ) , CHTEST ( 8 ) , PT I ME ( 8

)

8.,

PRECF(S),PRECR(8),AT(4)

EQUIVALENCE (NTHCP,DUMP( 17) ), (KANDUC 1) ,DUMPC 18)

)

&, ( I FUNCT ( 1 ) , DUMP (26 ) ) , ( I FDER ( 1 ) , DUMP (34)

)

8., ( IN?UT( 1 ) , DUMP (42) ) , (SCALE( 1 ), DUMP (50) )

8.,

(NRANGE(1),DUMP(53)), (NREADS(1),DUMP(66))

8.,

(NTERMS ( 1 ) , DUMP (74) ) , (CHTEST( 1 ) , DUMP (82) )

8.,

(PTIME(1),DUMP(30)), (PRECF(1),DUMP(98))

(PRECR( 1) ,DUMP( 106) ) , (NFACTS,DUMP( 1 14)

)

8.,

(NRATE3,DUMP(115)), (TIMLIM,DUMP(116))

(MEADS, DUMP ( 1 17) ) , ( INTVAL,DUMP (118))

8.,

(AT( 1 ) , DUMP (119)), (TSCALE,DUMP ( l'30)')

C

C COMMON /lO/

C

EQUIVALENCE (NTTYI, DUMP ( 123) ), CNTTYO,DUNP( 124)

)

8., (NPRItlT,DUMP( 125) ) , (NFILEA,DUMP( 126) ) , (NF ILEB, DUMP ( 127) )

8.,

(NFILED,DUMP(123)), (NFILEE,DUMP(129))

C

C COMMON /STEPS/

C

DIMENSION F(4),TOPF(4),DESIGN(4, 16),FDER(4)

EQUIVALENCE (F ( 1 ) , DUMP (803) ) , (TOPF ( 1 ) , DUMP (834)

)

£<, (DESIGNd, 1),DUMP(308)), (NFVEC,DUNP(872))', (FDER( 1) ,DUMP(873) ) C

c NTIME=0

IF(N1.NE.0)GO TO 15

DO 18 J=l,4

F(J)=F(J) + DESIGN(J,I)

IF (F(J) .GT.TOPF(J)) NSTOP » 6

e A43
SftSSM

BAKE IT PROG

SPORT

STRGT 16

c SUBROUTINE BAKE IT(N. NTHCP, BEG INU, F INALU)

C

cC SUBROUTINE TO PRESET MICAS AND PRECONDITION SAMPLE BY A BAKEOUT

C

C NEEDS COMMON BLOCKS /lO/ AND /MIDASR/

C

C COMMON STORAGE IS DEFINED VIA ARRAY =DUMP=

COMMON DUMP(S00)

C

C COMMON /lO/

C

EQUIVALENCE (NTTYI ,DUM?(123) ) , (NTTYO,DUM?( 124)

)

&, (NPRINT,DU^F(125)), (NF1LEA.DUMPC126)), (NF1LEB,DUMP(127))

&, (NFILED,DUr'P(123)), (NFILEE,DUrP(129))

C

C COMMON /MIDASR/

C

INTEGER>^2 OUTC20) ,REPLY(20) ,NUM( 10) , JUNK2n8)

C

EQUIVALENCE (OUT( 1 ) , DUMP C 1^3) ) , (REPLY( 1 ) , DUr-P (160)), (NUM( 1

)

DUMP ( 180) ) , (JUNK2C 1) ,0UT(3) ) , (NFILTR.DUMPC ISB)

)

C

DIMENSION NTYMEC3)

EQU I VALENCE ( NTYME ( 1 ) , DUMP (835)

)

C

C INITIALISE MIDAS IF REQUIRED

C

0UT(1)=37

0UT(2)=X'23'

DO 210 1=3,20

210 OUT(I)=' ' 455 URITE(NTTYO.430)

430 FORMAT(' SET INITIAL CONDITIONS ON MIDAS, Y OR N?')

READ(NTTYI,440)NA

440 FORmT(Al)

IF(NA.EQ.'N')GO TO 460

URITE(NTT't’0,45I)

451 FORMAT (' GIVE COMMAND. 36 CHARACTERS MAXIMUM'

8./' SHARP SIGN UILL EE ADDED BY COMPUTER')

READ CNTTYI , 420) JUNK2

UR I TE ( NTTYO , 423 ) OU

T

420 F0RMAT(1SA2)

423 FCRMAT(Id,2X, 19A2)

CALL TRAMID(0UT(2), I9,REPLY(2), 19,0.)

GO TO 455

460 CONTINUE

C

C SET TIME

A27
jM-FMIDAS MIDAS CALLS TO INTEGRATE INTO FORTRAN

TITLE CALL DEFINITION

TARGT 16

NOSQZ

UIDTH 132

LCNT 50

SPACE 7

* CALLS *

9fC CALL ** U = 1 OS = IS = * L = * OR

>k TS

*

* S »

*

**

*

*

1,U,0$, IS,L OR TS.S

PASLA UNIT NUMBER

OUTPUT STRING

MINPUT STRING

MAXIMUM LENGTH OF MINPUT STRING

NEU TERMINATION CHARACTER FOR 'MINPUT STRING

L DEFAULTS TO 255, T3 DEFAULTS TO CARRIAGE RETURN

STATUS REPJRNED l/HERE:

-1 IS BAD PASLA UNIT NUMBER

0 IS NO ERRORS

1 IS PREMATURE TERMINATION

2 IS DEVICE UNAVAILABLE

4 MEANS MINPUT UAS RECEIVED

8 IS OPERATOR INTERVENTION

16 IS FRAMING ERROR

32 IS PARITY ERROR

64 IS PASLA 0‘v^RFLOU ERROR

AFTER MINPUT TERMINATION

SPACE 7

)Mok>io|c+o(oioK>K>io):>K>K>K)io(oic>iJ>k>M.'>K;K>K5toK>(otoio;c>!ofr4c>K>icf=^OK>MoMo^JK>(^^

:ic * REGISTER USE *

* 0 - UORKING REGISTER, INTERRUPT LEVEL * 1 - USER AREA POINTER, BEGINNING ADDRESS * 2

- UORKING REGISTER, INTERRUPT LE'/EL * 3 - UORKING REGISTER, USER INDEX * 4 - NUMBER OF CHARACTERS LEFT TO BE SENT FROM OS * 5 - ADDRESS OF NEXT CHARACTER OF IS * 6 - TERMINATION CHARACTER OF IS * 7 - MAXIMUM LENGTH OF IS * 8 - POINTER TO PASLA TiVE 2 COMMAND * 9 - RECEIVER DEVICE CODE * 10 - TRANSMITTER DEVICE CODE * 11 - ADDRESS OF NEXT CHARACTER OF OS * 12 - ADDRESS OF BEGINNING CF IS * 13 - ADDRESS OF RETURNED STATUS UORD * 14 - RETURN ADDRESS TO BASIC * 15 - ADDRESS OS CALL PARAMETER LIST «

* THIS IS CMIDAS AS CHANGED FOR FORTRAN

* THE CHANGES UERE SUGGESTED BY BILL HALL, NBS BOULDER,

# A45
10 CONTINUE

IF (NST0P.EQ.6) RETURN

15 CfiLL SETPflRCFC n, 1,N2,NTHCP,TC)

CALL SETPflR(FC2) ,2,N3,NTHCP,TC)

CALL SETFAR(F(3),3.N5,NTHC?,TC)

CALL SETFARCF(4) ,4,N4,NTHCP,TC)

IF(NPRINT.GE.3)IJRITE(NPRINT,20)F

IF(NFILEB.GE.6n.JRITECMFILEB.20)F

20 FORMATS/' FACTOR LEVELS SET TO' , 4F 10 . 3//)

IF(N2+N3+N4.EQ.0)G0 TO 230

Nl = l 1F(NFILEB.GT.6)URITE(:NFILEB,30)N1,N2,N3,N4,LOOP,PLAT

&,NFVEC.F,T0PF, ( (DES IGM ( J, K) , J = K4) ,k = 1,NFVEC)

IF(NPRINT.GE.3)uJRITE':NPRINT,33)N1,N2,N3,N4

&,LOOP,NPLAT

&,NFVEC,F,T0PF. (i:DESIGN(J>K),J=1,4) ,K=1,NFVEC)

33 FORriATC' STOPPED IN FACSET BECAUSE OF ERRORS IN SETTING FACTORS'

8./' N1=',I3

&/' ERROR FLAGS ARE’. 313

8./' LOOP NUMBER '.13

8./' PLATEAU NUMBER '.13

8./' FACTOR LEVELS' ,4E14.

6

8./' FACTOR STEPS '.4E14.6

6.y' FACTOR VECTORS' . (/4E 14. 6))

NTIhE=NTIME+l

IF(NTIME.LT.3)G0 TO 15

PAUSE 20

GO TO 15

200 N1=0

RETURN

END

SASSM

FCTN PROG

$FORT

STRGT 16

C

C

FUNCTION FCTN (X. I. J. JTERMS.NPTS)

C

c

C FUNCTION TO CALCULATE FITTED VALUES FOR REGRES SUBROUTINE

C

c DIMENSION X(NPTS) .JTERMS(J)

JEXP=JTERMS(J)

FCTN=X(I)>i<>i<JEXP

RETURN

END

A44
SPACE 3

CMDTB DC X'2G2E' PASLA 26

DC X'286E' PASLA 28

DC X'246E' PASLA 24

ECMDTB DO 3 REPEAT NEXT LINE FOR EACH PASLA DEFINED

DC 0,0,8,P.R-G,>k+4, I,U.0,V,0,O.0,0.0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,P.R,G,>k-50,OL

TITLE RELEASE COMMAND FOR MIDAS UNIT ** FORTRAN CHANGE * ' RELESE STM 0,RS

LHI 14,R.ETAD

AIS 15^2

LH 4,0(l5) GET THE DEVICE CODE *

*

* RELESE LH 4,9(15) GET THE DEVICE CODE

»

LH 10,0(4)

SHI 10, X' 4200' REMOVE EXPONENT

LHI 8, CMDTB

LHI 3,ECMDTE!

RSRCH LB 9,0(8) GET PASLA NUMBER IN TABLE

CHR 9,10

BZS RFUNIT PASLA IN TABLE?

AIS 8,2 NO, KEEP LOOKING

AHI 3,70

CLHI 8, ECMDTB

BLS RSRCH

BR 14 CAN'T CLEAR, SO RETURN

RFUNIT LH 6,18(3)

CHR 1,6 ONLY USER CAN RELEASE

BN2R 14 NOT THE USER

XHR 0^0

STH 0,18(3) RELEASE UNIT

BR 14

TITLE MIDAS DRI'/ER **

* FORTRAN CHANGE »

MIDAS STM 0,RS

LHI 14,RETAD

AIS 15,2

LH 13,8(15) STATUS UQRD ADDRESS *

*

* MIDAS LH 13,8(15) STATUS WORD ADDRESS *

LH 12,4(15) ADDRESS OF 1$

XHR 3,3

f A47
3»< TELEPHONE 8--32Z-4433 (FTS) *

JK THE CALL IS: CfiLL riIi)ftS(U,0,Fl ,FL,S) * OR CALL riIDflS(U,0,F].T,S) * UHERE U,FL AND S ARE FLOATING POINT NUMBERS

* AND 0 AND FI ARE HOLLERITH ARRAYS.

* TO RELEASE THE UNIT ASSIGNED TO MIDAS: CALL RELESE(U)

UHERE U IS THE UNIT NUMBER. * 0 IS THE STRING TO OUTPUT TO MIDAS

FI IS THE INPUT STRING

>k FL IS THE MAXIMUM LENGTH OF THE INPUT STRING

5K T IS AN OPTIONAL HOLLERITH CHARACTER FOR TERMINATION

X< S IS A STATUS UORD (LJHICH HAS TO BE CHECKED FOR TRANSMISSION

COMPLETE)

>fc **

TITLE SUBROUTINE CONSTANTS

>K* FORTRAN ENTRIES

ENTRY MIDAS

ENTRY RELESE

MMODE EQU X'SE' USER'S MMODE FLAG IN BASIC

*

THE FOLLOUING DEFINITION'S ARE NEEDED IN THE DC BELOU

>KG EQU X'D100' LOAD MULTIPLE INSTRUCTION

P EQU X'DOeO' STORE MULTIPLE INSTRUCTION

I EQU X'0300' BRANCH TO REGISTER 0

OL EQU X'0302' BRANCH TO REGISTER 2 . *

* FORTRAN CHANGE

RS DS 32 *

*

R DS 32 MIDAS INTERRUPT REGISTER SAVE AREA

SPACE 7

j{oK>k5K>K^'>|cl''>KrK>K:tc>K>;oK’toK>K>;»K>|r>K>K5(oK>lototo|oK>K>fr>fc>K>!o|otoloK>K5to^^

>K^ THIS TABLE SHOULD BE TAILORED TO THE INDIVIDUAL ^ SYSTEM UITH LHICH IT UILL EE USED *

>t: THE FIRST BYTE OF EACH CONSTANT IS THE PASLA * DEVICE CODE, AND THE SECOND BYTE IS THE * TYPE 2 COMMAND TO BE ASSOCIATED UITH IT.

>Kxc REPEAT COUNT ON THE DO AT ECMDT3 MUST CORRESPOND TO * THE NUMBER OF FASLAS DEFINED IN ThiE CMDTB TABLE.

A46
SPACE 3

CMDTB DC X'2b2E' PASLA 26

DC X'286E' PASLA 28

DC X'246E' PASLA 24

ECfIDTB DO 3 REPEAT NEXT LINE FOR EACH PASLA DEFINED

DC 0,0,8,P,R,G,>K+4. I,U,0,V,0,O,0,0,8,0,0,0,0,0.0,0,0,0,0,0,0,0,0,P.R.G,:>K-50,OL

TITLE RELEASE COMMAND FOR MIDAS UNIT

* FORTRAN CHANGE

*

RELESE STM 0,RS

LHI 14,RETAD

AIS 15^2

LH 4,0(15) GET THE DEVICE CODE *

JK RELESE LH 4,9(15) GET THE DEVICE CODE *

*

*

LH 10,0(4)

SHI 10, X' 4200' REMOVE EXPONENT

LHI 8, CMDTB

LHI 3,ECMDTB

RSRCH LB 9,0(8) GET PASLA NUMBER IN TABLE

CHR 9,10

BZS RFUNIT PASLA IN TABLE?

AIS 8,2' NO, KEEP LOOKING

AHI 3,?0

CLHI 8,ECMDTB

BLS RSRCH

BR 14 CAN'T CLEAR. SO RETURN

RFUNIT LH 6, 18(3)

CHR 1,6 ONLY USER CAN RELEASE

BN2R 14 NOT THE USER

XHR 0,0

STH 0,18(3) RELEASE UNIT

BR 14

TITLE MIDAS DRI'/ER *

* FORTRAN CHANGE »

MIDAS STM 0,RS

LHI 14.RETAD

AIS 15,2

LH 13,8(15) STATUS UORD ADDRESS *

# MIDAS LH 13,8(15) STATUS UORD ADDRESS *

LH 12,4(15) ADDRESS OF IS

XHR 3,3

f A47
STB 3,-1 (12) CLEAR MINPUT STRING

STH 3,0(13) CLEAR STATUS UDRD

STH 3,2(13)

LH 4,0(15) GET DEVICE CODE

LH 10,0(4)

SHI 10. X' 4260' REMOVE EXPONENT

LHI O.CMDTB

LHI 3.ECMDTG

SEARCH LB 9,0(8) GET PASLA NUMBER

CHR 9, 10

B2S RTUNIT FASLA IN TABLE?

AIS 8,2 NO, KEEP LOOKING

AHI 3,70

CLHI 8,ECMDTB

BLS SEARCH

NONO LHI 3, X" Cl 10' PASLA NOT AVAILABLE-RETURN

STH 3,0(13) DEVICE CODE ERROR

BR 14

RTUNIT LH 6,18(3) UNIT ALREADY IN USE?

BZS GRAB

CHR 1,6 YES CHECK FOR RIGHT USER

BZS FOUND

BS NONO URGNG USER—FASLA NOT AVAILABLE

GRAB STH 1,18(3) GRAB THIS PASLA *FOR THIS USER

FOUND AHR 10,10

LH 7,X'D0'(10) SAVE VECTOR FOR RECEIVE

STH 7,58(3)

LHI 7,0(3) SET INTERRUPT POINTER

STH 7, X' DO' (10)

AIS 10,2

LH 7,X'D0'(10) SAVE VECTOR FOR SEND

STH 7,52(3)

LHI 7,54(3) 'SET INTERRUPT POINTER

STH 7,X'D3' ( 10)

SRLS 10,1 SENDING DEVICE CODE

LH 11,2(15) ADDRESS OF OS

LH 4,6(15) MINPUT TERMINATION ADDRESS

THI 4,1 STRING VARIABLE?

BZS NEULEN NO, MUST EE F.P. NUMBER

LB 6,0(4) YES, LOAD TERMINATION CHARACTER

LHI 7,X'FF' AND DEFAULT LENGTH

B ISET

NEULEN LH 6.0(4) GET LENGTH

SRL 6,8 SPLIT F.P. UORD

SRLS 7,8

CLHI 6,X'43' >255

BNLS DEFALT USE 255

SHI 6,X'41'

BNCS >K+4 <1

XHR 7,7

BNZS ^+4

ERLS 7,4

BS Ji<+6 DEFALT LHI 7,X'FF'

LIS 6,13 TERMINATE ON CARRIAGE RETURN

ISET LHR 5.12 SET MINPUT POINTER

A48
XHR 4,4 CLEfiR OUTPUT COUNT

STM 3,22(3.'' SET INTERRUPT REGISTERS

STH 4,48(3) CLEAR ERROR CODE

OC 9,1(8) ISSUE TYPE 2 COMMAND TO PASLft

SSR 9,2 MALE SURE DEVICE IS AVAILABLE

BFFS 2,CLRIN

LHI 15,X'4130' NOT, SO SET ERROR

B MRESTGR

CLRIN RDR 9,2 CLEAR MINPUT REGISTER

OC 9,URTRD-j-l SET MINPUT

OC 10,IJRTRD SET OUTPUT

LB 4,-1 (11) SET OUTPUT COUNT

STB 4,25(3)

SINT 0(10) START OUTPUT

UAIT LH 15,43(3) CHECK FOR TERMINATION FLAG

THI 15,2 *

# FORTRAN CHANGES *

BZ NOESC

JK** BZ STATOK DEVICE NOT UNAVAILABLE *

jkPREMAT OHI 15,X'420r PREMATURE TERMINATION

MRESTOR STH 15,0(13) RETURN STATUS

LH 15,52(3) RETURN AFTER MRESTORING VECTORS

AHR 9,9

STH 15,X'D2'(S)

LH 15,59(3)

STH 15.X'D0'(9)

BR 14

* FORTRAN CHANGES

XcXcSTATOK LH 15,MM0DE(1) GET USER MMODE FLAG

Xc SRLS 15,

1

Xc BCS NOESC USER ENTERED ESCAPE?

LIS 15,8

B PREMAT

NOESC LH 7,30(3)

LH 4,24(3) OUTPUT DONE?

BNZ UAIT

LB 15,-1(12) IF SO, CHECK INPUT

SHR 15,7

BNZ UAIT

LH 15,48(3)

BZ MRESTOR

OHI 15, X' 4200'

B MRESTOR

x<xc

XC FORTRAN CHANGES

A49
RETAD LM 0,RS

AH 15,0(15)

BR 15 *

*

TITLE INPUT INTERRUPT PROCESSOR

U LB 0,-1 (12) GET LEi-iGTH OF IS

CHR 0,7 INPUT EXPECTED?

BLS MINPUT

LIS 0,4 NO

OH 0,48(?)

STH 0,43(3) IGNORE MINPUT

SSR 9,2 FAY DUES TO THE PALS

RDR 9,8

B INRET

MINPUT SSR 9,2

BTC 15,IERR ALL STATUS BITS SHOULD EE OFF

EINPUT RDR 9,2 MINPUT

CHR 2,6 TERMINATION CHARACTER?

BNZS SAVIT

STH 0,30(3) DONE

BS INRET

SAVIT STB 2,0(5)

AIS 0,

1

STB 8,-1 (12) INCREASE STRING POINTER

AIS 5,1 AND MINPUT POINTER

STH 5,26(3)

INRET LM 0,R

LPSU 0(3)

I ERR THI 2,2 NO CARRIER?

BNZS NODEV

THI 2,X'FB' NO RESPONSE?

BNZS STATCK

NODEV LIS 0,2 SET DEVICE UNAVAILABLE

OH 8,48(3)

STH 0,43(3)

BS INRET

STATCK NHI 2,X'E8’ CHECK REST OF STATUS

BZ INRET

SRLS 2,1

OH 2,48(3)

STH 2,43(3) SAVE ERROR 43(3)

B EINPUT

TITLE OUTPUT INTERRUPT PROCESSOR

V SSR 10,2

BFC 15,SENDIT

BTFS 2,CAN1TX NO CARRIER?

THI 2,X'FB' NO RESPONSE

, BNZS TXSTAT

CANTTX LIS 0,2 CAN'T TRANSMIT—NO DEVICE

OH 0,43(3)

STH 0,43(3)

BS OUTRET

TXSTAT THI 2,X’40' CLEAR TO SEND?

BNZS CANTTX

A50
SSR 10,2 BUSY FLfiG?

BFFS 8,SEMDIT

OUTRET LM 0,R

LPSU 54(3) NO.RETL'RN

SEND IT Lh'R 4,4 MORE TO SEND?

BZS OUTRET

SIS 4,1 COUNT OUTPUT

STH 4,24(3)

UD 10,0(11) SEND IT

ftlS 11,1 BUMP POINTER ' STH 11,38(3)

BS OUTRET

TITLE MIDflS DRI^/ER SVmOL TOBLE

URTRD DC X'63Sr FASLA URITE AND READ COMMANDS

LIST

END
SASSM

IN IT PROG

$FORT

STRGT 16

C )M:>)<>KHc>K>K>l<>lo)ci<c4cMoK;K>K>K>K>k>K>K>toto|oK:4o|oMoK>ioMoMoK5toK5Mok3Mo|o|o(otoK>K>^^ c SUBROUTINE INIT

C

Q >|f>}o|oK>(c>(;>l<>f''>K>K>K'HoK>^oK5K>k>tc+;>K>K:4:>(o|oK>K>*oK>|oK^otoioKofoKM<>K>toK>K>K>K>fc>K5K>K>K^^

C SUBROUTINE TO ASSIGN VALUES TO VARIABLES IN LABELLED COMMON

C NEEDS ALL COMMON BLOCKS

C

C COMMON STORAGE IS DEFINED VIA ARRAY =DUMP=

COMMON DUMP(9G0)

C

C COMMON /BIAS/

C

DIMENSION BIASV(8),SIGBV(8)

EQUIVALENCE CB lASVC 1 ) , DUMP ( 1) ) , (S IGBV( 1 ) ,DUMP (9) ) C

C COMMON /DERIVE/

C

EQUIVALENCE (PRECE. DUMP ( 131)

)

C

C COMMON /FACTR/

C

DIMENSION KANDUC8) , 1FUNCTC8) , IFDER(8) , IHPUTCB) ,SCALE(8)

8.,

NRANGE(8),NREADS(8),NTERMSC8),CHTEST(3),PTIME(3)

&,PRECF(8),PRECR(3) ,AT(4)

EQUIVALENCE (NTHCP, DUMP ( 17) ) , (KANDU ( 1 ) , DUMP ( 18)

)

8c, ( I FUNCT ( 1 ) , DUMP C2S) ) , (I FDER ( 1 ) , DUMP (34) ) 8c, ( IHPUT( 1 ), DUMP (42 )), (SCALE ( 1 ), DUMP (50)

)

&,(NRAMGE(1),DUMP(58)), (NREADS( 1) ,DUMP(6b)

)

8c, (NTERMS(1),DUMP(74)), (CHTEST( 1 ) , DUMP (S2)

)

8. , (PT I ME ( 1 ) , DUMP ( 90 ) ) , ( PRECF ( 1 ) , DUMP ( 93 1

)

8c, (PRECR( 1 ) ,DUMP( 186) ) , (NFACTS,DUM?( 1 14)

)

8c, (NRATES.DUMPdlS)), (TIMLIM, DUMP ( 1 16)

)

8c, (NBRDS,DUMP(117)), (INTVAL.DUMP(113))

8c, (AT( 1 ) , DUMP (119)), (TSCALE, DUMP ( 130)

)

C

C COMMON /lo/

C

EQUIVALENCE (NTTYI , DUMP ( 123) ), (NTTYO, DUMP ( 124)

)

8c, (NPR INT, DUMP ( 125)) , (NF ILEA, DUMP ( 126) ) , (NFILEB,DUMP( 127) ) 8c, (NFILED.DUMP(128)), (NFILEE,DUMP(129))

C

C COMMON /MIDA3R/

C

INTEGER*2 OUT(20) ,REPLY(20) ,NUM( 10) , JUNK2( 18)

C

EQU I VALENCE ( OUT ( 1 ) . WW(140)), (REPLY ( 1 ) , DUMP ( 1 60 ) ) , ( HUM ( 1

)

8c, DUMP( 180) ) , ( JUNK2 ( 1 ) , 0UT(3) ) , (NF ILTR, DUMP ( 190)

)

C

C COMMON /PARAM5/

C

DIMENSION A01(S),A02(8),SIGA01(S).SIGA02(8)

A52
ooooon

non

non

nno

nnn

&,Al(4,8),A2(4.8).SIGni(4,S),SIGn2(4,9)

&,FfiCTl(2,8),SIGFl(2,3),RPlTEl(2.3).SIGRlC2,8) 8., FACT2(2,S),SIGF2(2.8),R8'!'E2C2,8),SIGR2(2,8)

8., TIMEF(2),T!MEBC2)

EQUIVALENCE ( AG 1 ( 1 ) ,r.UnP(20O) ) . (A02(l) , DUMP (208) ) 8., (S IGAO 1(1). rUMP (2 16) ) , (S IGA02 ( 1 )

.

DUMP (224) ) 8., (Aid, 1), DUMP (232)), (A2 ( 1 , 1 ), DUMP (264)

)

&, (SIGAKl, 1),DUMP(296)), (SIGA2(1. 1),DUMF(323))

EQUIVALENCE. (FACTl ( 1 , 1 ) ,DUMP (360) ) , (SIGFl ( 1 , 1 ) ,DUMP(376)

)

8.,

(RATE1(1, 1), DUMP (392)), (SIGR 1(1, 1), DUMP (438))

&, (FACT2(1, 1),DUMP(424)), (SIGF2(1, 1 ), DUMP (443)

)

&, (RATE2(1, 1), DUMP (456)), (SIGR2(1, 1), DUMP (472)

)

8., (KOUNTl, DUMP (483) ) , (!<3UMT2, DUMP (489)

)

EQU I VALENCE ( T I r !EF (1 ) . DUMP ( C63 ) ) , ( T I MEB ( 1 ) , DUMP (502 ) )

8.,

(DAY, DUMP (504)), (HDTIME, DUMP (505))

8.,

(S:<IP,DUMP(50S)), (RATM]N,DUM?(507)), (RATMAX, DUMP (598) )

8.,

(TJUMP, DUMP (509)

)

COMMON /PLAT/

DIMENSION RCHK8)

EQUIVALENCE (LPLAT, DUMP (5 10) ) , (NELAPS, DUMP (5 1 1 )

)

&, (NFIRST.DUMP(512)), (NCH!,DUMP(513)), (NST0P,DUMP(514)

)

8.,

(START,DUMP(515)), (RCH I ( 1 ) , DUMP (5 16)

)

8.,

(N0'mER,DUMP(524)), (KSTORE, DUMP (525)

)

8.,

(ENDSIG,DUMP(52S))

&, (T01M4,DUMP(527)), (FACTIM,DUMP(528)), (EQUIL,DUMP(529))

COMMON /REGRS/

DIMENSION M(5),R(5),YFIT(250)

EQUIVALENCE(M( 1) ,DUMP(530) ) , (R( 1 ) ,DUMP(535) ) , (YFIT( 1) ,DUMP(540)

)

COMMON /STEPS/

DIMENSION F(4),DELF(4),DESIGN(4, 16),FDER(4)

EQUIVALENCE (F( 1 ) , DUMP (800) ) , (DELF ( 1 ) , DUMP (8C4)

)

8.,

(DESIGNd, l),DUr'P (808)), (NFVEC, DUMP (872)), (FDER(l), DUMP (873))

COMMON /UHEN/

DIMENSION TPLATl (2) ,TPLAT2(2) ,NTYME(3)

EQUIVALENCE (BEG IN. DUMP (830) ) , (TPLATl ( 1 ) , DUMP (88 1 )

)

8.,

(TPLAT2 ( 1 ) , DUMP (883) ) , (NTYME ( 1 ) , DUMP (885)

)

INITIALISE COMMON VARIABLES

DO 1 1=1,900

1 DUMP(I)=0.

NUM(1)=X’30'

NUM(2)=X'3r

NUM(3)=X'32'

NUM(4) =X'33'

A53
non

ono

non

NUM(5)=X'34'

NUM(G)=X'35'

NUM(7)=X'36'

NUM(8)=X'3?'

NUM(9)=X'38'

HUM«:iO)=X'39'

DAY=0.

SKIP=30.

HDTIME=0.

NSTOP=0

NTHCP='E'

TSCALE=243.73

GENERAL LOOP OVER PARAMETERS

DO 10 I=!,8

KANDLI(I)=G

IFUNCT(I)=0

IFDER(I)=0

INPUT(I)=I-I

SCALE(I)=1.

NRANGE(I)=5

NREADS(I)=3

NTERI1S(n=0

CHTEST(I)=l030.

PTIME(D=300.

PRECF(I)=lO0.

PRECR(I)=50.

10 CONTINUE

CHANGE THE EXCEPTIONS

KANDU(1)=1

KANDU(2)=2

IFDER(1)=1

SCALE (3) -0.01

NRANGE(1)=3

NRANGE(2)=3

NTERMS(1)=2

NTERMS(2)=1

CHTEST(1)=2080.

CHTESTC3) =99999.

SET THE REMAINING VALUES

PRECE-25.

NFACTS-2

NRATES-1

TIMLIM-600.

NBADS-8

EQUIL=2O0.

lNTVAL-200

ENDSIG-0.

RATMIN-15.

RATMAX-45.

TJUMP-16.

A54
DO 20 I«»l»5

20

HTTYI=5

NTTYO=4

NPRINT=3

NFILEfi=7

NFILEB=8

NFILED=1

NFILEE=6

RETURN

END

A55
mriNV PRCG

$FORT

STRGT 16

Q >Motok>|ojoMo}oK>ioMoioK5k5fciMoMoWotototo)ciok5K5toMc4ototoMoMotoK5Mo{cio{o^^^ c SUBROUTINE mTINV CfiRRPY,NORDER,DET)

C

C >Mo^>^>iok>K>K>(»!oK>K>rotc>Kv;;>K>^oioK:^c>K>t»M<>K>WoK>io'oMoi<>Mok>4oM<Mc^oK>Wo|c{<>|oK^^ . C SUBROUTINE FOR MATRIX INVERSION

C

DOUBLE PRECISION ARRAY, AMAX, SAVE

DIMENSION ARRAY(5,5), IK(5),JK(5)

DET=1.

DO 1S0 K=l,NORDER

C

C FIND LARGEST ELEMENT ARRAY(I,J) IN REST OF MATRIX

C

AMAX=0.

10 DO 30 I=K,NORDER

DO 33 J=K,NORDER

IF (DABSi:AMAX)-DABS(ARRAYn,J))) 20,20,30

20 AMAX=ARRAY(I,J)

1K(K)=I

JK(K)=J

30 CONTINUE

C

C INTERCHANGE RODS AND COLUMNS TO PUT AMAX IN ARRAY(K,K)

C

40

50

60

70

B0

90

100

C

C ACCUMULATE ELEMENTS OF INV'ERSE MATRIX

C

110

120

130

140

150

DO 130 I=l,NORDER

IF <I-K) 120,130,120

ARRAY (I , K )=-ARRAY ( I , K ) /AMAX

CONTINUE

DO 160 l=l,NORDER

DO 160 J=l,NORDER

IF (I-K) 140,160,140

IF (J-K) 150,160,153

ARRAYC I , J) =ARRAY( I , J) +ARRAY( I , K) >kARRAY(K, J)

IF (AMAX) 50,40,50

DET=0.

GO TO 260

I=IK(K)

IF (I-K) 10,80,60

DO 70 J=1,NCRDER

SAVE=ARRAY(K, J)

ARRAY ( K , J ) =ARRAY ( I , J

)

ARRAY(I,J)=-SAVE

J=JK(K)

IF (J-K) 10,110,90

DO 160 I=1,N0RDER

SAVE=ARRAV( I,K)

ARRAY(I,K)=ARRAY(I,J)

ARRAY(I,J)=-SAVE

A56
160 CONTINUE

DO 180 J=l,NORDER

IF (J-K) 173,160,170

170 ARRAY (K,J)=F.RRftY(K,J)/AmX

180 CONTINUE

ARRAY (K,K)=l./AnAX

190 DET=DET^fiAmX

C

C RESTORE ORDERING OF MATRIX

C

DO 250 L=l,NORDER

K=NORDER-L+l

J=IK<K)

IF (J-K) 220,220,200

DO 210 I=l,NORDER

SAVE=ARRAY (1,10

ARRAYC I , K) =-ARRAY( I , J)

ARRAY(I,J)=SAVE

I=JK(K)

IF (I-K) 250,250,230

DO 240 J=1,N0RDER

SAVE=ARRAY(K,J)

ARRAY(K,J)=-ARRAY(I,J)’

ARRAY(1,J)=SAVE

CONTINUE

260 RETURN

END

200

210

220

230

240

250

A57
SfiSSM

OVERLY PROG

SPORT

STRGT 16

C >|o|oMc^<>i<^5K>K>!ok>foH>»:)totok>MoloMototoK>MofcfoK5MoMofoK^^^ c SUBROUTINE OVERLY(NPROG,NUNlT,NREUIN,NTr(TI)

C

C 3(ofo|oK>K>K5K>’:^>lolc>K>t^>k>X>;ofr>K>M<>}oK>toio|ofo1c>[;^^>K>K>K>K>iOi':HoK>KMo<<>;<>toK>K>>o;o’(C4c)^^

C SUBROUTINE TO REfiD IN GVERLRY SEGMENT FROM UNIT NUN IT

C TRY 3 TIMES IF CVERLftY IS P.T BEGINNING OF PILE

C

INTEGER>!<2 NPR0GC3)

30 NTIME=1

C . C REUIND INPUT UNIT IF APPROPRIATE, READ IN OVERLAY SEGMENT

C

10 IF(NREUIN.EQ.0)REUIND NUNIT

CALL IFETCHCNPROG, NUNIT, ISTAT)

IF (ISTAT. ED. 0) RETURN

NTIME=NTIME+1

IF(NT1ME.LE.3.AND.NREUIN.EQ.0)GO TO 10

C

C ERROR ROUTE

C

IlRITE(NTTYO,20)NPROG,NUNIT

20 FORMATC' CANNOT READ IN OVERLAY ',3A2,' FROM LOGICAL UNIT', 13)

C

C REPEAT AFTER =CONT3NUE= GIVEN BY OPERATOR

C

PAUSE

GO TO 30

END

A58
SflSSM

PLATTO PROG

$FORT

STRGT 16

C JMo)oJoK>M<:M<>k>fc<cK:4oMGta<o|o(ot=>!oK>Wo}c>joio|oMc<oK5toMoMo?^^ c SUBROUTINE PLATTOCAO.SIGAO, A,SIGA,KOUNT,TF,STF,TYT1E,NERROR,NPLAT

&, BEG I MU)

C

c >Mc5^<>io^<>K>K>K^^•>MoK>fDKHoic^oiofofo^c^o:otoK^^c>^c>fc4c^ok>K>K>K5^<>^oK>K>^c^<^ C SUBROUTINE TO COLLECT UEIGHT DATA DUPING A PLATEAU IN SOME

C FACTOR OR COMBINATION OF FACTORS (UHICH MAY INCLUDE SOME FUNCTION

C OF THE RATE OF UEIGHT LOSS) AND FIT A POLYNOMIAL

C OF DEGREE NTERMS(K) FOR FACTOR K AS A FUNCTION OF TIME.

C 8 FACTORS MAXIMUM. 250 POINTS PER PLATEAU MAXIMUM (NOT COUNTING

C PARTS DISCARDED BECAUSE OF INSTABILITY IN FACTOR LEVELS).

C

C NEEDS THE FCLLOUING COMMON BLOCKS. FUNCTIONS AND SUBROUTINES:

c COMMON /BIAS/

c COMMON /FACTR/

c COMMON /ID/

c COMMON /MIDASR/

c COMMON /PARAMS/

c COMMON /PLAT/

c COMMON /REGRS/

c COMMON /UHEM/

c ESET

c FACFUN

c REGRES

c RPAR

c TIMER

C

c

C COMMON STORAGE IS DEFINED VIA ARRAY =DUMP«

COMMON DUM?(S00)

C

C COMMON /BIAS/

C

DIMENSION BIASV(8),SIGBV(8)

EQUIVALENCE (BIASVC 1) .DUMP( !) ) , CSIGBVC 1) .DUMPCS)

)

C

C COMMON /FACTR/

C

DIMENSION KANDU(B) , IFUNCT(B) . IFDER(B) . INPUT(B) . SCALE (8)

& . NRANGE ( 8 ) . NREADS ( 8 ) . HTERMS ( 8 ) . CHTEST ( 8 ) , PT I ME ( 8

)

&,PRECF(8) .PRECR(S) .AT(4)

EQU I VALENCE ( NTHCP . DUMP ( 17 ) ) , (KANDU ( 1 ) , DUMP (18))

e., ( IFUNCT( 1 ) , DUMP (26 ) ) . ( IFDER ( 1 ) , DUMP (34)

)

8.,

(INPLIT( 1) ,DUMP(42) ) . (SCALE ( 1 ). DUMP (50)

)

(NRANGE (1). DUMP (58) ) , (NREADS ( 1 ), DUMP (66)

)

(NTERM3 ( 1 ) , DUMP (74) ) . ( CHTEST ( 1 ) , DUMP ( 82 )

)

8.,

(PTIME( 1) .DUMP(S0) ) , (PRECF ( 1 ) , DUMP (93)

)

8., (PRECP( 1) .DUMP( 106) ) , (NFACTS, DUMP ( 1 14)

)

8.. (NRATES.DUNP( 1 15) ) , (TIML IM, DUrP ( 1 16) ) 8., (NBADS.DUMP( 1 17) ) . ( INTVAL, DUMP ( 1 18)

)

8.. (AT( 1 ) .DUMP (119)). (TSCALE.DUMP( 130)

)

A59
c

C COMMON /lO/

C

EQUIVALENCE (NTrVl , LUMP ( 123) (NTTYO, DUMP ( 124)

)

a. (NPRINT,DIJMP(125)). CNFILEA,DUMP(12S)), (NF1LEB,DUMP(127))

a, (NFILED,DUMP( 128) ) , (NF ILEE, LUMP ( 123)

)

Cc COMMON /MIDASR/

C

INTEGER>{:2 OUT(20) , REPLY(23) , MUM( 10) , JUNK2 ( 18)

C

EQUIVALENCE (DUT( 1 ) ,DUMP( 140) ) , (REPLYC 1 ) ,D'JMP ( 160) ) , (NUM( 1

)

a,DUMP( 180) ), (JUNK2(1) ,0UT(3)), (NFILTR, DUMP (190)

)

C

c COMMON /FARAMS/ (PART OF)

C

EQUIVALENCE (SK IP, DUMP (506)

)

C

c COMMON /PLAT/

C

DIMENSION RCHK8)

EQUIVALENCE (LPLAT,DUMP(518) ) , (NELA?S,DUrP(51 1)

)

a, (NFIRST,DUM°(512)). (NCHi,DUM?(513)), (NSTOP, DUMP (5 14)

)

a, (START, DUMP(515) ), (RCH](1),DUMP(516))

a, (N0THER,DUMP(524)), (KSTCRE, DUMP (525)

)

a, (ENDSIG,DUMP(526)) , (T0IM4,DUMP(527) ) , (FACTIM,DUMP(523)

)

a, (EQUIL,LUMP(523))

C

C COMMON /REGRS/

C

DIMENSION M(5),R(5).YFIT(250)

EQU I VALENCE (M( 1 ) , DUMP (530) ) , (R ( 1 ) , DUMP (535) ) , (YF IT( 1 ) , DUMP (540)

)

C

C COMMON /UHEN/

C

DIMENSION TPLAT1(2),TPLAT2(2),NTYME(3) • EQU I VALENCE (EEG IN, LUM.^ (380) ) , (TPLATl ( 1 ) , DUMP (38 1 )

)

a, (TPLAT2 ( 1 ), DUMP (683) ), (NTYME(l), DUMP (885))

C

C

LOGICAL ITEST

C

C

DIMENSION A0(8) ,SIGA0(8),A(4.8),SIGA(4,8),TF(5,8),STF(5,8)

a,TYME(5),TEER0(5) ,TE^F(5) ,STEM?(5)

a,ATP(2) ,SIGATP(2)

DIMENSION NU0RD(8)

DATA NU0RD/'EB','TC','PR','Fr,'F2'

a,'Rl','R2','XX'/

c

c INITIALISE

C

LOOP=0

NFIRST=0

NSTOP-0

NERROR=0

A60
ooo

noo

on

no

n

non

non

NELAPS-0

KST0RE=8

DO 4 J=l,5

TYME(J)=0.

TEMP(J)=0.

STEriP(J) = l.E-09

DO 4 I=1,NFPCTS

TF(J, n=o.

STF(J, I)=l.E-09

RCHI(n=0.

4 CONTINUE

C MrTKE K0UHT=-4 70 COLLECT 4 D9TN POINTS QUICKLY TO USE IN C STEADINESS CHECKS UITHOUT BIASING THE DATA UITH

C

5- CLOSE POINTS IN THE UNSTEADY PART AT THE BEGINNING

C OF THE PLATEAU

K0UNT=-4

UNLESS NO STEADINESS CHECKS UILL BE MADE

IF (NCHI.EQ.0) KOUNT = 0

PRINT HEADING

IF (NPR INT . GE . 3) UR ITE CNPR INT, 200) NPLAT

I F (NF I LEB . GE . S ) UR I TE ( NF I LEB , 2S0 ) NPLAT

200 FORMATC' MEASUREriENT FOR PLATEAU NUMBER' -13,' *?iofoMoK'

)

IF (NPR INT. GE. 3) UR ITE (NPR INT, 201)

IF(NFILEB.GT.6)URITE(NFILEB,201)

201 F0RMAT(/' NO. F I READING SIGMA RD TIME'

8c,' BAD RCHI TESTCH'//)

REWIND NFILED

L00P=L0CP+1

miT UNTIL ECUILIBRATION TIME HAS ELAPSED

830 START=T I MER NTYME ) -BEG I

N

IFC(START-FACTIM) .LT.EGUIDGO TO 833

ENTRY PLATCO

IF (NFIRST. NE . 0 . AND . NPR INT. GE . 3) UR ITE (NPR INT, 623) NPLAT

IF(NFIRST.NE.0.AND.NFILEB.GT.6)URITE(NFILEB,620)NPLAT

620 FORMAT(/' PLATEAU' , 13, ' CONTINUED ;*otoioioM<' /)

NFIRS7=1

BEGIN READ LOOP

5?0 CONTINUE

M0\€ ANY PREVIOUS READINGS DOUN IN SMALL ARRAY STORAGE LISTS

DO 30 J=l,4

TYME(J)=TYME(J+!)

Ha>30 Ic-4',NFACT5

I)

^0 >3nFi(ca,iD>-4srTF(.j+i , i >

A61
ono

oooonoo

ooo

oonno

noo

C

K0UNT=K0UNT+1

DELPIY LOOP

IF(KOUNT.LE. 1)G0 TO 26

27 T=TIMER(NrtT-:E)-BEGIN

IF(T-TYI-TE(5) .LT.SKIP)GO TO 27

READ TIME. UEIGHT AND FACTOR LE'VELS ALL TOGETHER AS RAPIDLY AS

POSSIBLE

THIS IS TirE FROM BEGINNING OF EXPERIMENT

26 TYME(5)=Tir-ER(NTYME)-BEGIN

ILTr=0

DO 20 J = KNFACTS

I=KANDU(J)

IFUNPUTCI) .EQ.0) ILT=J

CALL RPAR ( TF ( 5 , J ) , STF ( 5 , J ) , I NPUT ( I) . NRANGE ( I) . SCALE ( I

)

e., HREADS ( I) , B I ASV (I ) - NERRCR)

IF(NERR0R.EQ.6)G0 TO 22

IF (NPR I NT. GE . 3) UR ITE CNPR INT, 23) NERROR

IF(NFILEB.GT.6)LRITE(HFILE5,23)NERR0R

23 FORMATC' NERROR VALUE OF', 12,' IN PLATTO >toictotc*'

)

22 STF<5,J)=STF(5,J)/5QRT(FL0AT(NREADS(I)))

IFAC=IFUNCT( I)

CALL FACFUNCTF(5,J),STF':5,J), IFAC) -

STORE INITIAL UEIGHT IF NEEDED

IFCNPLAT.NE. !)G0 TO 20

IF(ABSCBEGINU) .GE. 1.0E-6)G0 TO 20

IFCINPUTCI) .NE.O.OR.LCOP.NE. 1.0R.K0UNT.NE.-3)G0 TO 20

BEGINU-TFCS. J)

IF(NFILEB.GT.6)UR1TECNFILE3,244)BEGINU

I F (NPR I NT . GE . 3 ) UR I TE C NPR I NT, 244) BEG I NU

244 FORMATC-" 8=?,S.S<gc INITIAL UEIGHT MEASURED IN PLATTO AS',F15.1

&S,e:S<S.'/)

20 CONTINUE

4

READ OTHER EXPERIMENTS HERE

3$3£3$3$353S$S£3SS3S$SS3$S$3$533S$S3$$$$S3S$3S3SS35SSSS

IF(Iin".LE.0)GO TO 21

IF (KQUNT.lt. 2) GO TO 21

CHECK FOR END OF UEIGHT LOSS (UT2-UT1) .LT. (ENDSIG^^cROOLED SIGMA)

IF((TF(5, IUT)-TF(4, lUT) )>k*2/(STF(5, IUT)>»ok2+STF(4, IUT)-H<>k2)

8..LT.ENDSIG)NSTCP=1

IF(TF(5, lUT) .LT.-0. I5SE+0S) NSTOP=

1

21 CONTINUE

C

A62
o

oo

o

on SET INITIAL TIME FOR THIS PLATEAU

I F ( KOUNT. LE . 1 ) TPLAT2 ( 1 ) =*TYME ( 5 )

CALCULATE CHI-SQUARE FOR SMALL ARRAYS IF ENOUGH READINGS

TO SEE IF FACTORS ARE AT EQUILIBRIUM

NFLAG=0

DO 48 K=1,NFACTS

AO(K)=0.

SIGAO(K)=l.E-09

DO 48 J=l,2

A(J,K)=0.

SIGA(J,K)=l.E-09

48 CONTINUE

DO 40 K=1,NFACTS

I=KANDUCK)

JJ = INPUT(D+1

IF(NF ILEA. GT.S)LRITE(NF ILEA, IBDNUORDCJJ) ,TF(5,K)

STF ( 5 , K ) , NREADS ( I) , T,'-ME •: 5

)

101 F0RMAT(2.X,A2,2E14.7, 110,F10.0)

RCHI(I)=0.

1F(NCHI.EQ.0)GO TO 47

IF(KOUNT.LE.G)GO TO 47

DO 50 J= 1,5

TZERO ( J ) =TYME C J

) -TYME ( 1

)

TEMP(J)=TF(J,K)

50 STEM?(J)=STF(J,K)

N7EMF=MIM0<NTERM3( I) ,2)

CALL REGRES ( TZERO , TEMP , STEMP, 5 , NTEMP , M. 0 , YF IT, ATO , ATP

8c,SIGATO,SIGATP,R,RriUL,RCHI(I),TEST)

IFCRCHHI) .LT.CHTESTCIDGO TO 47

CALL BSET(NFLAG, I)

IF(NPRINT.GE.3)IJR!TE(NPRINT,610) I, INPUT(I),RCHI(I),CHTEST(I)

IF(NFILEB.Gr.S)l.IRITE(NFILEB,610) I , IMPUTC D , RCH I ( I)

,

CHTESTC I

)

610 FORMATC/' UNSTEADINESS IN FACTOR' , 13, ’ ON INPUT', 13

RCHI MEASURED =',F9.1,' TEST VALUE IS',F9.1

8./' ACTUAL VALUES ARE'/' TIME' , 3X, ' READ ING' , 6X, ' CALC' , 5X, ' S IGMA'

)

DO 810 J=l,5

IF(NF ILE3.GT. 6) UR ITECNFILEB, 820) TZERO (J), TEMP (J),YFIT(J), STEMP (J)

IF(NPRINT.GE.3)URiTE(NPRINT,820)TZERO(J),TEM?(J),YFIT(J),STEMP(J)

020 FORMAT(F6.0,3F10. 1)

810 CONTINUE

47 IF(NPR1NT.GE.3)URITE(NPRINT,44)KCUNT, I, INPUT(I)

&,TF(5,K),STF(5,K),NREADS(I),TYME(5),NELAPS

. 8.,RCHI(I),CHTEST(I)

IF (NF ILE3 . GT. S) UR ITE (NR ILEB, 4^) KOUNT, I , INFUTC I

)

8.,

TF(5,K),STF(5,K),NREADS(I),Tf'MEC5),NELAPS

8.,

RCHI(I),CHTEST(I)

44 FORMAT(I5,2I2,2E14.7,I3,F11.0, I4,2F8. 1)

40 CONTINUE

TELAPS =TVME ( 5

) -START

IF(NSTOP.HE.0)GO TO 65

A63
or)

oooo

oooooono

onooo

ooo

on DO NOT SAVE INFORMATION UHEN FACTORS NOT AT EQUILIBRIUM

IFCNFLAG.EQ.eOGO TO 60

NELAP3=^iELAPS+K0UHT+4

K0UNT=-4

IF (UCHI.EQ.0) KOUNT = 0

REWIND NFILED

UPDATE CHTEST WLUES EVERY =NBAD= UNSTEADY READINGS

NFIX=NELAPS/NBADS

IF(NFIX.LE.KSTGRE)GO TO 575

KSTCRE-KSTCRE+l

UPDATE CHTEST AS 1.25^(LATEST RCHI V-ALUE)

!F(L00P.GT.2)G0 TO 100

IF(NPRINT.GE.3)LJRITE(NPRINT,7a)

IF(NFlLEE.GT.6)WRITE(NFILEB.7e)

70 FORMAT (' NEW VALUES FOR CHTEST IN PLATTO'

8./' FACTOR OLD NEW')

DO 73 K=1,NFACTS

I=KANDU(K)

ITEST=BTEST(NFLAG. !)

IF(1TEST)G0 TO 576

GO TO 73

576 RCH I ( I ) = 1 . 25>i;RCH Id)

IF (NPR I NT . GE . 3) UiR ITE CNPR INT, 74) I , CHTESTC I ) , RCH HI)

1 F (NF I LEB . GT . 6) L'R I TE CNF I LEB . 74) H CHTESTC I ) , RCH I C I

)

74 F0RMATCI7.2F10.3)

CHTESTC I )=RCHI Cl)

78 CONTINUE

CHECK WHETHER ALLOTTED TIME HAS ELAPSED

575 IFCTELAPS.lt. TIMLIM)GO TO 570

RETURN ON ERROR BECAUSE ALL THE TIME HAS GONE

OR BECAUSE CHI VALUES HAVE BEEN UPDATED TWICE AND THERE ARE STILL

NO GOOD DATA POINTS

100 NERR0R=6

IFCNPRINT.GE.3)L'RITECNPRINT,923)NERRDR

900 FCRMATC' NERROR VALUE 0F',I2H IN PLATTO')

I

F

( NF I L EB . GT

.

6 ) WR

I

TE C NF I LEB , 900 ) NERROR

GO TO 65

YES, CURRENT FACTOR LEXELS ARE AT EQUILIBRIUM, WRITE VALUES

ON TEMPORARY SCRATCH FILE =NFILED=

60 IFCKOUNT.LE.OGO TO 570

WRITECNFILED.5O0)TfTiEC5), CTFC5, I) ,STFC5, I) , I = 1,NFACTS)

600 F0RMATC5E15.3)

IS THE EXPERIMENT UNDER CONTROL? CHECK EVERY ' INTVAL' POINTS

A64
no

n

oo

o

C

IF(TELfiPS.GT.Tirf^lM)NSTGP=2

IF (KOUNT. EQ . 250 ) H3T0?=2

IF<NSTGP.N£.0)GO TO 55

KNOD=MOD(KQUNT, INT'/PL)

1F(KNOD.NE.0)GO TO 572

65 TPLPT2<2)=TYri£(5)

DISPLAY E BPL CN DVM SO THAT SUPPRESSION CAN BE CHANGED DURING OVERLAY

LOADING, RATE OF UEIGHT LOSS CAN CHECKED VISUALLY. ETC.

OUT(1)=!0

0UT<2)=X'23'

0UT(3)='K3'

OUT(4)='IP'

OUT(5)='00'

OUT(6)='0 ' DO 615 1=7.13

615 OUT( !.'>=' ' CALL TRAMID(0UT(2) . 19.REPLY(2) . 19.0.

)

IF (NSTOP.EQ.l) KOUHT = KOUNT-1

RETURN

END

t A65
$flSSM

PRECIS PROG

SPORT

STRGT 16

c SUBROUTINE PRECISC IFGO.NPLAT.PRECFF-PRECFB.PRECRF.PRECRB)

C

0 >^<>oMoK^M<>^<>K^foK^KHoK>Mok5to^c>^<>tc>*^N<5^f>K>K5K5K>K>K>tOK)«)Mc>*!>K>K>Mo4ctoMo^oK^K:K>•oK>k>K* C SUBROUTINE TO FIT POLYNOMIfiL TO EXPERIMENTRL RERDINGS

C AND ASSESS UHETHER PRECISION OF EXTRAPOLATED QUANTITIES IS ADEQUATE

C

C NEEDS THE FOLLOUING COmON BLOCKS, FUNCTIONS AND SUBROUTINES;

C COMMON /FACTR/

C COMMON /!0/

C COMMON /PARAMS/

C COMMON /REGRS/

C COMMON /UHEN/

C BSET

C BTEST

C EXTPOL

C REGRES

C RES IDS

C

C COMMON STORAGE IS DEFINED VIA ARRAY =DUMP=

COMMON DUMP (990)

C

C COMMON /FACTR/

C

DIMENSION KANDU(B) , IFUNCT(8) , IFDER(S) . INPUT(S) , SCALE (8)

NRANGE (S) . NREAD3 (8) , MTERMS (8) , CHTEST(B) , PTirE (8)

8.,

PRECF(8),PRECR(3),AT(4)

EQUIVALENCE (NTHC?,DUMP( !7) ) , (KANDUC 1) ,DUMP( 18)

)

&, ( IFUNCTC 1 ) , DUMP (2b) ) , ( IFDERC 1 ) , DUMP (34)

)

E., (1NPUT(1),DUMP(42)) . (SCALE ( 1 ), DUMP (50)

)

t. (NRANGE( 1) ,DUMP(53) ) , (NREADS( 1 ) ,DUrP(66)

)

&, (NTERM3( 1) ,DUM?(74) ) , (CHTE3K 1 ) , DUMP (82)

)

8.,

(PTIME(1),DUMP(90)), (PRECF(1),DUMP(9S))

8., (PRECR( 1 ) . DUMP ( 136) ) , (NFACTS, DUMP ( 1 14)

)

8.,

(NRATES,DUM.R(115)), (TIMLIM.DUMPdlS))

8.,

(NBADS,DUMP( 1 17) ) , ( INTVAL, DUMP ( 1 18)

)

8., (AT(l),DUMiP(llS)) . (TSCALE. DUMP (120))

C

C COMMON /lo/

C

EQUIVALENCE (NTTYI .DUMP ( 123) ), (NTTYO, DUMP ( 124)

)

(NPR1NT,DUMP(125)), (NFILEA,DUMP(126)), (NFILE3.DUMP(127))

8c, (NFILED,DUMP(128)), (NFILEE.DUMP(129))

C

C COMMON /PARAMS/

C

DIMENSION A01(8),A02(8).SIGA01(8),SIGA02(3)

8.,

A1(4,8) ,A2(4,8).3IGA1 (4,8) ,SIGA2(4.8)

8.,

FACT1 (2,8),SIGF1 (2.8),RATE1 (2,8),SIGR1 (2,3)

8c,FACT2(2,8) ,SIGF2(2,3) ,RATE2(2,3),SIGR2(2,8)

8.,

TIMEF(2),TIMEB(2)

A66
non

ooo

oo

n

o

ooo

odd

ooo

ooo

EOUIVfiLENCE (fiOK 1 ) .DUnP(200) ) , (A02( 1) ,DUMP(208)

)

(S IGP.0 1(1), DUn? (2 16) ) , (S IGfi02( 1 ) . DUMP (224)

)

(Aid, 1), DUMP (232)). (A2(l, 1 ), DUMP (264)

)

8.,

(S IGA 1 ( 1 . 1 ) , DUMP (296) ) , (S IGA2 ( 1 , 1 ) , DUMP (328)

)

EQUIVALENCE (FACTl ( 1. 1) ,DUMP(3S0) ) • (SIGFl (1, 1) ,DUMP(3?6)

)

8.,

(RATE 1(1,1), DUMP (392) ) , (S IGR 1 ( 1 , 1 ) , DUMP (403)

)

8.

,

( FACT2 (1,1), DUMP ( 424) ) , ( S I GF2 ( 1 , 1 ) , DUMP ( 440 )

)

8.,

(RATE2(1, 1) .DUM?(456) ), (SIGR2( 1. 1 ), DUMP (472)

)

8.,

(K0UNT1,DUMP(4S8)), (K0UNT2, DUMP (489) ) EQU I VALENCE ( T I MEF ( 1 ) , DUMP ( 593 ) ) , ( T I MEB ( 1 ) , DUMP (502 )

)

8.,

(DAY- DUMP (524)), (HDTIME, DUMP (505))

8.,

(SKIP,DUMP(5aS))

COMMON /PLAT/

EQUIVALENCE (NST0P,DUMP(514)

)

COMMON /REGRS/

DIMENSION M(5),R(5).YFIT(250)

EQUIVALENCE (M( 1) ,DUM?(530) ) , (R( 1) .DUMP (535) ) , (YFITd) .DUMP (540)

)

COMMON /UHEN/

DIMENSION TPLATl (2) ,TPLAT2(2) ,NTYME(3)

EQU I VALENCE (BEGIN, DUMP ( 880 ) ) , (TPLAT 1 ( 1 ) . DUMP ( 68 1 ) )

8.,

(TPLAT2 ( 1 ) , DUMP (833) ) , (NTYME ( 1 ) , DUMP (885) )

DIMENSION PRECFF (8) , PRECFB (3) , PRECRF (8) , PRECRB (8)

DIMENSION TYME (250) , P (250) , SP (250) , PASS ( 16) , NUDRD (2)

DATA NUORD/' YES',' NO'/

DATA NR.NF/' R'.' F'/

IFGO=0

IF(NPRINT.GE.3)URITE(NPRINT,790)NPLAT

790 F0RMAT(/' CHECKS OF PRECISION FOR PLATEAU', 13

IF(NF ILEB . GT. 6) UR ITE (NF ILEB, 793) NPLAT

FIND MIDDLE OF PLATEAUS

TMID1=(TPLAT1(1)+TPLAT1 (2))/2.

TMID2=(TPLAT2(i)+TPLAT2(2))/2.

REWIND NFILED

READ FIRST FACTOR READINGS IN

NFACT2=2>f=NFACTS

DO 10 J=1,K0UNT2

READ(NFILED,bQO)TYME(J), (FASS(I), I=1,NFACT2)

PCJ)-PASS(l)

A67
oo

ono

non

ooo

non

SP(J) -PfiSS(2)

600 F0RMAT(5E15.8)

PUT TIME ORIGIN IN MIDDLE OF PLATEOU

10 TYME(J)=TYME(J)-TMID2

K-1

OUTPUT UEIGHT LOSS IN THIS PLATEAU

UTLOSS=ABS (P (K0UNT2) -P ( 1)

)

RATE =UTLOSS/ ( TYME ( K0UNT2 ) -TYME ( 1)

)

IF (NF ILEB . GT. 6) UR ITE(NF ILEB, 95 1 ) LJTL05S. RATE

IF (NPR INT. GE . 3) UR ITE CNPR INT, S5 1 ) UTL0S3. RATE

951 FORMATC/' UEIGHT LOSS FOR THIS PLATEAU E 1 0 . 3,

MICROVOLTS

UITH AVERAGE RATE OF',E10.3,' MICROVOLTS PER SECOND'/)

GO TO 20

CALCULATE REGRESSION FIT FOR VARIOUS FACTORS

30 REWIND NFILED

DO 35 J=1,K0UNT2

READ (NFILED, 600) DUMMY, (PASS(L) ,L=1,NFACT2)

P(J)=PASS('KK)

' 35 SP(J)=PASS(KK+1)

20 I=KANDU(K)

CALL REGRES ( T'r'ME , P , SP , K0'JNT2 , NTERMS ( I )

,

M, 0 , YF I

T

8., A02 ( I ) , A2 (

1

, I

)

, S I GA02 (I )

,

S I GA2 (

1

. I

)

, R, RMUL, RCH I , FTEST)

CALL RESIDS(TYME,P,SP,YFIT,K0UNT2)

OUTPUT COEFFICIENTS OF REGRESSION FIT TO FACTOR VARIATION

II=NTERMS(I)

IF(NPRINT.LT.3)G0 TO 750

WRITE (NPR INT, 700) I . A02( I) ,SIGAG2( I) IF ( 1 1, GT.0) UR ITE (NPR INT, 702) (A2(JJ, I),3IGA2(JJ, I),JJ=1, II)

700 F0RMAT(/' POLYNOMIAL COEFFICIENTS FOR FACTOR', 12

6./I0X,'COEFF', 10X, 'SIGMA'

fc/(2E15.8))

702 F0RMAT(2E15.8)

UR ITE (NPR I NT, 952) RCH I, FTEST, RMUL

IF(II.GT.0)URITE(NPRINT,953) (IJ,R(IJ), IJ=1, II)

952 FORMAT(/' REDUCED CHI SQUARE=' ,F10.2

8./' FTEST =',E10.2/' RMUL =',E10.2)

953 F0RMAT(' R('.I1,') =',E10.2)

750 1F(NFILEB.LE.6)G0 TO 760

URITE(NF ILEB, 700) I , A02 ( I ) , S IGA02 ( I

)

IF(II.GT.0)URITE(NFILEB,7O2) ( A2 ( JJ, I ) ,SIGA2 ( JJ, I ) , JJ= 1 , 1 1

)

URITE(NF ILEB, 952) RCH I, FTEST, RMUL

IF(II.GT.0)URITE(NF1LEB,953) (IJ,R(1J),IJ = 1, II)

760 CONTINUE

KK=2>«+1

K=K+1

IF(K.LE.NFACTS)GO TO 30

A68
ooo

o

ooo

oooo

non

onon

nnoooo

CHECK E>aRAPOLATION PRECISION FOR ALL FACTORS FOR SECOND PLATEAU

CALCULATE EXTRAPOLATION TIMES

65 TIMEX=(TPLAT2(l)-TPLATl(2))/2.

SET EXTRAPOLATION TIME OF 200 SECONDS FOR CHECKING FIRST PLATEAU IN EXPT.

I.E., ASSUME 400 SECONDS BETUEEN PLATEAUS FOR FIRST PASS THROUGH

IFCNPLAT.EQ. 1)TIMEX=200.

EXTRAPOLATION TIMES ARE SYMMETRICAL

TIMES ( 1 ) =TPLAT1 ( 1

) -TMID 1-TIMEX

TIMEF( 1) =TPLAT! (2J-TMID1+TIMEX

TIMES (2) =TPLAT2(1 ) -TMID2-TIMEX

TI MEF ( 2 ) =TPLAT2 ( 2

) -TM I D2+T I MEX

IF(NPRINT.GE.3)URITE(NPRINT,780) (TIMEB( I) ,TIMEF(D , I = 1 ,2) ,TI[-EX

&,TPLAT1,TPLAT2

780 FORMATC//' EXTRAPOLATION TIMES ABOUT MID POINT OF PLATEAU'

8.,

' FOR POLYNOMIALS'

6./' FIRST PLATEAU =',2F10.0

E./' SECOND PLATEAU ='.2F10.0

8./" REAL TIMES ARE'.F9.0,' SECONDS ON EITHER SIDE OF'

8./2F10.0,' FOR FIRST PLATEAU, AND' ,2F 10 . 0, ' FOR SECOND '/)

IF(NFILEB.GT.6)IJR1TECNFILE3,780) CTIMEBC D ,T1NEF( n , 1 = 1,2) -TIMEX

8.,

TPLAT1,TPLAT2

TEST THE TRENDS IN THE LEIGHT AND FACTORS TO SEE IF PRECISION

IN EXTRAPOLATED VALUES IS ADEQATE

NGOODF=0

NGOODR=0

MERRTE=0

MERFAC=0

OUTPUT HEADING FOR PRECISION LISTINGS

IF(NPRINT.GE.3)URITE(NPRINT,770) ^ IF(NFILEB.GT.6)L'RITE(NFILEB,770)

770 FORMATC//' EXTRAPOLATED VALUES AND SIGMAS BACK AND FORUARD'

8.,

' IN TIME'

. 8./' THEN PRECISIONS, = BACK, FORUARD AND REQUESTED'/)

DO 80 J=1,NFACTS

I=KANDUCJ)

L=IFDER(J)

OBTAIN EXTRAPOLAIED QUANTITIES

CALL EXT?0L(A02CI),A2(1, I),SIGA02(I),SIGA2(1, I)

e..NTERMSCI)

8.,

TIMEFC2),TIME9C2),FACT2C2, 1),SIGF2(2, 1),FACT2(1, I),SIGF2(1,I)

8.,

RATE2(2, I ) , S IGR2 (2, 1 ) ,RATE2( 1 , 1 ) , S IGR2 C 1 , I

)

A69
6., PRECFF ( I ) , PRECFB ( I ) , PRECRF ( I) , PRECRB ( I ) , L, M)

C TEST PRECISION IN RATES

^ IFCL.EQ.0) GO TO 66

C OUTPUT PRECISION IN RATES

^ IF(NFRINT.GE.3)IJRITE(NPRINT,775)NR. I.RATE2C1, I) ,SIGR2(1, I)

a,RATE2<:2, n ,SIGR2(2, I

)

. PRECRB ( I) , PRECRF (I )

,

PRECR ( I)

775 F0RmTCA2, I1,2(2X,2E10.3),3F8.0)

IF(NFILED.GT.6)l.JPITECNF]LE3,775)NR. I , RATE2 (1 . I ) , S IGR2 ( 1 , I)

8.,

RATE2(2, I) ,SIGR2(2, I) ,PRECRB(I) ,PRECRF(n',PRECR(I)

Cc flag which rates are measured adequately

c MERIT=0

IF((PRECRFn)-PRECR(I)) .GT. (-1 .E-01) . AND. CPRECRB ( D-PRECR(I ) )

8.,

GT. (-l.E-01))MERIT=l

IFCMERIT.EQ. DCALL ESETCMERRTE, I)

NGOODR=NGOODR+MERIT

C

c TEST FACTOR LEVELS

C

66 MERIT=0

C

c OUTPUT PRECISION IN FACTORS

C

1F(NPRINT.GE.3)U*RITE(NPRINT,775)NF, I,FACT2(1, I),SIGF2(1, I)

8.,

FACT2 (2, I ) , S IGF2 C2, 1 ) , PRECFB ( I) , PRECFF ( I) , PRECF ( I

)

IF(NFILEB.GT.6)LuRITE(MFILEB,775)NF, I,FACT2(1. n,SIGF2(l. I)

8.,

FACT2 ( 2, I) , S I GF2 ( 2 , I ) , PRECFB ( I ) , PRECFF ( I ) , PRECF ( I

)

C

C FLAG WHICH FACTORS ARE OF ADEQUATE PRECISION

C

IF((PRECFF(I)-PRECF<:i)) .GT. (-1 .E-Ol) .AND. (PRECFB ( I

) -PRECF ( I )

)

8.,

GT. (-l.E-01))MERIT=l

IFCMERIT.EQ. DCALL BSETCMERFAC, I)

NGOODF=hlGOODF+MER IT

80 CONTINUE

C

C ARE ALL MEASUREMENTS OF ADEQUATE PRECISION?

C

C IF SO, JUMP OVER PRECISION RESETTING

C

IF (NGOODF . EQ . NFACTS . AND . NGOODR . EQ . NRATES) RETURN

C

C :F NOT, CONTINUE MEASURING PLATEAU IN PLATTO UNLESS STORAGE

C ARRAY (250 POINTS) OR TIME LIMIT (TIMLIM) HAS BEEN EXCEEDED

C NSTOP IS FLAG, =Q FOR CONTINUE, =1 OR 2 FOR DO NOT GO BACK TO PLATTO

C

IF (NSTOP. HE. 0) GO TO 570

IFGO = 1 RETURN

C

C CHANGE PRECISION SPECIFICATIONS BECAUSE OF FAILING CASES

A70
no

o

o

oo

570 IF(NPRINT.GE.3)U]RITE(NPR1NT. 150)

IF(NFILEB.GT.6)URITE(NFILEB. 150 ) 150 FORMBK//' NELJ PRECISION LEVELS FROM PRECIS'

8./' FACTOR LEVEL RATE HEU?'

)

DO 130 J=1,NFACTS

MERIT=1

MERYT=!

I=KANDU(J)

L=IFDER(J)

IFCBTESTCMERFAC. I))GO TO 910

MERIT=0

PRECF ( I ) = ( (PRECFF ( I ) +PRECFB ( I )

)

/2 . ) .

9

910 IF(L.EO,0)GO TO 135

IFCBTESTCMERRTE, I))GO TO 135

MERYT=0

PRECR (!)=(( FRECRF ( I ) +PRECRB <1 ) ) /2 . ) >« . 9

135 CONTINUE

IF(NPRINT.GE.3)URITECNPRINT, 160) I^PRECFd)

PRECR (I ) , NUORD a-ER IT+1 ) , NUQRD (MERYT+1

)

IF (MF I LEB . GT . 6 ) UR I TE ( NF I LEB , 1 £0 ) I , PRECF ( I ) , PRECR (I ) , NUQRD

(

8.MER I T+ 1 ) , NUORD ( MERYT+ 1

)

160 FORMAT(I7.2F3.3,2X,2(2)<,A4))

130 CONTINUE

RETURN

END

A71
SftSSM

PRIME PROG

$FORT

STRGT 16

C XoMo)oralcH>k>Mo<lc>MoMc<oMototo!otc<oMoMotoWo<>Wo(okJ^DMo>=5o(cK>(^^ c SUBROUTINE PRIME

C

Q X3M'0|<>f<^ioK>K>K5to(o;oK:iK5K>toK>M<5toMoK>K>f»K>foK5tol<>toMoK>to!o|cloMo)oK>K>foK5K5^^

C SUBROUTINE TO PLLOU CHANGES IN INITIAL VALUES OF CONTROL VARIABLES

C NEEDS COMMON BLOCKS:

C COMMON /BIAS/

C COMMON /DERIVE/

C COMMON /FACTR/

C COMMON /lO/

C COMMON /PARAM3/

C COMMON /PLAT/

C COMMON /MIDAST/

C COMMON /REGRES/

C COMMON /UriEN/

C

C AND SUBROUTINE THMCPL

C

C COMMON STORAGE IS DEFINED VIA ARRAY =DUMP=

COMMON DUMPCS00)

C

C COMMON /BIAS/

C

DIMENSION BIASV(8),SIGBV(8)

EQUIVALENCE (B lASVC 1 ) , DUMP ( 1 ) ) , (SIG5VC 1) ,DUMP(9)

)

C

C COMMON /DERIVE/

C

EQUIVALENCE (PRECE, DUMP ( 131)

)

C

C COMMON /FACTR/

C

DIMENSION KANDU(S). IFUNCT(8) , IFDER (8) , INPUT(8) , SCALE (8)

&,NRANGE(S).NREhDS(8) , NTERMS (8) , CHTEST(S) , PTIME (S)

&,PRECF(8),FRECR(S) ,AT(4)

EQUIVALENCE C NTHCP, DUMP ( 17) ) , CKANDU ( ! ) , DUMP ( 13)

)

nFUNCT(l),DUMP(26)), (IFDER ( 1 ) , DUMP (34)

)

8.,

(1NFUT(1),DUMF(42)), (SCPLE(1),DUMP(50))

8.,

(NRANGE(1)..DLIMP(58)), (NREADS C 1 ) . DUMP (66)

)

8.,

(NTERM3(1),DUMP(74)), (CHT£ST(1).DUM?(S2))

(PTIME( 1) ,DUMP(S8) ) > (PRECF( 1 ) . DUMP (98)

)

8.,

(FRECR (1), DUMP ( 106) ). (NFACTS, DUMP (1 14))

8.,

(NRATES.DUMPCllS)), (TIMLIM,DUMP( 116))

&, (NBADS,DUMP( 1 17) ) . ( INTVAL,DUMP ( 1 IS)

)

8., (AT(1), DUMP (119)), (TSCALE, DUMP (130))

C

C COMMON /lo/

C

EQUIVALENCE (NTTYI ,DU^P( 123) ) . ( NTTiD, DUMP ( 124)

)

8., (NPRINT,DUMP( 125) ) , (NF ILEA. DUM-" ( 125) ) . (NFILE3.DUMPC 127)

)

8., (NF1LED,DUMP(128)) . <NF1LEE.DUMP( 129)

)

A72
c

c comoN /niDPiSR/ c

INTEGER>!:2 OUTC20) ,REPLY(20) ,N'JM( 10) , JUNK2C 18)

C

EQUIVALENCE (OUTCl) , DUMP (140) ) , (REPLYCl ), DUMP ( 160) ) , (NUHC 1)

8.,

DUMP ( 180) ) , ( JUNK2C 1 ) ,0UT(3) ) , (NF ILTR, DUMP ( 190) ) C

C COMMON /PARAMS/

C

DIMENSION AOl (8) ,A02(8) .SIGAOl (8) ,SIGA02(B)

R,A1<4,6) ,A2(4,8),SIGA1 (4,8) ,SIGA2(4,8)

8.,

FACT1 (2,8) .SIGFl (2,8) , RATE 1 (2,8) .SIGRl (2,8)

8c,FACT2(2,8) ,SIGF2(2,8) ,RATE2C2,8),SIGR2(2,S)

&,TIMEF(2).TIMEB(2)

EQU I VALENCE ( AO 1 ( 1 ) , DUMP (208 ) ) , ( A02 ( 1 ) , DUMP (203)

)

(SIGA01(1),DUMP(216)), (SIGA02(1),DUMP(224))

&, (Aid, 1), DUMP (232)), (A2(l, I), DUMP (264)) -

8c, (SIGAld, 1),DUMP(2S8)), (3IGA2(1, 1),DUMP(323))

EQUIVALENCE (FACTl ( 1 ,1 ) , DUMP C3S0) ) , (S IGFl ( 1 , 1 ), DUMP (376)

)

8. , ( RATE 1 (1 , 1 ) , DUMP ( 332 ) ) , ( S I GR 1 ( 1 , 1 ) , DUMP ( 483 )

)

&, (FACT2 (1,1), DUM^ ( 424) ) , (3 IGF2 Cl , 1 ) , DUMP (443)

)

8c, (RATE2d, 1), DUMP (455)) , (S IGR2 ( 1 . 1 ). DUMP (472)

)

8.,

(KOUNTl, DUMP (488) ) , (K0UMT2, DUMP (433) ) EQU I VALENCE ( T I MEF ( 1 ) , DUMP ( 5C 3 ) ) , ( T I MEB ( 1 ) , DUMP ( 532 )

)

8c, (DAY, DUMP (504) ) , (HDTIME, DUMP (535) ) 8c, (SKIP, DUMP (536) ) , (RATMIN,DUM? (507) ) , (RA7MAX,DUM? (503) ) 8c, (TJUMP,DUMP(509))

C

C COMMON /PLAT/

C

DIMENSION RCHK8)

EOU 1 VALENCE ( LPLAT, DUMP ( 5 1 0 ) ) , ( NELAPS , DUMP (511))

8c, (NFIR3T,DUMP(512)), (NCHI,DUMP(513)) . (N3T0P, DULP (5 14)

)

8c, (START,DUM?(515) ) , (RCHl ( 1 ) , DUi-p (5 IS)

)

8c, (MOTHER, DUMP (524) ) , (KST0RE,DUMP(525) ) 8c, (ENB3IG,DUMP(526)

)

8.,

(T0IM4,DUMP(527) ) , (FACTIM, DUMP (528) ) , (EQUIL,DUMP(529) ) C

C COMMON /REGRS/

C

DIMENSION M(5),R(5),YFIT(253)

EQU I VALENCE ( M ( 1 ) , DUMP ( 530 ) ) , (R ( 1 ) , DUMP ( 535 ) ) ,

( 'fP 1 T ( 1) , DUMP (540 )

)

C

C COMMON /UHEN/

C

DIMENSION TPLAT1(2),TPLAT2(2),NTYME(3)

EQUIVALENCE (BEG IN, DUMP (SSO) ) , (7PLAT1 ( 1 ), DUMP (881)

)

8c, (TPLAT2 ( 1 ), DUMP (883) ), (NTYLE(l), DUMP (865))

C

C

c

c

c DIMENSION NTITLE(72),FTirC(4)

C

A73
ooo

noo

ono READ AND LRITE TITLE

URITECNTTYO. 1)

1 FORMATC' GIVE TITLE FOR RUN, 2 LINES, 72 CHARS/LINE nAXIMUn')

READ(NTTYI,2)NTITLE

2 F0RMAT(3cA2)

UR I TE ( NTTYC . 2 ) NT ITLE

OPTIONAL READ OF CONTROL PARAMETERS FROM SAVE- FILE

NFILEC=0

URIT£(NTTYO,70)

70 FORMATC' READ PARAMETERS FROM SAVE FILE?'

&/' 0=HO, 1=YES, GIVE IN II FORMAT')

READ(NTTYI,75)J

75 FCRMAT(Il)

IF(J.EQ.0)G0 TO 80

URITE(NTTY0,77)

FORMATC' GIVE FILE NUMEER IN 12 FORMAT'

&/' PROGRAM IJILL THEN PAUSE, GIVE CONTINUE UHEN READY'

&/' FILE UILL EE REL'OUND FIRST')

READ(NTTYI,73)NFILEC

I FORMATC 12)

PAUSE 5

REUIND NFILEC

READCNFILEC,500)NTHCP,TSCALE,S:<IP,'<ANDU, IFUNCT, IFDER, INPUT,SCALE

&,NRANGE

8.,

NREADS, NTERM3, CHTEST, PTIME, PRECF. PRECR, NFACTS, NRATES, TIML IM, NBADS

8.

,

EQU I L , I NT\'AL , ENDS I G . RATM I N , R ATMAX, TJUMP , AT

8. , NTTY I , NTTYO , NFR I NT, HF I LEA . HF I LE5 , NF I LED . NF I LEE

8.,

M.PRECE

URITECNTTYO. 500-) NTHCP,TSCALE, SKIP, KANDU, IFUNCT, IFDER, INPUT, SCALE

8.,

NRANGE

8., NREADS, NTERMS. CHTEST, PTIME, PRECF, PRECR, NFACTS, NRATES, TIML I M, NBADS

8.

,

EQU I L , I NTVPL , ENDS I G , RATM I H . RATMAX, TJUM? , AT

8.

,

NTTY I , NTTYO , NPR I NT, NF I LEA , NF I LEB , NF I LED , NF 1 LEE

&,M,PRECE

OPTIONAL CHANGE OF CONTROL PARAMETERS

80 CONTINUE

URITECNTTYO, 10)

10 FORMATC' DO YOU UANT TO CHANGE ANY CONTROL PARAI^TERS?'

8./' IF NOT, GIVE PARAMETER CF ZERO'

8./' IF SO, ENTER PARAMETER NUMBER, ELEMENT IN PARAMETER ARRAY,'

8./' NEU VALUE IN !3,I3,F7.3 FORMAT'

8./' INTEGER VALUES LULL BE INTEGERISED, GIVE NEU VALUE UITH'

8./' DECIMiAL POINT')

GO TO 60

50 URITECNTTYO, 52)

52 FORMATC' AHIOTHER CHANGE?')

60 READCt!TTYI,52)N,I,VALUE

62 F0RMATC2I3.F7.3)

IFCN.LE.OGG TO 400

1FCN.GT.35)G0 TO 50

A74
oo

oononooo

no

NVALUE = I

F

I X ( VPILUE+S I GN ( 3 . 5 , VALUE ) ) GO TO (100,103.106.104,103,109.110,123,136,135,136,140,153,1608.,

170, 180, 182, 190

8., 192, 193. 194, 196, 197, 198, 199,203.213,220,230,240,250,255,256,303

8..

260)

8..N CHANGE THERnOCOUPLE TYPE

100 URITECNTTYO, 101)

101 FOR'^AK' GIVE THERnOCOUPLE TYPE AGAIN (A3 A LETTER)')

READ(NTTVI, 132)NTHCP

102 FORnAT(Al)

GO TO 50

CHANGE SCALE OF THERflOCOUPLE TO DC VOLTAGE CON'TERSION

103 TSCALE=VALUE

GO TO 50

CHANGE TIME TO SKIP BETLEEN READINGS

106 SKIP=VALUE

GO TO 50

SET UP WHICH EXPERIMENTAL VARIABLES ARE TO BE FACTORS (CHANGED)

104 KANDU(I)=NVALUE

GO TO 50

SET FUNCTION OF RAW READING TO BE USED (VIA FACFUN)

108 IFUNCT(I)=NVALUE

GO TO 53

FACTORS FOR WHICH DERIVATIVES ARE TO BE USED

109 IFDER(I)=NVALUE

CHANGE ANALOG SCANNER INPUTS

110 INPUT(I)=NVhLUE

GO TO 50

CHANGE SCALE VALUES

120 SC ALE( DEVALUE

GO TO 50

CHANGE NRANGE

130 NRANGE ( I) =NVALUE

GO TO 50

CHANGE NUMBER OF DVM READINGS MAKING UP AVERAGE FOR EACH

FACTOR

135 NREADS(I)=NVALUE

GO TO 50

C CHANGE NUMBER OF TERMS IN POLYNOMIAL FIT

136 NTERMS(1)=MIN0(NVALUE,5)

GO TO 50

C CHANGE CHI SQUARE VALUES FOR EQUILIBRIUM IN FACTORS

140 CHTEST(I)=VALUE

GO TO 50

C CHANGE MAX TIME FOR FACTOR TO TAKE TO STEADY DOWN

150 PTIME(I)=VALUE

GO TO 53

C CHANGE MIN PRECISION IN FACTOR READINGS

160 PRECF(I)=VALUE

GO TO 50

C CHANGE MIN PRECISION IN RATES

170 PRECR( DEVALUE

GO TO 50

C CHANGE NUMBER OF FACTORS

A75
180 NFflCTS=NVALUE

GO TO 50

C CHANGE NUMBER OF RATES

182 NRATES=NVALUE

GO TO 50

C CHANGE TIME LIMIT FOR PLATEAU

190 TIhLIM=VALUE

GO TO 50

C CHANGE NUMBER OF BAD POINTS TO ALLOW BEFORE PLATEAU STABILISES

192 NBADS=NVALU£

GO TO 50 .

' C CHANGE EQUILIBRIUM TIME FOR SETTLING DOWN OF NEW FACTOR LEVELS

193 EQLIIL-VALUE

GO TO 50

C NUMBER or READINGS BETWEEN CHECKS FOR ADEQUATE PRECISION

194 INTVAL=NVALUE

GO TO 50 •

. C NUMBER OF POOLED SIGMAS SUCCESSIVE WEIGHT READINGS MUST DIFFER BY

C IF TERMINATION OF EXPERIMENT IS NOT TO OCCUR IN PLATTO

196 ENDSIG=VALUE

GO TO 50

C MINIMUM RATE TO ALLOW BEFORE INCREASING TEMPERATURE BY TJUMP

197 RATMIM=VALUE

GO TO 58

C MAXIMUM RATE TO ALLOW BEFORE DECREASING TEMP BY TJUMP

198 RATMAX=VALUE

GO TO 50

C TEMPERATURE INCREMENT WHEN MIN RATE REACHED

199 TJUMP = VALUE

GO TO 50

C CHANGE IHPUT/OUTPUT UNITS

200 NTTYI=NVALUE

GO TO 50

210 NTTVO=HVALUE

GO TO 50

220 NPRINT-HVALUE

GO TO 50

230 NFILEA=NVALUE

GO TO 50

249 NFILEB=NVALUE

GO TO 50

C CHANGE SAVE UNIT

250 NFILEC--NVALUE

GO TO 50

C CHANGE SCRATCH FILE UNIT

255 NFILED=NVALUE

GO TO 50

C CHANGE OUTPUT FILE FOR ACTIVATION ENERGIES

256 NFILEE=NVALUE

GO TO 50

C CHANGE POLYNOMIAL EXPONENTS

300 M(I)=NVALUE

GO TO 50

C CHANGE PRECISION IN ACTIVATION ENERGY

260 PRECE=VALUE

GO TO 50

A76
ooo

non

ooo

o

on

400 CONTINUE

URITE(NTTYO.500)NTHCP,TSCflLE,SKIP,KPlNDU, IFUNCT, IFDER, INPUT,SCftLE

R,NRfiNGE

8.,

NREflDS, NTERMS, CHTEST, PTIhE, PRECF, PRECR, NFfiCTS, NRflTES, TIML IM, N5PDS

EQU I L , I NTVfiL , ENDS I G , RATT'l I N , RPTmX, TJUMP , PT

8., NTTYI , NTTYO, NPR IN7, NF ILEP, NF ILEB, NF ILED, NF ILEE

&,M,PRECE

URITE(NTTYO,430)

430 FORKPTC' CHPNCE FOR FURTHER CHPNGES? (0=NO, 1 =YES) '

)

REPD(NTTYI,?5)J

IF(J.NE.0)GO TO 83

IF(NPRINT.GE.3)URITE(NPRINT,925)

925 FORIiPTC' T)

IF(NPRINT.GE.3)URITE(NPRINT,2)NTITLE

IF(NF1LEP.GT.6)URITE':NFILEP,2)HTITLE

I F ( NF I LEB . GT . S ) UR I TE C NF I LE3 , 2 ) NTT TLE

IF(NFILEE.GE.6)URITEi:NFILEE,2)NTITLE

GET THERMOCOUPLE COEFFICIENTS

CPLL THMCPL(NTHCP,P.T)

OPTION OF STORING PRIMED VALUES OH SPVE FILE

URITE(NTTYO,450)

450 F0RMA7(' OUTPUT PARAMETERS ON SAVE FILE'

8./' e=HO,l=YES, IN II FORMAT')

READ(NTTYI,75)J

IF (J.EQ.0) GO TO 470

URITE(NTTY0,77)

READ(NTTYI,78)NFILEC

PAUSE 6

REWIND NFILEC

URITE<NFILEC,5G0)NTHCP,TSCALE,SKIP,KANDU, IFUNCT, IFDER, INPUT,SCALE

8.,

NRANGE

8., NREADS, NTERMS, CHTEST, PTIME, PRECF, PRECR, NFACTS, NRATES, TIML IM> NBADS

8.,

EQUIL, IHTVAL,ENDS!G,RATMlN,RATMA>:,TJUrP,AT

8., NTTYI , NTT^TI, NPR INT, NF ILEA, NF ILE3, NF ILED, NF ILEE

8.,

M,PRECE

470 CONTINUE

OUTPUT CURRENT VALUES

1FCNPRINT.lt. 3)G0 TO 455

URITECNPRINT,580)NTHCP,TSCALE,SKIP,KANDU, IFUNCT, IFDER, INPUT,SCALE

8.,

NRANGE

8., NREADS, NTERMS, CHTEST, PTIME, PRECF, PRECR, NFACTS, NRATES, TIML IM, N3ADS

8.

,

EQU I L , I NTVAL , ENDS I G , RATM I N , R ATMAX, TJUMP , AT

e.,NTTYI,NTT^G,HPRINT,NFILEA,NFILEB,NFILED,NFILEE

8i,M, PRECE

500 FORMATC/' PARAMETERS INITIALISED AS FOLLOWS:

8./' NTHCP = ',9X,A1,3X, 'TSCALE =' ,F3.2,3X, 'SKIP = ' ,F5.0

8./' FACTORS ^',817

A77
&/' FACFUN = '.817

&/' DERI VS “ '.817

INPUTS = '.817

SCALES = '.SF7.3

8./" NRANGE = '.817

8./" NREADS = '.817

8./' NTERN3 = '.817

CHI TEST='.GF7.0

8./' PTIMES = '.8F7.1

8./' PRECF = '.SF7.2

8./' PRECR = ’ .SF7.2

8./' NFACTS = '. 13

8..' NRATES = '

. 13

8i.

' TIMLin =' .F5.0

8..' BAD PTS = '. 13

8.,

' EQUIL =',F5.0

e./' CHECKS =',I4

8.,

' END SIG ='.F5.1

8.,

' RSTMIN =',F6. 1

8..

' RATMAX ='.F6. 1

8..

' TJUMP ='-F5.1

8./' TC TO D =',4E14.5

8./' !0 UN!TS = ',7I7

S.y' POLNOn EXP = ', 15.417

8=/' PRECISION IN E ACT =',F7.2)

455 IF(NFILEA.LE.6)G0 TO 4S0

URITE(NFILEA.2)NTITLE

460 IF(NFILEB.LE.6)G0 TO 618

URITE(NFILEB.508)NTHC?,TSCAEE.SKIP.KANDU, IFUNCT, IFDER. INPUT. SCALE

8..

NRANGE

8..

NREADS.NTERnS.CHTEST.PTiriE.PRECF.PRECR.NFACTS.NRATES.TIi-K_IM.NBADS

8. . EQU I L . I KTVAL . ENDS I G . RATM I N . RATI1AX. TJUT;?. AT

8.

.

NTTY I . NTTYO . NFR I NT. NF I LEA . NF I LEB . NF I LED . NF I LEE

8c.M.PRECE

610 CONTINUE

RETURN

END

A78
SPSSM

REGRES PROG

SPORT

STRGT 16

C

c #5MoWo<oMo(o»ofoK3|C3|o|o!C3Mo(o)cjo|oWo!o|o(o(oJcMoK>K»K>K>K>|c4o|o^^ c SUBROUTINE REGRES CX, Y.SIGmY^NPTS-NTERnS.n.MODE, YFIT,aO,R.SIGrPO,

2 SIGMAA.R,RNUL,CHISQR,FTEST)

C

Q **:Mok5k5|oK5toio|oic4ok>toK5'oK5ioMc>K>tO!oMcfoioiofo4oK>fc4o<>ioioK5MoK3(oK3W«^^ c

C NEEDS THE FOLLOUING FUNCTION PiND SUBROUTINE:

C FCTTI

C MATINV

Cc DOUBLE PRECISION fiRRftY,SUn, YMEfiN,SIGm,CHISQ,XMEPiN,SIGr^X

D I MENS ION X ( NPTS ) . V ( NPTS) . S I GM.qY ( NPTS ) , h ( 5 )

.

YF I T C NPTS

)

Ei,SIGMAfi(5),R(5;,A(5)

DI^ENSION UEIGHT(250),XMEfiN(5),SIGM.qX(5),ftRRAY(5,5)

C

c

c

10

20

30

C

Cc

40

50

60

70

60

90

INITIALIZE SUMS AND ARRAYS

SUM=0.

YMEAN=0.

SIGMA=0.

CHISQ=0.

RMUL=0.

DO 10 1=1. NPTS

YFIT(I)=0.

IF (NTERM3.LE.0) GO TO 30

DO 20 J=1.NTERMS

XMEAN(J) =0.

siGi'iAX(j)=a;

R(J)=6.

A(J)=9.

sigmaa«:j)=0.

DO 20 K=l.NTERrS

ARRAY(J.K)=0.

CONTINUE

ACCUMULATE LEIGKTED SUMS

DO 110 1=1. NPTS

IF (MODE) 40.70.80

IF (Y(I)) 60.70.50

UEIGHT(I)=1./YCI)

GO TO 93

LEIGHT(I)=l./(-Y(I))

GO TO 90

UEIGHT(I)=1.

GO TO 90

UE I GHT ( I ) = 1 . /3 1 GMAY (I ) 5«c»^2 •SUM=SUM+LEIGHT(I)

YIEAN = YrEAN+lJE I GHT (I ) >i<Y ( I

)

A79
IF (NTERMS.LE.0) GO TO 110

DO 100 J=l,NTERnS

100 XMEAN(J)=XMEmKJ)+UElGHT(I)5KFCTM(X, I,J,n.NPTS)

110 CONTIMUE

YMEftN=YnEfiN/SUM

IF (NTERM3.LE.0) GO TO 130

DO 123 J=1,NTERMS

120 XMEPlN(J)=XnEfthKJ)/SUri

133 CONTINUE

FNPTS=N?TS

UMEfiN=£UN/FNPT3

DO 143 I=1,NPTS

140 UEIGHT(I)=UEIGHT(I)/L'nEftN

C

C ACCUMULATE MATRICES R AND ARRAY

C

DO 150 I=1,NPTS

S I GMA =S I GMA+UE I GHT C D ( Y ( n -YMEAN ) ^2

IF (NTERM5.LE.0; GO TO 160

DO 150 J=1,NTERMS

SIGMAX(J)=SIGMAX(J)+UElGHT(n>^(FCTN(X. I,J.M.NPTS)-XMEAN(:J))>ici«2

R(J)=R(J)+UEIGHT':I)>k(FCTN(X. I,J>M,NPT3)-XrEAN(J))>i<(Y(I)-YMEAN)

DO 150 K=1,J

ARRAY(J,K)=P.RRAY(J.K)+l!EIGHT(I)>t«(FCTN(X, 1,J,M,NPTS)-XMEAN(J))

2 *(FCTN(X, I,K.M,NPTS)-XMiEANCK))

150 CCNTINUE

160 CONTINUE

FREE1=NPTS-1

SIGMA=DSQRT(SIGMA/FREE1)

IF (NTERM3.LE.0) GO TO 180

DO 170 J=1,NTERMS

SIGMAX(J) =DSQRT(SIGMAX(J) /FREED

R(J)=R(J)/(FREE1>'-SIGMAX(J)^SIGMA)

DO 170 K = DJ

ARRAY(J.K)=ARRAY(J.K)/(FREEl^-SIGMAXtJ)>KSIGMAXCK))

170 ARRAYCK, J)=ARRAY(J.1<)

180 CONTINUE

C

C INVERT SVTIMETRIC MATRIX

C

IF (NTERMS.LE.0) GO TO 203

CALL MATINV (ARRAY. NTERM3,DET)

IF (DET) 200.1S0.20O

190 AO=0.

SIGMAO=0.

RMUL=0.

CHISQR=0.

FTEST=0.

GO TO 330

C

C CALCULATE COEFFICIENTS. FIT, AND CHI SQUARE

C

200 AO=YMEAM

IF (NTERMS.LE.0) GO TO 230

DO’ 220 J = 1.NTERMS

DO 210 K=l.NTERrE

A80
210 ft ( J )

•= A ( J ) +R ( K ) Y ( J , K ) fi(J)*=A(J)>HSIGra/SIGr-!OX(J)

A0'=A0-A(J)5KXMEAN(J)

DO 220 I=1,NPTS

220 YFIT(I)=YFIT(I)+A(J)>»<FCTN(X, I,J,ri,NPTS)

230 CONTINUE

DO 240 I=1,NPTS

YFIT(I)=YFIT(D+AO

240 CH1SQ=CH!SQ+UEIGHTCI)>k(Y( n-YFIT(I))>«=«2

FREEN=NPTS-NTERriS-l

CHISQR=CHISQ>i:UriEAN/FREEN

C

C CALCULATE UNCERTAINTIES

C

IF (MODE) 250.250,250

250 VARNCE = 1./L'MEAN

GO TO 270

260 VARNCE=CHISQR

270 IF (NTERi-lS.LE.e) GO TO 290

DO 280 J=I.NTERMS

SIGMAA(J)=hRRAY(J, J)>f*/ARNCE/(FREE1>KSIGMAX(J)^2)

SIGMAA(J) =SQRT(SIGMAA(J)

)

280 RMUL=RMUL+A(J)>kR(J)>kSIGMAX(J) /SIGMA

FREEJ=NTERMS

FTEST=(RMUL.4^REEJ)/( ( 1 .-RMUD/'-PREEN)

RMUL=SQRTCRMUL)

GO TO 300

293 CONTINUE

FREEJ=0.

FTEST=0.

RMUL=G.

300 SIGMiAO=VARNCE/FNPTS

IF (NTERM3.LE.0) GO TO 320

DO 310 J=1.NTERMS

DO 313 K=1.NTERMS

310 SIGMAO=SIGMAO+VRRNCE=tcXMEAN(J)^XMEAN(K)>f=ARRAY(J,K)/(FREEl>i-'SIGMA

2X(J)5»:S!GMAX(K))

320 SIGMAO=SQRT(SIGMP.O)

330 RETURN

END

f

A81
spissn

RES IDS PROG

$FORT

STRGT 16

C >MoMoK>toMo<oK5*o|o(oK>toK3Mo|o(oK5K>K>toMoK>McioMoK5KJMc1oK*5toMotoM<*5k^^ c SUBROUTINE RESIDS (T,P,SP.Y,N)

c

Q >|ok3MoK5H>K5t;>|ofr>K>!<^;>|c>loK’toK?WoK>K>H>K>K>K>K^^>M(5toMoK>McK>K>Mo4otoK^K>K;k>k>M:'4ok^

C SUBROUTINE TO LIST RESIDUfiLS FROM LEOST SCUfiRES FIT

C

C NEEDS THE FOLLOWING COMMON BLOCK:

C COMMON /lO/

C

c

C COMMON STORAGE DEFINED VIA ARRAY =DUMP=

C

COMMON DUMP (1060)

C

c

C COMMON /lo/

c EOUIVALENCE (NTTYI, DUMP (123) ), (NTTYO. DUMP ( 124)

)

8.,

(NPRINT,DUM?( 125) ) , (NF ILEA, DUMP ( 126) ) . (NFILEB,DUMP( 127) ) 8., (NFILED,DUMP(123))

C

c DIMENSION T(N),P(N),SP(N),Y(N)

IF(NPRINT.GE.3)'JRITE(NPRINT,.10)

IF(NFILEB.GT.6)WR]T£(NFILEB, 10)

10 F0RMAT(//5M> 'TIME*. 13X,'P'> 10X,'YFIT',3X, 'SIGMA P'

8..

4,, 'P-YFIT', IX, ' (P-YFIT)/SIGP',' DELP')

DO 30 I=1,N

TEMP1=P(!)-Y(I)

TEMP2 =TEMP 1 /AMAX 1 ( SP ( I ) , 1 . E- 1 5

)

DEL=0.

IFd.GT. 1)DEL=P(I)-P(I-1)

1F(NPRINT.GE.3)URITE(NPRINT,20)T(I),P(I)

8

.,

Y(I),SP(I),TEMP1,TEMP2,DEL

IF(NFlLEB.GT.6)lJRITE(NFILEB,20)T(I),P(I),Y(I),SP(I),TEMPl,TErP2

&,DEL

20 FORMAT (FIO. 1,2E14.6,4E10.3)

30 CONTINUE

IF(NPRINT.GE.3)WRITE(NPRINT,40)

1F(NFILEB.GT.6)LJRITE(NFILEB,40)

40 FORMAT (//)

RETURN

END

A82
RESPON PROG

SPORT

STRGT 16

C XoMoMo|oKiiototciMoMoMotoK5Mo!oMoioMoMoK*5K3to|oMoK)»oloK>(o(o«o4o«cMoMoM^^ c SUBROUTINE RESPON (FTIME,NERROR)

C

c )fo^5joK>K5!o!<>M3k>K>|:>t<>K5tJ>KM!>t»K>K>iOt«>k5»o!oK>K>W«>t»l<>K5VsMcJo}ok>K3WoioK>^^

C SUBROUTINE TO ESTimTE FfiCTCR RESPONSE FTIMS FOR USE IN C ESTimTING PRECISION OF EXTRAPOLATED VALUE TO HALFUAY IN TIME

C BETUEEN OLD AND NEU LEVELS OF FACTOR

C

C NEEDS THE FOLLOWING COMMON BLOCKS AND SUBROUTINES:

C

C COMMON /BIAS/

C COMMON /FACTR/

C COMMON /IQ/

C COMMON /MIDASR/

C SETPAR

C TRAMID

C UAYT

C

C INITIAL CHOICES FOR FACTOR LEVELS TO DETERMINE RESPONSE TIMES AT

C T - 250 AND 270 DEG.

C P - 400 AND 450 m HG

C N2 - 200 AND 240 SCC/MIN

C 02-50 AND 60 SCC/MIN

C THESE VALUES MAY BE CHANGED BY USER INPUT

C ^

C COMMON STORAGE DEFINED VIA ARRAY =DUMP=

C

COMMON DUMP (908)

C

C COMMON /BIAS/BIASV(8).SIGBV(8)

C

DIMENSION BIASV(8),SIGBV(8)

EQUIVALENCE (B I A3V( 1) , DUMP ( 1 ) ) , (SIGBVC 1) ,DUM? (9)

)

C

C COMMON /FACTR/

C

DIMENSION KAMDU(S) . IFUNCT(8) , IFDERC8) . INPUT(8) ,SCALE(8)

8.,

NRANGE(8),NREADS(8) .NTERMS(8),CHTEST(8),PTirE(8)

8.,

PRECF(8),PRECR(8).AT(4)

EQUIVALENCE CNTHCP.DUMPC 17) ) , (KANDUC 1) ,DUMP( 18)

)

8., ( IFUNCTC 1 ) ,DUMP(26) ) . ( IFDERC 1 ) , DUMPC34)

)

8.,

( INPUTC 1 ) , DUMP (42) ) , ( SCALE (1 ) , DUMP (56 )

)

8.,

(NRANGE(l) .DUMPC5S)), (NREADS(1),DUMPC66))

8. , ( NTERM5 ( 1 ) , DUMP ( 74 ) ) , ( CHTEST ( 1 ) , DUMP ( 82 )

)

8. , (PT I ME ( 1 ) , DUMP ( 90 ) ) . C PRECF (. 1 ) , DUMP ( S3 )

)

8., (PRECR ( 1 ) , DUMP ( 1 06 ) ) , C NF ACTS , DUMP (114))

6.,

(NRATES,DUMP(1 15)), (TIMLIM.DUMPdlS))

8., (NBAD8, LUMPU u ) ) . ( INTVAL,DUMP( 1 18)

)

^ CAY(i).DUMPdl9))

Kp

A83
non

ODD

non

nn

nn

nn

non

EQUIVALENCE (NTTr'I . DUMP (123) ). (NTTYO, DUMP ( 124) ) t, (NPRINT, DUMP (123) ) . (NFILEA,DUMP( 126) ) > (NFILEB,DUMP( 127)

)

8.,

(NFILED,DUMP(128))

COMMON /MIDASR/

INTEGER>k2 out

(

20 ), REPLY (20) ,NUM( 10) , JUNi<2( IS)

EQUIVALENCE (OUTC 1 ) ,DL’MP( 14^) ) . (REPLY( 1) . DUMP ( 160)

)

8.,

(NUM( 1) ,DUM?( 1S9) ) . (JUNK2( 1 ) ,0UT(3) ) . (NFILTR,DUMP( 130) )

DIMENSION LABEL(2,4),FTIM£(4),FVAL(2,4)

8.,

NUHAT(4),CHI(4)

8.,

T(4),TEMP1(2),TEMP2(2)

DATA LABEL/' TEMP',' ','PRES',"S '.'N2 F'.'LOU '

8., '02 F'.'LOU '/

DATA FVAL/250 . , 270 . , 490 . , 450 . , 280 . . 240 . , 50 . , 60 .

/

NERROR=0

MEASURE RESPONSE TIMES TO CHECK CHI TEST VALUES, PTIMES, ETC.?

URITE(NTTYO,7e0)

700 F0RMAT(/' MEASURE FACTOR RESPONSE TIMES? 0=NO, l='i'ES')

READ(NTTYI,20)J

IF(J.EQ.0)RETURN

READ IN FACTOR RESPONSE TI^ES IF SO DESIRED

DO 89 1=1,4

URITE(NTTYC’. 10) (LABEL ( J, I ) , J = 1 .2)

10 F0RMAT(//' READ IN FACTOR RESPONSE TIMES OR MEASURE THEM?'/

a' ENTER 0 FOR READ'/

a' 1 FOR MEASURE'/

a' IN II FORMAT FOR ',2A4,' PARAMETER ')

READ (NTTYI

,

20) NUHAT( I

)

20 FORMAT(Il)

IFCNLIHATCI) .GT.0)GO TO SO

URITE(NTTYO,40) (LABEL(J, I),J=1,2)

40 FORMATi!' FACTOR RESPONSE TI^E FOR ',2A4,' IN F10.3 FORMAT?')

READ (NTTYI, 50) T( I)

50 FORMAT (F7. 3)

CHI(I)=0

80 CONTINUE

OPTIONALLY CHANGE TARGET VALUES

UIRITE(NTTYO,550)

560 FCRMAT(/' TARGET VALUES OF FACTORS IN PESPOH ARE:')

URITE(NTTYC.509) ( ( I, J.FVAL(J, I) , J=l,2) , 1=1,4)

500 F0RMAT(2I7,F16. 1)

565 URITE(NTTY0,510)

A84
ooo

ooo

ooo

510 FORMAT (' DO YOU L'ANT TO CHANGE ANY VALUES?'

8./" IF SO, ENTER:'

8./' FACTOR NUMBER, 1 =T, 2=P, 3=FN2, 4=F02'

8./' 1 OR 2 FOR FIRST OR SECOND VALUE OF A FACTOR'

&/' VALUE ITSELF'

ALL IN (2I3,F13.0)'

r,y, END UITH FACTOR NUMBER OF ZERO (0) ) READ ( NTTY I , 320 ) I , J , FTEMF

520 FORMAT(2I3,F1O.0)

IF(I.EQ.0)GO TO 550

IF(I.GE.1.AND.I.LE.4.AND.J.GE.1.AND.J.LE.2)G0 TO 540

URITE(NTTYO,530)

530 FORMATC/' INCORRECT INPUT, TRY AGAIN')

GO TO 510

540 FVALCJ, I)=FTEMP

GO TO 510

550 URITE (NTTYC,50O) ( ( I, J,FVAL(J, I) , J=l,2) , 1=1,4)

URITE (NTTY0,5S2)

562 FORMATC/' ARE THESE VALUES OK? 0=YES, l=NO CIl FORMAT)')

READ (HTTYI,20)NG0

IF CNGO.NE.O) GO TO 5S5

IF(NF!LEB.GT.6)G0 TO 579

URITE CNF ILEB, 550)

URITECNFILE3,5G0) CCI,J,FVALCJ, I) , J=l,2) , 1=1,4)

570 IF CNPRINT.lt. 3) GO TO 580

URIT£CN?RIHT,550)

URITECNPRINT,589) C C I, J,FVALCJ, I) , J=l,2) , 1=1,4)

580 CONTINUE ^ IFCHF1LE3.GT.6)L'RITECNFILEB, 125)

IFCNPRINT.GE.3)’uiRITECNPRlNT. 125)

125 FORMATC' FACTOR RESPONSE TIMES FOLLOU:'

8/' FACTOR LOU HIGH TIME CHISQ MEASURED? TIMES 8 CHI ' 8, 'VALUES'/)

^EASURE ANY RESPONSE TIMES NOT READ IN •

DO 100 1=1,4

IFCNUHATCI) .LE.O)GO TO 100

START CLOCK

0UTC1)=12

0UTC3)='IT'

OUTC4)='00'

OUT(5)='00'

OUT(6)='O0'

0UT(7)='R ' 0UTC8)=' ' CALL TRAMIDC0UTC2), 13, REPLY, 19,0.)

0UTC1)=33

KK=I+1

FIX TO READ OUTPUT OF FLOU METERS RATHER THAN INPUT TO THEM

’ IF(I.GT.2)KK=I+3

A85
non

ooo

non

on SET FRCTOR AND UR IT TILL IT IS STERDY

DO 85 J=1.2

CRLL SETPRR(FVRL(J, I) , I .HERROR. NTWCF, TO

IF (NERROR . GT. 0) RETURN

NEED GRS FLOU TO MRINTRIN PRESSURE

IF(I. HE. 2)G0 TO 86

CRLL SETPhR (5C0 . , 3 . NERROR, NTHCP .TO

CRLL SETPRPCO. .4,HERROR,NTKCP,TO

86 CRLL UAYT(CHTE3T(r:K;,PTIME(K:<). INPUT(KK) .HRRHGECKK)

&,SCRLE(KK)

8..

TEM? 1 ( J) . TErF2 ( J) . B IflSVCKIO , NRERDS (KK) . NTERMS (KK) . NERROR)

85 CONTINUE

CRLCULRTE CHI SQURRE RND TIME FOR STEADINESS

T( I ) = (TEMP 1 (2) +TErP 1 ( 1) ) /2

.

CH I (I ) = (TEMP2 ( 1 ) H-TErP2 (2) ) /2

.

OUTPUT RESULTS

FTI^E(^=T^)/2.

IF (NERRCR . GT. 8 . PND . NF ILEB . GT, 6) L^ ITE (NF ILEB . S7)

I F ( NERROR . GT . 0 . AND . HPR I NT . GE . 3) UR I TE ( H.PR I NT. 87 ) 87 FORraTC/' CONDITIONS NOT rET FOR FOLLOUING FACTOR')

IF(NFRINT.GE.3)'JRITECNPR!NT. 123) CLAEELCJ, I). J = 1 .2)

8.. (FVP.LCJ. I).J = 1.2).Tn).CHICI).NLJHRT(I).TEMPl.TE''P2

lF(NFILE3.GT.S)lTi:TECNFILE3. ICO (LASELCJ. I).J = 1.2)

8..

(FVAL ( J. I) , J = 1 . 2) . TU ) , CH I ( I ) . NUTiRTC I ) . TErP 1 . TEr.P2

103 CONTINUE

120 FCRMRTC1X.2A4.3F7.8.F7. 1, I5.4F7.0)

RETURN

END

A86
RMlDftS PROG

SPORT

STRGT 16

c SUBROUTINE RMIDfiS (AVE, SD, NRANGE, INPUT, SCALE. NREPD3 . B I ASV. NERROR)

C

C 5^c^c^c^oMo(c!oK^KJK^3^o^o!o^oK:^cfo{cf:>^o^o}o^c>^5M^^oiofo^c*>oK>^^^

C SUBROUTINE TO READ =NREADS= VALUES (nAX=530) CF

C VOLTAGE ON DVM AND CALCULATE AVERAGE (AVE) AND STANDARD

C DEVIATION (SD) CHARACTERISING SAnPLE (Q)

.

C

C AVE AMD SD ARE DEFINED AEO'/E

C NRANGE = RANGE SETTING ON DVH

C SCALE = CONVERSION FACTOR FROn MIDAS READING TO PHYSICAL QUANTITY

C DEPENDS ON DVM RANGE AND ANY CONVERSION IN UNITS.

C HREAD3 = NUMBER CF READINGS TO TAKE IN ASSESSING AVERAGE VALUE

C BIASV = BIAS \/OLTAGE ON VOLTAGE INPUT TO DVM

C NERRROR = ERROR INDICATOR ( = 8 FOR NORMAL CFERATION. = 4 FOR

C INCORRECT DW FUNCTIONING (I.E., 'NO'), = 5 FDR D'VM UILL NOT SET RANGE

C SPECIFIED)

C

C NEEDS THE FOLLOUING COMMON BLOCKS AND SUBROUTINES:

C COMMON /lO/

C COriMON /MIDASR/

C AVSDN

C DEKODE

C TRAM ID C

c

C COMMON STORAGE DEFINED VIA ARRAY =DUMP=

C

COMMON DUMP (900)

C

C COMMON /lo/

C

EQUIWLENCE (NTTYI .DUMP (123) ). (NTTYO.DUrPC 124) )

. &, (NPRINT,DUMP(125)). (NF1LEA.DUM?(126)). (NF ILE3, DUMP ( 127)

)

&,(NFILED. DUMP (123))

C

C COMMON /MIDASR/

C

I NTEGER-!:2 OUT ( 23 ) . REPLY ( 23 ) , NUM ( 1 8 ) , TR I G ( 20

)

EQUIVALENCE (OUT( 1 ). DUMP ( 143)

)

E.. (REPLY(1).DUMP(1S3)). (NUM(1).DUM?(183))

8., (NFILTR. DUMP (190))

C

c

c DIMENSION 0(500)

NTYMER=0

200 NERROR=0

NTIM£=1

AVE=0.

SD=l.E-09

A87
NREftDS-MINO(500,NREADS)

C

C PREPARE TO SET IiVM TO RANGE AND FUNCTION, THEN TRIGGER

C

OUT(1)=20

0UT(2)=X'23'

0UT(3)-'MP'

0UT(4)='3'

0UT(5)=NUM(NFILTR+1)

OUT(G) =NL'ri(NRANGE+l)

0UT(7)-'>f:T'

DO 110 1-8,20

110 GUT(I)=' ' C

C PREPARE TO UNLOAD D'vTI C

TRIG(1>=2C

TRIG(2)=X'23'

TRIG(3)='m'

DO 120 1=4,23

123 TRIG(I)=' ' C

c lee DO 10 I=1,NREADS

cC TRIGGER

C

CALL TRAMIDi:0UT(2),19,REPLY(2), 1,0.)

C

C UNLOAD

C

CALL TRAMID(TRIG(2).19,REPLY(2), 19,9.)

C

C DEKCDE TO GET VOLTAGE

C

CALL DE:<ODE(REPLY(2),Q(I),7,0)

C

C CHECK FOR =NO= ON DVM

C

CALL DEK0DE(REPLY(5),F,1, 1)

IF(F.LT.0. DGO TO 25

C

C RANGE ON DVM NOT LARGE ENOUGH

C

NR=NRANGE

NRANGE-NRANGE+1

IF (NRANGE . GT. 7) NRANGE=?

. IF(NrILEB.GT.£)URlTE(NFILE3.339)NR, NRANGE, INPUT

IFCNPRINT. GE . 3) LR ITECNPR INT, 303) NRANGE, INPUT

300 FORMATC//' S$3 RANGE CHANGE FROM', 13,* TO', 13,' ON INPUT', 13

SS3'//)

NPiTiER=NTYMER+l

IFCNT'itlER.GT.ElGO TO 201

Ga TO 200

C

C DEKODE TO GET RANGE

A88
non

ooo

non

C

25 CftLL DEK0DE(REPLY(6).F. 1.0)

NR=IFIX(F+0.5)

IF(NR.EQ.NRANGE) GO TO 70

NTIME=NTiriE+l

TRY 3 TIMES TO READ MIDAS CORRECTLY

IFCNTIME.LE.3) GO TO 100

NERRCR=5

REPJRH

0 CONTINUE

Q (I ) =0 (I ) ^SCALE-5 1 AS

V

IF (KRANGE . GT. 3) Q C I ) =Q ( I) >k 1 0 . 5toK(KRANGE-3)

10 CONTINUE

FIND AV'ERAGE AND SIGMA OF READINGS

CALL AVSDN(AVE.SD.Q.NREADS)

CHECK TO SEE IF RANGE CAN BE MADE MORE SENSITIVE

IF(NRANGE.EQ.3)G0 TO 30

F*A3S ( (AVE/SCALE) +E I ASV)

FSD=SD/SCALE

B0UND=!53£0.

I F ( NRANGE . GT . 3 ) BOUND =BOUND« 1 0 . i+oK ( NRANGE-3

)

IFCF.GT. (BOUND-5. ^'i--FSD)) GO TO 80

NTYMER=NTYMER+1

IF(NTYMER.GT.2)G0 TO 201

HR=NRANGE

NRANG£=NRANGE-l

IF CNF ILEB . GT. S) LRITECNF ILEB. 309) NR, NRANGE. IN°UT

IF(NPR!NT.GE.3)L'RITECNPRINT,330)NR,NRANGE, INPUT

GO TO 200

201 NERR0R=4

80 RETURN

END

A89
sfissn

RPfiR PROG

SPORT

STRGT 16

c SUBROUTINE RPftRCflVE.SD. INPUT. NRflNGE,SCfiLE.NREfiDS,BlASV,NERROR)

C

0 3toWoK>|ofok>«r>K^f>cK)K^Wt>K'^*>t:*Tto*cloMototcfoK7KMotoio':^HoMo|c*ntC3tot:>K5k>W^

C SUBROUTINE TO READ VALUE FROM MIDAS

C

C AVE «= AVERAGE VALUE OF SAMPLE OF READINGS FROM MIDAS

C SD = STANDARD DEVIATION OF SArPLE (NOT OF AVERAGE)

C INPUT = INPUT NUMBER ON MIDAS ANALOGUE SCANNER

C NRANGE = VOLTAGE RANGE TO USE ON DVM

C SCALE = FACTOR TO CONVERT FROM MIDAS \^LTAGE TO PH^'SICAL QUANTITY

C DEPENDS ON DW RANGE AND ANY CONVERSION IN UNITS

C NREADS = NUM5ER OF READINGS TO TAKE IN BUILDING UP SAMPLE

C BIASV = BIAS VOLTAGE ON VOLTAGE INPUT TO DVM

C NERROR = ERROR INDICATOR, RETURNED FROM SUBROUTINE RMIDAS

C

C NEEDS COMMON /MIDASR.'

C

C NEEDS THE FOLLO'JING SUBROUTINE:

C RMIDAS

C TRAMID

C

C

C COMMON STORAGE DEFINED VIA ARRAY =DUMP=

C

COMMON DUMP (900)

C

• C COMMON /MIDASR/

C

INTEGERX'2 OUT (23) , REPLY ( 23 ), NUM( 10)

EQUIVALENCE (OUT( 1 ) . DUMP ( 143)

)

8.. (REPLY(1).DUMP(16G)). (NUM(1).DUM?(180))

C

c

c NTIME=1

20 NERROR=0

C

C SET ANALOG SCANNER TO SEND SIGNAL TO DVM

C

OUT(I)=10

0UT(2)=X'23'

0UT(3)='K'

0UT(4)=NUM(INPUT+1)

DO 33 I-5.18

30 OUT(I)=' ' CALL TRAMID(0UT(2), 10,REPLY(2).1,0.)

C

C READ MIDAS

C

CALL RMIDAS(AVE.SD. NRANGE. INPUT. SCALE. NREADS. BIASV.NERROR)

IF (NERROR . EQ . 0) RETURN

C

C TRY 3 TIMES TO READ PARArETER

C

NTIME=NTIME+1

IF(NTIME.LE.3)G0 TO 20

RETURN

END

A90
snssM

SETPfiR PROG

SPORT

STRGT 16

c SUBROUTINE SETFRR(PfiR,NPflR,NERROR,NTHCP,TC)

C

C j|ofotoiok>(o(c>!o|otc^cj<>iototoK>MoK5to(o!oK:<c>K>K5fo>oWoK>K>foK>KM<>cioMcK>K>o<4otoK>Wc^

C SUBROUTINE TO SET TEnPERRTURE, PRESSURE OR FLOUS TO VALUE =PP.R C NPAR = 1 FOR TEMPERPTLRE

C 2 FOR PRESSURE

C 3 FOR FLOU ON CHANNEL 1 C 4 FOR FLOU ON CHANNEL 2

C

C NTHCP = THERMOCOUPLE TYPE

C NTHCP =K : T'iPE K THERMOCOUPLE

C NTHCP =E : TYPE E THERMCCGuPLE

C TC = THERMOCOUPLE VOLTAGE IN MICROVOLTS

C NERROR = ERROR INDICPTGR ( = 0 FOR NO ERROR, = 1 FOR URONG

C SPECIFICATION OF THERMOCOUPLE Ti?E I.E., NOT E OR K,

C =2 FOR NFAR OUT OF RANGE 1 TO 4)

C

C NEEDS PART OF COMMON /FACTR/

C COMMON YIO/-

C COMMON /MIDASR/

C AND SUBROUTINES EN’KODE AND TRAM ID

C

c

c"' COMMON STORAGE DEFINED VIA ARRAY =DUMP=

C

COMMON DUMP (900)

C

C COMMON /FACTR/

C

EQUIVALENCE ( TSCALE, DUMP ( 130)

)

C

C COMMON /ic/

C

EQUIVALENCE CNTTYI , DUMP (123) ), (NTTYO,DUr^( 124) ) 8., (NPRINT,DUMP(125)) . (NF ILEA, DUMP ( 126) ), (NFILE3, DUMP ( 12?) ) 8c, (NFILED,DUMP(123))

C

C COMMON /MIDASR/

C

INTEGER:i<2 OUT(20) ,REPLY(20)

8.,NUM(!0)

EQUIVALENCE

&(OUT( i) ,DUMP( 143) ) , (REPLY( 1) ,DUrP( 160)

)

(NUM(1),DU^P(1S0)), (N\/DC,DUrP(19D)

C

C

NERROR=a

OUT(l)=14

0UT(2)=X'23'

DO 30 1=7,20

A91
oono

non

o

onoonoooon

o

noooonnonn

ono

ooo

30 0UT(I)=' ' IF(NPftR.GT.4.riR,NPflR.LT. DGO TO 6B0

GO TO (160, 230, 303, 400). NPAR

SET TEMPERATURE USING DEGREES CELCIUS

100 CONTINUE

0UT(3)='D'

0UT(6)=';'

CONVERT TEMP TO THERMOCOUPLE READING IN MV

IF(NTHCP.NE.’K') GO TO 10

TYPE K THERMOCOUPLE

POLYNOMIAL CALCULATED BY B. DICKENS FOR 25 TO 453 DEGREES CELCIUS

USING VALUES FROM TABLE A7.2.1, NBS MONOGRAPH 125, 1974

RESULTS GOOD TO ABOUT 15 MICROVOLTS

POLYNOMIAL FITTED ABOUT 233.94 TO EQUALISE ERROR AT ENDS

T=PAR-233,94

TC=0.S5iO67SSE+31 + T>K(0.405S5763E-01 + T>k(0.21380738E-05

8. + T«(0.15233454E-07)))

GO TO 40

0 IF(NTHCP.NE.'E') GO TO 20

TYPE E THERMOCOUPLE

POLYNOMIAL CALCULATED BY B. DICKENS FOR 25 TO 450 DEGREES CELCIUS

USING VALUES IN TABLE A5.2.1, NBS MONOGRAPH 125, 1374 .

RESULTS GOOD TO ABOUT 5 MICROVOLTS

POLYNOMIAL FITTED ABOUT 247.67 TO EQUALISE ERRORS AT ENDS

T=PAR-247.67

TC“ 0. 169940 19E-f32 + T>H(0.76160789E-31 + T>K(a.23884472E-04

8. - T>k(0.374S96nE-O7)))

GO TO 40

!0 NERR0R=1

RETURN

}0 CONTINUE

MAKE MAXIMUM FURNACE TEMP = 458 C BECAUSE OF PYREX GLASS ENCLOSURE

NVDC=MIN1 (8500. ,TC:t;TSCALE)

GO TO 503

SET PRESSURE

PRESS = DESIRED PRESSURE IN TORR = MM HG

A92
ono

ooon

J

oooo

noooo

non

200 CONTINUE

PRESS=PAR

0UT(3)='D'

0UT<6)=>'

SCALE PRESSURE TO APPROPRIATE VOLTAGE

HVDC = IFIX(PRESS5X10.)

GO TO 500

SET FLOU RATE 1 OR 2 AS SPECIFIED

BY VALUE OF NPAR(=3 FOR FLOU 1, =4 FOR FLOU 2).

FLOU = DESIRED FLOU RATE IN SCC/MIN

300 CONTINUE

FL0U=PAR

0UT(3)='G'

0UT(6)='

CHANNEL 1 IS FOR N2,mX FLOU 500 SCC/MIN FOR 5000 MVDC

CONVERT FLOU TO VOLTAGE

NVDC=MI N 1 (5000 . 5f<FLGU/50a . , 5000 . ) GO TO 500

403 CONTINUE

FLOU=PAR

0UT(3)='G'

0UT(6)=';'

CHANNEL 2 IS FOR 62, MAX FLOU 200 SCC/MIN FOR 5000 MVDC

CONVERT FLOU TO VOLTAGE

NVDC =MIN 1 (5000 . >s^FLOU/200 5000 . ) SET MIDAS

500 NVDC=MAX0(NVDC,O)

K1=NVDC/1000

K2 = (NVDC-K1>!<1O0O)/10O

K3 = ( NVDC-K 1 >!: 1 000-K2^^ 1 03 ) / 1

0

K4=NVDC-Kl>Kl0O3-K2>t<lO0-K3>Kl0

0UT(4) =NUM(K 1 + 1 ) >tc255+NUri(K2+l

)

0UT(5) =NUM(K3+1 ) ^256+NUM(K4+l

)

CALL TRAMID(0UT(2) . 19.REPLY(2) , 1 ,0.

)

IF (NFILEB.GT.6) UR ITE (NF ILE3, 700) PAR, NPAR, OUT

IF (NPRINT.GE.3) URITE(N;PRINT,703)PAR,NP'AR,0UT

700 FORMAT(' FACSET'/F13. 1, I 10/I6,2X, 1SA2)

RETURN

600 NERR0R=2

RETURN

END

A93
SftSSM

TDEGAB PROG

SPORT

STRGT IS

c FUNCTION TDEGfiB (T.fiT)

C

C}MoM^^otoK'f:>H^>K>Wok>k3)otc>foK>Kito(o|oMoK>toMo<>toJoK5MoMoMo|oMc<ofo>c5to^^

C

C FUNCTION TO CftLCULfiTE TEMPERATURE IN DEGREES ABSOLUTE

C FROM THERMOCOUPLE READING

C

DIMENSION AT(4)

TP=0

DO 10 K=l,4

10 TP=TP+AT(K)>kT^*!<

TDEGA3=TP+273. 15

RETURN

END

A94
$ASSM

THMCPL PROG

SPORT

$TT?GT 16

Q 3MoK5io1<*>K>K>fotc>K>K?MoMc<oK>K>|olo)cfofoK>fclofc5M^.K>Mc4c>K>^^ c SUBROUTINE THMCPL (NTHCP,fiT)

C

C #5^oMoM^;K^lo^c4<>Mok>^oK>K>K>K5^3oK>^5K>K>*o»oK>X>;cH;foK>K^»toK5^oK5K5ic^o^otofc>lotc>!<^ C SUBROUTINE TO PROVIDE COEFFICIENTS FGR CONVERSION OF

C THERMOCOUPLE RERDINGS IN MICROVOLTS TO DEGREES CELCIUS

C

C NEEDS COMMON BLOCK /lO/

C

C COMMON STORRGE DEFINED VIA ARRAY =DUMP=

C

COMMON DUMP (900)

C

C COMMON /lo/

C

EQUIVALENCE (NTTYI ,DUM?( 123) ) , (NTTYO, DUMP( 124)

)

e.,(NPRINT,DUMP(125)), (NFILEA,DUM?(125)), (NFILEB,DUM?(127))

&.(NF!LED, DUMP (128))

C

DIMENSION AT(4)

C

20 IF(IABS(NTHCP-'K').GT.0)GO TO 60

C

C TYPE K THERMOCOUPLEA'ALUES FROM TABLE A7.2.3,NBS MONO. 125

C

40 IF(N?RINT.GE.3)L'RITE (NPR1NT.53)

IF(NFILEB.GT.6)URITE(NFILEB,50)

ftT(l)=2.4383248E-02

AT(2)=9.7830251E-09

AT(3)=3.6275S65E-12

AT(4)=-2,5756432E-i6

50 FORMAT (/50H TYPE K THERMOCGUPLE=NI-CR/HI-AL, EXPRESS IONS GOOD /.

2' TO 400 DEGREES C. (TABLE A7.2.3, . P.3S4, ,NBS MONO . 125, 1974) '

)

GO TO 110

C

C TYPE E THERMOCOUPLE

C

60 IF(IABS(NTHCP-'E') .GT.0)GO TO 90

IF(NPRINT.GE.3)URITE (NPRINT.70)

IF(NFILEB.GT.6)LRITE(NFILE3,70)

70 FORMAT (/50H TYPE E THERMOCOUPLE=N I -CR/CU-N I , EXPRESS IONS GOOD /,

2'FROM -0.05 TO +0.04, 0 TO 430 DEGREES C. (TABLE A5. 2. 3, P.337'/

3 ' NBS MONOGRAPH 125,1974)')

ftT(l)=1.7022525E-02

AT(2) =-2 . 239724BE-07

AT(3)=5.430S3I4E-12

AT(4)=-5.76S9892E-17

GO TO 110

C

C ERROR ROUTE

C

90 URITE(NTTYO. 100)

100 FORMAT (/40H URONG LETTER FOR THERMOCOUPLE, TRY AGAIN)

URITE (NTTYO, 10)

10 FORMAT (/' GI'\'E THERMOCOUPLE TYPE, K OR E')

READ (NTTYI,30) NTHCP

30 FORMAT (Al)

GO TO '20

110 RETURN

END

A95
$ftSSM

TIMER PROG

SPORT

STRGT IS

Q X<5K>K3W«>i<*>{oioMc:MoK)Moio|oK>k>tc^oioMo*ojciotC)McioMo(oMoK?WoKJ|<)|cHc^^ c FUNCTION TIMER (NTYME)

C

C FUNCTION TO GIVE REPL TIME CLOCK READING IN SECONDS

C FROM READING MIDAS CLOCK

C

C NTYME = HOURS, MINUTES, SECONDS

C

C NEEDS COMMON /PARAMS/

C

C REQUIRES THE FOLLOIJING SUBROUTINES:

C DEKODE

C TRAM ID C

COMMON DUMP (930)

EQUIVALENCE (DAY,DUMP(504) ), (HDTIME, DUMP(505)

)

C

DIMENSION NTYME(3)

C

C SET UP COMMAND STREAM FOR MIDAS. THIS HAS TO LOOK LIKE AN INTEGER>t'-2

C HOLLERITH STREAM UITH THE NUMBER OF CHARACTERS IN THE FIRST WORD

C

INTEGER>^<2 T(I0),R(10)

DATA T/12,X'23','IQ'.':;','<=','>?','R '/

DATA NT, NR/9, 9/

C

C CALL MIDAS TO READ TIME, REPLY IS 6 CHARACTERS IN ARRAY R

C

CALL TRAMID(T(2),NT,R(2),NR,6.)

TIMER=0.

C

C GET HOUR DIGITS AND CHANGE THEM INTO SECONDS

C

CALL DEKODE(R(2),F,2,0)

TIMER=F>k3603,

NTYME(1)=IFIX(F)

C

C GET MINUTES

C

CALL DEK0DE(R(3),F, 2.0)

TIMER=TIMER+F>K6a.

NTYME(2)=IFIX(F)

C

C GET SECONDS

C

CALL DEKODE(R(4),F,2.0)

TIMER=TIMER+F

NTYME(3)=IFIX(F)

C

C CHECK IF CLOCK HAS GONE PAST 23:59:59 HRS

C

10 RETURN

END

A96
SASSM

TRfiMID PROG

$FORT

STRGT 16

C *>Mo(c>|oMo(<>|ok*>)OK5|oMoK>K>WotoMo»oMc<oMoic4c>MoK5MoK5K5MoMo!otoK>k>«<>»o^^ c SUBROUTINE TRfiMID(O.NO.R,NR,FS)

C

C j|oMoto(«5f<>K>l<>K>MoK>K>KMoK)inK>»o|oK>tc>Mo»o(n(oK5K>K>tnK>K>tok>lc>KJK5Mo)o^oK5^^

C SUBROUTINE TO CHECK IF MIDfiS IS FREE HND IF SO URITE

C INSTRUCTION ARRAY =0= AND RECEIVE REPLY ARRAY =R=

C MIDAS IS ON UNIT =U=

C LENGTH OF REPLY ARRAY IS =FS=

C 0 AND R ARE HOLLERITH ARRAYS

C

C NEEDS COMMON /lO/ AND SUBROUTINE MIDAS

C

c

C COMMON STORAGE DEFINED VIA ARRAY =DUMP=

C

COMMON DUMP (900)

C

C COMMON /lO/

C

EQUIVALENCE (NTTYO, DUMP ( 124) ) , (NPRINT,DU^P( 125) ) , (NF1LEB,DUM?

&(127))

C

c

INTEGER>K2 0(N0) ,R(NR) ,T(20) ,Q(20)

U=36.

T(l)=4

T<2)=X'23'

T(3)='/ ' DO 10 1=4,20

10 T(I)=' ' C

C CHECK IF MIDAS IS FREE

C

NDONE=0

50 NTIME=0

30 CALL MIDAS(U,T(2),Q(2),0.,S)

IFCS.LT.O. DGO TO 20

NTIME=NTIME+1

IF(NTIME.LT.50O0)GO TO 30

URITE(NTTYO,40)S

IF(NPRINT.GE.3)URITE(NPRINT,40)S

IF(NF1LEB.GT.6)'lJRITE(NFILEB,40)S

40 FORMATC' MIDAS FOUND TO BE BUSY'

8./' STATUS IJGRD IS',F4.0

8./' CRASH ON, TRY CHECKING MIDAS AGAIN')

GO TO 50

C

C MIDAS IS NOT BUSY

C

20 IF (NDONE . EQ . 1 ) RETURN

C

C

c

URITE AND READ MIDAS

CALL MIDAS(U,0,R,FS,S)

ND0NE=1

C

C UAIT TILL TRANSACTION IS COMPLETED

C

GO TO 50

END

A97
SASSM

UAYT PROG

SPORT

STRGT 16

c SUBROUTINE mYT(PCHISQ,PTlME, INPUT. NRPNGE,SCPLE,TiriEST,

fcCH ISQR. B IPSV. NREADS. NTERMS. NERROR)

C

C )|oMok>fo(ok>iOr>toK>l<>K5K'.<ok>K>lo*oMotc)K>loM«5}»K>K>MoK5Wc>K:fyMofoMoMoiotoK>S>K>MC3K:ioK5K^ c

C SUBROUTINE TO WAIT UNTIL READING STEADIES DOUN

C

C PCHISQ = EQUILIBRIUM VALUE FDR PARAMETER CHI-SQUARE

C PTIME = MAXIMUM STEADYING TIME ALLOWED

C INPUT = INPUT NUMBER ON MIDAS ANALOG SCANNER

C NRANGE = INPUT VOLTAGE RANGE ON D^/M

C SCALE = CONVERSION FACTOR FROM MIDAS READING TO PHYSICAL QUANTITY

C DEPENDS ON DVM RANGE AND ANY CONVERSION IN UNITS

C TIMEST = TIME TO EQUILIBRATE AS OBSERVED HERE

C CHISQR = EQUILIBRIUM CHI-30UARE VALUE AS OBSER^/ED HERE

C BIASV = BIAS VOLTAGE ON VOLTAGE INPUT TO DVM

C NREADS = NUMBER OF READINGS TO TAKE IN ASSESSING AVERAGE VALUE

C HTERMS = NUMBER OF TERMS IN POLYNOMIAL

C NERROR = ERROR INDICATOR AS RETURNED FROM SUBROUTINE RPAR

C

C NEEDS THE FOLLOWING COMMON BLOCKS, SUBROUTINES AND FUNCTIONS:

C COMMON /REGR3/

C REGRES

C RPAR

C TIMER

C

C COMMON STORAGE DEFINED VIA ARRAY =DUMP=

C

COMMON DUMP(BQ8)

C

C COMMON /REGRES/

C

DIMENSION M(5).R(5).YFIT(250)

EQUIVALENCECMC 1) ,DUMP(530) ) , (RCl) ,DUMP(535) ) . (YFIT( 1) ,DUM?(540n

C

DIMENSION P(5).SP(5).NTYME(3).TYME(5),A(5)

a,SIGMA(5)

C

C

NERROR=0

BEGIN=TIMER(NTYME)

C

C READ INPUT IN BLOCKS OF 5 READINGS, 5 SECONDS BETW-EEN READINGS

C

30 DO 20 K=l,5

CALL RPAR (P (K) . 6P (K) . INPUT, NRANGE, SCALE, NREADS, B I ASV. NERROR)

IF (NERROR. GT.O) RETURN

TYME(K)=TIMER(NTYME)-BEGIN

C

C UAIT 5 SECONDS BETWEEN READINGSS

A98
o

o

o

o

nn

35 TMU=TIMER(HTYriE)-BEGIN

IF((TNOU-TYME(K)) .LT.5.)G0 TO 35

20 CONTINUE

TIMEST=TYME(5)

DO 40 1=1,5

40 TYMEn)=TYME(I)-TYriE<3)

MODE=0

CALCULATE CHI SQUARE AS A CHECK FOR STEADINESS

CALL REGRES(TYriE,P,SP,5,NTERIiS,ri,mDE,YFlT,A0,A,SIGnA0,SIGm

8.,R,RMUL,CHISQR,FTEST)

IF(CHISQR.GT.PCHISQ.AND.TinEST.LT.PTirE) GO TO 30

EITHER READING IS STEADY OR ELAPSED TIME IS TOO GREAT.

IFCTIhEST.GT.PTIME)NERR0R=3

RETURN

END

A99
SASSM

UTAVER PROG

SPORT

STRGT Id

C 3(OMoWo<*o*ototc>Mot3MC)foWoMo»oWotoMc+3Mo(oto»o4oWoMoMoWoj3Mc^c^^ c SUBROUTINE UTAVER (E. SIGE, NDATA, UTEAVE, S IGUTE)

C

C 3(oc3fDMc^oK>^ClK>H)70^ott!oK>‘co^^fc>K)^o*coK5<TC*^>'Dtaje'!^^o^oK>^oK>K^•>icK C SUBROUTINE TO CALCULATE AVERAGE E (UTEAVE) AND STANDARD DEVIATION (SIGUTE)

C FROM INPUT LIST E AND SIGE CONTAINING =NDATA=VALLES

C ALSO CALCULATE UHUEIGHTED AVERAGE AND S5;i CONFIDENCE RANGES

C

C NEEDS THE FOLLOUING CCNJ1GN BLOCKS AND SUBROUTINES:

C comoN /lO/

C COMMON /REGRS/

C

C NEEDS SUBROUTINES:

C AVSDN

C CHISQ

C REGRES

C

C COrtlON DEFINED BY ARRAY =DUMP = COMMON DUMP (903)

C

c

C CONr.ON /lO/

c EQUIVALENCE (NTTYI . DUMP ( !23) ) , (NTTYO, DUMP ( 124)

)

(NPRINT,DUM?(125)). CNFILEA.DUMP(12d)), (NFILEB,DUMP(127))

(NF ILED, DUMP (128)), CNF ILEE. DUMP (129))

C

C COMMON /REGRS/ - _ . . . C

DIMENSION M(5),R(5)..YFIT(250)

EQUIVALENCE(M(i),DUMP(533)) . (R ( 1) , DUMP(535) )> (YF IT( 1 ), DUMP (543)

)

C

C

DIMENSION E(NDATA).SIGE(NDATA),A(5),SIGA(5)

C

C CALCULATE AVERAGE UNUEIGHTED E

C

UTEAVP=0.

SIGLJTE = 1 .E-09

EAVE=0.

ESIG=l.E-09

• SIGAVE=l.E-33

FREE=0.

CHIUTE=0.

CHIUNU=Q.

IF(NDATA.LE.8)RETURN

IF(NDATA.GT. DGO TO 200

UTEAVE =E(1)

SIGUTE=SIGE(1)

SIGAVE=SIGE(1)

EAVE=E(1)

AlOO
ESIG=SIGE(1)

GO TO 3G0

200 CONTINUE

CALL ftVSDN(EA'v'E,ESIG.E,NDPlTft)

CftLL CHISQ(E,SIGE.CHIUNU,NDATA)

C

C CALCULATE AVERAGE SIGE

C

CALL AVSDN(SIGAVE.SIGSIG.SIGE,NDATA)

C

C CALCULATE WEIGHTED AVERAGE OF E

C

CALL REGRES(E,E,SIGE.NDATA.0,n, 1,YFIT,A0,A,SIGA0,3IGA

&,R,RnUL, CHI LITE. FTEST)

UTEAVE=AO

C

C CALCULATE SIGMA FOR WEIGHTED E AVERAGE

C

SIGWTE=0.

DO 10 I=1,MDATA

10 SIGUTE=SIGLrrE+l./SIGE(I)^2

SIGWTE=SQRT( 1 ./SIGW7E)

FDATA=NDATA

FREE=NDATA-1

ESIG=ESIG/SQRT(FDATA)

C

C CALCULATE 95*^ CONFIDENCE RANGE

C

300 T=1.9S>KSIGWTE

UTEH I =WTEAVE+T

UTELO=WTEAVE-T

T=1.96>!<ESIG

UNUEHI=EAVE+T

UNWELO=EAVE-T

C

C OUTPUT AVERAGES

C

IFCNPRINT.lt. 3) GO TO 100

WRITE (NPRINT.30) LrTEA’'/E,SIGUTE,CHIWTE,SIGAVE,FREE

30 FORMAT C/' WEIGHTED MEAN E IS ',F7.3.' + OR - ',F7.3/

2 ' REDUCED CHISD FOR E CALCULATION IS',F7.3,' (SHOULD BE 1.)'/

3 ' UNWEIGHTED MEAN OF SIGMAS IS ’,F7.3,/

4,' CALCULATED OVER '.F5.0,' DEGREES OF FREEDOM')

C

C OUTPUT CONFIDENCE LIMITS

C

WRITE (NPRINT.43) WTELO.UTEHI

40 FORMAT (/' ASSUMING ALL POSSIBLE SAMPLE MEANS ARE NORMALLY'/

2 ' DISTRIBUTED, TRUE WEIGHTED MEAN LIES WITHIN RANGE' , F7 . 3, ' TO',

3 F7.3/' FOR 95);: CONFIDENCE LEVEL')

WRITE (NPRINT,50) EAVE, ES IG, UNWELO, UNWEHI ,CH lUNW

50 FORMAT (/' UNWEIGHTED ESTIMATE OF E AND UNBIASED ESTIMATE CF*/

2 ' SIG E ARE',F7.3.' AND'.F7.3,' WHICH GIVES CONFIDENCE RANGE'/

3 ' 0F',F7.3,' T0',F7.3

8./' CHI-SQUARE FOR UNI.EIGHTED E IS',F7.2)

100 IF(NFILEB.LE.6)RETURN

WR I TE < NF I LEB , 30 ) WTEAW, S I GWTE , CH I WTE , S I GAVE , FR EE

URITE(NrILE5,40)WTELO.WTEHI

URITE(NFILEB,50) EAVE , ES I G , UNWELO , UNWEH I , CH I UNW

RETURN

END

AlOl
File LOTGRN, which automatically assigns all files needed to

assemble the TGRUNF overlays and drives the LIBLDR program to make

the overlays. To reassemble the program, type DO LOTGRN, DO.

ei 0

flC TGMAIN.IDO

AC TGRUNB,6D0

AC OVERLB. ?D3

AC TIMEB.8D3

AC TRAMIB.5D3

AC DEKOD8.AD0

AC MIDAS, BD0

AC REGR£B,CD0

AC FCTN3.DD0

AC MATINS, ED3

AC FORLIB,FL'0

AC TGRNL5,5?0

AS 362

RUN LIBLDR, DO

CL

AC TGSETU.1D0

AC INITB,6D3

AC PRIMEB,7D0

AC THMCPB.8D0

AC DESYNB,9D0

ST

AC RESPOB,GD0

AC UAYTB,7D3

AC SETPh3,3D0

AC RPARB,SD0

AC RMIDAB,AD3

AC AVSDNB,BD0

AC ENK0DB,CD3

ST

AC BIASV3,6D0

AC SETPAB.7D0

AC EN!C0DB,SD3

AC RPARB,9D0

AC RMIDAB.AD0

AC AVSDNB,BD0

AC LJAYTB,CD8

ST

CL

AC TGPLAT. !D0

ftC PLATTB,6D0

ftC FACFUB,7D0

AC RPARB,SD0

fiC RMIDA3,9D0

AC AVSDNB,AD0

ST

CL

AC TGFACT. 1D0

AC FACSEB,6D3

AC SETPAB,7D0

AC ENf<ODB,8D0

AC BAKEB,9D0

ST

CL

AC TGPREC.1D0

AC PRECIB,6D0

AC EXTPOB.7D0

AC RESIDB.8D0

ST

CL

AC TGSTAT. IDO

AC ACTI'/3.6D0

AC UTAVEB,7D0

AC AVSDNB,SD3

AC CHISO3,9u0

AC TDEGBB,AD0

ST ^ CL

ZU

TR

A102
File TGRNL5 , which is assigned by LOTGRN during assembly of the

TGRUNF overlays. This file contains the appropriate responses to the

LIBLDR program.

OUT I TGRUN

B1 3576

BC BE 10

LO 6

LI 7

LI 8

LI 9

LI A

LI B

LI C

LI D LI E

RU F

ED F

MAP

MAP 3

XOUT

IF 1 END

OUT 1 OSETUl

OV

LI 6

LI 7

LI 8

LI 9

RU F

ED F

MAP

MAP 3

XOUT

END

OUT 1 0SETU2

OV

LI 6

LI 7

LI 8

LI 9

LI A

LI B

LI C

RU F

ED F

MAP

MAP 3

XOUT

END

OUT 1 0SETU3

OV

LI 6

LI 7

LI 8

LI 9

LI A

LI B

LI C

RU F ED F

MAP

MAP 3

XOUT

UF 1 END

OUT 1 OPLATT

OV

LI 6

LI 7

LI 8

LI 9

LI A

RU F. ED F

MAP

MAP 3

XOUT

UF 1 END

OUT 1 OFACTS

OV

LI 6

LI 7

LI 8

LI 9

RU F

ED F

MAP

MAP 3

XOUT

UF 1 END

OUT 1 OPRECS

OV

LI 6

LI 7

LI 8

RU F

ED F

MAP

MAP 3

XOUT

UF 1 END

OUT 1 OSTATS

OV

LI 6

LI 7

LI 8

LI 9

LI A

RU F

ED F

mp

MAP 3

XOUT

UF 1 END

A103
Memory map of the base segment, TGMAIN, of the TGRUNF program

REL PROGS:

357b TGRUN 5202 OVERLY 5400 TIMER 5574 TRAMID

5313 DEKODE 5DD6 REGRES 739E FCTM 7426 MATINV

7C24 IFETCH 7C36 .D 7Ch4 .COMEX 7E72 DLOG

81E2 DEXP 83BA DSQRT 05DC 57 861

A

S3

6652 DAINT 0716 0H 8730 01 873E 03

6760 CD LD 077A .G 8790 0F 0396 0L

88C6 0K 80F6 011 8092 02 GAA0 0D

8EBA 0T 8E:E2 0E 0C0O 00 0C22 QN

8C7C 0U eC94 0V 8CB4 0P 0LE4 03

8CF4 .DARG 8DZ6 .DSIJAP 0D92 .DRTN 0DBA ,R

8DF6 .A 8E9C SORT 8Fh4 ALOG 3032 EXP

91B3 AINT 9230 IFIX 9236 IF 1X2 9254 .Y2

92D4 ABS 92EA .U 9333 .COMP 9364 56

93AE .RARG 93DA SS 9404 .5 940C .ZERO

9414 .H 9466 .3 943C .P 951E .0

95CE .0 9616 .MES 963C .U 96BC .V

96CA 0R 96F0 0Z 9716 OH A960

ABS PROGS:

NONE

ENTRY-POINTS:

5226 OVERLY 5424 TIMER 5593 TRAMID 533C DEKODE

5B36 RELESE 5BCA MIDAS 5DFA REGRES 73C2 FCTN

744A MATINV rC26 IFETCH 7C93 .D r'CAo .COMEX

7E74 DLOG 01E4 DEXP 33BC DSDRT 35BE S7

861C $3 8654 DAINT 3718 0A 8732 01

8740 03 6762 A CD to 87tC .G 8792 0F

6893 0L 88C3 0K 88F8 0M 8A94 02

8AA2 0D ecBc 0T SEE4 0E 8C03 00

6C24 0N 8C7E 0IJ SC9b 0V 8CE5 0P

6CE6 0B SCF6 .DARG SD33 . DSUhP 8D94 ;DRTN

8DBC .R 8DF3 .A 8E9E SORT, 8FA5 ALOG

9BB4 EXP 91BA AINT 9232 IFIX 9233 IF 1X2

9256 .Y2 92D6 ABS 92EC .U 933A .COMP

9366 S6 93E0 .RARG 9SDC 53 9403 .5

9410 .ZERO 9416 .H 9468 .S 949

E

.P

9520 .0 95L0 .0 9613 • MES 969A .U

96C2 »V 96CC 0R 96F2 0Z 3764 0H

COMMON-BLOCKS:

FIEE //

UNDEFINED:

INIT

FACSET

IJTAVER

PRIME

PLATTO

SETPAR

DESYNE

PRECIS

RESPON

PLATCO

BIASVL

EXTPOL

BAKE IT

ACTIVE

A104
Memory map for the initialization overlay, part 1 of TGSETU.

REL PROGS:

3576 TGRUN 5202 OVERLY 5400 TIMER 5574 TRAMID

5818 DEKODc 5DD6 REGRES 739E FCTN 7426 MATINV

7C24 IFETCH 7096 .D 7CA4 .COMEX 7E72 DLOG

81E2 DEXP 03BA DGQRT S5BC $7 861A $9

8652 DRINT 8716 0H 8730 01 873E 03

8760 DOBS 877A .G 8730 0F 8396 0L

68C6 0K 88F6 on 8092 02 SOAO 0D

8BBA 0T BBE2 0E 8006 00 ' 8022 0N

8C7C §U 8094 0V 8CB4 0P 80E4 00

8CF4 .DARG 8D36 .DSIJAP 8D92 .DRTN 8DBA .R

8DF6 .A 8E90 SORT 8FA4 ALOG 90B2 EXP

91B3 AIHT 9230 IFIX 9236 IF 1X2 9254 . Y2

92D4 AB3 92EA .U 9333 .OOMP 9364 $6

93AE .RARG 93DA $3 9404 .5 9400 .ZERO

9414 .H 9466 .S 9490 .

P

951E .0

95CE .0 9616 .MES 9630 .U 96B0 .V

96CA 0R 96F0 0Z 9716 0H AAC3 IN IT

AE3A PRIME 0362 THMOPL 07 IE DESYNE D404 MIN3

D4CA MIN02 D4E0 .

1

D4F2 $1 D50A $22

D53E lABS D544 IABS2 D57E SIGN D5BC .RRARG

D5FA

ftBS PROGS:

NONE

-

ENTRY-POINTS:

5226 OVERLY 5424 TIMER 5593 TRAM ID '5330 DEKODE

5836 RELESE 5ECA MIDAS 5DFA- REGRES • 7302 FCTN

744A MATINV 7026 IFETCH 7093 .D 7006 .COM£X

7E74 DLOG 81E4 DEXP 83BC DSQRT S5BE $7

8610 $3 8654 DAI NT 8718 0A 8732 01

8740 03 8762' DABS 87 (" L . G 8792 0F

8833 0L 8803 0I< S3F8 0M 8094 02

8AA2 0D 8BBC 0T SBE4 0E 8003 00

8024 011 SC7E OtJ 8096 0V 8CE6 0P

80E6 0B 80F6 .DARG 3D33 .D3UAP 8D94 . DRTN

8DB0 .R 8DF8 .A 8E9E SORT SFA6 ALOG

90B4 EXP 91BA niNT 9232 IrIX 9233 IFIX2

9256 .Y2 92DS AB:S 92EC .U 933A .COM?

9366 $6 93E0 .RARG 93DC $3 , 9403 .5

9410 .ZERO 9416 .H 9463 .S 949E • P

9520 .0 95D0 .0 9613 .MES 969A .0

9602 .V 9600 0R 96F2 02 9764 0H

AAEO IN IT AE5E PRIME 0336 THMOPL 0742 DESYNE

D406 MIND D4C0 M1N02 D4E2 i 1 D4F4 $1

D50O $22

D5BE .RRARG

D540 lABS D546 IABS2 D580 SIGN

COMMON-BLOOKS . FIEE // •

RESPON BIASVL BAKE IT FAOSET PLATTO PRl PLATCO EXTPOL AOTIVE UTAVER SETPAR

A105
Memory map for the factor-response determining overlay, part 2 of TGSETU.

REL PROGS:

3576 TGRUN 5202 OV’ERLY 5400 TIMER 5574 TR8MID

5318 DEKODE 5hD4 REGRES 7 j9E FCTN 7425 M8T1NV

7C24 I FETCH 7C96 .D 7C84 .COMEX 7E72 DLOG

81E2 DEXP F:-TE8 DSORT S5DC 5? 8518 59

8652 DO I NT 8716 08 8730 01 873E OS

8760 D8BS 3778 .G 3790 OF 8396 GL

88C6 0K 3SF6 OM 8892 02 8880 GD

8BBA 0T SEE2 OE 8C06 00 8C22 GN

8C7C OU eC94 OV SC^4 OP . 6CE4 03

8CF4 .D8RG SI'36 . DSL'8P 3D92 • DRTN 8i;E8 . R

8DF6 .8 3E3C SORT 3784 8L0G 9032 EXP

91E3 8 1 NT 9230 IFIX 9235 IFIX2 9254 ^Y2

92D4 8SS 92E8 .IJ 9333 . COMP 9354 55

93ftE .R8RG 93D8 9J04 .5 940C .ZERO

9414 .H 9466 o

• O 949C .P 951E .Q

95CE .0 9516 .riES 953C .U 96BC .V

96CA OR 96F0 PZ 9715 OH 88C3 FESPCN

8812 U8YT ECE4 SETP8R C25C t vl Pll V C42E RMID8S

D322 8VSDN D488 ENKODE D62C riIN32 D642 M8X0

D643 M8X02 T65E . 1 DSrO MINI D676 MIN12

D68C .4 D68E 51 D6C6 522 D6F8 S3

D726 FL08T D72C FL08T2 D764

ftBS PROGS:

NONE

ENTRY-POINTS:

5226 OVERLY 5424 TIMER 5593 TR8MID 5330 DEKODi

5B35 RELESE 5BC8 MI DOS 5DF8 REGRES 7302 FOTN

7448 M8TINV 7C26 IFETCH 7093 .D 7085 . come: 7E74 DLOG 31E4 DEXP 8330 DSQRT 85EE S7

861C S9 8554 I'hINT 8713 08 8732 01

8740 OS 3762 D8SS 3770 • Is 8792 OF

8393 OL 83C3 OK S3F3 OM 8834 02

8882 0D SBBC OT 88E4 0E 3003 @0

8024 ON SC7E OU oOyij OV SCEd GP

8CE6 OB SCF6 . D8RG SD33 . D3L'8P 8D94 .DRTN

8DBC .R SDF3 .8 8E9E SORT SF85 8L0G

90G4 ai 9IE8 8 1 NT 9232 IFIX 9233 IFIX2

9256 • Y2 92D6 883 92E0 .IJ 9338 .COM?

9366 S5 9380 .R8RG 931'0 S3 9403 .5

9410 .ZERO 9416 .H 9453 .S 949E .P

9520 .0 95D0 .0 9518 .MES 9698 .U

96C2 .V S6CC OR 96F2 02 9764 GH

88EC RESPON ETi,jb L'8YT • BD03 SETP8R 0290 RP8R

C452 RNID8S D34S 8V3DN D40E ENKODE D52E MIN02

D644 M8X0 D648 M8X02 D650 . 1 D672 MINI

1)678 MIN12 DGSE .4 D6B0 SI DbCa $22

D6FC S3 D723 FL08T D72E FL08T2

COmON-ELOCKS:

FIEE //

UNDEFINED:

BI8SVL B8KEIT F8CSET PL8TT0 PRECIS^ PL8TC0

EXTPOL 8CTIVE UT8VER

A106
Memory map for TGSETU, part 3, which determines bias voltages.

REL PROGS:

3576 TGRUN

5818 DEKODE

7C24 I FETCH

81E2 DEXP

8652 DAINT

8760 DABS

83C6 0l< 8B3A @T

8C7C 0U

8CF4 .DARG

8DF6 .A

9IB3 AINT

92D4 ABS

93AE .RARG

9414 .H

95CE .0

96CA 0R

8844 SETPAR

D004 AVSDN

D47A mX02

D4BE .4

D553 FLOAT

5202 0\'ERLY

5DD6 REGRES

7C3S .D

83BA DSQRT

8716 0A

S77A .G

S8F6 0M

SBE2 0E

SC94 0V

3D36 . DSUA?

3E3C SORT

9230 IFIX

92EA .U

93DA S3

9455 .S

3616 .MES

S6F0 02

EDCC ENKODE

DISC UA"(T

D430 . 1 D4E0 SI

D55E FL0AT2

5400 TIMER

733E FCTN

7CA4 .COMEX

S53C S7

3730 01

37S0 0F

8A32 02

8uUt> 00

8C34 0P

8DS2 .DRTN

oFA4 ALCG

3235 IF 1X2

3333 .COM?

3434 .5

94SC .P

S68C '.U 3716 0H

EF4E RPAR

D45E MIH02

D4A2 MINI

D4F3 S22

D536

5574 TRAMID

7425 MATINV

7E72 DLOG

361 A S3

S73E 0S

8335 0L

SAA3 0D

8C22 0N

8CE4 03

8DBA .R

3032 EXP

3254 .Y2

3354 S5

343C .ZERO

35 IE .Q

9SBC .V

AAC8 BIASVL

Clia RMIDAS

D474 MAX0

D4A3 MIN 12

DdZC $3

ABS PROGS:

NONE

ENTRY-POINTS:

5226 OVERLY 5424 TIMER

5B86 RELESE 53CA MIDAS

744A MATINV 7C2S IFETCH

7E74 DLOG 81E4 DEXP

861C S3 £654 DAINT

8740 0S 8752 DABS

8898 0L 83CS 0K

8AA2 0D SBBC 0T

8C24 0H 8C7E 0U

8CE6 0B SCF6 .DARG

8DBC .R 8DF8 .A

90B4 EXP 31BA AINT

9256 .Y2 92DS ABS

9366 S6 93B0 . RARG

9410 .ZERO 9416 .H

9520 .0 95D0 .0

96C2 .V 96CC 0R

AAEC BIASVL 8363 SEpAR

C134 RMIDAS D023 A v'SDN D476 MAXO D47C MAX02

D4AA MIN12 D4C0 .4

D52E $3 D55A FLOAT

5553 TRAMID 533C DEKODE

5DFA REGRES 73C2 FCTN

7CS8 .D 7CA5 . CCMEX

833C D3CRT ScSE. S7

8713 @A 8732- 01

877C .G 3792 0F

8SFS 0M 8A94 02

8BE4 0E 8C08 00

8C9S 0V SCB6 0P

8D33 . DSL'A? 8D34 .DRTN

8ESE SORT SFA6 ALOG

9232 IFIX 3233 IFIX2

92EC .IJ 333A .COM?

93DC S3 S4S3 .5

9453 .S 949E .P

9613 .MES 959A .U

35F2 0Z 9764 0H

EDF0 ENKODE EF72 RPAR

DIED L'AYT ' D4o3 MIN02

D432 . 1 D4A4 MINI

D4E2 SI D4FA S22

D560 FLCAT2

COMMON-BLOCKS:

FIEE //

UNDEFINED:

BAKE IT FACSET PLATTO PRECIS PLATCO EXTPOL

ACTIVE UTAVER

A107
Memory map for TGPLAT, the data collection overlay.

REL PROGS:

3576 TGRL'N 5^32 OVERLY 5430 TIMER 5574 TRAMID

5318 DEKODE '5DD5 REGRES 739E FCTN 7426 MATIUV

7C24 IFETCH 7C96 .D 7CA4 .COMEX 7E72 DLOG

81E2 DEXP S33A D3QRT S5BC S7 o 6

1

A S3

8652 DAINT 8716 0A S730 01 873E 0S

8760 DABS 877A .G 8790 0F 8S96 0L

88C6 QK S3F6 0M SA92 02 8AA0 0D

8BBA 0T - 8EE2 0E 3C06 00 8C22 0N

8C7C 0U SC94 0V SC34 0P 8CE4 03

8CF4 .DARG 8D36 . DSIJA? cD92 .DRTN PI'BA .R 8DF6 .A SE9C SORT SFA4 A LOG 9032 EXP

91B3 AINT 9230 IFIX 9236 IF 1X2 9254 .Y2

92D4 ABS 92EA .U 9333 .coriP 9354 SS

93AE .RARG 93DA S3 9404 .5 943C .ZERO

9414 .H 9466 .S 949C .P S51E .0

95CE .0 9616 .riES SSSC .U 96BC .V

96CA 0R 96F0 02 9716 QH AAC3 PLATTO

C3B8 FACFUN C^F6 RPAR C6E3 RMIDAS D5AC AVSDN

D734 BTEST D752 BSET D7S3 .BITPS D7E4 MIN3

D7EA MINB2 DSO0 . 1 D312 SI D32A $22

D85E FLOAT DoS4 FL0AT2 L-'o^^C MOD DSA2 M0D2

D8D0 . IIARG D90A .M D93E

ABS PROGS:

NONE

ENTRY-POINTS:

5226 OVERLY 5424 TIMER 5593 TRAMID 533C DEKODE

5B86 RELESE 5ECA MIDAS 5DFA REGRES 73C2 FCTN

744A MATINV 7C25 IFETCH 7C93. .D 7CA5 .CCMEX

7E74 DLOG 81E4 DEXP 333C DSQRT 853E S7

861C S9 3654 DAINT 8713 0A 8732 01

8740 0S 8762 DABS 877C .G 3792 0F

8893 0L 8SC3 0K 83^3 0M 8A94 02

8AA2 0D 83BC 0T 83E4 0E SCB3 00

8C24 0N 8C7E 0U 3C96 0V 3CS6 0P

8CE6 0B SCF6 . DARG SD33 .DSL'AP 3D94 .DRTN

8DBC • R 8DF8 .A SE9E SORT Sh A5 ALCG

90B4 UJ 91BA AINT 9232 IFIX 9238 IFIX2

9256 .Y2 92D6 ABS 92EC M 933A .COMP

9366 SS 93B0 .RARG 93DC S3 9408 .5

9410 .ZERO 9416 .H 9458 .S 949E .P

9520 .Q 95D0 .0 9613 .MES 959A .U

96C2 .V 96CC 0R 96F2 02 9764 0H

AAEC PLATTO ADE2 PLATCO C3D4 FACFUN C51A RPAR

C6DC RMIDAS D5D0 AVSDN D735 BTEST D754 BSET

D78A .BITPS D7E6 MIN0 D7EC MIN32 DS02 . 1 DBM $1 D82C $22 D8b0 FLOAT D866 FL0AT2

D89E MOD D8A4 M0D2 D8D2 .IIARG D90C .M

COmON-BLOCKS:

FIEE //

UNDEFINED:

- BAKE IT FACSET PRECIS EXTPOL ACTIVE UTAVER

A108
Memory map for TGFACT, the factor setting overlay.

REL PROGS:

3576 TGRUN 5202 OVERLY 5400 TIMER 5574 TRAMID

5818 DEKODE 5DD6 REGRES 733E FCTN 7^-26 MATINV

7C24 IFETCH 7C96 .D 7CA4 .COMEX 7E72 DLCG

81E2 DEXP 83BA DSQRT 85BC S7 S51A $9

8652 DA I NT 0716 0A 8730 01 873E 0S

8760 DABS 877A .G 3790 QF 8396 0L

88C6 0K S8F6 0M SAS2 02. SAA3 9D

8B3A @T SBE2 0E 8C06 00 SC22 QN

SC7C 0U 8C94 0V SCB4 GP SCE4 03

8CF4 .DARG 8D36 .D3UAP 8D92 .DRTN cDSA . R

8DF6 .A 8E9C SORT 8FA4 ALOG 9032

91B3 AINT 9230 IFIX 9236 IF 1X2 9254 .Y2

921)4 ABS 92EA .U 9333 .COMP 9354 S5

93flE .RARG 93DA S3 9404 .5 942C .ZERO

9414 .H 9466 .S 949C •.? S5IE .Q

95CE .0 9616 .MES 96SC .U S53C .V

96CA @R 96F0 0Z 9716 0H A.AC8 FACSET

B01C SETPAR B5A4 ENKODE

' B726 EAKEIT C224 l'.AX3 C22A MAX32 C240 . 1 C252 MINI C253 MIN12

C26E .4 C290 $1 C2A3 S22 C2DC S3

C303

ftBS PROGS:

NONE

ENTRY-POINTS:

5226 OVERLY 5424 TIMER 5593 TRAMID 533C DEKODE

5886 RELESE 5BCA MIDAS 5DFA REGRES 73C2 FCTU

744A MATINV 7C26 IFETCH 7C3S .D 7CA5 .COMEX

7E74 DLOG 81E4 DEXP 83EC DSQRT 85BE S7

861C S9 8654 DAINT 8718 0A 3732 0 1 8740 @S 8762 DABS 877C .G 8792 GF

8393 0L 8SC8 0K 8SF3 QM SA94 02

8AA2 0D 8BBC 0T S3E4 0E SC03 GO

8C24 0N 8C7E 0U SC35 0V ECS6 GP

8CE6 0B SCF6 .DARG • 3D3S .DSL'AP 8D94 .DRTN

8DBC .R 8DF8 .A SE9E SORT 8r AS ALOG

90B4 EXP 91EA AINT 9232 IFIX 9233 IFIX2

9256 .Y2 92D6 AES 92EC .IJ 933A . COIP

9366 S5 93B9 .RARG 9SDC S3 9433 .5

9410 .ZERO 9416 .H 9458 .S 943E .?

3520 .0 95D0 .0 9613 .MES 969A .U

S6C2 .V 96CC 0R 96F2 0Z 97E4 0H

AAEC FACSET B040 SETPAR B5C8 ENKODE B74A EAKEIT

C226 MAX0 C22C MAX02 C242 .

1

C254 MINI

C25A M1N12 C270 .4 C292 SI C2AA S22

C2DE $3

COMMON--BLOCKS:

FIEE // •

UNDEFINED:

PRECIS EXTPOL ACTIVE UTAVER :

A109
Memory map for TGPREC, the polynomial fitting and extrapolation overlay.

REL PROGS:

3576 TGRUN 5202 OV'ERLY 5400 TIMER 5574 TRAMID

5318 DEKODE 5DDb REGRES 733E FCTN 7426 MATINV

7C24 I FETCH 7096 .D 7CA4 .CDMEX 7E72 DLOG

81E2 DE)^P 83EA DSQRT 8530 S7 861A S3

8652 DAINT 8716 OA 8733 01 373E OS

8760 DABS 877A .G 87S0 OF 8896 QL

8SC6 eK 8SF6 on 8A92 02 8AA0 OD

8BB8 @T 83E2 0E 8006 00 • 8022 ON

8C7C 0U 8094 ov 8034 OP 8CE4 OB

8CF4 .DARG SD36 .DSL'AP SD92 .DRTN SDEA .R

8DF6 .A 8E9C SORT SFA4 ALOG 90B2 EXP

91B3 A I NT 9230 IFIX QbTg IF 1X2 9254 .Y2

92D4 AGS 92EA .U 9333 .COM? 9364 S5

93AE .RARG 93DA S3 9404 .5 9400 .ZERO

9414 .H 9466 .S 943 c .P 951E .Q

95CE .0 9616 .MES 9530 .U 9530 .V

96C8 eR 9SF0 QZ 9716 GH AAC3 PRECIS

CE96 EXTPOL D3F0 RESIDS D7.3C ETE3T D7AA BSET

D7E0 .BITPS D33C AMAXl D350 .2 D362 SI

D37A $3 D3A6 FLOAT DSAC FL0AT2 D3E4

ABS PROGS:

NONE

ENTRY-POINTS:

5226 OVERLY 5424 TIMER 5593 TRAMID 5830 DEKODE

5B36 RELESE 5BCA MIDAS 5DFA REGRES 7302 FCTN

744A MATINV 7026 I FETCH 7093 .D L AS .COMEX

7E74 DLOG 81E4 DEXP 83BC DSQRT S53E S7

8610 $9 8654 DAIMT 3713 OA 8732 01

8740 @S 8762 DABS 8770 .G 8792 OF

8898 @L . 8803 OK SSF3 OM SA34 02

8A82 @D 8EGC OT . . SBE4 QE 8003 00

. 8024 0N 8C7E OU 8095 OV SCbb OP

80E6 OB 8CF6 . DARG 8D33 .DSL'AP 3D94 .DRTN

8DB0 .R 8DF3 .A 8E9E SQRT 8FA5 ALOG

90B4 EXP 91BA A I NT 9232 IFIX 9233 IFIX2

9256 • Y2 92D6 ASS 92EC .U 933A . COMP

9366 SS 93B0 .RARG 93DC S3 9403 .5

9410 .ZERO 9416 .H 9453 .S 94SE .P

9520 .0 95D0 .0 9618 .MES 969A .U

9602 • V 9500 OR S5F2 02 9 r 64 OH

AAEO PRECIS CEBA EXTPOL D414 RESIDS D78E BTEST

D7A0 BSET D7E2 .BITPS DS3E AMAXl DS52 .2

D864 $1 D87C $3 D8A8 FLOAT DSAE FL0AT2

COMMON-BLOCKS: . FIEE //

UNDEFINED:

ACTIVE UTAVER

Alio
Memory map for TGSTAT, the overlay which calculates the activation

energy and associated statistics.

REL PROGS:

357o TGRUN 5202 OS'ERLY 5400 TIMER 5374 TRAMID

5818 DEKODE 5DD6 REGRES 739E FCTN 7425 MATINV

7C24 I FETCH 7C96 .D 7CA4 .COMEX 7E72 DLOG

81E2 DEXP 83BA DSQRT 35BC S7 C51A S3

8652 DAINT 3716 0A 8730 01' 873E 03

8760 DABS 877A .G 8790 0F ££55 0L

88C6 QIC SSF6 en EA92 02 8AA0 0D

8BBA 0T SBE2 0E 8C86 00 SC22' 0N

8C7C 0U 8C94 0V SCB4 0P' 3CE4 08

8CF4 .DARG SDBS . DS'JAP 8D92 .DRTN SDEA .R

8DF6 .A SE9C SORT SFA4 ALGG 9022 EXP

9183 A I NT 9230 IFIX 9236 IF 1X2 9254 .Y2

92D4 ASS 92EA M 9333 .COIP 9364 S6

93AE .RARG 93DA S3 9404 .5 940C .ZERO

9414 .H 9466 . P 949C .P 951E .0

95CE .0 9616 !mes 96SC .U S6BC .V

S6CA @R 96F0 02 9716 0H A ACS ACTIVE

B35E UTAVER BADS AVSDN BC60 CHISQ .EDc^c:. TDEGAB

BE6C FLOAT EE72 FL0AT2 BEAA

ftBS PROGS:

NONE

ENTRY-POINTS:

5226 OVERLY 5424 TiriER 5533 TRAMID 5S3C DEKODE

5B86 RELESE 5ECA MIDAS 5DFA REGRES 73C2 FCTN

744A MA7INV 7C25 I FETCH 7CS3 .

D

7CA5 .COMEX

7E74 DLOG 81E4 DEXP S3BC DSQRT S3EE S7

861C S3 - 8654 DAINT 8713 0A 8732 01

8743 0S 8762 DABS S77C .G 3792 0F

8893 0L SSC8 0K 8SF8 0M 8A94 02

8AA2 @D SBBC 0T 8EE4 0E SC03 00

. 8C24 0N SC7E 0U 8C96 0V 8CE5 0P

8CE6 SCF6 .DARG 8D33 .DSUAP SD34 .DRTN

8DBC .R 8DF8 .A 8E9E SORT 8FA5 ALOG

90B4 EXP 91BA AINT 9232 IFIX 9233 IFIX2

9256 .Y2 92D6 ABS 92EC .U 933A . COIP

9366 Sb 93B0 . RARG 93DC S8 9403 .5

9410 .ZERO 9416 .H 9463 .S 94SE .P

9520 *Q 95D0 .0 9618 .MES 969A .U

96C2 .V 96CC 0R S6F2 §Z 9764 0H

ftftEC ACTIVE B382 UTAVER BAFC AVSDN BCS4 CHISQ

BDE2 TDEGAB EE6E FLOAT BE74 FL0AT2

COMMON--BLOCKS:

FIEE //

UNDEFINED:

NONE

Alll
XI

^C'-r " ^-e- '•• *^» *1 • §« ^

‘J ! 7m

.r J .^1.33

'll fe>

y, !

. ' V

tax. . 't.r

-

\

I

I

A112
f/.'.

' * •) •

: ‘f - r

. Appendix B. TGEDIT, a FORTRAN program to edit ^

* ^ " factor- lump thermogravimetry results.

Ij# olu«ii.

ye : I

l

-

^3.

- 4 J*

V •J*’

? (L 4 , 1

.;:; -cx.. ..en-^. — -I . - , V5

?

*•'.• '

j |f»- 'M/'aa-' 'i<;w 5J i . S^, 0'..fc2

' - ^ -

trV' .

J - M^n

?2' , • -'" i|v

<%;•-: ^'V5^^.:v:.

. 2W,

1 S’ .. .’*% «

,j • *• < ' J *

^ I 5 -‘: :-s

:\j» J

-• 26 , 2 ?^

-x^!. XV,.

'

• ' '• Xt'j . '

. rrftSJ riV'Tt mHr

•'' { s

:v .•'_.

w

I

• * V rv.'.y-rr:? ‘^

•1",

'-.x_ J''T ;'< ^x.Hl Hivt";' (S

, is

‘Bt?. ;' >Vi. ’'#texi (“T

‘

,tj.ee"

,.r •>r^4'';j€''^.i M '6

7 2f. ,

:' /•

•: . I /

" 1,

^ ^ 0. 22^’J m.s ..er. ti

e. 272 -4

>.. . , 0 ,!

3j V. I

-» *

et. i 2i=6i v'd 0 ieo9 t35W»:2 '•

\««4 0 . i'.

!(V'.

e. i

li

»+

• . kj "

.r^ t

;'* X "-, .

.12: i:-.-^.." 4:2-

•

?V’' .•?.:;» aMtvirr •»»

t .

't';-Oi "“O . K’f'^' iS.h^A^i:-£-rCC N . *V? 23

•

!_• x>;''

'•’• iS.i'i;'

'•- 4 4P ':.? En;->5 V? . :':;

‘ 1* , .

. ,'^' -0. »^VvA'^' .. O.U.

*.r>

'

V,'.“ -'v - # m
Example of how to run the TGEDIT prog ram. User input is underlined.

»AC PEVnC3.?Dl

PEVftC3.C’J0, 1 . e0

RT^RECTIOMS to TEtPERATURES OR NOT?

GIVE Y FOR YES, N FOR NO

N

1 ) MINIMUM DEGREE OF REACTION IN X

2) MAXIMUM DEGREE 0^ REACTION IN X

3) MINIMUM RATE (ABSOLUTE VALUE IS C?0

4) MAXIMUM ERROR IN RATE ( = 100>*'-S IGR/RATE)

5) MINIMUM TEMPERATURE IN DEGREES CELSIUS

6) MAXIMUM TEMPERATURE

7) MAXIMUM ERROR IN TEMPERATURE

8) MAXIMUM ERROR IN ACTIVATION ENERGY

$$$ ALL CM SEPARATE LINES S$S

GIVE:

nfelT VALUES ARE: 0.00 100.00 11.00 2.00

0.00 500.00 0.10 1.75

IS THIS OK? Y OR N

Y

B2
A sample file, prepared by the TGRUNF program, and used as input

to the TGEDIT program. The activation energies rejected by TGEDIT are marked in the first file with *. There has been some slight round-off

in the E values.

NBS 786 IN IQX 02 P=200 3/19/78 AM

1 27.620 0.324 973. 0.369732E+O6 11.43

310.79 0.04 -0.6074E+O2 0.5855E+00

0.368127E+06 0. 133414E+03 30

290.86 0.02 -0.2619E+02 0. 1714E-01

0.37!335E+e6 0.48S180E+01 30

2 24.710 0.074 1636. 0.349127E+06 14.78

291.08 0.02 -0.2418E+02 0. 1583E-01

0.34S614E+06 0.551631E+01 30

302. 15 0.01 -0.3635E+02 O.2S36E-01

0. 34364 lE+06 0.585557E+O1 30

3 24.514 0. 101 2663. 0.319670E+06 13.'57

302.02 0.01 -0.34O1E+02 0.2636E-91

0.31923bE+06 0.535557E+O1 30

292.92 0.02, -0.2409E-f02 0. 1S36E-01

0.320043E+06 0.443929E+01 30

4 25.546 0.084 3490. 0.300236E+06 22.73

293.05 0.02 -0.2266E+02 0. 1S9SE-01

0.3007 10E+06 0.443929E+01 30

304.13 0.02 -0.3504E+02 3.2146E-01

0.299762E+05 0.476667E+01 30

5 26.279

' 0.094 4317. 0. 27206 lE+06 27.31

304.04 0.02 -0.3286E-h02 0.2146E-01

0.271682E+06 9.476667E+01 30

294.94 0.02 -0.2277E+02 0. 1694E-01

0.27244BE+06 0.37634SE+01 30

6 25.837 0.085 5144. 0.253643E+06 38.30

295.04 0.02 -0.216IE-f02 • 0. 16S4E-01

0.25409OE+06 0.376343E+O1 30

306.14 0.02 -0.3351E+02 0.24S2E-01

0.253i36E+06 0.547860E+01 30

7 25.943 0.105 5971. 0. 2264766+06 34.72

306.01 0.02 -0.3193E+02 0.24S2E-01

0.2261 13E+06 0.5470S0E+81 30

296.95 0.02 -0.223SE+02 0. 1677E-01

0.226S40E+06 0.372499E+01 30

e 26.508 0.089 6798. 0.20S405E+0S 37.66

297. 10 0.02 -0.2122E+02 8. 1677E-01

0.208819E+06 0 . 372439E+0

1

30

308.18 0.82 -0.3315E+02 0.2356E-O1

0.207992E+06 0.523324E+01 30

'iS 27.094 0.111 7624. 0.1820I9E+06 41.95

308.05 0.02 -0.3051E+02 0.2356E-0I

0. 181669E+06 0.523324E+01 33

299.04 0.02 -0.2139E+02 0. 1709E-01

0. 182370E+06 0.37S681E+01 30

10 26.121 0.233 8451. 0.165029E+06 44.71

299.07 0.02 -0.1988E+02 0. 1709E-01

0. 165426E+06 0.379581E+01 30

310.11 0.01 -0.3071E+02 0. 1 135E+00

0. 164632E+C6 0.2520S5E+02 30

10 26.466 0.313 9279. 0.140820E+06 43.65

310.02 0.01 -0.2761E+02 0. 1135E+80

0. 140517E+06 O.252335E+02 30

300.98 0.02 -0.1927E+02 6. 1261E-01
0. 141 123E+0b 0.2S0176E+01 30

10 27.124 0.095 10106. 0.125360E+06 51.16

301.11 0.02 -0. 17926-1-02 0. 1261E-01

. 0. 1257426-^06 0.280176E-5-O1 30

312. 12 0.02 -0.2S03E-h02 0. 22496-01

3. 124977E-!-0b 0.499706E-H01 30

10 27.814 0.124 10933. 0. 103044E^06 54.79

312.05 0.02 -0.2572E^O2 0.2252E-0I

0. 10273SE-i-Gb 0.5007S3E-I-01 30

302.93 0.02 -0. 1765E-H02 0. 1409E-O1

0. 103349E-T06 0.313343E-IO1 30

10 27.557 0.097 11761. 0.88S427E+O5 57.10

303.09 0.02 -0. 1653E-»-82 0 . 1407E-0

1

0.891854E->-05 0.312666E-f01 30

314. 13 0.02 -0.260SE-f02 0.20S3E-O1

0.834999E-f05 0.4626576-5-01 30

10 27.717 0.119 12588. 0.633444E+05 60.43

314.01 8.02 -0.2332E-t-92 • 0. 20336-01

0.680816E-1-05 0.4526576-1-91 38

304.99 0.02 -a. 1609E-fG2 3. 13106-01

0.686073E+05 0.2939536-5-01 32

10 27.823 0.053 13456. 0.545482E+05 62.63

305.10 0.02 -0. 1476E-f-02 0. 14356-01

0.552179E+0-5 0. 3453696-5 31 30

325. 17 0.02 -0.3326E+O2 9.22336-01

0.5S3784E-f05 0.53735SE-5-01 30

10 27.702 0. 130 14324. 0.277493E+05 67.03

324.99 0.02 -0.2761E-f02 0.20386-01

0.2745956-5-05 0.4527046-5-01 30

315.92 0.02 -0. 192SE-5-02 9.22206-01

0. 28059 1E^05 0.493123E-f01 38

10 28.014 0.118 15151. 0.125341E+05 69.51

316.03 0.02 -0. 17326-^02 0.22286-01

0. 129017E-5-O5 0.493123E-f01 30

327.13 0.02 -0.2695E-T02 0.24266-01

0. 121664E+05 0.53904SE-5-81 30

10 27.920 0.122 15978. -0.854332E+04 72.93

326.97 0.02 -0.2375E-5-02 9.24266-01

-0.8301016-^04 0.5390466-5-01 30

317.95 0.01 -0. 1662E-T-02 0. 1125E-01

-0.828663E-H04 0.249952E-5-01 30

10 27.339 0.G84 16805. -0.21317SE+05 75.11

318.02 0.02 -0. 1559E-5-02 0.1 125E-01

-0.216032E-r05 0.249352E-5-G1 30

329.14 0.02 -0.23S8E-fC2 0. 14836-01

-0.2223276-^05 0.3293536+01 30

' 10 28.136 0.098 17632. -0.4070546-^05 78.16

329.04 0.02 -0.2125E-f02 0. 14336-01

-0.40937GE-f05 0.3293586+01 30

319.94 0.01 -a. 1491E-^02 0.90526-62

-0.404733EHO5 0.2010936+01 30

10 28.334 0.043 18499. -O.535494E+05 80.25

320 . 09 0.01 -0. 139OE-f02 0.99106-02

-0.5292S9EH-O5 0.238214E+01 30

340.19 0.02 -0.3057E-5-02 0.23556-01

-0.541520E-1-05- 0.5661196+01 30

B4
10 28.830 0.107

10 27.673 0.083

:^10 27.220 0.114

10 12.927 87.368

19366. -0.731593E+05 84.25

340.00 0.01 -0.2545E+02

-0.784489E+O5

330.96 0.01 -0.1786E+02

-0.778707E+05

20194. -0.923056E+O5 86.55

331.05 0.01 -0.1621E+02

-0.919633E-!-05

342.18 0.02 -0,24S3E-y-02

-0.9264148+0S

21022. -0. 1I0599E+06 89.53

342.01 0.01 -3.1934E+02

-0. 110820E+06

333.05 0.01 -0.13916+02

-0. 110378E+06

21986. -0. 124156E+06 91.73

333.17 0.02 -0.1164E+02

-0. 122699E+06

352.99 0.05 -0.1635E+02

-0. 125613E+66

0.2151E-01

0.4778S3E+ai 30

0. 1266E-01

0.281145E+01 30

0. 1267E-01

0.281753E+01 30

0. 1758E-01

0.393167E+01 30

0. 1766E-01

0.3923 17E+01 30

0. 1005E-01

0.223191E+01 30

0. 1329E-01

0.37957SE+O1 30

0 . 3753E+02

0.566496E+04 4

ii

B5
NBS 706 IN 10X 02 P=220 3/19/78 AN

1 27.625 0.324 973. 0.369732E+06 11.43

310.79 0.04 -0.6374E+O2 0.5855E-)-Oa

0.368 127c.'t0o 3. 139414E-H03 30

290.86 0.02 -0.261SE+02 0. 1714E-01

0.371336E+06 0.43S18GE-i-ei 30

2 24.709 0.074 1836. 0.349127E+06 14.78

291.08 0.02 -O.2418E+02 3. 15S3E-01

0.349514E+OS 0.35 163 lE-f01 30

302.15 0.01 -0.369.5E^'02 O.2636E-01

0.343S41E+06 0 . 535567E-f0

1

30

3 24.520 0. 101 2663. 0.319670E-f06 19.57

302.02 0.01 -0.34016-^32 0.2636E-01

0.31929SE-i-0S 0.535557E-+01 30

292.92 0.02 -B.2409E-t-02 0. I998E-01

0.3200436-5-96 0.443929E+O1 30

4 25.552 0.084 3498. 0.300236E+36 22.73

293.05 0.02 -O.2266E-:-02 .0. 199SE-01

0.30971OE-i-06 0.443929E-<-01 30

304.13 0.02 -0.3504E-1-02 O.2146E-01

0.2997626-^06 0.476657E+01 30

5 26.266 0.094 4317. 0. 27206 1E+0S 27.31

304.04 0.02 -g.32E5E-i-a2 3.2146E-01

0.271b32E-i-06 0.47b667E-f91 30

294.94 0.02 -0.22776^-02 0. 1694E-01

0.272440E-5-86 3.37634SE-f01 30

6 25.850 0.085 5144. 0.253643E+06 30.30

295.04 0.02 -0.21SlE-f32 O.1694E-01

0.254030E-f0b 0.37634:?E-f01 30

306.14 0.02 -O.3351E-f-02 0.2462E-01

0.2531SG£-f06 0.547050E-f01 30

7 25.938 0.105 5971. 0.226476E+06 34.72

306.01 0.02 -0.319SE-f02 0.2462E-91

0.2261 13E-K36 O.547068E-1-91 30

296.95 0.02 -0.2236E-5-02 a. 1S77E-01

0.226S40EH-06 3.372499E-+-01 30

e 26.523 0.089 6798. 0.203485E-^06 37.65

297.10 0.02 -0.2122S+O2 0. 1677E-01

0.20331SE+06 0.3724996-^01 30

308.18 0.02 -0.3315E-f32 0.235SE-81

0.207S92E-f06 0 . 523324E-5-3

1

30

9 27.084 0.111 7624. 0.182019E+05 41.95

308.05 8.02 -0.3051E+02 0.2356E-01

0. 131669E-;-05 0.523324E-5-01 30

299.04 0.02 -0.2109E-f02 0. 1709E-01

0. lB2370E-f86 0. 37963 lE-f01 30

10 26.125 0.233 8451. 0. 165329E+3S 44.71

299.07 0.02 -0. 1988E-f02 0. 1709E-01

0. 165426E-1-06 0.37968 lE+01 30

310.11 0.01 -0.3071E-5-82 0. 1135E+G0

0. 164632E-f06 0.252085E-5-02 30

n 26.469 0.313 9279. 0.149820E+O6 43.65

310.02 0.01 -0.2751E-I-02 0. 1 135E-5-00

0. 143517E-t-06 0.252085E-*-02 30

' 300.98 0.02 -0. 1927E-5-02 0. 1261E-0I

B6
0. Ml 123E+86 0.2S0176E+01 30

12 27. 138 0.095 10106. 0.125360E+06 51.16

301.11 0.02 -0. 1792E+02 0. 1261E-01

0. 125742E+06 0.280176E+01 30

312. 12 0.02 -0.2S33EH-92 0.2249E-0.1

0. 124977E+06 0.4997O6E+01 30

13 27.815 0. 124 10933. 0.183044E+0b 54.79

312.65 0.02 -0.2572E+02 0.2252E-01

0. 102739E+8S 0.590783E+01 30

302.98 0.02 -a. 1755E+02 0. 1409E-01

0. I03349E-^86 0.313343E+81 30

14 27.546 0.097 11761. 0.888427E+O5 57.18

303.09 0.02 -0. 1S5SE+02 3. 1407E-01

0.8918542+05 0.312656E+01 30

314.13 0.02 -9.268SE+G2 3.2033E-81

0.834999E+05 a.462657E+ai 30

15 27.755 0.119 12588. 8.633444E+05 60.43

314.01 0.02 -0.2332E+O2 0.2eS3E-91

0.68881.6E+O5 0.462657E+01 30

304.99 0.02 -0. 1G89E+82 0. 1310E-01

0.686073E+85 0.290S53E+01 30

16 27.831 0.055 13456. 9.545<^S2E+05 62.63

305. 10 0.02 -0. 1476E+02 0. 1435E-01

0.552173E+05 0 . 343368E+0

1

30

325.17 9.02 -O.3326E+02 3.223ZE-01

0.538784E+05 0.537353E+01 38

17 27.682 0.138 14324. 0.277493E+05 67.03

324.99 0.02 -0.276 lE+02 0.2339E-0!

* 0.274595E+05 0.452704E+01 30

315.92 0.02 -0. 1929E+02 0.2223E-31

0.280391E+05 3.433123E+01 30

18 27.994 0.118 15151. 0.125341E+05 69.51

316.03 0.02 -0. 1732E+82 8.2220E-01

0. 129017E+85 0.4S3123E+31 30

327.13 0.02 -0.2695E+02 3.2426E-01

0. 121664E+05' 0.53304bE+01 30

19 27.898 0. 122 15978. -8.854382E+34 72.93

326.97 0.02 -0 . 2375E+02 0.2426E-31

-0.880 10 lE+04 0.539045E+01 33

317.95 0.01 -0.1662E+02 3. 1 125E-01

-0.823663E+84 0.249952E+01 30

20 27.398 0.084 16805. -0.219179E+05 75.11

318.02 0.02 -0. 1553E+02 0. 1 125E-81

-0.216032E+05 0.249952E+01 30

329. 14 0.02 -0.239SE+O2 0. 14S3E-01

-0.222327E+05 0.32935SE+ai 30

21 28. 160 0.898 17632. -0.407054E+85 78.16

329.04 0.02 -0.2125E+02 0. 1483E-01

-0.409376E+05 0.329353E+81 30

319.94 0.01 -a. 1481E+02 0.9052E-02

-0.404733E+05 0.201093E+01 30

22 28.837 0. 107 19366. -0.78159SE+C5 84.25

340.00 0.91 -0.2545E+02 0.2151E-01

-0.784489E+85 0.47783SE+01 30

330.96 0.01 -0. 1786E+02 8. 1266E‘-Bl

-0.778707E+05 0.281 145E+01

23 27.688 0.083 20194. -0.923856E+05 B'G .%5

331.05 0.01 -0. 1621E+02 0. 12S7E‘-01

-0.919698E+e5 0.281753E+01 30

342.18 0.02 -0.24G8E+02 0. 176SE-81

-0.926414E+05 0.393167E+01 50

B7
Listing of the FORTRAN program TGEDIT. The source is in file EPROG.

SPISSM

TGEDIT PROG

SPORT

C

C PROGRAM TO EDIT THE DATA FILES FROM FACTOR JUi^ TG

C RUNS IN A CONSISTENT MANNER. DATA ARE SELECTED ONLY LUEN THEY

C ARE ABOVE USER SPECIFIED LIMITS OF PRECISION OR UITHIN SPECIFIED

C RANGES OF TEMPERAU'RE AND DEGREE OF REACTON.

C CORRECTIONS CAN BE MADE TO THE TEMPERATURES.'

C

C THE PROGRAM READS THE SAVE FILE FROM THE FACTOR JUMP THERMGGRAVIMETRY

C EXPERIMENT AND WRITES AN EDITED FILE IN THE SAME FORMAT

C

C THE INPUT/OUTPUT UNITS ARE AS FOLLOWS:

C ASK QUESTIONS ON LU 4 . C GET RESPONSES FROM LU 5

C READ INPUT FILE FROM LU 7

C WRITE OUTPUT FILE ON LU 8

C

DIMENSION T(2),SIGT(2),ERATE(2),SIGER(2),EFACT(2),SIGF(2)

&,NTITLE(35),N(2)

C

C READ IN ANY TEfFERATURE CORRECTION

C

CORREC=0.

2 WRITE(4.

n

1 FORMAT (/' CORRECTIONS TO TEMPERATURES OR NOT? ' GIVE Y FOR YES. N FOR NO')

READ(5,S)NETFIX

9 FORMATCAI)

IFCHETFIX.EQ.'M')GO TO 183

IF (NETFIX.NE.'Y') GO TO 2

3 CONTINUE

WRITE(4,5)

5 FORMAT(///' GIVE TEMPERATURE INCREMENT')

READ(5,6)C0RREC

6 FORMAT(F18.0>

WRITE(4,7)C0RREC

7 FORMATC' CORRECTION VALUE IS '.F 10. 2)

WRITE (4. 8)

8 FORMATC' IS THIS OK? Y OR N')

READ(5.S)NG0

IF(NGO.NE.'Y')GO TO 3

C

C INPUT LIMITS TO BE USED IN EDITING

C

103 WRITEC4. 15)

15 FORilATC/' GIVE:'/

&/' 1) MINIMUM DEGREE OF REACTION IN K'

8./' 2) MAXIMUM DEGREE OF REACTION IN X' &/' 3) MINIMUM RATE (ABSOLUTE VALUE IS OK)'

8c/' 4) MAXIMiJM ERROR IN RATE ( = 100>!<SIGR/RATE)

8./' 5) MINIMUM TEMPERATURE IN DEGREES CELSIUS'

8./' 6) MAXimM TEMPERATURE'

8./' 7) MAXIMUM ERROR IN TEMPERATURE'

8./' 8) MiAXmJM ERROR IN ACTIVATION ENERGY'

B8
ono

non

non

ooo

ooo

8./' $$S ALL ON SEPARATE LINES $S$'

)

READ (5, 35) DOCniN, DOCnAX, ROUT, SRCUT, TL, TH. STCUT. SECUT

35 FORMATCFIB.O)

UR I TE ( 4 , 3b ) DOOM I N , DOCMPX, ROUT, SRCUT, TL , TH , STOUT. SECUT

36 FORMATC/' INPUT VALUES ARE: ' .4F8.2/18X.4F8.2)

URITEC4.8)

READ(5,9)NG0

IF(NGO.NE.'Y")GO TO 103

READ INPUT FILE. EDIT BLOCK BY BLOCK

DO 90 1=1.2

READ (7. 10)NTITLE

URITEC8. 10)NTITLE

90 CONTINUE

10 F0RMATC35A2)

1=0

100 READ(7.20.END = 110)K.E.S.ET.SU,C, (TU) .SIGT(J) .ERATECJ) .STGER(J)

8.,EFACT(J).SIGF(J).N(J),J = 1.2)

APPLY TEMPERATURE CORRECTION

IF (NETFIX.EQ.0)GO TO 165

T(l)=t(l)+CORREC

T(2)=T(2)+C0RREC

Tl=T(l)+273. 18

T2=T(2)*J-273. 13

E= 1 . 987>KT1 >J'T2/(T1-T2) >i^L0G CERATE ( 1 ) /ERATE (2) ) E=ABS(E/1080.)

105 CONTINUE

EDIT FILE BASED ON INPUT LIMITS

DO 108 K=1.2

IF(ABSCERATECK)) .LE.RCUT)GO TO 103

IF ((18a.>xSlGERCK)/A3S(ERATE(K))) .GT.SRCUT)GO TO 100

IF(TCK) .LT.TL.OR.TCK) .GT.TH) GO TO 100

IF (SIGTCK) .GE.STCUT)GO TO 100

108 CONTINUE

IF (S.GE. SECUT) GO TO 100

IF (C.LT.DOCMIN.OR.C.GT.DOCMAX) GO TO 100

OUTPUT SURVIVING DATA

1 = 1+1

ljRITE(8,20) I.E.S.ET.SU.C. (TC J) .SIGTCJ) . E.ERATE(J).SIGER(J).EFACT(J).STGFCJ).NCJ).J=1.2)

20 FORMAT(I4.2F7.3,F1O.0.E15.S.F7.2/

8.20X.F8.2.F6.2.2E15.4/34X.2E15.6. 15

8./20X.F8.2.F6.2.2E15.4/34X.2E15.6. 15)

GO TO 100

EOF ON INPUT FILE

110 END FILE 8

STOP

END

B9
Memory map of the TGEDIT program.

REL PROGS:

3576 TGEDIT 4024 ftLOG 4132 PBS 4148 .conp

4174 $6 41BE .RflRG 41EP $8 4214 .5

421C .S 4252 .0 42SA .MES 4310 .U

4340 .V 434E @2 4374 0H 55BE

PBS PROGS:

HOME

ENTRY-POINTS:

4026 PLOG 4134 PBS 414P .OOMP 4176 S6

41C0 .RPRG 41EC SB 4218 .5 42 IE .S

4254 .0 4290 .tES 431E .U 4346 .V

4350 eZ 4302 0H

COmGN-BLOOKS:

HONE

UNDEFINED:

HONE

BIO
bSrtr.:' ( ^ ? !>J

J

u J 03 r^*-. 1 -I,' I i '^, 5"vv; LI V “»^5 ’ li^<!r'.<n;,. JtAi'iJ «irar^-=

I

I J. 4 #4 S

5 ris A5 32^21/;.,. ':

i !^ 420'' •'' ''• :.

'S 52x;

, S >»# ^ ''

1 m

C -mitr ne TH '

y -P$ £2t

t, •

Vi.

'6,1 '

'

i4l of b^w ti* th'i TCTRT^3

.'. .^im ifW

UH

r

' l 5 _r X^':':tT ,*0^ ;>u.<-. S!>, ^

^ if' ^v-

.-• '* •'

.,

\ TCTi? r

' t-fO

ru ?; G :vff ;

, r

' u

, - [' f ,- <JM FP?£E

, i ni , r> Vtntj- ^• T^ : '•-•' f Zy*:- V^ : '^

’ T'-'^- '

^•^H V

'' W-fe!'?.-i , -i

. .V3 SG 6 : VI

" ' r , '

. r,. .. . I

.. *•. «'•.' *..:.

••

4 i

'.

\

1

1

'l
. Appendix C. TGTRIM, a FORTRAN program to calculate trimmed

, i means of the activation energies in the save

' file from factor-jump thermogravimetry.

isa>trri y

•

, , r i ;(

i

rr'

•••• r* T

•
Listing of the file SETRIM,

needed by the TRIMPG program.

used as DO SETRIM,D0 to assign files as

AS 120

AS 220

AS 320

AS 420

AS 520

AS 662

AS 720

AS 820

AS 920

AS A20

AS B20

AC TRIMOl,• CD0

AC TRIM02-.DD0

AS E20

AS F20

ASSIGN INPUT FILE (UNIT 7) THEN TYPE 'RUN TRIMPG, D0'

TR

Example of how to run the TGIRIM program. User responses are underlined

^»nn SETRin

ASSIGN INPUT FILE (UNIT 7) THEN TYPE 'RUN TRIMPG, D0'

7

»Af: PEVALL,7Da

»RUN TRIMPG

TGTRIM PROGRAM

READ INPUT DATA FROM FILE 7

FILE G IS FOR OUTPUT

GIVE NUMBER OF FILES TO EXAMINE (IN FREE FORMAT)

IJL

EXAMINE 1 FILES

GIVE 0 FOR RATE DATA INPUT

1 FOR E/SIG E INPUT (OUTPUT OF TGRUNF)

UITH DEGREES OF CONVERSION IN FILE

2 FOR E/SIG E INPUT UITH D.O.C. TO BE , CALCULATED

NEEDS INITIAL AND FINAL SAMPLE UEIGHTS

AS THIRD LINE OF FILE

\ J.FILE NUMBER 1

TITLE OF INPUT FILE IS ;

POOLED E'S FROM PE IN VAC 4/78 FROM PEVAC1,2,3,4 8. PEBV1,2

I

I

I

I

C2
Typical output from the TGTRIM program.

TITLE OF INPUT FILE IS :

POLY ISO BUTYLENE IN N2 RUNS PIEE05 TO 08 DEC 1979

SAIPLES IN E BfiL RANGE .13 TO -.165

lER E SIG E D.O.C. SUT

1 49.78 1.63 22.63 51072.50

2 47.47 0.95 28.54 35081.00

3 50.24 1.01 33.29 • 8459.12

4 48. 19 0.5^ 44.20 -7675.77

5 47.57 0.69 53.67 -33521.80

6 49.63 0.52 59.21 -48630.70

7 50.07 0.53 67.55 -71421.81

8 47.64 0.47 72.19 -84090.87

9 48.29 0.67 78.85 -10-2272.00

10 48.54 0.34 82.33 -113127.00

11 45. 15 0.83 90. 13. -133044.00

12 52.51 0.72 12.64 58305.00

13 51.09 0.94 23.26 31141.30

14 49.30 0.55 29,29 15738.60

15 49.59 0.64 39.35 -9979.59

16 49.03 0.46 45 . 44 -25541.00

17 51.17 0.74 55. 16 -50382.30

18 47.02 0.52 60.82 -64366.30

19 49.52 0.78 69.44 -86878.81

20 47.95 0.53 74. 18 -98999.31

21 50.42 0.82 80.85 -116054.00

22 48. 12 • 0.43 34.78 ,-126091.03

23 40.93 1.19 91.87 -144220.00

24 50.81 1 .04 16.63 81641.83

25 48. 16 0.70 20.53 70476.37

26 48.86 0.87 27.37 50618.90

27 47.83 0.59 31.73 37970.50

28 49.23 0.73 39. 13 . 16515.20

29 48.59 0.53 43.73 . 3179.93

30 43 . 38 0 . 86 51.40 -19053.49

31 43.09 0.59 56.03 -32480.70

32 46.59 0.77 63.36 -53740.90

33 49.22 0.57 67.62 -66101.50

34 48.55 0.85 74. 14 -84995.50

35 47.79 0.53 77.81 -95540. 13

36 46.05 0.83 83. 15 -11 1 136.00

37 49.32 0.41 86.41 -120595.00

38 47.76 0.90 92.64 -138646.00

39 48.76 1 . 10 12.92 77352.62

40 50.43 0 . 70 17. 17 65609,00

41 48.32 0.85 24.64 44983.20

42 48.70 0.59 29.41 31823.00

43 47.55 0.71 37.46 9606.20

44 50.28 0.56 42.40 -4034.69

•45 47.42 0.87 50 . 59 -26625.90

46 48. 14 0.63 55.50 -40167.80

47 50.24 0.87 63.13 -61235,30

48 46.47 0.54 67.51 -73319.33

49 47.49 0.95 74.03 -91443.37

50 49.52 0.47 73.26 -102933.00

51 45 . 30 0.7b 86.71 -126309.00

52 48.53 0.37 90.56 -136939.00

52 DATA READ IN

C3
OVERAGE VALUES BEFORE DATA TRinHED

UEIGHTED MEAN E IS 43.566 + OR - 0.087

REDUCED CHISQ FOR E CALCULATION IS 4.355 (SHOULD BE 1.)

UNWEIGHTED MEAN OF SIGMAS IS 0.719

CALCULATED OVER 50. DEGREES OF FREEDOM

ASSUMING ALL POSSIBLE SAMPLE MEANS ARE NORMALLY

DISTRIBUTED, TRUE WEIGHTED MEAN LIES WITHIN RANGE 43.421 TO 48.712

FOR S5y, CONFIDENCE LEVEL

UNWEIGHTED ESTIMATE OF MEAN E AND UNBIASED ESTIMATE

OF ITS SIGMA ARE 43.493 AND 0.253

THIS GIVES A CCilFIDENCE RANGE OF 43.069 TO 43.917

CHI-SQUARE FOR UNUEIGHFED E IS 4.37

T VALUE APPLIED IS 1.676

TRIMMED MEANS FOLLOW:

5 DATA CHOPPED OFF EACH END AND 42 DATA USED

E SIG E DOC

46.59 0.77 63.36

47.02 0.52 60.82

47.42 0.87 53.59

47.47 0.95 28.54

47.49 0.95 74.03

47.55 0.71 37.46

47.57 0.69 53.67

47.64 0.47 72. 19

47.76 8.90 92.64

47.79 0.58 77.31

47.83 0.59 31.73

47.95 0.58 74. 18

4B.09 0.59 56.03

48.12 0.43 84.73

48. 14 0 . 63 55 . 50

48.16 0 . 70 20.53

48. 19 0.54 44.20

48.29 0.67 78 . 85

48.32 0.85 24.64

48.38 0.86 51.40

48.53 0.37 90.56

48.54 0.34 82.83

48.55 0.85 74. 14

48.59 0.53 43.73

48.70 0.59 29.41

48.76 1.10 12.92

48.86 0.87 27 . 37

43.03 0.46 45.44

49.22 0.57 67.62

49.23 0.73 39. 13

49.30 0.55 29.29

49.32 0.41 86.41

49.52 0.78 69.44

49.52 0.47 73.26

49.59 0.64 39 . 35

49.63 0.52 59.21

49.78 1.63 22.68

50.07 0.53 67.55

50.24 1.01 33 . 29

50.24 0.37 63. 13

50.28 0.56 42.40

50.42 0.82 80.85

# C4
UEIGHTED r-EHN E IS 43.614 + OR - 0.093

REDUCED CM ISO FOR E COLCULfiTIGN IS 2.071 (SHOULD BE 1.)

UNWEIGHTED MEOM OF SIGMOS IS 0.F.34

CALCULATED OVER 40. DEGREES OF FREEDOM

ASSUMING ALL POSSIBLE SAMPLE MEANS ARE NORMALLY

DISTRIBUTED, TRUE WEIGHTED MEAN LIES WITHIN RANGE 48.453 TO 48.771

FOR S5y, COilFIDENCE LEVEL

UNWEIGHTED ESTIMATE OF MEAN E AND UNBIASED ESTIMATE

OF ITS SIGMA APE 43.6!2 AMD 0.153

THIS GIVES A CGMFIDEMCE RANGE OF 43.353 TO 43.866

CHI-SQUARE FOR UNWEIGHTED E IS 2.07

T VALUE APPLIED IS 1.634

UINSORISED MEAN AND SIGMA FOLLOW:

(I.E., REPLACE REJECTED VALUES WITH NEAREST UNREJECTED VALUE)

UNWEIGHTED ESTIMATE OF MEAN E AND UNBIASED ESTIMATE

OF ITS SIGMA ARE 43.592 AND 3.203

THIS GIVES A CONFIDENCE RANGE OF 43.243 TO 43.942

CHI-SQUARE FOR UNWEIGHTED E IS 2.31

T VALUE APPLIED IS 1.676

C5
TRIMMED MEftNS FOLLOW:

10 DPlTft CHOPPED OFF EACH END AND 32 DATA USED

E SIG E DOC

47.55 0.71 37.46

47.57 0.69 53 . 67

47.64 0.47 72. 19

47.76 0.90 92.64

47.79 0.53 77.31

47.83 0.59 31.73

47.95 0.53 74. 18

48.09 0.59 56 . 03

48. 12- 8.43 84.73

48. 14 0.63 55.50

48. 16 0 . 70 20 . 53

48. 19 0.54 44.20

48.29 0 . 67 73.85

48.32 0.35 24.64

48.38 0.86 51.40

48.53 0.37 90.56

48.54 0.34 82.83

48.55 0.85 74. 14

48.59 0.53 43.73

48.70 0.59 29.41

48.76 1 . 10 12.92

48.86 0.87 27.37

49.03 0.46 45.44

49.22 0.57 67.62

49.23 0.73 39. 13

49.30 0.55 29.29

49.32 0.41 86.41

49.52 0.78 69 . 44

49.52 0.47 73 . 26

49.59 0.64 39.35

49.63 0.52 59.21

49.78 1.63 22.68

UEIGHTED MEAN E IS 48.586 + OR - 0.101

REDUCED CHISQ FOR E CALCULATION IS 1.223 (SHOULD BE 1.)

UNWEIGHTED MEAN OF SIGMAS IS 0.663

CALCULATED OVER 30. DEGREES OF FREEDOM

ASSUMING ALL POSSIBLE SAMPLE MEANS ARE NORMALLY

DISTRIBUTED, TRUE WEIGHTED MEAN LIES WITHIN RANGE 43.413 TO 48.758

FOR 95.% CONFIDENCE LEVEL

UNWEIGHTED ESTIMATE OF MEAN E AND' UNBIASED ESTIMATE

OF ITS SIGMA ARE 48.577 AND 0.120

THIS GIVES A CONFIDENCE RANGE OF 48.373 TO 48.782

CHI-SQUARE FOR UNWEIGHTED E IS 1.22

T VALUE APPLIED IS 1.697

UINSORISED MEAN AND SIGMA FOLLOW:

(I.E., REPLACE REJECTED VALUES WITH NEAREST UNREJECTED VALUE)

UNWEIGHTED ESTIMATE OF MEAN E AND UNBIASED ESTIMATE

OF ITS SIGMA ARE 43.611 AND 0.193

THIS GIVES A CONFIDENCE RANGE OF 43.279 TO 43.943

CHI-SQUARE FOR UNWEIGHTED E IS 1.28

T VALUE APPLIED IS 1.676

C6
TRIMMED MEfiNS FOLLOU:

15 DPlTfl CHOPPED OFF EACH END AND 22 DATA USED

E SIG1 E DOC

47.,83 0. 59 31. 73

47.,95 0. 58 74. 13

48.,09 0. 59 56

.

03

48., 12 0. 43 84. 73

48., 14 0. 63 55. 50

43., 16 0. 70 20. 53

48., 19 0 . 54 44. 20

48.,29 0 . 67 78. 85

43.,32 0. 85 24. 64

43.,33 0. 86 51

.

40

43.,53 0. 37 90. 56

48.,54 0. 34 82. 83

48..55 0. 35 74. 14

-48.,59 0. 53 43. 73

48.,70 0. 59 29. 41

43,,76 1 . 10 12. 92

43.,86 0. 87 27. 37

49..03 0. 45 45. 44

49,.22 0. 57 67. 62

49,.23 0. 73 39. 13

49,.30 0. 55 29. 29

49,.32 0. 41 86. 41

UEIGHTED MEAN E IS 43.577 + OR - 0.118

REDUCED CHISQ FOR E CALCULATION IS 0.S89 (SHOULD BE 1.)

UNWEIGHTED MEAN OF SIGMAS IS 0.623

CALCULATED OVER 20. DEGREES OF FREEDOM

ASSUMING ALL POSSIBLE SAMPLE MEANS ARE NORMALLY

DISTRIBUTED. TRUE WEIGHTED MEAN LIES WITHIN RANGE 43.373 TO 48.781

FOR 95% CONFIDENCE LEVEL

UNWEIGHTED ESTIMATE OF MEAN E AND UNBIASED ESTIMATE

OF ITS SIGMA ARE 48.551 AND 0.099

THIS GIVES A CONFIDENCE RANGE OF 43.380 TO 48.723

CHI-SQUARE FOR UNWEIGHTED E IS 0.69

T VALUE APPLIED IS 1.725

UINSORISED MEAN AND SIGMA FOLLOW:

(I.E., REPLACE REJECTED VALUES WITH NEAREST UNREJECTED VALUE)

UNWEIGHTED ESTIMATE OF MEAN E AND UNBIASED ESTIMATE

OF ITS SIGMA ARE 48.565 AND 0.214

THIS GIVES A CONFIDENCE RANGE OF 43.206 TO 48.924

CHl-SC'UARE FOR UNWEIGHTED E IS 1.74

T VALUE APPLIED IS 1.676

C7
Listings of the routines in the FORTRAN program TGTRIM.

SPlSSM

TGTRIM PROG

SPORT

STRGT 16

c

C TGTRIM. SET UP FOR MULTIPLE RUNS FROM ONE START.

C PROGRAM TO EVALUATE TG DATA DERIVED FROM TEMPERATURE JUMPS

Cc

C WRITTEN BY B. DICKENS, 311.02 NBS

C

C TELEPHONE (301) 921-3322

C

C PROGRAM HEEDS THE FOLLOWING SUBROUTINES AND FUNCTIONS:

C • OVERLY

C PRIMTR

C TRIM

C TRIMRD

C

C

C COMMON BLOCKS /lO/ AND /REGRS/ DEFINED VIA ARRAY 'DUMP'

C COMMON /lO/ NTTYI.NTTYO, IN.NPRINT.NFILEA.NFILEB

C COMMON /REGRS/ M(5) ,R(5) , YFIT(250)

C

COMMON DUMP (275)

. EQUIVALENCE (NTTYI , DUMP ( 1 ) ) , (NTTYO, DUMP (2) ) . (IN, DUMP (3)) ^ EQUIVALENCE (NPR INT, DUMP (4) ) , (NF ILEA, DUMP (5) ) , (NF ILEB, DUMP (6)

)

DIMENSION M(5) ,R(5) ,YFIT(250)

EQUIVALENCE (M( 1) ,DUMP( 10) ) , (R( 1) ,DUMP( 15) ) , (YFIT( 1 ) ,DUMP(20)

)

C

c DIMENSION NTITLE(64) , IDCLD(75) , ID (75) , E (75) , S IGE (75) , DOC (75)

DIMENSION SIJT(75) . NT I ME (75) , TREAD (2, 75) , RATE (2. ? 5) , TEMP (2. 75)

DIMENSION SIGT(2,75) ,SIGR(2,75) . EQUIVALENCE (DOC ( 1 ) , NTIME ( 1 ) ) C

C OVERLAY NAMES AND FILE ASSIGNMENTS

C

1NTEGER>I:2 IPR IMS (3) . ITR IMS (3)

DATA IPRIMS/'OP'.'RI'.'MS'/, ITRIM3/'0T' , 'RI' , 'MS'/

NPRIMS =12 . NTRinS =13

NDATA = 75

NTTYO = 4

C

C INITIALISE AND READ IN DATA

C

CALL OVERLY ( IPR IMS, NPRIMS, 0, NTTYO)

CALL PRIMTR (NLOOPY.NLOOP, INDATA)

100 IF (NLOOPY.GT.0) CALL OVERLY ( I PR I MS, NPRIMS, 0, NTTYO)

CALL TRIMRD (NTITLE.NLOOPY, I DOLD, E, S IGE, SUT, DOC, NTIME, TREAD

8. ,SIGT,RATE,SIGR, ID, INDATA, NDATA, NERROR)

IF (NERROR.GT.O) GO TO 600

C

C CALCULATE TRIMMED MEANS

C

CALL OVERLY ( ITR IMS, NTR IMS, 0, NTTYO)

CALL TRIM (E,S IGE, DOC, NDATA)

WRITE (NPRINT, 10)

10 FORMAT (' 1'

)

IF (NLOOPY.lt. NLOOP) GO TO 100

600 STOP

END

C8
spissn

fiCTIV PROG

SPORT

STRGT 16

c SUBROUTINE fiCTIVCE.SIGE.TEriPl ,TEIiP2,SlGTl ,SIGT2

8., TREAD 1 , TREAD2 . S I GTR 1 , S IGTR2

8. , RATE 1 , RATE2 , S I GR 1 , S I GR2 , AT, NERROR

)

C

C SUBROUTINE TO CALCULATE ACTIVATION ENERGY FROM TEMPERATURE AND

C RATE DATA

C

C >M<* FOR A SINGLE E VALUE

C

C E = ACTIVATION ENERGY

C SIGE = STANDARD DEVIATION OF E C IE = ORDINAL NUMBER OF E IN LIST OF E VALUES

C TEMPI = FIRST TEMPERATURE (IN DEGREES K)

C TEMP2 = SECOND TEMPERATURE

C SIGTl, SIGT2. = STANDARD DEVIATIONS OF TEMPI AND TEMP2

C TREAD = VALUES OF CORRESPONDING THERMOCOUPLE EMF'S IN MICROVOLTS

C VTEMP = CONTRIBUTION OF TEMP TO VARIANCE OF E

C

C RATEl, RATE2, SIGRl, SIGP2 AND VRATE ARE SIMILAR VALUES FOR RATES

C AT = POLYNOMIAL COEFFICIENTS FOR EMF TO DEGREE K CONVERSION

C NERROR = ERROR INDICATOR

Cc

C NEEDS THE FOLLOWING COMMON BLOCK AND FUNCTION:

C COMMON /lO/ NTTYI,NTTYO, IN, NPRINT,NFILEA,NFILEB

C TDEGAB

C

COMMON DUMP (275)

EQUIVALENCE (NTTYI , DUMP ( 1 ) ) , (MTT'fD, DUMP (2) ) , (IN, DUMP (3))

8. , (NPRINT,DUMP(4) ) , (NFILEA,DUMP(5) ) , (NFILEB,DUMP(6)

)

C

DIMENSION TEMP(2),SIGT(2),TREAD(2),SIGTR(2),RATE(2),SIGR(2),AT(4)

C

C

R = 1.987/1000.

R2 = R>t^>t''2 NERROR = 0

TREAD ( 1

)

= TREAD 1 TREADC2) = TREAD2

SIGTR(l) = SIGTRl

SIGTRC2) = SIGTR2

RATE(l) = RATE 1 RATE (2) = RATE2

SIGR(l) = SIGRl

SIGRC2) = SIGR2

DO 30 J = 1,2

C

C GET TEMPERATURE IN DEGREES KELVIN, TREAD IS ,IN MICROVOLTS

C

TEMP(J) = TDEGAB (TREAD( J) , AT)

T = TREAD(J)+SIGTR(J)

S = TDEGAB (T, AT)

SIGT(J) = S-TEMP(J)

IF (TEMP(J) .LT. 1.) GO TO 40

IF <ABS(RATE(J)) .LT. l.E-06) GO TO 40

30 CONTINUE

C

C GET ACTIVATION ENERGY

C9
c TDIFF = TEMP (2) -TEMP (1)

TDIFF = ftBS(TDIFF)

IF (TDIFF.lt. 1 .E-01) GO TO 40

T = RATE (2)/RPl TEC 1) IF (T.LT. 1 .E-Ob) GO TO 40

IF (T.GT. l.E+06) GO TO 40

IF (T.LT. 1.) T = l./T

RTEMP = ALOG(T)

ETEMP = TEMP ( 2 ) x-TEMP ( 1 ) /TD I FF

E = Rx:RTEMPx€TEMP

IF (ABS(E).GT.200..OR.ABS(E).LT.l.) GO TO 40

GO TO 90

C

C DISCARD THIS POINT FOR VARIOUS POSSIBLE REASONS

C

40 CONTINUE

IF (NPRINT.GE.S) URITE (NPR INT, 50) I E

' IF (NFILEB.GT.6) URITE (NF ILE3, 50) IE 50 FORMAT (' ACT. ENERGY NUMBER', 13,' DISCARDED')

NERROR =8 . RETURN

90 CONTINUE

E2 - E>t:xc2 C

C GET ASSOCIATED SIGMA

C 1) FROM RATES

C

VRATE = (CSIGR(2)/RATE(2))xcXJ2+CSIGR(l)/RATE(l))>ioK2)XcE

8.2/RTEMPXCXC2

C

C 2) FROM TEMPERATURES

C

VTEMP = ((SIGT(!)/'TEMP(l)>iotc2)>KX<2+(SlGT(2)/TEMP(2)>K>K2)

8cXo«2 ) >kE2X:ETEMP>h*2

C

C COMPUTE TOTAL SIGMA ON E

C

SIGE = SQRT(VRATE+VTEMP)

C

C OUTPUT INITIAL AND CALCULATED VALUES

C

TEMP(l) = TEMP (1) -273. 15

TEMP (2) = TEMP (2) -273. 15

IF (NPRINT.lt. 3)G0 TO 200

URITE <NPRINT,52)

52 FORMAT (/' ACTIVATION ENERGY FROM = ACTIVE =

' 8./6X, 'E' ,2X, 'SIG E' ,2X, 'FACTOR OR RATE '/)

URITE (NPRINT, 1C0)E,SIGE, (TEMP(J) ,SIGT(J) ,RATE(J) ,S1GRCJ) , J = 1,2)

100 FORMAT (2F7.3,F8.2,F6.2,2E13.4/14X,F8.2,F6.2,2E13.4)

110 CONTINUE

C

c

120. URITE (NPRINT, 133)

130 FORMAT (/' CONTRIBUTION OF RATE AND TEMPERATURE TO VARIANCE'

8c,' ( = SIGE>i-K2)'7' RATE TEMP'/)

URITE (NPRINT, 140) \/RATE,VTEMP

140 FORMAT (2E12.3)

200 IF (NFILEB.LE.b)RETURN

URITE (NFILEB,52)

URITE (NFILEB, 100)E,SIGE, (TEMP(J),SIGT(J),RATE(J),SIGR(J),J = 1,2)

URITE (NFILEB, 130)

URITE (NFILEB, 140)VRATE,VTErP

TEMPI = TEMP(l)

TEMP2 = TEMP (2)

SIGTl = SIGT(l)

SIGT2 = SIGT(2)

' RETURN ' END

CIO •
SfiSSM

flVSDN PROG

$FORT

$TRGT 16

C j|oMoloio^5j<>Mc>!oMo)oMc<otoMo|oMoK>K>K>tok>K>MoMciotoMotoMoMoH5MoMo|o|oKi^^ c SUBROUTINE AVSDN(flVE,SD,Q,NVPlU

C

0 >Mo^o!o^o^o4<>K>K>^oK>K>t<>rOk>K^>ioto^o^ofoK>K^K>^<M^<>!oK>K>^oK>^<>K>K>fotoK>lopJt<>k>M^^^<^^ C SUBROUTINE TO CRLCULPlTE RVERftGE RND STP.NDftRD DEVIRTION

C AVE = AVERAGE VALUE

C Q = INPUT VALUES

C SD = STANDARD DEVIATION OF POPULATION OF Q

C NVAL = NUMBER OF VALUES

C

C NEEDS NO COMMON BLOCKS, FUNCTIONS OR SUBROUTINES

C

C RETURNS SD = l.E+06 IF ONLY ONE VALUE IS AVAILABLE

Cc DIMENSION Q(NVAL)

C

C CALCULATE AVERAGE

C

AVE=0.

DO 10 1=1, NVAL

10 AVE=AVE+Q(I)

AVE=AVE/FLOAT(NVAL)

IFCNVAL.GT. 1) GO TO 50

SD=1.0E+06

RETURN

50 SD=0.

C

C CALCULATE STANDARD DEVIATION

C

DO 40 1=1, NVAL

40 SD=SD+(AVE-Q(I))>ioi:2

SD=SQRT(SD/(FLOAT(NVAL-l)))

RETURN

END

Cll
sftssri

CHISQ PROG

SPORT

STRGT 16

C >K>ioKHoK>k3»<>|oMoMo|c>MotoK>fojoK5K>Mc>K5fc<oK>K>K>K>MoK>loK>K5!c>|oMoMotc^^ c SUBROUTINE CHISQ(P,SP,XSQ,N)

C

C SUBROUTINE TO CALCULATE REDUCED CHI SQUARE FOR N INPUT VALUES.

C P = INPUT VALUES

C SP =• STANDARD DEVIATIONS OF P VALUES

C XSQ = CHI-SQUARE VALUE FOR P AND SP ARRAYS

C N = NUnSER OF P VALUES

C

C NEEDS NO COmON BLOCKS, FUNCTIONS OR SUBROUTINES

C

DIMENSION P(N),SP(N)

ftVE=0.

C

C CALCULATE AVERAGE

C

DO 10 1=1,

N

10 AVE=AVE+P(I)

AVE=AVE/FLOAT(N)

XSQ=0.

IF (N.LE.l) RETURN

C

C CALCULATE CHI SQUARE

C

DO 20 I=1,N

20 XSQ=XSQ+((AVE-P(I))/SP(D)>H>K2

XSQ=XSO/FLOATCN-l)

RETURN

END

SASSM

FCTN PROG

SPORT

STRGT 16

C

C

FUNCTION FCTN (X, I, J, JTERMS,NPTS)

C

C

C FUNCTION TO CALCULATE FITTED VALUES FOR REGRES SUBROUTINE

C

c DIMENSION X(NPTS) . JTERMS(J)

JEXP=JTERMS(J)

FCTN=X(D>K>kJEXP

RETURN

END

C12
SASSM

EREAD PROG

SPORT

STPGT 16

C :MoK5t:*5k>K5tok)Wo(o|oK:1o|oK5|oWc4o<KHo»«3foK3K3MOfOfoMoK3t«oMoMo»oto»^^ c SUBROUTINE EREAD ( IDOLD. E. S IGE, SUT, DOC', NDATA. INDATA . NERROR)

C

Q )(oioMoK5;'^;MoK>K>iojoK>!o|<>t<>|oK>K>tclo^>K’K>tc>toK5foK5»oMoM<>loK>MoK>)<>'':;to|oK5MoMoK3to*ot^^ c

C SUBROUTINE TO READ IN E/SIGE FILE FROM TGRUNF

C NEEDS COMMON /lO/ NTTYI , NTTYO. IN, NPR INT, NF ILEA, NF ILEB

C AND FUNCTION READX

C

COMMON DUMP (275)

EQUIVALENCE (NTTYI , DUMP ( 1 ) ) , (NTTYO, DUMP (2) ) , ( IN,DUMP (3)

)

& . (NPRINT,DUMP(4) ) , (NFILEA,DUMP(5) ) , (NFILEB,D'JM?(6) ) C

DIMENSION IDOLD(l),E(l),SIGE(l),SUTCl),DOC(l)

C

C NDATA IS INITIALISED NEAR DIMENSION STATEMENT IN MAIN PROGRAM

C

NDO = NDATA

NDATA = 0

C

C READ IN E/SIG E FILE (5 RECORDS PER ACTIVATION ENERGY)

C

DO 10 I = l,NDO

J •= READX (IU,NERROR,3, IN,NTTYO, lEOF)

C

C TEST FOR EOF

C

IF (IECF.GT.0)GO TO 20

NDATA = NDATA+1

IDOLD(NDATA) = I E(NDATA) = READX ( lU, NERROR, 1 , IN, NTTYO, lEOF)

SIGE(NDATA) = READX ( IU,NERROR, 1, IN, NTTYO, lEOF)

A = READX (IU,NERROR, 1, IN, NTTYO, lEOF)

SUT(NDATA) = READX ( lU, NERROR. 1 , IN, NTTYO, lEOF)

IF ( INDATA. EQ. 1) DOC (NDATA) = READX ( lU.NERROR, 1, IN, NTTYO, lEOF)

C

C SPACE OVER REST OF RECORDS FOR THIS ACTIVATION ENERGY

C

DO 15 K = 1,4

15 A = READX ( lU.NERROR, 3, IN, NTTYO, lEOF)

10 CONTINUE

20 CONTINUE

RETURN

END

C13
$ASSM

milNV PROG

SPORT

STRGT 16

C )(cloKX<>|oJc>f3K>foloK>loK>ic+o|ofc>!oK;lolotoic>loMofofotc>K5W<>totoMcicK^^ c SUBROUTINE MATINV (ARRAY, NORLER,DET)

C

C 5tcVo(<>!<)foK>K>ic>K;K>i^5|'.xr^of;:K^);<>tr4c>(;>K>{ofo!cfr>)otoloti>K>;<>(c<o)CK>Mok>}o|oH;K>K:+c>^^

C SUBROUTINE FOR MATRIX INVERSION

C

DOUBLE PRECISION ARRAY, AMAX, SAVE

DIMENSION ARRAY(5,5), IKC5),JK(5)

DET=1.

DO 190 K=l,NORDER

C

C FIND LARGEST ELEMENT ARRAY(I,J) IN REST OF MATRIX

C

AMAX=0.

10 DO 30 I=K,NORDER

DO 30 J=K,NORDER

IF (DABS(AMAX)-DABS(ARRAY(I,J))) 20,20,30

20 AMAX=ARRAY(I,J)

IK(K)=I

JK(K)=J

30 CONTINUE

C

C INTERCHANGE ROUS AND COLUMNS TO PUT AMAX IN ARRAY(K,K)

C

IF (AMAX) 50,^0,50

40 DET=0.

50

60

70

80

90

GO TO 260

I=IK(K)

IF (I-K) 19,80,60

DO 70 J=l,NORDER

SAVE=ARRAY(K. J)

ARRAY(K, J)=ARRAY(I,J)

ARRAY(I,J)=--SAVE

J=JK(K)

IF (J-K) 10,110,90

DO 100 I=1,NCRDER

SAVE=ARRAY(I,K)

ARRAY(1,K)=ARRAY(I,J)

100 ARRAYd, J)=-SAVE

C

C ACCUMULATE ELEMENTS OF INVERSE MATRIX

C

110

120

130

140

150

DO 130 I=l,NORDER

IF (I-K) 120,130,120

ARRAY( I , K) =-ARRAY( I , K) /AMAX

CONTINUE

DO 160 I=1,N0RDER

DO 160 J=1,N0RDER

IF (I-K) 140,160,140

IF (J-K) 150,160,150

ARRAY(I,J) =ARRAY(1.J)+ARRAY(I,K)H-ARRAY(K, J)

C14
160 CONTINUE

DO 180 J=l,NORDER

IF (J-K) 170,180.170

170 ARRAY(K,J)=fiRRfiY(K,J)/fimX

180 CONTINUE

flRRflY(K,K) = l./AmX

190 DET=DET>t:fimX

C

C RESTORE ORDERING OF MATRIX

C

DO 250 L=l,NORDER

K=NORDER-L+l

J-IK(K)

IF (J-K) 220,220,290

200 DO 210 I=l,NORDER

SAVE=ARRAYCI,K)

ftRRAY( I , K) =-fiRRAY( I , J)

210 ARRAY(I,J)=SflVE

220 I=JK(K)

IF (1-K) 258,250,230

230 DO 240 J=l,NORDER

SAVE=ftRRAY(K,J)

ftRRAY(K,J)=-ARRAY(I,J)

240 fiRRAYC I, J)=SflVE

259 CONTINUE

260 RETURN

END

CIS
sflssn

NORPPF PROG D124:N0RPPF.FTN

SFORT

SUBROUTINE NORPPF (P.PPF)

Cc

c

c

c

c

c

c

cc

c

cc

cc

cc

cc

c

cc

cc

cc

cc

c

c

cc

c

c

c

c

c

cc

c

cc

c

c

c

c’c

c

c

cc

c

PURPOSE--THIS SUBROUTINE COMPUTES THE PERCENT POINT

FUNCTION VALUE FOR THE NORmL (GAUSSIAN)

DISTRIBUTION UITH MEAN = 0 AND STANDARD DEVIATION - 1. THIS DISTRIBUTION IS DEFINED FOR ALL X AND HAS

THE PROBABILITY DENSITY FUNCTION

F(X) = (l/SQRT(2>;^PI))'KEXP(-X>xX/2) . NOTE THAT THE PERCENT POINT FUNCTION OF A DISTRIEUTICN

IS IDENTICALLY THE SAME AS THE INVERSE CUMULATIVE

DISTRIBUTION FUNCTION OF THE DISTRIBUTION.

INPUT ARGUMENTS--P = THE SINGLE PRECISION VALUE

(BETWEEN 0.0 AND 1.0)

ftT WHICH THE PERCENT POINT

FUNCTION IS TO BE EVALUATED.

OUTPUT ARGUMENTS--PPF = THE SINGLE PRECISION PERCENT

POINT FUNCTION VALUE.

OUTPUT--THE SINGLE PRECISION PERCENT POINT

FUNCTION VALUE PPF.

PRINTIMG--NONE UNLESS AN INPUT ARGUMENT ERROR CONDITION EXISTS.

RESTRICTIONS—P SHOULD BE BETWEEN 0.0 AND 1.0. EXCLUSIVELY.

OTHER DATAFA.C SUBROUTINES NEEDED—NONE.

FORTRAN LIBRARY SUBROUTINES NEEDED—SORT. PLOG.

MODE OF INTERNAL OPERATIONS—S INGLE PRECISION.

LANGUAGE—ANSI FORTRAN.

REFERENCES—ODEH AND EVANS. THE PERCENTAGE POINTS

OF THE NORMAL DISTRIBUTION. ALGORTIHM 70.

APPLIED STATISTICS, 1974, PAGES 9S-97.

—EVANS. ALGORITHMS FOR MINIMAL DEGREE

POLYNOMIAL AND RATIONAL APPROXIMATION.

M. SC. THESIS, 1972. UNIVERSITY

OF VICTORIA, B. C,. CANADA.

—HASTINGS, APPROXIMATIONS FOR DIGITAL

COMPUTERS. 1955, PAGES 113, 191, 192.

—NATIONAL BUREAU OF STANDARDS APPLIED MATHEMATICS

SERIES 55. 13S4. PAGE 933, FORMULA 25.2.23. —FILLIBEN. SIMPLE AND ROBUST LINEAR ESTIMlATION

OF THE LOCATION PARAMETER OF A SYi'-lMETRIC

DISTRIBUTION (UNPUBLISHED PH.D. DISSERTATION.

PRINCETON UNIVERSITY), 1963. PAGES 21-44, 229-231. —FILLIEEN. 'THE PERCENT POINT FUNCTION'.

(UNPUBLISHED MANUSCRIPT), 1970, PAGES 28-31.

—JOHNSON AND KOTZ. CONTINUOUS UNIVARIATE

DISTRIBUTIONS— 1. 1970, PAGES 40-111.

—THE KELLEY STATISTICAL TABLES, 1948.

—OWEN. HANDBOOK OF STATISTICAL TABLES,

1962, PAGES 3—16.

—PEARSON AND HARTLEY, BIOMETRIKA TABLES

FOR STATISTICIANS, VOLUME 1, 1954,

PAGES 104-113.

COMMENTS—THE CODING AS PRESENTED BELOW

IS ESSENTIALLY IDENTICAL TO THAT

PRESENTED BY ODEH AND EVANS

C16
o

o

o

non

o

o

n

o

no

on

no

n

o

o

no

o

o

noo

o

oo

o

o

n

o

fiS PILGORTIHM 70 OF fiPPLIED STOtlSTICS.

THE PRESENT H JTHCR HAS MOD IF I ED THE

ORIGINAL ODEH AND EVANS CODE UITH ONLY

MINOR STYLISTIC CHANGES.

—AS POINTED OUT BY ODEH AND EVANS

IN APPLIED STATISTICS,

THEIR ALCCRITnM REPRESENTES A SUBSTANTIAL iriPROV'EMENT OVER THE

PREVIOUSLY EMPLOYED

HASTINGS APPROXIMATION FOR THE

NORMAL PERCENT POINT FUNCTION—

THE ACCURACY OP APPROXIMATION

BEING IMPRQ-VED FROM 4. 5>f:( 10:f^-4)

TO 1.5’*:(10H=*:-3) . URITTEN BY—JAMES J. FILLIEEN

STATISTICAL ENGINEERING LABORATORY (295.03)

NATIONAL BUREAU OF STANDARDS

UASHINGTCN, D. C. 20234

PHONE: 301-521-2315

ORIGINAL VERSION—JUNE 1972.

UPDATED —SEPTEMBER 1975.

UPDATED —NOVEMSER 1S75.

’ UPDATED —OCTOBER 1976.

DATA P0,P1,P2,P3.P4

1/-. 32223243 I8SS.- 1.0,

1 - . 342242CSS547 , - . 20423 1 2 1 8245E- 1

,

1 4536422 1G14SE-4/

DATA C0,Q1,C2,G3.G4

1/. 993434S26060E- 1 , . f SE5S 1 570495,

1 .53 1 103452366, . 103537752350,

1 .385697006346-2/

IFR=6

CHECK THE INPUT ARGUMENTS FOR ERRORS

IF(P.LE.0.0.OR.P.GE. 1.0)GOTO50

GOTOS0

50 LRITECIPR, 1)

URITE(IPR.45)P

RETURN

90 CONTINUE

1 FORKATCIH ,115H-rowc^ FATAL ERROR—THE FIRST INPUT ARGUMENT TO THE

1 NORFPF SUBROUTINE IS OUTSIDE THE ALL0LH3LE (0,1) INTERVAL

46 FCRMATdH , TrE VALUE OF THE ARGUMENT IS ,E15.8,6H >»o>oiciotc)

IF (P.NE. 0,5) GOTO 150

PPF=a.B

RETURN

C

150 R=P

IF(P.GT.0.5)R=1.0-R

T*=SQRT(-2 . 0>^ALOG (R)

)

ANUn=( ( ( (T>J^»4+P3) -*T+P2)5^T+PI )>tcT+P0)

ADEN=(( ( (T>?C!4+Q3)5»:T+G2)*T+ai)3ttT+Q9)

PPF*=T+(ANUM/ADEN)

IF(P.L7.0.5)PPF=-PFF

RETJRN

C

END

C17
ODD

non

ono

ooono

on

SflSSM

OVERLY PROG

SPORT

STRGT 16

SUBROUTI HE OVERLY ( NPROG , NUN I T, HRE'J I N , NTTYO

)

:MoJc{c>K5foi;>!o{oioMc<<^(OK>fo^otc>fr,fo(o(<i*c^Jofcic4c>ioK>o!ofc>K><c<otoK>fcic<o^^

SUBROUTINE TO REPD IN OVERLPiY SEGMENT FROM UNIT NUN IT

TRY 3 TIMES IF OVERLPiY IS PT BEGINNING OF FILE

INTEGER*2 NPR0GC3)

30 NTIME=1

REUIND INPUT UNIT IF PPPROPRIPITE, READ IN OVERLAY SEGMENT

10 IF(NREUIN.EQ.0)REUIND NUNIT

CALL IFETCHCHPROG, NUNIT, ISTAT)

IFdSTAT.EQ.aiRETURN

NTIME=NTIME+1

IF(NTIME.LE.3.AND.NREUIN.EQ.0)GO TO 10

ERROR -ROUTE

UR I TE ( NTTYO . 20 ) NPROG . NUN IT

20 FORMATC' CANNOT READ IN OVERLAY ',3A2,' FROM LOGICAL UNIT', 13)

REPEAT AFTER =CONTINUE= GIVEN BY OPERATOR

PAUSE

GO TO 30

END

C18
SASSM

PRIMTR PROG

$FORT

STRGT 16 c SUBROUTINE PR IMTR (NLOOPY. NLOOP. INDOTfi)

C

C

C SUBROUTINE TO INITIALISE TG DATA PROCESSING PROGRAnS

C

C NEEDS SUBROUTINE READX

C

C AND COnnON BLOCKS /lO/ NTTYI ,NTTYO, IN,NPRINT,NFILEA,NFILEB

C

COMMON DUMP (275)

EQUIVALENCE (NTTYI . DUMP

(

1 ) ) , (NTTYO, DUMP (2)

)

, ( IM,DUMP(3))

8. , (NPRINT,DUMP(4) ) , (NF ILEA. DUMP (5) ) , (NF ILEB. DUMP (6)

)

C

NLOOPY=0

C

C INITIALISE FILES, ETC.

C

NTTYO = 4

NTTYI = 5

IN = 7

NPRINT = 6

NFILEB = 9

DO 5 I = 1,5

5 MCI) = I C

C

URITE (NTTYO, 10) IN 10 FORMAT (/' TGTRIM PROGRAM'

8, /' READ INPUT DATA FROM FILE', 13)

URITE (NTTYO, 20) NPRINT

20 FORMAT (5H FILE,I4,14H IS FOR OUTPUT)

LOOPY = 0

URITE (NTTYO, 40)

40 FORMAT (' GIVE NUMBER OF FILES TO EXAMINE (IN FREE FORMAT)')

NLOOP = READX ( IIJ, NERROR, 3, NTTYI , NTTYO, lEOF)

URITE (NTTYO, 60) NLOOP

60 FORMAT (' EXAMINE'

,

14, ' FILES') ^ URITE (NTTYO, 80)

80 FORMAT (/' GIVE 0 FOR RATE DATA INPUT'

8./' 1 FOR E/SIG E INPUT (OUTPUT OF TGRUNF)'

8./' UITH DEGREES OF CONVERSION IN FILE'

2 FOR E/SIG E INPUT UITH D.O.C. TO BE CALCULATED' . 8./' NEEDS INITIAL AND FINAL SAMPLE UEIGHTS'

a/' AS THIRD LINE OF FILE')

INDATA = READX ( lU, NERROR, 3, NTTYI , NTTYO, lEOF)

100 CONTINUE

RETURN

END
$ftSSM

READEM PROG

SPORT

STRGT 16 c SUBROUTINE READEMCHTIME, TREAD, S IGT, RATE, S IGR, ID,NDATA)

C

c

C SUBROUTINE TO READ RAU DATA

C NEEDS COMMON /ICi/ NTTYI , NTTYO, IN, NPR INT, NF ILEA, NF ILEB

C

COMMON DUMP (275)

EQU I VALENCE ( NTTY I , DUMP (!)),( NTTYO , DUMP ( 2 ) ) , ( I N , DUMP C 3 )

)

&• , (NPR INT, DUMP (4) ) , (NF ILEA, DUMP (5) ) , (NF ILEB, DUMP (b) ) . C

DIMENSION NTIME(1),TREAD(1, 1),SIGT(1, 1 ) , RATE ( 1 , 1 )

,

& SIGRd, 1), ID(1)

C

C

IF (NFILEB.GT.6) WRITE (NFILEB,10)

IF (NPRINT.GE.3) WRITE (NPRINT, 10)

10 FORMAT (4bH TIME THCPL SIG THCPL RATE,

& 12H SIG RATE/)

NERROR = 0

NDO=NDATA

NDATA = 0

DO 59 I = l,NDO

NTIME(I) = READX(IW,NERR0R,3, IN,NTTYO, lEOF)

IF (IEOF.GT.0) GO TO 60

TREAD(1,I) = READX( IW, NERROR, 1, IN, NTTYO, lEOF)

SIGT(1,I) = READX(IW,NERROR, 1, IN,NTTYO, lEOF)

RATE(1,I) = READX( IW, NERROR, 1, IN, NTTYO, lEOF)

SIGRd, I) = READX( IW, NERROR, 1, IN, NTTYO, lEOF)

TREAD(2,I) = READXdW, NERROR, 1, IN, NTTYO, lEOF)

SIGT(2,I) = READX( IW, NERROR, 1, IN, NTTYO, lEOF)

RATE (2, I) = READX( I W, NERROR, 1, IN, NTTYO, I EOF)

S I GR ( 2 , I ) = READX ( I W, NERROR , 1 , I N , NTTYO , I EOF

)

IF (NFILEB.GT.S) WRITE (NF ILEB, 30) NTIME ( I ) , (TREAD ( J, I ) , S IGT( J, I

)

8=,RATE(J, I),SIGR(J, I),J = 1,2). IF (NPRINT.GE.3) WRITE (NPR INT, 30) NTIME (I ) , (TREAD ( J, I ) , S IGTC J, I

)

&,RATE(J, I),SIGR(J, I) , J = 1,2)

30 FORMAT dl0,4E12.4/10X4E12.4)

C

C PUT THERMOCOUPLE READING IN MILLIVOLTS

C

DO 40 J = 1,2

TREAD(J,I) = TREAD(J, I)>K1000.

40 SIGT(J,I) = SIGT(J, DxMOee.

ID(I) = I NDATA = NDATA+1

50 CONTINUE

60 RETURN

END

C20
SflSSM

REGRES PROG

$FORT

$TRGT 16

C

C >|oMoMo|ofc>ioMojo!oMo|oK5MoicMoto*r.4C)MoMoMo»ofoK>totoK>Mo|OMc4oMoK;^^ c SUBROUTINE REGRES «:X,Y.SIGMBY,NPTS,NTERriS,ri,raDE,YFIT,flO, A,SIGMAO,

2 SIGMAA,R,RmL,CHISQR,FTEST)

C

C >K5toK5}ok>iof»K>KJt»|oK>H>K5K5K>K>toK>K>(c>fc4c4c>io(o|o(oMOfOK>K>loK>(otoKJMc<oK>Mo)^^ c

C NEEDS THE FOLLOUING FUNCTION AND SUBROUTINE:

C FCTN

C MATINV

Cc DOUBLE PRECISION ARRPY.SUM.YMEAN. SIGMA, CHISQ.XnERN.SIGMAX

DIMENSION X(NPTS) ,Y(NPTS),SIGMAY(NPTS),M(5),YFIT(NPTS)

&,SIGMAA(5),R(5),A(5)

DIMENSION UEIGHT(250),XMEAN(5),SIGMAX(5),ARRAY(5,5)

C

C INITIALIZE SUMS AND ARRAYS

C

SUM=0.

YMEAN=0.

SIGMA=0.

CHISQ=6.

RMUL=0.

DO 10 I=1,NPTS

10 YFIT(I)=0.

IF (NTERM3.LE.0) GO TO 30

DO 20 J=1,NTERMS

XMEAN(J)=0.

S1GMAX(J)=0.

R(J)=0.

A(J)=0.

SIGMAA(J)=0.

DO 20 K=1,NTERMS

20 ARRAY(J,K)=0.

30 CONTINUE

C

C ACCUMULATE WEIGHTED SUMS

C

DO 110 I=1,NPTS

IF (MODE) 40,78,80

40 IF (YCD) 60,70,50

50 UE1GHT(I)=1./Y(I)

GO TO 90

60 IlEIGHT(I)=1./'(-Y(I))

GO TO 90

70 UEIGHT(I)=1.

GO TO 90

80 UEIGHT(I)=1./SIGMAY(I)hok2

90 SUM=SUM+UEIGHT( I)

YTEAN*=YMEAN+UE IGHT( I ) ^Y< I )

C21
IF (NTERMS.LE.0) GO TO 110

DO 100 J=l,NTERhS

100 XMEPN ( J ) =XHEPIN ( J) -HJE I GHTC I ) HcFCTN (X. I , J, M, NPTS

)

110 CONTINUE

YMEftN=YMEftH/SUri

IF (NTERrl3.LE.0) GO TO 130

DO 120 J=1,NTERMS

120 XriEAN(J)=XMEfiN(J)/SUM

130 CONTINUE

FNPTS=NPTS

UMEftN=SUM/FNPTS

DO 140 1=1, NPTS

.140 UEIGHTn)=UEIGHT(I)/lJnEftN

C

C ftCCUMULfiTE MATRICES R AND ARRAY

C

DO 150 1=1, NPTS

S I GMA =S I GMA+lJE I GHT ( I) ( Y ( I) -YMEAN

)

IF (NTERMS.LE.0) GO TO 160

DO 150 J=1,NTERMS

S1GMAX<J)=SIGMAX(J)+UE1GHT(I)>k(FCTN(X, I,J,M,NPTS)-XMEAN(J))^2

R ( J ) =R ( J ) +UE I GHT ( I) '-K C FCTN X, I , J , M, NPTS ) -XMEAN ( J ) ) ( Y ( I) -YTEAN

)

DO 150 K=1,J

ARRAY(J,K)=ARRAY(J.,K)+UEIGHTn)>K<FCTN(X, I, J,M,NPTS)-XMEAN(J)

)

2 *(FCTN(X, I,K,M,NPTS)-XMEAN(K))

150 CONTINUE

1S0 CONTINUE

FREE1=NPTS-1

SIGMA=DSQRT(SIGMA/FREE1)

IF (NTERMS.LE.0) GO TO 180

DO 1?0 J=1,NTERMS

SIGMAX(J) =DSQRT(SIGMAX(J)/FREE1)

R(J)=R(J)/(FREE1>»<SIGMAX(J)>KSIGMA)

DO 1T0 K=1,J

ARRAY(J,K)=ARRAY(J,K)/(FREE1>kSIGMAX(J)>kSIGMAX(K))

170 ARRAY(K,J)=ARRAY(J,K)

160 CONTINUE

C

C INVERT SYMMETRIC MATRIX

C

IF (NTERMS.LE.0) GO TO 230

CALL MATINV ( ARRAY, NTERMS,DET)

IF (DET) 203,190,203

190 AO=0.

SIGMAO=0.

R«UL=0.

CHISQR=0.

FTEST=0.

GO TO 330

C

C CALCULATE COEFFICIENTS, FIT, AND CHI SQUARE

C

200 AO=YMEAN

IF (NTERMS.LE.0) GO TO 230

DO 220 J=1,NTERMS

DO 210 K=1,NTERMS

C22
210

fl(J)=A(J)«<SIGm/SIGri?^X(J)

fiO=ft3-ftU)5l:>':MEnN(J)

DO 220 I=1,N?TS

220 YFIT(n=YFIT(I)+A(J)H:FCTN(X, I,J,M,NPTS)

230 CONTINUE

DO 249 I=1.NPTS

YF1T(I)=YFIT(I)+P0

240 CHISQ=CHISQ+'JEIGHT( I)>K(Yn)-YFIT(I)'>>iof<2

FREEN=NPTS-NTERriS-l

CHISQR=CHISQ>i:UMEftN/FREEN

C

C CALCULATE UNCERTAINTIES

C

IF (MODE) 250,260,250

250 VARNCE=1 ./UMEAN

GO TO 270

260 VARNCE=CHI5QR

270 IF (MTERMS.LE.0) GO TO 290

DO 280 J=1,NTERMS

S I GMAA C J ) =ARRA Y ( J , J ) McS/flRNCE/ C FREE 1 ^I GriAX (

J

) ) SIGMAA(J)=SnRT(S!GriAA(J))

280 RtiUL=RnUL4A(J)>;<R(J)H--SlGmX(J)/SIGm

FREEJ=N7ERMS

FTEST=(RMUL/FREEJ)/((l.-RmL)/FREEN)

RMUL=SQRT(Ri1UL)

GO TO 563

290 CONTINUE

FREEJ=0.

FTEST=0.

RMUL=0.

300 SIGMAO=VARNCE/FNPTS

IF (NTERnS.LE.0) GO TO 323

DO 310 J=1,NTERMS

DO 310 !< = 1,NTERI1S'

310 SIGmO=SIGMAO+VHRNCE>KXMEAN(J)><<XnEAN(K)>KARRAY(J,K)/(FREEl^IGriA

2X(J)>.6IGf!AX(K))

320 SIGMAO=SQRT(SIGMAO)

330 RETURN

END

C23
$ASSM

READX PROG

SPORT

FUNCTION REfiDX( IUORD,N,NP,NTTYI,NTTYO- lEOF)

C

C $$S$SS$$$$ VERSION OF MAR 9,1977

C

C FUNCTION READX USUALLY RETURNS THE NEXT DECIPHER IDLE NUMBER ON THE

C INPUT FILE =NTTYI= AS THE VALUE OF THE VARIABLE READX.

C ANY OUPUT, SUCH AS ERROR MESSAGES OR THE PROrPT CHARACTER,

C IS ON UNIT NTTYO.

C

C IU= ALPHANUMERIC INFORMATION OF THE FIRST 1 OR 2 ILLEGAL NON-NUMER ICAL

C INFORMATION ON INPUT FILE NTTYI.

C N=0 MEANS NUMERICAL INFORMATION SUCCESSFULLY PROCESSED;

C N=1 CHECK lU LORD FOR NON-NUMERICAL INFORMATION.

C (READX=1. IN THIS CASE).

C NP=1 SEND ! AS A PROMPT CHARACTER UHEN NEU RECORD REQUIRED.

C NP=2 READ A NE'J RECORD.

C NP=3 DO BOTH THE ABOVE.

C NTTYI= INPUT UNIT

C NTTYO= OUTPUT UNIT FOR PROMPT CHARACTER AND ERROR MESSAGES.

C IEOF=0 END OF FILE NOT YET REACHED ON UNIT NTTYI.

C IEOF=l END OF FILE FOUND ON NTTYI.

C

C ILLEGAL INFORMATION:

C

C IF FIRST CHARACTER IS NOT A BLANK, COMMA, POINT, MINUS, OR

C ft NUMBER, THE FIRST 2 ILLEGAL CHARACTERS ARE RETURNED IN =IU=.

C ^

C • LEGAL INFORMATION:^^

C

C LEADING BLANKS ARE IGNORED.

C LEADING COMMAS ARE IGNORED.

C DECIMAL POINTS AND EXPONENTIAL TYPE NUMBERS ARE TREATED CORRCECTLY.

C $ ON THE INPUT FILE IS PRESUMED TO PRECEED AN IN-LINE COMMENT AND

C CAUSES READING OF A HEU RECORD.

C NUMBERS ARE TERMINATED BY A BLANK, COMMA, OR BY THE END OF A RECORD.

C

C

C READX UAS ORIGINALLY IJRITTEN BY FRANK MCCRACKIN (MBS) AND UA3 MODIFIED

C BY FRED M0P3IK AND BY BRIAN DICKENS. (JAN 1977)

C

Cc

INTEGER BRANCH

INTEGER>k2 CD,DEC,1U2,N1,J,IEXP,IEXP1

LOGICAL ISIGNE

DIMENSION CD(83),DEC(10),TEN(10),TENTEN(10)

DATA DEC/'0','r,'2',*3','4','5','6','7','8',’9'/

DATA TEN/1., l.El, 1.E2, 1.E3, I.E4, 1.E5, 1 . E6, 1 . E7, 1 . E8, 1 . E9/

DATA TENTEN/l.,l.E10,l.E20,l.E30,l.E4a,l.E5O,l.E60,3*l.E70/

DATA Nl/81/

IF (NP.EQ.2.0R.NP.EQ.3) N1 - 81

.lEOF « 0

N » 0

C24
SIGN - 1. X - 0.

Y - 1. YJ » 0.

C

C FIND FIRST CHftRftCTER

C

15 IF (N1.GT.80) GO TO 1300

IF (CD(NI) GO TO 1000

ASSIGN 16 TO BRANCH

GO TO 2000

16 GO TO (43, 100,30,20,20,300) . IP

20 N1 = Nl+1

GO TO 15

C SET SIGN

30 SIGN = -1.

N1 = Nl+1

GO TO 15

C

C CALCULATE NUMBER

C

43 X = J

50 N1 = Nl+1

IF (N1.GT.30) GO TO 273

IF (CD(Nl) .EQ.'E') GO TO 50

. ASSIGN 70 TO BRANCH

GO TO 2000

70 GOTO (75, 100,205,200,270,273), IP

75 X «= X>X10.+J

GO TO 50

C

C CALCULATE FRACTION

C

100 CONTINUE

110 N1 = Nl+1

IF (N1.GT.B0) GO TO 273

IF (CD(Nl) .EQ.'E') GO TO 110

ASSIGN 125 TO BRANCH

GO TO 2008

125 GO TO (133,3055,205,200,270,270), IP

130 YJ = 10.W+J

Y « 10.>xY

GO TO 110

C

C CALCULATE EXPONENT I EXP

C

200 ISIGNE = .FALSE.

lEXP = 1 lEXPl = 1 GO TO 210

205 ISIGNE = .TRUE.

lEXP = 1 lEXPl = 1 210 N1 Nl + 1 IF (N1.GT.80) GO TO 250

ASSIGN 220 TO BRANCH

C25
GO TO 2000

220 GO TO (230,250,250,250,250.250), IP

230 lEXPl = lEXP

lEXP = J+1

GO TO 210

250 IF (ISIGNE) GO TO 260

READX = SIGN»;(X+YJ/Y)>f:TEN<IEXP)>KTENTEN(IEXPl)

N = 0

RETURN

260 READX = SIGN>K(X+YJ/Y)/(TEN( IEXP)>KTENTEN( lEXPl) ) N = 0

RETURN

2?0 READX = SIGN><<(X+YJ/Y)

N « 0

RETURN

C

C RETURN fiLPHft fiRG

C

300 IU2 = CD(Nl)

N1 »= Nl+1

IF (N1.GT.80) GO TO 302

IF (CD(Nl).EQ.' ' .OR. CDCNl ) .EQ. '

,

' .OR. CD(Nl) .EQ. 'S' ) GO TO 302

IU2 = IU2-X'20'+CD(N1)/X' 100'

N1 = Nl+1

302 lUORD = IU2

- N = 1 REfiDX =1.

RETURN

3055 URITE (NTTYO,3056)N1

3056 FORMftTC' 2d . AT COL.', 13)

GO TO 270

1000 N1 = 1 IF (NP.EQ. 1.0R.NP.EQ.3) URITE (NTTYO, 1020)

1020 FORMATC' !')

READ (NTTYI-, 1010, END = 9000) CD

1010 FORriAT(60Al)

GO TO 15

C

C CHARACTER INTER? . ROUTINE

C

2000 DO 2010 J = 1,10

IF (CDCNl) .EQ.DEC(J)) GO TO 2020

2010 CONTINUE

IP » 6

IF (CDCNl) .EQ.' .') IP « 2

IF (CDCNl). EQ.'-') IP - 3

IF (CDCNl) .EQ.'+') IP = 4

IF (CDCNl). EQ.' ' .OR. CD CNl ) .EQ . ' ,' ) IP - 5

GO TO 2030

2020 IP » 1 J » J-1

2030 GO TO BRANCH

9000 lEOF = 1 RETURN

• END

C26
sftssn

S0RT3 PROG

SFORT

STRGT 16

C

SUBROUTINE S0RT3 (A,B,C,N)

C

c

c

C THIS SUBROUTINE SORTS P 1-DIMENSIONAL ARRAY

C <A) AND THE ARRAYS (B) AND (C) INTO AN ORDER BASED

C ON THE ELEMENTS IN ARRAY (A).

C

DIMENSION A(N),B(N),C(N)

C

IF (N.LE.l) RETURN

DO 20 I = 2,N

IMl = I-l

DO 10 J = 1, IMl

JJ = I-J

IF (A(JJ) .LE.A(JJ+D) GO TO 20

X = A(JJ)

A(JJ) = ACJJ+l)

A(JJ+1) = X

X = B(JJ)

B(JJ) = B(JJ+1)

B(JJ+n = X

X = C(JJ)

C(JJ) = CCJJ+l)

C(JJ+1) = X

10 CONTINUE

20 CONTINUE

RETURN

END

C27
sftsbn

TDEGAB PROG

SPORT

STRGT 16

c FUNCTION TDEGflB (T,PlT)

C

C 5{C3MoK>!ofo|oKJMoK5io(Ci|oK>KMoM<>)o»fcioMot=>ioMc>McMc<o|o|oMoMoK5f=^^ cC FUNCTION TO CPiLCULftTE TEMPERPITURE IN DEGREES ABSCLUTE

C FROM THERMOCOUPLE READING

C

DIMENSION AT(4)

C

TP « 0

DO 10 K = 1,4

10 TP = TP+ATa<)>!<T'’r:^<K

TDEGAB = TP+273.15

RETURN

END
sflssri

THMPLS PROG

SPORT

STRGT 15

C >K;K>|oi<>loK:4o!oM<>to)oK>foMofoH>K>K;loiG<oK5ioicioKJtoM!XoK5tc<oMo<oMo(oK>K>Mo|otDMoMoK5M^^ c SUBROUTINE THMCPL CRT)

C

C 5(oK>l<>K>ioMoK>MoK>K>f<5)<5t;>t;>ioto(oK5^cictc>iclofofoK^>to)c>;oKiK>|cK>!oK>K>toiofoK5K>MoK>f^^ c

C SUBROUTINE TO REPD THERMOCOUPLE TYPE RND PROVIDE COEFFICIENTS FOR

C CONVERSION OF THERMOCOUPLE READINGS IN MICROVOLTS TO DEGREES CELCIUS

C NEEDS COMMON /lO/ NTTYI , NTTYO. IN, NPR INT, NF ILEA, NF ILEB

C

COMMON DUMP (275)

EQUIVALENCE (NTTYI , DUMP C 1 ) ) , (NTTYO, DUMP (2) ) , ( IN, DUMP (3)

)

• 8. ,(NPRINT,DUMP(4)),(NF1LEA,DUM?(5)),(NFILE3,DUMP(6))

C

DIMENSION AT(4)

C

C

URITE CNTTYO,10)

10 FORMAT (/' GIVE THERMOCOUPLE TYPE, K OR E')

20 READ (NTTYI,39) NTHC?

30 FORMAT (Al)

ITHCP = 4

IF (NTKCP.EQ.'K') ITHCP = 1 IF (NTHCP.EQ.'E') ITHCP = 2

GO TO (40,60,80,90), ITHCP

C

C TYPE K THERMOCOUPLE, VALUES FROM TABLE A7.2.3,NBS MONO. 125

C

IF (NFILEB.GT.6) URITE (NFILEB,50)

40 IF (NPRINT.GE.3) URITE (NPRINT,50)

50 FORMAT (/52H TYPE K THERMOCOUPLE = N I-CR/r-l I-AL, EXPRESS IONS GOOD /

8.,4CH TO 400 DEGREES C. (TABLE A7,NSS MONO. 125, 1974)

)

AT(1) = 2.438324BE-02

AT<2) = 9.7S30251E-09

AT(3) = 3.6276965E-12

AT(4) = -2.5756438E-16

GO TO 110 . - C

C TYPE E THERMOCOUPLE

C

IF (NFILEB.GT.6) URITE (NFILEB,70)

60 IF (NPRINT.GE.3) URITE (NPRINT,7B)

70 FORMAT (/52H TYPE E THERMOCOUPLE = N

I -CR/CU-H I, EXPRESS IONS GOOD /

&,58HFR0M -0.05 TO +0.04, 0 TO 400 DEGREES C. (TABLE A5.2.3,NBS /.

8. 19HM0N0GRAPH 125,1974))

AT(1) = 1.7022525E-02

AT(2) = -2.209724OE-07

AT(3) = 5.4889314E-12

AT(4) = -5.7669S92E-17

GO TO 110

C

C DUMMY LOCATION
non

C

80 IF (NFILEB.GT.6) URITE (NFILEB,100)

IF (NPRINT.GE.3) URITE (NPRINT, 100)

GO TO 20

ERROR ROUTE

90 URITE (NTTYO,100)

100 FORmT (/40H URONG SPECIFICATION FOR THERIiOCOUPLE,TRY AGAIN)

GO TO 20

110 RETURN

END

C30
oooooonooooooooooonoononooonooooooooonooononnooooooo

SASSli

TPPF PROG D124:TPPF.FTN

SPORT

SUBROUTINE TPPF(P,NU.PPF)

PURPOSE—THIS SUBROUTINE COMPUTES THE PERCENT POINT

FUNCTION VPLUE FOR THE STUDENT'S T DISTRIBUTION

UITH INTEGER DEGREES OF FREEDOM PftRPlMETER “ NU.

THE STUDENT'S T DISTRIBUTION USED

HEREIN IS DEFINED FOR RLL X,

AND ITS PROBABILITY DENSITY FUNCTION IS GIVEN

IN THE REFERENCES BELOU.

NOTE THAT THE PERCENT POINT FUNCTION OF A DISTRIBUTION

IS IDENTICALLY THE SAME AS THE INVERSE CUMULATIVE

DISTRIBUTION FUNCTION OF THE DISTRIBUTION.

INPUT ARGUMENTS—P = THE SINGLE PRECISION VALUE

(BETUEEN 0.0 (EXCLUSIVELY)

AND 1.0 (EXCLUSIVELY))

AT UHICH THE PERCENT POINT

FUNCTION IS TO BE EVALUATED. —NU “ THE INTEGER NUMBER OF DEGREES

OF FREEDOM.

NU SHOULD BE POSITIVE.

OUTPUT ARGUMENTS—PPF = THE SINGLE PRECISION PERCENT

POINT FUNCTION VALUE.

OUTPUT—THE SINGLE PRECISION PERCENT POINT FUNCTION . VALUE PPF FOR THE STUDENT'S T DISTRIBUTION

UITH DEGREES OF FREEDOM PARAMETER = NU.

PRINTING—NONE UNLESS AN INPUT ARGUMENT ERROR CONDITION EXISTS.

RESTRICTIONS—NU SHOULD BE A POSITIVE INTEGER VARIABLE. —P SHOULD BE BETUEEN 9.0 (EXCLUSIVELY)

AND 1.0 (EXCLUSIVELY).

OTHER DATAPAC SUBROUTINES NEEDED—NORPPF

.

FORTRAN LIBRARY SUBROUTINES NEEDED—DS IN. DOGS. DSQRT. DATAN.

MODE OF INTERNAL OPERATIONS—DOUBLE PRECISION.

LANGUAGE—ANSI FORTRAN,

COMMENT—FOR NU = 1 AND NU = 2. THE PERCENT POINT FUNCTION

FOR THE T DISTRIBUTION EXISTS IN SIMPLE CLOSED FORM

AND SO THE COi'PUTED PERCENT POINTS ARE EXACT.

—FOR OTHER SMALL VALUES OF NU (NU BETUEEN 3 AND 6 . INCLUSIVELY). THE APPROXIMATION

OF THE T PERCENT POINT BY THE FORMULA

GIVEN IN THE REFERENCE BELOU IS AUGMENTED

BY 3 ITERATIONS OF NEUTDN'S METHOD FOR

ROOT DETERMINATION.

THIS IMPROVES THE ACCURACY—ESPEC I ALLY FOR

VALUES OF P NEAR 0 OR 1

.

REFERENCES—NATIONAL BUREAU OF STANDARDS APPLIED MATHMATICS

SERIES 55. 1364. PAGE 949. FORMULA 26.7.5.

—JOHNSON AND KOTZ. CONTINUOUS UNIVARIATE

DISTRIBUTIONS—2. 1970, PAGE 102,

FORMULA 11. —FEDERIGHI. 'EXTENDED TABLES OF THE

PERCENTAGE POINTS OF STUDENT'S T

DISTRIBUTION. JOURNAL OF THE

AMERICAN STATISTICAL ASSOCIATION,

C31
oooooooooonoooo

1969, PAGES 683-638.

—HASTINGS AND PEACOCK, STATISTICAL

DISTRIBUTIONS--A HANDBOOK FOR

STUDENTS AND PRACTITIONERS, 1975,

PAGES 120-123.

URITTEN BY—JAMES J. FILLIBEN

STATISTICAL ENGINEERING LABORATORY (205.03)

NATIONAL BUREAU OF STANDARDS

UASHINGTON, D. C. 20234

PHONE: 381-921-2315

ORIGINAL VERSION—OCTOBER 1975.

UPDATED —NOVEMBER 1975.

C

C

cc

c

cc

c

DOUBLE PRECISION

DOUBLE PRECISION

DOUBLE PRECISION

DOUBLE PRECISION

DOUBLE PRECISION

DOUBLE PRECISION

DOUBLE PRECISION

DOUBLE PRECISION

DOUBLE PRECISION

DOUBLE PRECISION

DOUBLE PRECISION

DOUBLE PRECISION

PI

SQRT2

DP

DNU

TERMl , TERM2, TERM3/TERM4, TERMS

DPPFN

DPPF,DCON.DARG,Z,S,C

B21

B31,B32,B33,B34

B41,B42,B43, 344,845

B5 1 , B52 , 353 . B54, B55, B56

D1,D3,D5,D7,D9

DATA PI/3. 1415926535897900/

DATA SQRT2/1 .4142I3562D0/

DATA B21/0.25D0/

DATA B31,B32,B33,B34.-'0. 0104166656666700, 5. 0D0, 16 . 0D3, 3 . 0D0/

DATA B41,B42,B43,B44,B45/0.002S0416666667D9,3.0D0, 19.0D0, 17.0D0,

1 -15.0D0/

DATA B51,B52,B53,B54,S55.B56/3.03S31085069444D0,79.0D0,776.0D0,

1 1482. 0D0, -1920. 0D0, -945. 0D0/

IPR=6

CHECK THE INPUT ARGUMENTS FOR ERRORS

IF(P.LE.0.0.OR.P.GE. 1.0)GOTO50

GOTO90

50 LfRITEdPR, 1)

URITE(IPR,46)P

RETURN

90 CONTINUE

1 FORMATCIH , 1 15H>5o!o}c>!ok FATAL ERROR—THE FIRST INPUT ARGUMENT TO THE

1 TPPF SUBROUTINE IS OUTSIDE THE ALLOCABLE (0,1) INTERVAL

46 FORMATdH , 35H>K>K>^.•>K>K THE VALUE OF THE ARGUMENT IS ,E15.8,6H >K5(ok>)ok)

START POINT

DNU«NU

DP-p

MAXIT«5

C32
non

ooo

ooo

oon

IF(NU.GE.3)G0T025g

IFCN'J.EQ. 1) GOTO 100

IF(NU.EQ.2)GOTO203

URITEdPR, 105)

105 FORMATOH .33HINTERNAL ERROR IN TPPF SUBROUTINE)

PPF=0.0

RETURN

TREAT THE NU = 1 (CAUCHY) CASE

100 DARG=PIh:DP

PPF=-DC0S (DARG) /DS IN (DARG)

RETURN

TREAT THE NU = 2 CASE

200 TERM1=SQRT2/2.3D0

TERri2=2.CDB>!:r:P-1.0D0

TERM3=DSGRTCDP>»<( 1 .0D0-DP)

)

PPF =TERM1 -i^TERriZ/TERMS

RETURN

TREAT THE NU GREATER THAN OR EQUAL TO 3 CASE

250 CALL NORPPF(P,PPFN)

DPPFN=PPFN

n=DPPFN

D3=DPPFN^^•>i<3

D5=DPPFN>‘--^5

D7=DPPFH>!o}<7

D9=DPPFN>;:>i<9

TERM1=D1

TERM2 =B2 1 ( B3+D 1 ) /DN’IJ TERM3=Ei31>r^(B32>i:D'5+B33x;D3+B3<^Dl)/(DNU>K>!<2)

TERM4=B4 1 C E42>t:D7+B43>}:D5+B44>KD3+845>«D 1 ) / (DNU>M<3)

TERn5=B51>K(B52-i:D3+B53>KD7+354>i'D5-:-355>t=D3+B5S>:>Dl)/(DNU>ioK4)

DPPF =TERM 1 +TERM2+TERr i3+TERn4+TERN5

PPF=DPPF

IF(NU.GE.7)RETURM

IF(NU.EQ.3)GOTO308

IF(NU.EQ.4)GOTO40O

IF(NU.EQ.5)GOTO500

IF(NU.EQ.G)GOTOS00

RETURN

AUGMENT THE RESULTS FOR THE NU = 3 CASE

308 DCON=PI>::(DP-0.5D0)

DARG=DPPF/DSQRT(DN.U)

Z*=DATANCDARG)

DO350IPASS=1,MAXIT

S»DSIN(2)

C=DC0SCZ)

Z”Z-(2+S>t:C-DCON)/'(2.0D0>»C>KC)

350 CONTINUE

PPF-DSQRT(DNU)>kS/C

C33

3
ooo

ooo

nn

o- RETURN

AUGMENT THE RESULTS FOR THE NU » 4 CASE

400 DCON=2.0D0><<(DP-0.5ri0)

DARG=DPPF/DSQRT(DNU)

2=DATAN(DARG)

DO450IPASS=1,MAXIT

S=DSIN(Z)

C=DCOSCZ)

Z=Z- ( (1 . 0DO+0 . 5D0h<C5<<C) >kS-DCON) /( 1 . 5D0>i<C*C>tC)

450 CONTINUE

PPF=DSQRT(DNU)>!<S/C

RETURN

AUGMENT THE RESULTS FOR THE NU = 5 CASE

500 DCON=PI^(DP-0.5D0)

DARG=DPPF/DSQR7(DNU)

2=DATAN(DARG)

DO550IPASS=1,MAXI7

S=DSIN(Z)

C=DCOS(Z)

Z =Z- C Z+ ( C+ (

2

. 0D0/3 . 0D0 ) >xC>!C>i<C ) >KS-BCON ) / ( ( 8

.

0D 0/3 . 0D0 ) *C>Mc4

)

550 CONTINUE

PPF=DSQRT(DNU)>J-'S/C

RETURN

AUGMENT THE RESULTS FOR THE NU = 6 CASE

600 DCON=2.0DO>K(DP-0.5D0)

DARG=DPPF/DSQRT(DNU)

Z=DATAN(DARG)

DO6501PASS=1.MAXIT

S=DSIN(Z)

C=DC0S(Z)

2 =Z- C (

1

. 0D0+9 . 5D0>fCHC+0

.

375D0>+C>{ok4) *S-rCON ) / ( ( 1

5

. 0D0/8 . 0D0 ) >C>tot<5

)

650 CONTINUE

PPF=DSQR7(DNU)>k3/C

RETURN

END

C34
SPSSM

TRIM PROG

SPORT

STRGT 16 c SUBROUTINE TRIM (E. S IGE, DOC, NDATP)

Cc

C SUBROUTINE TO CPLCULATE TRIMMED MEANS USING EH)

C UPTO 1/3 OF VALUES AT EACH END 'JILL BE CUT OFF

C

C NEEDS THE FOLLOUING SUBROUTINES AND FUNCTIONS:

C S0RT3

C UTAVEU

C

c

C COMMON BLOCKS /lO/ AND /REGRS/ DEFINED VIA ARRAY 'DUMP'

C COMMON /lO/ NTTYI.NTTYO, IN,NPRINT,NFrLEA,NFILEB

C COMMON /REGRS/ M(5) ,R(5) , YF1T(250)

C

COMMON DUMP (275)

EQU I VALENCE ( NTTY I , DUMP (!)),( NTTYO , DUMP ( 2 ) ) , ( I N , DUMP (3 )

)

8. , (NPRINT,DUMP(4) ) . CNF ILEA, DUMP (5) ) , (NFILEB,DUMP<6)

)' DIMENSION M(5) ,R(5) ,YFIT(250)

EQUIVALENCE (M( 1 ) , DUMP ( 10) ) , (R( 1) ,DUM?( 15) ) , (YFIT( 1 ), DUMP (20)

)

Cc DIMENSION E(l),SIGE(l),DOC(l)

IF (NDATA.GT.4) GO TO IQ

IF (NFILEB.GT.6) URITE (NFILEB,50) NDATA

IF (NPRINT.GE.3) URITE (NPRINT,50) NDATA

50 FORMAT (/' NO TRIMMED MEANS CAN BE CALCULATED BECAUSE THERE'

E./' ARE ONLY', 12,' DATA'/)

RETURN

10 NTRIMS=NDATA/3

IF (NTRIMS.lt. 1) NTRIMS =1

C

C ESTIMATE AVERAGE VALUES UHEN NO DATA REJECTED

C

IF (NFILEB.GT.6) URITE (NFILEB,80)

IF (NPRINT.GE.3) URITE (NPRINT.BQ)

80 FORMAT('l AVERAGE VALUES BEFORE DATA TRIMMED' /)

CALL UTAVEU ( E , S I GE , NDATA , UTEA VE , S I GUTE , EAVE , ES I G , 1 , NDATA , 0

)

C

C SORT ON BASIS OF E

C

CALL S0RT3 (E,SIGE, DOC, NDATA) . C

C LOOP SEVERAL TIMES CUTTING ONE MORE E AT EACH END EACH TIME

C

JUMP = NDATA/ 10 IF (JUMP.LT.l) JUMP =1

DO 30 I =JUMP, NTRIMS, JUMP

JTRIMS = NDATA

NBOT = l+I

NTOP = NDATAI

IF (NFILEB.GT.6) URITE (NFILEB,20) I, JTRIMS

IF (NPRINT.GE.3) URITE (NPRINT,20) I, JTRIMS

20 FGRMAT('l TRIMMED MEANS FOLLOU:

8./I3,' DATA CHOPPED OFF EACH END AND ',13,'. DATA USED'

8.//' E SIG E DOC'/)

DO 90 J = NBOT, NTOP

IF (NFILEB.GT.6) URITE (NFILEB,40) E( J) ,SIGE( J) ,DOC(J)

J JL

C35
ono

nnn

. IF (NPRINT.GE.3) URITE (NPRINT,40) E ( J) , S IGE ( J) , DOC ( J)

40 FORM0T (3F7.2)

90 CONTINUE

CALCULATE TRIMMED MEAN AND SIGMA FROM SUBSET

CALL UTAVEIJ ( E ( NBOT) , S I GE ( NBOT) , JTR I MS , UTEAVE , S I GUTE , EAVE , ES I

G

8. ,NBOT,NTOP,0)

CALCULATE UINSORISED MEAN AND SIGMA

CALL UTAVEIJ ( E , S I GE , NDATA , UTEAVE , S I GUTE , E AVE , ES I G , NBOT, NTOP , JTR I MS

)

30 CONTINUE

RETURN

END

C36
sfissn

TRIMRD PROG

SPORT

STRGT 16 c SUBROUTINE TR IHRD (NTITLE, NLOOPY, IDOLD, E, S IGE, SUT, DOC, NT I ME, TREAD

8. ,SIGT,RATE,SIGR, ID, INDfiTA, NDATA, HERROR)

Cc

C NEEDS THE FOLLOUING SUBROUTINES AND FUNCTIONS:

C ACTIV

C EREAD

C READEM

C READX

C AND COMMON /lO/ NTTYI , NTTYO, IN, NPR INT, NF ILEA, NF ILEB

C

COMMON DUMP (275)

EQU I VALENCE ( NTTY I , DUMP (!)),( NTTYO , DUMP ( 2 ) ) , ( I N , DUMP ( 3 )

)

& , (NPRINT,DLIMP(4) ), (NFILEA,DUMP(5)), (NFILEB,DUMP(b))

C

DIMENSION NTITLE(l) ,NTIMEC1) ,TREAD(2>75) ,RATE(2,75)

DIMENSION TEMP(2,75) ,SIGT(2,75),SIGR(2,75) ,E( 1) ,3IGE( 1)

D I MENS I ON NSTAR ( 32 ) , SUT ( 1) , DOC ( 1)

DIMENSION AT(4) , IDOLDC 1) , ID( 1)

NLOOPY = NLOOPY+1

C

c URITE (NTTYO, 110) NLOOPY

110 FORMAT (12H FILE NUMBER, 13)

C

C READ AND URITE TITLE OF INPUT FILE

C

IF (NPRINT.GE.3) URITE (NPRINT, 10)

10 FORMAT(' 1')

READ (IN, 120) (NTITLE( I), 1=1.64) . 120 FORMAT (32A2/32A2)

DO 138 I = 1,32

130 NSTAR(I) = 21-1>}::k IF (NFILEB.GT.b) URITE (NFILEB.140)

IF (NF1LEB.GT.6) URITE (NF ILEB, 120) (NTITLE ( I ) , I = 1 , 64)

IF (NPRINT.lt. 3) GO TO 151

URITE (NPRINT, 120) NSTAR

URITE (NPRINT, 140)

140 FORMAT (2SH TITLE OF INPUT FILE IS ://)

URITE (NPRINT, 120) (NTITLE( I) , 1=1,64)

URITE (NPRINT, 150)

150 FORMAT (//)

URITE (NPRINT, 120) NSTAR

URITE (NPRINT, 150)

C

C READ IN DATA

C

151 IF ( INDATA. GT.0) GO TO 85

C

C GET THERMOCOUPLE COEFFICIENTS, READ IN DATA

C

CALL THMCPL (AT)

CALL READEM (NTIME, TREAD, SIGT.RATE.SIGR, ID, NDATA)

C

C CALCULATE E ACT. AND ASSOCIATED SIGMA

C

DO 170 I = 1, NDATA

• IDOLD(I) = ID(I)

C37
oon

no

non

CALL ftCTIV (E(I).SIGE(D.TEMPa, I), TEMP (2, I) , S IGTC 1 , I) , S IGTC2, I

)

8. ,TREPD( 1, I) ,TPEflD(2, I) ,SIGT( 1, n ,SIGTC2. I)

8. ,RATE':i, I), RATE (2, D , S IGR (1 , I ) , S IGR (2, I

)

8. ,AT,HERROR)

IF (HERROR.GT.0) RETURN

170 CONTINUE

GO TO 300

READ IN E VALUES

85

IF ( INDATA. EQ. 1) GO TO 83

WRITE (NTTY0.89)

89 FORMAT (/'READ INITIAL AND FINAL SAMPLE WEIGHTS, FREE FORMAT')

UINITL = READX ( lU. HERRCR, 3, IN, NTTYO, lEOF)

UFINAL = READY ( lU, HERROR, 1 , IN, NTTYO, lEOF)

SAMPLJT = UINITL-WFINAL

IF (NFILE3.GT.6) UR ITE (U.F ILEB, 8 1 ) UIN ITL. UF INAL

IF (NPRINT.GE.3) UR ITE (NFR IHT, 3 1) UIN I TL, UF INAL

• 81 FORMAT(/' INITIAL AND FINAL WEIGHTS READ FROM INPUT FILE AS'

8. /2F15.3)

88 CALL EREAD (IDOLD,E,SIGE,SUT,DCC,NDATA, INDATA, NERROR)

IF ( INDATA. EQ. 1) GO TO 87

DO 86 I = 1,NDATA

86 DOC(I) = ((UINITL-SUT(I))/SAMPUT)>K100.

87 CONTINUE

OUTPUT WHATEVER WAS INPUT

IF (NFILEB.GT.6) WRITE (NFILEB, 100)

IF (NPRINT.GE.3) WRITE (NPR INT, 100)

100 FORMAT(/' NUMBER', 9X,'E',5Y,'SIG E' , 4X, ' D . 0 . C

. ' , 12X, ' SWT' /)

IF (NFILEB.GT.6) WRITE (NFILEB, 210) ( IDOLD ( I ) , E ( I ) , S IGE ( I ) , DOC ( I

)

& ,SWT(I), I=1,NDATA)

'^IF (NPRINT.GE.3) WRITE (NPRINT,210) ( IDOLD ( I ) , E ( I ) , S IGE ( I ) , DOC ( I

)

8, ,SWT(I), I = 1,NDATA)

210 FORMAT( I7,3F10.2,F15.2)

300 IF (NFILEB.GT.6) WRITE (NFILEB, 70) NDATA

IF (NPRINT.GE.3) WRITE (NPRINT,70) NDATA

70 F0RMAT(//I6, ' DATA READ IN'//)

RETURN

END ’

X

C38
SASSM

UTAVEU PROG

SPORT

STRGT 16 c SUBROUTINE UTAVEU (E,SIGE,HDATA,UTEAVE.S1GUTE,EAVE,ESIG

8. ,NBOT,NTOP,NUIHS)

Cc

C UIHSORISED VERSION

C

C SUBROUTINE TO CALCULATE AVERAGE E (UTEAVE) AND STANDARD DEVIATION (SIGUTE)

C FROM INPUT LIST E AND SIGE CONTAINING = NDATA = VALUES

C ALSO CALCULATE UNUEIGHTED AVERAGE AND 95;^ CONFIDENCE RANGES

G

C NEEDS THE FOLLOUING COMMON BLOCKS AND SUBROUTINES:

C COMMON /lO/ NTTYI^NTTYO, IN,NPRINT,NFIL£A,NFILEB

C COMMON /REGRS/ M(5) , R (5) , YF IT(2r50)

C

C NEEDS SUBROUTINES:

C AVSDN

C CHISQ

C REGRES

C TPPF

C

C NUINS.GT.0 MEANS ESTIMATE UIHSORISED MEAN AND SIGMA,

C I.E.. REJECT ALL INPUT VALUES BEFORE N30T IN LIST AND ALL THOSE

C AFTER NTOP. ALSO, REPLACE THE REJECTED VALUES UITH THE NEAREST

C UNREJECTED VALUES (NBOT OR NTOP IN LIST AS THE CASE MAY BE).

C

c COMMON DUMP (275)

EQU I VALENCE ( NTTY I , DUMP (!)).( NTTYO , DUMP ( 2 ) ) , ( I N , DUMP ( 3 )

)

& , (NPRINT,DUMP(4)). (NF ILEA,DUMP (5) ) , CNF ILEB, DUMP (6)

)

DIMENSION M(5) ,R(5) ,YFIT(250)

EQUIVALENCE (M( 1 ) , DUMP ( 10) ) , (R ( 1 ) , DUMP ( 15) ) , (YF IT( 1 ) , DUMP (20)

)

C

DIMENSION E(1),SIGE(1),A(5),SIGA(5)

C

C CALCULATE AVERAGE UNUEIGHTED E C

UTEAVE =0.

SIGUTE = l.E-09

EAVE =0.

ESIG = l.E-09

SIGAVE = l.E-09

FREE =0.

CHIUTE =0. , . CHIUNU =0.

IF (NDATA. LE.0) RETURN

IF (NDATA. GT. 1) GO TO 200

UTEAVE = Ed)

SIGUTE = SIGE(l)

SIGAVE = SIGE(l)

EAVE = Ed)

ESIG = SIGECl)

RETURN

2B0 CONTINUE

IF (NUINS.LE.0) GO TO 201

C

C GET READY TO CALCULATE UINSORISED MEAN AND SIGMA

C

DO 70 J=1,NB0T

C39
ooo

oj

non

non

non

non

non

non

E(J)=E(HB0T)

70 SIGE(J)=SIGE(NBOT)

DO 83 J=NTOP,HDhTM

E(J)=E(NT0P)

88 SIGE(J) =SIGECNTOP)

IF (NFILEB.GT.6) UR ITE (MF ILEB, 35)

IF (NPRINT.GE.E) UR ITE (NFR INT. 35)

85 FORMATC//' UINSORISED MEAN AND SIGMA FOLLOU:'

8./' (I.E., REPLACE REJECTED VALUES UITH NEAREST UNREJECTED VALUE)

8./)

201 CONTINUE

CALL AVSDM (EAVE,ESIG,E,NDATA)

CALL CHISQ (E,SIGE,CHIUNU,NDATA)

CALCULATE AVERAGE SIGE

CALL AVSDN (SIGAVE,SIGSIG,SIGE,NDATA)

UINSORISE

IF (NLJINS.GT.0) ESIG=ESIG>i;SQRTi:FLOAT(NDATA-l)/(FLOATCNUINS-l)

8. >KFLOAT(NLJINS)))

CALCULATE IJEIGHTED AVERAGE OF E ^ CALL REGRES (E,E,SIGE,NDATA,0,M, 1, YFIT,AO,A,SIGAO,SIGA

8c , R , RMUL , CH I UTE , FTEST)

UTEAVE = AO

CALCULATE SIGMA FOR WEIGHTED E AVERAGE

SIGIJTE = 0.

DO 10 I = l.NDATA

10 SIGI.JTE = SIGUTE-'rl./SIGE(I)>i;>i:2

SIGIJTE = SQRTCl./SIG'JTE)

FDATA = NDATA-1 ^ FREE = NDATA-2

IF(NUINS.LE.0) ESIG = ES IG/SQRTCFDATA)

CALCULATE 95;i CONFIDENCE RANGE

NDOF = NDATA-2

CALL TPFF ( 0.95, NDOF, CUTZ)

T = CUT2>::SIGUTE

UTEHI = IJTEAVE+T

UTELO = LJTEAVE-T

T= CUTZXCSIG

UNWEHI = EAVE+T

UNUELO = EAVE-T

OUTPUT AVERAGES .

IF (NPRINT.lt. 3) GO TO 100

IF (NUINS.GT.0) GO TO 45

WRITE (NPRINT,30) UTEAVE,SIGUTE,CHIUTE,SIGAVE,FREE

3 FORMAT (/' IJEIGHTED MEAN E IS ',F?.3,' + OR - ',F7.3/

8c ' REDUCED CHISQ FOR E CALCULATION IS',F7.3,' (SHOULD BE 1.)'/

8. ' UNWEIGHTED MEAN- OF SIGMAS IS ',F7.3,/

8.,' CALCULATED OVER ',F5.0,' DEGREES OF FREEDOM')

OUTPUT CONFIDENCE LIMITS

WRITE (NPRINT,49) WTELO,WTEHI

40 FORMAT (/' ASSUMING ALL POSSIBLE SAMPLE MEANS ARE NORMALLY'/

8. ' DISTRIBUTED, TRUE WEIGHTED MEAN LIES WITHIN RANGE' , F7 . 3, ' TO'

8. F7.3/' FOR 95?i CONFIDENCE LEVEL')

C40
45 URITE (NPRIMT.50) EAVE, ES IG, UNUELO, UNUEH I . CH lUNU, CUTZ

50 FORMAT (/' IJHIJEIGHTED ESTIMATE OF MEAN E AND UNBIASED ESTIMATE

8. /' OF ITS SIGMA ARE',F7.3,' AND'.F7.3

8. /' THIS GIVES A CONFIDENCE RANGE 0F'.F7.3,' T0',F7.3

8./' CHI-SOUARE FOR UNUEIGHTED E 1S',F7.2

8./' T VALUE APPLIED !S',F7.3/)

100 IF (NFILEB.LE. 6) RETURN

IF (NlJINS.GT.cn GO TO 105

URITE ( NF I LEB . 30 ) I JTE A VE , S I GI.JTE , CH I UTE , S I GAVE , FREE

URITE ( NF I LEB . 40 ) UTELO , l.JTEH I 105 URITE (NFILEB,50)EAVE,ESIGJJNUELO,UNUEHI,CHIUNU,CUTZ

RETURN

END

C41
File LOTRIM, which automatically assigns all files needed to

assemble the TRIMPG overlays and drives the LIBLDR program to make

the overlays. Use as DO LOTRIM, DO.

flC TRIMPG, 1D0

AS 362

AC TRIML5,5D0

AC TGTRIB,7D0

AC OVERLB, SDG

AC F0RLIB,FD0

RUN LIBLDR, D0

CL

AC TRIMOl, IDO

AC PRIMTB,7D0

AC TRIMRB,SD0

AC THMCSB,9D0

AC READM3,nD0

AC ACTIVe,BD0

AC READXB,CD0

AC EREADB,DD0

AC TDEGBB,ED0

ST

CL

AC TRIMO2,1D0'

AC TRIMB,7D0

AC UTAVUB,SDO

AC TPPFB,9D0

AC HORPFB,ADO

AC SORT33,BD0

AC AVSDMB,CDO

AC CHISOB,DD0

AC REGRSB.EDO

AC FCTWB,2D0

AC MATINS, 4D0

ST

CL

ZU

TR

q^2
File TRIML5 , which is assigned by LOTRIM during assembly of the

TRIMPG overlays. This file contains the appropriate responses to the

LIBLDR program.

OUT 1 TRIMPG

B1 3576

BC 044C

LO 7

LI 0

RU F

ED F MAP

MAP 3

XOUT

LF 1 END

OUT 1 TRIMOl

OV

LI 7

LI 6

LI 9

LI A

LI B

LI C

LI D

LI E

RU F

ED F

MAP

MAP 3

XOUT

UF I END

OUT 1 TRIM02

OV

LI 7

LI 8

LI 9

LI A

LI B

LI C

LI D

LI E

LI 2

LI 4

RU F

ED F

MAP

MAP 3

XOUT

UF 1 END
Memory map of the base segment of the TRIMPG program.

REL PROGS:

3576 TGTRIN

4CSE .S

4E3E .ME3

4F18 0H

4P6C OVERLY 4BCP1 I FETCH 4C3C

4CC4 .P 4D4S .0 4DF6

4EE4 .U 4EE4 .V 4EF2

6162

ABS PROGS:

NONE

ENTRY-POINTS:

4A90 OVERLY 4BCC I FETCH 4C3E .H 4C90

4CC6 .P 4D48 .Q 4DF8 .0 4E40

4EC2 .U 4EEA .V 4EF4 @R 4F66

COMMON-BLOCKS:

FBB2 //

UNDEFINED:

PRIMTR TRIMRD TRIM

.H

.0

@R

.S

.MES

0H

C44
Memory map for the initialization segment TRIMOl of the TRIMPG overlay.

REL PROGS:

3576 TGTRIM 4A6C O'VERLY

4C8E .S 4CC4 .P 4E3E .MES . 4EB4 .IJ 4F18 eH 62CA PP.IMTR

786C READEM 7E32 ACT IV

90EE TDEGAB 919C .P 9386 ALOG 9494 EXP

9613 . Y2 9698 ABS

9723 SS 9772 . RARG

97D0 .ZERO 97D3

4BCA IFETCH 4C3C .H

4D46 .Q 4DF6 .0

4EE4 .V 4EF2 @R

6638 TRIMRD 7472 THMPLS

86C4 READX 8ES3 EREAD

91D3 .A 927E SORT

959A A I NT 9612 .Y

96AE • U 96FC .COMP

979E $8 97C8 .5

fiBS PROGS;

NONE

ENTRY-POINTS:

4P190 OVERLY

4CC6 .P

4EC2 .U 62EE PRINTR

?EA6 ACT IV

919E .R

9496 EXP

969A ABS

9774 .RARG

4BCC IFETCH

4D43 .Q

4EEA .V

665C TRiriRD

S6E3 READX

91DA .A 959C A I NT

96B0 .U

97A0 $3

4C3E .H

4DF8 .0

4EF4 @R

7496 THHCPL

8EAC EREAD

9230 SORT

9614 .Y

96FE .COMP

97CC .5

4C90 .S

4E40 .MES

4F66 QH

7399 READEM

91 12 TDEGAB

9338 ALOG

9S1A .Y2

972A $6

97D4 .ZERO

COMMON-BLOCKS:

FBB2 //

UNDEFINED:

TRIM

C45
Memory map for the segment TRIM02, which calculates trimmed

means in the TRIHPG program.

REL PROGS:

3576 TGTRIM 4fiSC O'v^RLY 4BCft I FETCH 4C3C .H

4C8E .S 4CC4 .P 4D46 .0 4DF6 .0

4E3E . MES 4EB4 • U 4EE4 .V 4EF2 0R

4F18 (?H 62Cft TRIM 6872 UT8VEU 7320 TPPF

81C6 NORPPF 849E S0RT3 S69C 8VSDN 8824 CHISQ

898? REGRES 9F4ft FCTN 9FD2 M8TINV 87D3 DCOS

A848 .D 8853 .COMEX 8826 DSIM 8ECC DLOG

AF3C DEXP B1 14 DSHRT B316 D8T8M Eb30 S7

B6DE $9 B716 DMOD B788 D8INT E84C 08

B866 @1 E374 0S B836 .X B8C6 DABS

B8E0 .G BCFb 0F B9FC 0L B82C 0K

BA5C M 3BFS 02 BC06 0D BD20 0T

BD43 0E BD6C 00 BDS8 0N BDE2 0U

BDFA @V BElft 0P EE48 0B BE58 .D8RG

BE9C .DDARG EF32 . DSUftP BF8E . DRTN BFB6 .R BFF2 .ft C098 SORT C180 P.LCG C28E EXP

C3B4 ftINT C42C FLOAT C432 FLOAT? C468 .U

C4S8 .COMP C4E4 $6 C52E . R8RG C558 S3

C584 .5 C58C .ZERO C594 D7DE

PlBS PROGS:

NONE

ENTRY-POINTS:

4ft90 OVERLY 4BCC I FETCH 4C3E .H 4C90 .S

4CC6 .P 4D48 .Q 4DF8 .0 4E40 .MES

4EC2 .U 4EEA .V 4EF4 OR . 62EE TRIM

6895 UT8VEU 7344 TPPF 81EA NORPPF 84C2 S0RT3

86C0 AVSDN 8343 CHISQ 8986 REGRES 9F6E FCTN

9FF6 MATINV A7D2 DCOS A34C .D A85A . COMEX

ftft28 DSIN ABCE DLOG AF3E DEXP B1 16 DSQRT

B318 D8T8N 3632 S7 B6E0 S9 B718 DMOD

B7SA DA I NT B84E 08 B868 01 B876 es B898 .X B8C3 DABS B8E2 .G B8F3 OF

B9FE 0L BA2E QK BASE' OM BBFA 02

BC03 0D BD22 0T BD4A 0E BD6E 00

BDSft 0N BDE4 @U BDFC ev BEIC OP

BE4C 0B EE5C .DARG EE9E .DDARG BF34 . DSUAP

BF90 . DRTN EFB3 .R BFF4 .A C09A SORT

C1A2 ALOG C2B0 EXP C3B6 ft I NT C42E FLOAT

C434 FLOAT? C46C .U C4BA .. COMP ^ C4E6 So

C530

C5E2

.RARG

0H

C55C S8 C588 .5 C590 .ZERO

COMMON-BLOCKS:

FBB2 //

UNDEFINED:

NONE

C46
Appendix D TGDEPG, a FORTRAN program to calculate activation

energies from rate and temperature data, to detect

outliers and to make normal probability plots.
Listing of file SETDE, used as SETDE,D0 to assign several files

needed by the TGDEPG program.

AS 120

AS 220

AS 320

AS 420

AS 520

AS 662

AS 720

AS 820

AS 920

AS A20

AC TGDEO1,BD0

AC TGDEO2,CD0

AS D20

AS E20

AS F20

fiSSIGN INPUT (FILE 7) fiHD OUTPUT (FILE 3) THEN TYPE 'RUN TGDEPG, D0'

TR

D2
Example of input for activation-energy-calculating-probability-plot

program TGDEPG. User input is underlined. Start the procedure by typing

DO SETGDE,D0.

TGDEPG PROGRftM

READ INPUT DATA FROM FILE 7

FILE 6 IS FOR OUTPUT

PUT PROCESSED DATA ON FILE 8

GIVE NUMBER OF FILES TO EXAMINE (IN FREE FORMAT)

I

1 Examine i files

GIVE CHANCE CF REJECTING EXTREME VALUE IF FLUCTUATIONS ARE PURELY RANDOM

(0.01 TO 0.40, ZERO=0.10)

FREE FORMAT

I 0

TITaNCE of URONGLY REJECTING RANDOMLY PLACED EXTREMUM IS 0.10

GIVE 0 FOR RATE DATA INPUT

1 FOR E/SIG E INPUT (OUTPUT OF TGRUNF)

UITH DEGREES OF CONVERSION IN FILE

2 FOR E/SIG E INPUT UITH D.O.C. TO BE CALCULATED

I

1riLE NUMBER 1
Because of (i) the complexity of the TGDEPG program itself,

(ii) the fact that it is allowed to edit data files autonomously

manner, and (iii) the controversy surrounding the procedure, several

examples of output have been provided. The reader will have to

decide for himself whether the results are acceptable or not. Comparison

of the results from the programs TGTRIM and TGDEPG is undoubtedly worthwhile.

TGTRIM calculates trimmed means using the magnitudes of the input values

in the rejection test; TGDEPG also uses the standard deviations of the

input values.

D4
A TGDEPG run in which a coherent subset of activation energies was selected from an input set containing several widely divergent values.

TITLE OF INPUT FILE IS :

NBS 706 IN 50y, 02 1/12/78 NEU FURNACE PRESS=8O0

ii<— V ti*~J •**‘Ji'**J *~^l **A**~it~A'**- t~*»***Jr*Ji~Ji'**J'**it**A**iT**i

CHANCE OF LiRONGLY REJECTING

IS 15.04

PUT PROCESSED DATA ON FILE

NUMBER E SIG E

1 25.05 0.79

2 23.40 0.38

3 23.28 0.37

4 21.56 0.43

5 21.29 0.30

6 20.38 0.35

7 21.51 0.57

8 17.77 0.85

9 18.68 0.42

10 23.03 0.28

11 21.67 0.28

12 21.28 0.35

13 21.42 0.20

14 19.54 0.25

15 21.96 0.21

16 20.58 0.32

17 21.83 0.28

18 21.78 0.29

19 21.70 0.24

20 21.56 0.66

21 22.32 9.55

22 21.51 0.26

23 23.97 0.21

24 21.60 0.29

25 21.96 0.31

26 24.92 0.34

27 21.77 0.21

28 22.45 0.27

29 23.01 0.26

30 21.62 0.40

31 21.97 0.30

32 24.47 0.39

33 23.29 0.26

34 20.79 0.79

35 99.73 31.67

36 43.29 2. 16

.37 33.39 1.79

PASS NUMBER 1

RANDOMLY PLACED EXTREMUM

'.O.C. SUT

2.56 482964.00

3. 14 479109.00

9.56 436394.00

12.21 418809.00

14.04 406647.00

16.56 389392.00

18.34 378025.00

20.78 361836.00

22.59 349784.00

25.10 333058.00

26.92 320969.00

29.51 303777.00

31.43 290970.00

34.19 - 272644.00

36.21 259205.00

33. 10 240006.00

41.23 225799.00

44.31 205316.00

46.59 190178.00

49.87 168359.00

52.25 152528.00

55.71 129496.00

58.22 112843.00

61.76 89302.31

64.29 72444.38

67.85 48830.30

70.33 32330. 10

73.65 10258.70

75.86 -4499.84

78,67 -23158.90

80.44 -34945.20

82.50 -48610.70

83.73 -56834.90

85.32 -67363.69

86. 13 -72753.69

86.56 -75655.33

86.90 -77861.00

D5
PRESENT STATUS: -AVERAGE WEIGHTED E IN KCAL/MOLE IS 22.028

UNWEIGHTED AVERAGE OF SIGMA VALUES IS 1.304

EXAMINE LOGCSIGEd)) DISTRIBUTION TO DISCARD

OUTLIERS ON BASIS OF PS STATISTIC. WHERE

PS *= (AVERAGE LOG SIGE - LOG SIGE(I))/K

K = SCALE FACTOR

AND 2 = NORMAL DISTRIBUTION QUANTILE

DS = 0.000C 0.164) + 0.737C 0.170)>?<Z

REDUCED CHI SQUARE = 0.317 CALCULATED OVER 37 POINTS

RESCALE DS VALUES BY FACTOR OF 0.737

REJECTED OUTLIERS FOLLOWCABSCDS VALUE) GREATER THAN 2.616) * DOC/TIME DS 2 E SIGE T/SWT RATE TEMP

32 82.5 5.85 2.14 24.471 0.390 -48611.

1 DATA DISCARDED AS OUTLIERS IN TAILS OF DISTRIBUTION

36 DATA LEFT

OUTPUT REMAINING DATA

* DOC/TIME DS 2 E SIGE

1 2.6 -0.12 0.41 25.052 0.787

2 3.1 -1.02 -2. 14 23.400 0.385

3 9.6 -0.93 -1.30 23.278 0.372

4 12.2 -8.80 -1.16 21.559 0.425

5 14.0 -0.71 -1.03 21.292 8.295

6 16.6 -0.66 -0.82 20.373 0.345

7 18.3 -0.58 -0.57 21.510 0.573

8 20.8 -8.56 -3.41 17.773 0.849

9 22.6 -0.51 -0.27 13.673 0.423

10 25.1 -0.38 0.00 23.031 3.277

11 26.9 -0.28 0. 13 21.675 0.277

12 29.5 -0.14 0.34 21.276 0.345

13 31.4 -0.07 0.49 21.422 0.200

14 34.2 -0.00 0.65 19.540 0.252

15 36.2 0.34 0.73 21.962 0.215

16 39.1 0.59 0.92 20.576 0.322

17 41.2 0.83 1.03 21.831 0.282

18 44.3 1.95 1.48 21.734 0.292

19 45.6 -0.94 -1.43 21.697 0.236

20 49.9 0.40 0.82 21.565 0.659

21 52.3 2.20 1.72 22.321 0.545

22 55.7 -0.95 -1.72 21.514 0.261

T/SUT RATE TEMP RATE

482S64.

479109.

436394.

^18809. . 435647.

339892.

378025.

361836.

3497S4.

333058

.

323969.

303777.

293970.

272644.

259285.

240006

.

225799.

285316.

190173.

168359.

152528.

129496.

D6
23 58.2 -0.50 -0.20 23.971 0.213 112843

24 61.8 -0.45 -0.07 21.605 0.238 89302

25 64.3 0.84 1 . 16 21.964 0 . 305 72444

26 67.8 -0.67 -0.92 24.919 0.341 48830

27 70.3 -0.01 0.57 21.775 0.211 32330

28 73.6 -0.53 -0.34 22.452 0.269 10259

29 75.9 -0.62 -0.65 23.012 0.262 -4500

30 78.7 -0.49 -0. 13 21.619 0.405 -23159

31 80.4 -0.30 0.07 21.974 0.297 -34945

33 83.5 0.94 1.30 23.283 0.259 -43611

34 85.7 -0. 18 0.27 20.793 0.739 -56835

35 86.3 -0.53 -0.49 99.726 31.669 -67364

36 86.

1

-8.66 -0.73 43 . 292 2. 160 -72754

37 86.6 -0.28 0.20 33.304 1 .737 -75555

PASS NUMBER 2

PRESENT STATUS: -AVERAGE UEIGHTED E IN KCAL/MOLE IS 21.983

UNUEIGHTED AVERAGE OF SIGMA VALUES IS 1.330

EXAMINE LOG(SIGEd)) DISTRIBUTION TO DISCARD

OUTLIERS ON BASIS OF DS STATISTIC, WAERE

DS = (AVERAGE LOG SIGE - LOG SIGE(I))/K

K = SCALE FACTOR

AND Z = NORMAL DISTRIBUTION QUANTILE

DS » 0.060( 0.167) + 1.016C 0.173)>KZ

REDUCED CHI SQUARE = 0.598 CALCULATED OVER 36 POINTS

RESCALE DS VALUES BY FACTOR OF 0.749

REJECTED OUTLIERS FOLLOUCABSCDS VALUE) GREATER THAN 2.607)

DOC/TIME DS Z E SIGE T/SLJT RATE TEMP RATE

35 86.3 5.75 2.13 99.726 31.669 -67364.

1 DATA DISCARDED AS OUTLIERS IN TAILS OF DISTRIBUTION

35 DATA LEFT

OUTPUT REMAINING DATA

« DOC/TIME DS Z E SIGE

1 2.6 0.82 1.01 25.052 0.787

2 3.

1

-0. 14 0.39 23.400 0.385

3 9.6 -0.18 0.32 23.273 0.372

4 12.2 -0.01 0.63 21.559 0.425

5 14.0 -0.49 -0.17 21.292 0.295

6 16.6 “0.28 0. 17 20.378 0.345

T/SUT RATE TEMP RATE

482964.

473189.

436394.

418809.

405647.

389892.

D7
7 18.3 0.39 0.80 21.510 0.573 • 378025.

8 20.8 0.92 1.28 17.773 0.849 361836.

9 22.6 -0.01 0.54 18.678 0.423 349784.

10 25.

1

-0.58 -0.54 23.031 0.277 333053.

11 26.9 -0.58 -0.46 21.675 0.277 320969.

12 29.5 -0.28 0.24 21.276 8.345 303777.

13 31.4 -1.01 -2.13 21.422 0.200 293970.

14 34.2 -0.70 -1.01 19.540 0.252 272644.

15 36.2 -0.91 -1.28 21.962 0.215 259205.

16 39.1 -0.33 0.03 20.576 0.322 240306.

17 41.2 -0.55 -0.39 21.831 0.282 225799.

18 44.3 -0.51 -0.24 21.784 0.292 205316.

19 46.6 -0.79 -1.14 21.637 0.236 190178.

20 49.9 0.53 0.90 21.565 0.659 163359.

21 52.3 0.33 0.71 22.321 0.545 152528.

22 55.7 -0.66 -0.80 21.514 0.261 129496.

23 58.2 -0.93 -1.46 23.971 0.213 1 12843.

24 61.8 -0.52 -0.32 21.605 0.288 89302.

25 64.3 -0.45 -0 . 03 21.964 0.305 72444.

26 67.8 -0.30 0.10 24.919 0.341 48830.

27 70.3 -0.94 -1.70 21.775 0.211 32330.

28 73.6 -0.62 -0.63 22 . 452 0.269 10259.

29 75.9 -0.65 -0.71 23.012 0.262 -4300

.

30 78.7 -0.07 0.46 21.613 0.405 -23159.

31 80.4 -0.48 -0. 10 21.974 0.297 -34945.

33 83.5 -0.67 -0.90 23.288 0.253 -48611.

34 85.7 0.82 1.14 20.793 0.739 -56335.

36 86.3 2. 17 1.70 43.292 2. 160 -67364.

37 86.

1

1.91 1.46 33.304 1.787 -72754.

PASS NUMBER 3

PRESENT STATUS: -AVERAGE UEIGHTED E IN KCAL/MOLE IS 21.983

UNUEIGHTED AVERAGE OF SIGMA VALUES IS 0.463

EXAMINE LOG(SIGE(D) DISTRIBUTION TO DISCARD

OUTLIERS ON BASIS OF DS STATISTIC, LIHERE

DS = (AVERAGE LOG SIGE - LOG SIGE(I))^'K

K = SCALE FACTOR

AND 2 = NORMAL DISTRIBUTION QUANTILE

DS » 0.000( 0.169) + 0.699C 0,175)>«2

REDUCED CHI SQUARE = 0.100 CALCULATED OVER 35 POINTS

RESCALE DS VALUES BY FACTOR OF 0.524

REJECTED OUTLIERS FOLLOUCABSCDS VALUE) GREATER THAN 2.598) « DOC/TIME DS Z E SIGE T/SUT RATE TEMP RATE

36

37

86.3

86.3

3.33

2.97

2.12

1.69

43.292

33 . 304

2. 160

1.787

-67364.

-67364.

2 DATA DISCARDED AS OUTLIERS IN TAILS OF DISTRIBUTION

D8
33 DATA LEFT

OUTPUT REMAINING DATA

* DOC/TIME DS Z E SIGE

1 2.6 1.40 1.12 25.052 0.787

2 3.

1

0.04 0.44 23.400 0.335

3 9.6 -0.03 3.36 23.278 0,372

4 12.2 0.23 0.59 21.559 0.425

5 14.0 -0.47 -0. 14 21.292 0.295

6 16.6 -0.17 0.21 20.378 0.345

7 18.3 0.80 0.83 21.510 0.573

8 20.8 1.55 1.45 17.773 0.S49

9 22.6 0.22 0.60 18.673 0.423

10 . 25.

1

-0 . 59 -0.52 23.031 0.277

11 26.9 -0.59 -0,44 21.675 0.277

12 29.5 -0. 17 0.29 21.276 0.345

13 31.4 -1.21 -2.12 21.422 0.200

14 34.2 -0.77 -1.00 19.540 0.252

15 36.2 -1.07 -1.27 21.962 0.215

16 39.

1

-0.30 0.07 20.576 0.322

17 41.2 -0.56 -0.36 21.831 0.232

18 44.3 -0.49 -0.21 21.784 8.292

19 46.6 -0.90 -1.12 21.697 0.236

20 43.9 1.06 1.60 21.565 0.659

21 52.3 0.70 0.78 22.521 0.545

22 55.7 -0.76 -0.78 21.514 0.261

23 58.2 -1.09 -1.45 23.971 0.213

24 61.8 -0.52 -0.29 21.605 8.2S3

25 64.3 -0.41 0.00 21.964 0.305

26 67.8 -0. 19 0. 14 24.919 0.341

27 70.3 -1.11 -1.69 21.775 0.211

28 73.6 -0.65 -0.60 22.452 0.269

29 75.9 -0.70 -0.69 23.012 0 . 252

30 78.7 0. 14 0.52 21.619 0.405

31 80.4 -0.46 -0.07 21.974 0.297

33 83.5 -0.72 -0.88 23.283 0.259

34 85.7 1.41 1.27 20.793 0.789

PASS NUMBER 4

T/SUT RATE TEMP RATE

482964.

473103.

436394.

418309.

406647.

3S3892.

378825.

36 1 836

.

343784.

333S5S

.

320969. . 303777.

298970.

272644.

259205

.

248035.

225799.

205316.

190178.

168359.

152523.

129496.

112343.

S9302.

72444.

48830.

32330,

10259.

-4500.

-23159,.

-34345

.

-486 11.

-56835.

PRESENT STATUS: -AVERAGE UEIGHTED E IN KCAL/MOLE IS 21.963

UNWEIGHTED AVERAGE OF SIGMA VALUES IS 0.371

EXAMINE LOG(SIGE(I)) DISTRIBUTION TO DISCARD

OUTLIERS ON BASIS OF DS STATISTIC, WHERE

DS *= (AVERAGE LOG SIGE - LOG SIGE(I))/K

K « SCALE FACTOR

AND Z = NORMAL DISTRIBUTION QUANTILE

DS - 0.000C 0.174) + 0.733C 0.181)>KZ

D9
REDUCED CHI SQUfiRE « 0.056 CftLCULftTED 0^/ER 33 POINTS

RESCfiLE DS VALUES BY FACTOR OF 0.384

REJECTED OUTLIERS FOLLOU(ABS (DS VALUE) GREATER THAN 2.579)

DOC/TIME DS Z E SIGE T/SUT RATE TEMP

0 DATA DISCARDED AS OUTLIERS IN TAILS OF DISTRIBUTION

33 DATA LEFT

OUTPUT REMAINING DATA

DOC/TIME DS Z E

1 2. 6 2. 17 1.,42 25. 052

2 3. 1 0. 31 0.,55 23 . 403

3 9. 6 0. 22 0.,47 23 . 278

4 12. 2 0. 57 0 .,84 21 . 559

5 14. B -0. 38 -0 .,03 21 . 292

6 16. 6 0. 83 0 .,31 20 , 378

7 18. 3 1. 35 1 .,08 21 . 510

8 20. 8 2. 37 2 .,09 17 . 773

9 22. 6 B . 56 0.,74 18 . 678

10 25. 1 - B . 54 -0 .,47 23 . 031

11 26. 9 -0. 54 -0 .,39 21 . 675

12 29. 5 0. 03 0 .,39 21 . 276

13 31. 4 -1..39 —2 .,09 21 . 422

14 34. 2 -0..79 -a ..96 19 . 549

15 36. 2 -1.,20 -1 ..23 21 . 962

16 39. 1 -0 ., 15 0 .. 15 20 . 576

17 41. 2 -0.,50 -0 ,.31 21 . 831

18 44. 3 -0.,41 -0 ,. 15 21 . 784

19 46. 6 -0.,96 - 1 ,.33 21 . 697

20 49. 9 1.,71 1 ,.23 21 . 565

21 52 . 3 1 ..22 0 ,.96 22 . 321

22 55 . 7 -0..70 -0 ,.74 21 . 514

23 58 , 2 -1..23 -1 ,.42 23 .,971

24 61. 8

-0 ,.44 -0 .23 21 ..605

25 64.,3 - 0 ,.29 0 .03 21 ..964

26 67.,8 -0,.00 0 .23 24 ..919

27 70.,3 -1,.25 -1 .66 21 .,775

28 73,,6 -0,.62 -0 .55 22 .,452

29 75.,9 -0 -.69 -9 .64 23 .,012

30 78.,7 0 .45 0 . 54 21 .,619

31 80.,4 -0 .36 0 .00 21 .,974

33 83..5 -0 .72 -0 ,84 23 ,.283

34 85..7 2 . IS 1 .66 20 ..793

PASS NUMBER 5

SIGE . T/SUT. RATE TEMP

0.787 432964 . 3.385 479109 . 0.372 435394 . 8.425 418809 . 0.295 435647 . 9.345 389892 . 0.573 378025 . 3.349 361336 . 0.423 349734 . 8.277 333058 . 0.277 320969 . 0.345 383777 . 0.200 293970 . 0.252 272644 . 0.215 259205 . 0.322 240306 . 0.282 225799 . 0.292 205316 . 0.236 190178 .' 0.659 168359 . 0.545 152523 . 0.261 129496 . 0.213 112843 . 8.283 89302 . 0.395 72444 . 0.341 48830 . 0.211 32339 . 0.269 10259 . 0.262 -4500 . 0.405 -23159 . 0.297 -34945 . 0.259 -48611 . 0.789 -56335 .

PRESENT STATUS; -AVERAGE UEIGHTED E IN KCAL/MOLE IS 21.960

RATE

RATE

DIO
UNUEIGHTED fi'vCRfiGE OF SIGMO VALUES IS 0.371

EXAMINE E AND SIGE RELATIONSHIP TO DETECT

OUTLIERS ON DE STATISTIC

FIT OF DE TO Z

DE - (E(I)-E A''/ERAGE)/SIG Ed)

2 = NORMAL DISTRIBUTION QUANTILE

NUMBERS IN PARENTHESES ARE STANDARD DEVIATION

RESCALE SIGE VALUES BY FACTOR OF 1.754

INPUT SIGE VALUES NOU RESCALED BY FACTOR OF 1.754

REJECTED OUTLIERS FOLLOUCABSCDE VALUE)

DOC/TIME DE Z E SIGE

6 16.6 -2.61 -1.23 20.378 9.605

8 20.3 -2.81 -1.42 17.773 1.489

9 22.3 -4.42 -1.66 18.678 0.742

14 34.9 -5.47 -2.09 19.540 0.442

23 58.6 5.38 2.09 23.971 0.374

26 67.3 4.95 1.66 24.919 0.593

33 83.8 2.92 1.42 23.288 0.454

GREATER THAN 2.579)

T/SUT RATE TEMP RATE

389392.

378025.

378025.

320969.

19017'8.

152523.

48830.

7 DATA DISCARDED AS OUTLIERS IN TAILS OF DISTRIBUTION

26 DATA LEFT

OUTPUT REMA I N I NG DATA

«> DOC/TIME DE 2 E SIGE

1 2.6 2.24 1.08 25.052 1.381

2 3.1 2. 13 0.84 23.400 0.675

3 9.6 2.02 0.74 23.278 0.653

4 12.2 -0.54 -0.23 21.559 0.746

5 14.0 -1.29 -0.84 21.292 0.518

7 18.6 -0.45 0.00 21.510 1.005

10 25.3 2.20 0.96 23.031 0.486

11 26.8 -0.59 -0.31 21.675 0.486

12 29.6 -1 . 13 -0.74 21.276 0.605

13 31.1 -1.53 -0.96 21.422 0.351

15 36.9 0.01 0.31 21.962 0.377

16 39.5 -2.45 -1.08 20.576 0.565

17 41.4 -0.26 0.23 21.831 0.495

18 44.2 -0.34 0.08 21.784 0.512

19 46,2 -0.64 -0.39 21.697 0.414

20 49.

1

-0.34 0.15 21.565 1.156

21 52.2 0.38 0.55 22.321 0.956

22 55.3 -0.97 -0.64 21.514 0.458

24 61.6 -0.70 -0.47 21.605 0.505

25 64.9 0.01 0.39 21.964 0.535

27 70.2 -0.50 -0. 15 21.775 0.370

T/SUT RATE TEMP RATE

482964.

479109.

436394.

418809.

406547.

389892.

378025.

361836.

349784.

333053.

320969.

303777.

290970.

272644.

259205.

240006.

225799.

205316.

190173.

168359.

152523.

Dll
28 73.7 1.04 0.64 22.452 0.472 129496.

29 75.2 2.29 1.23 23.012 0.460 112843.

30 78.8 -0.43 -0.08 21.613 0.711 83302.

31 80.3 0.03 0.47 21.974 0.521 72444.

34 85.8 -0.84 -0.55 20.793 1.334 48830

.

PASS NUMBER 6

PRESENT STATUS: -AVERAGE WEIGHTED E IN KCAL/MOLE IS 21.913

UNWEIGHTED AVERAGE DF SIGMA VALUES IS 3.646

EXAMINE E AND SIGE RELATIONSHIP TO DETECT

OUTLIERS OH DE STATISTIC

FIT OF DE TO Z

DE *= (E(I)-E AVERAGE) /SIG Ed)

Z •= NORMAL DISTRIBUTION QUANTILE

NUMBERS IN PARENTHESES ARE STANDARD DEVIATION

RESCALE SIGE VALUES BY FACTOR OF 0.944

INPUT SIGE VALUES NOW RESCALED BY FACTOR OF 1.656

REJECTED OUTLIERS FOLLOW(ABS(DE VALUE) GREATER THAN 2.500) « DOC/TIME DE Z E SIGE T/SWT RATE lErp

16 39.5 -2.50 -2.00 20.576 0.533 303777.

29 75.7 2.54 2.00 23.012 0.434 129496.

2 DATA DISCARDED AS OUTLIERS IN TAILS OF DISTRIBUTION

24 DATA LEFT

OUTPUT REMAINING DATA

-

DOC/TIME DE Z E SIGE T/SWT RATE TEMP RATE

1 2.6 2.41 1.28 25.052 1.303 482964.

2 3.1 2.34 1.09 23.408 0.633 479109.

3 9.6 2.22 0.93 23.278 0.616 436394.

4 12.2 -0.50 -0.34 21.559 0.704 418S09.

5 14.0 -1.27 -1.28 21.292 0.483 406647.

7 18.6 -0.42 -0.14 21.510 0.949 389892.

10 25.3 2.44 1.55 23.031 0.459 378025. ' 11 26.8 -0.51 -0.44 21.675 0.459 361836.

12 29.6 -1.11 -1.09 21.276 0.571 3497S4.

13 31.1 -1.47 -1.55 21.422 0.331 333053

.

15 36.9 0. 15 0.55 21.962 0 . 356. 328969.

17 41.5 -0. 17 0.24 21.831 0.467 383777.

18 44.4 -0.26 0. 14 21.784 0.434 290970.

19 46,2 -0.55 -0.55 21.697 0.391 272644.

20 49.2 -0.32 0.05 21.565 1.091 259205.

21 52.1 0.46 0.67 22.321 0.902 240006.

D12
22 55.2 -0.92 -0.93 21.514 0.432 225799.

24 61.3 -0.64 -0.67 21.605 0.477 205316.

25 64.6 0.11 0.34 21.964 0.505 190178.

27 70.9 -0.39 -0.05 21.775 0.349 163359.

28 73.2 1.22 0.79 22.452 0.445 152528.

30 78.7 -0.43 -0.24 21.619 0.671 123496.

31 80.2 0.13 0.44 21.974 0.492 1 12843.

34 85.8 -0.86 -0.79 20.793 1.307 89302.

PASS NUMBER 7

PRESENT STATUS: -AVERAGE WEIGHTED E IN KCAL/MOLE IS 21.898

UNWEIGHTED AVERAGE OF SIGMA VALUES IS 0.S20

EXAMINE E AND SIGE RELATIONSHIP TO DETECT

OUTLIERS ON DE STATISTIC

FIT OF DE TO Z

DE = (E(I)-E AVERAGE)/SIG Ed)

Z *= NORMAL DISTRIBUTION QUANTILE

NUMBERS IN PARENTHESES ARE STANDARD DEVIATION

RESCALE SIGE VALUES BY FACTOR OF 0.850

INPUT SIGE VALUES NOW RESCALED BY FACTOR OF 1.407

REJECTED OUTLIERS FOLLOUCABSCDE VALUE) » DOC/TIME DE Z E SIGE

1 2.6 2.85 1.50 25.052 1.107

2 3.2 2.77 1.24 23.400 0.542

3 9.6 2.64 1.04 23.278 0.523

10 25.4 2.91 1.96 23.031 0.390

GREATER THAN 2.472)

T/SUT RATE TEMP RATE

482964.

482964.

482964..

418809.

4 DATA DISCARDED AS OUTLIERS IN TAILS OF DISTRIBUTION

20 DATA LEFT

OUTPUT REMAINING DATA

* DOC/TIME DE Z E SIGE

4 12.2 -0.57 -0.37 21.559 0.598

5 14.0 -1.46 -1.59 21.292 0.415

7 19.0 -0.43 -0. 16 21.510 0.806

11 26.4 -0.57 -0.4S 21.675 0.390

12 29.6 -1.28 -1.24 21.276 0.435

13 31.6 -1.69 -1.96 21.422 0.231

15 36.3 0.21 0.60 21.962 0.302

17 41.8 -0. 17 0.26 21.831 0.397

18 44.6 -0.28 0.16 21.784 0.41

1

19 46.1 -0.61 -0.60 21.697 0.332

20 49.9 -0.,i6 0.05 21.555 0.927

T/SWT RATE TEMP RATE

482964.

479109.

436394.

418809.

406647.

389892.

378025.

361836.

349784.

333053.

320969.

D13
21 52.5 0.55 0.73 22.321 0.767 303777.

22 55.4 -1.05 -1.04 21.514 0.367 290970.

24 61.2 -0.72 -0.73 21.605 0.405 272644.

25 64.2 0. 15 0.37 21.964 0 . 429 259205.

27 70.

1

-0.41 -0.05 21.775 0.297 240006.

28 73.2 1.46 0.97 22.452 0.378 225799.

30 78.3 -0.49 -0.26 21.619 0.570 205316.

31 80.6 0. 18 0.43 21.974 0.418 190178.

34 85.9 -1.00 -0.87 20.793 1.110 168359.

PASS NUMBER 8

PRESENT STATUS: -AVERAGE LJEIGHTED E IN KCAL/MOLE IS 21.723

UNUEIGHTED AVERAGE OF SIGMA VALUES IS 0.584

E>^MINE E AND SIGE RELATIONSHIP TO DETECT

OUTLIERS ON DE STATISTIC

FIT OF DE TO 2

DE = (E(I)-E AVERAGE)/SIG Ed)

Z «= NORMAL DISTRIBUTION QUANTILE

NUMBERS IN PARENTHESES ARE STANDARD DEVIATION

RESCALE SIGE VALUES BY FACTOR OF 0.661

INPUT SIGE VALUES NO'J RESCALED SY FACTOR OF 0.S33

REJECTED OUTLIERS FOLLOUCABSCDE VALUE) GREATER THAN 2.409)

<> DOC/TIME DE Z E SIGE T/SUT RATE TEMP

28 73.2 2.91 1.88 22.452 0.250 225799.

1 DATA DISCARDED AS OUTLIERS IN TAILS OF DISTRIBUTION

19 DATA LEFT

OUTPUT REMAINING DATA

« DOC/TIME DE Z E SIGE

4 12.2 -0.42 -0.45 21.559 0.395

5 14.0 -1.57 -1.41 21.292 0.274

7 19.0 -0.40 -0.31 21.510 0.533

11 26.4 -0.19 0.06 21.675 8.253

12 29.6 -1.39 -1.13 21.276 0.321

13 31.6 -1.62 -1.88 21.422 0.186

15 36.3 1.19 1.41 21.962 0.200

17 41.8 0.41 0.59 21.831 0.262

18 44.6 0.22 0.31 21.784 0.272

19 46.

1

-0. 12 0. 19 21.697 0.220

20 49.9 -0.26 -0.06 21.565 0.613

21 52.5 1.18 1.13 22.321 0.507

T/SUT RATE TEMP RATE

482964.

479109.

436394.

413809.

406647.

389392.

378025.

361836.

349784.

333358.

320969.

303777.

D14
22 55.4 -0.86 -0.74 21.514 0.243 290970.

24 61.2 -0.44 -0.59 2 1 . 605 0.268 272644.

25 64.2 0.85 0.74 21.964 0.284 253265.

27 70.

1

0.26 0.45 21.775 0. 196 240606.

30 78.2 -0.28 -0. 19 21.619 0.377 225799.

31 80.3 0.91 0.92 21.974 0.276 205316.

34 85.6 -1.27 -0.92 20.793 0.734 190178.

PASS NUMBER 9

PRESENT STATUS: -AVERAGE LEIGHTED E IN KCAL/MCLE IS 21.676

UNUEIGHTED AVERAGE OF SIGMA VALUES IS 0.338

EXAMINE E AND SIGE RELATIONSHIP TO DETECT

OUTLIERS ON DE STATISTIC

FIT OF DE TO 2

DE = (E(I)-E AVERAGE) /SIG E(I)

2 “ NORMAL DISTRIBUTION QUANTILE

NUMBERS IN PARENTHESES ARE STANDARD DEVIATION

RESCALE SIGE VALUES BY FACTOR OF 0.925

INPUT SIGE VALUES NOU RESCALED BY FACTOR OF 0.661

REJECTED OUTLIERS FCLLOUCABSCDE VALUE) GREATER THAN 2.391)

DOC/TIME DE Z E SIGE T/SUT RATE TEMP

0 DATA DISCARDED AS OUTLIERS IN TAILS OF DISTRIBUTION

19 DATA LEFT

OUTPUT REMAINING DATA

« DOC/TIME DE Z E

4 12.2 -0.32 -0.40 21.559

5 14.0 -1.51 -1.86 21.292

7 19.0 -0.34 -0.55 21.510

11 26.4 -0.01 0. 13 21.675

12 29.6 -1.35 -1.10 21.276

13 31.6 -1.48 -1.38 21.422

15 36.3 1.54 1.86 21.962

17 41.8 0.64 0.70 21.331

18 44.6 0.43 0.40 21.784

19 46.

1

0. 10 0.26 21.697

20 49.9 -0.20 -0. 13 21.565

21 52.5 1.37 1.38 22.321

22 55.4 -0.72 -0.70 21.514

24 61.2 -0.29 -0.26 21.605

25 64.2 1.09 0.88 21.964

27 70.

1

0.54 0.55 21.775

30 78.2 -0.16 -0.60 21.619

SIGE T/SUT RATE TEMP

0.366 482964.

0.254 479103.

0.493 436394.

0.233 ^18'809.

0.297 406647.

0.172 389892.

0.185 378025.

0.243 361836.

0.251 349784.

0.203 333053.

0.567 320969.

0.469 303777.

0.225 290370.

0.248 272644.

0.263 259205.

0.182 240605.

0.349 225799.

RATE

RATE

D15
31 80.3 1.16 1.10 21.974 0.256 205316.

34 85.6 -1.30 -0.83 20.793 0.679 190178.

UEIGHTED MEFIN E IS 21.676 + OR - 0.059

REDUCED CHISQ FOR E CRLCULftTICN IS 0.921 (SHOULD BE 1.)

UNUEIGHTED MEP.N OF SIGMPS IS 0.313

CftLCULfiTED OVER 18. DEGREES OF FREEDOM

ASSUMING ALL POSSIBLE SAMPLE MEANS ARE NORMALLY

DISTRIBUTED. TRUE UEIGHTED MEAN LIES U I THIN RANGE 21.561 TO 21.792

FOR 95?i CONFIDENCE LEVEL

UNUEIGHTED ESTIMATE OF MEAN E AND UNBIASED ESTIMATE

OF ITS SIGMA ARE 21.639 AND 0.075

THIS GIVES A CONFIDENCE RANGE OF 21.492 TO 21.786

.CHI-SQUARE FOR UNUEIGHTED E IS 0.94

19 DATA URITTEN ON FILE = 8 =

DE = -0.063+ 1.169>K2 + 0.009>f:Z + -0.090>xZ >K>k3 REDUCED CHI SQUARE IS 0.016 CALCULATED OVER 19 POINTS

3 CURVES GENERATED FOR DE/Z PLOTS

Z IS THE HORIZONTAL AXIS

DE IS THE FIRST CURVE SECOND CUR'>7E IS LINEAR FIT OF DE TO Z

THIRD CURVE IS POLYNOMIAL FIT OF DE TO Z

0.17486E+01 -+ ^

+

+

+

+

++

+

0.10215E+01 -+

+

+

+

+

+

+

+

0.38228E+00 -+

+

++

++

B

A

A

A C

B

C

B

C

A

C 6

A

A B

C ' B

B

B A

A

B

A

A

D16

u

<i
+

+

-0.41691E+00 -++

++

0

A m

B

c

B

B C +

+

+

+

-0.11361E+0! -+

+

+

+

-A

+

+C

+

+

-0.18553E+01 -B

0.1861E+010. 1116E+010.3721E+000.3721E+000. 1116E+010. 1861E+01

A - DE V. Z

B - LINEftR FIT OF DE TO Z

C POLVHOMIfiL FIT OF DE TO Z

JOB COMPLETED

D17
The saved file from the previous example

NBS 706 IN 50;i 02 1/12/78 NEU FURNACE PKESS=800

21.676 0 .059 21. 639 0.075 19

4 21.56 0.37 12.25 482964.00

5 21.29 0.25 14.01 479109.00

7 21.51 0.49 18.96 436394.00

11 21.67 0.24 26.36 418309.00

12 21.28 0.30 29.64 406647.00

13 21.42 0. 17 31.56 389892.00

15 21.96 0. 19 36.34 378025.00

17 21.83 0.24 41.78 361836.00

18 21.78 0.25 44.59 349784.00

19 21.70 0.20 46.10 * 333053.00

20 21.56 0.57 49.92 320969.00

21 22.32 0.47 52.51 303777.00

22 21.51 0.22 55.43 290973.00

24 21.60 0.25 61.19 272644.00

25 21.96 0.26 64.21 259205.00

27 21.77 0. 18 70. 10 240006.03

30 - 21.62 0.35 78 . 23 225799.00

31 21.97 0.26 80.31 205316.00

34 20.79 0.68 85.59 190178.00

D18
An example where all rejections made were based on log . Input

values were rescaled.

TITLE OF INPUT FILE IS :

NBS 706 IN 50?i 02 1/24/78 RUN 3

P -800 MM HG

)^o(oK5^ok)Moic^oK>^:>M<>^c>k5K>^c>|cK>K>MoK>^oMo^oK>^o^oK>^o^ofcioiooMoMoK:^o^^

CHANCE OF

IS 15.06

URONGLY REJECTING RANDOMLY PLACED EXTREMUM

PUT PROCESSED DATA ON FILE 8

NUMBER E SIG E D.O.C. SUT

1 21.49 0.32 5.08 466217.00

2 20. 14 0.44 7.43 450583.00

3 20.93 0.31 9. 19 .438865.00

4 21.80 0.78 12.39 417580.00

5 20.74 0.64 14.47 403770.00

6 21.49 0.64 17.28 385060.00

7 19.24 0.45 19.29 371724.00

8 20.42 0.47 22.04 353466.00

9 20.50 0.43 24.02 340260.00

10 20.04 0.55 26.74 322175.00

11 20.72 0.36 28.75 308846.00

12 20.96 0.30 31 .53 290307.00

13 19.53 0.33 33.61 276491.00

14 21.-28 0.44 36.51 257211.00

15 22.02 0.31 38.67 242339.00

16 20.85 0.34 41.75 222349.00

17 22.43 0.30 44.06 207012.00

18 19.41 0.42 47.33 185242.00

19 26.21 2.48 50.44 164542.00

20 18.96 1.82 53.22 146055.00

21 23.07 0.44 55.73 129083.00

22 21.81 0.55 59.39 105082.00

23 21.81 0.42 62.06 87318.12

24 22.94 0.38 65.79 62529.70

25 21.99 0.28 68.48 44597.30

26 22.38 0.35 72.14 20277. 10

27 21.87 0.39 74.69 3320.86

28 21.80 0.66 78.01 -18745.50

29 21.98 0.50 80.19 -33284.80

30 21.62 0.46 82.77 -50393.60

31 21.75 0.31 84.33 -61126.20

32 17.53 0.99 86.34 -74163.00

33 16.27 5.32 87.61 -82585. 12

34 40.66 27.15 87.72 -83367.88

PASS NUMBER 1

PRESENT STATUS: -AVERAGE UEIGHTED E IN KCAL/MOLE IS 21.316

D19
UNUEIGHTED AVERAGE OF SIGMA VALUES IS 1.480

EXAMINE LOGCSIGECm DISTRIBUTION TO DISCARD

OUTLIERS ON BASIS OF DS STATISTIC, UHERE

DS (AVERAGE LOG SIGE - LOG SIGE(I))/K

K = SCALE FACTOR

AND Z = NORMAL DISTRIBUTION QUANTILE

DS - e.000( 0.171) + 0.765< 0.178)>KZ

REDUCED CHI SQUARE = 0.317 CALCULATED OVER 34 POINTS

RESCALE DS VALUES BY FACTOR OF 0,765

REJECTED OUTLIERS FOLLOUCABSCDS VALUE) GREATER THAN 2.589)

• DOC/TIME DS Z E SIGE T/surr RATE

33 87.6 2.91 1.68 16.269 5.323 -82585. • 34 87.6 5.04 2.11 40 . 664 27.149 -82585.

2 DATA DISCARDED AS OUTLIERS IN TAILS OF DISTRIBUTION

32 DATA LEFT

OUTPUT REMAINING DATA

« DOC/TIME DS Z E SIGE

1 5.1 -0.75 -0.86 21.491 0.323

2 7.4 -0.34 0.04 20. 140 0.444

3 9.2 -0.79 -0.98 20.900 0.313

4 12.4 0.40 0.98 21.805 0.780

5 14.5 0.13 0.67 20.739 0.636

6 17.3 0. 13 0.76 21.489 0 . 636

7 19.3 -0.30 0. 13 19.243 0.455

8 22.0 -0.26 0.33 20.425 0.470

9 24.0 -0.38 -0.11 20.503 0 . 428

10 26.7 -0.06 0.49 20.043 0.547

11 28.8 -0.61 -0.49 20.720 0.359

12 31.5 -0.85 -1.43 20.958 0 . 330

13 33.6 -0.74 -0.76 19.532 0 . 326

14 36.5 -0.33 0.11 21.280 0.445

15 38.7 -0.80 -1 . 10 22.023 0.312

16 41.8 -0.67 -0.67 20.854 0.343

17 44.1 -0.87 -1.68 22.429 0.295

18 47.3 -0.42 -0.26 19.410 0.418

19 50.4 1.91 1.43 26.212 2.478

20 53.2 1.51 1.25 18.959 1.823

21 55.8 -0.35 -0.04 23.068 0.438

22 59.4 -0.05 0.53 21.809 0.553

23 62.1 -0.41 -0. 13 21.809 0.420

24 65.8 -0.55 -0.41 22.943 0.376

T/SUT RATE TErP RATE

466217.

450583.

438865.

«il75S0.-

403770.

385060.

371724.

353456

.

340260.

322175.

308346.

290307.

276491.

2572 11.

242839.

222349.

207012.

135242.

164542.

145055.

129088.

105032.

87318.

62530.

D20
25 68.5 -0.95 -2.11 21.992 0.277 44597

26 72.

1

-0.63 -0.58 22.385 0.354 20277

27 74.7 -0 . 49 -0.33 21.869 0.395 3321

28 78.0 0.17 0.86 21.800 0 . 656 -18746

29 80.2 -0. 19 0.41 21.977 0.495 -33285

30 82.8 -0.28 0.26 21.613 0.464 -50394

31 84.4 -0.82 -1.25 21.746 0.306 -61126

32 86.3 0.71 1.10 17.533 0.987 -74163

PASS NUMBER 2

PRESENT STATUS :-AWRAGE UEIGHTED E IN KCAL/MOLE IS 21.317

UNUEIGHTED AVERAGE GF SIGMA VALUES IS 0.558

EXAMINE LOG(SIGEd)) DISTRIBUTION TO DISCARD

OUTLIERS ON BASIS OF DS STATISTIC, UHERE

DS = (AVERAGE LOG SIGE - LOG SIGE(I))^'i<

K «= SCALE FACTOR

AND 2 = NORMAL DISTRIBUTION QUANTILE

DS * 0.000C 0.177) + 0.595C 0.!84)=<<Z

REDUCED CHI SQUARE = 0.085 CALCULATED OVER 32 POINTS

RESCALE DS VALUES BY FACTOR OF ’ 0.455

REJECTED OUTLIERS FOLLOU(ABS(DS VALUE) GREATER THAN 2.569)

DOC/TIME DS Z E SIGE T/surr RATE TEMP

19 50.4

20 53.4

3.63

2.95

2.08

1.65

26.212

18.959

2.478

1.823

164542.

164542.

•

2 DATA DISCARDED AS OUTLIERS IN TAILS OF DISTRIBUTION

30 DATA LEFT

OUTPUT REMAINING DATA

« DOC/TIME DS Z E SIGE T/SUT RATE TEMP

1 5.1 -0.85 -0.82 21.491 0.323 466217.

2 7.4 -0. 15 0.12 20. 140 0.444 450583.

3 9.2 -0.91 -0.94 20.900 0.313 433865. - 4 12.4 1.09 1.22 21.805 0.780 417580.

5 14.5 0.64 0.82 20.739 0.636 403770.

6 17.3 0.64 0.24 21.439 0.636 385060

.

7 19.3 -0.09 0.27 19.243 0.455 371724.

8 22.0 -9.02 0.44 20.425 0.470 353466.

9 24.0 -0.23 -0.04 20.503 0.423 340260.

i0 26.7 0.31 0.62 20.043 0.547 322175.

il 28.8 -0.61 -0.44 20.720 0.359 308846.

RATE

RATE

D21
12 31.5 -1.01 -1.40

13 33.6 -0.83 -0.72

14 36.5 -0. 14 0. 19

15 38.7 -0.92 -1.07

16 41.8 -0.71 -0.62

17 44.1 -1.05 -1.65

18 47.3 -0.28 -0. 19

21 55.4 -0. 18 0.04

22 59.2 0.33 0.72

23 62.8 -0.27 -0. 12

24 65.4 -0.51 -0.36

25 68.

1

-1.18 -2.03

26 72.8 -0.64 -0 . 53

27 74.5 -0.40 -0.27

28 78,

1

0.71 1.07

29 80.7 0.09 0.53

30 82.0 -0.05 0 . 35

31 84.2 -0.96 -1.22

32 86.8 1.61 1.40

PASS NUMBER 3

20.958 0.300 290307.

19.532 0.326 276491.

21.230 0.445 2572 1 1

.

22.023 0.312 242839.

20.854 0.343 222349.

22.429 0.295 207012.

19.410 0.418 185242.

23.068 0.438 154542.

21.809 0.553 146055.

21.809 0.420 129088.

22.943 0.376 105082.

21.992 0.277 87318.

22.385 0.354 62530.

21.863 0.595 44597

.

21.800 0 . 656 20277.

21.977 0.495 3321.

21.613 0.464 -18746.

21.746 0.306 -33285.

17.533 0.987 -50394.

PRESENT STATUS: -AVERAGE UEIGHTED E IN KCAL/MOLE IS 21.316

UNWEIGHTED AVERAGE OF SIGflA VALUES IS 0.452

EXAMINE LOG(SIGECD) DISTRIBUTION TO DISCARD

-OUTLIERS ON BASIS OF DS STATISTIC. WHERE

DS *= (AVERAGE LOG SIGE - LOG SIGE(I))/K

^ K » SCALE FACTOR

AND Z = NORMAL DISTRIBUTION QUANTILE

DS = -0.000( 0. 183) + 0.677C 0.190)>f<Z

REDUCED CHI SQUARE = 0.027 CALCULATED OVER 30 POINTS

RESCALE DS VALUES BY FACTOR OF 0.308

REJECTED OUTLIERS FClLOWCABSCDS VALUE) GREATER THAN 2.547)

* DOC/TIME DS Z E SIGE T/SUIT RATE TEMP RATE

32 86.8 2.70 2.05 17.533 0.987 -50394.

1 DATA DISCARDED AS OUTLIERS IN TAILS OF DISTRIBUTION

29 DATA LEFT

OUTPUT REMAINING DATA

* DOC/TIME DS Z E SIGE T/SWT RATE TEMP RATE

1 5.1 -0.93 -0.77 21.491 0.323 466217.

2 7.4 0.11 0.21 20. 140 0.444 450583.

3 9.2 -1.03 -0.89 20.900 0.313 433365.

D22
4 12.4 1.93 1.62 21.805 0.780 . 417580.

5 14.5 1.27 1.02 20.739 0 . 636 403770.

6 17.3 1.27 1.13 21.439 0.636 335660.

7 19.3 0. 19 0.38 19.243 0.455 371724.

a 22.0 0.29 0.57 20.425 0.470 353466.

9 24.0 -0.01 0.64 20.503 0.428 340260.

10 26.7 0.78 0.77 20.043 0.547 322175.

11 28.8 -0.58 -0 . 38 20.720 0.359 303346.

12 31.5 -1.17 -1.36 20.958 0.300 293337.

13 33.6 -0.90 -3.67 19.532 0.326 276491.

14 36.5 0.11 0.29 21.280 0 . 445 257211

.

15 38.7 -1.04 -1.02 22.023 0.312 242839.

16 41.8 -0.73 -3.57 20.854 0.343 222349.

17 44.

1

-1.22 -1.62 22.429 0.295 207012.

18 47.3 -0.09 -0.12 19.410 0.418 185242.

21 55.4 0.06 0.12 23.068 0.433 164542.

22 59.2 0.82 0.89 21.839 0.553 145055.

23 62.8 -0.07 -0.04 21.839 0.420 1.29388.

24 65.4 -0.43 -0.29 22.943 0.376 105082.

25 68.

1

-1.42 -2.05 21.992 0.277 87318.

26 72.8 -0.63 -0.47 22 . 335 0.354 62530

.

27 74.5 -0.27 -0.21 21.869 0.395 4-^1597. 28 78.

1

1.37 1.36 21.890 0.656 20277.

29 80.7 0.46 0.67 21.977 0.495 3321.

30 82.0 - 0.25 0.47 21.618 0.464 -18746.

31 84.2 -1.16 -1.18 21.746 0.306 -33285.

PASS NUMBER 4

PRESENT STATUS : -AV'ERAGE UEIGHTED E IN KCAL/MOLE IS 21.337

UNWEIGHTED AVERAGE OF SIGMA VALUES IS 0.433

‘

EXAMINE LOG(SIGECD) DISTRIBUTION TO DISCARD

OUTLIERS ON BASIS OF DS STATISTIC, WHERE

DS = (AVERAGE LOG SIGE - LOG SIGE( !))/.<

K « SCALE FACTOR

AND Z = NORMAL DISTRIBUTION QUANTILE

DS » 0.000C 0.186) + 0.886< 0.194)>KZ

REDUCED CHI SQUARE = 0.031 CALCULATED 0‘v'ER 29 POINTS

RESCALE DS VALUES BY FACTOR OF 0.273

REJECTED OUTLIERS FOLLOUCABS (DS VALUE) GREATER THAN 2.536)

«> DOC/TIME DS Z E SIGE T/SWT RATE TEMP

0 DATA DISCARDED AS OUITIERS IN TAILS OF DISTRIBUTION

29 DATA LEFT

RATE

D23
OUTPUT REMAINING DATA

* DOC/TIME DS 2 E SIGE

1 5.1 -0.94 -0.75 21.491 0.323

2 7.4 0.23 0.26 20. 140 0.444

3 9.2 -1.05 -0.87 20.900 0.313

4 12.4 2.29 2.04 21.805 0.780

5 14.5 1.54 1.16 20 . 739 0.635

6 17.3 1.54 1.35 21.489 0 . 636

7 19.3 0.31 0.44 19.243 0.455

8 22.0 0.43 0.64 20 . 425 0.470

9 24.0 0.09 0.09 20.503 0.428

10 26.7 0.99 0.87 20 . 043 0.547

11 28.8 -0.55 -0.35 20.729 0 . 359

12 31.5 -1.21 -1.35 20.958 0.300

13 33.6 -0.91 -0.64 19.532 0.326.

14 36.5 0.23 0.35 21.280 0.445

15 38.7 -1.07 -1.00 22.023 0.312

16 41.8 -0.72 -0,54 20.854 0.343

17 44.

1

-1.27 -1.60 22.429 0.295

18 47.3 0.00 -0.03 19.410 0.418

21 55.4 0. 18 0. 17 23.068 0.438

22 59.2 1.03 1.00 21.809 0.553

23 62.8 0.G2 -0 . 00 21.309 0.423

24 65.4 -0.38 -0.26 22.943 0.376

25 68.

1

-1.50 -2.04 21.932 0.277

26 72.8 -0.60 -0.44 22.385 0.354

27 74.5 -0.20 -0. 17 21.869 0.395

28 ^ 78.1 1.65 1.60 21.800 3 . 656

29 80.7 0.62 0.75 21.977 0.495

30 82.0 0.39 0.54 21.618 0.464

31 84.2 -1.14 -1.16 21.746 0 . 300

PASS NUMBER 5

T/SUT RATE TEMP RATE

466217.

450583.

438865.

417580.

493770

.

335060.

371724.

353466

.

340260

.

322175.

308846.

280307.

276431.

257211.

242839.

222349.

2070 12.

185242.

164542.

146055.

123033.

105082.

87318.

62530.

44597

.

20277.

3321

.

-18746.

-33285.

PRESENT STATUS: -AVERAGE WEIGHTED E IN KCAL/MOLE IS 21.337

UNWEIGHTED AVERAGE OF SIGMA VALUES IS 0.433

EXAMINE E AND SIGE RELATIONSHIP TO DETECT

OUTLIERS ON DE STATISTIC

FIT OF DE TO Z

DE = (E(I)-E AVERAGE)-/SIG E(I)

Z » NORMAL DISTRIBUTION QUANTILE

NUMBERS IN PARENTHESES ARE STANDARD DEVIATION

RESCALE SIGE VALUES BY FACTOR OF 2.365

INPUT SIGE values NOW RESCALED BY FACTOR OF 2.365

REJECTED OUTLIERS FOLLOU(ABS(DE VALUE) GREATER THAN 2.536)

D24
• DOC/TIME DE Z E SIGE T/SUT RATE TEMP

0 DATA DISCARDED AS OUTLIERS IN TAILS OF DISTRIBUTION

29 DATA LEFT

OUTPUT REMAINING DATA

DOC/TIME DE Z E SIGE T/SUT RATE TEMP

1 5.1 0.20 -0.00 21.491 8.764 466217.

2 7.4 -1.14 -1.16 20. 140 1.850 450533.

3 9.2 -0.59 -0.44 20.900 0.740- 438865

.

4 12.4 0.25 0.09 21.835 1.844 417589.

5 14.5 -0.40 -0.26 20.739 1.594 433770.

6 17.3 0. 10 -0.09 21.489 1.504 3B50S0.

7 19.3 -1.95 -1.35 19.243 1.076 371724.

8 22.0 -0.82 -0.75 20.425 1.111 353466.

9 24.0 -0.82 -0.87 20.503 1.012 348260.

10 26.7 -1.00 -1.00 20 . 043 1.293 322175.

11 28.8 -0.73 -0.64 20.723 0.S49 308846.

12 31.5 -0.53 -0 . 35 20.953 0.709 298307.

13 33.6 -2.34 -2.64 19.532 0.771 276491.

14 36.5 -0.05 -0. 17 21.280 1.052 257211.

15 38.7 0.93 0.87 22.023 0.738 242839.

16 41.8 -0.60 -0.54 20.854 0.311 222349.

17 44.1 1.57 1.35 22 . 429 0.693 207012.

18 47.3 -1.95 -1.60 19.413 0.988 185242.

21 55.4 1.67 1.60 23.068 1.036 164542.

22 59.2 0.35 0.35 21.809 1.308 145855.

23 62.8 0.48 0.44 21.809 0.993 129038.

24 65.4 1.81 2.04 22.943 0.389 10,5382.

25 68. 1 1.00 1.03 21.992 0.655 87318.

26 72.8 1.25 1.16 22.385 0.837 62530.

27 74.5 0.57 0.75 21.869 0.934 44597.

28 78.

1

0.30 0.26 21.800 1.551 20277.

29 80.7 0.55 0.54 21.977 1.170 3321.

30 82.0 0.26 0. 17 21.613 1.097 -18^46.

31 84.2 0.57 0.64 21.746 0.724 -33285.

UEIGHTED MEAN E IS 21.337 + OR - 0.172

REDUCED CHISQ FOR E CALCULATION IS 1.140 (SHOULD BE 1.)

UNWEIGHTED MEAN OF SIGMAS IS 1.024

CALCULATED OVER 23. DEGREES OF FREEDOM

ASSUMING ALL POSSIBLE SAMPLE MEANS ARE NORMALLY

DISTRIBUTED, TRUE WEIGHTED MEAN LIES WITHIN RANGE 21.000 TO 21.674,

FOR 95;^ CONFIDENCE LEVEL

UNWEIGHTED ESTIMATE OF MEAN E AND UNBIASED ESTIMATE

OF ITS SIGMA ARE 21.276 AND 0.185

THIS GIVES A CONFIDENCE RANGE OF 20.913 TO 21.639

CHI-SQUARE FOR UNWEIGHTED E IS 1.14

RATE

RATE

D25
IM

OJ

29 DATA URITTEN ON FILE 8

DE = 0.030+ 1.174>kZ + -0.061>i:Z >K>!c2 + -0.030>«Z >tcx<3 REDUCED CHI SQUARE IS 0.005 CALCULATED OVER 23 POINTS

CURVES GENERATED FOR DE/Z PLOTS

IS THE HORIZONTAL AXIS

DE IS THE FIRST CL!R^/E SECOND CURVE IS LI^!EAR FIT OF DE TO Z

THIRD CURVE IS POLYNOMIAL FIT OF DE TO Z

0.22037E+01 -++

++

++

+

+ 0.1290SE+01 -+

+++

+

++

+

0.37734E+00 -++

+

++

+

++

-0.53509E+00 -+

' ++

+

++

+

-0.14480E+01 -+

+

+

B

A

B

C

A

B

C

CA

A

C

CB

CB

C AAA

CA

A

AAA

A CB

A CB

CB

ACB

CB

CB

CA

B

BA

A A

A

A A

B

AB

B

A

A 6

B

B

C

+

+

+

+

B

A A

-0.23609E+01

+B

-A +

0.2041E+010. 1224E+010.4082E+060.4081E+000. 1224E+010.2041E+01

A » DE V. »Z B “ LINEAR FIT OF DE TO Z

C • POLYNOMIAL FIT OF DE TO Z

JOB COMPLETED D26

3>n
An example of an already coherent data set where no need for

rejection was found.

TITLE OF INPUT FILE IS :

NBS 706 IN 40?i 02 P=800 MM HG 3/20/78

:(oloMoMofoK>toK>^o»oK>W2^oK)^o{oK>K>I•-K)^oioK>foK>^:>MGo(oK>^oK5^o^ofoMoK>K>^^

•CHftNCE OF URONGLY REJECTING RfiNDOMLY PLACED EXTREmM

IS 15.05

PUT PROCESSED DATA ON FILE 8

NUMBER E SIG E D.O.C. SUT

1 22.42 0. 18 5.82 573756.00

2 23. 19 0. 14 8. 19 554887.00

3 23.39 0.19 11.37 529632.00

4 23. 16 0. 18 13.49 512748.00

5 22.87 0.22 16.48 488986.00

6 22.93 0. 17 18.55 472496.00

7 23.03 0.29 21.53 448867.00

8 23.09 0. 17 23.64 432094.00

9 23.76 0.23 26.71 407669.00

10 23.55 0.20 23.38 390441.00

11 23.51 0.22 32.06 365137.00

12 23.83 0. 19 34.31 347203.00

13 24.05 0.25 37.63 320866.00

14 23.00 0.20 39.96 302300.00

15 24.37 0.22 43.35 275378.00

16 24. 12 0. 14 45.73 256475.00

17 23.99 0. 17 49. 18 229012.00

18 24.20 0.14 51.59 299322.60

19 23.93 0.18 55.07 182190.00

PASS NUMBER 1

PRESENT STATUS: -AVERAGE UEIGHTED E IN KCAL/MOLE IS 23.508

UNUEIGHTED AVERAGE OF SIGMA VALUES IS 0.188

EXAMINE LOGCSIGECD) DISTRIBUTION TO DISCARD

OUTLIERS ON BASIS OF DS STATISTIC, UHERE

DS » (AVERAGE LCG SIGE - LOG SIGE(I))/K

K • SCALE FACTOR

AND 2 = NORMAL DISTRIBUTION QUANTILE

DS » -0.O00C 0.229) + 0.170C 0.244)>KZ

REDUCED CHI SQUARE “ 0.001 CALCULATED OVER 19 POINTS

RESCALE DS VALUES BY FACTOR OF 0.170

D27
REJECTED OUTLIERS FOLLOU(fiBS(DS VALUE) GREATER THAN 2.391)

DOC/TIME DS 2 E SIGE T/SUT RATE TEMP

0 DATA DISCARDED AS OUTLIERS IN TAILS OF DISTRIBUTION

19 DATA LEFT

OUTPUT REMAINING DATA

» DOC/TIME DS 2 E SIGE T/SUT

1 5.8 -0.29 -0.26 22.422 0.177 573755.

2 8.2 -1.70 -1.86 23. 191 0. 139 554887.

3 11.4 0. 16 -0.00 23.392 0.191 529532.

4 13.5 -0.35 -0.40 23. 157 0.175 512748.

5 16.5 0.99 0.83 22.867 0.220 438986

.

6 18.5 -0.63 -0.70 22.935 0. 167 472496.

7 21.5 0.37 0.26 23 . 03

1

0. 193 448867.

8 23.6 -0.45 -0.55 23 . 086 0.172 432094.

9 26.7 1.28 1.38 23.764 0.231 407669.

10 28.

S

0.43 0.40 23.552 0 . 200 390441

.

11 32.1 1.10 1.10 23.507 0.224 355137

.

12 34.3 0.16 0. 13 23.831 0. 191 347233.

13 37.6 1.65 1 . 86 24.055 0.246 320866.

14 40.0 0.52 0.55 22.997 0.203 302300.

15 43.3 0.91 0.70 24.370 0.217 275378.

16 45.7 -1.54 -1.10 24. 122 0. 143 256475

.

1? 49.2 -0.66 -3.88 23.990 0. 166 229012.

18 51.6 -1.66 -1.38 24.203 0. 140 209822.

19 55.

1

-0.29 -0. 13 23.929 0.177 182190.

PASS NUMBER 2

PRESENT STATUS: -AVERAGE UEIGHTED E IN KCAL/MOLE IS 23.5BS

UNUEIGHTED AVERAGE OF SIGMA VALUES IS 0.188

EXAMINE E AMD SIGE RELATIONSHIP TO DETECT

OUTLIERS ON DE STATISTIC

FIT OF DE TO Z

DE = (E(I)-E AVERAGE)/SIG E(I)

2 = NORMAL DISTRIBUTION QUANTILE

NUMBERS IN PARENTHESES ARE STANDARD DEVIATION

RESCALE SIGE VALUES BY FACTOR OF 3.844

INPUT SIGE VALUES NOU RESCALED BY FACTOR OF 3.844

REJECTED OUTLIERS FOLLOUCABS(DE VALUE) GREATER THAN 2.391)

« DOC/TIME DE 2 E SIGE T/SUT RATE TEMP

RATE

RATE

RATE

D28
0 DfiTft DISCARDED AS OUTLIERS IN TAILS OF DISTRIBUTION

19 DATA LEFT

OUTPUT REMAINING DATA

* DOC/TIME DE

1 5.8 -1.60

2 8.2 -0.59

3 11.4 -0. 16

4 13.5 -0.52

5 16.5 -0.76

6 18.5 -0.89

7 21.5 -0.63

8 23.6 -0.64

9 26.7 0.29

10 28.9 0.06

11 32.

1

-0.00

12 34.3 0.44

13 37.6 0.53

14 40.0 -0.65

15 43.3 1.03

16 45.7 1.12

17 49.2 0.76

18 51.6 1.29

19 55.

1

0.62

Z E

-1.,86 22. 422

-0.,40 23., 191

-0., 13 23..392

-0.,26 23,. 157

-1., 10 22.,867

-1

.

,38 22.,935

-0.,55 23

.

,031

-0.,70 23.,086

0.,26 23.,764

0,, 13 23.,552

-0,.00 23..507

0..49 23..831

0..55 24..055

-0,.88 22.,997

1,. 10 24..370

1,.38 24,. 122

0,.88 23,.990

1,.86 24,.200

0..70 23,.929

SIGE T/SWT

0.680 573756.

0.534 554887.

9.734 529632.

0.673 51274S.

0.846 488986.

0.642 472496.

0.751 443867.

0.661 432094.

0.838 407559.

0.769 390441

.

0.861 355137.

0.734 347233.

0.946 320SS6.

0.780 302300.

0.834 275373.

0.550 256475.

0.638 22S012.

0.538 209822.

0.630 132190.

RATE TEMP

UEIGHTED MEAN E IS 23.508 + OR - 0.159

REDUCED CHISQ FOR E CALCULATION IS 0.630 (SHOULD BE 1 .

)

LINUEIGHTED MEAN OF SIGMAS IS 0.724

CALCULATED OVER 18. DEGREES OF FREEDOM

ASSUMING ALL POSSIBLE SAMPLE MEANS ARE NORMALLY

DISTRIBUTED. TRUE WEIGHTED MEAN LIES WITHIN RANGE 23.195 TO 23.821

FOR 95y, CONFIDENCE LEVEL

UNWEIGHTED ESTIMATE OF MEAN E AND UNBIASED ESTIMATE

OF ITS SIGMA ARE 23.495 AND 0.124

THIS GIVES A CONFIDENCE RANGE OF 23.251 TO 23.739

CHI-SQUARE FOR UNWEIGHTED E IS 0.63

19 DATA WRITTEN ON FILE = 8 =

DE *= -0.030+ 1.090YZ + 0.117>»<2 ^+2 + -0.193*Z

REDUCED CHI SQUARE IS 0.001 CALCULATED OVER 19 POINTS

3 CURVES GENERATED FOR DE/Z PLOTS

Z IS THE HORIZONTAL AXIS

DE IS THE FIRST CURVE SECOND CURVE IS LINEAR FIT OF DE TO Z

THIRD CURVE IS POLWOMIAL FIT OF DE TO Z

D2f

RATE
0.16322E+01 B ++

+

+

+

++

+

0.98633E+00 -+

+

+

+

++

+

+ 0.34048E+00 -+

++

+

++

+

+

-0.3053SE+00 -+

+C++

++

+

+ -0.95121E+00 -++

+

+

B

C

B

B

B

C

B

C fi

B B

B B

C

B' B

B

B

B

C

B

B

B

BC

B C

B

B C fl B B B

C

B B

C C

B

B

B

C

B

++

+

“0. 15971E+01 -B

0.1861E+010. 11168+010. 3721E+000. 3721E+080. 1H6E+810. 1S61E+01

B - DE V. Z

B - LINEAR FIT OF DE TO 2

C - POLYNOMIAL FIT OF DE TO Z

JOB COMPLETED

D30
An example of an incoherent data set where there was insufficient

coherence to form a basis for rejection of incoherent values. The

solution adopted was to examine only the values for the last few

percent of reaction where the sample was expected to behave most ideally.

TITLE OF INPUT FILE IS :

NBS IN 100?i N2 P=8500 m HG 3/22/78 BIG SftMPLE

PUMP OUT OPPftRATUS FIRST, RUN OVERNIGHT

CHANCE OF WRONGLY REJECTING RANDOMLY PLACED EXTREMUM

IS 15.05

PUT PROCESSED DATA ON FILE 8

ER E SIG E D.O.C. SWT

1 12.69 2.57 4. 15 1085470.00

2 36.82 3.48 5.53 1067210.00

3 31.17 1.30 8.26 1031410.13

4 35.91 1.14 9.44 1015930.19

5 20.64 3.09 11.20 992725.00

6 38.86 1.12 15. 10 941400.00

7 35.49 2.15 16.69 920566.00

e 30.65 2.71 19.24 887012.00

9 32.50 3.04 20.97 864279.00

10 46. 12 1.09 23.48 831207.00

11 18.74 1.35 25.06 810437.00

12 34.84 0.93 27.81 774356.00

13 42.76 • 0.96 29.40 753337.00

14 24.64 1.08 32.05 718563.00

15 60.62 1.20 35.71 670464.00

16 21.43 0.73 38.32 636114.00

17 43.09 0.91 40. 16 611956.00

18 21.01 1.22 42.76 577762.00

19 29.63 0.96 46.34 530683.00

20 29.73 0.73 48.82 498026.00

21 43. 17 1.24 50.56 475073.00

22 31.28 1.07 53.03 442594.00

23 42.98 1.14 54.69 420855.00

24 39.52 1.05 57.07 389516.00

25 36.25 0.90 53.62 369091.00

26 43.91 0.79 60.87 339541.00

27 33.85 0.81 62.34 320223.00

28 33.09 0.77 64.43 292732.09

29 45^22 0.86 65.81 274631.00

30 33.92 0.61 67.78 248676.00

31 36.71 0.65 69.03 231541.00

32 36.89 0.62 70.91 207555.00

33 . 40.48 0,60 72. 10 191946.00

34 36.94 0.44 73.78 169344.00

35 41.05 0.29 74.83 155931.00

36 46. 10 0.87 77. 16 125345.00

37 36.50 1.03 80.63 79011.37

38 53.48 0.87 82.69 52586.20

39 47.25 . 0.89 85.45 16312.40
40 40.06 0.65 86.97 -3690.95

41 47.16 0.59 89.05 -30987.50

42 46.37 0.29 90. 17 -45714.70

43 45.71 0.40 92.45 -75782.38

44 46.80 0.51 95.83 -109618.00

45 45.04 0.25 96. 15 -124405.00

46 45.75

; number 1

0.61 97.80 -146053.00

PRESENT STATUS : -AVERAGE WEIGHTED E IN KCAL/MOLE I'S 41.272

UNWEIGHTED AVERAGE OF SIGMA VALUES IS 1.099

EXAMINE LOG(SIGECD) DISTRIBUTION TO DISCARD

OUTLIERS ON BASIS OF DS STATISTIC, WHERE

DS » (AVERAGE LOG SIGE - LOG SIGE(I))/K

K « SCALE FACTOR

AND 2 * NORMAL DISTRIBUTION QUANTILE

DS - 0.800( 0.147) + 0.584( 0.152)5^7

REDUCED CHI SQUARE = 0.017 CALCULATED OVER 46. POINTS

RESCALE DS VALUES BY FACTOR OF 0.584 . REJECTED OUTLIERS FOLLOUC ABS (DS VALUE) GREATER THAN 2.685)

« DOC/TI^E DS 2 E SIGE T/SUT RATE TEMP RATE

.

0 DATA DISCARDED AS OUTLIERS IN TAILS OF DISTRIBUTION

46 DATA LEFT

OUlPUT REMAINING DATA

DOC/TIME DS Z E SIGE

I 4.

1

-1.98 -1.82 12.694 2.575

2 5.5 -0.77 -1.07 36.818 3.484

3 8.3 1.76 1.28 31.172 1.298

4 9.4 2.28 2.22 35.911 1.141

5 11.2 0.59 0.97 20 . 645 3.093

6 15.

1

0.37 0.67 38.363 1.120

7 16.7 2.08 1.82 35 . 430 2. 146

8 19.2 0.34 0.54 30.649 2.713

9 21.0 1.45 1.17 32.505 3.039

16 23.5 -0.72 -0.89 46. 123 1.035

11 25.1 1.85 1.42 18.745 1.343

12 27.8 2.05 1.59 34.841 0.929

13 29.4 0.30 6.48 42.758 3.953

14 32.0 0.65 1.07 24.640 1.077

15 35.7 0.02 0.08 60.623 1.200

16 38.3 0.07 0.14 21.423 0.733

T/SWT RATE TEMP RATE

1085470. • 16S7218.

1031410.

1015930.

932725.

941400.

920566.

887012.

864279.

331207.

810437.

774356.

7i33,i7

.

718563.

670464.

636114.

D32
17 40.2 0.27 0.42 43.092 0.913 611956.

le 42.8 0.45 0.74 21.011 1.229 577762.

19 46.3 -0.59 -0.48 29.631 0.961 530689.

20 48.8 -0.01 0.03 29.729 0.723 498026.

21 50.6 0.43 0.81 43.171 1 .236 475073.

22 53.0 0.07 0. 19 31.281 1.069 442594.

23 54.7 -1.26 -1.23 42.980 1.138 420355.

24 57. 1 -0.74 -0.97 39.519 1.050 389516.

25 58.6 -0.69 -0.81 36.255 0.399 369091,

26 60.9 -0.67 -0.74 43.907 0.789 339541.

27 62.3 -0 . 59 -0.67 33.851 0.305 320223.

28 64.4 -0.40 -0.54 33.095 0.769 292732.

29 65.8 -0.31 -0.42 45.223 0.864 274631.

30 67.8 -0 . 26 -0.36 33.924 0.614 243676.

31 69. 1 -0.23 -0.30 36.706 0.551 231541

.

32 70.9 -0.11 -0.25 36.839 0.622 207555

.

33 72. 1 -0.34 -0.03 49.430 0.538 191946.

34 73.8 0.23 0.30 3b . 942 0.441 169344.

35 74.8 0.25 0.36 41.054 0.290 155931.

36 77.2 8.36 3 . 60 46. 195 0.871 125345.

37 80.7 0.50 0.89 36.497 1.027 79011.

38 82.7 -8.59 -0.60 53.434 0.874 52586.

39 85.4 0. 19 0.25 47 . 246 0.894 15312.

40 87.0 -0.09 -0. 14 40.063 0.652 -3691.

41 89.0 -0.05 -0.08 47. 162 0.587 -30388.

42 90.2 -0.09 -0.19 46.369 0.232 -43715.

43 92.4 -1.43 -1.42 45.711 0.399 -75782.

44 95.0 -1.97 -1.59 46.894 0.515 -109618.

45 96.1 -0.99 -1.17 45.637 0.254 -124485.

46 97.8 -2.21 -2.22 45.755 0.605 -146053.

PASS NUMBER 2

PRESENT STATUS : -AVERAGE UEIGHTED E IN KCAL/MOLE IS 41.272

UNWEIGHTED AVERAGE OF SIGMA VALUES IS 1.0S9

EXAMINE E AND SIGE RELATIONSHIP TO DETECT

OUTLIERS ON DE STATISTIC

FIT OF DE TO Z

DE «= (E(I)-E AVERAGE) /SIG E(D

2 = NORMAL DISTRIBUTION QUANTILE

NUMBERS IN PARENTHESES ARE STANDARD DEVIATION

RESCALE SIGE VALUES BY FACTOR OF 10.667

INPUT SIGE VALUES NOW RESCALED BY FACTOR OF 10.667

REJECTED OUTLIERS FOLLOU(ABS(DE VALUE) GREATER THAN 2.685)

DOC/TIME DE Z E SIGE . T/SUT RATE TEMP

0 DATA DISCARDED AS OUTLIERS IN TAILS OF DISTRIBUTION

46 DATA LEFT

RATE

D33
OUTPUT REMAIN I NG DATA

* DOC/TIME DE Z E SIGE T/SUIT

1 4. 1

•-1.,04 •-0. 97 12. 694 27. 463 1835470.

2 5. 5

•-0., 12 0. 25 36. 813 37. 165 1067210.

3 8. 3

•-0..73 -0. 60 31. 172 13. 346 1031410.

4 9. 4

•-0..44 -0. 25 35. 911 12. 171 1015930.

5 11. 2

•-0,.63 -0. 36 20. 645 32. 994 992725.

6 15. I -0,.20 0. 03 38. 863 11

.

947 941400.

7 16. 7 -0,.25 -0. 03 35. 490 22. 892 920566

.

e 19. 2 -0,.37 -0. 14 30. 649 23. 941 837012.

9 21. 0 -0,.27 -0. 08 32. 535 32. 418 364279.

10 23. 5 0,.42 0..67 46. 123 11. 631 831207.

11 25. 1 -1..57 -1 . 82 18. 745 14.,390 810437.

12 27. 8 -0,.65 -0.,42 34. 841 o ,910 77-^-356.

13 29. 4 0,. 15 0.,43 42. 753 10.,219 753337.

14 32. 0 -1,.45 -1 .,28 24. 640 1 1 .,439 718563.

15 35. 7 1,.51 1.,82 60. 623 12.,801 670464.

16 38. 3 -2 .54 -2.,22 21. 428 7.,819 636114.

17 40. 2 0 . 19 0.,54 43. 092 Q ,739 611955.

18 42. 8 -1 .56 -1.,59 21. 011 13.,014 577762.

19 46. 5

< ” 1 . 14 _ 1 ^. 17 29. 631 10.,25! 530689.

20 48. 8 -1 .49 -1

.

.42 29. 729 7.. 766 498026.

21 50. 6 0 . 14 0..42 43. 171 13.. 185 475073.

22 53. 0 -0 .83 -0..74 31. 281 11.,403 442594.

23 54. 7 0 . 14 0..36 42. 980 12,, 139 420855.

24 57. 1 -0 . 16 0,. 14 39. 519 1 1

,

.201 389516.

25 58. 6 -0 . 52 -0..30 36

.

255 9,.590 369091.

26 60. 9 0 .31 0,.60 43. 907 3

.

,417 339541

.

27 62.,3 -0 .86 -0,.67 33. 851 !-| O <.537 320223.

28 64. 4 -1 .00 -0,.83 33. 095 3,.203 292732.

29 65.,8 0 .43 0,.74 45. 223 9,.217 274631

.

30 67.,8 -1 . 12 -1 ,.07 33. 924 .550 243676..

31 69., 1 -0 .66 -0 .43 3b

.

706 6,.944 231541

.

32 70.,9 -0 .66 -0 .54 36.,889 6,.635 207555.

33 72., 1 -0 . 12 0 . 19 40.,480 6,.379 191946.

34 73.,8 -0 .92 -0 .81 35

.

,942 4,.704 169844.

35 74.,8 -0 .07 0 .30 41.,054 3,.394 155931

.

36 77..2 0 .52 0 .8! 46., 105 9 .291 125345.

37 80..7 -0 .44 -0 . 19 36,,497 10,.955 79311.

38 82,.7 1 .31 1 .42 53

.

,434 9 .323 52586.

39 85,.4 0 .63 0 .89 47.,246 9 .537 16312.

40 87,.0 -0 . 17 0 .03 43.,063 6 .955 -3691

.

41 89,.0 0 .94 1 .07 47.. 162 6 .262 -30983.

42 90,.2 1 .64 2 .22 46..369 3 . 115 -45715.

43 92,.4 1 .04 1 .23 45,.711 4 .256 -75782.

44 95,.0 1 .01 1 . 17 46,,804 5 .494 -109618.

45 96 . 1 1 .39 1 .53 45,.037 .710 -124405.

46 97 .8 0 .69 0 .97 45,.755 6 .454 -146053.

RATE TEMP

UEIGHTED MEAN E'lS 41.272 + OR - 1.051

REDUCED CHISQ FOR E CALCULATION IS 0.870 (SHOULD BE 1.)

RATE

t D34
UNUEIGHTED MEAN OF SIGMAS IS 11.729

CALCULATED OVER 45. DEGREES OF FREEDOM

ASSUMING ALL POSSIBLE SAMPLE MEANS ARE NORMALLY

distributed, true weighted I-EAN lies U I THIN RANGE 39.211 TO 43.332

FOR 95% CONFIDENCE LEVEL

UNUEIGHTED ESTIMATE OF MEAN E AND UNBIASED ESTIMATE

OF ITS SIGMA ARE 37.454 AND 1.394

THIS GIVES A CONFIDENCE RANGE OF 34.721 TO 40.186

CHI-SQUARE FOR UNUEIGHTED E IS 1.16

46 DATA URITTEN ON FILE = S =

DE » -0.264+ 0.873^Z + 0.084>i<Z + 0.014>«Z >k>k3 REDUCED CHI SQUARE IS 0.000 CALCULATED OVER 46 POINTS

3 CURVES generated FOR DE/Z PLOTS

Z IS THE HORIZONTAL AXIS

DE IS THE FIRST CURVE SECOND CURVE IS LINEAR FIT OF DE TO 2

THIRD CURVE IS POLYNOMIAL FIT OF DE TO Z

+

+

++

+

+

+

+

C ft

ft

ft 0.12883E+01 +

+

+

+

ft B

C

-B

ftft B

flCB

CB

0.33176E+00 -

+

++

+

++

+

+

B

ftftft BB

Bft

ftftA +

+

+

+

ftB

ftft -0.62476E+00 -+

+

+

B

ftft

D35
+

++

0.I58I3E+01 -+

+

+

+C

+B++

.25376E+01 -ft

ft C

e

B

ft

6

ftft ftftB B

ft - DE V. z

ft - linear fit np C - POLYHotliRL F7 t^L'^° ^

JOB COMPLETED TO 2

+

^^24E+Qi

D36
Listings of the routines in the FORTRAN program TGDEPG.

SPlSSM

TGDEN PROG

$F0RT

$TRGT 16 c

C TGDEN, SET UP FOR nULTlPLE RUNS FRCn ONE START.

C PROGRAM TO EVALUATE TG DATA DERIVED FROM TEMPERATURE JUMPS

C

cC URITTEN BY B. DICKENS, 311.82 NSS

C

C TELEPHONE (381) 921-3322

C PROGRAM NEEDS THE FOLLOUING SUBROUTINES AND FUNCTIONS:

C DATARD

C PINV

C PLOT

C PR0BP2

C REGRES

C PLOT

C SORTS

C UTAVER

C

c

C COMMON BLOCKS /lO/ AND /REGRS/ DEFINED VIA ARRAY 'DUMP'

C COMMON /lO/ NTTYI,NTTYO, IN,NPR!N7,NFILEA,NFILE3

C COMMON /REGRS/ MC5) , R (5) , YF IT(250)

C

COMMON DUMP (275)

EQU I VALENCE ( NTTY I , DUMP (!)),( NTTYO , DUMP ( 2 )

)

, ( I N , DUMP ( 3 )

)

8, , (NPRINT,DUM?(4) ), (NFILEA,DLIMP(5) ) , (NF ILE3, DUM= (5) ) DIMENSION M(5) ,R(5) ,YF1T(250)

EQUIVALENCE (M( 1 ) , DUMP ( 18) ) , (R( 1 ) , DUMP ( 15) ) , (YF IT( 1 ) , DU:"? (28)

C

c

c

cc

cc

c

c

DIMENSION

DIMENSION

D I MENS I Of 1 DIMENSION

DIMENSION

DIMENSION

DIMENSION

DIMENSION

NTITLE(64),NTIME(50),TRFADC2,5O),RATE(2,53)

TEMP(2,58) ,SIGT(2,53),SIGR(2,58) ,E(53) ,5IGEC53)

SIJT(59) ,D0C(53)

DEZC10),rE(S0),Z(58)

DEPRC3 (50) , I D (58) , VRATE (53) , VTEM? (58)

SIGLOG(50)

I DOLD ( 50 ) , AZ ( 1 0 ) , S I GAZ ( 1 8

)

PL0TM(1G0,6),PLGTYC1S0,5),NPTS(S)

JioioK NOTE THAT THIS EQUIVALENCE MAY GIVE SOME SLIGHT POUND-OFF

CHANGES IN NTIME (=DOC= IS USUALLY USED IN THE FRCGAM

SO DOC SHOULD REMAIN UNCHANGED)

EQUIVALENCE ( DOC ( 1 ) , NTIME ( 1 )

)

OVERLAY NAMES AND FILE ASSIGNMENTS

INTEGER>K2 IPRIMS(3) , ISTTSS(3)

DATA IPRIMS /'OP','RI','MS'/. ISTTSS /'OS' , 'TT' , '33'/

NPRIMS=11

NSTTSS=12

)

NTTYO =4

CALL OVERLY ( IPRIMS, NPR IMS, 0, NTTYO)

C

C INITIALISE AND READ IN DATA

C

CALL PRIMES (NLOOPY, NDATA, NLOOP, SA\'ER, SA''/E, INDATA)

100 IF (NLOOPY.GT.O) CALL OVERLY ( IPRIMS, NPR IMS, 8, NTTfri)

CALL DATARD (SAVER, NTITLE,NLOOPY, IDOLD.E.SIGE, SLIT, DOC, NTIME, TI

8. , S I GT, RATE , S I GR , I D , I NDATA , NDATA , NERROR

)

IF (NERROR. GT.8) GO TO 608 :

D37
CALL OVERLY ( ]STTS3,NSTTSS,0,NTTY0)

SIGSCL = 1. C

C NTYME IS NUriBER OF CURRENT PASS LHEN SEEKING TO REJECT

C OUTLIERS AND RESCALE SIGE(I) VALUES.

C

NTYME = 0

C

C BEGIN BY CHECKING SIGtlA DISTRIBUTION

C ASSUME LN(SIGEdj) IS NORMALLY DISTRIBUTED

C (AS ORIGINALLY FORMULATED, THE FRQGRAM UAS TO CHECK SIGE(D>f^2

C AGAINST A CHI -SQUARE DISTRIBUTION, BUT THAT VERSION

C GOT TO BE TOO LARGE)

C

DO 180 I = 1,NDATA

DEPROB(I) = 1. SIGLOG(I) = ALOGCSIGECD)

180 CONTINUE

NSIG =0 - NFLAG2 = 'Z ' 190 NTYME = NTYME+1

IF (NFILEB.GT.S) UR ITE (NF ILE3, 2S0)' NPAME

IF (NPRINT.GE.3) UR ITE (MPR Ilfr, 200) NTYI'E

200 FORMAT (/12H PASS NUMBER, IS)

C

C GET UEIGHTED MEAN OF ACTIVATION ENERGY

C AND AVERAGE VALUE CUNUEIGHTED) OF SIGE(I).

C

CALL REGRES (DEPROB,E,SIGE,NDATA.0,M, 1 , YFIT,UTEAVE,AZ( 1)

8.,

UTSIZE,SIGAZ( 1) ,R,RMUL,RCHMN,TEST)

CALL REGRES (DEFR03 , S IGE, E, NDATA , O . M, 0. YF IT, S I GAVE, AZ C 1

)

8.,

AZ(2),SIGAZn) .R,RMLiL,RCH3IG,TEST)

IF (NFILEB.GT.S) UR ITE (NF ILE3, 2 10) LJTEAVE, S IGAVE

IF (NPRINT.GE.3) URITE (NFRINT,210) UTEAVE, S IGAVE

210 'FORMAT (//51H PRESENT STATUS; -AVERAGE UEIGHTED E IN KCAL/MOLE IS,

8. F7.3/33H UNUEIGHTED AVERAGE OF SIGMA VALUES IS,F7.3/)

C

IF (NSIG.EQ.I) GO TO 250

C

C EXAMINE DISTRIBUTION OF SIG E VALUES

C

C CALCULATE QUANTITIES FOR NORMAL PROBABILITY PLOT

C

IF (NFILEB.GT.S) URITE CNFILE3,220)

IF (NPRINT.GE.3) URITE (NPRINT,220)

220 FORMAT C//45H EXAMINE LGGCSIGEd)) DISTRIBUTION TO DISCARD/

8. 42H OUTLIERS ON BASIS OF DS STATISTIC, UHERE /

8. ' DS = (AVERAGE LOG SIGE - LOG 3IGEd))/K'/' K = SCALE FACTOR'/

8c ' AND Z = NORMAL DISTRIBUTION QUANTILE’/)

C

CALL REGRES (DEFRGB,SIGLOG,E,NDATA,0,M,0,YFIT,SIGLAV

8c, AZ ( 1

)

, S I GAZ (1 ) , S I GAZ (

2

) , R , Ri'iUL , RCHS I

G

, TEST)

I F (NPR I NT . GT , 3 ) UR I TE ( NPR I NT, S52 ) S I GLA

V

952 FORMAT(' AVERAGE OF LOG SIGMAS IS',F10.3//)

NFLAGl = 2HDS

CALL PR0BP2 (DE, Z, S IGLGG, DEPR03, S IGLAV, ID, NDATA)

CALL REGRES (Z, DE, DEPR03, NDATA, 1 , M, 1 , YF IT, AZ d ) , AZ (2)

8..

51,AZ( 1) ,SIGAZC2) ,R,RMIjL,CHISQR,TEST)

IF (NFILEB.GT.S) URITE (NFILEB,11) NFLAG 1 , AZ ( 1 ) , S IGAZ ( 1

)

8. ,AZ(2),SIGAZ(2) ,NFLAG2,CHISQR,NDATA

IF (NPRINT.GE.3) URITE (NPR I NT, 11) NFLAG 1 , AZ d ), S IGAZ (1

)

8. ,AZ(2) ,SIGAZ(2) ,MFLhG2.0MISQR, NDATA

11 FORMAT (/IH ,A2,2H =,F3.3, lH(,F7.3,-iH) + ,F8.3, 1H(,F7.3,2H)>;^, A2/

8. 21H REDUCED CHI SQUARE =,F7.3,17H CALCULATED OVER , 15, 7H POINTS/

8i ) C

D38
C fiPPLY SCALE TO DS AND SIGLOG

C

DO 230 I = l.NDATA

SIGLOG(I) = SIGL0G(i:'/A2C2)

230 DE(I) = DE(I)/AZ(2)

SIGSCL = SIGSCL>i:AZ':2) IF (NFILEB.GT.S:' U2I7E (NFILE5,240) SIGSCL

IF (NPRINT.GE.3) IJRITE (NPR1NT,240) SIGSCL

240 FORMAT (31H RESCALE DS VALUES BY FACTOR 0F,F9.3)

GO TO 330

250 CONTINUE

NFLAGl = 21-lDE IF (NFILEB.GT.S) WRITE (NFILEB,260)

IF (NPRINT.GE.3) WRITE aiPRIMT,2£0)

260 FORMAT (42H EXAMINE E AND SIGE RELATIONSHIP TO DETECT/

8. 25H OUTLIERS Oil DE STATISTIC/)

C

C CALCULATE QUANTITIES FOR NORMAL PROBABILITY PLOT.

C

CALL PR0BP2 (DE,2,E,SIGE,IJTEAVE, ID.NDATA)

C

C EXAMINE LINEARITY OF FIT OF DE TO Z

C

IF (NFILEB.GT.S) WRITE (NFILEB.270)

IF (NPRINT.GE.3) WRITE (NPR IMT, 270)

270 FORMAT (15H FIT OF DE TO 2/31H DE = (E(I)-E AV€RAGE)/SIG Ed)/

8. 33H Z = NORMAL DISTRIBUTION QUANTILE/

& 4SH NUMBERS IN PARENTHESES ARE STANDARD DEVIATION/)

IF (NTYME.EQ. 1 .AND. NFILEB.GT.S) WRITE (NFILEB,230)

IF (NTYME.EQ. 1. AND. NPRINT.GE.3) WRITE (NPR INT, 23'3)

280 FORMAT (49H ESTABLISH DE/Z CORRESPONDENCE AND HENCE SCALE OF,

8. ISH'SIGEd) VALUES/)

C

C USE PROBABILITIES FROM NORMAL DISTRIBUTION AND

C DE AS WEIGHTS IN CALCULATING DE/Z FIT

C

DO 2S0 I = 1,NDATA

DEPROB(I) = (0.39334223/SIGE(I))>*<E>P(-(DE(I)X-^2)/2.)

C

C MAKE DEPROB SUITABLE FOR ROUTINE WHICH EXPECTS

C STANDARD DEVIATIONS

C

290 DEPROB(I) = l./3QRTCDEPR0B(D)

CALL REGRES (Z, DE, DEPROB, NDATA, 1 ,M, 1 , YF IT, AZ ( 1 ) , AZ (2)

&,SIGAZ(1) ,SIGAZ(2) ,R,RMUL,CHISQR,7EST)

C

C APPLY SCALE FACTOR TO SIGE AND DE

C

DO 300 I = 1,MDATA

SIGE(I) = SIGE(I)4AZ(2)

300 DE(I) = DE(I)/AZ(2)

SIGSCL = SIGSCLWAZC2)

IF (NFILEB.GT.S) WRITE (NFILEB,310) AZ(2)

IF (NPRINT.GE.3) WRITE (NFR INT, 3 10) AZ(2)

310 FORMAT (/33H RESCALE SIGE VALUES BY FACTOR 0F,F7.3/)

IF (NFILEB.GT.S) WR ITE (NF ILEB, 320) S IGSCL

IF (NPRINT.GE.3) WRITE (NPRINT,320) SIGSCL

320 FORMAT (45H INPUT SIGE VALUES NOW RESCALED BY FACTOR 0F,F7.3/)

C

C PUT DE AND Z ARRAYS BACK IN CORRESPONDENCE WITH INPUT ORDER

C I.E. SORT ON ID ARRAY

C

330 CALL SORTS ( ID,DE,Z,NDATA)

C

C CHOP OFF OUTLIERS, I.E. BEYOND ABS(DE( I) .GT.SIGCUT)

C

D39
KOUNT = 0

C

C SIGCUT IS NORmL DEVIATE UHICH DIVIDES END 0RE0 OF NOP“^RL

G DISTRIBUTION SO TROT THERE IS f\ = SPvE = CHRNCE Or REJECTING fl C END VHLUE HMD = (1-SflVE) = CHANCE OF ACCEPTING IT. C PRESUmBLY TRUE OUTLIERS WILL BE MOSTLY REJECTED UNDER THIS

C CRITERION

C

FDATA = NDATA

TESTP = ((2. -3. 1415927/3. )/i:FDATA+1. -3. 1415327/4. -SAVE)

SIGCUT = ABSCPIMV(TESTP))

IF (NFILEB.GT.b) MRITE (NF ILEE. S/'D) NFLAG 1 , S IGCUT

IF (NPRIMT.GE.3) l.JRITE CNPR INT. 3^0) NFLAG 1 . S IGCUT

340 FORMAT (' REJECTED OUTLIERS FGLLO'.J (A33('.A2.

8. 20H VALUE) GREATER THAN..F6.3. IH)

)

IF (NFILEB.GT.b) URITE (NFILEB.35D) NFL AG 1 IF (NPRINT.GE.3) URITE CNFRINT,330) NFLAGl

350 FORMAT (/' =?r DOC/TIME ',A2,' 2 ' E SIGE T/SUT'

& 29H RATE TEMP RATE/)

C

C OUTPUT REJECTED VALUES

C

.DO 390 I = 1, NDATA

360 IF ( ABS (DEC I) ).LE. SIGCUT) GO TO 399

IF ( INDATA.GT.0)GO TO 3G5

IF (NFILEB.GT.S) URITE CNFILE3,370) IDOLDC I) ,NTIME( I) ,DE( I) & ,2(1) ,E( I) .GIGECI)

& , (TEMP (K, I), RATE (K, I ),!( = !.. 2)

IF (NPRINT.GE.3) URITE (NPRINT,370) IDOLD ( I ) , NTIME ( I ) , DE ( I

)

8. ,2(I),E(I),SIGECT)

8. . (TEMPCK, D.RATECK, !),!< = 1,2)

370 FORMAT ( 13, I9,2Fb.2,2F7.3,F7.2,El 1 .3,F7.2,E1 1 .3)

GO TO 375

365 IF (NFILEB.GT.S) URITE (MFILEB,372) IDOLDC I)',DOC( I) ,DE( I)

8. ,2(I),E(I),SIGE(I),SUT(I)

IF (NPRINT.GE.3) URITE (NPR INT, 372) IDOLD C I ) , DOC ( I ) , DE ( I

)

8. ,2(I),E(I),SIGE(I).SUT(I)

372 FORMAT ( I3,F9. l,2Fb.2,2F7.3,F10.G)

375 CONTINUE

KOUNT = KOUNT+1

NDATA = NDATA1

IF (I.GT.MDATA) GO TO 430

C

C REMOVE VALUES FROM ARRAYS AND CLOSE UP ARRAYS

C

DO 380 J = I, NDATA

IDQLD(J) = IDOLD(J+i)

E(J) = E(J+1)

SIGE(J) = SIGE(J+1)

SIGLOG(J) = SIGLOGCJ+l)

DE(J) = DECJ+l)

Z(J) = 2(J+1)

SIJT(J)=SUT(J+1)

D0C(J)=D0C(J+1)

DO 380 K = 1,2

TEMP(K,J) = TEMP(K,J+1)

RATE(K,J) = RATE(K,J+1)

SIGT(K,J) = SIGT(K,J+1)

SIGR(K,J) = SIGRCK,J-!-l)

380 CONTINUE

C

C CHECK NEU INFORMATION UHICH IS NOU IN OLD POSITION

C

GO TO 360

390 CONTINUE

400 CONTINUE

= GOOD

D40
DO 410 I = KMDPlTfl

410 ID(I) = I IF (HFILED.GT.6) LJRITE (NF ILEB, 420) KGUHT,H00TP1

IF a-lPRINT.GF.3) URITE aiPR INT, 420) IO0UNT,MDPTA

420 FCRrai (//M..32'I DOTO DISCARDED 00 OUTLIERS IN TOILS OF,

& 13H DISTRI0L'TIGM/I4, IGH DhTO LEFT,')

IF CNDATfi.LE.O) STOP

IF (NFILEG.GT.b) LRITE (NF I LEG, 425)

IF (NPRINT.GE.E) LJR H'E (NPR li IT. 425)

425 FORMAT (/22H OUTPUT REMO IN IMG DATA/)

IF (NFILEG.GT.b) L'RITE (t IF I LEG, 350) NFLAG 1 IF (NPRIMT.GE.3) URITE aiPRINT,350) NFLAGl

DO 430 I = I.NThTh

IF ( INDATA. EO.0) GO TO 426

IF (NFILEG.GT.b) L'RITE (NFILE3,3r2) IDOLD ( I ) , DOC ( I ) , DE ( I

)

a ,2( I) ,E( I) .SIGEC I) .SIJT(I)

IF (NPRINT.GE.3) LRITE (NPRINT,372) IDOLD ( I ) , DOC ( I ) , DE ( I

)

a , Z ( I ) , E ( I ) , S IGE ( I ) , SUTC I

)

GO TO 438

426 IF (NFILEG.GT.b) IJRITE (NF1LE3,370) IDOLD C I ) , MTIME ( I ) , DE( I

)

a , 2 ( I ) , E ( I ) , S IGE ( I ) , (TEMP (iC. I ) . RATE (1C, I ) . K= 1 , 2)

IF (NPRINT.GE.3) LoRITE (NPRINT.370) IDOLD C I ) . NTIME ( I ) , DE ( I

)

a ,Z(I),E(I),SIGE(I), (TEMPdC, I), RATE (K, I),K=1,2)

430 CONTINUE

C

C BEGIN AGAIN IF OUTLIERS HAVE BEEN DISCARDED

C

IF (KOUNT.GT.0) GO TO 190

C

C IF NO OUTLIERS MERE REJECTED, CHECK TO SEE IF TEST JUST

C CONCLUDED UAS ON E AND SIGE VALUES

C

IF (NSIG.GE. 1) GO TO 440

C

C NO'J TEST ON E AND SIGE VALUES

C

NSIG = 1 SIGSCL - 1. GO TO IS'3 440 CONTINUE

C

C AVERAGE E VALUES IN VARIOUS MAYS FOR FINAL PASS

C AND CALCULATE CONFIDENCE LIMITS

C

CALL UTAVER (E,STGE,NDATA,UTEAVE,SIGUTE,EAVE,E3IG)

C

C OUTPUT RESULTS ON FILE FOR SUBSEQUENT PROCESSING

C . URITE (MTTYO.4S0) NFILEA

460 FORMAT (/7H FILE =.. I4.,26H = IS FOR TRANSMISSION OF /

a 45H PROCESSED E/SIGMA E DATA TO SUBSEQUENT STEPS/)

l.JRITE (NFILEA, 120) NTITLE

120 FORMAT (32A2/32A2)

URITE (NFILEA, 470) UTEAVE,3IGUTE,EAVE,ESIG,NDATA

470 FORMAT (4F10.3,I5)

IF (INDATA. EG. 3) URITE (MFILEA,4S3)

a (NTIME(I),E(I),SIGE(I), (TEMP(J, I),SIGT(J, 1),RAT

a E(J, I) ,SIGR(J, I) , J = 1,2), IDOLD(I), I = 1,NDATA)

480 FORMAT ( I5,2F7.3,F7. 1,F4. 1,2F6.3,F7. 1,F4. 1,2F5.3, 15)

IF (INDATA.GT.0) URITE (NFILEA, 435)

a (IDOLD( I) ,E( I) ,SIGE(I) ,DOC( I) ,SUT( I) , I = 1,NDATA)

485 FORMAT ( I5.3F10.2,F15.2)

END FILE NFILEA

IF (NFILEB.GT.6) URITE (NFILEB,490) MDATA, NFILEA

IF (NPRINT.GE.3) URITE (HPR IMT,. 498) NDATA, NFILEA ' 490 FORMAT (/I4,23H DATA URITTEN ON FILE =,I4,2H =/)

D41
c

C GET COEFFICIENTS FOR LINERR PLOT

C USE E ftND SIGE AS TEMPORARY STORAGE ARRAYS

C

CALL REGRES (Z,DE,DEPROB,Nr'ATA.. 1,M. 1,E,AZC 1) ,AZ(2)

8. ,SIGA2(n,SIGAZ(2),R,r:riUL,Ci-;iSQR,TEST)

cC USE 4 TERM POLYNOMINAL TO OBTAIN WEIGHTED FIT OF DE TO Z

C

CALL REGRES (Z,DE.DEFR03,NDATA,3,M, 1 iIGAZ(2:> ..CHISC

SIGE

&,DEZ(2) ,SIGAZ'; 1) . T

IF (NFILES.GT.b) URITE MiF ILE3, 453:' NFLAG

fc ,NFLAG2,DEZ(3) ,NFLAG2,rEZ':4j ..NFLAG2.CHI3

IF (NPRINT.GE.3) MRITE PINT, 453)

8. ,NFLAG2,DEZ(3) ,NFLAG2.]jEZ':4) ,MFLAG2

450 FORMAT i;/lH ,A2, 3H = ., F7 . 3.. IH-:-. F7 . 3,

& 2H +,F7.3, ULT.A2.3H::4;3/22M REDUCED

& ' CALCULATED OVER'. 14, ' POINTS')

DO 495 I = 1,NDATA

PLOTYCI, 1) = DEC!)

PL0TY(I,2) = ECI)

PL0TY(I,3) = SIGE-; I)

DO 495 R = 1,3

PLOTX(I,[Q = Z(I)

495 CONTINUE

,CHI3

lHn;,A

CHI S

;DEZC 1)

E5T)

I ,DEZC 1) ,DEZC2)

CR,NDATA

1,

DEZC 1) ,DEZC2)

CR,MDATA

2, 1H + ,F7.3, 1ITK,A2

OUARE IS,F7.3,

DO 570 I = 1,3

570 NPTS(I) = NDATA

C

C PLOT FINAL RESULTS

C

URITE (NTTYO,520)

IF (NFILEB.GT.b) URITE CNFILEB,520)

IF (NPRINT.GE.3) URITE i:NPRIMT,520)

520 FORMAT (/' 3 CURVES GENERATED FOR DE/Z PLOTS'/

8, ' Z IS THE HORIZONTAL AiRIS'/' DE IS THE FIRST CURVE'

8. 38H SECOND CURVE IS LltlEAR FIT OF DE TO Z/

& 41 H THIRD CURVE IS POLYNOMIAL FIT OF DE TO Z/)

CALL PLOT C3,NPT3,PL0TX,PL0TY)

580 CONTINUE

IF (NF1LEB.GT.6) URITE (NFILEB,590)

IF (NPRINT.GE.3) URITE (NPRINT,593)

590 FORMAT (//12H A = DE V. Z/2SH B = LINEAR FIT OF DE TO Z/

8. 30H C = POLYNOMIAL FIT OF DE TO Z/14H JOB COMPLETED/' 1'

)

C

C FINISH OFF SAVE FILE IN CASE OF PREMATURE TERMINATION

C

600 IF (NERROR.GT.0)END FILE NFILEA

IF (NLOOPY.LT.NLOOP) GO TO 100

STOP

END

3H>f^':'

D42
sflssn

ACTIV PROG

SPORT

STRGT 16

C >H>X>H>K>«>{<>)oK>J?>lJ>K>K>f;>k>};>t«>X>toH>H>K>k>K>K>f«K>H>l»K>t»K.>|!>t:»o)oio(«K>K>fotc>K>k>!<Mo|ot:>K>!<.'ioKHoK>lot»f!>K>k>l< C

SUBROUT I NE ACT I V ( E , S I GE , TEflP 1 , TEMP2 , S I GT 1 , S I GT2

S<, TREAD 1 , TREAD2 , S I GTR 1 , S IGTR2

& , RATE 1 , RATE2 , S IGR 1 , S I GR2 , AT, MERROR

)

C

C SUBROUTINE TO CALCULATE ACTIVATION ENERGY FROM TEnPERATURE AND

C RATE DATA

C

C XoloK FOR A SINGLE E VALUE X^xok C

C E = ACTIVATION ENERGY

C SIGE = STANDARD DEVIATION OF E

C IE = ORDINAL NUhSER OF E IN LIST OF E VALUES

C TEMPI = FIRST TEMPERATURE UN DEGREES K)

C TEMP2 = SECOND TEMPERATURE

C SIGTl, SIGT2, = STANDARD DEVIATIONS OF TEMPI AND TEMP2

C TREAD = VALUES OF CORRESPONDING THERMOCOUPLE EMF'S IN MICROVOLTS

C VTEMP = CONTRIBUTION OF TEMP TO VARIANCE OF E C

C RATEl, RATE2, SIGRl, SIGR2 AND VRATE ARE SIMILAR VALUES FOR RATES

C AT = POLYNOMIAL COEFFICIENTS FOR EMF TO DEGREE K CONVERSION

C NERROR = ERROR INDICATOR

C

C

C NEEDS THE 'FOLLOUING COMMON BLOCK AND FUNCTION:

C COMMON /lO/ NTTYI,NTTYO, IN,NPRINT,NFILEA,NFILEB

C TDEGAB

C

COMMON DUMP (275)

EQUIVALENCE (NTTYI ,DUMP( 1 ) ) , (MTTYO, DUMP (2) ) , ( IN, DUMP (3))

• & , (NPRIHT,DUMP(4)), (NF ILEA, DUMP (5) ) , (NF ILEB, DUMP (6)

)

C

DIMENSION TEMP(2) ,S IGTC2) , TREAD (2) , S IGTR (2) , RATE (2) , S IGR (2) , AT(4)

C

c

R = 1.987/1000.

R2 = RX:X:2

NERROR = 0

TREAD(l) = TREAD 1 TREAD(2) = TREAD2

SIGTR(l) = SIGTRl

SIGTR(2) = SIGTR2

RATE ( 1

)

= RATEl

RATE (2) = RATE2

SIGR(l) = SIGRl

SIGR(2) = SIGR2

DO 30 J = 1,2

C

C GET TEMPERATURE IN DEGREES KELVIN, TREAD IS IN MICROVOLTS

C

TEMP(J) = TDEGAB (TREAD (J) , AT)

T = TREAD (J)+S IGTR (J)

S = TDEGAB (T, AT)

SIGT(J) = S-TEMP(J)

IF (TEMP(J) .LT. 1.) GO TO 40

IF (ABS(RATE(J)) .LT. 1.E-0S) GO TO 40

30 CONTINUE

C

C GET ACTIVATION ENERGY

D43
c TDIFF = TEMP (2) -TEMP < 1)

TDIFF = FlBS(TDIFF)

IF (TDIFF.lt. l.E-01) GO TO 40

T = RATE (2) /RATE (

n

IF (T.LT. 1 .E-06) GO TO 40

IF (T.GT. l.E+06) GO TO 40

IF (T.LT. 1.) T = l./T

RTEMP = ALOG(T)

ETEMP = TEMP (2) »:TEMP ( 1) /TDIFF

E = R>t;RTEMPM€TEMP

IF (ABS(E) .GT.200. .OR.ABS(E) .LT. 1.) GO TO 40

GO TO 90

C

C DISCARD THIS POINT FOR VARIOUS POSSIBLE REASONS

C

40 CONTINUE

IF (NPRINT.GE.3) URITE (NPR INT, 50) IE

IF (NFILEB.GT.b) URJTE (NF ILEB.. 50) IE 50 FORMAT (' ACT. ENERGY NUMBER', 13,' DISCARDED')

NERROR = 8

RETURN

90 CONTINUE

E2 = E>ti>::2 C

C GET ASSOCIATED SIGMA

C 1) FROM RATES

C

VRATE = ((SIGR(2)/RATE(2))>i::'K2+CSIGRCl)/RATE(l))>K>l^2)>}€

8.2/RTEMP>i:>i-'2

C

C 2) FROM TEMPERATURES

C

VTEMP = ((SIGT(1)/TEMP(1) W)>i<>K2+(SIGTC2)/TEMP(2)«)

&»c>!<2)>!€2X€TEMP>i:>i<2

C

C COMPUTE TOTAL SIGMA ON E

C

SIGE = SQRT(VRATEH-VTEMP)

C

C OUTPUT INITIAL AND CALCULATED VALUES

C

TEMP ( i ) = TEMP ( 1 ) -273 . 1

5

TEMP (2) = TEMP (2) -273. 15

IF (NPRINT.lt. 3) GO TO 200

WRITE (NPRINT,52)

52 FORMAT (/' ACTIVATION ENERGY FROM = ACTIVE =

' 8./6X, 'E',2X, 'SIG E' ,2X, 'FACTOR OR RATE '/)

URITE (NPRINT, 100)E,SIGE, (TEMP(J),SIGT(J),RATE(J).SIGRCJ),J = 1,2)

100 FORMAT (2F7.3,F8.2,FS.2,2E13.4/14X,F8.2,F6.2,2E13.4)

110 CONTINUE

C

C

120 URITE (NPRINT, 130)

130 FORMAT (/' CONTRIBUTION OF RATE AND TEMPERATURE TO VARIANCE'

8c, '( = SIGEX::-i;2)'/' RATE TEMP'/)

• URITE (NPRINT, 140) VRATE, VTEMP

140 FORMAT (2E12.3)

200 IF (NF ILEB. LE.b) RETURN

URITE (NF ILEB, 52)

URITE (NFILEEI, 100)E,SIGE, (TEMP(J),SIGT(J),RATE(J),SIGR(J),J = 1,2)

URITE (NFILEB,130)

URITE (NFILEB, 140) VRATE, VTEMP

TEMPI = TEMP(l)

TEMP2 = TEMP (2)

SIGTl = SIGT(l)

SIGT2 = SIGT(2)

RETURN

END

D44
$ASSM

ftVSDN PROG

SPORT

STRGT 16

Q 3X5MoM<)<<>MoMoMojoK5K>K>K)McK>MoMotofo|oMo|o!C!ofo(o}oK5MoMofoMoMoMc)|oMoK>Jo|oK5|oK>M< c SUBROUTINE AVSDN(ftVE,SD,Q,HVftL)

C

C SUBROUTINE TO CfiLCULftTE fl^/ERflGE AND STANDARD DEVIATION

C AVE = AVERAGE VALUE

C Q = INPUT VALUES

.C SD = STANDARD DEVIATION OF POPULATION OF Q

C NVAL = NUMBER OF VALUES

C

C NEEDS NO COMMON BLOCKS, FUNCTIONS OR SUBROUTINES

C

C RETURNS SD = l.E+06 IF ONLY ONE VALUE IS AVAILABLE

C

c DIMENSION Q(NVAL)

C

C CALCULATE AVERAGE

C

AVE=0.

DO 10 1=1, NVAL

10 AVE=AVE+Q(I)

AVE =AVE/FLOAT( NVAL)

IFCNVAL.GT. 1) GO TO 50

SD=1.0E+06

RETURN

50 SD=0.

C

C CALCULATE STANDARD DEVIATION

C

DO 43 1=1, NVAL

40 SD=SD+(AVE-Q(D) W

SD=SQRT(SD/(FLOAT(NVAL-l)))

RETURN

END

D45
ooo

ooo

oooonoooon

oo

SfiSSM

CHISQ PROG

SPORT

STRGT 16

SUBROUTINE CHISDCP,SP,XSQ.N)

J!oK3Wo(oM<><<>Mo!o(oK>to}<>k>K>K>io(<>fo}oloK?(c4;>t:>WoK5to*otoMo|ot»K5fotok>K5MoK>K>K>K>}ofoM«^^

SUBROUTINE TO CALCULATE REDUCED CHI SQUARE FOR N INPUT VALUES.

P = INPUT VALUES

SP = STANDARD DEVIATIONS OF P VALUES

XSQ = CHI-SQUARE VALUE FOR P AND SP ARRAYS

N = NUMBER OF P VALUES

NEEDS NO COMMON BLOCKS, FUNCTIONS OR SUBROUTINES

DIMENSION P(N),SP(N)

fiVE=0.

CALCULATE AVERAGE

DO 10 1=1,

N

10 AVE=AVE+P(I)

AVE=AVE/FLOAT(N)

XSQ=0.

IFCN.LE. 1) RETURN

CALCULATE CHI SQUARE

DO 20 1=1,

N

20 XSQ=XSQ+((AV'E-P(n)/SP(I))>»o!-'2

XS0=X3Q/FL0ATCN-1)

RETURN

END

D46
$fiSSM

DATARD PROG

$FORT

STRGT 16 c SUBROUTINE DATARD (SAVER, HTITLE, NLOOPY, ITOLD. E, S IGE, SUT, DOC,NTIME

8. , TREAD, SIGT,RATE,SIGR, ID, INDATA, NDATA, NERROR)

C

c

C NEEDS THE FOLLOUING SUBROUTINES AND FUNCTIONS:

C ACT IV

C EREAD

C READ IN C READX

C AND COMMON /lO/ NTTYI , NTTYO, IN, NPR INT, NF ILEA, NF ILEB

C

COMMON DUMP (275)

EQUIVALENCE (NTTYI , DUMP ( 1 )) , (NTTYO, DUMP (2) ) , ( IN, DUr-P (3)

)

8. , (NPR INT, DUMP (4) ) , (NF ILEA, DUMP (5) ) , (NF ILEB, DUMP (6)

)

C

DIMENSION NTITLE(64) ,NTIME(50) ,TREAD(2,50) ,RATE(2,50)

DIMENSION TEMP(2,5G) ,SIGT(2,50),SIGR(2,5O) ,E(56) ,SIGE(50)

DIMENSION NSTAR(32) ,SLIT(50) ,DOC(50)

DIMENSION AT(4) , IDOLD(50) , ID (58) , VRATE (50) , VTEMP (50)

NLOOPY = NLOOPY+1

C

c URITE (NTTYO, 1 18) NLOOPY

110 FORMAT (12H FILE NUMBER, 13)

C

C READ AND URITE TITLE OF INPUT FILE

C

READ (IN, 120) NTITLE

120 FORMAT (32A2/32A2)

DO 130 I = 1,32

130 NSTAR(I) = 2H^;:mc IF (NFILEB.GT.6) GO TO 131

URITE (NFILEB, 140)NTITLE

URITE (NFILEB, SO) SAVER

90 FORMAT(/' CHANCE OF URONGLY REJECTING RANDOMLY PLACED EXTREMUM'

30 FORMAT(/' PUT PROCESSED DATA ON FILE', 13)

131 IF (NPRINT.lt. 3) RETURN

URITE (NPRINT, 120) NSTAR

URITE (NPRINT, 14.0)

140 FORMAT (25H TITLE OF INPUT FILE IS ://)

URITE (NPRINT, 120) NTITLE

URITE (NP.tiNT, 150)

150 FORMAT (//)

URITE (NPRINT, 120) NSTAR

URITE (NPRINT, 159)

URITE (NPR INT, 90) SAVER

URITE (NPRINT, 30) NFILEA

C

C READ IN DATA

C

151 .IF ( INDATA. GT.O)GO TO 85

C

C GET THERMOCOUPLE COEFFICIENTS, READ IN DATA

C

CALL THMCPL (AT)

CALL READIN (NTIME, TREAD, SIGT, RATE, SIGR, ID, NDATA)

D47
ooo

noo

ono

non CflLCULflTE E ACT. AND ASSOCIATED SIGMA

DO 170 I = l.HDATA

IDOLD(I) = ID(I)

CALL ACTIV (E,SIGE,TEMPn, n,TEMP(2. D.SlGTd, n.SIGTC2.I)

8. ,TREAD(1, I), TREAD 1: 2 , D.SIGTCl. I),SIGT(2. D.VTEMP

8. ,RATE(1, n,RATEC2. I),SIGR(1. D,SIGRC2, I),VRATE

8. ,AT,NERR0R)

IF (NERROR.GT.O) RETURN

170 CONTINUE

RETURN

READ IN E VALUES

85 IF (INDATA. ED. n GO TO 88

URITE (NTTY0.S9)

''89 FORMAT (/' READ INITIAL AND FINAL SAMPLE UEIGHTS. FREE FORMAT')

UINITL = READX (lU.NERRGR.S, IN, NTTr'O. lEOF)

UFINAL = READX ( lU, NERROR, 1 , IH,-NTTY0, lEOF)

SAMPUT = LJINITL-UFINAL

IF (NFILEB.GT.6) UR I7E CNF ILEB, 3 1 ) UIN ITL, IJF INAL

IF (NPRINT.GE.3) UR ITE (NPR INT, 8 1 ) UIM ITL, UF INAL

81 FORMATC/' INITIAL AND FINAL UEIGHTS READ FROM INPUT FILE AS'

8. /2F15.3)

SET DIMENSION STATEMENT IN EREAD VIA NDATA

88 NDATA = 53

CALL EREAD (ID, E,S!GE,SUT, DOC, NDATA, INDATA, NERROR)

IF (IHDATA.EQ. 1) GO TO 87

DO 86 I = 1, NDATA

86 DOC(I) = ((UINI7L-SUT(I))/SAMPLJT)>i:109.

87 DO 180 I = 1, NDATA

180 IDOLD(I)=ID(I)

OUTPUT UHATEVER UAS INPUT

IF (NFILEB.GT.6) URITE (NFILEB,100)

IF (NPRINT.GE.3) URITE (NFRINT, 180)

100 F0RMAT(/' NUMBER', SX,'E',5X,'SIG E' , 4X, ' D . 0 . C

. ' , I2X, ' SUT'/)

IF (NFILEB.GT.6) URITE (NF ILEB, 2 10) . ( IDOLD ( I ) , E C I ) , $ IGE ( I ) , DOC ( I

)

8. ,SUT( I) , I = 1,NDATA)

IF (NPRINT.GE.3) URITE (NPRINT,210) ( IDOLD ( I ) , E ( I ) , S IGE ( I ) , DOC ( I

)

8. ,SUT(I), 1 = 1, NDATA)

210 FORMAT(I7,3F10.2,F15.2)

RETURN

END

D48
SflSSM

eread prog

$FORT

STRGT 16

Q

,^c4o»ofo^oMoMoK>toK>^^MC)Mo^oK^MoK>Mo^o}oMoK5K>^o^oMoMoMoK^ c SUBROUTINE EREAD(IDOLD,E,SIGE,SUT,DOC,NDATA, INDATfi, NERROR)

C

0

Jjo^oK^oK>MoMc^oloH>K>K>M<>MoK>K>tofoK)^:>K>K>K>K>Koto!<>^oMoK>K5k>«>loK^ cC SUBROUTINE TO READ IN E/SIGE FILE FROM TGRUNF

C NEEDS COMMON /lO/ NTrn,NTTYO, IN,NPRINT,NFILEA.NFILEB

C AND FUt^CTION READX

C

COMMON DUMP (275)

EQUIVALENCE (NTTYI , DUMP ( 1 ) ) , (NTTYO, DUTP (2) ) , ( IN, DUMP (3)

)

• 8. , (NPRINT,DUMP(4) ) , (NF ILEA. DUMP (5) ) . (NF ILEB, DUMP (5)

)

C

DIMENSION ID0LD(NDATA).E(NDATA).SIGE(NDATA).3UT(NDATR)

&.DOC(NDATA)

C

c NDATA IS INITIALISED NEAR DIMENSION STATEMENT IN MAIN PROGRAM

C

NDO = NDATA

NDATA = 0

C

C READ IN E/SIG E FILE (5 RECORDS PER ACTIVATION ENERGY)

C

DO 10 I = l.NDO

J = READX (IU,NERRCR,3, IN.NTTYO, lEOF)

C

C TEST FOR EOF

C

IF (IEOF.GT.0)GO TO 20

NDATA = NDATA+1

IDOLD (NDATA) = I E(NDATA) = READX ( IIJ.NERROR. 1 . IN.NTTYO. lEOF)

SIGE(NDATA) = READX ( lU. NERROR. 1 . IN. NTTYO. lEOF)

A = READX ( !U, NERROR, 1. IN.NTTYO, lEOF)

SUT(NDATA) = READX ( lU.NERROR. 1 , IN.NTTYO, lEOF)

IF ( INDATA. EQ. 1) DOC (NDATA) = READX ( lU. NERROR. 1 . IN.NTTYO. lECF)

C

C SPACE OVER REST OF RECORDS FOR THIS ACTIVATION ENERGY

C

DO 15 K = 1.4

15 A » READX ( lU.NERROR. 3. IN.NTTYO, lEOF)

10 CONTINUE

20 CONTINUE

RETURN

END

D49
onoono

ooo

ffftSSM

FCTN PROG

$FORT

$TRGT 16

3(oMot»Mojc>(C)McHo(oKJK>K5iofo|oMoK>Mo(c>ioMoK>Mc>lcMoto!o|cM<5McloK^

FUNCTION FCTN (X, I, J, JTERnS,NPTS)

3foMoJ<>MoMoK5!o»otoK><ok>K>l<>toK>foiotoK>!clo}cloMok>)<>K>Mo>K>k>K:^<>K>»ot;>K>i<>toioM<>fo^

FUNCTION TO CALCULATE FITTED VALUES FOR REGRES SUBROUTINE

DIMENSION X(NPTS),JTERMS(J)

JEXP=JTERM3(J)

FCTN=X(I)>t^^JEXP

RETURN

END

D50
S4^ssn

r^TIHV PROG

$fort

STRGT 16

Q

5MoMoMotokMc+ofo*oMoMoMoK5K>K>»oMoMoMo«oMciOH>K5MoMoMctoMclc>toMotc^^ c SUBROUTINE MATINV (flRR<^Y,MORDER,DET)

C

Q

jK3MoK5ioMoK>!otc>oMoK^>loK>K>-.'>i<V>(ot:>K:>k>r4c^:>K>toKHoK5»oMok>k>K>toK>K>K:K>K^^ c SUBROUTINE FOR MATRIX INVERSION

C

DOUBLE PRECISION ARRAY, AMAX,SA\/E

dimension ARRAY(5,5) , IK>:5) , JK(5)

DET=1.

DO 190 K=1,N0RDER

C

'c FIND LARGEST ELEMENT ARRAY(I.J) IN REST OF MATRIX

C

QMC»y=P1

10 DO 30 I=K,NCRDER

DO 30 J=K,NORDER

IF (DA3S(AMAX)-DABSCARRAY(I, J))) 20,20,30

20 AMAX=ARRAY(I,J)

IK(K)=I

JK(K)=J

30 CONTINUE

C

c INTERCHANGE ROUS AND COLUMNS TO PUT AMAX IN ARRAY(K,K)

C

IF (AMAX) 50,40,50

40 DET=0.

GO TO 2E0

50 I=IK(K)

IF (I-K) 10,80,60

60 DO 70 J=1,N0RDER

SAVE=ARRAY(K, J)

ARRAY(K,J)=ARRAYCI,J)

70 ARRAY(I.J)=-SAVE

80 J«=JK(K)

IF (J-K) 10,110,90

90 DO 100 I=1,M0RDER

SAVE=ARRAY(I,K)

ARRAYC I , K) =ARRAY( I , J)

100 ARRAY(I,J)=-SAVE

C

C ACCUMULATE ELEMENTS OF INVERSE MATRIX

C

110 DO 130 I=1,N0RDER

IF (1-K) 120,130,120

120 ARRAY(I,K)=-ARRAY(I,K)/AMAX

130 CONTINUE

DO 160 I=1,N0RDER

DO 160 J=1,N0RDER

IF (I-K) 140,160,140

140 IF (J-K) 150,160.150

i 50 ARRAY( I , J ) ^ARRAYC I , J) +ARRAY( I , K) >kARRAY(K, J)
160 CONTINUE

DO 180 J=l,NORDER

IF (J-K) 178.180,170

170 ARRAY (K.J)=PiRRftY(K,J)/flmX

180 CONTINUE

ARRAY<K,K) = l./AmX

190 DET=DET>:=AmX

C

C RESTORE ORDERING OF MATRIX

C

200

210

220

230

DO 250 L=l,NORDER

K=NORDER-L+l

J=IK(K)

IF (J-K) 220,220.200

DO 210 I=l,NORDER

SAVE=ARRAY(I,K)

ARRAYC 1 . K ) =-ARRAY( I . J)

ARRAY(I,J)=SAVE

I=JK(K)

IF (I-K) 250,258.230

DO 240 J=l,NORDER

SAVE=ARRAY(K.J)

ARRAY(K, J) =-P.RRAY( I. J)

240 ARRAY(I,J)=SAVE

250 CONTINUE

260 RETURN

END

SASSM

PINV PROG

SPORT

STRGT 16

C

FUNCTION PINV (Q)

C

Q :Mc<oMoK)foMoK>K>K>K5K5K^>iofo{oK>toK3<oMoio)<>iJ>|c>}ojo|oM<>(cK>K><<5K>to(<>K>Moio|o!<>k>(ok^^

C

C FUNCTION TO CALCULATE NORMAL DISTRIBUTION QUANTILE FROM AREA, Q, UNDER

C DISTRIBUTION CURVE. Q GIVEN BY FILLIBEN. IN N3S TECHNICAL NOTE 552, PM6

C

PINV = 4.91^(EXP(0. 14>KALOG(Q))-EXPC0.14>f<ALOG(l.-Q)))

C

END

D52
SASSM

PLOT PROG

SPORT

$TRGT 16

Q

)MoMol<HoM5{oK5McMoMoK5}ofoMC)K>K5MoMo<>MoMoMoMC>K5fnK>Mc*>)oK5Mci^^ c SUBROUTINE PLOT (JM, IM,X,Y)

C

C

j(oK^H>K>MoJ<>K>K>to(ot<>K>|ok>K>to(c>K>toi<>KoK>foioK>K5»c^o}oioK)»oMc>M<>4oioloK>^ c

C PLOTTING SVraOLS PRE fl B C D E F IN THAT SEQUENCE.

C THE SCALE-DEFINING POINTS, SAY, k0,0) AND (.10E+02, . 10E-03)

C SHOULD BE CONFINED TO THE FIRST CURVE ONLY.

C

c JM = NUMBER OF CURVES

C IM(JC) = NUMBER OF POINTS IN CURVE JC

C (THIS NUMBER INCLUDES ANY LIMIT DEFINERS (FIRST CURVE ONLY))

C

C NEEDS COMMON BLOCK /lO/ NTTYI , NTTYO, IN, NPRINT, NF ILEA, NF ILEB

C

COMMON DUMP (275)

EQUIVALENCE (NTTYI ,DUMP( 1) ), (NTTYO, DUM?(2) ),( IN, DU.MP(3) )

8. , (NPRINT,DUM?(4)) , (NFILEA,DUMP(5) ) , (NFILEB,D'JMr (6) ) C

c DIMENSION X(160,6),Y(100,6), IM(6),P(51),YSC(6),XSC(6),S(6), IL(6)

C

INTEGER R,C,RM1

C

DATA BLANK, DASH, PLUS, S /IH , 1H-, 1H+, IHA, IHB, IHC, IHD, IHE, IHF/

C

YM *= Y(l,l)

Y0 = Y(l,l)

XM •= X(l,l)

X0 = X(l, 1)

DO 40 J = 1,JM

C

C FIND LIMITS OF PLOT

C

IMM = IM(J)

DO 40 I = 1,IMM

IF <Y(I,J) .LT.'-fTI) GO TO 10

YM = Y(I,J)

10 IF (Y(I,J) .GT.Y0) GO TO 20

Y0 “ Y(I,J)

20 IF (X(I,J) .LT.XM) GO TO 30

XM » X(I,J)

30 IF (X(I,J) .GT.X0) GO TO 40

X0 - X(I,J)

40 CONTINUE

DYM = YM-Y0

DXM » XM-X0

YSC(l) = YM

XSC(l) «= X0

DO 50 L = 2,6

50 YSC(L) YSC(L-l)-DYrV5.

D53
60

DO 60 L » 2.6

XSC(L) = XSC(L-l)+DXn>^.

DO 70 J = l.JM

IMl = DO 70 I = i.im

c

C SORT IN DECREASING Y

C

IPl = I+l

IMM = iri(j)

DO 70 II = IPl.im

IF (Y(I I.J) .LT.Y(I.J)) GO TO 70

TEMP = Y(I.J)

Y(I.J) = Y(II.J)

Y(II.J) = TEMP

TEMP = X(I.J)

C

C KEEP X AND Y PAIRED

C

xa.j) = x(ii.j)

X(II.J) = TEMP

70 CONTINUE

R = 0

C

C START PLOT

C

L “ 0

DO 80 J = l.JM

60 ILCJ) = 0

90 R = R+1

RMl = R-1

ARl = (RMl-.5)/50.

YQl = YM-AR1>XDYM

AR2 = (RMl+.5)/50.

YQ2 = YM-AR2H.-DYM

DO 100 C = 1.51

100 P(C) = BLANK

C

C BLANK THE LINE

C

J = JM

110 I = IL(J)

120 I = I+l

IF (I.GT.IM(J)) GO TO 130

IF (Y(I, J) .GT.YQl) GO TO 120

IF (Y(I. J) .LT.YQ2) GO TO 130

C = 50.0^<((X(I,J)-X0)/DXM)+1.5

P(C) = S(J)

GO TO 120

130 IL(J) = I-l

J = J-1

IF (J) 140.140.110

140 IF (MOD(RMl.S) .EQ.0) GO TO 160

URITE (NPRINT. 150) PLUS.P

GO TO 190

150 FORMAT (IH ,14X,A1.51A1)

D54
160 IF (MODCRMl. 10) .EQ=0) GO TO 170

URITE (NPRINT, 150) DPSH,P

GO TO 199

170 L = L+1

URITE (NPRINT, 180) YSC(L),DASH,P

C

C PRINT ROU R

C

180 FORMPT (IH .E13.5, lX,ftl,51fil)

190 IF (R.LT.51) GO TO 90

DO 210 C = 1,51

C

C FORM X fiXIS

C

ICMl = C-1

IF (MODdCMl, 10) .NE.0) GO TO 200

P(C) = PLUS

GO TO 210

200 P(C) = DftSH

210 CONTINUE

URITE (NPRINT,220) P

C

C PRINT X AXIS

C

220 FORMAT <1H ,15X,51AI)

URITE (NPRINT, 230) XSC

230 FORMAT (11X,6E10.4)

RETURN

END

D55
SftSSM

PNORM PROG

SPORT

STRGT 16 c SUBROUTINE PNORM (X,NDOTft)

C

c

C SUBROUTINE TO COLCULOTE NORMRL DEVIATE FROM AREA OF

C NORMAL PRC'BABILITY DISTRIBUTION

C SEE OMNITAB 2 MANUAL, MBS TECHNICAL NOTE 552, ( 197 1) P 146

.

C

DIMENSION X(NDATA)

C

PI = 3. 1415927

FDATA = NDATA

DO 10 I = 1, NDATA

FI = I XI = (FI-PI/8.)/(FDATA+l-PI/4.)

X(I) = PINV(XI)

10 CONTINUE

C

C CHANGE XI FOR FIRST AND LAST ITEMS IF NDATA. LE. 10

C

IF (NDATA. GT. 10) RETURN

XI = (3.-l.)/(3.>i:FI + l.)

X(l) *= PINV(XI)

X(NDATA) = -X(l)

RETURN

END

D56
SftSSM

PRIMES PROG

SPORT

STRGT 16

c SUBROUT I NE PR I MES ( HLOOPY, NDhTO , NLOOP , SAVER , SAVE , I ND ATA

)

C

c

C SUBROUTINE TO INITIALISE TG ACTIVATION ENERGY ASSESSMENT

C PROGRAM

C

C NEEDS SUBROUTINE READY

C AND COMMON BLGCICS /lO/ HTTYI , NTTYO, IN, NPR INT, NF ILEA, NF ILEB

C AND /REGRS/ M(5) ,RC5) , VFITC250)

C

COMMON DUMP ( 275 ;i EQUIVALENCE (NT7YI , DUMP U )) , CNTTYO, DUMP (2) ) . CIM.DL'M^CS))

8, , (NPRINT,DlJMPi;4) ) , aiFILEA,DUMPC5) ) , CNF ILE3, D'Jr;? C5)

)

DIMENSION M(5:> ,R(5) .YFITC250)

, ^ EQUIVALENCE CMC 1) , DUMP ( 10) ) , (R C 1 ) , DUMP ( 15) ) , (YF ITC 1 ) , DUMP C20)

)

NLOOPY = 0

NDATA = 50

C

C INITIALISE FILES, ETC.

C

NTTYI = 4

NTTYO = 5

IN = ?

NPRINT = 6

NFILEA = 8

NFILEB = 9

DO 5 I = 1,5

5 MCI) = I C

C

URITE (NTTYO, 10) IN 10 FORMAT (/' TGACTE PROGRAM'

8. /'READ INPUT DATA FROM FILE', 13)

URITE (NTTYO, 20) Nr PINT

20 FORMAT (5H FILE,I4,14H IS FOR OUTPUT) ' URITE (NTTYO, 30) rjpiLEA

30 FORMAT (27H PUT PROCESSED DATA ON FILE, 14)

URITE (NTTYO, 43)

40 FORMAT (' GIVE NUMBER OF FILES TO EXAMINE (IN FREE FORMAT)')

NLOOP = READY ( IIJ, NERROR, 3, NTTYI , NTTYO, lEOF)

URITE (NTTYO, 60) NLOOP

60 FORMAT (' EXAMINE', 14, ' FILES')

URITE (NTTYO, 70)

70 FORMAT (43H GIVE CHANCE OF REJECTING EXTREME VALUE IF /

8. 31H FLUCTUATIONS ARE PURELY RAND0M/27H (3.31 TO 3.43, ZER0=3. 10)

8./12H FREE FORMAT)

SAVER = READY ( I U, NERROR, 3, NTTYI , NTTYO, I EOF)

IF (SAVER.lt. 1 .E-05) SAVER =0.13

URITE (NTTYO, 90) SAVER

90 FORMAT (56H CHANCE OF URONGLY REJECTING RANDOMLY PLACED EXTREDrUM I 6iS, Fb . 2)

SAVE = 1. -SAVER

URITE (NTTYO, S3)

80 FORMAT (/' GIVE 0 FOR RATE DATA INPUT'

8./' 1 FOR E/SIG E ItlPUT (OUTPUT OF TGRUNF)'

8./' UITH DEGREES OF CONVERSION IN FILE'

8./' 2 FOR E/SIG E INPUT UITH D.G.C. TO BE CALCULATED')

INDATA = READY ( lU, NERROR, 3, NTTYI , NTTYO, lEOF)

100 CONTINUE

RETURN

END

D57
SPISSM

PR0BP2 PROG

SPORT

STRGT 16 c SUBROUTINE PR0EP2 (DE,Z,E,SIGE,EPlVE, ID,NDPTft)

C

c

C SUBROUTINE TO CPLCULP7E DE OUPlNTITIES, ORDER THEM AND

C ASSIGN ASSOCIATED Z VALUES FROM ORDER STATISTICS ASSUMING

C A NORMAL DISTRIBUTION.

.

C

C NEEDS SUBROUTINES:

C PNORM

C S0RT4

C

DIMENSION DE(NDATA),Z(NDATA),E(NDATA),SIGECNDATA), ID(NDATA)

C

DO 10 I = 1,NDATA

10 DE(I) = (E(I)-EAVE)/SIGE(I)

C

C ORDER ON DE

C MAKE ID INTEGER IN SORT4 SUBROUTINE

C

CALL SORT4 (DE, ID. NDATA)

C

C CALCULATE NORMAL DISTRIBUTION QUANTILES

C

CALL PNORM (Z.NDATA)

RETURN

END

SASSM

PNORM PROG

SPORT

STRGT 16

C

SUBROUTINE PNORM (X.NDATA)

C

c

C SUBROUTINE TO CALCULATE NORMAL DEVIATE FROM AREA OF

C NORMAL PROBABILITY DISTRIBUTION

C SEE OMNI TAB 2 MANUAL, NBS TECHNICAL NOTE 552. ( 1971 ) P146

C

DIMENSION X(NDATA)

C

PI “ 3.141592?

FDATA = NDATA

DO 10 I = 1, NDATA

FI = I XI = (FI-PI/S.)/(FDATA+1-PI/4.)

X(I) = PINV(XI)

10 CONTINUE

c

C CHANGE XI FOR FIRST AND LAST ITEMS IF NDATA. LE. 10

C

IF (NDATA. GT. 10) RETURN

XI = <3.-1. 1/CS.^XFI+I.

)

X(l) = PINV(XI)

X(NDATA) - -X(l)

RETURN

END

t D58
sflssri

READ IN PROG

SPORT

STRGT 16

Q )K5(oM<;<oMoK>K5(otoMoMOK5(ojoK5K5MoMc^oMc^oWc<otoMc>K5Mc>MOK>K:MoloMofc4^^ c SUBROUTINE READINCNTIME, TREAD. SIGT,RATE,SIGR, ID.NDATA)

C

v.T' /^yT\ !v/T^^JN wjV^j\^S y^wT\x| > /f\ 4 /T' [V.^> c

C SUBROUTINE TO READ RAIJ DATA

C NEEDS COMMON /lO/ NTTYI .NTTYO, IN.NPRINT.NFILEA.NFILEB

C

COMMON DUMP (275)

EQUIVALENCE (NTTYI , DUMP ( 1) ) . (NTTYO, DUMP (2) ).( IN, DUMP (3)

)

& , (NPRINT,DUMP(4)), (NFILEA,DUMP(5)), CNF ILEB, DUMP (6)

)

C

DIMENSION NTIME(50),TREAD(2,50),SIGT(2,50),RATE(2,50),SIGR(2,50),

8. ID(50)

C

c

IF (NFILEB.GT.6) URITE (NFILEB.10)

IF (NPRINT.GE.3) URITE (NPRINT, 10)

10 FORMAT (46H TI^E THCPL SIG THCPL RATE,

8, 12H SIG RATE/)

NERROR = 0

NDATA = 0

DO 50 I = 1,50

NTIME(I) = READXC lU, NERROR, 3. IN, NTTYO. lECF)

TREAD (1,1) = READX( lU, NERROR. 1, IN, NTTYO, lEOF)

SIGTd.I) = READX( IIJ. NERROR. 1, IN, NTTYO, lECF)

RATECl.I) = READX( I U, NERROR. 1, IN. NTTYO. T EOF)

SIGRd.I) = READXdU.NERROR. I. IN.NTTt’O, lEOF)

TREAD(2,I) = READXdU.NERROR. 1. IN. NTTYO, lECF)

SIGT(2,I) = READXdU.NERROR. 1. IN. NTT/O. lEOF)

RATE(2.I) = READX( lU, NERROR, 1, IN. NTTYO, lECF)

SIGR(2,I) = READX( ILJ, NERROR, 1. IN, NTTYO. lEOF)

IF (NFILEB.GT.6) URITE (NF ILEB,-30) NTIME (I )

.

(TREAD( J, I) . SIGT( J, 1

)

&-,RATE(J. I) ,SIGR(J, I) , J = 1.2)

IF (NPRINT.GE.3) URITE (NPRINT.30) NTIME(I) , (TREAD(J, I) ,SIGT(J, I)

8.,RATE(J,I).SIGR(J. I),J = 1.2)

30 FORMAT (I 10.4E12.4/10X4E12.4)

C

C PUT THERMOCOUPLE READING IN MILLIVOLTS

C

DO 40 J = 1.2

TREAD(J,I) = TREAD(J, I)>K1O00.

40 SIGT(J.I) = SIGT(J. D>*a0O0.

IDCI) = I NDATA « NDATA+1

50 CONTINUE

IF (NFILEB.GT.6) URITE (NFILE8.70)NDATA

60 IF (NPRINT.GE.3) URITE (NPRINT.70) NDATA

70 FORMAT (I6.28H DATA POINTS READ IN/)

RETURN

END

4'

D59
sftssn

REftDX PROG

$FORT

FUNCTION REftDX(imRD,N,NP,NTTYI,NTTYO,lEOF)

C

C VERSION OF MAR 9,1977 $S$33$$$3$

C

C FUNCTION READX USUALLY RETURNS THE NEXT DECIPHER I BLE NUHBER ON THE

C INPUT FILE =NTTYI= AS THE VALUE OF THE VARIABLE READX.

C ANY OUPUT, SUCH AS ERROR MESSAGES OR THE PROLiPT CHARACTER,

C IS ON UNIT NTTYO.

C

C IU= ALPHANUMERIC INFORMATION OF THE FIRST 1 OR 2 ILLEGAL NON-NUMERICP.L

C INFORMATION ON INPUT FILE NTTYI

.

C N=0 MEANS NUMERICAL INFORMATION SUCCESSFULLY PROCESSED.

C N»1 CHECK lU LORD FOR NON-NUMERICAL INFORMATION.

C (READX=1. IN THIS CASE).

C NP=1 SEND i AS A PROMPT CHARACTER L'HEN NEU RECORD REQUIRED.

C NP=2 READ A NEU RECORD.

C NP=3 DO BOTH THE ABOVE.

C NTTYI = INPUT UNIT

C NTTYO = OUTPUT UNIT FOR PROMPT CHARACTER AND ERROR MESSAGES.

C IEOF=0 END OF FILE NOT YET REACHED ON UNIT NTTYI.

C IEOF=l END OF FILE FOUND ON NTTiT

.

C

C ILLEGAL INFORMATION:

C

C IF FIRST CHARACTER IS NOT A BLANK, COMMA, POINT, MINUS, OR

C A NUMBER, THE FIRST 2 ILLEGAL CHARACTERS ARE RETURNED IN =JU=.

C

C LEGAL INFORMAT I ON>K C

C LEADING BLANKS ARE IGNORED.

C LEADING COMMAS ARE IGNORED.

C DECIMAL POINTS AND EXPONENTIAL TYPE NUMBERS ARE TREATED CORRCECTLY.

C $ ON THE INPUT FILE IS PRESUMED TO PRECEED AN IN-LINE COMMENT AND

C CAUSES READING OF A NEU RECORD.

C NUMBERS ARE TERMINATED BY A BLANK, COMMA, OR BY THE END OF A RECORD.

C

C

C READX IJAS ORIGINALLY IJRITTEN BY FRANK MCCRACKIH (NBS) AND UAS MODIFIED

C BY FRED MOPSIK AND BY BRIAN DICKENS. (JAN 1977)

C

C

c

INTEGER BRANCH

1NTEGER>K2 CD.DEC, IU2,N1, J, lEXP, lEXPl

LOGICAL ISIGNE

DIMENSION CD(80),DEC(1O),TEN(10),TENTEN<10)

DATA DEC/' O', '1',' 2', '3', '4', '5', '6', '7', '8', '9'/

DATA TEN/1., I .El , 1 .E2, 1 .E3, 1 .E4, 1.E5, 1.E6, 1.E7, !.ES, 1 .E9/

DATA TENTEN/1. , 1 .E10, 1 .E20, 1 .E30, I.E40, 1 .E50, 1 . E60, 3>Kl . E70/

DATA Hl/81/

IF (NP.EQ.2.CR.NP.EQ.3) N1 - 81

lEOF - 0

D60
N - 0

SIGN - 1. X - 0.

Y - 1.

YJ “ 0.

C

c FIND FIRST CHARACTER

C

15 IF (N1.GT.80) GO TO 1000

IF (CD(Nl) .EQ.'S') GO TO 1000

ASSIGN 16 TO BRANCH

GO TO 2080

16 GOTO (40. 100,30,20,20,300), IP

20 HI “ Nl+1

GO TO 15

C SET SIGN

30 SIGN = -1.

HI “ N1+!

GO TO 15

C

C CALCULATE NUMBER

C

40 X - J

50 HI •= Nl+1

IF (N1.GT.S0) GO TO 270

IF (CD(Nl) .EQ.'E') GO TO 50

ASSIGN 70 TO BRANCH

GO TO 2080

70-- GO TO (75, 100,205.200,270,270), IP

75 X - X>X10.+J

GO TO 50

C

C CALCULATE FRACTION

C

100 CONTINUE

110 HI - Nl+1

IF (N1.GT.80) GO TO 270

IF (CD(Nl). EQ.'E') GO TO 110

ASSIGN 125 TO BRANCH

GO TO 2000

125 GO TO (130.3855,285.200,273,270), IP

130 YJ “ 10.>t^YJ+J

Y - 10. *Y " GO TO 110

C

c CALCULATE EXPONENT lEXP

C

?09 ISIGNE = .FALSE.

lEXP = 1 lEXPl - I GO TO 210

203 ISIGNE = .TRUE.

lEXP - 1 lEXPl “ 1 210 Ml - Nl+1

IF (N1.GT.80) GO TO 250

D61
ASSIGN 220 TO BRANCH

GO TO 2000

220 GO TO (230,250,250,250,250,250), IP

230 lEXPl = lEXP

lEX? = J+1

GO TO 210

250 IF (ISIGNE) GO TO 260

REftDX = SIGN*(X+YJ/Y)>HTEN(IEXP)*TENTENCIEXP1)

N « 0

RETURN

260 READX = SIGN^(X+YJ/Y)/(TEN(IEXP)>KTENTEN(IEXP1))

N = 0

RETURN

270 REftDX = SIGN>it(X+YJ/Y)

N » 0

RETURN

C

C RETURN ALPHA ARG

C

300 IU2 = CD(Nl)

N1 *= Nl+1

IF (N1.GT.80) GO TO 302

IF (CD(Nl).EQ.' ' .OR. CD(Nl) .EQ. '

,

' .OR. CD(Nl) .EQ. '$' ) GO TO 332

IU2 = ILJ2-X'20'+CD(N1)/X' 100'

N1 = Nl+1

302 lUORD = IU2

_ N = 1 READX =1. ' RETURN

3055 URITE (NTTYO,305S)N1

3856 FORNATC' 2d . AT COL.', 13)

GO TO 270

1000 N1 = 1 IF (NP.EQ. 1.0R.NP.EQ.3) URITE (NTTYD, 1023)

1020 FORMATC' !')

READ (NTTYI, 1010,END = 9300) CD

1010 F0RMftT(83ftl)

GO TO 15

C

C CHARACTER INTER? . ROUTINE

C

2000 DO 2010 J = 1,10

IF (CD(Nl) .EQ.DEC(J)) GO TO 2020

2010 CONTINUE

IP *= 6

IF (CD(Nl).EQ.'.') IP » 2

IF (CD(Nl) .EQ.'-') IP » 3

IF (CD(Nl) .EQ.'+') IP = 4

IF (CD(Nl).EQ.' ' .OR. CDCNI ) .EQ. ' ,' ) IP » 5

GO TO 2033

2020 IP = 1 J = J-1

2030 GO TO BRANCH

9000 I EOF •= 1 RETURN

END

D62
5ASSM

REGRES PROG

$FORT

STRGT 16

Cc )K>K>MotoMoMo|oMoMoK>K5toK)MoMoMoMoMoMoMotoK>|oMcloMo<oK>MoK5»oMoMclo|^^ c SUBROUTINE REGRES (X. Y. S ICmV, NPTS, NTERMS, M, MODE, YF IT, fiO, A, S IGriP.O,

2 SIGmA,R,RMUL,CHISQR,FTEST)

C

c

C NEEDS THE FOLLOUING FUNCTION AND SUBROUTINE:

C FCTN

C MATINV

C

C

DOUBLE PRECISION ARRAY,SUM, YMEAN, SIGMA, CHI SQ,XLEAN, SI GHAX

DIMENSION X(NPTS) ,Y(NPTS) ,SIGMAYCNPTS),M(5),YFIT(NFTS)

8.,SIGMAA(5),R(5).A';5)

DIMENSION LEIGHT(250),XMEANC5),SIGMAXC5),ARRAY(5,5)

C

cc

10

20

30

C

C

c

’40

50

60

70

80

90

INITIALIZE SUMS AND ARRAYS

SUM=0.

YM£AN=9.

S1GMA=0.

CHISQ=a.

RMUL=0.

DO 10 I=1,NPTS

YFIT(I)=0.

IF (NTERMS.LE.0) GO TO 30

DO 20 J=1,NTERMS

XMEAN(J)=0.

SIGMAX(J)=0.

R(J)=0.

A(J)=0.

SIGMAA(J)=9.

DO 20 K=!,NTERMS

ARRAY(J,K)=0.

CONTINUE

ACCUMULATE UEIGHTED SUMS

DO 110 I=1,NPTS

IF (MODE) 40,70,80

IF (Y(D) 60,70,50

UEIGHT(1)=1./Y(I)

GO TO 90

UEIGHT(I)«=l./(-Y(I))

GO TO 90

UE1GHT(I)=1.

GO TO 90

UE I GHT ( I ) = 1 . /S I GMAY ( I ) >toK2 SUM=SUM+UEIGHT(I)

YMEAN=YMEAN+LJEIGHT( I)>i<Y( I)

/

D63
IF (NTERM3.LE.0) GO TO 110

DO 100 J = INTERNS

100 XMEAN(J)=XnEAN(J)+UEIGHT(n^CTN(X, I,J.M,NPTS)

110 CONTINUE

Y^EAN=YnEAN/SU^'! - IF (NTERMS.LE.0) GO TO 130

DO 120 J=l,NTERnS

120 XMEAN(J)=XnEftN(J)/SUM

130 CONTINUE

FNPTS=NPTS

UMEAN=SUM/FNPTS

DO 140 I=1,NPTS

140 UEIGHT(I)=UEIGHT(I)/LJMEfiN

Cc ACCUMULATE MATRICES R AND ARRAY

C

DO 150 I=1,NPTS

SIGMA=SIGMA+UiEIGHT(I)^(Y(I)-"fT1EAN)W

IF (NTERN3.LE.0) GO TO 160

DO 150 J=1,NTERMS

S I GMAX ( J ) =S I GMAX ( J ) +L'E I GHT ( I ) ( FCTN ( X, I , J, M, NPTS ) -XMEAN ( J )

)

R(J)=R<J)+UEIGHT(I)>^;i:FCTN<X, I,J,M,NPTS)-XMEANCJ))>K(Yn)-YMEAH)

DO 150 K=1,J

ARRAY C J , K ) = ARRAY ( J , K ) +UE I GHT ( I) C FCTN ( X, I , J , M, NPTS) -XMEAN ( J ) ) 2 >K(FCTN(X, I,K,M,MPTS)-XMEAN(IO)

150 CONTINUE

160 CONTINUE

FREEl-NPTS-1

SIGMA=DSQRT(SIGMA/FREE1)

IF (NTEPMS.LE.0) GO TO 130

DO 1?0 J==1,NTERMS

SIGMAX(J;=DSQRT(SIGMAXCJ) /FREED

R(J)=RCJ)/(FREEl>i'-SIGMAX(J)>KSIGMA)

DO 170 K=1,J

ARRAY(J,K)=ARRAYt;j.K)/(FREEliKSIGMAX(J)>H3IGMAX<K))

170 ARRAY <K,J)=ARRAYi:J,K)

180 CONTINUE

C

C INVERT SYMMETRIC MATRIX

C

IF (NTERM3.LE.0) GO TO 200

CALL MATINV ( ARRAY, NTERMS,DET)

IF (DET) 200,190,200

190 AO=0.

SIGMAO=0.

RmL=0 . CHISQR=0.

FTEST-0.

GO TO 330

C

C CALCULATE COEFFICIENTS, FIT, AND CHI SQUARE

C

200 AO='fT!EAN

IF (NTERMS.LE.01 GO TO 230

DO 220 J=1,NTERMS

DO 210 K=1,NTERMS

D64
210 A(J)=ft(J)+R<K)>Kfl:RRAY(j.K)

A(J)=ft(J)>t-'SIGm/SIGmX(J)

fiO=fiO-ft(J)>i;XnERNCJ)

DO 220 I=1,NPTS

220 YFIT(I)=YFIT(I)+A(J)>kFC1TKX. I,J,M,NPTS)

230 CONTINUE

DO 240 I=1,NPTS

YFITn)=YFIT(I)+AO

240 CHISQ=CHISQ+IJEIGHT( I)-x(Y(I)-YFIT(I))>»oK2

FREEN=NPTS-NTERriS1

CH I SQR=CH I SQ^NJiiEAN/FREEN

C

C CALCULATE UNCERTAINTIES

C

IF (MODE) 250,260,250

250 VARNCE=I ./UMEAN

GO TO 270

260 VARNCE=CHISQR

270 IF (NTERMS.LE.0) GO TO 298

DO 280 J=1,NTERMS

S I GMAA ( J ) = ARRAY ( J , J ) >KVARNCE/ ( FREE 1 >J<S I GMAX ( J ) >K>K2

)

SIGMAA(J) =SCRT(SIGMAA( J)

)

280 RMJL=RMUL+A(J)>kR(J)>kSIGMAX(J) /SIGMA

FREEJ=NTERMS

FTEST=(RMUL/FREEJ)/( < 1 .-RMUD/FREEN)

RMUL=SQRT(RMUL)

GO TO 300

290 CONTINUE

FREEJ=0.

FTEST=0.

RMUL=0.

300 SIGMAO=VARNCE/FNPTS

IF C NTERMS.LE.0) GO TO 320

DO 310 J=1,NTERM3

DO 310 K=1,NTERMS

310 SIGmO=SIGr1;'lO+VARNCE>l:XMEAN(J)>HX^EAN(K)^RRAYCJ,K)/(FREEl>^tSIGMA

2X(J)=i=SIGMAXaO)

320 SIGMAO=SQRT(SIGMAO)

330 RETURN

END

D65
$ASSM

S0RT4 PROG

SPORT

STRGT 16 c SUBROUTINE SORT4 (A,K.N)

C

c

c

C THIS SUBROUTINE SORTS A 1-D IMEM5 lONAL FLOATING POINT ARRAY

C (A) AND AN ARRAY (K) INTO AN ORDER BASED ON THE ELEiYENTS IN C IN ARRAY (A)

.

C

DIMENSION A(N),K(N)

C

IF (N.LE.l) RETURN

DO 20 I = 2,N

INI = I-l

DO 10 J = KIMl

JJ = I-J

IF (A(JJ) .LE.A(JJ+D) GO TO 20

X = A(JJ)

. A(JJ) = A(JJ+1)

A(JJ+n = X

L = K(JJ)

K(JJ) = K(JJ+1)

10 K(JJ+1) = L

20 CONTINUE

RETURN

END

e D66
sfissn

SORTS PROG

SPORT

STRGT 16 c SUBROUTINE SORTS CK,B,C,N)

C

c

cC THIS SUBROUTINE SORTS P 1-D IMEHS lONPL PRRPY

C (K) PND THE PRRPYS (B) PND (C) INTO PN ORDER BPSED

C ON THE ELEMENTS IN PRRPY (K)

.

C

DIMENSION K(N) ,B(N) .C(N)

C

IF (N.LE.l) RETURN

DO 20 I = 2,N

IMl = I-l

DO 10 J = 1. im

JJ = I-J

IF <K(JJ) .LE.K(JJ+D) GO TO 20

L «= K(JJ)

KCJJ) = K(JJ+1)

K(JJ+n = L X = B(JJ)

B(JJ) = BCJJ+1)

B(JJ+1) = X

X = C(JJ)

C(JJ) = C(JJ+n

c(jj+n = X

10 CONTINUE

20 CONTINUE

RETURN

END

D67
THMPLS PROG

$FORT

$TRGT 16

0 :(clc4ci<;|<)K>K5Mo!c>K)K>|oMoK5MoMoMoMC)MoMoMoM»MoK5K>Mo)oK5H5Mo(^^ c SUBROUTINE THnCPL (AT)

C

0 >MoK>^o|o^aK>K>l<;K>MoK>ioMoMo1o^ct)^:>^oK>PMoMc^oioMo^o;o^oK>^oK3K>MoK5k5W^>H>k>K5ioMo^^ c

C SUBROUTINE TO READ THERmCOUPLE TYPE PND PROVIDE COEFFICIENTS FOR

C CONVERSION OF THERMOCOUPLE READINGS IN MICROVOLTS TO DEGREES CELCIUS

C NEEDS COMMON /lO/ NTTYKNTTYO, IN,NPRINT,NFILEfl,NFILEB

C

COMMON DUMP (275)

EQUIVALENCE (NTTYUDUMPC 1) ) . (NTTr'0,DUMP(2) ) , ( IN,DUMP(3)

)

8. , (NPRINT,DUMP(4) ) , (HF ILEA, DUM'^ (5) ) , (NF ILEB, DUMP (6)

)

C

DIMENSION AT(4)

C

C

URITE (NTTY0,10)

10 FORMAT (/' GIVE THERMOCOUPLE TYPE, K OR E')

20 READ (NTTYI,30) NTHCP

30 FORMAT (Al)

ITHCP = 4

IF (NTHCP.EQ.'K') ITHCP = 1 IF (NTHCP.EQ.'E') ITHCP = 2

GO TO (40,60,80,90), ITHCP

C

C TYPE K THERMOCOUPLE, VALUES FROM TABLE' A7. 2.3, NBS MONO. 125

C

IF (NFILEB.GT.6) URITE (NFILEB,50)

40 IF (NPRINT.GE.3) LRITE (NPRINT,50)

50 FORMAT (/52H TYPE K THERMOCOUPLE = N

I -CR/N I- AL, EXPRESS IONS GOOD /

8..

40H TO 400 DEGREES C. (TABLE A7,NBS MONO. 125, 1974)

)

AT(1) = 2.4383243E-02

AT(2) = 9.7833251E~09

AT(3) = 3.6276955E-12

AT(4) = -2.5756438E-16

GO TO 110

C

C TYPE E THERMOCOUPLE

C

IF (NFILEB.GT.6) URITE (NFILEB,70)

60 IF (NPRINT.GE.3) URITE (NPRINT,70)

70 FORMAT (/52H TYPE E THERMOCOUPLE = N

I -CR/CU-N I , EXPRESS IONS GOOD /

8..

58HFR0M -0.05 TO +3.04, 0 TO 480 DEGREES C. (TABLE A5.2.3,NBS /,

8. 19HM0N0GRAPH 125,1974))

AT(1) = 1.7022525E-02

AT(2) = -2.2097240E-07

AT(3) = 5.430931^E-12

AT(4) = -5.7669892E-17

GO TO 110

C

C DUMMY LOCATION

C

80 IF (NFILEB.GT.6) URITE (NFILEB.100)

IF (NPRINT.GE.3) URITE (NPRINT, 100)

GO TO 20

C

C ERROR ROUTE

C

100 FORMAT (/40H URONG SPECIFICATION FOR THERMOCOUPLE, TRY AGAIN)

GO TO 20

110 RETURN

END

D68
spissn

UTfiVER PROG

$FORT

STRGT 16 c SUBROUTINE UTfiVER (E,SIGE.NDATn,UTEflVE,SIGlJTE,EftVE,ESIG)

C

c

C >M«K- NOT THE UINSORISING VERSION >i«toK C

C SUBROUTINE TO CALCULATE AVERAGE E (IJTEAVE) AND STANDARD DEVIATION CSIGUTE)

C FROM INPUT LIST E AND SIGE CONTAINING = NDATA = VALUES

C ALSO CALCULATE UNUEIGHTED AVERAGE AND 95% CONFIDENCE RANGES

C

C NEEDS THE FGLLOUING COMMON BLOCKS AND SUBROUTINES:

C COMMON /lO/ NTTYI,NTTYO, IN.NPRINT,NFILEA,NFILEB

C COMMON /REGRS/ MC5) ,R(5) , YFIT(250)

C • C NEEDS SUBROUTINES:

C AVSDN

C CHISQ

C REGRES

C

COMMON DUMP (275)

EQUIVALENCE (NTTYI , DUMP ( 1 ) ) , (NTTYO, DUMP (2) ) , (IN. DUMP (3))

8. , (NPRINT,DUMP(4)), (NFILEA,D!JMP(5)), (NFILEB.DUMP(S))

DIMENSION M(5).R(5),YFIT(250)

EQUIVALENCE (M( 1 ) , DUMP ( 10) ) , (R ( 1 ) , DUMP ( 15) ) , (YF IT( 1 ) , DUMP (20)

)

C

DIMENSION E (NDATA), SIGE (NDATA), A (5), S IGA (5)

C

C CALCULATE AVERAGE UNUEIGHTED E C

UTEAVE = 0.

SIGUTE = l.E-09

EAVE = 0.

ESIG = l.E-09

SIGAVE = l.E-09

FREE =0.

CHIIJTE =0.

CHIUNU =0.

IF ( NDATA. LE.0) RETURN

IF (NDATA. GT. 1) GO TO 200

UTEAVE = E(l)

SIGUTE = SIGE(l)

SIGAVE = SIGE(l)

EAVE = Ed)

ESIG = SIGE(l)

GO TO 300

200 CONTINUE

CALL AVSDN (EA^/E, ES IG, E, NDATA)

CALL CHISQ (E, SIGE, CHIUNU, NDATA)

C

C CALCULATE AVERAGE SIGE

C

CALL AVSDN (SIGAVE,SIGSIG, SIGE, NDATA)

C

C CALCULATE UEIGHTED AVERAGE OF E

C

CALL REGRES (E, E. SIGE, NDATA, 0. M, 1,YFIT,A0, A, SIGAO,SIGA

8. , R , RMUL , CH I UTE , FTEST)

UTEAVE = AO

C

D69
ono

oj

nnn

ono

no CftLCULATE SIGMA FOR UEIGHTED E AVERAGE

SIGUTE = 0.

DO 10 I = 1,NDATA

10 SIGUTE = SIGUTE-M ./SIGE( I)>K^:2

SIGUTE = SQRTC 1 ./SIGUTE)

FDATA = NDATA

FREE = NDATA1

ESIG = ESIG/SQRT(FDATA)

CALCULATE 95y. CONFIDENCE RANGE

300 T = 1.96>t:SIGUTE

UTEHI = UTEAVE+T

UTELO = UTEAVE-T

T = 1.9G=i:ESIG

UNUEHI = EAVE+T

UNUELO = EAVE-T

OUTPUT AVERAGES

IF (NPRINT.LT.Z) GO TO 100

URITE (NPRINT,30) UTEAVE, S IGUTE. CH lUTE, S IGA'v'E, FREE

FORMAT (/' UEIGHTED MEAN E IS '.F7.3,' + OR - ',F7.3/

8. ' REDUCED CHISCI FOR E CALCULATION IS’,F7.3,' (SHOULD BE 1.)'/

8. ' UNUEIGHTED MEAN OF SIGMAS IS '.F7.3,/

8c,' CALCULATED OVER ',F5.0,' DEGREES OF FREEDOM')

OUTPUT CONFIDENCE LIMITS

URITE (NPRINT.40) UTELO, UTEHI

40 FORMAT (/' ASSUMING ALL POSSIBLE SAMPLE MEANS ARE NORMALLY'/

8c ' DISTRIBUTED, TRUE UEIGHTED MEAN LIES UITHIN RANGE' , F7 . 3, ' TO

8. F7.3/' FOR 95.T CONFIDENCE LEVEL')

URITE (NPRINT,50) HAVE, ES IG , UNUELO, UNUEH I , CH lUNU

50 FORMAT (/' UNUEIGHTED ESTIMATE OF MEAN E AND UNBIASED ESTIMATE

8. /' OF ITS SIGMA ARE',F7.3,' AND',F7.3

8. /' THIS GIVES A CONFIDENCE RANGE 0F',F7.3,' T0',F7.3

8./' CHI-SQUARE FOR UNUEIGHTED E IS',F7.2)

100 IF (NFILEB.LE.b) RETURN

URITE (NFILEB,30)UTEAVE,SIGUTE,CHIUTE,SIGAVE,FREE

URITE (NFILEB, 40) UTELO, UTEHI

URITE ( tiF I LEB , 50 ) EAVE , ES I G , UNUELO , UNUEH I , CH I UNU

RETURN

END

D70
File LOTGDE, used as DO LOTGDE,DO to assign files needed to make

overlays in TGDEPG program. This file also starts the program LIBLDR

which actually makes the overlays.

ftC TGDEPG. 1D0

AS 362

AC TGDEL5, 5D0

AC TGDErfB, 7D0

AC OVERLB. SDO

AC FORLIB. FD0

RUN LISLDR:,D0

CL

AC TGDEOl. 1D0

AC PR I MSB, 7D0

AC DAThRB

.

SDO

AC THMCSB, 9D0

AC READIB. ADO

AC ACTIVB, BD3'

AC READVB. CD0

AC ERcADB, DD3

AC TDEGB3. EDO

ST

CL

AC TGDEC2, IDO

AC PINV3.7D0

AC PR0B2B, SDO

AC S0RT4B. SDO

AC S0RT5B, ADO

AC UTAVEB. EDO

AC REGRSB. CDS

AC FCTNB,DD0

AC MATINS. EDO

ST

AC PN0RM3, 7D0

AC AVSDN3, 8D0

AC CHISQ3, SDO

AC PLOTS, ADO

AS B20

AS C20

AS D20

AS E20

ST

CL

AS 120

AS 320

AS 520

AS 720

AS 820

AS 920

AS A20

AS F20

AS 220

TR

D7;
File TGDEL5, which contains the appropriate responses to the program

LIBLDR to make the overlays in the TGDEPG program.

OUT 1 TGDEPG

BI 3576

BC 044C

LO 7

LI 8

RU F

ED F

MAP

MAP 3

XOUT

UF 1 END

OUT i TQDEOl

OV

LI 7

LI 8

LI 9

LI A

LI B

LI C

LI D

LI E

RU F

ED F

MAP

MAP 3

XOUT

UF 1 END

OUT 1 TGDE02

OV

LI 7

LI 8

LI 9

LI A

LI B

LI C

LI D

LI E

END

LI 7

LI 8

LI 9

LI A

RU F

ED F

MAP

MAP 3

XOUT

UF 1 END

D72
Memory map for the base segment of the TGDEPG program.

REL PROGS:

3576 TGDEN 00EE 0\/ERLY 3240 IFETCH 823E .R

82FA .A 83A0 SORT 84A3 ALOG S5B5 EXP

86BC AINT 3734 ABS 374A .U 8793 .COM?

87C4 £6 SSGE .RARG 333A £3 3864 .5

8360 .ZERO 3374 .H 0806 .S 38FC .P 897E .0 SA2E .0 3 A t' b .MES 8AEC .U 8B1C .V 8B2A 9R 3B50 02 SB76 0H

9DC0

ABS PROGS:

NONE

ENTRY-POINTS:

8112 OVERLY 824E IFETCH 3200 .R 82FC .A 83A2 SORT 34AA ALOG EXP 86BE A]NT

8736 ABS 8740 .U 378A .COM? 8706 55

8310 .RARG 3830 ooco .5 3870 .ZERO

8876 .H 8808 • s 88FE .P 8980 .Q

8A30 .0 8A78 . ME3 SAFA .U 8B22 .V

8B2C 0R

COMMON-BLOCKS:

FBB2 //

8B52 @Z 8BC4 0H

UNDEFINED:

PRIMES DATPlRD PR0BP2 SORTS PINV UTAVER

REGRES PLOT

D73
Memory map for the initialization segment of the TGDEPG program.

REL PROGS:

3576 TGDEN S0EE OVERLY 824C IFETCH S2BE .R

82FA .0 3300 SORT 3403 OLOG 35B6 EXP

86BC 01 NT 3734 OBS 3740 .IJ 8793 .COMP

87C4 $6 SS0E .RORG 3330 $3 8364 .5

886C .ZERO 3374 33CG .S 33FC .P 897E .0 802E .0 8076 .MES 30EC .U 8B1C .V SB20 0R SE33 0Z 3376 QH

9F23 PRIMES 0412 DOTORD B3 1

6

THMPLS B710 REODIN

BD9E OCTIV C5E0 REODX CD04 EREOD D3Q0 TDEGOB

D0B8 .Y D0BE .Y2 D13E

fiBS PROGS:

NONE

ENTRY-POINTS:

8112 OVERLY 824E IFETCH 82C0 .R 82FC .0

8302 SORT 3400 OLOG 3533 EXP 86BE OINT

8736 OBS 874C .LJ 8790 .COMP 37C6 So

8810 . RORG O U O $3 ooco 1_I Cl o . 5 8370 .ZERO

8876 .H sees . S 33FE .P 8930 .Q

8030 .0 8073 .MES SOFO .U SB22 .V

8B2C GR 8B52 @Z SBC4 SF4C PRIMES

0436 DOTORD B330 THMCPL B734 REODIN BDC2 OCTIV

C604 REODX CDC8 EREOD D02E TDEGOB D0BO .Y

D0C0 .Y2

comoN--BLOCKS:

FBB2 //

UNDEFINED:

PR0BP2 SORTS PINV UTOVER REGRES PLOT
Memory map for the probability plot segment of the TGDEPG program.

REL PROGS:

3576 TGDEN 80EE OVERLY 9240 IFETOH 82BE • R

82FA • A S3AQ SORT 84A8 ALOG 85E6 EXP

86BC A I NT 8734 ABS 874A .IJ 8793 .OOMP

8704 S6 S80E .RARG 833A 53 3364 . 5

8860 .ZERO 8874 .H 8806 .S 83F0 .P 897E .0 8A2E .0 8A76 . NES 3AE0 .U 8B10 .V SB2A 0R SB50 0Z 3376 GH

9F23 PINV SPEC PR0BP2 A0DE SCRT4 A232 SGRT5

A434 IJTAVER AC6E REGRES 0235 FCTN C2EE MATINV

OABO PNORM CC5E AVSDN CDEG OH ISO OF 44 PLOT

D96A .D D973 .COriEX DB4S DLOG Dr.Bb DEXP

E03E DSDRT E2S8 57 E2EE 53 E325 DAINT

E3EA eA E434 @1 E412 03 E434 DABS

E44E • G E4S4 0F E56A 0L E59A Q!< E50A 0M E766 02 E774 0D E33E 0T

E8B6 OE ESDA 00 ESF6 0N E950 0U

E963 @V E9S3 0P E9B8 03 E9C3 • DARG

EftOfl .DSUAP EA66 .DRTN EASE FLOAT EA94 FL0AT2

EfiOO .Y EAD2 .Y2 EB52 MOD EB53 M0D2

E886 . IIARG EBO0

ABS PROGS:

NONE

ENTRY-POINTS:

8112 OVERLY P24E IFETOH. 3200 .R 82F0 .A 83A2 SORT S4AA ALOG 8533 EXP 363E AINT

8736 Abb 3740 J..J 879A . OOMP 3706 55

8810 . RARG 8330 S3 8868 .5 8370 •.ZERO

8876 .H 3303 1—

• 33FE .P 8980 .Q

8A30 .0 8A73 . MES SAFA .U 8B22 .V

8B20 0R 8B52 02 8B04 QH 9F4C PINV

A010 PR0BP2 A102 S0RT4 A2A6 S0RT5 A4A3 IJTAVER

A092 REGRES 025A FCTN C2E2 MATINV CAEO FNGRM

0082 AVSDf] CE8A OHISQ 0F63 PLOT D96C .D D97A . OOMEX r O .-I o DLOG DEBS DE^;p E3S3 DSQRT

E292 57 E2F0 59 E323 DAINT E3EC QA

E406 01 E414 03 E436 DABS E450 .G E466 0F E56C 0L E59C Q!< E500 0M

E76S 02 E776 0D ES90 0T E8B3 0E

E8D0 00 ESFS C4-I E952 0L) E9SA 0V

E98A 0P E9BA 0B E9CA .DARG EA0O .DSUAP

EA68 . DRTN EA90 FLOAT EA96 FL0AT2 EACE .Y

EAD4 .Y2 EB54 MOD EB5A M0D2 EB38 .IIARG

COmON-BLOCKS:

FBB2 //

UNDEFINED:

NONE

D75
D76
Appendix E. POLGEP, a FORTRAN program to fit a user-chosen

polynominal to data in any format.

El
File FIXPOL, a variant on the more usual SETXX type of file,

which is used as DO FIXPOL, DO to compile the main routine for

the polynomial fitting program and assemble the program.

ZU

ftC POLGEH, 1D0

AC CftL0UT,2DI

AS 300

RUN FORTV

AC CALOUT. IDl

AC POLGEB,2D0

RUN CAL

UF 2

CL

ZU

AC POLGEP, 1D0

AC POLGEB,?D0

AC READX3,8D8

AC REGRSB.SD0

AC FCTNB,AD0

AC MATINB,BD0

AC EXTPOB,CD0

AC GENREB,DD0

AC FORLIB,FD0

AC POLGL5,5D0

RUN LIBLDR..D0

CL

ZU

PR

E2
Example of the input to the POLGEP program. User-supplied

information is underlined.

POLGEN PROGRAM, GIVE NUMBER OF POLYNOMIAL TERMS

AFTER CONSTANT TERM (FORMAT ID

I

GIVE DEGREES OF POLYNOMIAL IN II FORMAT, 1 PER LINE

1

POLGEN PROGRAM

FIT.

1

TERM POLYNOMIAL TO DATA ON FILE 7

TERMS IN POLYNOMIAL U ILL BE: 1 REPEAT SEQUENCE OF UP TQ 100 ALLOL'ED IN INPUT FILE

PROGRAM WILL READ ALL FORMATS PROVIDED THERE ARE NO

ALPHABETIC CHARACTERS

UEIGHTED OR UNWEIGHTED FIT IN LEAST SQUARES?

GIVE 1 OR 0 IN II FOMAT

£

LEAST SQUARES FIT UILL BE UNLJEIGHTED

INPUT ROUTINE

GIVE: LU NUMBER OF INPUT FILE

NUMBER OF LINES TO SKIP AS TEXT AFTER ALLOWING

FIRST LINE TO BE A TITLE

TOTAL NUMBER OF ARGUMENTS IN ONE LINE

ORDINAL NUMBER OF ARGUMENT TO BE CALLED = XCD = DITTO FOR X(2),X(3DX(4),X(5),X(6), STOPPING WITH 0 IF < THEN NUMBER OF POINTS TO EE READ IN 8 = UPTO EOF, MAXIMUM OF 508.

I7 1 20 235 0 0

GIVE ONE SCALING FACTOR FOR EACH INPUT VALUE

I

1 1 1

TITLE OF INPUT FILE IS

POOLED E'S FROM PP IN VAC APRIL 7S FROM PPVAC 1,2, 3, 4, 5,

6

1 LINES OF TEXT UILL BE SKIPPED AFTER TITLE

500 POINTS MAX UILL BE READ IN 20 ARGUMENTS PER LINE

ARGUMENTS ARE TO BE SAVED IN CALLING ARRAY X AS FOLLOWS:

X(D IS ARGUMENT NUMBER 2

X(2) IS ARGUMENT NUMBER 3

X(3) IS ARGUMENT NUMBER 5

SCALE FACTORS APPLIED TO INPUT VALUES ARE:

0.10O300E+01 FOR INPUT VALUE NUMBER 2

0.10000eE+01 FOR INPUT VALUE NUMBER 3

0.1080O0E+0I FOR INPUT VALUE NUMBER 5

ARE ABOVE PARAMETERS OK? ANSWER 0 FOR NO OR 1 FOR YES

I

6 AGUMENTS

E3
54 DATPl READ FROM FILE 7

Y SIG Y X

0.643039E+02

0.584326E+02

0.687540E+02

0.6172G8e-f02

0.590680E+02

0.745330E+02

0.602800E+02

0.586900E+02

0.60S990E+02

0.618540E+02

0.56S920E+02

0.613338E+02

0.609690E+02

0 . 535378 E+02

0.543790E+82

0.6049 10E+02

0.627638E+02

0.393910E'^02

0.589750E+02

0.672830E+02

0.696688E+02

0.632920E+02

0.699318E+82

0.73275OE+02

0.72340QE+02

0.603300E+02

0.625450E+02

0.609600E402

0.63I620E+02

0.596740E+02

0.594909E+02

0.G03240E+02

0.624720E+02

0.62017OE+02

0.63519GE+02

0.5959 10E+02

0.665220E+02

0.67153GE+82

0.903000E+00

0.1205082401

0. 105600E401

0. 111480E401

0.671803E400

0. 146530E401

0.255080E400

0.35200GE400

0.545686E480

0.495G00E400

0.66G080E400

0 . 5640G0E400

8.8940O0E400

0.54300OE400

0. 110430E401

0 . 554G00E40O

0.633000E400

0. 106S00E4gi

0.607088E480

0.736890E403

0. 105200E401

0 . 6O000OE409

0.956O0GE40O

0 . 94S000E400

0. 1G4200E40!

0 . 402000E403

0.596O00E400

0.317000E4G0

0. 4340002400

0.354003E400

0,5S600OE40O

0.3090G8E400

0.581O90E430

8.3470092400

8.752O0OE400

0.465O00E400

0 .747000E400

O.536OO0E400

0.383237E4O5

0. 190721E405

-0.427110E405

-0.539152E405

-6. 100918E406

-0. 125G8SE406

0. 1302S2E43S

0.972G63E4O5

0.5475S5E4O5

0.3677S7E405

0. 125423E485

-0.25S341E405

-0.59917OE495

-0.332575E405

-0.637095E435

-0.7G5823E405

-0.996102E405

-0. 121597E406

0.75S076E4O5

0.2675S4E405

-0.231073E4O5

-0.665374E435

-0. 105713E40S

-0. 1323G2E406

0. 182S21E406

0. 104814E406

0.781281E4O5

0.G25377E405

. 0.336895E405

0.2479 12E405

0.428628E434

-0.91730GE404

-0.366357E405

-0.51G163E405

-0. 79793 -4E405

-0.939S3EE405

-0. 117902E406

-0. 1458S7E406

E4
0.584520E+02 0.429000E+00 0.250229E+O6

0.53356OE+02 0.46600OE+00 0.2287S5E+06

0.62472OE+02 0.3538O0E+00 0.214575E+O5

0.57256OE+02 0.493000E+30 0. 191049E+06

0.60987QE+O2 0.3S0O8CE+O9 0. 176091E+O6

0.622300E+02 0.7170G0E+0O 0. 1516S5E+06

0.596570E+O2 0.540GO0E+00 0. 136797E+06

0.61831OE+02 0.46203OE+00 0. 1 13023E+0b

0.589270E+02 0.370O00E+00 0.981S07E+C5

0.497980E+02 0.49900OE+00 0.747946E+35

0.651810E+02 0 . 420000E^'00 0.6033 17E+35

0.578520E+02 0.693000E+00 0.3S48b4E+O5

0.569240E+02 0.551000E+00 0.252802E+S5

0.5338S0E-I-02 0.8520638+00 0.’33913SE+a4

0.636900E+02 0.503030E+00 -0.634S37E+04

0.5665408+02 0.531000E+00 -0.3351 14E+05

POLYNOMIAL COEFFICIENTS AR’E 0.60531662E+02 0 . 9099364ZE+00

•0.9653496&E-05 0.78444409E-05

CHISQR = 6.332E+C2

FTEST = 0.151E+01

RMUL = 0.16SE+00

R =-0.16SE+00

FITTED fiBOUT MID POINT OF T= 0,781281E+05

38324. 64.3 60.9 1.0 -0.6 0.316E-02 0.S33E+02 6 . 19072. 58.4 61.1 1.0 -0.0 0.316E-02 0.59SE+02 0.

-427 11. 63.8 61.7 1.3 -0.0 0.316E-02 0.47CE+82 0.

-53915. 61.7 61.8 1.4 -0.0 0.316E-02 O.448E+02 0.

100918. 59. 1 62.3 1.7 -0.0 0.316E-02 0.372E+02 0.

126686. 74.6 62.5 1.8 -0.0 0.316E-02 8.339E+02 0.

130262. 60.3 60.0 1.0 -0.0 0.316E-02 0.6O2E+02 0.

97266. 58.7 60.3 0.9 -0.0 0.316E-02 3.654E+02 0 . 54759

.

60.7 60.8 0.9 -0.0 0.316E-02 0.655E+02 0.

36777. 61.9 60.9 1.0 -0.0 0.316E-02 0.631E+02 0 . 12543. 56.9 61.2 1.0 -0.0 0.316E-02 0.5S5E+02 0 . -25634. 61.3 61.5 1.2 -0.0 0.316E-02 0.534E+B2 0 . -59917. 61.0 61.9 1.4 , -0.0 0-.316E-82 3.437E+02 0.

-33258. 53.5 61.6 1.3 -0.0 0.316E-02 0.438E+02 0.

-63709. 54.4 61.9 1.4 -0.0 0.316E-82 0.431E+Q2 a. -76582. 60.5 62.0 1.5 -0.0 0.316E-02 0.409E+02 0.

-93610. 62.8 62.2 1.7 -0.0 0.316E-02 0.374E+02 0.

121597. 39.4 62.5 1.8 -0.0 0.316E-O2 0 . 345E+02 0.

75808. 59.0 60.6 0.9 -0.0 0.316E-O2 0.665E+O2 0.

26756. 67.3 61.0 1.0 -0.0 0.316E-02 3.513E+02 0.

-23107. 69.7 61.5 1.2 -0.0 0.316E-02 0.5O9E+62 0.

-66537. 63.3 61.9 1.5 -0.0 0.316E-02 0.42SE+02 0.

105713. 69.9 62.3 1.7 -0.0 0.316E-02 0.365E+O2 0 . 132862. 73.3 62.6 1.9 -8.0 0.31SE-02 0.331E+02 0 . 182921. 72.3 59.5 1.2 -0.0 0.316E-O2 0.485E+02 0 . 104814. 60.3 60.3 0.9 -0.0 0.316E-B2 0.646E+02 0 . 78128. 62.5 60.5 0.9 -0.0 0.316E-02 0.655E+02 0.

62538. 61.0 60.7 0.9 -0.0 0.316E-O2 0.661E+02 0.

38689. 63.2 60.9 1.0 -0.0 0.316E-02 0.S34E+C2 0.

24791. 59.7 61.0 1.0 -0.0 0.316E-02 O.610E+02 0.

4286. 59.5 61.2 1.1 -0.0 0.316E-02 0.563E+02 0.

-9179. 60.3 61.4 1.1 -0.0 0.31SE-02 O.533E+02 0.

0

0

9

0

0

0

0

0

9

0

0

0

0

0

0

0

0

0

0

0

.00

0

0

0

0

0

,0

,0

.0

,0

,0

E5
-3668S. 62.5 61.6 1.3 -0.0 0.316E-02 0.431E+02 0.0

-51616. 62.0 61.8 1.4 -0.0 0.316E-02 0.453E+02 0.0

-79793. 63.5 62.1 1.5 -0.0 0.316E-O2 G - 404E+02 0.0

-93994. 59.6 62.2 1.6 -0.0 0.316E-02 0.332E+02 0.0

117902. 66.5 62.4 1.8 -0.0 0.316E-02 O.349E-f02 0.0

145887. 67.1 62.7 2.0 -0.0 0.316E-92 8.317E+02 0.0

250229. 58.5 53.9 1.6 -0.0 0.316E-02 0 . 362E+02 0.0

228785

.

53.4 59. 1 1.5 -0.0 0.316E-02 0 . o96E+02 0.0

214575. 62.5 59.2 1.4 -0.0 0.316E-02 0.421E+02 0.0

191049. 57.3 59.4 1.3 -0.0 0.316E-02 0. 4632+02 0.0

176091. 61.0 59.6 1.2 -0.0 O.316E-02 0.500E+02 0.0

151685. 62.2 59.3 1.1 -0.0 0.316E-02 S . 555F+02 0.0

136797. 59.7 60.0 1.0 -0.0 0 . 3 16E-02 0.59SE+O2 0.0

113023. 61,8 60.2 1.0 -9,0 0.316E-G2 0.6332+02 0.0

98131. 58.9 60.3 0.9 -0.0 0.316E-O2 0 . 653E+02 0.0

74795. 49.8 60.6 0.3 -0.3 0.316E-02 0.665E+O2 0.0

60382. 65.2 63.7 0.9 -0.0 0.316E-02 0.655E+02 0.0

38436. 57.9 60.9 1.0 -0.0 0.316E-O2 0 . S33w+02 0.0

25280. 56.9 61.0 1.0 -0.0 0.316E-02 0.610E+02 0.0

5991. 53.4 61.2 1.1 -0.0 0.316E-02 0.571E+02 0.0

-6849. 63.7 61.4 1.1 -0.0 0.316E-02 0 . 544E+02 0.0

-33511. 56.7 61.6 1 .3 -0.0 0.316E-02 0.43SE+02 8.0

GIVE EXTRAPOLfiTION VALUE IN F13.8 FORmi

END UITH VALUE OF ZERO

-175000.

-0.175E+06 0.629752E+02 0.218421E+01 28. S3 -0 . 96535GE-05 0.316228E-02

GIVE EXTRAPOLATION VALUE IN F10.0 FORMAT

END UITH VALUE OF ZERO

0 .

E6
Example of the output of the POLGEP program.

POLGEN PROGRPM

FIT 1 DEGREE POLYNOMIAL TO DATA ON FILE 7

TERMS IN POLYNOMIAL U ILL BE: 1 REPEAT SEQUENCE OF UP TO 103 ALLOL'ED IN INPUT FILE

PROGRAM WILL READ ALL FORMATS PROVIDED THERE ARE NO

ALPHABETIC CHARACTERS

LEAST SQUARES FIT UILL BE UNUEIGHTED

TITLE OF INPUT FILE IS

POOLED E’S FROM PP IN VAC AI^RIL 73 FRCM PPVAC 1,2, 3, 4, 5,

6

1 LINES OF TEXT UILL BE SKIPPED AFTER TITLE

500 POINTS MAX UILL BE READ IN 20 ARGUMENTS PER LINE

ARGUMENTS ARE TO EE SAVED IN CALLING ARRAY X AG FOLLOUS:

X(l) IS ARGUMENT NUMBER 2

X(2) IS ARGUMENT NUMBER 3

X(3) IS ARGUMENT NUMBER 5

SCALE FACTORS APPLIED TO INPUT VALUES ARE:

0. 100000E-t01 FOR INPUT VALUE NUMBER 2

0. 100000E-tBl FOR INPUT VALUE NUMBER 3

0.100000E+31 FOR INPUT VALUE NUMBER 5

54 DATA READ FROM FILE 7

Y S3G Y

0.643030E+02

0.584320E+02

0.637540E+02

0.617260E+02

0.538680E+02

G.74S33GE+02

0.602800E+02

0.586S00E+02

0.6069SOE+02

0.61S540E+02

0.568920E+02

0.613330E+02

0.6B9S80E+02

0.903000E+00

9. 120500E+01

9. 1056e0E-r01

0.11 1402E+31

0.671000E-f0O

0. 14S563E+01

0.25500GE+0S

0.3520Q0E+39

0.545000E+00

0.495000E+00

0 . 6b6030E'T00

0 . 504000E+00

0 .894080E+00

0.543000E+00

0.110400E+01

0.554000E+33

0 . 633000E+00

0. lB6S0aE+Oi

0.60700GE+00

0.736000E+C0

0. 1052O0E+01

0 . 600090E+00

0,956800E-r0a

a.94600OE+aO

0. 164200E+O1

0.402030E+60

0.596O00E+G0

0.333237E+05

0. 190721E+05

-0.427110E-t-05

-0.53S152E+35

~0 . 1 009 i cE+3b

-0. I2StSSE4-3S

0 . 1302S2E+0S

0.972653E+G5

0.54753SE-!-35

0 . 3S77b7E-r05

0. 125423E+95

-0.256341E-rO5

-P.539 170E+05

-0.332575E+05

-0.637095E+05

-0.7S5S23E+35

-0.996102E-I-05

-0. 121597E+8b

0.75SO7cE+05

0.267564E+05

-9.231073E+O5

-0. 663374E-r05

-0. I05713E+06

-9. 132&62E+06

0. 1829.0 lE+06

0. 104814E+06

0.78 128 lE+05

0.535370E+02

0.5437S0E+02

0.6049I0E+02

0.627630E+02

0.3939 10E+02

0.58975GE+02

0.672830E+92

0.6S66S0E+02

0.632920E+92

0.699310E+02

0.732750E+02

0.723400E+O2

0.603300E+02

0.625450E+32

E7
8.693S00E^O^

e.631620E+02 0.596r40£+02

0.594S00E+02

0.603243E+02

0.f24728E+02

0.623170E+02 0.63519aE+a2

0.5J391OE+02

0.63522OE+02

0.671330E+O2

0.58.'.'52f)E-t02 0.533‘J63E+02 0.624728E+02

0.572580E+02

0.6O9370E+O2

0.E22200E+02

0.53&570E+02

0.61O310E+02

0.5B3270E-O2

0.4979SOE-fa2 0.G51810E+02

0.31700OE+00 0.434aoe£+0O

0.3540002+00

0.5800032+00 0.309000E+Q0

0.581003E+00 0.347000£reO

0.7520O0E+00

0.4bS000E+O0 0.747000E+0O

0.538O30E+03

0.4_E0'.i0E+00 0.466Cy3E+G0

0.3538O0E+O0

0.4330002+03

0.3300J0E+00 0.717000E+0a

0.5400-:02 1-00 0.4S2O J0E -00 0.E7Ov5oO'+00 0.4330032+00

0.42O-. JOE+aa 0.5785208+02

O.5<J3240F+G2 0.533E30E-O2

0.b389U0E+32 0.5£6340E+a2

POLYHOMIfL CCEFFICIlNTS fiRE

0.63'0-J0E-0J

0.551030I--03 0.8528002+03

0. 5030002+03

0. 5810032+00

0 . 6053 1 E£2E+ 02 0 . 30 333S43E+ 00 -0.965343G3E-05 0 . 784.J4409E-05 CHISQR - 0.332E+02 FTEST • 0. 15IE+01 RnUL • 0.168E+OO

0.625377E+O5 0.3S629SE+C5

0.247912E+05 0.42B62OE+O4

-0.917900E+C4

-0.3E6e37E+05

-0.515183E+O5 -0.7979342+05

-0.9399332+05

-0. 1175022+08

-0. 1455372+06 0.25022-2+06

0 . 2207052+06

0.2145752 -05

0. 19:0435*06

0. 1763312+06

0. 151G35E+06

0. 1357972+06

3. 1130232+aG

0.931807i:+a5

O.7475-.2.2+05 0.632.3:72+05 0.3243642+05

0.2520322+05 0.5531332+04 -0.5343372+04

-0.3351142+05

R —0.1652+00

FITTED hBOUT niD POINT OF T- 0.781231E+05

X Y FF SIGFF RF SIGRF PRECFF PRECRF

38323.7 64.303 60.916 0.962 -0.965E-05 0.316E-02 0.622+02 0.31E-02

13072.

I

58.432 61.102 1.021 -0.9G5E-05 0.3162-02 0.602+02 0.31E-O2

-42711.0 60.754 61.693 1.314 -0.565E-05 0.3162-02 0.472+02 0.31E-02

-53915.2 61.726 61.800 1.379 -0.965E-05 0.3162-02 0.452+02 0.312-02

-100319.0 59.053 62.260 1.674 -0.9652-03 0.3162-02 0.372+02 0.31E-U2

-126635.0 74.633 62.509 1.846 -0. 9652-05 0.3162-02 0.342+02 0.31E-02

130262.0 60.283 60.028 0.998 -e.965E-05 0.3162-02 0.602+02 0.31E-O2

97266.3 53.690 60.347 0.922 -O.965E-05 e. 3162-02 0.652+02 0.312-02

54753.6 60.699 60.757 0.923 -0.955E-e5 0.3162-02 0.652+02 0.312-02

36/76.7 61.854 60.931 0.966 -0.965E-O5 0.3162-32 0.632+02 0.31E-32

12542.8 56.832 61.165 1.045 -0.965C-05 e. 3122-02 0.532+02 0.312-62

-25634.1 ^ 61.333 61.533 1.221 -0.965E-O5 0.3162-02 0.532+03 0.3.2-52

-59917.0 ' 60.968 61.864 1. 414 -0.965E-C5 0.3162-02 0.442+02 0.312-02

-33257.6 53.537 61.607 1.262 -0.SS5E-O5 0.3162-02 0.492+02 0. 312-02

-63703.5 54.379 61.901 1.437 -O.9o5E-05 0.3162-02 0.422+02 0.31E-62

-76532.3 63 . 43

1

C2.G25 1.517 -C. 9552-05 0.3162-02 0.412+02 0.312-02

-996 10.,

2

62.763 62.247 1.665 -0.965E-O5 0.3162-02 0.372+02 0.31E-02

-121537.0 39.391 62.463 1.912 -0.965E-C5 0.31CE-O2 0.34E+C2 0.312-02

75837.6 53.975 60 . 554 0.910 -0. 9652-05 0.3162-02 0.672+32 0.31E-02

26755.4 67.233 61.028 0.995 -0.9G5E-05 0.31CE-02 0.612+02 0.3IE-02

-23107.3 69.668 61.509 1.2C8 -0. 9652-05 •0.3162-02 0.512+32 0.31E-02

-66537.4 63.292 61.929 1.455 -0.9652-05 0. 3162-02 0.47E+O2 0.31E-C2

-105713.0 69.331 62.336 1.705 -8.9652-05 e. 3162-02 0.37E+O2 0.31E-C2

-1378G2.0 73.275 62.550 1.639 -0.965E-05 0. 3162-02 0.33E+G2 0.31E-02

182321.0 72.340 59.520 1.226 -0.965.2-05 0.3162-02 0.452+02 0.31E-O2

104314.0 60.330 60.274 0.934 -0.9652-05 0.3162-02 0.652+02 0.31E-O2

78128.

1

62.545 60.522 0.910 -0.9652-05 0.3I6E-O2 0.672+02 0.31E-62

62537.7 60.960 60.692 0.918 -0.9652-05 O.3:GE-02 0.662+02 0.31E-C2

396S3.5 63. 162 60.912 0.961 -0.9652-35 0.3162-02 0.632+02 0. 312-02

24791.2 59.674 61.047 1.002 -0. 9652-05 0. 3162-02 0. 612+02 0.31E-G2

4236.2 59.493 61.244 1.379 -0.9652-05 0.3:62-02 0.57E+32 0.3 IE- 02 -9179.0 60.324 61.374 1.139 -0.9652-05 0.3162-02 0.54E+02 0.31E-O2

-3G685.7 62.472 61.640 1.260 -0.9652-05 0.3162-02 0.48E+02 0.31E-O2

-51616.3 62.017 61.794 1.365 -0.9652-05 0.3)62-32 0. 452+02 0.31E-02

-79793.4 63.519 62.056 1.537 -0.9652-05 0.3162-02 0.4CE+02 0.312-02

-93993.6 59.591 62.193 1.628 -0.9652-05 0.3162-02 0.36E+G2 0. 312-02 -117902.0 66.522 62.424 1.787 -0.9652-05 0.3162-1*2 0.35E+O2 0.31E-02

-145337.0 67. 133 62.694 1.979 -0.9C52-05 0.3162-0? 0.32E+02 0.3 IE-02 250229.0 59.452 53.970 1.623 -0.9G5E-05 0.5:62-02 0.36E+Q2 0.31E-0?

223735.0 53.356 59.077 1.492 -0.9652-05 0.3162-02 0. 45ci.+C2 0.31E-02

21-1575.0 62.472 59.214 1.435 -e.9652-05 0.3152-02 0.42E+O2 0.312-02

191043.0 57.255 59.442 1.270 -0. 3652-05 0.3:62-02 0.47E+6'2 0.3 12-02 176091.0 60.387 59.536 1.191 -0.9652-05 0.3162-02 0.50E+C2 0.312-02

151685.0 62.230 59.822 1.077 -0.9652-05 0.3162-02 0.56E+02 0.31E-G2

136797.0 59.657 59.965 1.020 -0.9252-05 0.3162-02 0.5SE+O2 0. 312-02

1 13023.0 61.831 60.195 0.950 -0.9652-05 0.3162-02 0.632+02 0.312-02

90180.7 58.927 63.333 0.923 -0.S55E-0S 0.3162-02 0.65E+62 0.312-32

74794.6 49.798 60.564 0.910 -0.9552-05 0.3162-02 0.67E+02 0.312-0.2 60391.7 65. 181 60.703 0.921 -0.9652-05 0.3162-02 6.662+02 0.312-02

3S46G.4 57.652 60.914 0.962 -0. 9652-05 3.3162-02 0.632+02 0.312-02 25283.2 56.924 61.042 1.000 -0.9652-05 0.3162-02 0.61E+02 0.312-02

5931.4 53.393 61.223 1.072 -0.9652-05 0. 3162-02 8.57E+02 0.312-62

-6943.9 63.690 61.352 1.123 -0.965E-05 O.316E-02 0.54E+O2 0.312-02

-33511.4 56.654 61.609 1.263 -0.965E-O5 0. 3162-02 0.49E+O2 0.312-02

TIME F SIG F PREC F R SIG R PREC R

-0. 175E+06 0.629752E+02 e.218421E+01 28.83 -e.96S350E-O5 0.316228E-02 0.00

E8
Listing of the various routines in the POLGEP program.

SftSSn

POLGEN PROG

$FORT

$TRGT 16

C POLGEN, A PROGRAM TO FIT A POL'(THOMIAL TO DATA READ IN FROM A FREELY

C FORMATTED FILE USING SUBROUTINE GENRED

C POLGEN UILL CALCULATE VALUES FROM THE POLYflOMIAL

C AT SPECIFIED VALUES OF THE ABSCISSA

C ALSO, IT UILL CALCULATE THE DERIVATIVE AT THESE POINTS

C

DIMENSION DATA<150O),TIMF(!500),A1C5),SIGA1 (5),A2(5),SIGA2(5)

DIMENSION NTITLE(35),Ti:250),CC253),SIGC.(:25O),YFIT(25O)

&,TR(250) ,MC5) ,AC5),SIGAC5),RC5^

8c ,X(10)

C

C SET UP RUNNING CONDITIONS

C

NTTYI=5

NTTYO=4

IN=?

N0UT=6

URITE(NOUT,4)

4FORMAT('D

URITE<NTTY0,5)

5 FORMAT (' POLGEN PROGRAM, GIVE NUMBER OF POLYNOMIAL TERMS'

8./' AFTER CONSTANT TERM (FORMAT I!)')

READ(NTTYI,6)NTERMS

IF(NTERMS.LT.Q)STOP

6 FORMAT (in

URITE(WTTYO,70)

70 FORMAT(' GIVE DEGREES OF POLYNOMIAL IN II FORMAT, 1 PER LINE')

READ ( NTTY 1 , 6 ) ( M ( I )

,

I = 1 , NTERM3

)

UR I TE ( NTTYO , 20 ) NTERMS , I N , ( M ( I) ,

I

= I , NTERMS

)

20 FORMAT ('!'/' POLGEN PROGRAM'/' FIT', 12,' DEGREE'

8c,' POLYNOMIAL TO DATA ON FILE', 12

8c/' TERMS IN POLYNOMIAL UILL BE:', 512/

8c/' REPEAT SEQUENCE OF UP TO 100 ALLOUED IN INPUT FILE'

8c/' PROGRAM UILL READ ALL FORMATS PROVIDED THERE ARE NO '

8c/' ALPHABETIC CHARACTERS')

IJRITE (NTTYO, 60)

60 FORMAT (/' UEIGHTED OR UNUEIGHTED FIT IN LEAST SQUARES?'

8./' GIVE 1 OR 0 IN II FOMAT')

READ(NTTYI,6)NFIT

‘ 40 FORMAT (12)

UR I TE ( NOUT, 20 ) NTERMS , I N , ( M ( 1 ) , I = 1 , NTERMS

)

IF(NI-IT.GT.G)URITE(NTTYO,S0)

IF(NFIT.LE.0)URITE(NTTYO,90).

1F(NFIT.GT.0)URITE(NOUT,80)

I F ( NF I T . LE . 0 ) UR ! TE ( NOUT, SO

)

G0 FORMAT(/' LEAST SQUARES FIT UILL BE UEIGHTED')

99 FORNAT(/' LEAST SQUARES FIT UILL BE UNUEIGHTED')

C

C READ IN DATA USING GENERAL READING SUBROUTINE

C

CALL GENRED (X, I EOF, NTTY I, NTTYO, IN, NOUT)

C(1)«=X(1)

E9
o

o

o

non

SIGC(1)=X(2)

T(I)=X(3)

DO 100 1=2,250

CALL GENREECX, IEOF,HTTYI,NTTYO, IN,NOUT)

IF(IEOF.GT.0)GO TO 105

c(i)=x(n

S1GC(I)=X(2)

T(I)=X(3)

100 CONTINUE

GO TO 110

105 1=1-1

110 NDATft=I

URITECNTTYO, I20)NDATfl, IN

• 120 F0RmT(//I6,' DATA READ FROM FILE', 13

8.//19X, 'Y', 15X, 'SIG Y', ISX.'X'/)

URITE(NTTYO,44) (C(I j ,SIGC( D ,TU) , I = 1,NDATA)

44 F0RMAT(3E20.6)

URITECNOL'T, 120)NDATA, IN URITE(N0UT,44) (C( I) ,SIGCC I) ,T( I) , I=1,NDATA)

IFCNDATA.GE. (NTERMS+1) )GC TO 200

URITE(NTTYQ,210)

210 FORMATC/' NOT ENOUGH DATA FOR THIS JOB')

FIT POLYNOMIAL AND OUTPUT COEFFICIENTS

200 NHALF=NDATA/2

TMID=T(NHALF)

DO 400 I=1,NDATA

400 TR(I)=T(I)-TMID

CALL REGRES(TR,C,SIGC,NDATA,NTERMS,M,NFIT,YFIT,AO,A,SIGAO,SIGA

&,R,RMUL,CHISQR,FTEST)

URITE(NOUT, 140)AO,SIGAO

URITECNTT^O, 143)A0,SIGA0

140 FORMATC' POLYNOMIAL COEFFICIENTS ARE' , /C2E 15 . 8)

)

IF(NTERM3.LE.0)GO TO 143 . URITECNOUT, 141

)

(AC I) , SIGA

C

I ) ,

I

= 1 , NTERMS)

URITECNTTYO. 141) (A ( I ) ,

S

IGA C I ) ,

I = 1 , NTERMS)

141 F0RMATC2E15.8)

143 CONTINUE

URITECNTTYO. I53)CHISQR.FTEST,RMUL, CRC I) , 1=1, NTERMS)

150 FORMATC' CHISQR =',E10.3

8./' FTEST =',E13.3

RMUL =',E10.3

fc/C' R =',3E10.3))

URITECNTTYO, 144)TMID

144 FORMATC' FITTED ABOUT MID POINT OF T=',E15.6)

URITECNOUT, 150) CHISQR, FTEST, RMUL, CRC I) , I=liNTERMS)

URITECNOUT, 144)TMID

URITECNOUT, 169)

160 F0RMATC9X,'X',14X, 'Y',13X,'FF',10X,'SIGFF'

8., 13X, ' RF '

,

10X, ' S IGRF' , 9X, ' PRECFF' , 9X, ' FRECRF ' /)

CALCULATE EXTRAPOLATED QUANTITIES

L=1

DO 205 I=1,NDATA

ElO
CALL EXTPOL(AO,A,SIGPlO,SIGPl,NTERnS,TR(D,TR(I),FF.SIGFF,FB,SIGFB

e.,RF,SIGRF.RB, IGRB,PRECFF,PRECFB,PRECRF.PRECRD.L,M)

URITE(iNCUT. 172)T(1) .C( n .FF.SIGFF,RF,SIGRF,PRECFF.PRECRF . 172 FORmT(F10. 1,3F15,3,2E15.3,2£15.2)

205 UR ITE ( NTTYO , 1 70) T ( I) , C ( I ) . FF , S I GFF , RF , S ! GRF , FRECFF, PRECRF

170 FORmT(F7.0.4F9. 1.2E11.3,F8. 1,F7. 1)

Cc URITE(NOUT,460)

460 FORMAT (/' TIME'

&/12X,'F',SX,'SIG F',7X,'PREC F' , 12X, 'R' ,8X, 'SIG R',7X,'PREC R'

&)

17 UR ITE (NTTYO. 15)

15 FORMATC GI^'E EXTROFOLFlTICN VALUE IN F10.0 FORMAT'

&/' END UITH VALUE OF ZERO')

REALKNTTYI. 1 DTIME3

11 FORMATCF1O.0)

IF(ABS(TIME3) .LT. 0.0001) GO TO 939

TIME5=TIME3-TMID

TIME5=TIME5

CALL EXTPOL(AO.A.SIGAO.SIGA.NTERMS.TIME6,TIME5.FF.SIGFF.FB.31GFB

i.RF.SIGRF.RB.SIGRB.PRECFF.PRECFB.PRECRF.PRECRB.L.M)

UR ITE (NTTYO, 16) TIMES, FB, S IGFB, PRECFB. h^B, S IGRB. PRECRB

16 FORMAT(E10.3,2(2E15.6,F8.2)

)

UR1TE(NCUT, 16)T]ME3,FB,SIGFB,PRECFB,R3,SIGRB,PRECRB

URITE(NOUT, 161)

161 FORMAT(/')

GO TO 17

993 URITE(NCUT,4)

STOP

END

Ell
$(^SSM

EXTPOL PROG

$FORT

STRGT 16

C )jo|ok3Moto*<>|cK)}o)otok5Mo*o(<>Mofn»oK>|oK>lojo;o{otoK^c>tolofo<o)cK>K>K>tc>tot:>to!.^^ c SUBROUT I NE EXTPOL ( ftTO , AT, S I GATO , S I GAT

gcNTERMS

&,TIMEF,TIMEB,FACTF,SIGFF, FACTS, SIGFB

8.,RATEF, S IGRF, RATEB,SIGRB, PRECFF, PRECFB,PRECRF, PRECRB, L, M)

C

C SUBROUTINE TO USE POLYNOMIAL OF P=ATO+ATU ) 4'.TIME>K-^<MC 1) -^AT(2) ^TIME>fo!<Mi:2)

C TO EXTRAPOLATE TO VALUES OF BOTH P AND DP/DT TO TIMES TIMEF AND TIMiEB

C

C. ATO = DEFINED ABOVE

C SIGATO = STANDARD DEVIATION OF ATO

C AT = DEFINED ABOVE

C SIGAT - STANDARD DEVIATION OF AT

C RCHI = CHI-SQUARE VALUE FOR FIT

C TIMEF = TIME TO EXTRAPOLATE TO IN FORUARD DIRECTION

C TIMEB = TIME TO EXTRAPOLATE TO IN BACKWARD DIRECTION

C FACTF = VALUE OF FACTOR AS EXTRAPOLATED FORUARD

C FACTS = VALUE OF FACTOR AS EXTRAPOLATED BACKWARD

C RATEF AND RATEB = COFESPONDING VALUES FOR FIRST DERIVATIVES

C SIGFF, SIQFB, SIGRF. SIGR3 = STANDARD DEVIATIONS FOR ASO^/E

C PRECFF, PRECFB,PRECRF, PRECRB •= PRECISION OF EXTRAPOLATED

C RATES AND FACTOR LEVELS

C

C NEDDS NO COMMON BLOCKS OR SUBROUTINES

C

DIMENSION AT(NTERMS) ,SIGAT(NTERMS),M(NTERMS)

C

C EXTRAPOLATE FACTOR LEVEL

C

FACTF = ATO

FACTB=ATO

SIGFF=SIGAT0>f:>k2

SIGFB=SIGAT0>»:mc2

IF(NTERMS.LE.0)GO TO 50

DO 40 I=1,NTERMS

FACTF =FACTF+AT ( I ) >KT I MEF>t^h-M ( I

)

FACTB=FACTB+ATn)>kTIMEB>^M( I)

S I GFF =S I GFF+ ( S I GAT < I) >iiT I MEF>J<>KM ( I ) ) xo«2

SIGFB=SIGFB+(SIGAT( n»iTIMEB-^-:>f:M( I) )>K"K2 40 CONTINUE

50 CONTINUE

SIGFF=SQRT(SIGFF)

SIGFB--SQRTCSIGFB)

C

C EXTRAPOLATE DERIVATIVE

C I.E., IF U=A+B>f:T+C’kT>K>K2,

C THEN DU/DT-B+2^C>t<T

C

RATEF^O.

RATEB =0.

E12
SIGRF=1 .E-04

SIGRB=l.E-04

IF(L.EQ.0)GO TO 120

IF(NTERNS.LE.0)GO TO 110

DO 100 I = l,NTERri3

J=M(I)-1

RATEF=RftTEF+FLOftT(J+l)>KAT(n>f:TIMEF«oKj

RATEB=RATE3+FL0fiT(J+l)>iflTCD>KTIMEB>K>Kj

S I GRF =S I GRF+ ( FLOAT ( J+ 1 ) >f;S i GOT ( I) >t<T I riEFxofjJ ) >iox2 S I GRB =S I GRB+ ( FLOAT ( J+ 1) I GOT ( I) >KT I ) xok2 100 CONTINUE

C

SIGRF=SIGRF-l.E-04

SlGRB=SIGRB-i .E-04

IF(SIGRF.LT.0. 1E-04)SIGRF=0. lE-04

IF(SIGR3.LT.0. lE-04)SIGRB=a. lE-04

C

110 SIGRF=SQRT(SIGRF)

SIGRB=SQRT(SIGRB)

C

C EVALUATE PRECISION

C

120 PRECFF=ABS(FACTF/SIQFF)

PRECFB=ABS (FACTB/S IGFB)

PRECRF=ABS(RATEF/SIGRF)

PRECRB=ABS (RATEB/S IGRB)

RETURN

END

SASSM

FCTN PROG

SPORT

STRGT 16

C

C 5Mo|ofoK>K5io!otc>|oK5K>fok:^o(oiofc5ioiC)ioioK>toK>toK>loK>K:lo(oK>fotoK>K>Mo;otofc+oic^ c FUNCTION FCTN (X, I, J. JTERHS^NPTS)

C

cc FUNCTION TO CALCULATE FITTED VALUES FOR REGRES SUBROUTINE

C

c DIMENSION X(NPTS).JTERMSCJ)

JEXP=JTERMSU)

FCTN=X(I)WEXP

RETURN

END

E13
ono

n

ooonnooooo

on

$ASSM

GENRED PROG

SPORT

SUBROUTINE GENRED (X, IEOF,NTTYI,NTTYO, IN,NOUT)

)K)K>Moi<5tof;)}oK>foM«>K>lo(<>|<>t:>K>}oH>|r,'oioK>JoK>(o;cloK>M:>KMc:=!oj<>K>l<>ioi<>foK>MoloK>K>|c>K>K>K>^^

LIRITTEN BY BRIAN DICKENS, NBS 921-3322

$$SSS$ VERSION OF OCT 23. 1977 35SS$SSS$SS$SSS£$3SSSSS$

THIS IS ft SUBROUTINE FOR FREE FORMAT FREE SAMPLING OF DATA FILES

IT NEEDS THE FOLLOUING RUNCTION:

READX

DIMENSION NTITLE(35). X(D,NX( 100), TEMP ( 100). XSCALECIBO)

J=0

READ IN INPUT FILE INFORMATION

11 URITE (NTTYO.IS)

10 FORMAT (' INPUT ROUTINE'

&/' GIVE: LU NUMBER OF INPUT FILE' ' 8./' NUMBER OF LINES TO SKIP AS TEXT AFTER ALLOWING ' &/' FIRST LINE TO EE A TITLE'

&/' TOTAL NUMBER OF ARGUMENTS IN ONE LINE'

&/" ORDINAL NUMBER OF ARGUMENT TO BE CALLED = XCl) =

'

8./'^ DITTO FOR X(2) ,X(3) ,X(4) ,XC5) .XCS) , STOPPING WITH 0

'

8.,

'IF < 6 AGUMENTS'

8./' THEN NUMBER OF POINTS TO BE READ IN'

8./' 0 = UPTO EOF, MAXIMUM OF 5S0.')

IN = READX ( IIJ,NERRCR,3,NTTYI,NTTY0, lEOF)

IF(IN.NE.NTTVQ) GO TO 210-

URITE(NTTY0.205)

205 FORMATC/' 5$$ INPUT FILE SAME AS OUTPUT SCRATCH '

8.,

'FILE $$S')

GO TO 11 210 REWIND IN NTEXT = READX ( lU.NERROR. l.NTTYI.NTTYO, lEOF)

NLINE = READX ( lU, NERROR, 1 , NTTYI , NTTYO, lEOF)

IF (NLINE. LE. 100)GO TO 14

URITE (NTTYO, 13)NLINE

13 FORMAT (/' TOO MANY ARGUMENTS GIVEN FOR INPUT LINE'

$/' YOU GAVE'. IS,' MAX IS 100'/' TRY AGAIN')

GO TO 11 14 DO 15 I = 1,100

NX(I) = READX C I U, NERROR, 1, NTTYI, NTTYO, I EOF)

IF (NX(I) .LE.0)GO TO 16

15 CONTINUE

GO TO 17

16 I = I-l

17 CONTINUE

MX = I NTOTAL - READX ( lU, NERROR. 1, NTTYI, NTTYO, lEOF)

E14
ooo

ooo

ooo

ooo

IF (NTOTPlL.LE.O)NTOTfiL = 500

IF CMX.LT. DGO TO 1

1

WRITE (NTTY0,138)

138 FORmT (/' GIVE ONE SCALING FACTOR FOR EACH INPUT VALUE')

DO 139 J = 1,MX

XSCALE(J) = READX ( IU,NERR0R, 1,NTTYI,NTTY0, lECF)

139 CONTINUE

BEGIN READING

READ(IN,25)NTITLE

25 FORMAT (35A2)

WRITE (HTTY0,2b)NTITLE,NTEXT,NT0TAL,NLINE, (I,NX(I), 1 = 1,MX)

26 FORMAT (/' TITLE OF INPUT FILE IS'/35A2

8./I6.' LINES OF TEXT WILL BE SKIPPED AFTER TITLE'

8./I6,' POINTS MAX WILL EE READ IN' &/I6,' ARGUMENTS PER LINE'

a/' ARGUMENTS ARE TO BE SAVED IN CALLING ARRAY X AS FOLLOWS:'

a/(' X(',I1,') IS ARGUi-lENT NUMBER', 13))

WRITE (NTTYO, 141) (X3CALECJ) ,NX<J) , J = 1,MX)

141 FORMAT (/' SCALE FACTORS APPLIED TO INPUT VALUES ARE:'

a,(/E12.6,' FOR INPUT VALUE NUMBER', 13))

WRITE(NTTYO,250)

258 FORMATC/' ARE ABO’'/E PARAMETERS OK? ANSWER 0 FOR NO OR 1 FOR YES')

NTEST=READX(IU,NERR0R,3,NTTYI,NTTY0, I EOF)

IFCNTEST.NE. 1) GO TO 1 1 . WRITE (N0UT,26)MTITLE,NTEXT,NT0TAL,NLINE, CI,NXn), I = 1,MX)

WRITECNOUT, 141 ) (XSCALEC J) , NX( J) , J = 1 , MX)

SKIP TEXT

IF (NTEXT.LE.O)GO TO 810

DO 820 I = 1,NTEXT

820 READ(IN,25)NTITLE

810 CONTINUE

READ IN A BANK OF VALUES

ENTRY GENREE

J *= 0

NEUREC = 1 150 DO 20 I = 1,NLINE

IF n.EQ. DNEWREC = 3

TEMP(I) = READX ( IU,NERROR,NEWREC, IN,NTTYO, lEOF)

NEWREC = 1 IF (IEOF.GT.0) RETURN

IF (NERROR.GT.B)GO TO 150

20 CONTINUE

J •= J+1

FILL IN X ARRAY

DO 30 1 = 1,MX

L “ NX(I)

X(I) «= TEMP(L)

X(I) = X(I)>t=XSCALE(I)

30 CONTINUE

IF (J.EQ.NTOTAL) IE0F=1

RETURN

END

E15
SflSSM

MftTIHV PROG

$FORT

$TRGT 16

Q JKHoM<>iofoioMoM<^:>K>^oK>^oMo^oK>K>to^c^oK>Mo^oK>io^ofc>loK^fc^'c>fo^otc>K>|oK>icK^ c SUBROUTINE MATINV (ARRAY, HORDER, DET)

C

C SUBROUTINE FOR MATRIX INVERSION

C

DOUBLE PRECISION ARRAY, AMAX, SAVE

DIMENSION ARRAY(5,5) , IK(5),JK(5)

DET=1.

DO 1S0 K=l,NORDER

C

C FIND LARGEST ELEMENT ARRAY(I,J) IN REST OF MATRIX

C

AMAX=0.

10 DO 30 l-K,NORDER

DO 30 J=K,NORDER

IF (DABS(AMAX)-DABS(ARRAY(I,J))) 20,20,30

20 AMAX=ARRAY(I, J)

IK(K)=I

JK(K)=J

30 - CONTINUE

C

C INTERCHANGE RODS AND COLUMNS TO PUT AMAX IN ARRAY(K,K)

C

40

IF (AMAX) 50,40,50

DET=0.

50

GO TO 260

I=IK(K)

60

IF (I-K) 10,80.60

DO 70 J=1,N0RDER

?0

SAVE=ARRAY(K,J)

ARRAY(K,J)=ARRAY(

ARRAY(I,J)=-SAVE

60 J=JK(K)

90

IF (J-K) 10,110,90

DO 100 I=1,N0RDER

SAVE =ARRAY( 1,10

ARRAY(I,K)=ARRAY(I,J)

100 ARRAY(I,J)=-SAVE

C

C ACCUMIJLATE ELEMENTS OF INVERSE MATRIX

C

110 DO 130 I=1,N0RDER

IF (I-K) 120,130,120

120 ARRAY(I,K)=-ARRAY(I,K)/AMAX

130 CONTINUE

DO 160 1=1,N0RDER

DO 160 J=1,NGRDER

IF (I-K) 140,160,140

140 IF (J-K) 150,163,150

150 ARRAY( I, J) =ARRAY( I, J)+ARRAY( I,K)>KARRAY(K, J)

E16
160 CONTINUE

DO 1S0 J=l,NORDER

IF (J-K) 170,180,170

170 ARRftY(K,J)=ARRAY(K,

180 CONTINUE

ARR8Y(K,K) =1./8M8X

190 DET=DET>^:AmX

C

C RESTORE ORDERING OF MATRIX

C

DO 250 L=l,NORDER

K=NORDER-L+l

J=IK(K)

IF (J-K) 220,220,280

200 DO 210 I=l,NORDER

SAVE=fiRRAY(I,K)

ARRAYC I , K) =-ARRAY( I , J)

210 ARRAY(I,J) =SAVE

220 I=JK(K)

IF (I-K) 250.250,233

230 DO 240 J=1,NCRDER

SftVE=fiRRfiY(K,J)

ARRAYCK, J) =-ARRAY( I,J)

240 ARRAY(I,J)=SAVE

250 CONTINUE

260 RETURN

END

E17
SflSSM

READX PROG

SPORT

FUNCTION READX(IUORD,N,NP,NTTYI,NTTYO, lEOF)

C

c VERSION OF MAR 9,1977

C

C FUNCTION READX USUALLY RETURNS THE NEXT DECIPHER ISLE NUMBER ON THE

C INPUT FILE =NTTYI= AS THE VALUE OF THE VARIABLE READX.

C ANY CUPUT, SUCH AS ERROR MESSAGES OR THE PROMPT CHARACTER,

C IS ON UNIT NTTYO.

C

C IU= ALPHANUMERIC INFORMATION OF THE FIRST 1 OR 2 ILLEGAL NON-NUMER ICAL

C INFORMATION ON INPUT FILE NTTYI.

C N=0 MEANS NUMERICAL INFORMATION SUCCESSFULLY PROCESSED.

C N=1 CHECK ILJ LORD FOR NON-NUMER ICAL INFORMATION,

C (READX=1. IN THIS CASE).

C NP=1 SEND ! AS A PROMPT CHARACTER WHEN NEU RECORD REQUIRED.

C NP=2 READ A NEU RECORD.

C NP=3 DO BOTH THE ABOVE.

C NTTYI = INPUT UNIT

C NTTYO= OUTPUT UNIT FOR PROMPT CHARACTER AND ERROR MESSAGES.

C IEOF=0 END OF FILE NOT YET REACHED ON UNIT NTTYI.

C IEOF=l END OF FILE FOUND ON NTTYI.

C

C ILLEGAL INFORMATION:

C

C IF FIRST CHARACTER IS NOT A BLANK, COMMA, POINT, MINUS, OR

C A NUMBER, THE FIRST 2 ILLEGAL CHARACTERS ARE RETURNED IN =IU=.

C

C LEGAL INFORMAT I ON>k

C

C LEADING BLANKS ARE IGNORED.

C LEADING COMMAS ARE IGNORED.

C DECIMAL POINTS AND EXPONENTIAL TYPE NUMBERS ARE TREATED CQRRCECTLY.

C $ ON THE INPUT FILE IS PRESUMED TO PRECEED AN IN-LINE CCM.^ENT AND

C CAUSES READING OF A NEU RECORD.

C NUMBERS ARE TERMINATED BY A BLANK, COMMA, OR BY THE END OF A RECORD.

C

C

C READX UAS ORIGINALLY URITTEN BY FRANK MCCRACKIN (KBS) AND UAS MODIFIED

C BY FRED MOPSIK AND BY BRIAN DICKENS. (JAN 1977)

C

Cc INTEGER BRANCH

INTEGER>K2 CD, DEC, IU2,N1,J, lEXP, lEXPl

LOGICAL ISIGNE

DIMENSION CD(80),DEC(I0),TEN(10) ,TENTEN(10)

DATA DEC/'0’,' r, '2', '3', '4', '5', '6', '7', '8', '9'/

DATA TEN/1. , 1 .El , 1 .E2, 1 .E3, 1 .E4, 1 .E5, 1 .E6, 1 .E7, 1 .E8. 1 .E9/

DATA TENTEH/1 . , 1 .E10, 1 .E20, 1 .E30, 1 .E40, 1 .E50, 1 . E60, 3><<1 . E70/

DATA Nl/81/

IF (NP.EQ.2.0R.NP.EQ.3) N1 = 81

lEOF = 0

N 0

E18
SIGN = 1. X = 0.

Y = 1. YJ - 0.

C

C FIND FIRST CHARPCTER

C

15 IF (N1.GT.80) GO TO 1080

IF (CD(Nl) .EQ. '$' ) GO TO 1000

ASSIGN 16 TO BRANCH

GO TO 2000

16 GOTO (40, 100,30,20,20,300), IP 20 N1 = NH-1

GO TO 15

C SET SIGN

30 SIGN = -1.

N1 = Nl+1

GO TO 15

C

C CALCULATE NUMBER

C

40 X = J

50 N1 = Nl+1

IF (N1.GT.80) GO TO 270

IF (CD(Nl) .EQ.'E') GO TO 50

ASSIGN 70 TO BRANCH

GO TO 2800

70 GOTO (75, 100,205,200,270,270), IP

75 X = X>H10.+J

GO TO 50

C

C CALCULATE FRACTION

C

100 CONTINUE

110 N1 = Nl+1

IF (N1.GT.S0) GO TO 270

IF (CD(Nl) .EQ.'E') GO TO 110

ASSIGN 125 TO BRANCH

GO TO 2000

125 GO TO (130, 3055, 205, 200, 270, 270), IP 130 YJ = 10.>KYJ+J

Y •= 10.>KY

GO TO 110

C

C CALCULATE EXPONENT I EXP

*C

200 ISIGNE = .FALSE.

lEXP = 1 lEXPl = 1 GO TO 210

205 ISIGNE = .TRUE.

lEXP = 1 lEXPl = 1 210 N1 = Nl+1

IF (N1.GT.80) GO TO 250

ASSIGN 220 TO BRANCH

E19
GO TO 2000

220 GO TO (230,250.250,250,250,250), IP

230 lEXPl = I EXP

lEXP = J+1

GO TO 210 - 250 IF (ISIGNE) GO TO 2S0

READX = SIGN»s(X+YJ/Y)>HTEN(IEXP)^TENTEN(IEXPl)

N *= 0

RETURN

260 REfiDX = SIGN>K(X+YJ/'r')/(TENnEXP)>KTENTEN(IEXPl))

N = 0

RETURN

270 READX = SIGN*(X-!-YJ/Y)

N = 0

RETURN

C

C RETURN ALPHA ARG

C

300 IU.I2 = CD(Nl)

N1 = Nl+1

IF (N1.GT.80) GO TO 302

IF (CD(Nl).EQ.' ' .OR. CD(N1 ) .EQ. ' ,' .OR. CD (N 1) . EQ . ' S' ) GO TO 302

IU2 = UJ2-X'20'+CD(N1)/X' 100'

N1 = Nl+1

302 lUORD = ILt2 N = 1 READX = 1. RETURN

3055 WRITE (NTTYO,3056)N1

3056 FORMATC' 2d . AT COL. ',13)-

GO TO 270

1000 N1 = 1 IF (NP.EQ. 1.0R.NP.EQ.3) WRITE (NTTY'O, 1020)

1020 FORMATC' !')

READ (NTTYI, 1010, END = 9000) CD

1010 FCRMAT(88A1)

GO TO 15

C

C CHARACTER INTERP. ROUTINE

C

2000 DO 2010 J = 1,10

IF (CD(Nl) .EQ.DEC(J)) GO TO 2020

2010 CONTINUE

IP = 6

IF (CD(Nl).EQ.'.') IP = 2

IF (CD(Nl) .EQ.'-') IP = 3

IF (CD(Nl) .EQ.'+') IP = 4

IF (CD(Nl).EQ.' ' .OR. CD (N1 ) .EQ . '

,

' ) IP = 5

GO TO 2030

2020 IP - 1 J - J-I

2030 GO TO BRANCH

9000 lEOF = 1 RETURN

END

E20
$ASSM

REGRES PROG

SPORT

STRGT 16

C

0 >(oK5Molojo!ol<>H5|ofo|o|oJo{o}oJc};:i<MoJof^o!o!oK>Kjlo(o^5k5K5Mok>K>joK5K>lo}oK'5j<>M<>M<>WsM'olJ>to^ c SUEROUT 1 NE REGRES (X, Y, S I GMOY, NPTS , NTERriS , M, mDE , YF 1 T. flO . fl , S I GMSO,

2 SIGMfiO,R,RN!JL,CHISQR,FTEST)

C

cC NEEDS THE FOLLOUING FUNCTION RND SUBROUTINE:

C FCTN

C MATINV

C

c DOUBLE PRECISION ARRfiY,SUn, YriERN,SIGm.CHISQ,XnEAN,SIGn.qX

DIMENSION X(NPTS) ,Y(NPTS) ,SIGMHY(N'PTS),MC5),YFIT(NPTS)

8.,SIGMFiH(5),R(5),A(5;

DIMENSION UEIGHT(250),XMEAN(5),SIGMAXC5),ARRfiY(5,5)

C

C INITIALIZE SUMS AND ARRAYS

C

SUM=0.

YMEAN=0.

SIGMA=0.

CHISQ=0.

RMUL=0.

DO 10 1=1, NPTS

10 YFIT(I)=0.

IF (NTERMS.LE.0) GO TO 30

DO 20 J=1,NTERMS

XMEAN(J)=0.

SIGMAX(J)=0.

R(J)=0.

A(J)=0.

SIGMAA(J)=0.

DO 20 K=1,NTERMS

20 ARRAY(J.K) =0.

30 CONTINUE

C

C ACCUMULATE WEIGHTED SUMS

C

DO 110 1=1, NPTS

IF (MODE) 40,70,80

40 IF (Y(I)) 60,70,50

50 UEIGHT(I)=1./Y(I)

GO TO 90

60 UEIGHT(I)=l./(-Y(I))

GO TO 90

70 UEIGHT(I)=1.

GO TO 90

60 UEIGHT(I) = l./SIGMAY(I)>«ot:2

90 SUM=SUM+WEIGHT(I)

YMEAN=YM£AN+UE IGHT( I ) H<Y< I )

E21
IF (NTERMS.LE.0) GO TO 110

DO 100 J=l,NTERriS

100 XMEAN ( J ) =XriEAN ( J ) +UE I GHT ( I) >;<FCTH ( X, I , J , M, NPTS

)

110 CONTINUE

YMEAN=YMEAN/SUri

IF (NTERM3.LE.0) GO TO 130

DO 120 J=1,NTERMS

120 XnEAN(J)=XMEAN(J)/SUM

130 CONTINUE

FNPTS=NPTS

UMEAN=SUn/FNPTS

DO 140 I=1,NPTS

143 UEIGHTi:i)=UEIGHT(n/U.'nEAN

c

C ACCUr-L'LATE MATRICES R AND ARRAY

C

DO 150 I=1,MPTS

S I GMA =S I GMA+UE I GHT ( I) >;< C Y C I) -YMEAN

)

IF (NTERMS.LE.0) GO TO 160

DO 150 J=1,NTERMS

SIGMAX(J) =S1GMAX(J)+LJEIGHT( I)>f<(FCTN(X. I, J,M,NPTS)-XMEANCJ) )>M<2

R(J)=R(J)+l!EIGHT(I)>x(FCTN(X, I, J,M,NPTS)-XMEAN(J))>;<(Y(I)-YMEAN)

DO 150 K=1,J

ARRAY(J,tO=ARRAY(J.K)+lJEIGHT(I):!<(FCTN(X, I, J,M,NPTS)-XMEAN(J))

2 5{i(FCTN(X, I,K,M,NPTS)-XMEAN(K))

150 CONTINUE

160 CONTINUE

FREE1=NPTS-1

SIGMA=DSQRT(SIGMA/FREE1)

. IF (NTERMS.LE.0) GO TO 1S0

^ DO 170 J=1,NTERMS

S I GMAX ( J ) =DSQRT ( S I GMAX ( J ) /FREE I

)

R(J)=R(J)/(FREEi 'i;S 1 GMAX C J ) >i'-S 1 GMA ) . DO 170 K=1.J

ARRAY(JJO=ARRAY(J,K)/CFREEl>t<SIGMAX(J)>KSIGMAXCK))

170 ARRAY(K,J)=ARRAY(J,K)

180 CONTINUE

C

C INVERT SYMMETRIC MATRIX

C

IF (NTERMS.LE.0) GO TO 200

CALL MATINV (ARRAY,NTERMS,DET)

IF (DET) 203,190.200

190 AO=0. . SIGMAO=0.

RMUL=0.

CHISQR=0.

FTEST=0.

GO TO 330

C

C CALCULATE COEFFICIENTS. FIT, AND CHI SQUARE

C

200 AO=YMEAN

IF (NTERMS.LE.0) GO TO 230

DO 220 J=1,NTERMS

DO 210 K=1.NTERMS

E22
210

DO 220 I=1,NPTS

220 YFIT(I)=YFIT(I)+P(J)HcFCTN(X, I,J,M,NPTS)

230 CONTINUE

DO 240 I=1,NPTS

YFIT(D=YFIT(I)+PO

240 CHISQ=CHISQ+UEIGHT( I)>K(Y(I)-YFIT(I))>tok2

FREEN=NPT3-NTERMS-1

CHISQR=CHISQ>kUMEPN/FREEN

c

C CftLCULftTE UNCERTAINTIES

C

IF (MODE) 250,260,250

250 VftRNCE=l ./UMEAN

GO TO 270

260 VARWCE=CHISQR

270 IF (NTERMS.LE.O) GO TO 290

DO 230 J=1,NTERMS

SIGMAA(J) =ARRAY(J, J)WRRNCE/(FREElx<SIGMAX(J)>iofc2)

SlGMAfl(J) =SQRT(SIGMAA(J)

)

280 RMUL =RMUL+A ( J ) ( J ) >kS I GMAX ( J ) /S I GMA

FREEJ=NTERMS

FTEST= (RMUL/FREEJ) /( ( 1 .-RMUL) /FREEN)

RMUL=SCRT(RMUL)

GO TO 300

290 CONTINUE

FREEJ-0.

FTEST=0.

RMUL=0.

300 SIGMAD=VARNCE/FNPTS

IF (NTERMS.LE.0) GO TO 320

DO 310 J=1,NTERMS

DO 310 K=1,NTERMS

310 ' SIGr-IAO=SIGMAC+VARNCE>t;XMEAN(J)>}cXMEAN(K)>KARRAYCJ,K)/(FREElH-'SIGMA

2X(J)>KSIGMAX(K))

320 SIGMAO=SQRT(SIGMAO)

330 RETURN

END

E23
File FIXPOL, a transfer file which is used as DO FIXP0L,D0 to

compile the main routine for the polynomial fitting program and to

assemble the program.

2U

PC POLGEN, 1D0

PC CPL0UT,2D1

PS 300

RUN FORTV

PC CRLOUT, IDl

PC POLGEB,2D0

RUN CAL

UF 2

CL

ZU

PC POLGEP. 1D0

PC POLGE3,?D0

PC READX3-SD0

PC REGR3B.SD0

PC FCTNB,AD0

PC MATIKB,BD0

AC E>CTPOB,CD0

PC GENREB,DD0

AC FORLIB.FD0

AC POLGL5.5D0

RUN LIBLDR,D0

CL

ZU

TR

JL..

E24
File P0LG5 , which contains the appropriate responses to the program

LIBLDR to make the POLGEP program.

OUT 1 POLGEP

BI 3572

LO 7

LI 8

LI 9

LI ft LI B

LI C

LI D

ED F

MftP

XOUT

UF 1 END

E25
Memory map of the POLGEP program.

REL PROGS:

3572 POLGEN 893S- REBDX

fi?40 MPiTINV BF43 EXTPOL

C57E .COMEX C74C DLGG

CESS S7 CEF4 $3

D00A @1 D818 OS

D0SA 0F D 170 0L

D3SC 02 D^^7B OD

D4E0 00 D4FC ON

D58F. 0P D5BE 03

D66C .DRTN DS94 .R D87E BLOG DS8C E>;p

DB10 FLCBT2 DB43 .Y

DBE4 .U DC32 .COM?

DCD4 -S8 DCFE .5

DD44 .P DDCS .M

DF42 .I1ES DFBS • U

E01C 0H F26S

ftBS PROGS:

HONE

ENTRY-POINTS:

895A REP.DX 911E REGRES

BFSC EXTPOL B4C6 GENRED

C580 .COMEX C74E BLOG

CE98 $7 CEF6 *3

D00C 01 D33B 0S

D06C 0F D172 0L

D36E 02 D37C 0D

D4E2 00 D4FE 0N

D590 0P D5C0 0B

D66E ,DRTN DS96 . R D880 BLOG DS8E EXP

DB12 FL0BT2 DB4B .Y

DBE6 .U DC34 .COMP

DCD6 $3 DD02 . 5

DD46 .P DDCS .M

DF44 .MES DECS .U

E06A 0H

COMMON--BLOCKS:

NONE

UNDEFINED:

NONE

S9FB REGRES B6C2 FCTN

B4B2 GENRED C570 .D

CBBC DEXP CC94 D3QRT

CF2C DAINT CFF0 0A

D03A DABS D054 .G

DiA3 0K DIDO OM

D494 0T D4BC 0E

D555 GU D5SE 0V

D5CE .BARG . ‘DS10 .DELiAP

D6D9 .A D77S SORT

DA92 AINT DB0A FLOAT . DB4E .Y2 DBCE AB3

DC5E $6 DCAS .RARG

DDCS .ZERO DDOE .S

DE4A .0 . DEFA .0

DFE8 .V DFF6 0R

ASE6 FCTN A76E MATINV

BEA9 GEHREE C572 .D

CASE DEX? CC95 DSQRT

CF2E DAINT CFF2 OA

D03C DBBS D055 .G

D1A2 0K D1D2 0M

D49G 0T D4BE 0E

D553 00 D570 0V

D5D0 • DARG Dbl2 . L'SLiBP

D6D2 .A D778 SORT

DA94 AINT DB0C FLOBT

DB50 .Y2 DBD0 ABS

DCb3 $S DCAA .RARG

DD0A .ZERO DD10 .8

DE4C .0 DEFC .0

DFEE .V DFF8 OR

E26
. V

‘ M' yvKfr -.T*

•* "“

i' • ''’TV '." '®«

“^ .^3(<l40^

TABLER, a FORTRAN program to make ' publication-ready ^•* *^ tables from the factor-jump thermogravimetry save file.

. 3 ' a - -V . -UJf. 2?S»'53W K^JCH

A. J3mv<3 8K5Ai VMlTI!11‘rtitfl^.-r^..v

.iS

<5^-. >i\ tepdsw i3flL

’li' ;*

“*'K.

•

Hitsi 3^ xsrtcn. 3TO

Afl .trrs> 1^*1 M osrti »j;- A333 *f» 5833*

‘ B3Aa Asoa ?« stsa , ,.r* ra flow

fio'aiiff- ,,, J» 4i^rti -j^d-Aaoi^

2<3 OSNa^ el

^ tt'J ,. S« 35£<I

Y© 35;J4. iO y • >13 ,3^ ' o« o^«

>;e^ 3324_ <w .lood,,

T0a avw 'U $ A. eaaa^ .C 5J^*.C5<t^

Aeaa ti iN^a sti^c

^ I-

^SA 336<3 l-t »cy . Aaa. dAOdi!^* c «r^/, sw

0 a . 3Qaa

^

J<^'. 3. 33:»

«i<3.3e$« iiioje 3\»i

' ^

.3!' Q . Am 0.’* A^^tz H. 53«<X*

«A am Vi S33d *>^ U. 883(1^

)oUT

F 8» h<m \ hww : aan;

H« 3183

^ ^ . '>-'. ; ;

: !S5t; u

:8oo^ aaA , ^ ' :

' ‘’xerviiOT-YjrrHSH-

1^*' •

• -w^ * • < •*T’ . • .., • .. » .-r--- — . VHttw 3aw Kf3^ aaa^"" >^aA3Si A288

0,^ «^0 33ff\l3^'^39 ' 03$»><3s5::^ JO^TX3' 353A _ ^ . '...__ «b. ^ ^ ^ _ .w ^ ^ ^

wif* T|S58S Z^O lf»30.3Sft3*=^ .„XaM03,=. 8823 J .-, 57 '!x S2S8 » , se/^ 3sa#i .. *- ^

At ed- -*%< i « 38e<lt?s^M

: - Ut 82S0 4^ h« 351.0 ^; . 0«

>. #% sy. «ee<r--

'.’^ v<A>ai ^^,srpoja; iitw '%

8* Afda^- (KGsT Asa«» ;

. sofid et^acxi 7i

; .'- " n ' fi. 3i^3S 3 «/83<fC* A. awifl. -;. J 0. om

%) imr „v.'‘'3mv- s3m. ^^^?wi •>#

V'4fe| - ’“viv ^*.
Example of output of TABLEP program. The input is a SAVE file from

TGRUNF assigned to logical unit 5. The output is on units an Use *AC SAVE,5D1

*AS 662

*AS 720

*RUN TABLEP, D1

DOC E SIG E T1 R1 T2 R2 SUT

(MG)

74 44.8 0.4 366. 86 ( 3) -60.6C2) 358. 93

(

3) -39.0(1) 14.5

77 44. 1 0.3 359. 04C 3) -34.4(1) 359. 03

(

3) -59.4(1) 12.7

ei 43.5 0.4 363. 7S( 3) -43.5(1) 369. 34

(

4) -31.7(1) 10.2

84 44.9 0.3 369.321: 4) -26.7(1) 379. 97

(

4) -45.5(1) 8.8

87 44.2 0.4 370. 84( 4) -36.8(1) ' 3S2.sk 4) -23.8(0) 6.9

89 45.0 0.3 363.01 ( 4) -19.6(D) 373. 02

(

3) -33.9(0)

.

5.8

92 45.2 0.4 372. 74( 3) -25.4(0) 364. 84( 4) -15.4(9) 4.4

95 44.6 0.4 380 . 78

(

4) -20.3(1) 390. 87

(

4) -34.2(1) 2.5

74 43. 1 0.4 356. 03 ( 4) -32.5(1) 366. 02

(

4) -55.7(1) 15.0

78 41.3 0.4 365. 82

(

4) -47.9(1) 357. 86

(

5) -31.8(1) 12.5

80 45.4 0.3 357. 92 ( 5) -27.0(1) 367. 94( 4) -45.4(1) 11.2

84 43.2' 0.4 367 . 85

(

4) -33.4(1) 359. 82

(

5) -25.5(0) 9. 1 86 44.6 0.3 360. 05

(

4) -21.6(0) 369. 97

(

3) -37.4(1) 8.0

89 43.8 0.4 369 . 88

(

3) -30.5(1) 361. 84( 4) -19.8(0) 6.4

90 45.7 0.4 361.97C 4) -16.0(0) 571.99( 4) 1 0-1 m CO 5.6

92 46.4 0.5 371 . 341: 4) -22.0(0) 363. 80

(

4) -14.0(0) 4.4

93 45.8 0.5 363. 93

(

4) -11.6(G) 3B3. 14( 7) -23.3(2) 3.8

39 44.3 0.4 371.99C 3) -47.4(1) 382. 04( 2) -30.4(2) 14.2

54 44.8 0.4 38 1 . 85

(

2) -74.2(2) 373. 86

(

2) -43 .5(1) 10.5

63 46.3 0.2 374. 09 ( 2) -41.4(1) 384. 04( 3) -71.3(1) 8.4

76 44.7 0.3 . 86 C 3) -51.5(1) 375. 83

(

3) -33.7(1) 5.5

82 45.8 0.3 375. 90

(

3) -25.2(1) 385. 99( 3) -43.4(1) 4. 1 89 45.5 0.4 385. 81( 2) -25.8(1) 377

.

8 1

(

2) -16.8(0) 2.5

92 45.3 0.2 377. 89 ( 2) -11.4(0) 393, 93

(

2) -25.6(1) 1.8

15 45.7 1.0 369.91

(

2) -27.4(2) 380. 02

(

2) -47.7(5) 15.2

56 44.0 0.5 38 1 . 87

(

2) -61.0(2) 373. 87

(

2) -^9.2(1) 7.9

66 46.0 0.2 374. 04( 2) -33.5(1) 384. 04( 2) -57.7(1) 6. 1 78 45.2 0.4 383. 83

(

2) -41.1(1) 375. 78

(

4) -26.7(1) 3.8

64 46.3 0.3 376. 05 ( 4) -19.0(1) 386. 10( 2) -32.3(0) 2.7

91 44.8 0.4 385. 83

(

2) -17.6(0) 377. 84( 2) -11.5(0) 1.5

F2
Listing of the TABLEP program.

SPlSSM

TABLER PROG

SPORT

C

C TABLER. A PROGRAM TO MAKE A TABLE FROM TGRUNF OUTPUT

C IN THE FORM OF THE SAVE FILE

C THIS PROGRAM IJILL I'EDIJCE THE ACTUAL L'EIGHT OF THE SAMPLE IN M

C FROM THE TEGREES OF CONVERSION AND THE ELECTROBALANCE READING

C MICROVOLTS FOR EACH SINGl.E SAMPLE RUN (THIS IS DETECTED BY THE

C FACT THAT THE DEGREE OF CONVERSION GOES FROM HIGH TO LOU PS ONE

C SET OF DATA ENDS AND ANOTHER BEGINS).

C

C NEEDS FUNCTION READX

C

C • X IS DUMMY VARIABLE

C

DIMENSION NTITLE(09)..A(12, 10.0)

C

C INITIALISE UNITS AMD PROGRAM OUTPUT

C

NTTYO=4

IHFILE=5

NPRINT=S

IJRITE(NTTY0,260)

2B0 FORMAT (//' TASLER PROGRAM'

READ DATA FROM F-ILE 5'

8./' PRINT RESULTS ON TERMINAL AMD ON FILE 6'//)

READC INFILE, 5)NTITLE

5 FORMAT (40A2)

URITE(N^RINT,30)

URITECNTTYO.SO)

30 FCRMATC' DCC',3X,'E SIG E' ,5X, 'Tl' , 10X, 'RT ,8X, 'T2'

8, , 10X, 'R2', lOX, 'SUT'/67X,' (MG)'/)

C

C READ IN DATA

C

LOlJ= 1 G0 DO 10 I=LOU, 100

X=READX( IU,NERRCiR, 3,5,4, lEOF)

IF( IECF.GT.0) GO TO 50

A(l, I) -READX( IU,NERRCR, 1,5,4, lECF)

A (2, I)=READX(IU,NERROR, 1,5,4, lEOF)

X=READX( IU,NZRROR, 1,5,4, lEOF)

A(3, I)=READX(Il.j,NERPCR, 1,5,4, lEOF)

A (4, I) =READX(IU, MIRROR, 1,5,4, lEOF)

A(5, I) =PEADX( III, I'ERROR, 1.5,4, lEOF)

ACS, i)=READXniJ,NERRrjR, 1,5,4, lEOF)

A(7, I) =READX( IU,NEi.'.RGR, 1,5,4, lEOF)

A (8, I)-READX(Il),NERROR, 1,5,4, lEOF)

X=READX( I U, MIRROR, 1,5,4, I EOF)

X=READX( I LJ, MIRROR, 1,5,4, I EOF)

X=READX( ILJ,NiriROR, 1,5,4, I EOF)

A (9, I)=RIADX(IlJ,NERROR, 1,5,4, I EOF)

A (10, I)-READX( ILLNGRRDR, 1,5,4, I EOF)

A(1 1, I) =READX( IlJ,NERRnR, 1.5,4, I EOF)

A(12, 1) =READX( III, NEREOR, 1,5,4, lEOF)

X=READX( IlJ.NERRCiR, 1,5,4, I EOF)

X=REPDX( IlJ,NERROR, 1,5,4, I EOF)

X=READX( IlJ,NERROR. 1,5,4, lEOF)

IF (I.EQ. 1) GO TO 10

J = I-1

. IF (A(3, I) .GT.A(3,J)) GO TO 50

10 CONTINUE

C

C calculate INITIAL AND FINAL SAMPLE L1IGHTS FROM FIRST AND LAST DEGREES

C OF CONVERSION FOR A SINGLE SAIPLE RUN IN THE DATA STREAM

F3

J

iji

CD
ooo

nooo

ooo

( USUALLY SEVERAL SINLC-E SAMPLE RUNS ARE COMBINED TO MAKE UP

THE COMPLETE SET OF DATA.)

50 NDATA=I-1

D0C1=A(4, 1)

D0C2-A(4,NDATA)

SUT1=A(3,1)

SUT2=A(3,NDATA)

FACTOR •=( SI.JT 1 -SUT2 )/ C D0C2-D0C 1

)

UIN I TL=GUT 1 4-DOC 1 4-FACTOR

UF INAL=SUT2- (100. -D0C2 ) >i;FACT0R

CALCULATE SAMPLE IJEIGHTS IN MG FROM INPUT L'EIGHT

AND CALCULAED FINAL UEIGHT OF SAMPLE

DO 60 J = 1,TIDATA

SUT=(A(3,J)-LFINAL)/(20.>::ie08.)

ISTl-A(G,J)-l:100.+8.5

IST2=A( 10. J)>;-M0O.+8..5

ISRl=A(8,J):ul0.+0.3

ISR2=A( 12. J)>t40.-i-O.5

ID0C=A(4.J)

E=A(1. J)

SE=A(2. J)

T1=A(5. J)

RI=A(7. J)

T2=A(9.J)

R2=A(1 1, J)

URITE(HPRINT,20) IDOC. E. SE.Tl , ISTl . R 1 , ISRl , T2. IST2.R2. ISR2.SIJT

WRITE (NTTYO. 20) IDOC. E. SE, T1 . ISTl . R 1 . ISR 1 . T2. IST2.R2. ISR2.SUT

20 FORMATC 14. F7 . 1 . F6 . 1 . 2 (F3 . 2, ' (

' . 12. ' )

' . F7 . 1 ,

'

(

' . 1 1

.

' )' ) . F 10 . 1

)

60 CONTINUE

SET UP FIRST MEMBER OF ARRRAY OF DATA FOR NEXT SINGLE SAMPLE RUN

DO 70 J=1.12

70 A(J. 1)=A(J. I)

L0U=2

IF(IEOF.EQ.O) GO TO 88

100 WRITE (NPR INT. 1 10)

110 FORMAT('l')

END FILE NPRINT

END FILE NTTYO

STOP

END

F4
File FIXTAB, used as DO FIXTAB,D0 to recompile the TABLE? program source

and to make the file assignments needed to reassemble the TABLE? program.

ZU

AC TABLER,1D0

AC CAL0UT.2D1

AS 300

RUN FORTV

AC CftLOUT, IDl

AC TABLED, 2D0

RUN CAL

UF 2

CL

ZU

AC TABLE?, 1D0

AC TABLL5,5D0

AC TABLED, 7D0

AC READXB,8D0

AC FORLIB,FD0

RUN L1BLDR,D0

ZU

TR

F5

J
File TABLL5, which contains the appropriate responses to the program

LIBLDR to reassemble the TABLE? program.

OUT 1 TABLEP

BI 3572

LO 7

LI 8

ED F MAP

XOUT

UF 1 END

f F6
Memory map of the TABLEP program.

REL PROGS:

3572 TABLER 5432 REPDX 5BF6 .Y 5BFC .Y2

5C7C .U 5CCP .ZERO 5CD2 . S 5D03 .P 5D8A . Q 5E3P .0 5E82 .MES 5EF8 .U 5F28 .V 5F3S QZ 5F5C 0H 71P6

ftBS PROGS:

NONE

ENTRY-POINTS:

5456 REPDX 5BFS .Y

5CCE .ZERO 5CD4 .S

5E3C .0 5E84 .MES

5F38 0Z 5FAfl @H

5BFE .Y2

5D0P .P

5F06 .0

5C7E .U

5D8C .

5F2E .V

COMMON-BLOCKS:

NONE

UNDEFINED:

NONE

F7
F8
Appendix G. BMPD, a BASIC program for general operation of

the computer-interface combination.

V

• . V , V •

.u

; n , v

r-T^»V

<' f

' 'in ,c.

V'

;

I

' J

•

' ’

-W,cu.

UjWOrt fiLC^C’''" I

•*/? " u?'5r'’r'

‘ - ‘A ' ' -

x' .»>;

' *'” >*'

'

‘ ’'A' -{ >-

Wr^

V.-' V-xv' ^ ••

:

' 4 - '

.'V* X ,

.

' -y -

:

,' -. d.

'

- v .

Aj.

W(5 ^;r

\: ‘•W: -rS-J

• ."i-

,,.‘i

' '.0

a;

»

i5^

..

' *S.i .‘4i' '.* MA-'A-

<,. '1

' ' '-' " / hi!>Mh^ •

=S#

'.Rf 'Ei

"rA
Example of how to use the BMPD BASIC program. User input is underlined.

BMPD > 2D 1

>tflC DflTh;FL.7Dl »D0 MIDP5>D1

BIAS 3572

END 38B2

BIAS 33B2

BASIC 03-84

LOAD 2- BASIC 03-04

RUN

GIVE TITLE

TEST Of^ E EALANCE.

SET initTal” cghTdTIton.s

,

X

give command

1T0O000S£.

Initial conditions.

Y OR N?

Y OR N?

give input to be read, finish UITH -1

&

GIVE INPUT TO BE READ, FINISH UITH -1

GIVE INPUT TO BE READ, FINISH UITH -1

GIVE NUMBER OF READINGS 8. TIME BETUEEN READINGS

100, 10

MtiHeFR OF READINGS IS 109

NUMBER OF INPUTS IS 2

TIME DELAY BETUEEN BATCHES OF READINGS IS 10 SECONDS

INPUTS ARE : e

1 1 .126658 .1454E-2 9

2 .126637 .1455E-2 19

3 .126666 .1454E-2 29

4 .12664 .1454E-2 39

5 .126653 .1455E-2 49

6 .126637 .1454E-2 59

7 .12672 .1455E-2 69

8 .126691 .1454E-2 79
Sample output file from BMPD program.

TEST OF E BfiLflNCE * IT000000R

NUMBER OF REfiDIMGS IS 100

NUMBER OF INPUTS IS 2

TIME DELAY EETUEEN READINGS IS 10

INPUTS ARE ; 0

1

1 .126658 .1454E-2 9

2 .126637 .1455E-2 13

3 .126666 .1454E-2 29

4 .12664 .1454E-2 39

5 . 126658 . 1455E-2 49

6 .126637 .1454E-2 59

7 .12672 .1455E-2 69

8 .126691 .1454E-2 79

G3

SECONDS
Listing of the BASIC program BMPD.

10 K£n

20 REM PROGRAM TO OPERATE MIDAS INTERFACE IN GENERAL FASHION

30 REM AND WRITE RESULTS ON A DISC FILE IF REQUIRED

40 REM

50 REM WRITTEN BY BRIAN DICKENS (NBS)

60 REM

70 REM INITIALISATION AND DEFINITION OF STRINGS

80 REM

90 Z9=0

100 P9=7

110 DIM JSC20)

120 DIM Z$(6)

130 DIM WS(1) . . 140 WS="M“

150 DIM E5(30)

160 E$="U

170 DIM 0$(1)

180 DIM LS;(Sa),A$(l),CS(20),RS(9).T$(20)

190 DIM X(5),Y(8),P$C8),Q5(8)

200 DIM Z(8)

216 PRINT ON (4) "GIVE TITLE"

220 IF Z9<2300 THEN 260

230 UFM P9

240 P9--P9+1

250 Z9=0

260 INPUT ON (5)L$

270 PRINT LS

280 PRINT ON CP9)L$

290 P$= "01234567"

300 Q$= "33555555"

310 0S="<35>"

320 T$="<35>IQ:;<=>?R"

330 U=3S

340 X(1)=0

350 X(2)=0

360 X(3)=.lE-5

370 X(4)=0

380 X(5>=.lE-3

390 REM

400 REM PRE-SET MIDAS

410 REM

420 PRINT ON (4) "SET INITIAL CONDITIONS, Y OR N?"

430 INPUT ON (5)A$

440 IF A$="N" THEN 5G0

450 PRINT ON (4) "GIVE COMMAND"

460 INPUT ON (5)CS

470 PRINT C$;C$

480 PRINT ON (P9)0$;CS

490 L=0

500 CALL l,U,OS,RS;,L,K

510 CALL 1,U,CS,RS.L,K

520 GOTO 420

530 REM

540 REM GET READY TO READ INPUTS ON ANALOG SCANNER

550 REM

560 C$="<35>K0MP3O3>KT"

G4
570

580

590

600

610

620

630

640

650

660

670

680

699

700

710

720

730

740

750

760

770

780

790

800

810

820

830

840

850

860

870

880

890

900

910

920

930

940

950

960

970

980

990

1000

1010

1020

1030

1049

1050

1060

1070

1080

1090

1100

1110

1120

ON

ON

ON

OH

ON

ON

ON

ON

ON

ON

(4)

" GIVE NUmER OF READINGS 8. TIME BETUJEEN READINGS’

(5)

M,S

(4) "NUM3ER

(4) "NUMBER

(4) "TIME DELAY BETL'EEN BATCHES OF READINGS IS";S:

(P9)

(P9;

(P9)

C4) " (P9)

TO N

NUMBER

NUMBER

FOR N=1 TO 8

PRINT ON (4) "GIVE

INPUT ON (5)Y(N)

Y(N)=Y(M)+1

IF Y(N)<=0 THEN 630

NEXT N

N=N-1

PRINT

INPUT

PRINT

PRINT

PRINT

PRINT

PRINT

PRINT

PRINT

PRINT

FOR J=1

I=Y(J)

PRINT PSn, I)

PRINT ON (P9)P5;(I,I)

NEXT J

REM

REM

REM

FOR Nl=l TO M

L=6

2S=""

REM

REM

REM

CALL 1,U.TS,ZS,L,K

R1=VAL(Z$)

G0SU3 1840

U=R1

REM

REM

REM

FOR J=1 TO N

I=Y(J)

REM

REM

REM

C$(1,2)="<35>K"

CS(3,3)=P$(I,I)

C$(4,7) = "MP31''

C$(8,S) =QSCI, I)

C$ 1: 9 , 10) =“>KT" C$(ll,20)="

L=0

REM

REM

REM

CALL 1,U,C$,J$,L,K

REM

REM

INPUT TO BE READ, FINISH UITH -1"

OF

OF

READINGS IS";M

INPUTS IS":N

SECONDS"

OF READINGS IS";M

OF INPUTS IS";N

" TIME DELAY BETloct:

INPUTS ARE :

"INPUTS ARE

N READINGS IS";S;' SECONDS

PERFORM READINGS

GET TIME

LOOP OVER INPUTS

SET UP TO TRIGGER D’vTl

TRIGGER

UAIT

G5

jJ
1130 REM

1140 CALL 1,U,U$,J$.L,K

1150 IF K=3 THEN 1140

1160 L=9

1170 RS=""

1180 REM

1190 REM UNLOAD

1200 REM

1210 CALL 1,U,ES,R$,L,K

1220 REM

1230 REM UAIT

1240 REM

1250 L=0

1260 CALL 1,U,U2,J$,L,K

i270 IF K=3 THEN 1260

1280 REM

1290 REM DECODE DVM READING

1300 REM

1310 R=VAL(RS)

1320 N5=0

1330 IF R<0 THEN N5=l

1340 R=ABS(R)

1350 R3=INT(R/103)

1360 R1=R-R3>K103

1370 R2=R1-INT(R1/10)^.10

1380 R=R3>J«X(R2)

1390 IF N5=l THEN R=-R

1400 2(J)=R

1410 NEXT J

1420 REM

1430 REM PRINT 1, 2 OR 3 VALUES

1440 REM

1450 IF N>1 THEN 1430

1460 PRINT ON (P9) N 1 ;Z( 1 ) ; li 1470 PRINT ON (4) N1;2C1),U

1480 GOTO 1620

1490 IF N>2 THEN 1530

1500 PRINT ON i:P9)N1;2(1);ZC2);U

1510 PRINT CM (4) N1;Z(1),2(2),U

1520 GOTO 1620

1530 IF N>3 THEN 1583

1540 PRINT ON (P9) N 1 : Z( 1) ; Z(2) ;Z (3) ;

U

1550 PRINT ON (4) N1,Z< 1) ,Z(2) ,2(3)

1560 GOTO 1620

1570 REM

1580 REM GENERAL PRINTOUT

1590 REM

1600 PRINT ON (4) N1 ; Z(1 ) ;Z (2) ; Z (3) ; 2 (4) ;Z<5) ;2 (6) ; Z (7) ;Z (8) ;U

1610 PRINT ON (P9)Nl;Z(l);2(2);Z(3);Z(4);Z(5);Z(6);Z(7);Z(3);U

1620 REM

1630 REM

1640 REM

1650 L=0

1660 CALL 1,U,CS,R$,L,K

1670 CALL 1,U,U$, JS,L,K

1680 IF K=3 THEN 1670

G6
UftIT LOOP TILL TirE TO BEGIN NEXT BATCH OF READING

1690 REM

1700 REM

1710 REM

1720 R$=""

1730 L=6

1740 REM

1750 REM GET TIME

1760 REM

1770 CALL 1,U,TS,RS,L,K

1780 R1=VAL(RS)

1790 GOSUB 1340

1800 IF (Rl-UXS THEN 1770

1810 NEXT N1

1820 GOTO 1930

1830 REM

1840 REM SUBROUTINE TO TIME IN SECONDS

1850 REM

1860 R2=INT(R1/10O00)

1870 R3 = INT((Rl-lO000>tR2)/100)

1880 R4=INT(R1-10030><<R2-100>«R3)

1890 Rl=R2^3b00+R3^60+R4

1900 RETURN

1910 REM

1920 REM END OF PROGRAM

1930 REM

1940 UFM P9

1950 GOTO 210

I960 END

G7
Listing of MIDAS file, used as DO MIDAS, D1 to allow BASIC programs

such as BMPD access to the MIDAS interface between the computer and

experiment.

fiC MIDOBJ, IDl

BI 0

LO 1 ftS 120

RM BfiSIC,Dl

TR

END

?38
Appendix H PABS , a FORTRAN program for

generalized plotting.

HI
File SETPAB, used as DO SETPAB,D1 to make fil to give instructions for plotting programs.

e

ftS 120

AS 220

AS 320

AS 420

AS 520

AS 620

AS 762

AC LU3,8D1

AC LU9,9D1

AC VPL0T,AD1

AS B20

AS C28

AS E20

AS F20

fiSSIGN INPUT FILE fiS UNIT B THEN 'RUN PfiBS'

TR

I

m

assignments and

THEN 'RUN VCPY'
Sample showing how to run the general plotting program PADS. User

input is underlined. Begin with DO SETPAB,D0 then assign input file as unit B (e.g., AC INPUT, BDO), then type RUN PABS,D0.

PLOT PROGRAM:

READS FROM FILE 11 AND WRITES INTERMEDIATE FILE ON

FILE 8

RECORD LENGTH OF FILE 8 SHOULD BE 16 IN THIS VERSION

INPUT IS IN FREE FORMAT

GIVE: NUMBER OF LINES TO SKIP AS TEXT AFTER ALLOWING

FIRST LINE TO EE A TITLE

TOTAL NUMBER OF ARGUMENTS IN ONE LINE

ORDINAL NUMBER OF ARGUMENT TO BE CALLED = X = DITTO FOR Y1,Y2,Y3,Y4,Y5, STOPPING WITH 0 IF <5

THEN NUMBER OF POINTS TO BE READ IN 0 o UPTO EOF, MAXIMUM OF 580.

I 1 20 5269 16 700

GIVE NUMBER OF POINTS (IF ANY) TO BE USED IN INTERPOLATING

' 0 - NO INTERPOLATION, BUT DRAW LINES BETWEEN POINTS PLOTTED

-1 - DRAW NO LINES AT ALL, JUST PLOT POINTS

-2 » DRAW NO POINTS AT ALL, JUST DRAW LINES

-3 AND BELOW = NO POINTS BUT DRAW SMOOTHED CURVES

WITH -N POINTS USED IN INTERPOLATION

FREE FORMAT

I L

GIVE LENGTH OF X AND Y AXES IN INCHES 0-7. FOR X

0 » 9.48 FOR Y

X GOES ALONG LENGTH OF ROLL OF PAPER, Y GOES ACROSS

GIS'E X VALUE FIRST

! SJL

^IVE AXIS LABELS AS TWO SETS OF 12 CHARACTERS

ONE PER LINE WITH Y AXIS FIRST

'Sample" wt

t'lVE" SCALING FACTORS FOR INPUT ARRAYS

FIRST FOR X ARRAY AND THEN FOR EACH Y ARRAY

I-.001 1 1 - 1-1 .1

enter 1 FOR VERSATEC SCALING, NICE NUMBERS ON AXES

0 FOR FILL THE PAGE REGARDLESS OF AXIS NUMBERING

“1 FOR READ IN YC'JR OWN PLOT SCALE FACTOR

IF FILL PAGE, GIVE CONTRACTION FACTOR (l.= EXACT FIT OF PLOT

TO PLOT AREA), INPUT OF 0 GIVES 1.0

GIVE YOUR PLOT SCALE IF YOU SAID YOU HAD ONE

ALSO GIVE 1 FOR MODE DUMPS OR 0 FOR NO MODE DUMPS

I

1 0

title of INPUT FILE IS

NBS 1475 PE IN VAC 4/4/78

1 Lite OF TEXT WILL BE SKIPPED AFTER TITLE

H3
500 POINTS MAX UILL BE READ IN

20 ARGUMENTS PER LINE

X IS

V<1)

ARGUMENT HUMBER 5

IS ARGUMENT NUMBER 2

Y(2) IS ARGUMENT NUMBER 6

Y(3) IS ARGUMENT NUMBER 9

Y(4) IS ARGUMENT NUMBER 16

IS ARGUMENT NUMBER 7

I

'

I

I

I}4
Sample input file for PADS program. This file corresponds to the

example of user input and helps to explain the strange input used there.

NBS 1475 PE IN VAC 4/4/78

1 66.185 0.374 3559.

410.55

418.38

2 60.586 0.415 4379.

418.31

412.36

3 65.795 0.424 5196.

412.57

420.42

4 64.515 0.626 6013.

420.22

414.34

5 65.877 0.451 6833.

414.46

422.32

6 67.490 0.739 7657.

422.24

416.38

7 60.651 0.546 8480.

416.35

424.33

8 70.924 0.654 9299.

424.13

418.31

9 64.354 0.507 10118.

418.34

426.22

10 62.347 0.652 10935.

426.13

420.25

11 68.952 0.298 11857.

420.33

0.233949E+06 0.98

0.01 -0.2769E+02

0.23421 lE+06

0.02 -0.4307E+02

0.233688E+06

0,196729E+06 3.39

0.02 -0.42S0E+02

0. 196430E+06

0.02 -0.291SE+02

0. 197029E+B6

0.174084E+06 15.48

0.02 -0.26I0E+02

0. 174446E+06

0.03 -0.450SE+02

0. 173722E+06

0. 13926 lE+06 23.91

0.02 -0.4003E+02

0. 138954E+06

0.02 -0.'2682E+02

0. 139567E+06

0.118442E+06 28.95

0.02 -0.2391E+02

0. 118781E+06

0.01 -0.4123E+02

0. 118102E+06

0.868733E+05 36.59

0.01 -0.3503E+02

0.866649E+05

0.01 -0.2313E+02

0.870326E+05

0.684536E+05 41.05

0.01 -0.2155E+02

0.686979E+05

0.02 -0.3576E+02

0.682093E+05

0.413622E+O5 47.61

0.02 -0.3034E+02

0.411567E+05

0.02 -0.1972E+02

0.415677E+05

0.253236E+05 51.37

0.02 -0.17S7E+02

. 0.261622E+05

0.02 -0.3029E+02

0.254S50E+05

0.272182E+04 56.97

0.02 -0.2607E+02

0.246 120E+04

0.02 -0.1782E+02

0.293245E+04

-0. 121868E+05 60.58

0.02 -0.1426E+02

-0. 118062E+05

0.02 -0.4317E+02

0.6270E-01

0. 139407E+02

0.5493E-O1

0. 121656E+02

0.5493E-01

0. 121d5dE+02

0.4754E-01

0. 104863E+02

0.475‘^E-01

0. 104363E+02

0.94S1E-01

0.209297E+02

0.9491E-01

0.209297E+02

0.5814E-01

0. 128613E+02

0.5821E-O1

0. 125SS2E+02

0.S803E-01

0. 19S128E+02

0.8792E-01

0. 19570SE+02

^ 0.8543E-01

0. 189917E+02

0.8543E-01

0. 189917E-!^2

0.5S38E-01

0. 128953E+02

0.5845E-01

0. 129233E-f02

0.5194E-01

0. 114989E+02

0.51SSE-01

0. 114740E+02

0.62S9E-01

0. 138282E+02

0.6269E-01

0.1382828+02

0.4549E-01

0.101117E+02

0.5608E-01

0. 149867E+02

0.7241E-01

82

81

81

81

81

80

80

81

81

82

82

82

82

81

81

81

81

81

81

82

82

436.03
81

12 67.287 0.633

13 68.851 0.546

14 57.766 0.853

15 66.534 0.431

16 57.284 0.912

17 67.444 0.768

“0.12567^6+05

12773. -0.464356E+05 68.87

435.88 0.02 -0.3134E+02

“0.466910E+05

430.02 0.02 -0.2105E+02

-0.461803E+05

13591. -0.618970E+05 72.51

430.14 0.01 -0.1680E+02

-0.616601E+05

437.96 0.01 -0.2383E+02

-0.621340E+05

14416. -0.821599E+05 77,52

437.84 0.01 -0.2003E+02

“0.822975E+05

431.98 0.02 -0.1426E+02

“0.820224E+05

15330. -0.933407E+05 80,37

432.04 0.02 -0.1110E+02

-0.936093E+05

447.86 0.01 -0.3146E+02

“0.94272 lE+05

16247. -0. 1 17152E+06 85.39

447.72 0.01 -0.1872E+02

“0.1172933+06

441.69 0.01 -0.1336E+02

“0. 117012E+06

18184. -0. 145636E+06 92.89

457.31 0.02 -0.1185E+02

“0. 146325E+36

467.66 0.07 “0. 22633+02 ^ “0. 144946E+06

0 39. 0 0 0.300E+06 0.0

0 0 0 0

0 0 0

0 0 0 0

0 0 0

0 75. 0 0 -0.175E+06 100.0

0 0 0 0

0 0 0

0 0 0 0

0 0 0

0. 19229 lE+02

0.5B65E-01

0. 1293S3E+02

0.5772E-01

0. 127505E+02

0.5772E-01

0. 127505E+02

O.6594E-01

0. 146792E+02

0.6602E-01

0. 147109E+02

0.5200E-01

0. 1 14701E^2

3.6395E-01

0. 169244E+02

0. 1026E+00

0.272634E+02

0.8340E-01

0. 184715E+02

0.3890E-01

0.86164SE+01

0.6263E-0I

0. 167265E+02

O.6373E-01

0. 169782E+02

81

81

81

82

82

81

81

81

31

81

81

81

«6
Output of PABS program corresponding to sample input.

TITLE OF INPUT FILE IS

NBS 1475 PE IN VfiC 4/4/73

1 LINES OF TEXT UILL BE SKIPPED PFTER TITLE

500 POINTS mX UILL BE READ IN 20 ARGUMENTS PER LINE

X IS ARGUMENT NUMBER 5

Y(l) IS ARGUMENT NUMBER 2

Y(2) IS ARGUMENT NUMBER 6

Y(3) IS ARGUriENT NUMBER 9

Y(4) IS ARGUMENT NUMBER IS

Y(5) IS ARGUMENT NUMiSER 7

SCALE FACTORS APPLIED TO INPUT ARRAYS ARE:

0.160300E-e2 FOR X ARRAY

0.100000E+01 FOR Y ARRAY NUMBER 1

0.100000E+01 FOR Y ARRAY NUmER 2

0.100000E+01 FOR Y ARRAY NUMBER 3

0.100000E+01 FOR Y ARRAY NUMBER 4

0.100003E+00 FOR Y ARRAY NUMBER 5

LET VERSATEC SCALE PLOT

NO DUMPS OF MODE TABLE

SCALED PLOT ARRAYS

X Y1 Y2 Y3 Y4 Y5

-0.233949E+05

~0. 19S729E+33

*e. 174084E+03

“0. 139261E+03

•O.118442E+03

•0.068738E+O2

‘0.68453SE+02

-O.413622E+02

-O.258236E+02

*0.272 182E+01

0. 121860E+02

O.464356E+02

O.6I8970E+02

O.821599E+02

O.933407E+a?

0.117152E+83

0. 145636E-K33

•o.3eec00E+03

0. l?5eO0E+03

0.6S)830E+02

0.605Bb0E+02

0.657S58E+02

0.645159E+O2

0 . S58770E+02

0.674300E-t-02

0.606510E+02

0.703240E+O2

0 . 643543E+02

0.62347OE+02

0.S89520E+02

0.672870E+02

0.688510E+02

0.5776S0E+02

0 . 6S534SE+02

0.572843E+O2

0 . 674443E+02

0.390000E+02

0.758000E+02

8.980000E+00

0.99900BE-i-81

0. 154830E+02

0.239100E+02

0.289509E+02

0 . 35590OE+02

0.41050OE+02

0.4761O0E+02

0.513700E+02

a.569700E+02

0.8058008+02

0.688700E+02

0.726100E+02

0.775200E+02

0.803700E+02

0.S5S3OCE+02

0 . 92c900E+02

0.000000E+00

0. 100000E+03

0.276900E+02

0.428000E+02

0,261000E+'02

0.4003038+02

0.239103E+O2

0.3533O8E+O2

0.2155CCE+02

0.3O34G0E+02

0. 178700E+02

0.2637008+02

0. 142603E+02

0.3134Q0E+02

0. 168000E+02

0.200300E+02

0.11 lO00E+02

0. IG720CE+32

0. 1 135008+02

0 . 000000E+00

0 . 000000E+00

0.430700E+02

0.291900E+02

0 . 450600E+02

0.2S320OE+32

0.412303E+92

a.2313008+02

0.357600E+02

0. 197200E+92

0.332330E+32

0. 17820BE+02

0.43I709E+B2

0.210503E+02

0.2S8300E+02

0'. 142500E+02

0.314503E+02

0. 133b0GE+02

0.22SBB3E+02

0.0000BOE+00

0 . 000000E+00

0.4105508+02

0.41331CE-^C2

0.412570E+02

0.426223E+-02

0,4!4/6?E+O2

0.42224OE+02

0.41b350£+02

O.424130E+02

0.41S340E+O2

0.426130E+02

0.428330E+02

0.435880E+02

0.430 14eE+32

0.437B43E ‘-'‘'2 O.432043E+02

0 . 44772O£'»-02

0.4573 10E+O2

0.000O00E+00

0.000000E+00

H7
.00

20.00

^

0.00

00.00

00,00

100.00

120.00

This is an example of a plot by PARS from a prescaled TGRUNF file.

The input file was made with the program FCOPYP (see later in this

Appendix). The 'extra' lines are a result of the scaling method. The

plot is intended to be retraced; the utility of the method is that many

plots, all on the same scale so that they can easily be compared, can be

made entirely under computer control.

I

I

I

I

I.

I

I

I

‘• 300.00 - 220.00 - 140.00 - 60.00 20.00 100.00 180.00

SAMPLE WT

H8
The following is an unsealed PABS plot made using the same data as in the .scaled plot example. There are no extraneous lines but the plot

is on a semiarbitrary scale, the sole requirement being rounded numbers

in the axis markings.

The symbols are:

X curve 1 (activation energy here)

+ curve 2 (percentage extent of reaction here)

+ curve 3 (rate 1 here)

® curve 4 (rate 2 here)

curve 5 (one tenth of temperature 1 here)

The program will only plot 5 curves; therefore temperature 2 is

omitted. The temperature plotted has been divided by 10 to make it

fit on the same scale as E, etc. The sample weight has been

multiplied by -0.001 to transform it from microvolts to millivolts and

to make the chronological sequence from left to right.

H9
.00

20-00

40.00

60.00

80.00

100.00

120.00

140.00

160.00

“250.00 - 190.00 - 130.00 - 70.00 - 10.00 50.00 110.00

SfiMPLE NT

HIO
An unsealed PABS plot made using the same data as in the input

example. There are no extraneous lines but the plot is on a semiarbitrary scale, the sole requirement being rounded numbers in the

axis markings.

The symbols are:

x curve 1 (activation energy here)

+ curve 2 (percentage extent of reaction here)

+ curve 3 (rate 1 here)

® curve 4 (rate 2 here)

* curve 5 (one tenth of temperature 1 here)

The program will only plot 5 curves; therefore temperature 2 is

omitted. The temperature plotted has been divided by 10 to make it fit on the same scale as E, etc. The sample weight has been multiplied by

-0.001 to transform it from microvolts to millivolts and to make the

chronological sequence from left to right.

Hll
This file demonstrates a somewhat long way of automatically plotting

several files without user intervention. The sequence AS 520 to RUN

VCPY is repeated for each plot, and the fifth line, AC PVCAEP,B, is

replaced by a reference to the file of interest. These 11 lines can be

read into the system program EDIT and be written out to another file

after line 5 has been replaced. In this way you can build up a large

file to make many plots. This example as given will produce 2 plots,

one of PVCAEP and one of PVCCEP. (If no disc reference is given, as in

AC PVCAEP, B, the default option is used. In this example, the default

disc is DO.)

AS 520

AS 762

AC 5PABS,5D0

AC LU8,8D0

AC PVCAEP.

RUN PABS6

AC VC0PY5.5

AC BLANKS-F

CP F.5.80.A

AC LU9.9

RUN VCPY

AS 520

AS 762

AC 5PABS.5D0

AC LUB.BDO

AC PVCCEP.

RUN PABS6

AC VC0PY5.5

AC BLANKS.

CP F.5.80.A

AC LU9.9

RUN VCPY

ZU

TR

m2
The following seven tables show how to produce scaled plots of many

activation files energy automatically. This table shows a driving file,

PLOTTH, whicli will plot the data in files PP0%05 and PPVACl. The file

is used as follows:

*AC PLOTTH, EDO

*TR E

Contents of the file PLOTTH

ftC COPYZU.CD0

TR C

ftC PP0riO5.7D0

RUN FCOPYP.D0

fiC DSETPft,CD0

TR C

fiC DOPfiBS.CDO

TR C

AC COPVZU.CD0

TR C

AC PPVflCl.?D0

RUN FCOPYP,D0

AC DScTPA,CD0

TR C

AC DOPP.BS.CD0

TR C

ZU

TR

Contents of the file COPYZU, needed for automatic scaled plotting.

AS

AS

AS

AS

AC

AS

AC

AS

AS

AS

AS

AS

TR

120

220

320

420

FCOPY5»5D0

620

JUNK;.6D1

920

A20

B20

D20

F20

E

H13
Listing of the FORTRAN program FCOPYP, needed for automatic plotting.

This program copies the input file and adds user specified values as the

initial and final values of both the weight and the activation energy.

The source language is in file FCOPYR.

$Assn

FCOPYR PROG

SFORT

C

C PROGRAM TO MAKE TG DATA SUMMARY FILES PLOT ON STANDARD SCALE

C

DIMENSION NLIN£(40)

DOC1=0.

DOC2=100.

URITE(4.G0)

60 FORMAT (' GIVE ON SEPARATE LINES:'

8./' INITIAL SAMPLE UEIGHT'

&/" FINAL SAMPLE LEIGHT'

8./' LOUEST ACTIVATION ENERGY'

8./' HIGHEST ACTIVATION ENERGY')

READ (5, 70) SUT1,SUT2,EL,EH

70 FORMATCFia.e)

DO. 10 1 = 1,1000

READ(7,20,END=30)NLINE

20 F0RMAT(48A2)

URITE(6,20)NLINE

URITE(8,20)NlINE

10 CONTINUE

30 URITE(8,40)EL,SUT1.DOC1

40 FORMATC' 0 ',F5.0,' 0 0 ',E10.3,F7.1

8./' 0 0 0 0

' a/' 0 0 0'

a/' 0 0 0 0'

a/' 000')

URITE (8,40)EH,SUT2,DOC2

END FILE 8

STOP

END

H14
Memory map for the FCOPYR program.

REL PROGS:

3576 FCOPYR 3890 .S

396C .V 397ft QZ

38C6 .MES

39ft0 0H

ABS PROGS:

NONE

ENTRY-POINTS:

3892 .S 38C8 .MES 394ft .U

397C @Z 39EE @H

COMMON-BLOCKS:

NONE

UNDEFINED:

NONE

393C .U

48EP.

3972 .V
Sample input to the FCOPYP program" to produce a scaled plot. The

quantities are initial and final sample weights and initial and final

activation energies. They set extreme values for the x and y axes respectively.

300860 . - 175000 . 39 . 75 .
Contents of the file DSETPA, used in automatic plotting

flS 120

flS 220

fiS 320

AS 420

AS 520

AS 620

AS 762

AC LU8,8D0

AC LU9,9D0

AC VPLOT,AD0

AS B20

AS D20

AS F20

TR E

Contents of the file DOPABS, needed in automatic plotting

AC 5PABS,5D0

AS 762

AC LU3,8D0

AC JUNK,BD1

RUN PABS,D0

AC VCOPY5,5D0

AC BLANKS, FD0

CP F,5,S0,A

RU 5

AC UJ9,9D0

RUN VCPY,D0

TR E
Contents of the file 5PABS, needed for automatic plotting.

1 20 5269 16 700

0

0 0

SAMPLE UT

--.001 11 - 1-1 .1

1 0

Several blank lines are needed in file VC0PY5 to provide replies

to the VCPY program.

1^18
Listings of the FORTRAN routines in the program PADS.

JflSSM

VPLOT PROG

$F0RT

$TRGT 16

C

C PROGRfiM TO PLOT UPTO 5 CURVES ON VERSftTEC PLOTTER, DEO VOLENTE

C PRESENT VERSION HPS 530 POINTS mX IN EACH CURVE

c

C URITTEN BY BRIAN DICKENS, NBS 921-3322

C VERSION OF FEBRUARY, 1978 $$33S3Sj2333S353$$$3S$S$

C

C VERSION 5 UPDATED TO INCORPORATE CHANGES SUGGESTED BY FLOYD HAUER (NBS)

C

C IT NEEDS THE FOLLO'JING SUBROUTINES:

C

C INTERF

C HAXMIN

C MODEP

C READX

C AND THE VERSATEC ROUTINES:

C AXES

C DRAU

C MODE

C NOTE

C SCAN

C

1NTEGER*2 LA3ELXC6) ,LR8ELY(6)

DIMENSION NTITLE(35),><C508),Y(500,5),NY(5), TEMP (100)

&,YSCALE(5) ,LmSK(5) ,LSYM3L(5)

8.,XSTEP( 1801 ) ,SMGOTH( 1001)

DATA LMASK/X' FFFF ' . X' 3333 ' , X' 1 1 1 1' , X' 0FBF ' , X' 00FF '

/

DATA LSYM5L/24,43,33,33,42/

C

C INITIALISE I/O UNITS

C

11 NTTYO = 4

NTTYI = 5

NOUT = 7

IN «= 11 C

C UNIT 8 IS URITTEN BY SUBROUTINES NOTE (FOR SYMBOL PLOTTING) AND

C DRAU (FOR LINE DRAUING)

C

NPLOT = 8

REUIND NPLOT

URITE (NOUT, 1)

1 FORMAT ('D

C

SAME = 9999.

DO 5 I = 1,5

5 NY(I) = 6

XLENG - 0.

YLENG = 0.

C

C READ IN INPUT FILE INFORMATION

C

H19
o

o

o

non

URITE (NTTYO, 10) IN,NPLOT,NPLOT

10 FORmT (' PLOT PROGRfin:'

8./' REfiDS FROM FILE'. 13,' FiND URITES INTERMEDIATE FILE ON'

&/' FILE'. 13

&/' RECORD LENGTH OF FILE'. 13.' SHOULD BE 16 IN THIS VERSION'

8./' INPUT IS IN FREE FORMAT'

8./' GIVE: NUMBER OF LINES TO SKIP AS TEXT AFTER ALLOUING '

8./' FIRST LINE TO BE A TITLE'

8./' TOTAL NUMBER OF ARGUMENTS IN ONE LINE'

8./' ORDINAL NUMBER OF ARGUMENT TO BE CALLED = X =

' &/' DITTO FOR Y1,Y2,'(3.Y4, Y5, STOPPING LJITH 0 IF <5'

8./' THEN NUMBER OF POINTS TO BE READ IN' &/' 0 = UPTG EOF, MAXIMUM OF 508.')

NTEXT = READX ( lU, NERROR, 3, NTTYI , MTTYO, lEQF)

NLINE = READX (lU, NERROR, 1, NTTYI .NTTYO, lEOF)

IF (NLINE. LE. 103) GO TO 14

URITE (NTTYO, 13)NLINE

13 FORMAT (/' TOO MANY ARGUMENTS GIV'EN FOR INPUT LINE'

8i/' YOU GAVE'. 16,' MAXIMUM IS 103'/' TRY AGAIN')

GO TO 11 14 NX = READX ( I U, NERROR. 1 .NTTYI .NTTrO, I EOF)

DO 15 I = 1.5

NY(I) = READX ( lU. NERROR. 1, NTTYI, NTTYO, lEOF)

IF (NY(I).LE.0) GO TO 16

15 CONTINUE

GO TO 17

16 I = I-l

17 CONTINUE

MY = I ^NTOTAL = READX ( lU, NERROR. 1. NTTYI, NTTYO. lEOF)

IF (NTOTAL.LE.0) NTOTAL = 530

IF (MY.LT.l) GO TO 11

DECIDE HOU TO PLOT CURVES AND UHETHER TO INTERPOLATE

URITE (NTTYO. IB)

18 FORMAT (/' GIVE NUMBER OF POINTS (IF ANY) TO BE USED IN'

8c,' INTERPOLATING'

8./' 0 = NO INTERPOLATION, BUT DRAU LINES BETL'EEN POINTS PLOTTED'

8./' -1 = DRAU NO LINES AT ALL. JUST PLOT POINTS'

8./' -2 = DRAU NO POINTS AT ALL. JUST DRAU LIMES'

8./' -3 AND BELOU = NO POINTS BUT DRAU SMOOTHED CURVES'

8./' UITH -N POINTS USED IN INTERPOLATION'

8./' FREE FORMAT'//)

NPTS = READX ( I U. NERROR, 3. NTTYI, NTTYO. I EOF)

DECIDE ON AXIS LENGTHS

URITE (NTTYO. 36)

36 FORMAT (/' GIVE LENGTH OF X AND Y AXES IN INCHES'

8./' 0 = 7. FOR X'

8./' 0 = 9.48 FOR Y'

8./' X GOES ALONG LENGTH OF ROLL OF PAPER. Y GOES ACROSS'

8./' GIVE X VALUE FIRST'/)

XLENG = READX ( I U. NERROR. 3, NTT.' I .NTTYO. I EOF)

YLENG = READX ( lU.NER.ROR. l.NTTYI.NTTYO, lEOF)

H20
ooo

ooo

ooo

ooo GET AXIS LABELS

URITE (N'rrt‘0.27)

27 FORMAT (' GIVE AXIS LABELS AS TUO SETS OF 12 CHARACTERS'

ONE PER LINE UITH Y AXIS FIRST'/)

READ (NTTY 1,28) LABELY, LABELX

28 FORMAT (6A2)

GET SCALING FACTORS FOR INPUT ARRAYS

URITE (NTTYO.ISS)

138 FORMAT (/' GIVE SCALING FACTORS FOR INPUT ARRAYS'

t/' FIRST FOR X ARRAY AND THEN FOR EACH Y ARRAY')

XSCALE = READX ( lU, NERROR, 3, NTTYI , NTTYO, lEOF)

DO 139 J = 1,MY

YSCALE(J) = READX ( lU, NERROR-, 1 , NTTYI , NTTYO, lEOF)

139 CONTINUE

DECIDE ON PLOT SCALING

URITE (NTT/O.Bl)

21 FORMAT (/' ENTER 1 FOR VERSATEC SCALING, NICE NUMBERS ON AXES'

8./' 0 FOR FILL THE PAGE REGARDLESS OF AXIS NUMBERING'

8./' -1 FOR READ IN YOUR OLJN PLOT SCALE FACTOR'

&/' IF FILL PAGE, GTv^ CONTRACTION FACTOR (l.= EXACT FIT OF PLOT'

&/' TO PLOT AREA), INPUT OF 0 GIVES 1.0'

8./' GIVE YOUR PLOT SCALE IF YOU SAID YOU HAD ONE'

8./' ALSO GIVE 1 FOR MODE DUMPS OR 0 FOR NO MODE DUMPS')

NICE = READX nU,NERR0R,3,NTTYI,NTTY0, lEQF)

IF (NICE. GT. 1. OR. NICE. LT.-l) NICE = 1 IF (NICE.EQ.0) CTRACT = READX (lU, NERROR, 1 ,NTTYI , NTTYO, lEOF)

IF (NICE.EQ.-l) SCALE = READX ( I U, NERROR, 1 , NTTY I , NTTYO, I EOF)

IF (ABS(CTRACT) .LT. 1 .E-12) CTRACT = 1.0

MODER = READX ( lU, NERROR, 1 , NTTYI , NTTYO, lEOF)

OUTPUT STATUS QUO

READ(IN,25)NTITLE * 25 FORMAT (35A2)

URITE (NTTY0,2b)NTITLE,NTEXT,NT0TAL,NLINE,NX, (I,NY(I), I = 1,MY)

URITE (N0UT,26)NTITLE,NTEXT,NT0TAL,NLINE,NX, (I,NY(I), I = 1,MY)

26 FORMAT (/' TITLE OF INPUT FILE IS'/35A2

8./I6,' LINES OF TEXT UILL BE SKIPPED AFTER TITLE'

8./I6,' POINTS MAX UILL BE READ IN' 8./I6,' ARGUMENTS PER LINE'

8./' X IS ARGUMENT NUMBER', 13

8./C' Y(',I1,') IS ARGUMENT NUMBER' , 13) ) URITE (NOUT, 14i)XSCALE, (YSCALE(J),J,J = 1,MY)

141 FORMAT (/' SCALE FACTORS APPLIED TO INPUT ARRAYS ARE:'

8./E12.6,' FOR X ARRAY'

8.,(/E12.6.' FOR Y ARRAY NUMBER', 13))

IF (NICE.EQ.0) URITE (NOUT, 31)

IF (NICE. ME. 8) URITE (NOUT, 32)

IF (MODER. EQ.O) URITE (NOUT. 33)

IF (MODER. NE.0) URITE (NOUT. 34)

Ii21
o

oo

o

oo

ooo

ooo

31 FORMAT (' MAKE PLOT FILL PLOT PAGE')

32 FORMAT (' LET VER3ATEC SCALE PLOT')

33 FORMAT (' NO DUMPS OF MODE TABLE')

34 FORMAT (' GIVE DUMPS OF MODE TABLE')

IF (NICE.EQ.0) URITE (N0UT,35)CTRACT

35 FORMAT (' CONTRACTION FACTOR APPLIED IS',F19.3)

IF (NICE.EQ.-l) URITE (NOUT, 136) SCALE

SKIP TEXT

IF (NTEXT.LE.O) GO TO 810

DO 620 I = l^NTEXT

820 READ(IN.25)NTITLE

810 CONTINUE

136 FORMAT C' PLOT SCALE FACTOR READ IN IS',F13.4)

READ IN LINE CONTAINING PLOT VALUES

J = 0

NPROMP = 1 150 DO 20 I = INLINE

IF (I.EQ.l) NPROMP = 3

TEMP(i) = READX (IU,NERROR, NPROMP, IN, NTT/TI, lEOF)

NPROf'P = 1 IF (IEOF.GT.0) GO TO 45

IF (NERR0R.GT.6) GO TO 150

20 CONTINUE

J •= J+1

FILL IN PLOT ARRAYS

X(J) = TEMP (NX)

X(J) = X(J)>i;XSCALE

DO 30 I = 1, MY

L •= NYC I)

Y(J,I) = TEMP(L)

Y(J,I) = Y(J, D^KYSCALEd)

30 CONTINUE

IF (J.EQ.NTOTAL) GO TO 45

IF (J.LT.500) GO TO 150

45 ME = J

OUTPUT PLOT ARRAYS

URITE (NOUT,411)

411 FORMAT (/' SCALED PLOT ARRAYS'/12X, 'X' , 1 IX, ' Yl' , 1 IX, ' Y2' , 1 IX, ' Y3'

8., 11X,'Y4', 11X,'Y5'//)

DO 400 I = 1,J

URITE (NTTY0,410)XCI), (Y(I,K),K = 1,MY)

URITE (NOUT.4I0)X(I), (Y(I,K),K = 1,MY)

410 FORMAT (6E13.6)

400 CONTINUE

MCOUNT = 1 IF (MODER.GT.0) CALL MODEP (MCOUNT)

SET PLOT DIMENSIONS

^22
ooo

o

o

o

ooo

ooo

ooo

o

o

o

IF (XLENG.GT.0.) CALL MODE (7.XLENG,SRnE,SRnE)

IF (YLENG.GT.0.) CALL MODE (7,SP.r£, YLENG-SAME)

MCOUNT = 2

IF (mDER.GT.0) CALL MODEP (nCOUNT)

FORM TRANSFER FILE FOR PLOTS ON LOGICAL UNIT 8

MYZ «= MY-1

IF (MYZ.LT.n GO TO 12

VERSATEC SCALING, ALUAYS DONE.

DO 200 J = 1,MY2

200 CALL SCAN (X, YH , J) , NE, 443)

MAX AND MIN FOR FINAL PLOT, GET OVERALL SCALE

12 CALL SCAN (X,Y(1,MY) ,-HE,440)

MCOUNT =3

IF (MGDER.GT.0) CALL MODEP (MCOUNT)

CALL MAXMIN (XMAX,XMIN,X,NE)

TO SCALE HERE OR NOT TO SCALE HERE?

IF (NICE. HE. 0) GO TO 301

CALL MODE (-2,X1,X2,X3)

XSCALE = ((XMAX-XMIN)/(X1-X2))/CTRACT

CALL MODE (3, SAME, XSCALE, SAME)

CALL MODE (-3, Y1 , Y2, Y3)

DO 449 J = 1,MY

CALL MAXMIN (YMAX, YMIN.VC 1, J) ,NE)

440 YSCALE(J) = ( ( YMAX-YMIN) /(V!-'(2) ) /CTRACT

CALL MAXMIN (YMAX, YMIN, YSCALE,MY)

CALL MODE (9, SAME, YMAX, SAME)

GO TO 331

APPLY READ IN SCALE FACTOR

301 CONTINUE

IF (NICE.NE.-l) GO TO 331

CALL MODE (8, SAME, SCALE, SAME)

CALL MODE (9, SAME, SCALE, SAME)

331 CONTINUE

MCOUNT = 4

IF (MODER.GT.0) CALL MODEP (MCOUNT)

SET SYMBOL CODES AND DRAW SYMBOLS (VIA SUBROUTINE NOTE)

IF (NPTS.LE.-2) GO TO 307

CALL MODE (5, SAME, SAME. 440.

)

DO 300 J = l.MY

CALL MOTE (X, Y( 1, J) .LSYMBL(J) ,-NE)

300 CONTINUE

307 IF (NPTS.EQ.-I) GO TO 1001

IF (NPTS.LE.-3) NPTS = -NPTS

H23
oo

non

non

non

non

oooon

non

noon

non

IF (NPTS.GT.0) GO TO 309

SET LINE CODES AND DRAIJ LINES (VIA SUBROUTINE DRAU)

DO 308 J = Krtt' L - LMASK(J)

CALL MODE ( 10, FLOAT(L) , SAME, SAME)

CALL DRAU (X, Y( 1, J) ,NE,441)

308 CONTINUE

GO TO 1001

309 CONTINUE

DRAU SMOOTH CURVES HERE

FIRST, CALCULATE LENGTH OF STEP

NSTEPS = MIN0(NE>f<5+l, 1001)

STEP = (XMAX-XMIN) /FLOAT (NSTEPS- 1)

FILL IN X ARRAY

XSTEP(l) = XMIN

DO 50 I = 2, NSTEPS

50 XSTEP(I) = XSTEP(I-1)+STEP

INTERPOLATE Y ARRAY AT EVERY XSTEP VALUE

DO OVER ALL = MY = CURVES

NHALF = NPTS/2

DO 1030 K = 1,MY

DO OVER ALL XSTEP POINTS

I - 1 DO 900 L = 1, NSTEPS

FIND X POINT CORRESPONDING TO XSTEP POINT UNDER CONSIDERATION

DO 800 J = I,NE

IF (X(J) .GE.XSTEP(D) GO TO 700

800 CONTINUE

J - NE

TAKE =NHALF= POINTS ON BOTH SIDES OF X(J) IF POSSIBLE

700 I » J

J - J-NHALF

IF (J.LT. 1) J = 1 IF ((J+NPTS) .GT.NE) J = NE-NPTS

INTERPOLATE

CALL INTERF (X(J) , Y(J,K) ,XSTEP(L) ,SMOOTH(L) ,NPTS)

900 CONTINUE

SET LINE CODE

H24
c

L - LmSK(K)

CALL MODE ( lO.FLOATCL) ,SRrc,SflME)

MCOUNT = 5

IF (nODER.GT.0) CALL MODEP (MCOUNT)

C

C DRftU LINE

C

CALL DRALJ (XSTEP. SMOOTH, NSTEPS, 441)

1000 CONTINUE

1001 CONTINUE

C

C LABEL AXES

C

CALL AXES (I2.2,LABELX, 12.2,LABELY)

C

C FINISH PLOT

C

CALL DRALJ (0. ,0. , 1 ,9000)

CALL DRAU (0 . , 0 , , 0, 9999)

URITE (NOUT, 1)

STOP

END

$ASSn

INTERF PROG

5FORT

STRGT 16

SUBROUTINE INTERF(X,Y,XHIT,S,NPTS)

C

C SUBROUTINE TO INTERPOLATE FOR VALUE OF Y AT XHIT

C GOSPEL ACCORDING TO DORN AND MCCRACKIN, "NUMERICAL METHODS UITH FORTRAN

C CASE STUDIES", UILEY, 1972, PAGE 207

C

DIMENSION X(NPTS),Y(NPTS)

C

C XHIT = VALUE OF ARRAY X TO INTERPOLATE TO.

C Y = ARRAY USED TO GET INTERPOLATED VALUE = S = FOR X ’VALUE OF XHIT

C NPTS = NUMBER OF POINTS USED IN INTERPOLATION.

C LINE NUMBERS CORRESPOND TO NUMBERS IN DORN & MCCRACKIN FLOW CHART

C

2 I « 1 3 S = 0

4 J = 1 5 P = 1. 6 IF (J-I) 7,8,7

7 P = P>ic(XHIT-X(J))/(X(I)-X(J))

B IF (J-NPTS) 9,10,9

9

J •= J+1

GO TO 6

10 2 = P

11 S = S+2>KY(I)

12 IF (I-NPTS) 13,14,13

13 I = I+l

GO TO 4

14 RETURN

END

1^25
$flSSM

mXMIN PROG

SPORT

STRGT

MftXMIN(XMAX,XMIN,X,N)

C SUBROUTINE TO FIND MAX AND MIN VALUES OF X USING N VALUES

C

DIMENSION X(N)

XliAX = -1.E16

XMIN = 1.E16

DO 10 I = 1-N

IF (XMAX.LT.X(D) XTiAX = X(I)

IF (XMIH.GT.X(I) ) XMIN = X(I)

10 CONTINUE

RETURN

END

SASSM

flODEP PROG

SPORT

STRGT 16

SUBROUTINE MODEP(M)

Cc SUBROUTINE TO PRINT CURRENT VALUES IN MODE TABLE OF VERSATEC PLOTTING

C SOFTUARE

C

NOUT =7

URITE (N0UT,5)M

5 FORMAT (//' MODE TABLE AT STAGE NUMBER'

,

13//)

DO 20 I = 1,9

J « -I

CALL MODE (J,X,Y,2)

20 URITE (NOUT, 10) I,X,Y,2

10 FORMAT (I6,3F10.3)

I = 10

CALL MODE (-10,X,Y,2)

URITE (NOUT,30) I,X,Y,Z

30 FORMAT (I6,2210,F10.3//)

RETURN

END

H26
$flSSM

REftDX PROG

$FORT

FUNCTION REPDX( IUORD.N,NP,NTTYI,NTTYO, lEOF)

C

c VERSION OF MAR 9, 1977 $S$S$S3$$$

C

C FUNCTION READX USUALLY RETURNS THE NEXT DECIPHER I PLE NUMBER ON THE

C INPUT FILE =NTTYI= AS THE VALUE OF THE VARIABLE READX.

C ANY OUPUT, SUCH AS ERROR MESSAGES OR THE PROMPT CHARACTER,

C IS ON UNIT NTTYO.

C

C IU= ALPHANUMERIC INFORMATION OF THE FIRST 1 OR 2 ILLEGAL NON-NUMER ICAL

C INFORMATION ON INPUT FILE NTTYI.

C N=0 MEANS NUMERICAL INFORMATION SUCCESSFULLY PROCESSED.

C N=1 CHECK lU LJORD FOR NON-NUMER ICAL INFORMATION.

C (READX=1. IN THIS CASE).

C NP = 1 SEND ! AS A PROMPT CHARACTER U!HEN NE'J RECORD REQUIRED.

C NP=2 READ A NEU RECORD.

C NP=3 DO BOTH THE ABOVE.

C NTTYI= INPUT UNIT

C NTTYO= OUTPUT UNIT FOR PROMPT CHARACTER AND ERROR MESSAGES.

C IEOF=0 END OF FILE NOT YET REACHED ON UNIT NTTYI.

C IEOF=l END OF FILE FOUND ON NTTYI.

C

C ILLEGAL INFORMATION:

C

C IF FIRST CHARACTER IS NOT A BLANK, COMMA, POINT, MINUS, OR

C A NUMBER, THE FIRST 2 ILLEGAL CHARACTERS ARE RETURNED IN =IU=.

C

C LEGAL INFORMATION>h c

C LEADING BLANKS ARE IGNORED.

C LEADING COMMAS ARE IGNORED.

C DECIMAL POINTS AND EXPONENTIAL TYPE NUMBERS ARE TREATED CORRCECTLY.

C $ ON THE INPUT FILE IS PRESUMED TO PRECEED AN IN-LINE COMMENT AND

C CAUSES READING OF A NEU RECORD.

C NUMBERS ARE TERMINATED 5Y A BLANK, COMMA, OR BY THE END OF A RECORD.

C

c

C READX IJAS ORIGINALLY URITTHN BY FRANK MCCRACKIN CN33) AND UAS MODIFIED

C BY FRED MOPSIK AND BY BRIAN DICKENS. (JAN 1977)

C

cc

INTEGER BRANCH

INTEGER>K2 CD,DEC, IU2,N1, J, lEXP, lEXPl

LOGICAL ISIGNE

DIMENSION CD(80).DEC(1O),TEN(10),TENTEN(10)

DATA DEC/'0',' r.' 2', '3', '4', '5', '6', '7', '8', '9'/

DATA TEN/1., I.El, 1.E2, 1.E3M.E4, 1.E5, 1.E6, 1.E7, l.ES, 1.E9/

DATA TENTEN/1. , 1 .ElO, 1 .E20, 1 .E30, I .E40, 1 .E50, 1 .E60,3>Kl .E70/

DATA Nl/81/

IF (NP.ED.2.CR.NP.EQ.3) N1 - 81

lEOF = 0

«27
N - 0

SIGN - 1. X - 0.

Y - 1. YJ “ 0.

C

c FIND FIRST CHARACTER

C

15 IF (N1.GT.80) GO TO 1000

IF (CD(Nl) .EQ.'S') GO TO 1000

assign 16 TO BRANCH

GO TO 2800

16 GOTO (40, 100,30,20,20,300), IP' 20 N1 ° Nl+1

GO TO 15

C SET SIGN

30 SIGN = “1.

N1 = Nl+1

GO TO 15

C

C CALCULATE NUMBER

C

40 X - J

50 N1 = Nl+1

IF (N1.GT.S0) GO TO 270

IF (CDCNl) .EQ.'E' ) GO TO 50

ASSIGN 70 TO BRANCH

GO TO 2000

70-- GO TO (75, 100,205,200,270,270), IP

75 X - X>H10.+J

GO TO 50

C

C CALCULATE FRACTION

C

100 CONTINUE

110 N1 = Nl+1

IF (N1.GT.80) GO TO 270

IF (CD(Nl) .EQ.'E') GO TO 110

ASSIGN 125 TO BRANCH

GO TO 2000

125 GO TO (130,3855,285.200,270,270), IP

130 YJ - 10.W+J

Y - 10.>KY

* GO TO 110

C

c CALCULATE EXPONENT I EXP

C

200 ISIGNE = .FALSE.

lEXP <= 1 lEXPl = 1 GO TO 210

205 ISIGNE = .TRUE.

lEXP = 1 ^ lEXPl •= 1 210 N1 - Nl+1

IF (N1.GT.80) GO TO 250

^28
ftSSIGN 220 TO BRANCH

GO TO 2000

220 GO TO (230,250,250.250.250,250), IP

230 lEXPl = lEXP

lEXP “ J+1

GO TO 210

250 IF (ISIGNE) GO TO 269

READX = SIGN>x(X+YJ/Y)>«TEN(IEXP)*TENTEN(IEXPl)

N = 0

RETURN

260 READX = SIGN>i<(X+YJ/Y)/(TEN(IEXP)>i<TENTEN( lEXPl)

)

N = 0

RETURN

270 READX = SIGN>K(X+YJ/Y)

N = 0

RETURN

C

C RETURN ALPHA ARG

C

300 IU2 = CD(Nl)

N1 «= Nl + 1 IF (N1.GT.80) GO TO 302

IF (CD(Nl).EQ.' ' .OR. CD(Nl) .EO. '

.

' .OR. CD(Nl) .EQ. 'S* ) GO TO 302

IIJ2 = IU2-X'20'+CD(N1)/X' 100'

N1 = Nl+1

302 lUORD = IU2

N = 1 READX =1.

REU'RN

3055 URITE (NTTYO.305S)N1

3056 FORMATC' 2d . AT COL.', 13)

GO TO 270

1000 N1 = I IF (NP.EQ. 1.0R.NF.EQ.3) URITE (NTTYO, 1020)

1020 FORMATC' !')

READ (NTTYI. 1010, END = 9000) CD

1010 FORMAT(BOAl)

GO TO 15

C

C CHARACTER INTERP. ROUTINE

C

2000 DO 2010 J = 1,10

IF (CD(Nl) .EQ.DEC(J)) GO TO 2020

2010 CONTINUE

IP = 6

IF (CD(Nl).EQ,'.') IP «= 2

IF (CD(Nl).EQ.'-') IP “ 3

IF (CD(Nl) .EQ.'+') IP = 4

IF (CD(NI).EQ.' ' .OR. CD (Nl) .EQ. '

,

' ) IP » 5

GO TO 2030

2020 IP = 1 J = J-1

2030 GO TO BRANCH

9000 lEOF - 1 RETURN

END

H29
Driving program LOPABS which assigns files and runs program LIBLDK

to make the PABS plotting program.

ftC PflBS,lD0

fiS 220

fiS 362

flC PLIB.4D0

AC PABSL5,5D0

AC FORLIB,6D0

AC VPLTB,7DC

AC INTERB.BBa

AC mXMNB,9D0

AC MODEPB,flD0

AC READXB,BD0

AS C20

AS D20

AS E20

AS F29

RUN LIBLDR,D0

ZU

TR

Contents of file PABSL5, which supplies appropriate responses to the

LIBLDR program to make the PABS plotting program.

OUT 1 PABS

LC 110

BI 3576

LO 7

LI 8

LI 9

LI A

LI B

LI 4

ED 4

ED 6

MAP

MAP 3

XOUT

UF 1 END

«30
Memory map of the PABS program.

REL PROGS:

3576 VPLOT A0AE INTERF

fi4B2 READX AC76 VPCMl

B73A MODE C09C DRAU

D2FA VERS D552 IRAN

D5CC CCS D5EC SIN

D770 .R D7AC .A

DP66 MIN0 DA6C MIN02

DABE PINT DB36 $1

DB38 FL0AT2 DBC0 .Y

DC74 ABS DC8A IP.BS2

DD3E . I lARG DD78 .RRARG

DE2C SB DE56 .5

DE9C .P DFIE .0

E03C .U E0BC .V

E116 ou E3C4

A218 MAXMIN A313 MODEP

AC76 AXES B12A NOTE

C9E8 SCAN CF20 FIND

D583 I0R2 D5AA IAND2

D6B2 . I D6B8 . 12

D852 ALOG D960 EXP

DAS2 . 1 DA94 AMOD

DB4E CM rB82 FLOAT

DBC6 .Y2 DC45 MODE

DCC4 .U DD12 .COMP

DDB6 $6 DE0O .RARG

DE5E .ZERO DESS .S

DFCE .0 E016 .MES

EBCA @R E0F0 QZ

F60E •

ftBS PROGS:

NOME

ENTRY-POINTS:

A0D2 INTERF A23C MAXMIN

AC9A AXES B14E NOTE

CA0C SCAN CF44 FIND

D58A I0R2 D5AC IAND2

D6B4 . I DSBA . 12

D654 ALOG DS62 EXP

DA84 . 1 DA9S AMOD

DB50 $22 DB84 FLOAT

DBC8 .Y2 DC43 M0D2

Decs .U DD14 .COMP

DDB8 $6 DE02 .RARG

DE62 .ZERO DESS .S

DFD0 .0 E018 .MES

E0CC 0R E0F2 ez

A334 MODEP A4D6 READX

B75E MODE C0C0 DRAU

D31E VERS D552 IRAM

D5CE COS D5EE SIN

D772 .R D7AE .A DA63 MIN0 DA6E MIN02

DACa PINT DB39 $1

DB8A FL0AT2 DBC2 .Y

DC7S ASS DC8C IA3S2

DD49 ,. IIARG DD7A .RRARG

DE2E $8 DE5A .5

DE9E .P DF20 .0

E69A .U E0C2 .V

E118 @UI E412

COMMON-BLOCKS:

FEEE VPCMl.

UNDEFINED

NONE
7 i WilJj Ih/

'* ...t. twi# ( .." U'vi _ wt, fit* in ol't

vr-jv' : t V

,

i

•

C " • .

. f Mi f .

1) fe j !•' c'. r .

tact

»:il ti" f •^^^«fvr -Q* j ^f* ( ri.-.!/ *

I

' '

' • U c *. i f

; ^ " 1 1'. K o I

• • nci/ya^ lii I I

. p\a 5 . W I i

, i •1 /»•.> r cr

JT". •t "I-; tin ' f t

f *J'. - '

... 1 1.' n

I

i<r t-i'A

•

, orft

’ i i '| i*. ' ''I

k

• 1 ’

- i ' ;

;

• I ' 1 •pan'feivt joici

hi\ii tUi? pcicj

•. ' ’ -i

U'*) V; . • Sr- , .,

. diojt lie « 'UJ

’

' ‘

k

• ' f pil,/ A . 41 6 t ,M ^ i 1

J -J*;- ) i o t i a .a>

e.* v ; .i ^

1 lui; h " ' - .Git! k. i. • .-t c f -If ’ ' r» 1

'.pi e »i c. ivii.l Oki- • ' V'

;'a«ii>r*al ,1

» iff hei»t-uv <*»y > until It '

llti|^j|^. ^4.-1 I

1^32

i. <
Appendix I. Cautionary Remarks

u
I. Problems with the Apparatus

(a) Occasional delays of two to three weeks in obtaining cylinders of

compressed gas.

(h) Drying tubes: no problems.

(c) Gas-flow controller: generally no problems. Cables from interface must not be tugged because miniplug connections at end of

cables are not very strong. ^

(d) Electrobalance: because this is the most sensitive piece of apparatus, it has to perform to the highest specifications.

(i) The contacts round the lamp in the photocell must occasionally

be sanded to remove oxidation. The symptoms are unsteadiness

and large standard deviations (100 pV?) in the balance.

(ii) Even normal handling of the balance pan can make the flag in

the photocell scrape on the photocell housing. The symptom

is slow recovery of the balance after it has been disturbed

greatly (by a pellet of sample for example). Bend the flag

to clear the housing.

(iii) Degradation products sometimes build up on the balance

housing side of the expansion joint. Open up the balance

housing and carefully burn the products off with a torch or bunsen burner.

(iv) When the balance reading is stable for short periods (30 s)

and then changes by up to 300 pV to a new level of temporary

stability, it probably needs factory service.

(v) Keep o-ring seal between balance housing and furnace clean

and greased with silicone stop-cock grease.

(vi) Run balance with a time constant of 5 s, adjust suppression

to give empty bucket weight of -0.16 V to -0.175 V (program

stops when sample weight goes below -0.158 V).

(vii) a sample weight of +0.10 to 0.20 V usually seems appropriate.

For 0.10 V, this is (0.10 V + 0.17 V)/0 . 02 (V/mg) = 13.5 mg of

sample.

(e) Furnace: the furnace is usually trouble-free. As it ages

(> 9 months), occasional flashes during the initial, high voltage

(> 75 V) stages of heat-up may indicate weak connections.

Generally, run it until it fails. Have a spare on hand.

The best maximum settings on the Kepco power supply are 80 to

85 V and 1.5 to 1.7 amps (these depend on the furnace resistance being

''<560). The best settings on the Leeds and Northorp Electromax III

12
controller are proportional = 120, reset = 50 (maximum possible),

approach = 200 (maximum possible) and rate = 0. Note that the proportional range has been increased by a factor of 10 by placing a 100 KQ

resistor between terminals D6 and D7

.

With the diffusion pump assembly, the furnace and balance housing

will pump down to 3 to 5 (Jm of Hg. This is achieved by using a flat

flange on the balance end of the pyrex furnace housing, by rotating

the furnace housing backwards and forwards a few degrees to seal the

o-ring well, and, during assembly of the furnace, by expoxying the

lead-in wires which supply power to the furnace. A greased Viton-A

gasket pressed on a hot press is used to join the two parts of the

furnace housing. The thermocouple leads into the balance housing are also sealed with expoxy cement. With the direct access to the

mechanical pump, ''' lOpm of Hg pressure can be attained. This is

probably satisfactory for most "vacuum” degradations.

(f) Pressure control: The Granville-Phillips Automatic Pressure

Controller is generally trouble-free. Note that the servo-driven

exhaust-valve is intended for use on an input line, whereas here

it is used on the output line. All the open/close connections

inside the controller have been changed. In addition, the number

of corrective pulses per unit time for a given pressure deviation

has been greatly increased by changing Rl-21 (fig. 4-2, Granville

Phillips Manual) from 27 Kfi to 11,7 KQ. The settings for the

APC are Rate = 10, Damping = 10, Reference = 0.8, Range = 10 V.

The MKS pressure measuring unit is also trouble-free. Settings

are range multiplier = 1, head range = 1000, and with no capacitors in

the scalar module.

The pressure sensor itself performs very well when allowance is

made for the non-ideality of the system to be measured. At one point,

the head was stuck at a 'zero' of 10.3 mm Hg (at which the pressure is

really <5 pm Hg) because there was mercury loose inside the head. In

practice this presented no problem, but the unit was later serviced by

the factory. The zero depends on the position of the head and is not

constant from experiment to experiment.

The servo-driven valve is usually trouble-free. A recent problem

was a sudden inability of the apparatus to control the pressure over a long period of time. The pressure would oscillate and at some high

pressure (900 to 1000 mm Hg) would blow out one of the greased glass

joint connections. In diagnosing the possible cure, we tried rinsing

the passage through the valve with toluene, then pumping it down. We

also tried heating it for 24 hr at 105 °C in a vacuum oven. These

treatments had no effect. Another symptom was slow pump-down through

the valve--the valve was either blocked or not fully open. The oil

level in the driver was readjusted. The valve then performed well.

As it turned out, the new runs were being made at a new temperature,

> 400 °C, and part of the trouble arose from the ebb and flow of hot

gas into the cool side arm of the furnace. The cooling produced

13
additional pressure changes which were much faster than the pressure

controller could handle. Insulating the furnace arm did not cure the

problem, but using a mercury/glass tube exhaust system did. Since the

exhaust bubbles through the mercury, the pressure will be greater than

atmospheric (unless you evacuate the space above the mercury).

(g) Vacuum pumps: no problems.

(h) MIDAS interface: generally no problems, occasionally the computer

program will hang in a wait loop, presumably waiting for more

transmission from the MIDAS controller. One solution is to pull

out the plug at the end of the cable from the computer to MIDAS

and then re-insert it. This allows the program to continue, but

by this time much or all of the sample has degraded. Nonetheless,

'the program will, if all the sample has gone, come to a normal

halt. The problem has often been 'cured by pushing all the pins

in the plug in the back of the MIDAS firmly through the body of

the plug and by firmly seating the plug into the MIDAS connection.

The problem may also arise from the MIDAS backplane, which, as of

this writing, is out for repair.

(i) Digital volt meter.

This unit has been plagued with troubles. Recently, it worked

satisfactorily under program control but not under manual control from

the front panel. Previously, it had problems in obeying the range

switch--'it would move the decimal point but not the digits. After

being sent to two local repair companies for a total of three months,

it was finally repaired satisfactorily at the factory.

(j) Computer: hardware problems include one bad memory cell long ago

and faults in the CPU board and read errors in the har'd disc

drive. The operating system will sometimes not allow the restart

of the overlay programs if they had previously been interrupted

and had not come to a normal halt. The symptom is II... (illegal

instruction) after you have typed in RUN TGMAIN,D1 (and have

correctly assigned all the needed units). The solution is to

type SM 0 and then RUN TGMAIN,D1. Sometimes an error message

results after the first write to the MIDAS interface if SM 0 is

not used. (This zeros the compute memory.) Rewinding the output

files (via RW 6 and RW 3) and typing SM 0 and RUN TGMAIN,D1 is

the way to proceed.

(k) Rigid discs: Generally trouble-free. Occasionally they cannot

be read. These disc drive errors seem to have been due to dirt

on the center post, and on bad electrical contact between the

static strip and the spinning spindle at the bottom of the drive.

Both of these problems can be cleaned by swabbing the parts with

isopropyl alcohol.

(l) Flexible disc drives: some are good, some are not. The same applies to the flexible discs themselves. Do not use these

unless- you have to. Drives B and C seem to be the best, but

14
their level of performance is far below that of the rigid discs.

For occasional use they are excellent. When the drives are in

good condition, they are excellent even in extended use, but it seems to be difficult to keep drives in good condition. After a few months of continuous use they seem to die with some ailment

which requires they be returned to the factory. Within weeks the

pressure pad may need to be replaced.

(m) Printer-plotter; generally trouble-free. Watch the level of the

printer-liquid, and give up on trying to get the paper to stack

neatly (this seems to depend on the paper shipment more than on you) . Leaving about an inch of space between the edge of the

basket and the paper control spring thing is the best you can do.

(n) CRT terminal: generally trouble free except for interinittant

switch bounce (where for example, hitting the A key once sometimes

gives AA instead of A) . Switch bounce depends in some way on the

environment. We have replacement switches for this keyboard.

Clean bouncing switches with switch cleaning spray.

(o) Brief discussion of useful FLOXOS commands.

(i) The initial loading of the operating system (FLOXOS) was covered in section I.l. If the FLOXOS system is supposed to

be in the computer but for some reason is not running, you

can enter DTA, 02D0, .ADD and then press the RUN button for a "warm restart" which should provide a running FLOXOS program

will all the previous file assignments still operational.

(ii) CH FO: Used when disc FO is being removed; all current file

assignments to that disc will be dropped. The disc will not

be written on further and you can use all the information on

it by reaccessing the files (use other disc names for FO as required).

(iii) AL NEWFIL , 2D1 , 1, 80 : Used to create a new file called NEWFIL

on disc Dl. This name will be written into the disc directory

and no other file with the same name can exist on that disc.

If this is already the case, FLOXOS will return a message

which says "NA-ERR," i.e., not assigned. In the example

above, NEWFIL will be assigned as logical unit 2, and will

be written on or read from whenever a computer program

refers to unit 2. A space of one cylinder will be reserved

on disc Dl , and each line written to the file will have a maximum length of 80 characters. This is enough for 144 lines

Data files are usually made with 80 character lines. Programs

are stored on files with lines of length 108.

(iv) AC MYFILE,6D0: A file called MYFILE already exists on disc

DO. This command makes it logical unit 6 so a computer

program can have access to it.

15
(v) AS 362: This assigns tlie printer (physical unit 62) to be

logical unit 3. Then information written to unit 3 (programs

refer to logical units only) will appear on physical unit 62,

which is the printer. The CRT is physical unit 20 (an RS232

port on the back of the computer). The assignment 362 can

be cancelled by assigning 3 back to the CRT, i.e., AS 320.

The other physical unit which is important is number 24,

which is attached to the MIDAS interface. 24 is base 16;

BASIC and FORTRAN programs refer to this in base 10 as unit

36 (2x16+4) . A third (currently unused) RS232 port on the

back of the computer is physical unit 22.

(vi) CP 1,2, 80, A: copy all (A) of file 1 (previously assigned)

. to file 2 (also previously assigned). Both files have 80

character lines. Use this command to copy data from the

disc to the printer. For example:

AC DATA,1D1

AS 362

CP 1,3, 80,

CP 1,2, 108, A would be used to copy program files, which have

a record length of 108.

(vii) DO CMMDS,D0: This tells the operating system FLOXOS to read

the instructions written on a file CMMDS which, in this ^ example, is expected to be available on disc DO. These

commands can be built up using the EDIT program supplied

with FLOXOS.

(viii)EDIT: A text editing program which is the usual channel for

getting information from the operator (you) to a file on a disc. Refer to the EDIT manual. EDIT reads unit 1 and

writes unit 2. Several other files are used for print out

of text or prompt characters, etc. EDIT is easy to use but

cannot be summarized briefly.

(ix) RUN TGMAIN,D1: Loads the program TGMAIN from disc D1 into

the memory of the computer and starts it running. This is

the usual method of starting FORTRAN programs. Any files,

including overlay files, needed by the program must be

assigned before the RUN command is issued. (This is done

via AL and AC commands which are usually already set up in a transfer file such as SETTG if the same files are always

needed by a program.)

(x) BASIC: The BASIC interpreter itself is run by typing RUN

BASIC. However, it is usually used here to control MIDAS

with the BASIC program BMPD. The procedure is the following:
AL DATA,7D1,2,80 or AC DATA,7D1

AC BMPD,2D1 (or FI etc.)

DO MIDAS, D1

then, after the BASIC interpreter has replied "BASIC..."

LOAD 2

RUN

etc.

The readings from the MIDAS interface are written on unit 7,

assigned above as DATA in this example.

(xi) CL: completes the transfer of information to a file. Not

always needed, cannot always be neglected. Refer to the

FLOXOS/FLOS manuals.

(xii) RW 6: Rewind the file assigned to unit 6 so that the next

reading or writing takes place at the beginning of the file.

AC and AL start at the beginning of the file.

(xiii)WF 6: Write an end-of-file (a sort of magnetic end of

information mark) on the file assigned to unit 6.

(xiv)FORTRAN: Refer to the program appendices to see how to

compile and execute FORTRAN programs.

17
rcAR u ' • ' y • f

^TTiU •

[T 

3

I- ',. -•’ 4

»t aa

I tvnaXiv**

'.„ / r_

' . '’^1 i.,-

’ -^oi

P

'^ 'yfji^v .., . j?‘ h\36 til' i' ‘hn

* 'VJ<

' ‘“ 1

'

’^3: :

3: ^’V -

;>;'r

'

fijW-vr't -im

ftn»4L,?<w»>

bpJ4

rif .. ,j jA;^

• .r } ’ ^

» -

’

-vi ' y \

f 1

A-ta

‘ ’3B • “^/i"’'y' ' liT *

... ,. , .'5 •»VLi-''

't"^‘ \ i i £^j<y<5 *'f' t V' ' If; i

I.

*

k V

* % • i'

;

‘ ^ ^''iV '• ® -. '

,

' rv.^ ''

. -: '

'

. «

' ' V.

iV,* ,• Xlt ''• :i.i.'\-<f .•^ - .-
1 . * r%15 . ;’-3i n' ei

‘-.51 '*-3

^

1

‘ M.

, Appendix J. Cable diagrams for interface.

,, Tcr.

0 ri

I

• ’ '

I

'

‘

' A;

'4 < V

]i. »li9 ^ 4 I w7*IW ••*: ^ 'w-w

4b<lv«> r>Ar^ ^

* ... , '• 'M* ht % ' <

.' w '.'<Tf ,

'

:

’ *.

' •'J" ^iO^Ctr yt|« ^*V*

“'S . •*’

MiMMyj; Wiite-'f-, J*/" I MB. , , ,,

• - <

• iVi^ 4^ B

‘': ,'•' *' •- ' f-rJ

ft 5e H »**‘*^* *

I .Adioig or lak#:* flmjijiS be n»Mag 4f fiki^ „ kff at the 48'^ k '

, ,

::' ...iE:-,

' •

' * an end*»vi>f Jl» (m ,of

lfi^<t>3nMli-on »<»rit)- on ,t liv ii}A jutljpckevV td wa'it d'7 ;

'^ ’ '^'

''' ' •-' 8ef4/ t# tM *«• h^•% td '

V : K fc-« ;<:.

' laaiRaiffiK^w. , “ T' » ,: . >»^ 5

V

V^: »

I.*--

V'" : V’'

- J

' t»M < i. L:' VSfe « “

'id't /^£Sl '-A ^ '^'.i''*^‘'^'“''‘'}^

«/tS^:», I. ,«uL-‘..'J!-..''r;5i?^1 t-.‘.-l; *.-‘;^."'M ._ •. • ;v . „ t - i-aws

•

, ';'’*• -^1

:y.

v'-fe:^

a*-'--*'

:W.i 'fi i-X'

’*' '

'

: ATI

^ ^

• *V> b'l

•I i

r.|>Ri:>/*tidii
TABLE J1

REMOTE CONTROL OF DV:M CABLING DIAGRAM FROM MIDAS BCD I/O

J2 PLUG TO DVM J202 PLUG

Cociment on

)VM function

DVM

Function

Pin on DVM

Connector J202

Wire Code

coble number, color

Pin on MIDAS

Connector J2 MID/^

Function

Comment on MIDAS Function

Program front panel

control

PO

hold AlO lY(ellov) A PI P outp-.t register

system control E6 lO(range) 3 P2 super fast A7 IR(ed) 2 PA program storage B15 IBr (own) 1 P8

Function DC measuremer.;: QO Q output register

filter B7 IGr(ay) 8 Q1 AC A8 IV(iolet) 7 - Q2

Ohme A9 IB due) 6 QA

Ratio B8 IG(reen) 5 Q8

Range Auto range RO R output register

B12 2R 12 R1

B13 2Br 11 R2 BIA IBl(ack) 10 RA Bll IW(hite) 9 R8

A15 20 • 17 Strobe S output register

A14 2Y 18 Ground

BIO 2G 28 Trigger

J2
1 1 Miip: Ri ''K n\M. CAJIX DIAU.V l ;!UM Mt'J.v; Jl !1X;. TO DVM J.'Ol I lL'C

DVM Function

Sign oi ru.nding

"half digit"

(0 or 1 because

of over-ranging

capability)

Second digit

Third digit

Fourth digit

Fifth digit

Sixth digit

DVM Overloaded

or Illegal

function specified

Range Specification

Cocmoc Ground

Read to Trsinmli Data

DVM functl *n

| I'la on '.'VM VLr»- '’.iJ.- i’ln rn '•.lO.v; Fi.net U- on

(Ui:caU\--b 1 C

)

C.nin.'ct.'r t’.ii* lo -.^..Vu r, lolji C.K. tnu*. 1 4- r J 1 > 1 1

l»»i\w 7u.\».tlon

Sign . AlO lUr(ou*n) 45 P-1 0 fo 1 c , L foe -

33 1-2 ground • .0 40 1-4 NC* - 1 44 1-8 NC - 1

lOOlC-i B3 3Y(ellow) 32 2-1 0 or 1 for dccadlng

half digit

36 2-2

1 - 0

39 2-4 grounded 7*0

43 208 ' - 0

lOF-1 B6 3R(ed) 31 3-1

10i;-4 B7 30( range) 30 3-4

( Socond

10K.-3 39 3G(ceen) 42 3-3 Digit

lOK-2 BIO 3B(lu^) 35 3-2

IF4

B12 3V(lolot) ' 37 4-4 lK-1 B13 3Cr(ay) 30 4-1

[ Third

lK-3 B14 3W(hlte). 41 4-S Digit

IK2B15 3Bl(ack) 34 4-2

lOC-4 B16 2Bt 13 5-4

IOC 1 B17 2R 5 5-1 Fourth

100- 'i BIB 20 17 5-8 Digit

100 -2 B19 2Y 0 5-2

10-4 B20 ^0 14 «-4

10-1 B21 2E 6 6-1 Fifth 10-6 B22 2U 18 6-8 Digit

10-2 A22 2E1 10 6-2 .

1-: A21 2Cr 7 7-1

1 1-4 A20 2V 15 7-4 / Sixth

1-8 19 161 19 7-3 Digit

1-2 18 IGr 11 7-2

1

8 8-1 NC scLie could be

12 8-2 SC giouaded to give an appro16 8-4 NC ptlate MIDAS

20 8-8 NC character for spacing (see

be 1 ow)

NO A12 10 28 9-1 0 « ok 1 - SO

3 9-2 23 9-3 grounded (*C) 21 9-4

8 17 IV 2 10-2

j C 16 IB 22 1C1

DV*M k.3.igc A 15 IG 4 10-1 Specification

C 14 lY 2C 10-8

Croiind 31 3P.r 1 Ground

1.2 + 5V E3 Cga^roi

FI iter 35

SI 1 Hnto^jrcPeb 11

Ontu FrA(!v * All IR 48 w: Slnrt rcndliiK d«iC4 47 MC grounded

he • not ronnerti.l J3
TABLE J3

HinAS BCD 1/0 moJult Juniptir positions:

Input sense selection • 1 output scnce sele. tlon = 0 patch to "no E" In output reading

BCD character table hardwired Into MID/s^.

BCD

0

1

23

A5

6

78

910

1112

13

lA15

for posltlve-truc Input, open pin is 1.

for ground-true Input, grounded pin Is 1.

Clia rarter

0

1

23

A

56

7

* 8

9

skip (no printing character)

DC volt range specification for Dana 5900 Dl'b'.

PeclT.al Value Range

3 O.IV

A IV

5 lOV

6 lOOV

7 lOOOV

Example of programming:

S begin comrand stream K BCD I/O module address in Crete

P begin by filling register P 3 3 - 1+2; i " hold

2 " system control

1 1 " 1+0, 1 * filtered input

0 “ DC volts

3 range specification 3 « O.IV (over-ranges to 0.16V)

* wait after next character is received, continue when BDC I/O module

sends "continue" signal to controller

T trigger the Dl’M to take a reading U unload the’ DVM reading.

Sample of reading as output after above commands: A BC -123A5603

A • DC voltage in microvolts

B “ 0 for satisfactory DVM performance

1 for Illegal function or overload

C “ O.IV range used

J4
w,*\

f . «

» I I

I

!V
NBS-114A (Rev. a-7S)

USCOMM-OC
JJli' tW»« 00 IWTADUitf* .1 nS .'^a juv

' AYAO DlHOA«OOtJ«ia

TSIHt \ .-1 a n-a i tn rwk • ilrrT -?!

I • ^ ^ I • • W • t^3**^^*^J'®**^*^ lAiin®K •

’ nUJoI? XwimQ ai jaiWXafll ,M»3i07f U^qaxC i^>3*l3o«l

• - A •» <

nxMOA (W HMM MonTS^Ao 1

W^ pttO l»h*^ A rwji* >• •chT ,U

2QHAQHATI SOOaSHM jA»«pffAKl

lOfISMMeD TK*inr«A^50

fCK DO ,WOT3lilHtA»j

. ^

i^% ^imntx MMMWA TTUmOO 0*W 0»*AH HOlTfXWAWIO 2||

Ol..Jji-XBqq» ^3«ttW»i«ort®ai; b0tli»3i^qiw» lO x»13»l»qO »»<a3a>^

cm b/i» i»3irtjB03 wU qJ-lDoiood o3 mu o^ta OOV^B •« caol33U«M| 5^*1,

,^TOST3T isiDamq rrJMrtv«:tlo«M«Ja »xia <-£ boa»v^ ttsoal arfl ^ .JGUrroT 4 b«aiia 5o a*ii*aaao. (C .TJcasT

^uolq rrUidAdoiq ;AJMb »a.^ Wfl» BOiatvliaA It. :r • i a^XuaX^x

•.XdL imUBaiXitoq (d .OMOT «igo*q ^\iaAi

s nl BDa^z«3at -waoqwM i»43 B*fl«T»qo ilDlrfw MiBoiq MJAB s»Ar Cv

bs»liBx*rwi wla BolBO t«X33oXq Iwjbbmiia ba* «f35li

*1£ BisBXfBlb Bldao bo* ^onolDoia iwo »»3iba*qqA ,^«A^ t«<nq;

•'fa

w •» w. 1. .-• .« .u-ir* «•*» >-"—»*•

!«i«noM »ui3Jelq b.xlIjK.B.» i»Utl«n» !rM«tV«]|M».l(» b«^'

.

' ^.'•’ •

. :.'ia 1

KAji vrmuDK .*1 rmflR?* tmT) >IP

OiniffiAjDMUi

;3S*1 IlHTj)

i t- ojrtlBAJSHU

irTu ms«4«* «0 WruiU^tW m bwo xi^

pq:,nal|JitdMO >w«n»»od 1* </9tt xtftiO i ,S0A06

»5 .<«T«J Hi fvni i*3i^T‘ JWwJtili C3;