***T °F Co.

\

\

***fAU Of ^

\

J

NBS TECHNICAL NOTE 1127

U.S. DEPARTMENT OF COMMERCE/ National Bureau of Standards

National Bureau of Standards

Mass Calibration Computer Software

QC

100

U5753

no ,1127

1980

c, 2
NATIONAL BUREAU OF STANDARDS

The National Bureau of Standards' was established by an act of Congress on March 3, 1901. The Bureau's overall goal is to strengthen and advance the Nation's science and technology

and facilitate their effective application for public benefit. To this end, the Bureau conducts

research and provides: (1) a basis for the Nation's physical measurement system, (2) scientific and technological services for industry and government, (3) a technical basis for equity in trade, and (4) technical services to promote public safety. The Bureau's technical work is per- formed by the National Measurement Laboratory, the National Engineering Laboratory, and

the Institute for Computer Sciences and Technology.

THE NATIONAL MEASUREMENT LABORATORY provides the national system of

physical and chemical and materials measurement; coordinates the system with measurement

systems of other nations and furnishes essential services leading to accurate and uniform

physical and chemical measurement throughout the Nation's scientific community, industry,

and commerce; conducts materials research leading to improved methods of measurement,

standards, and data on the properties of materials needed by industry, commerce, educational

institutions, and Government; provides advisory and research services to other Government

agencies; develops, produces, and distributes Standard Reference Materials; and provides

calibration services. The Laboratory consists of the following centers:

Absolute Physical Quantities2 — Radiation Research — Thermodynamics and

Molecular Science — Analytical Chemistry — Materials Science. THE NATIONAL ENGINEERING LABORATORY provides technology and technical ser- vices to the public and private sectors to address national needs and to solve national problems; conducts research in engineering and applied science in support of these efforts; builds and maintains competence in the necessary disciplines required to carry out this research and technical service; develops engineering data and measurement capabilities;

provides engineering measurement traceability services; develops test methods and proposes

engineering standards and code changes; develops and proposes new engineering practices;

and develops and improves mechanisms to transfer results of its research to the ultimate user. The Laboratory consists of the following centers:

Applied Mathematics — Electronics and Electrical Engineering2 — Mechanical

Engineering and Process Technology2 — Building Technology — Fire Research —

Consumer Product Technology — Field Methods.

THE INSTITUTE FOR COMPUTER SCIENCES AND TECHNOLOGY conducts

research and provides scientific and technical services to aid Federal agencies in the selection, acquisition, application, and use of computer technology to improve effectiveness and

economy in Government operations in accordance with Public Law 89-306 (40 U.S.C. 759), relevant Executive Orders, and other directives; carries out this mission by managing the Federal Information Processing Standards Program, developing Federal ADP standards

guidelines, and managing Federal participation in ADP voluntary standardization activities; provides scientific and technological advisory services and assistance to Federal agencies; and

provides the technical foundation for computer-related policies of the Federal Government.

The Institute consists of the following centers:

Programming Science and Technology — Computer Systems Engineering.

'Headquarters and Laboratories at Gaithersburg, MD, unless otherwise noted; mailing address Washington, DC 20234. -Some divisions within the center are located at Boulder, CO 80303.
u.

c

OF 8TAKDARUB

UJBBART

JUL 1 4 1980

National Bureau of Standards

Mass Calibration Computer Software

R. N. Varner

R. C. Raybold

Center for Applied Mathematics

National Engineering Laboratory

National Bureau of Standards

Washington, D.C. 20234

U.S. DEPARTMENT OF COMMERCE, Philip M. Klutznick, Secretary

Luther H. Hodges, Jr., Deputy Secretary

Jordan J. Baruch, Assistant Secretary for Productivity, Technology and Innovation

NATIONAL BUREAU OF STANDARDS, Ernest Ambler, Director

Issued July 1980
National Bureau of Standards Technical Note 1127

Nat. Bur. Stand. (U.S.), Tech. Note 1 127, 164 pages (July 1980) CODEN: NBTNAE

U.S. GOVERNMENT PRINTING OFFICE

WASHINGTON: 1980

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

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

Page

1.0 Introduction 1

2.0 Calculations 1

2.1 Dictionary of Symbols and Corresponding FORTRAN

Variable Names 19

3.0 Information For Users 23

3.1 Description of Input 23

Figure I - Starting Restraint Identification

Number Used at NBS 29

Figure II - Calibration Design Number Used at NBS . 29

3.2 Diagnostic and Error Messages 30

3.3 Description of Data Output Used for Process Control 33

4.0 Implementation Information 34

4.1 Description of Main Program and all Subprograms . . 35

4.1.01 MAIN Program 35

4.1.02 BLKDAT Subprogram 35

4.1.03 READ1 Subprogram 36

4.1.04 READIT Subprogram 36

4.1.05 ERROR Subprogram 37

4.1.06 PRINT1 Subprogram . 37

4.1.07 TEXT1 Subprogram 37

4.1.08 TEXT2 Subprogram 37

4.1.09 TEXT3 Subprogram 37

4.1.10 TEXT4 Subprogram 37

4.1.11 TEXT5 Subprogram 38

4.1.12 TEXT6 Subprogram 38

4.1.13 READ2 Subprogram 38

4.1.14 SPINV Subprogram 39

4.1.15 SAVMTX Subprogram 39

4.1.16 INVCHK Subprogram 39

4.1.17 PRINT2 Subprogram . . 39

4.1.18 CHKLN Subprogram 40

4.1.19 PGCONT Subprogram 40

4.1.20 HEADPG Subprogram 40

4.1.21 FINPRT Subprogram 41

4.1.22 TEXTS1 Subprogram 41

in
Page

4.1.23 TEXTS2 Subprogram 41

4.1.24 DPFD Subprogram 41

4.2 Labeled COMMON 42

4.3 Double Precision Variables 42

Figure III - Flow Chart of Program 43

Figure IV - Labeled COMMON Cross Reference Table . 44

4.4 Equivalenced Variables 45

4.5 Parameter Dependent Variables 45

4.6 Hardware and System Dependent Variables 48

4.7 Required Storage 49

Acknowledgments 51

References 52

Appendix A.l -- Sample Input 53

Appendix A. 2 -- Sample Printed Output 57

Appendix A. 3 -- Sample Process Control Output 94

Appendix B -- Listing of Computer Program 95

IV
National Bureau of Standards Mass Calibration

Computer Software

R. N. Varner

R. C. Raybold

This report describes the FORTRAN computer program used to generate

a comprehensive report covering the sequence of operations used to assign

mass values to weights submitted to the National Bureau of Standards for

calibration. The assignment of these values is accomplished by the

method of least squares analysis of the observation of differences

between test items and reference items having the same or nearly same density and nominal size. The calculations are defined and the various

weighing method options are given. To assist the user, a detailed

description of the input data, an input list of error messages, a listing

of a sample test case and a listing of the output resulting from the use

of the sample test case are given. To assist in the implementation of

the computer program, a flow chart, a description of each subprogram, a cross-reference of labeled COMMON, a list of DOUBLE PRECISION variables,

a list of EQUIVALENCED variables and other pertinent information is

given.

Key words: Calibration report; correction to mass measurements; error checking; FORTRAN program; least squares solution; mass

calibration; mass measurements.

1.0 Introduction

This report describes the FORTRAN computer program used to generate a

comprehensive report covering the sequence of operations used to assign

mass values to weights submitted to the Nationl Bureau of Standards for

calibration. The assignment of these values is accomplished by the least

squares analysis of the observation of differences between test items and

reference items having the same or nearly same density and nominal size.

The calculations are defined and the various weighing method options are

given. To assist the user, a detailed description of the input data, a

list of error messages, a listing of a sample test case and a listing of

the output resulting from the use of the sample test case are given. To

assist in the implementation of the computer software, a flow chart, a

description of each subprogram, a cross-reference of labeled COMMON, a

list of DOUBLE PRECISION variables, a list of EQUIVALENCED variables and

other pertinent information is given.

2.0 Calculations

This section describes in detail the calculations used by the

computer software to assign mass values to weights which have been

submitted for calibration. For a discussion of the philosphy of the procedures used, see references [1,2,6,8]. Section 2.1 lists the definition

of the symbols used and their corresponding FORTRAN variable names. The

use of || in this section denotes the absolute value of the enclosed

quantity. The use of [] denotes a matrix operation with the exception of

the mentioning of a reference. The use of ' denotes the transpose of a

vector or matrix. Most, but not all, of the calculations described in

this section are performed by the MAIN program.

1
The average temperature, humidity and pressure are determined from

values taken before and after each set of measurements. Because the

instruments used to measure these environmental conditions may change with

each weighing, the appropriate instrumental correction to the temperature,

humidity and pressure are given with each set of weighings as follows:

T = (T;l + CT1 + T2 + CT2 )/2

H - (Hi + CH1 + H2 + CH2 )/2

P = (Px + CP1 + P2 + CP2 )/2

All input weights (nominals) are converted to grams if they are in pounds.

Wj = Wjx 1*53.59237 for j = l,...,k

Accepted mass correction and the volume of the restraint are computed as

follows

If first series

CR

= [V't]

1

VR

= [V»B]

1

where Bj = ( J + J )(l + a

j

At ) for J = !»•••»k

and where At = T - TQ , the difference between observed average temperature

and nominal temperature.

If not first series

CR = Rc VR

= Vs (l + S

3 At)

2
Calculations for Buoyancy Corrections

The air density using the averaged environmental conditions is computed from the equation given by Bowman and Schoonover [3].

PA=

where

_ 0-464746 / _ 0.00378029<H)( S>)

^A

= density of air in mg/cm3

Tj^ = temperature of air in Kelvin

= temperature of air in degrees Celsius + 273.15

H = Relative Humidity in percent

(i.e. 20% = 20)

P = Barometric Pressure in mm of Mercury

e s = Saturation Vapor Pressure in mm of Mercury

= Exp(p)/(13.5951 x 9.80665)

p = -4.7406885 x Ln(TK)

-6.8982434 x 103 x TK

_1

+0.5938385 x 10 2

-0.5797662 x 10"2 x TR

+6.2223854 x 10"6 x TK

2

The above series expansion is based on an equation developed by

Wexler and Greenspan [9]. Using the above equation three values of air

density are computed:

p a = f(T,P,H)

p ab " f (Tl + CT1 , Pi + Cpl , HX + CH1 )

p aa " f(T2 + CT2 , P2 + CP2 , H2 + CH2 )
The air buoyancy correction is also applied to the sensitivity weight

in computing the mass/division factor:

s * = sw

" p a

Sv

(l + scAt >

Types of weighings

The following calculations depend upon the type of weighing used.

The program has provisions for the following six different types of

weighing methods. The values of the input parameters Nl and N2 are

designated, in parenthesis, for each method.

1. Single Substitution - one pan (Nl - 2, N2 1)

2. Single Substitution - two pan (Nl =2, N2 - 0)

3. Single Transposition - two pan (Nl - 0, N2 = 0)

4. Double Substitution - one pan (Nl - 3, N2 = 1)

5. Double Substitution - two pan (Nl - 3, N2 = 0)

6. Double Transposition - two pan (Nl 1, N2 = 0)

The weighing method used depends upon the type of balances and

weights available, the requirements of the job at hand and/or the

preference of the operator performing the calibrations. In all types of

weighing, the observed difference, A-B, where A denotes the unknown weight

and B denotes the standard or known weight, and the observed sensitivity,

denoted by S, are computed in scale divisions. The drift effect and the

left -right effect may or may not be calculated depending upon the type of

weighing being used. The following descriptions of each weighing method

explain the pertinent calculations.
Single Substitution - one pan balance

Two or three readings are made. The sensitivity weight is not always

measured.

X - A

2 = B

03 = B+S

(A-B) -

1 -2

S - -

2 + 3 if 3 ^

S = 0.0 if 3 =

There is no drift or left-right effect computed.

Single Substitution - two pan balance

There are six or nine readings made for each set of A and B weights.

The sensitivity weight is not always measured.

3 readings are taken as the balance

is approaching a stable condition.

°1 - A

o 2 = A

03 = A

04 = B

05 - B

06 - B

0? = B+S

08 = B+S

9 = B+S

3 readings are taken as the balance

is approaching a stable condition.

3 readings are taken as the balance is

approaching a stable condition. These 3

readings are sometimes omitted.

(A-B) =

X + 2x02 +

3 0^ + 2x05

+

6
s = + 2x0 +0 + 2x0 +

7 8 9-4 56 if 0y, O3 and Og are given,

4 4

S = 0.0 if O7, O3 and 0g are not included. There is no drift of

left-right effect computed.

Single Transposition - two pan balance

There are six or nine readings made for each set of A and B weights.

If a sensitivity reading is not taken zeros must be used as input to the

program.

0j \ With A on one pan and B on the opposite pan,

0-

0-

three readings are taken as the balance

approaches a stable condition.

04 \ Weights A and B are interchanged, three readings

05 I are taken as the balance approaches a stable

0^ ) condition.

07

«8

o 9

The sensitivity weight is added to either pan and

three readings are taken as the balance approaches a

stable condition. These readings may be omitted.

/0 + 2x0 + + 2x0 + N (AlB) - JL( J

2 3 ,

4 56

2 \ 4 4 /

S = + 2x0+0 0+2x0+0

7 8 9 _ 4 5 6

4 4

S = 0.0 if 7

, O3 and O9 are not given

if O7, 0g and O9 are given

LR = /0 + 2x0 + 0„ + 2x0 + • 1/1 2 3 +

4 - 5 6
There is no drift factor computed.

Double Substitution - one pan balance with drift

Four readings are made for each set of A and B weights where:

X = A

2 = B

03 = B+S

04 = A+S

The least square solutions for (A-B), S, A (drift) are:

- - +0

(A-B) =

X 2 3

j

- 3x0 + 3x0 -

: 1 2 3 4

^ ~ —

-012+0 -0 +0

3 4

A = —___________^

2

There is no left-right effect computed.

The value A is based on a U change in scale readings between each

reading.

Double Substitution - two pan balance with drift

A total of 12 readings are made for each set of A and B weights

where

:

0l

Three readings are taken of weight A as the balance

approaches a stable condition.

3

"
4

0,

Three readings are taken of weight B as balance

approaches a stable condition.

0?

°9

Three readings are taken of weight B+S as

balance approaches a stable condition.

OlO

'11

12

Three readings are taken of weight A+S as

balance approaches a stable condition.

(A-B) 4-0+2x0+0 2340+2x0+0 5670+2x0+0 89

+2x0 +0

10

1 + \

11 12

j

S = _

2

+2x0 +0

1 2 3

3(0 +2x0 + ) 3(0 +2x0 + ) 4 5 6+7 89

0+2x0 +0

10 11 12

A = (0-

0+2x0+0 234

+

0+2x0+0 567 . - _

0+2x0+0 89

+2x0 +0

10

I + \

11 12 \

The value A is based on a 1A change in scale readings between each

reading.

8
Double Transposition - two pan balance with drift

A total of twelve readings are made for each set of A and B weights

where

:

Oj \ With A on one pan and B on the opposite pan,

02 I three readings are taken as the balance approaches

03 ] a stable condition.

04 \ With A and B interchanged, three readings are

05 I taken as the balance approaches a stable

Og

J condition.

O7 \ With the sensitivity weight added to either A or B,

Og I three readings are taken as the balance approaches

O9 1 a stable condition.

0^o\ With the sensitivity weight added to the opposite pan

O^i J from the position of the last 3 readings, 3 readings

0}2 ) are taken as the balance approaches a stable condition.

(A-B) = 4. ,0+2x0+0 0+2x0+0 0+2x0+0 1/1 234 567 89

s-i

2

4 \ 4 4 4

+2x0 +0

10 11 12

+2x0 +0 3(0 +2x0 + ) 3(0 +2x0 + ) 1 234 5 6 7 89

+2x0 +0

10 11 12
/ + 2x0 + 0+2x0+0 0+2x0+0

A " —1[_1I 234 - +

567 - - —_______ 89

2 \ 4 4 4

+2x0 + \

10 11 12

)

/3(0 + 2x0 + ) 0+2x0+0 0+2x0+0

i.» - *

( ' 2 3

+

4

, 5 6

+

7 8 9

4\ 4 5 5

+2x0 +0

10 11 12

The value A is based on a 1A change in scale readings between each

reading.

Preparation of data for least squares analysis

The design matrix is used to compute the load L^ for each observation

k

l X -I Li = z w4 for i = i***** 11 j=l 2

3

and the maximum load

L = max [L]

max

The values (A-B), S and A are converted from scale divisions to mass

units. The following calculations apply to all types of weighings. First

the average of the observed sensitivity in scale divisions over all sets

of observations which have a constant load is computed.

A A a. SUM = I S^ for S± 4 and until L^ changes its value

A A Si = s*/si

10
b. D = SUM/j

where j = number of non zero values in step a.

c. Smu

= |S*/D|

A. (A-B) S*

d. Y = D

A S*

e. A _

mu D

f. Change the sign of Smu and Y if input parameter (N4) indicates a

reversed scale.

g. Flag values of

(A-B)

which are > .25

D/j

where (A-B) is the observed deflection and D/J is the sensitivity

deflection.

h. Steps a. - g. are repeated for all observations.

Next, the restraint values for the series is computed. If it is the first

series the following are computed:

a. Accepted Correction for restraint

Rc = [V'x]

1

b. Restraint corrected for environmental condition

X* = [V] lT-p (B)]

1 a

where B is defined on page 2.

11
If not first series, the following are computed:

Pj - (Wj + .001 Rc )/Vs for j=l,...,k and Vx ¥

J

ctj S3 for j=l,...,k and V^ ¥

J

X* = Rc = p aVs (l + S3 At)

In general, let E(Y) denote the vector of expected values, let X denote

the matrix of coefficients (the design matrix) and let 3 denote the column

vector of parameters to be estimated. Then

E(Y) = [X][3].

Using the matrix of the coefficients from the equations of the

expected values, a matrix representing the design and a vector, Y, for the

observed values are set up.

The least squares estimates of the parameters are given by the

solution of normal equations.

[X'X][g] = [X'][Y]

where X'X is a kxk matrix. To bring the equations to full rank the matrix

of normal equations is augmented by a restraint vector denoted by Vj.

Thus:

[Z] = [X'X] [V ] [X 1 Y]

1

[V]

1 X*

X = 1 if [V X

] -

X = if [V^ ¥ 0-1

For more details on the structure of the above matrix see references

[7,10,11]. The inverse of the above matrix [Z] is calculated. Two checks

are made to determine the success or failure of the inversion.

12
1. A check is made for singularity.

2. The maximum value of [I-ZZ""1] should be <.01 a w

where

I is the identity matrix

a w

is the accepted within standard deviation of the process

Z-1 is the inverse of Z.

If either of these tests fail an error message is printed and no

further calculations will be made. Control will be sent to the subprogram

PRINT2 and no final report will be printed.

If the matrix inversion is successful

-1

[Z] [C] . [g] where: C is the kxk matrix containing the elements of the inverse of

matrix of normal equations and 3

contains the parameter estimates

The deviations (observed-predicted) are computed. In matrix notation

[6] = [Y] - [X] [B]

with dimensions nxl, nxl, nxk and k x 1.

The corrections using the estimated parameter values corrected by the

air buoyancy correction are computed. An iterative process is used to

minimize the error of the estimated values. The calculations are

performed using double precision arithmetic.

W

j Clj = 6j + p a (—)(1 + oijAt) for j = l,...,k

P

j

/Wj +

.001 ClA

a. C2. = $. + p I p

. J (1 + a,At) for j = l,...,k

b. If all | C2j - CI.: I < .01 aw

continue calculations.

13
If the above condition is not true set

CIj = C2j for j = 1 , . . . ,k

and repeat steps a. and b. above for a maximum of 10 iterations. A

message is printed regarding the number of iterations required.

Determine value of restraint in terms of nominal values.

W| = [VjW]

Compute volume of unknowns in terms of the estimated correction produced

by the above iteration.

/Wi + .001 C2j\

Vj = y* -£ .) (1 + a At) for J = l,...,k

Estimates of Uncertainty

Initially, the uncertainty for the starting restraint is entered in

two parts: zero for the limit to possible effect of random error, and a

value, Es

, for the uncertainty of the starting standards. All subsequent

uncertainty values' are based on two components - one due to the

uncertainties in starting standards and the other due to the uncertainties

from the balance and design used.

The uncertainty in an individual weight consists of the following two

components:

Systematic Error

E < (H±\ E for j = l,...,k

J ~ ITt I s -ft)

Random Error

where

V

R

j =4/(3(V)2 C

jj + /2i1 (3a)2 + ^ 3aT)

2 for J = l,...,k *@

aw

is the accepted within standard deviation of the process

Cjj are the diagonal elements of the inverse of the matrix

of normal equations

14
3a is random error affecting the restraint*

Of is the accepted between variance of the process

The total uncertainty is the sum of the systematic error and the

random error.

U, = E • + R. for j = 1,... ,k

For the outgoing restraint the corresponding values are

Systematic Error

E = [V' E]

o J Random Error

/ 2 /[V'W]\2 2 2 r =J(3a) [V'CV]+/_J_ \ (3a) + (3a)

If certain weights are to be used in combination, sets of linear

combinations, V5, may be specified. If this is the case the following

calculations are made:

Correction to nominals in linear combination

C

5 = [V C2]

Systematic error for linear combination

E £ = Mv^Ie]

Random error for linear combinations

;

/[vi w]\ 2 R P

. = J(3aw

) [V;. C V ] + [_1__ j (3 a) +(3^)

Total uncertainty for linear combination

U

£ = E£ + R*

* on the initial restraint, the random error is zero.

15
Precision control is determined by computing the standard deviation

V n-k+1 k

and comparing this with the accepted standard deviation, ° w , by computing

the F ratio

F = 2, 2

* s /a w

and comparing it with the critical value for the F distribution. The

critical value for the F distribution is given by

t- y- ^r) F = + 2 - 32635 V^r/

for (n-k+1) > 2

F - 6.64 for (n-k+1) = 1

If F > Ft

, a message is printed, on the last page of printout for a

series, stating that the process is not in control.

The observed value for the check standard is given by

C = [V 1 C2]

c

2

The nominal value of the check standard is given by

[V W]

2

The accepted correction value for the check standard is given by

[V T ] 2

The difference between the observed and the accepted value is divided

by the standard deviation of the check standard to produce the t-test

16
value

T =

[v; c2] - [vj T] 2 2

where

'^"^(t)

This value is compared with Tt where

a + (aT )

T

t =

[VJ E]

If | T — T

t

| > 3 a message is printed on the last page of printout for

a series stating that the check standard is not in control.

Compute values for the final summary of the report as requested by

the input vector V4.

Apparent mass versus brass in milligrams

(W + .001 C2)

(i -

• 0012

^

M = a .0012 (1 + .000054 x 20)

- W I 1000

1 - 8.4

Mass of weight in grams

MT

= W + .001 C2

Total uncertainty in grams

Volume at 20°C

U = .001 U

W + .001 C2

f = p

17
Coefficient of expansion

Cf = a

Apparent mass versus a standard having a density if 8,0 grams/CM3 at

,-20'V: '(W + .001 C2) < l '

' 0012 -> CR

f =

[ £ - W I 1000

, _ .001?

8.0

Set up values to be saved for next series if no errors were made and if

another series is requested.

Systematic Error

where

E

s = E

o Random Error

3a = Ro

S

3 =

' V

3

s

2

]

[V- S

l'

S

l = w + .001 C2

P

S

2 = •(!

J + .001 C2

o

Compute restraint for the next series,

R = [VI C2]

c J

Compute volume of restraint for the next series.

W. + .001 C2.

V_ - [VJ]| J 1) for j = l,...,k

18
2.1 Dictionary of Symbols and Corresponding FORTRAN Variable Names

The first column contains the symbol used by this documentation. The

second column denotes input (I), output (0) or computed value (C). The

third column gives the variable name used by computer program. The fourth

column gives a brief description of the parameter. The symbols are listed

in the order that they are used in the program.

FORTRAN

Symbol Name Description

name or organization

address of organization

address of organization

description of weights being calibrated

serial number of set of weights

date of report

test folder number (used for NBS records

of calibrations)

3© I RANERR 3 standard deviation limit for random

error affecting the restraint

EsI SYSERR Systematic error in the restraint

TQI TNOM nominal temperature

Tj I TIP temperature reading in Celsius at beginning of measurements

T2 I T2P temperature reading in Celsius at end of

measurements

Pj 1 PIP pressure reading in mm of Mercury at

beginning of measurements

P2 I P2P pressure reading in mm of Mercury at end

of measurements

Hj I HIP humidity reading in percent at beginning

of measurements

19

FORTRAN

Name

I/O Bl

I/O B2

I/O B3

I/O B4

1/0 B5

I/O B6

I/O B7

I RANERR

I SYSERR

I TNOM

I TIP
H2 I H2P humidity readings in percent at end of

measurements

Cpi I CP1 correction to "before" pressure reading

in mm of Mercury

Cp2 I CP2 correction to "after" pressure readings

in mm of Mercury

Cfi I CT1 correction to "before temperature reading

in Celsius

correction to "after" pressure reading in

Celsius

correction to "before" humidity reading

in percent

correction to "after" humidity reading in

percent

average corrected temperature in Celsius

average corrected pressure in mm of

Mercury

average corrected humidity in percent

number of observations < 50

number of unknowns < 15

accepted within standard deviation of the

process in mg.

Sw

I SWT true mass value in mg. of sensitivity

weight

CT2 I CT2

CH1 I CHI

CH2 I CH2

T C TBAR

P C PBAR

H c HBAR

n I NOBS

k I NUNKN

a I STDEBA

Sv

I VSWT volume of sensitivity weight in cm3 at

20°C

S

c

I CEXSWT coefficient of expension of sensitivity

weight

o^ I VARBAL accepted between standard deviation of

the process in mg.

W I ANOM nominal value of weight in grams or pounds

p I/C DENSTY density of weights in g/cm3 at 20°C

20
a I/C COEFEX

T I ACCVAL

Vl I ARSTIN

Vo I ACKSTD

v3

X

V5

At

Vr

B

'ab

aa

(A-B)

IRSTOU

I INPRNT

I DESMAT

I ALCOM

I OBSERV

c TDELT

c CORR

c VOLRES

c TEMP

c TKEL

c RHOA

RHOAB

RHOAA

L C ILOAD

nnax C ALOADP

S* C STAR

Dl

DS1

coefficient of expansion of weight

accepted correction of weight in mg.

vector identifying items in the restraint

vector identifying items in the check

standard

vector identifying items to be used as restraint in the next series

print vector

design matrix

linear combination vector

observations

difference between observed temperature

and nominal temperature

mass correction for restraint in mg.

volume of weights in restraint in cm^

volume of weights

temperature in degrees Kelvin

air density for average environment

conditions

air density for "before" environment

conditions

air density for "after" environment

conditions

vector of loads

maximum load

the mass of the sensitivity weight with

air buoyancy correction applied

predicted difference A-B in scale

divisions where A is the unknown weight

and B the standard

predicted sensitivity in scale divisions

21
A

LR

D

Smu

CI

DRIFT

ZERO

DBAR

SWTPRT

Amu c DRIFT

X* c XREST

Rc c TMSUM

Z c Y

c c Y

DELTA

CORRP

C2 C OBSCOR

6 C Y

WR

c WR

V c COMVOP

E c SERROR

R c TRISIG

U c TOTUN

vs c SOLSUM

C

l c CORR5A

Eo c SER5A

predicted drift in scale divisions

predicted left-right effect in scale

division

average of observed sensitivities of load

of equal size

average sensitivity in mass units (mg/

division)

observed (A-B) in mass units where A is

the unknown weight and B the standard

drift in mass units

accepted mass correction for retraint in

mg.

computed restraint correction in mg. for

the m+1 series

matrix of normal equations

diagonal elements of the inverse of the

matrix of normal equations

deviation between observed and predicted

weight values

estimated correction to the nominal in

grams

observed correction after iteration

estimated values of unknown from Z""*

nominal weight of restraint

computed volume of unknown using

estimated corrections

systematic error for each weight

random error for each weight

total uncertainty of each weight*

computed value of volume for m+1 series

corrections for linear combination

systematic error for linear combination

22
u

Eo Ro

s

F

Ft

C„

M,

Mn

CRf

c SIG35A

c UNC5A

c SERSUM

c T3SIG

c OBSTD

c FRATIO

c PRETST

c OBCOCK

c OBSCK

c TVAL

c APPMAS

TRMASS

UNCERT

c VOLPRT

c COEPRT

c CORRB

SUMP

random error for linear combination

total uncertainty for linear combinations

systematic error for outgoing restraint

random error for outgoing restraint

observed standard deviation of the series

f - test ratio

critical value for the F distribution

observed check standard

standard deviation of observed check

standard

t - test value

apparent mass verses brass for final

output

mass of weight in grams or pounds for

final output

total uncertainty in grams or pounds for

final output

volume at 20°C for final output

coefficient of expansion for final output

apparent mass verses density 8.0 for

final output

value used to compute volume of restraint

for m+1 series

3.0 Information For Users

This section contains information pertinent to the user of the

software.

3.1 Description of Input

The input requirements of the computer program are defined in this

23
section. The data entry column defines each unique data item, not each

input record. The data, with a few designated exceptions where a format

is given, is recorded in a free field format. The subprogram name and the

FORTRAN variable name for each data entry is given along with a brief

description of the input parameter. See Appendix A. 1 for a listing of

sample data.

DATA

ENTRY FORMAT SUBPROGRAM

in* 72A1 READ1

#2* 72A1 READ1

#3* 72A1 READ1

#4* 72A1 READ1

#5* 72A1 READ1

#6* 72A1 READ1

#7** 72A1 READ1

#8 Variable READ1

VARIABLE NAMES AND DESCRIPTION

Bl - name of company submitting test weight

B2 - address (street name and number)

B3 - address (city, state and zip code)

B4 - description of weights to be calibrated

B5 - serial number of set of weights

B6 - date of report

B7 - test folder number (used for NBS

records of calibrations)

RANERR, SYSERR, TNOM, IBREST

RANERR - 3 standard deviation limit for

random error in the starting restraint

SYSERR - limit to possible systematic error

in the starting restraint

TNOM - nominal temperature at which apparent

mass and volume are reported in degrees

Celsius

***IBREST - starting restraint identification

number (2 digits)

* Data entries #1-17 are searched for the first non-blank character at

which time all remaining characters are saved for printing on the

document, i.e. leading blanks are eliminated.

** On output, only the first 18 non-blank characters are printed.

*** See Figure I. 24
DATA

ENTRY FORMAT SUBPROGRAM VARIABLES NAMES AND DESCRIPTION (continued)

#9* Variable READ2

#10 Variable READ2

#11 Variable READ2

date of

measurement

Nl, N2, N3, N4 (describe weighing method)

N1=0 single transposition

Nl=l double transposition

Nl=2 single transposition

Nl=3 double substitution

N2=0 two pan balance

N2=l one pan balance

N3=0 metric units (grams or milligrams)

N3=l English units (pounds)

N4=0 regular balance (scale left to right)

N4=l backwards balance (scale right to left)

(IDATEi, i=l,2,3), IOP, IBAL, ICKUSD

IDATEj - month (2 digits)

IDATE2 ~ day (2 digits)

IDATE3 - year (2 digits)

IOP - operator number (2 digits)

IBAL - balance number (3 digits)

ICKUSD - check standard identification (3

digits)

TIP, T2P, PIP, P2P, HIP, H2P, CP1, CP2, CT1,

CT2, CHI, CH2

TIP, T2P - observed temperature in degrees

Celsius before and after

measurements are taken

PIP, P2P - observed pressure in mm of Mercury

before and after measurements are

•taken

HIP, H2P - observed humidity in percent before

and after measurements are taken

* Begin reading at this point for each new series.

25
DATA

ENTRY FORMAT SUBPROGRAM VARIABLE NAMES AND DESCRIPTION (Continued)

CP1, CP2 - pressure corrections in mm of

Mercury for observed pressure before and

after measurements are taken

CT1, CP2 - temperature corrections in degrees

Celsius for observed temperature before and

after measurements are taken

CHI, CH2 - humidity corrections in percent for

observed humidity before and after measurements are taken

#12 Variable READ2

#13 Variable READ2

NOBS, NUNKN, ICALDS, L INVAR

NOBS - number of observations <^ 50

NUNKN - number of unknowns <^ 15

*ICALDS - calibration design number (3 digits)

LINVAR - number of linear combinations _< 19

STDEBA, SWT, VSWT, CEXSWT, VARBAL

STDEBA - accepted within standard deviation of

the process

SWT - mass mass value in mg. of the sensitivity weight

VSWT - volume of sensitivity weight in cmJ

at 20 degrees Celsius

CEXSWT - coefficient of expansion of sensitivity weight

VARBAL - accepted between standard deviation

of the process in mg.

See Figure II.

26
DATA

ENTRY FORMAT SUBPROGRAM VARIABLE NAMES AND DESCRIPTION (Continued)

#14* Variable READ2

(Exceptionthe first 15

characters

are for the

identification)

AIDCSTjfi , j-1,

COEFEX^ ACCVA^, i=l,

,5, ANOM-p DENSTY±

,

, NUNKN

#15 Variable READ2

AIDCSTj >;L , j-1,... ,5 -weight identification in

positions 1-15 of the input record

ANOM^ - nominal weight in grams or pounds

DENSTYj^ - density of weight in g/cm3 at 20°C

COEFEX^ - coefficient of expansion of weight

**ACCVAL^ - accepted correction to weight in mg.

ARSTINif i=l,...,NUNKN

Vector identifying items in the restraint.

Entries may be or 1 only.

#16 Variable READ2 ACKSTD^ i=l NUNKN

#17 Variable READ2

Vector identifying items in the check,

standard. Entries may be 0, -1, or 1.

IRST0Uit i=l,..., NUNKN

Vector identifying items in restraint for the

m+1 series. This vector has entries of or 1.

If there is not another series, entries are all

zero.

IPRNLp i=l,..., NUNKN

Vector identifying items to be reported in the

summary. A value of 1 means report and means

omit from report.

#19***Variable READ2 ****DESMAT:j)i , j-1, . .

.

, NUNKN, i=l,...,N0BS

#18 Variable READ2

The design matrix consists of entries of 0, 1, or -1 for the series. Each data item contains

NUNKN values. Repeat NOBS times.

* Repeat this data entry for each unknown.

** This value is always given in mg. , even if the nominal is in pounds. *** Repeat this data entry for each observation.

**** The design matrix defines the method which is being used to group and

intercompare the unknown weights and the check standard (the known weight).

27
DATA

ENTRY FORMAT SUBPROGRAM VARIABLE NAMES AND DESCRIPTION (Continued)

#20 Variable READ2 ALCOM

i 4, j=l,..., NUNKN; 1=1, .. . ,LINVAR. If

LINVAR*#

Enter LINVAR vectors containing NUNKN values

per vector which describe the required linear

combinations. The values in each vector

consists 0, 1 or -1.

#21 Variable READ2 0BSERVk

k-1, ... ,kk where kk < 600

Provide readings in scale divisions

corresponding to the design and type of

weighing as indicated by data entries #9 and

#19. The following combinations of Nl and N2

determine the number of entries per record for

each observation. If for any reason a reading

is not taken, a zero must be used to so indicate.

a. Nl=2 and N2=l Enter 0^,02*03; 2 or 3 values per record

b. Nl=2 and N2=0 Enter Oj^^^^jO^Oy.Og.Og; 6 or 9 values per

record

c. N1=0 and N2=0 Enter 0^02, 03,04,05,05,07,03,09; 6 or 9 values per

record

d. Nl=3 and N2=l Enter 0^,02 > 03,04; 4 values per record

e. Nl=3 and N2=0 Enter 02,02,03,04,05,0^; 6 values per record (2 records)

7 ,0 8 ,0 9 ,0 1 o,0 11 ,0 1 2

f. Nl=l and N2=0 Enter same as e. above.

Any other combinations of Nl and N2 assumes f. as defined above.

#22 Variable READ2 A value (-20000) terminates the reading of the

observations. It is the responsibility of the

user to be sure that the number of observations

corresponds to the number required by the

specified schedule given in data entry #19.

If the vector described in data entry #17 is not equal to zero, continue

input of data repeating from data entry #9. If the vector is zero a STOP

terminates the input of data. This flag must appear in position 1 through

4 of the input record.

28
Figure I. Starting Restraint Identification Used at NBS

Given below is an example of frequently used restraint identifications used

at NBS. The symbol g denotes grams and kg kilograms.

Restraint Identification Weights Used in the Restraint

1 N kgj + N kg 2

2 NB1 lOOg + AA lOOg

4 NB1 lg

Figure II. Calibration Design Number Used at NBS

Given below is an example of frequently used calibration identifications

with the design, the number of weight and the required number of

observations for each.

Design Identification Design No. of weights No. of observations

1 1,1,1 3 3

16 5,2,2,1,1,1 6 8

41 1,1,1,1 4 6

51 1,1,1,1,1 5 10

53 5,3,2,1,1 5 8

62 5,3,2,1,1,1 6 11

29
3.2 Diagnostic and Error Messages

This section lists all the possible error messages and other

informative messages concerning the statistical tests made by the program.

The subprogram which contains the message and an explanation of the

message is given. The message is given in quotes and an indication

(i.e. ) is given if some computed quantity is also printed.

A. "NEG SQRT ARG =

"

This message is printed by the MAIN program if the value under the

radical is negative in the computation of the random error for a weight.

If the value under the radical is negative it is assumed to be zero.

B. The following six messages appear in the subprogram ERROR. They are

error messages resulting from the execution of subprogram READIT and

indicate that an input value is too large or too small for the capacity of

the computer being used.

(1) ••***** DIAGNOTIC ***** THE NUMBER OF SIGNIFICANT DIGITS IN A

NUMBER HAS REACHED . THIS MAY PRODUCE OVERFLOW OR UNDERFLOW."

(2) "***** ERROR ***** THE NUMBER OF SIGNIFICANT DIGITS

IN A NUMBER HAS REACHED . THIS WILL PRODUCE OVERFLOW OR

UNDERFLOW."

(3) ••***** ERROR ***** NUMBER IS TOO SMALL IN ABSOLUTE

VALUE AND WILL PRODUCE UNDERFLOW."

(4) ••***** DIAGNOSTIC ***** NUMBER IS SMALL IN ABSOLUTE VALUE AND MAY

PRODUCE UNDERFLOW."

(5) ••***** DIAGNOSTIC ***** NUMBER IS LARGE IN ABSOLUTE VALUE AND MAY

PRODUCE OVERFLOW."

30
(6) "***** ERROR ***** NUMBER IS TOO LARGE IN ABSOLUTE VALUE AND

WILL PRODUCE OVERFLOW."

C. The following error message which occurs in the subprogram ERROR is

printed after each of the six messages stated above. It prints out the

data item containing the invalid data value.

"THIS OCCURRED IN CONNECTION WITH READING THE DATA ON THE FOLLOWING

CARD."

D. The subprogram READIT has an option of specifying an alphanumeric

value at the beginning of a data item. If this option does not specify

the proper number of characters in the alphanumeric value the following

message is printed.

••***** ERROR ***** THE VALUE OF 'KOL' IS AND THIS VALUE IS

INVALID. KOL MUST BE GREATER THAN AND MUST NOT EXCEED 80."

E. If there are problems in the matrix inversion procedure,

one of the following two messages is printed:

(1) "MATRIX IS SINGULAR"

(2) "ERROR IN INVERSE".

If the first message occurs, it indicates that there is some problem with

the input data. If the second message is printed it means that the

condition

max [I-AA-1

] - .01o"w

was not met. In addition to the message; the original matrix, the

inverted matrix and the [I-AA

-

*] matrix is printed. Both of these

messages are printed by the subprogram PRINT2. After the printing of

either of the messages the execution of the program is aborted.

31
F. "STOPPED AT 10 ITERATIONS"

This message is printed by subprogram PRINT2 and indicates that the

iterative process used to compute the observed correction (see page 14 of

calculations) was terminated at 10 iterations.

G. "INPUT ERROR IN RESTRAINT. CHECK RESTRAINT VECTOR, NOMINAL VALUE,

DENSITY AND COEFFICIENT OF EXPANSION OF RESTRAINT MG COMPUTED

CORRECTION OF RESTRAINT MG"

This diagnostic message is printed by subprogram PRINT2 when the

following test fails.

|[V]_'t] (accepted restraint) -[V^' C2] (computed restraint)! < • 1°'^

H. One of the following three diagnostic messages concerning the interpretation of the t-test is printed by subprogram PRINT2. See page 17 for

calculation of the t-test.

(1) "ABSOLUTE VALUE OF T IS LESS THAN 3. THEREFORE CHECK STANDARD IS

IN CONTROL."

I X | < 3.0

(2) "ALTHOUGH THE ABSOLUTE VALUE OF T IS GREATER THAN OR EQUAL TO 3,

THE T VALUE CORRECTED FOR SYSTEMATIC ERROR IS LESS THAN 3, THEREFORE

THE CHECK STANDARD IS IN CONTROL."

|T| > 3 AND (T-Tt

) < 3.0

(3) "ALTHOUGH THE ABSOLUTE VALUE OF T IS GREATER THAN OR EQUAL TO 3,

THE DIFFERENCE IS STILL SIGNIFICANT AFTER ALLOWANCE FOR SYSTEMATIC

ERROR, THEREFORE THE CHECK STANDARD IS NOT IN CONTROL."

|T| > 3 AND (T-T

t

) > 3.0

32
I. One of the following two diagnostic messages concerning the

interpretation of the F-test is printed by subprogram PRINT2. The critical

value is printed in the space denoted by —. See page 16 for the

calculations of the F ratio.

(1) "F RATIO IS LESS THAN (CRITICAL VALUE FOR PROBABILITY - .01).

THEREFORE THE STANDARD DEVIATION IS IN CONTROL."

F < Ft

(2) "F RATIO IS GREATER THAN (CRITICAL VALUE FOR PROBABILITY - .01).

THEREFORE THE STANDARD DEVIATION IS NOT IN CONTROL."

F > Ft

3.3 Description of Data Output Used for Process Control

If neither the t-test or F-test fails, selected values are saved on a

unformatted temporary file during the execution of the program. The

temporary file is defined by the variable ITMP in the BLKDAT subprogram.

See section 4.6. The subprogram FINPRT reads the temporary file, ITMP, and

generates a formatted file (IP as defined by subprogram BLKDAT) of the saved

parameters.

The table below defines the parameters with their corresponding format.

All parameters are contained in an 80 character record. Appendix A. 3 lists

the process parameters saved from the sample run given in Appendix A. 2.

33
Variable

IDATEi IDATE2

, IDATE3

IBREST

ICKUSD

OBCOCK

IBAL

OBSTD

NDGFR

ICALDS

TBAR

DIFT

PBAR

DIFP

HBAR

DIFH

RHOA

IOP

Description

date

restraint identification

check standard identification

observed check standard value

balance identification

observed standard deviation

degrees of freedom

calibration identification

average corrected temperature

difference between "before" and "after"

temperature reading

average corrected pressure

difference between "before" and "after"

pressure reading

average corrected humidity

difference between "before" and "after"

humidity reading

air density as a function of TBAR, PBAR

and HBAR

operator

denotes standard

Format

312

12

13

F11.5

13

F9.5

12

13

F5.2

F5.2

F6.2

F5.2

F7.4

F4.1

F6.4

12

1HS

4.0 Implementation Information

This section describes the information needed for implementing the

FORTRAN computer software. Information is given concerning the flow and

function of the MAIN program and all subprograms. In addition, a cross

reference table of labeled COMMON; the use of the DATA, DOUBLE-PRECISION

34
and EQUIVALENCE statements; the function of switch variables in the various subprogram and other information which may be bothersome on implementation are given. Figure III on page 43 gives a flow chart of the program.

Figure IV on page 44 gives a cross reference table of labeled COMMON.

4.1 Description of MAIN program and all Subprograms

The software consists of one main program and 23 subprograms. This

section describes briefly the function of each. The subprogram

descriptions are listed in the order in which they are called during the

execution of the program.

4.1.01 MAIN Program

This program controls the flow of the input, calculations and output.

All the calculations described in Section 2.0 are performed in this

program with the exception of a few computations which are performed in

subprograms PRINT2 and READ2.

4.1.02 BLKDAT Subprogram

This subprogram is a BLOCK DATA subprogram and contains values which

may need to be changed to comply with the demands of a specific computer

or computer operating system. The DATA statements define the following

values:

a. Machine zero 1 x 10"8 (UNIVAC 1108)

b. Characters: 0-9, blank, - , . , * , + , comma, D and E

c. Input unit number, output unit numbers and number of lines per

page

d. Flag STOP to detect end of data and blank

e. The number 10 which controls the number of iterations in the MAIN

program. See page 13.

35
4.1.03 READ1 Subprogram

This subprogram reads data that is common to all series. Eight data

entries are read consisting of administrative data, statistical control

parameters, nominal temperature and the starting restraint identification. The first seven data entries consisting of administrative

information, company name and address and description of weights being

tested, are read with a 72A1 format specification. The information may

occur anywhere within the 72 position limit. Leading blanks are

eliminated before the information is printed on the report. The eighth

data entry gives the values for random error, systematic error, nominal

temperature and the starting restraint identification. The values are

read by a subprogram, READIT, which permits input in a variable format.

Four values are assumed to be given and no check is made for missing

values.

4.1.04 READIT Subprogram

This subprogram provides for input in variable format and is used by

subprograms READ1 and READ2. The input data is restricted to first 80

positions of the input record. Alphanumeric data may be given in the

first n, where n is specified, positions. These characters are saved for

output. Numberic values are separated by one or more blanks, a comma,

any letter except D or E, or any other permitted character except a plus

sign (+), a minus sign (-) or a decimal (.). Numeric values may appear

in integer form or floating point form using a decimal point or an

exponent in which case the letter D or E must precede the exponent.

Values with a D preceding the exponent are accepted only as single

precision values, not as double precision values.

36
4.1.05 ERROR Subprogram

This subprogram is used in conjunction with subprogram READIT

described in section 4.1.04. It contains the output statements and

corresponding formats for the printing of errors associated with the

subprogram READIT 1 s interpretation of meaningless input data.

4.1.06 PRINT1 Subprogram

This subprogram prints the title page and pages 1, 2, 3, 4, 5 and 6

of the report generated for each calibration. This information is

pertinent only to the NBS calibration program.

4.1.07 TEXT1 Subprogram

This subprogram contains the output statements and their corresponding

formats for the printing of page 1 of the calibration report.

4.1.08 TEXT2 Subprogram

This subprogram contains the output statements and their corresponding

format for the printing of page 2 of the calibration report.

4.1.09 TEXT3 Subprogram

This subprogram contains the output statements and their corresponding

formats for the printing of page 3 of the calibration report.

4.1.10 TEXT4 Subprogram

This subprogram contains the output statement and their corresponding

formats for the printing of page 4 of the calibration report.

37
4.1.11 TEXT5 Subprogram

This subprogram contains the output statements and their corresponding

formats for the printing of page 5 of the calibration report.

4.1.12 TEXT6 Subprogram

This subprogram contains the output statements and their corresponding

formats for the printing of page 6 of the calibration report.

4.1.13 READ2 Subprogram

This subprogram uses the subprogram READIT, described in section

4.1.04, to read the following information which is needed for each series.

a. Description of the weighing method

b. Administrative data—date, operator, balance identification and

check standard identification

c. Environmental conditions—temperature, pressure, humidity

d. Number of observations, number of unknowns, design identification

and number of linear combinations

e. Standard deviation of balance, mass of sensitivity weight, volume

of sensitivity weight, coefficient of expansion of sensitivity

weight, accepted between standard deviation of the process

f. Information about test item: weight, density, coefficient of

expansion and accepted correction

g. Restraint vector

h. Check standard vector

i. Restraint vector for next series

j. Report vector

k. Design matrix

1. Linear combination vector(s)

38
m. Observations —Reading of observations is terminated by a -20000

entry.

Information given in pounds is converted to grams. A control

parameter designated by the weighing method parameter is defined. The

average values for the corrected temperature, pressure and humidity are

computed.

A. 1.14 SPINV Subprogram

This subprogram inverts the augmented matrix of normal equations. A

check is made for singularity. A call is made to subprogram INVCHK for

the purpose of checking the success or failure of the inversion.

4.1.15 SAVMTX Subprogram

This subprogram is used by subprogram SPINV described in 4.1.14. The

original matrix is saved before the inverse operation of subprogram SPINV

begins.

4.1.16 INVCHK Subprogram

This subprogram called by subprogram SPINV makes a check on the

success of the matrix inversion. The check [I-AA~1] < E is made where I

is the identity matrix, A is the original matrix, A"1 is the inverse of A

and E is the value «Ol0 w

where o w

is the accepted standard deviation of

the balance. If the conditions are not met, a flag is defined.

4.1.17 PRINT2 Subprogram

This subprogram makes necessary calculations and contains output

statements and their corresponding formats for the printing of the four or

five pages of the report associated with each series. The first page of

the output contains administrative information: statistical control

39
values, restraint information, check standard information, test

environmental conditions and description of weights being calibrated. The

second page of the output contains the design and the observations. The

third page of the output contains the computed values for the corrections

and their corresponding uncertainties and pertinent information of the

restraint for the next series. The fourth or fifth page of the output

contains the information concerning the statistical F-test and t-test. If

neither the t-test or F-test fails, values are saved for process control .

See section 3.3. The fourth page, if linear combinations are requested,

contains information related to the requested linear combinations.

4.1.18 CHKLN Subprogram

This subprogram makes a check between the current number of lines on

a page of printout and the parameter controlling the number of lines

permitted per page. If the maximum is exceeded subprogram PGCONT is

called.

4.1.19 PGCONT Subprogram

This subprogram writes the information needed in the case where a

continuation page is required due to output page overflow.

4.1.20 HEADPG Subprogram

This subprogram writes the headings on each page. The heading

includes the company name and address, a description of the weights being

tested, the balance, the date, the page number and the series number.

40
4.1.21 FINPRT Subprogram

This subprogram controls the printing of the four summary pages for

each calibration report. If mass was given in English units, the values

are converted to grams for the output. The reported corrections are

printed in milligrams. The subprogram TEXTS 1 and TEXTS2 are called to

print the summary text. A subprogram called DPFD is used to print double

precision values of mass and corrections in fixed notations (see Table I

and Table II of the output example).

4.1.22 TEXTS 1 Subprogram

This subprogram contains the output statements and their

corresponding formats for printing the text of the first page of the

summary.

4.1.23 TEXTS 2 Subprogram

This subprogram contains the output statements and their

corresponding formats for printing the text of the second page of the

summary.

4.1.24 DPFD Subprogram

This subprogram converts a double precision value to a string of

numeric characters representing its values to be printed as a fixed

floating point data type with more than 8 accurate digits, the number

permitted on the UNIVAC 1108.

41
4.2 Labeled COMMON

Figure IV lists all the labeled COMMON areas and the main program and

all its subprograms. Check marks indicate which subprograms use which

labeled COMMON areas. The numbers in parentheses indicate the amount of

storage required.

4.3 Double Precision Variables

The following table defines the subprograms using double precision

variables, the variable names and in which labeled COMMON area they

appear. N.A. means not applicable.

Variable

VOLP

CORRP

OBSCOR

TRMASS

APPMAP

APPMAS

CORRBB

CORRB

SUM

SUM1

TEMPAR

A

X

Subprogram

MAIN

MAIN

MAIN, PRINT2

MAIN, FINPRT

MAIN

MAIN, FINPRT

MAIN

MAIN, FINPRT

MAIN

MAIN

FINPRT

DPFD

DPFD

COMMON

N.A.

N.A.

COMPUT

REPRT

N.A.

REPRT

N.A.

REPRT

N.A.

N.A.

N.A.

N.A.

N.A.

42
1— OO OH

Lxj

r cr Z 00

i—i Q

h-oOH

DO=)H oh 00

>-

<:

oh

OO

oo

JX

C5 UlO 2

CDOOH

a.

oh7roo

OH73

CD

Q

_l

CO

p

ohn

J1 ooXuu1—

CVJ oo

1—XLU1—

_l

±H

3Zo ocd

QO 1—1

CO

o_X i—i

u.

u_

o_Q I CM CD z: 1—

1— Q_ _i z

i—i

CO< oo a: UJ o CD

o_ 1

3: Q_

OSO"

CVJ CO

«=E LUOH

1—

1—1 Q

LU

ce:

a;oOH

OH

LU

771 1 1 r—

h- - ^— CVJ CO «^- LO <£» Z —- I— 1— 1— 1— 1— hi—i X X X X X X

"1 i

*->-* LU LU LU LU LU 1 ^ 1— 1— 1— 1— 1—

1—

t—I Q

<C

LU

OH

Q

<C

LU

OH

OHO

OHLU

43
FIGURE IV - LABELED COMMON CROSS REFERENCE TABLE

CHECK

(1544)

i—O

CO

z._Jzco

oLl. a.o

oc

a.

z.

i—

i

u_ o

UJ o>z.

t—

I

X

z.

1—

1

s:

X

1—zooCO

a.

I—

1

1—z

CC

Q.

CM

I—z1—4 cc

X

«—

1

a

LU

C\J a

UJ

Of

1—

1—

1

Q<UJ

cc

X1—

s:>

00

X

>

1—

1

a.

to

«—

i

l—XUJ

1-

CMJ—XUJ

CO

t—XUJ

1—

1—XUJ1—

in

l—XUJ

1—

vo

1—XUJ1—

1-1 to1—XUl

1—

CM

to1—XUl

tCOMPUT

(1057) X X

'

DPFDVL

1 (22)

X X X X X

INPUT

(3531)

X X X X X X

INVCST

(1)

X X

ITSTOP

(1)

X X

PCHOUT

(1)

X X

PRTl

(1005)

X X X X X X X X

PRT2

(3)

X X X X X X X

PRTLB

(17)

X X

RAREA

(115)

X X

REPRT I (1275)

X X

STOP

(5)

X X

UNITIO

(5)

X X X X X X X X X X X X "i \

x X x X

44
4.4 Equivalenced Variables

The FORTRAN EQUIVALENCE statement is used only in subprogram READIT.

Following is a table giving the two variables which are equivalenced.

Variable _1

IDIGIT (1)

IDIGIT (2)

IDIGIT (3)

IDIGIT (4)

IDIGIT (5)

IDIGIT (6)

IDIGIT (7)

IDIGIT (8)

IDIGIT (9)

IDIGIT (10)

I PLUS

IMINUS

ID

IE

IDECML

IBLANK

Variable 2

KFD (1)

KFD (2)

KFD (3)

KFD (4)

KFD (5)

KFD (6)

KFD (7)

KFD (8)

KFD (9)

KFD (10)

KFD (15)

KFD (12)

KFD (17)

KFD (18)

KFD (13)

KFD (11)

Constant Value

1

2

3

4

5

6

7

8

9

+

D

E

•

blank

4.5 Parameter Dependent Variables The following table gives a list of

dimensioned variables whose size may be changed due to modification in

the number of observations, number of unknowns or number of linear

combinations. The first column gives the variable name and its current

dimension, where n (the number of observations) = 50, k (the number

of unknowns) = 15, I (the number of linear combinations) =19, and

45
m (number of values saved to be printed on summary page) = 50. The second

column gives the COMMON area containing the variable. The N.A. entry means

that the variable is not in a labeled COMMON area. The third column lists

the names of the subprogram(s) containing the variable.

Variable Labeled COMMON Subprograms

AIDCST (5,k) INPUT MAIN, READ 2, PRINT2,, PGCONT, HEADPG, FINPRT

ANOM (k) INPUT MAIN, READ2, PRINT2,, PGCONT, HEADPG, FINPRT

DENSTY (k) INPUT MAIN, READ2, PRINT2 , PGCONT, HEADPG, FINPRT

COEFEX (k) INPUT MAIN, READ2, PRINT2,, PGCONT, HEADPG, FINPRT

ACCVAL (k) INPUT MAIN, READ2, PRINT2 , PGCONT, HEADPG, FINPRT

ARSTIN (k) INPUT MAIN, READ2

,

PRINT2 , PGCONT, HEADPG, FINPRT

ACKSTD (k) INPUT MAIN, READ2, PRINT2 , PGCONT, HEADPG, FINPRT

IRSTOU (k) INPUT MAIN, READ2, PRINT2 , PGCONT, HEADPG, FINPRT

IPRNT (k) INPUT MAIN, READ2, PRINT2 , PGCONT, HEADPG, FINPRT

DESMAT (k,n) INPUT MAIN, READ2, PRINT2 ; PGCONT, HEADPG, FINPRT

OBSERV (12*n) INPUT MAIN, READ2, PRINT2 , PGCONT, HEADPG, FINPRT

ALCOM (k,a+l) INPUT MAIN, READ2, PRINT2., PGCONT, HEADPG, FINPRT

SWTPRT (n) COMPUT MAIN, PRINT2

A (n) COMPUT MAIN, PRINT2 -

DELTA (n) COMPUT MAIN, PRINT2

OBSCOR (k) COMPUT MAIN, PRINT2

COMVOL (k) COMPUT MAIN, PRINT2

S ERROR (k) COMPUT MAIN, PRINT2

TRISIG (k) COMPUT MAIN,, PRINT2

TOTUN (k) COMPUT MAIN,, PRINT2

DRIFT (n) COMPUT MAIN, PRINT2

46
Variable Labeled COMMON

ZERO (n) COMPUT

COMVOP (k) COMPUT

CORR5A (A+l) COMPUT

SIG35A (£+1) COMPUT

UNC5A (A+l) COMPUT

IOTSTR (n) COMPUT

SER5A (£+1) COMPUT

DS1 (n) COMPUT

VOLP (k) N.A.

CORRP (k) N.A.

TEMP (k) N.A.

Dl (n) N.A.

ILOAD (n) N.A.

TEMP2 (k) N.A.

ALOAD (n) N.A.

AITEM (5,m) REPRT

APPMAS (m) REPRT

TRMASS (m) REPRT

UNCERT (m) REPRT

VOLPRT (m) REPRT

CORRB (m) REPRT

COEPRT (m) REPRT

BCHK (2(k+2) 2

) CHECK

Y ((k+2) 2

) CHECK

PRTLBX (k) PRTLB

Subprograms

MAIN, PR-INT

2

MAIN, PRINT2

MAIN, PRINT2

MAIN, PRINT2

MAIN, PRINT2

MAIN, PRINT2

MAIN, PRINT2

MAIN, PRINT2

MAIN

MAIN

MAIN

MAIN

MAIN

MAIN

MAIN

MAIN, FINPRT

MAIN, FINPRT

MAIN, FINPRT

MAIN, FINPRT

WAIN, FINPRT

MAIN, FINPRT

MAIN, FINPRT

MAIN, SAVMTX, INVCHK, PRINT2

MAIN, SAVMTX, INVCHK, PRINT2

MAIN, READ2, PRINT2

47
Variable Labeled COMMON

ITEMP (k) N.A.

KTEMP (k) N.A.

JTEMP (k) N.A.

NNP (m) N.A.

TEMPAR (m) N.A.

TRMASX (k) N.A.

Subprograms

PRINT2

PRINT2

PRINT2

FINPRT

FINPRT

FINPRT

In addition to the above dimensioned variables which could be changed, a

variable defined as NR n*12 in subprogram READ2 would have to be changed if

the number of observations is increased from the current assigned value of 50.

4.6 Hardware and System Dependent Variables

The following table describes the variables which may present some problem

at implementation time. The table lists the variables, the subprograms

defining them and the value used for the UNIVAC 1108 at NBS.

Variable Defining

Name Subprogram

ZERMAC BLKDAT

IR BLKDAT

IW BLKDAT

IP BLKDAT

I PL BLKDAT

ITMP BLKDAT

T READIT

Current Value and

Description of Variable

1 x 10~° - machine zero

5 - input unit

- output (printer) unit

- output (punch) unit

6

1

58 - maximum number of lines allowed

per printed page

output (temporary file)

This dimensioned variable contains the

limits of a real variable beginning at 10~J ° and going up to 10

48

38
Variable

Name

IZERO

MAX

KFD

Defining

Subprogram

READIT

READIT

BLKDAT

FS BLKDAT

FT BLKDAT

FO BLKDAT

FP BLKDAT

FB BLKDAT

Current Value and

Description of Variable

39-number of unique powers of ten

represented by the machine range of a real

variable given in T above

77 -number of powers of ten represented by

the machine range of a real variable as specified above in T

Define in hollerith notation the characters

0-9, blank, -, . , *, +, comma, D and E which

are used by the subprogram READIT and DPFD

hollerith character S

hollerith character T

hollerith character

hollerith character P

hollerith character A (blank)

**

4.7 Required Storage

The following table lists all subprograms and labeled common blocks.

For the subprogram, the number of lines of FORTRAN statements and the

number of memory locations for the code and data are given. If the entry

is a labeled COMMON area, a C preceeds the entry and the memory locations

needed are given under the column headed DATA.

**FS, FT, FO and FP are used by subprogram READ1 to check for the end of a set of data.

49
PROGRAM OR LINES OF MEMORY FOR MEMORY FOR

COMMON CODE CODE DATA

BLKDAT 41

C CHECK 868

CHKLN 11 21 5 C COMPUT 559

DPFD 89 194 40

C DPFDVL 18

ERROR 56 160 168

FINPRT 181 486 363

HEADPG 36 41 26

C INPUT 1881

C INVCST 1 INVCHK 69 140 36

C ITSTOP 1 MAIN 628 1426 352

C PCHOUT 1 PGCONT 53 68 32

PRINT1 67 192 116

PRINT2 670 1785 1212

C PRT1 517

C PRT2 3

C PRTLB 15

C RAREA 77

READ1 120 170 23

READ2 325 516 34

READ IT 356 586 209

C REPRT 701

SAVMTX 22 22 9

SPINV 126 293 43

C STOP 5

TEXT1 125 64 705

TEXT2 125 64 705

TEXT3 125 64 705

TEXT4 125 64 705

TEXT5 121 64 683

TEXT6 40 24 172

TEXTS

1

124 59 704

TEXTS

2

30 19 95

C UNITIO

zt) 2850

5

TOTAL (excluding tej 6100 7320

TOTAL (text) 815 422 4474

GRAND TOTAL 3665 6522 11794

50
Acknowledgements

The authors wish to thank Mr. J. M. Cameron for his helpful

suggestions, Mrs. Sue Bussard for her typing skill and patience through

many revisions of the document and Laurie Korzendorfer for her help in

assembling the appendices. The authors also wish to thank Sally Peavy,

Roy Wampler and Clayton Albright for their subprogram contributions.

51
REFERENCES

The following references are suggested for detailed description of

portions of this report, and for general information concerning the mass measurement process:

1. Pontius, P. E. , and Cameron, J. M. , "Realistic Uncertainties and the

Mass Measurement Process," NBS, (U.S.)> Monogr. 103, Aug. 15, 1967.

2. Pontius, P. E. , "Measurement Philosophy of the Pilot Program for

Mass Calibration," NBS (U.S.), Tech. Note 288, May 6, 1966.

3. Bowman, H. A., and Schoonover, R. M. with Appendix by Mildred Jones,

"Procedure for High Precision Density Determinations by Hydrostatic

Weighing," J. Res. NBS (U.S.), 71C. Engineering and Instrumentation

No. 3, 179-198, July-Aug. 1967.

4. Natrella, M. B. , "Experimental Statistics," NBS (U.S.), Handbook

91, Aug. 1, 1963.

5. Ku, H. H. , "Precision Measurement and Calibration," Selected NBS

papers on Statistical Concepts and Procedures, NBS (U.S.), Spec.

Pub. 300, Vol. 1, Feb. 1969.

6. Pontius, P. E. , "Mass and Mass Values," NBS (U.S.), Monogr. 133,

Jan. 1974.

7. Cameron, J. M. , "The Use of the Method of Least Squares in

Calibration," NBS (U.S.) NBSIR 74-587, Sept. 1974.

8. Aimer, H. W. and Keller, Jerry, "Surveillance Test Procedures, NBS

(U.S.) NBSIR 76-999, Feb. 1976.

9. Wexler, A. and Greenspan, L. "Vapor Pressure Equation for Water in

the Range 0°C to 100°C," NBS Journal of Research for Physics and

Chemistry, Vol. 75A, No. 3, May-June 1971.

10. Cameron, J. M. , Croarkin, M. C. and Raybold, R.C., "Designs for

Calibration of Standards of Mass," NBS, (U.S.), Tech. Note 952, June

1977.

11. Cameron, J. M. and Hailes, G. E. , "Designs for the Calibration of

Small Groups of Standards in the Presence of Drift," NBS (U.S.),

Tech. Note 844, Aug. 1974.

12. Pearson, E. S. and Hartley, H. 0., Biometrika Tables for

Statisticians, Vol. 1, Cambridge Press, 1956, page 131.

52
APPENDIX A. 1—SAMPLE INPUT

X Y 2 CORPORATION

SOMEUHEREs U.S.A.

SET OF MASS STANDARDS : SKG - 1C0MG

SERIAL NUMBER 12345

MANUFACTURER : TROEMNER. INC.

JUNE 21e 1979

654321

.076 20 80

5 24 79 84 001 002

21.98 22.22 733.68 734.08 41 41

8 5 53

1.15 49.98277 .00301104 .000020

5K6 5000 7.953 .000045

3KG 3000 7.953 .C00045

2KG 2000 7.9 .000045

S 1KG-1 100C 8.0064 .000045 11.241

S 1KG-2 1000 8.0063 .000045 11.825

11

1-1

11

111

1-1-11 -1

-1111-1

1 -I -1

-110 11

0-111

1-10-1

1-1-1

C 1 -1

4.7 15.2 £.0 5.4 12.5 5.5 7.3 1£.0 7.4

5.8 12.4 6.2 5.6 14.1 5.9 7.8 16.4 8.2

6.4 13.6 6.5 4.4 13.4 4.5 7.2 IE.2 7.3

4.8 13.4 £.0 5.4 15.2 5.7 7.3 17.4 7.6

6.0 14.8 6.3 5.3 13.0 £.4 6.7 16.0 7.0

5.2 13.0 £.3 5.4 16.0 5.6 9.2 16.5 9.3

5.9 14.0 6.2 5.9 13.4 6.2 7.8 16.2 8.0

5.9 13.9 6.1 5.0 14.8 £.2 8.6 1£.8 8.6

-200000

3 10

5 23 79 84 C03 002

21.91 21.92 736.86 736.76 40 40

6 4 41

•028 49.98277 .00301104 .000020

S 1KG-1 1000 8.0064 .000045 11.241

S 1KG-2 1000 8.0063 .000045 11.825

1KG 1000 7.953 .000045

SUM 1KG 1000 7.92641 .000045

1 1

1 -I

1

53
1 -

-1

-1

1 -1

-1

-1

16.74 17.

16.85 11.

16.84 13.

17.32 1 1.

17.22 13.

10.92 12.

-200000

3 I 5 23 79 8

21 .92 2 1.

I 1 6 62 1 .028 49.9

500G

300G

200G

100G

S 1 SUM 100G

I 1 1

1 1 1 -1-1

-1 -1

-1 -I - -1 -1

0-1-1

1 -1 1 1 -1 -1

-1 -1

1 -1

1

1 12.78 10.

13.02 12.

i4.ee i o. i2.se 10.

12.91 13.

1C.87 13.

10.94 13.

12.69 11.

11.16 11.

11.18 13.

11.09 13.

-200000

3 10

5 1 7 79 8 21 .99 21 . II 6 62

.012 49.9

34 67.37 66.73

24 61.18 66.77

17 63.11 66.76

13 €1.06 67.23

02 62.93 67.16

£2 62.86 60.84

4 C03 004

S6 736.92 736.56 40 40

8277 .00301104 .000020

500 7.9 .000045

300 7.953 .C00045

200 7.953 .0CO045

100 7.9 .000045

OOG 100 7.953 .C00045 .9883

100 7.94234 .000045

-1

-

1

-1

1 -1

1 1

-1 -1

-1-1

1 -1

-1 1 -1

-1

1 -1

€2 60.63

59 62.54

75 60.73

ei 60.54

Ee 63.54

44 63.33

33 63.26

44 61.38

71 61.68

50 63.38

44 63.40

62.86

62.96

64.88

62.82

62.81

60.84

60.82

62.66

61 .14

61.11

60.96

4 005 006

96 746.60 746. CC 31 31

8277 .00301104 .000020

54
50G

30G

20G

10G

£ 10G

SUM 10G

1 1

50 7.952 ,000045

30 7,952 ,000045

20 7,9 .C0C045

10 7.952 .000045

10 7,952 .000045 .0785

10 7.92641 .000045

1 1 1 -1 -1

-1 -1

-1 -1

-1 -1

-1 -1

-1 1 -1 -1

-1 -1

1 -1

1 -1

10-

6.18 4.69

6.17 4.72

6.14 4.76

6.19 4.74

6.18 4.47

4.81 4.44

4.79 4.49

4.76 4.51

4.52 4.55

4.48 4.52

A. 47 4.47

-200000

3 10

5 18 79 8

21.92 21.

1 1 6 62 1 .0017 5.0

5G

3G

2G

1G

S 1G

SUM 1G

-1

1 -1

1 1

-1 -1

-1 -1

1 -1

-1 1 -1

-1

1 -1

54.71

£4.71

£4.76

54.72

£4.45

£4.44

54.47

£4.49

£4.52

£4.50

£4.46

56. 2C

56.15

56.14

56. 18

56.18

54.81

£4.75

54.74

£4.49

54.47

£4.47

4 0C7 008

88 743.28 742.82 25 35

0171 .00185248 .000069

5 7.9 .000045

3 7.953 .000045

2 7.953 .000045

1 7.9 .C00C45

1 7.952 .000045 -.0792

1 16.6 .000020

1 1

1 1 -1 - -1 - -1 - -1 - -1 -1

1 -1 1

1 -1 -1

1 -1 -1

1-1

1-1

-1

1 -1

1 1

-1 -1

-1 -1

1 -1

-1 1 -1

-1

55
10-

10 1 1.084 .92

.978 .939

.990 1.02

1.068 1.0

1.068 .87

1.062 .86

.959 .966

.969 .948

1.016 .97

1.016 .98

1.012 .68

-200000

3 10

5 18 79 8

22.21 22.

11 6 62

.0005 .50

500M

300M

200M

100M

S 100M

SUM 100M

111

1 111

-1 -1 1 -1 -1

-1 -1 - -1 -1

1 -1

6 5.92

5.931

1 6.02

13 6.0

S 5.87

2 5.85

5.957

5.942

t 5.96

7 5.98

1 5.87

7 6.084

5.972

1 5.987

09 6.067

6.063

7 6.053

5.948

5.960

6 6.006

1 6.006

2 6.004

4 007 008

99 742.52 741.86 36 35

156 .0018576 .0COC69

•5 16.6 .000020

•3 16.6 .000020

.2 16.6 .000020

•1 16.6 .000020

•1 16.6 .000020 -.02628

•1 £.17683 .000049

-1 -1

-1 1 -1 -1

-1 -1

1 -1

1 -1

1 - 296.4 224

285.5 240

300.5 241

312.9 253

312.7 239

303. e 250

290.2 264

303.6 252

276.7 302

276.7 315

276.6 301

-200000

STOP

-1

1 -1

1 1

-1 -1

-1 -1

1 -1

-1 1 -1

-1

1 -1

• 726

.3

.6

• 8

.5

• 6

• 3

• 6

.5

•

2 741.3

744.1

754.8

741.0

751.5

765.4

753.6

604.1

817. 1 802.6

801.2

788.9

803.7

815.5

815.6

805.7

791.7

806.0

779.3

779.2

77e.6

56
APPENDIX A. 2—SAMPLE PRINTED OUTPUT

U. S» DEPARTMENT CF CCMMERCE

NATIONAL BUREAU OF STANDARDS

NATIONAL ENGINEERING LABORATORY

WASHINGTON, D.C. 20234

REPORT

F MASS VALUES

X Y Z CORPORATION

SOMEWHERE* U.S.A.

SET OF MASS STANDARDS : SERIAL NUMBER 12345

MANUFACTURER : TROEMNER,

JUNE 21. 1979

5KG - 100MG

INC.

TEST NUMBER 654321

FOR THE DIRECTOR*

G. E. MATTINGLY, CHIEF

FLUID ENGINEERING DIVISION

CENTER FOR MECHANICAL ENGINEERING

AND PROCESS TECHNOLOGY

NATIONAL ENGINEERING LABORATORY

57
X Y Z CORPORATION

SOMEWHEREi U.S.A.

SET OF MASS STANDARDS

TEST NUMEER 654321

5KG - 100MG

PAGE

THIS

SIVE RE

OF OPERA

VALUES

ABOVE.

DE SCRIPT

METHODS

USED9 A ANALYSIS

RESULTS

FORMATS.

DISPLACE

OF EXPA

GETHER W

LINEAR C

IN EACH

THE END

THIS INF

TO THOS

VALUES

WEIGHTS.

VALUES A WITH OTH

COMMENTS

TABLES I REPORT.

PAGES AR

DATA WH

MEASUREM

PERFORM

HAVE BE

RETAIN

THESE

COLLECTI

WHICH

PROCESS

OF TIME

BEEN USE

LIMITS F

OF THIS

LECTIONS

AT CUR F

INTRODUCT ION

DOCUMENT IS A PCRT COVERING T TICNS USED TO A TO THE WEIGHTS

IT INCLUDES

ICN OF THE

AND PROCEDURES

LL OF THE DA

OF THIS D ARE PRESENTED

ASSIGNED MA

MENT VOLUMES, C NSICN* UNCERTA

ITH THE SUMMED

CMBINATICNS OF

DECADE ARE P CF THE APPROPRI

CRMATICN SHOULD

E WHO MUST A TO OBJECTS C FOR CONVEN

ND UNCERTAINTIE

EP APPROPRIATE

ARE ALSO SU

AND II AT THE

CERTAIN I E SUMMARIES OF

ICH RELATE TO

ENT PROCESS

THIS WORK. T EN LEFT IN TH

CONTINUITY.

PAGES BECOME

CN OF STATIST

REFLECTS THE

PERFORMANCE OVE

• SUCH A COL

D TO ESTABLISH

CR ACCEPTING T MEASUREMENT.

APE OPEN FOR

ACILITY.

COMPREFENHE SEQUENCE

SSIGN MASS

IDENTIFIED

A COMPLETE

MEASUREMENT

MHICH WERE

TA, AND THE

ATA. THE

IN SEVERAL

SS VALLES.

CEFFICIENTS

INTIESf TOVALUES FOR

THE WEIGHTS

RESENTED AT

ATE SERIES.

BE USEFUL

SSIGN MASS

THER THAN

IENCE. THE

St TOGETHER

DATA AND

MMARIZEC IN

END OF THE

NTERMEDIATE

STATISTICAL

THE MASS

USED TO

HESE PAGES

E REPORT TO

COPIES CF

PART OF A ICAL DATA

MEASUREMENT

R A PERIOD

LECTICN HAS

THE CONTROL

HE RESULTS

THESE CCLINSPECTION

WHICH RELY* DI

LY. ON MAS

ACCOMPLISH A ENDEAVORS.

SYSTEM TO

EVERYONE WHO

MUST BE ABLE T MEASUREMENT

CONSISTENT R

COMPATIBLE W REQUIREMENTS.

BY THIS REPORT

ASSIGNED VALU

PRIATE UNCERT

VALUES* PROVI

FOR CONSISTENT

THIS SYSTEM OF

PROCESSES.

RECTLY OR

S MEASUR

WIDE VA

IN ORDER

FUNCTION

MAKES ME

VERIFY

PROCESS

ESULTS W ITH HIS

THE WEIGH

. TOGETHER

ES AND T AINTIES F

DE IN PA

MEASUREME

RELATED M

INDIRECTEMENTS TO

RIETY OF

FOR THIS

PROPERLY*

ASUREMENTS

THAT HIS

PRODUCES

HICH ARE

PARTICULAR

TS COVERED

WITH THE

HE APPROCR THESE

RT A BASIS

NTS WITHIN

EASUREMENT

THE MASS MEASUREMENT SYSTEM

THE MASS MEASUREMENT SYSTEM

WITHIN THIS COUNTRY CONSISTS CF

ALL OF THE MEASUREMENT PROCESSES

APPROPRIATE CHARACTERIZATION

OF ANY MEASUREMENT PROCESS IS

FUNDAMENTAL TC VERIFYING THAT

RESULTS ARE CONSISTENT WITH THE

END REQUIREMENT WITH RESPECT TC

CORRECTNESS AND ECONOMY OF THE

MEASUREMENT EFFORT. WITHOUT THIS

INFORMATION* THE BENEFITS OF

OWNERSHIP CF THESE WEIGHTS MAY BE

COMPLETELY ILLUSORY. THE ASSIGNED

UNCERTAINTIES IN THIS REPORT ARE

DESCRIPTIVE OF OUR MASS MEASUREMENT PROCESS. EFFECTIVENESS OF

THE TRANSFER OF THE UNIT FROM ONE

FACILITY TO ANOTHER SHOULD BE

VERIFIED EY AN INDEPENDENT TEST.

IT IS PRESUMED THAT THESE WEIGHTS

WILL BE USED IN A SIMILARLY WELLCHARACTERIZED MEASUREMENT PROCESS

SO THAT THE STATISTICAL PARAMETERS

OF BOTH PROCESSES CAN BE COMBINED

TO PROVIDE A REALISTIC ESTIMATE OF

THE UNCERTAINTY OF THE PASS UNIT

AS ACTUALLY REALIZED IN ANOTHER

FACILITY. A COMPREHENSIVE SERVICE

DIRECTED TOWARD THE EVALUATION OF

A PARTICULAR MASS MEASUREMENT

PROCESS IS AVAILABLE THROUGH THE

MASS MEASUREMENT ASSURANCE PROGRAM

OF THE NATIONAL ELREAU CF

STANDARDS.

58
X Y Z CORPORATION

SOMEWHERE, U.S.A.

SET OF MASS STANDAROS

TEST NUMEER 654321

5KG - 100MG

PAGE

WEIGHING DESIGN

ONLY DIFFERENCES IN MASS CAN

BE MEASURED* THEREFORE THE MASS

VALUES FOR THE 'UNKNOWN' HEIGHTS

MUST BE DETERMINED EY CCMPARISCN

WITH OTHER WEIGHTS WHICH HAVE

ACCEPTED MASS VALUES. THE

•UNKNOWN* WEIGHTS TOGETHER WITH

•CHECK STANDARDS'. ARE GROUPED AND

INTERCOMPARED ACCORDING TO THE

OESIGN SCHEDULE GIVEN AT THE BEGINNING CF EACH SERIES OF WEIGHINGS. THE FIRST SERIES CONTAINS

STANDARDS WHICH PROVIDE THE

STARTING VALUES FOR THE SERIES CF

WEIGHINGS AND PROVIDE THE TIE

POINT FOR CONSISTENCY THROUGHOUT

THE MEASUREMENT SYSTEM. THE

WEIGHING METHOD USEDe I.E.* DOUBLE

SUBSTITUTION* TRANSPOSITION* ETC.*

IS INDICATED ALONG WITH THE

OBSERVED DATA. IN THE COMPUTATIONS* THE DISPLACEMENT VOLUMES

ARE TREATED EXPLICITLY. USING THE

DATA LISTED IN THE REPORT. IN ALL

CASES* A REDUNDANCY IN THE NUMBER

OF MEASUREMENTS PROVIDES A MEANS

FOR CHECKING ON THE PRECISION OF

THE PROCESS.

WHEN THERE ARE MORE EQUATIONS

THAN 'UNKNOWNS'* NOT ALL OBSERVATIONAL ECUATIONS CAN BE SATISFIED

EXACTLY AND THE METHCD OF LEAST

SQUARES IS USED TC PROVIDE

ESTIMATES OF THE 'UNKNOWN' VALUES.

THIS METHOD LEADS TO ESTIMATORS

WHICH ARE LINEAR FUNCTIONS OF THE

DATA AND WHICH HAVE STANDARD

DEVIATIONS READILY CALCULATED FROM

THE COEFFICIENTS OF THE LINEAR

FUNCTIONS AND THE STANDARD DEVIATION OF AN INDIVIDUAL MEASUREMENT.

THE 'CHECK STANDARD' IS ALSO

TREATED AS AN UNKNOWN AND THE

AGREEMENT OF THE CURRENT RESULT

WITH THE ACCEPTED VALUE PROVIDES A TEST OF THE ADEQUACY CF THE CURRENT DATA. THIS SAME CHECK

STANDARD IS MEASURED *ITH EACH

TEST OF UNKNOWNS AND THE COLLECTION OF VALUES OVER TIME IS USED

TO EVALUATE THE PERFORMANCE OF THE

MEASUREMENT PROCESS.

WHICH

ARDS*

STAND

THE

THE V THE

SUBSE

THE

MORE

PREVI

N TIN

THE

ARDS

SOLU

ALUE

REST

QUEN

VALU

WE

OUS

HE C CLUDE

ACCE

SERV

TION

S OF

RAINT

T SER

ES ES

IGHTS

SERIE

ASE

S T

PTED

E AS

CF T ALL

FOR

IES

TABL

I S.

OF

HE

VAL

A R HE E CF T THE

IS

ISHE

NCLU

THE

KNCWN

UES OF

ESTRAI

QUATIO

HE WE

SCLUT

PRCVID

D FOR

DEC

SERIES

STANDTHESE

NT ON

NS FOR

IGHTS.

ION OF

ED BY

ONE OR

IN A

ESTIMATED VALUES FCR WEIGHTS

WHICH HAVE BEEN GROUPEC IN THE

SAME SERIES INVOLVE THE SAME

OBSERVATIONAL DATA AND ARE* IN

ALMOST ALL CASES. CORRELATED. FOR

EACH SERIES THERE IS A TABLE OF

COMBINATIONS TOGETHER *ITH THE

APPROPRIATE UNCERTAINTY FOR EACH

COMBINATION.

PROCESS CCNTRCL

THE

COMPUTED

SOLUTION*

SHORT TE

CESS PREC

NUMBER

TIONS IS

WITHIN-RU

THE PROC

REFERENCE

OF THE

VALUES O

STANDARD'

ON, A S

REALISTIC

VARIATION

MEASUREME

VALUES F

PRECISION

FOR THE

STANDARO DEV

FROM THE L PROVIDES A C RM. CR 'WITH

ISION. AN AV

F THESE STA

TAKEN AS T

N STANDARD

ESS AND IS

VALUE FOR

PROCESS PREC

BTAINED FOR

PROVIDE. AS

EQUENCE CF

ALLY REFL

S WHICH BE

NTS. COLLE

OR BOTH THE

AND THE VAL

•CHECK STAN

IATION. AS

EAST SQUARES

HECK ON THE

IN-RUN' PROEPAGE OF A NDARD DEVIAHE ACCEPTED

DEVIATION OF

USED AS A SURVEILLANCE

ISION. THE

THE 'CHECK

TIME GOES

VALUES THAT

ECTS THE

SET PRECISE

CTIONS OF

WITHIN-RUN

UE OBTAINED

DARD' SHOULD

59
X Y Z CORPORATION

SOMEWHERE* U.S.A.

SET OF MASS STANDARDS

TEST NUMEER 654321

5KG - 100MG

PAGE

POSSESS THE PROPERTIES

NESS ASSOCIATED WITH

MEASUREMENTS FROM

PROBABILITY DISTRIBUT

REPORTED »F RATIO* AND

ARE TESTS OF THE VALU

CURRENT RUN FOR CCNF

THEIR RESPECTIVE DISTRI

IF SATISFACTORY ARE

EVIDENCE THAT THE PROC

CONTROL AND THAT

STATEMENTS REGARDING

ARE VALID.

CF RANDCMINDEPENDENT

A STABLE

ICN. THE

•T VALUE*

ES FROM THE

CRMITY

BUT IONS

TAKEN

ESS IS

PREDICTIVE

UNCERTAINTY

TO

AND

AS

IN

CONTROL CHARTS CN

RUN PROCESS PRECISION

VALUES OBTAINED FOR

STANDARD ARE KEY EL

MONITORING THE STATE OF

ANY PRECISE MASS

PROCESS. IN ADDITION T

A BASIS FOR JUDGMENT

ADEQUACY OF A GIVEN PR

PARTICULAR REQUIREMENT.

PROVIDE A MEANS TC

IMPORTANCE OF LCNG

•BETWEEN-RUN* VARIABIL

CAN BE CHARACTERIZE

STANDARD OEVIATICN OF

ABOUT THE MEAN. IF

ADDITIONAL COMPONENT C ENTERING FRCM RUN TC

STANDARD DEVIATION WILL

THAN CAN EE ACCOUNTED

WITHIN-RUN VARIABILITY.

TION STUDIES* AS WELL

MENTAL EXPERIMENTS. AR

DETECT ANC REDUCE THE M SIGNIFICANT SYSTEMATI

APPROPRIATE ACTION. E TICNAL EMPIRICAL CCRR

CHANGES IN TECHNIQUE*

THE EFFECTS FRCM KNCWN

SYSTEMATIC VARIABILIT

MAGNITUDE WHICH IS

IDENTIFIABLE IN THE OAT

CASES WHEPE A SIGNIF

TERM, OR EETWEEN-RUN*

REMAINS THE UNCERTAIN

APPROPRIATELY AOJUSTED.

THE WITHINAND THE

THE CHECK

EMENTS IN

CONTROL OF

MEASUREMENT

C PROVIDING

AS TO THE

CCESS FCR A

THESE OATA

JUCGE THE

TERM* CR

ITY WHICH

C BY THE

THE VALUES

THERE IS AN

F VARIANCE

RUN* THIS

BE LARGER

FOR BY THE

CORRELAAS SUPFLEE USED TO

AGNITUDE OF

C EFFECTS.

•G«. ADDIECTIONS OR

CAN REDUCE

SOURCES OF

Y TO A NC LONGER

A. IN THE

ICANT LCNG

COMFCNENT

TY HAS EEEN

SERIES OF MEASUREMENTS JUDGED

AS OUT OF CONTROL RELATIVE TO THE

APPROPRIATE PARAMETER ARE CAREFULLY EXAMINED. IF RERUNS WERE

NECESSARY IN THE COURSE OF THIS

WORK* THE »OUT OF CONTROL* SERIES*

WITH REMARKS AS APPRCPP I ATE , ARE

ATTACHED AT THE END OF THE REPORT

FOR YOUR INFORMATION.

UNCERTAINTY

IT IS ASSUMED THAT THE PRESENT

•ACCEPTED VALUES* OF THO NBS STANDARDS AT THE 1 KILOGRAM LEVEL*

DESIGNATED Nl AND N2, ARE WITHOUT

ERROR. ESTIMATES OF THE UNCERTAINTY OF THE ACCEPTED VALUES OF

THE NBS STANDARDS RELATIVE TO THE

INTERNATIONAL PROTOTYPE KILOGRAM

CAN BE PROVIDED ON REQUEST.

HOWEVER. THESE ESTIMATES HAVE NO

REAL MEANING IN EITHER NATIONAL OR

INTERNATIONAL COMPARISON. THIS IS

BECAUSE OF THE LACK OF SUFFICIENT

DATA TO PROVIDE A REALISTIC

ESTIMATE OF THE UNCERTAINTY IN THE

VALUES ASSIGNED TO THE PROTOTYPE

KILOGRAMS K20 AND K4 • PARTICULARLY

IN REGARD TO LONG TERM. OR

BETWEEN-RUN VARIABILITY. CHANGES

IN THE ACCEPTED VALUES FCR THE NBS

STANDARDS AT THE KILOGRAM LEVEL.

AS AND WHEN THEY OCCUR. WILL BE

REPORTED IN THE SCIENTIFIC PAPERS

OF THE BUREAU AND WILL BE GIVEN

WIDE DISTRIBUTION. IN CASES WHERE

SUCH CHANGES MAY BE OF IMPORTANCE*

OR WHERE CONTINUITY IS DESIRED,

INSTRUCTIONS WILL EE INCLUDED FOR

UP-DATING PREVIOUSLY REPORTED

VALUES. WHEN THE VALUES REPORTED

ARE EASED ON THE ACCEPTED VALUES

OF STANDAROS OTHER THAN STANDARDS

Nl AND N2 MENTIONED ABOVE* THE

UNCERTAINTY OF THE ACCEPTED VALUE

OF THE STANDARD BECOMES A SYSTEMATIC ERROR IN THE ASSIGNMENT

OF VALUES TO OTHER STANCARDS AND

IS INCLUDED IN THE REPORT.

60
X Y Z CORPORATION

SOMEWHEREe U.S.A.

SET OF MASS STANDARDS

TEST NUMEER 654321

5KG - 1C0MG

PAGE

A BALANCE UNDER STABLE OPERATING CONDITIONS WILL EXHIEIT A CERTAIN CHARACTERISTIC VARIABILITY

WHICH CAN BE DESCRIEED EY THE

STANDARD DEVIATION FOR SUCH

MEASUREMENTS. THE VALUE FOR A PARTICULAR WEIGHT DETERMINED IN REPEATED TESTS WITH THE SAME

WEIGHING DESIGN WILL HAVE ITS OWN

STANDARD DEVIATION WHICH WILL EE

SOME FUNCTION OF THE BALANCE

PRECISION AND (POSSIBLY) CF THE

BETWEEN-RUN COMPONENT. AS AN

OUTER LIMIT OF THE DISTRIBUTION OF

RANDOM EFRCRSe THREE TIMES THE

STANDARD DEVIATION IS USED.

SYSTEMATIC ERRORS DUE TO THE

PROCEDURES USED OR TC ENVIRONMENTAL EFFECTS ARE LARGELY

BALANCED OUT AND CAN LSUALLY BE

REGARDED AS NEGLIGIBLE. WHEN A NON-NEGLIGIBLE BOUND TO THE

POSSIBLE EFFECT FROM KNCWN SOURCES

IS AVAILABLEe IT IS CALCULATED AND

REPORTED SEPARATELY, E.G.* THE

UNCERTAINTY OF ACCEPTED VALUE AT

OTHER THAN THE I KILOGRAM LEVEL.

THE DISTRIBUTION IMFLIED BY THE

RANDOM ERRORS MAY THUS EE CENTERED

SOMEWHERE IN THE RANGE GIVEN EY

THE BOUNDS TO THE SYSTEMATIC

ERROR. THE TOTAL UNCERTAINTY IS

TAKEN AS THE SUM OF THESE TWO

COMPONENTS.

THE

WITH THE

THOUGHT

DEPARTUR

FROM A THAT WOU

POSSIBLE

MANY TI

CONDITIO

WEIGHT

STANDARD

UNCERTAI

VALUES

MEASUREM

OVER SOM

UNCERTAINTY

ASSIGNED VA

OF AS A EC

E OF THE ASS

HYPOTHETICAL A LD EE OBTAINED

TC REPEAT THE

*ES OVER A WID

NSe E.G. •UB FOR CNE CF

S. THIS MEA

NTY BAND CENT

ETAINED FROM E ENTS OF THE

E ARBITRARY TI

ASSOCIATED

LUE CAN EE

UNO TO THE

IGNED VALUE

VERAGE VALUE

IF IT HERE

MEASUREMENT

E VARIETY OF

STITUTE THE

THE CHECK

NS THAT THE

ERED ON THE

ACH OF TWO

SAME CEJECT

ME INTERVAL

SHOULD ALMCST ALWAYS OVERLAP. IN

OTHER WORDS. WHILE A SECOND MEASUREMENT WILL PRODUCE A DIFFERENT

VALUE* THIS VALUE WILL ONLY RARELY

DIFFER FRCM THE FIRST VALUE BY

MORE THAN THE SUM OF THE TWO

UNCERTAINTIES. THE UNCERTAINTY

BANDS ARE NOT EXPECTED TC OVERLAP

IF SOME EVENT HAS OCCURRED IN THE

TIME INTERVAL EETWEEN THE TWO MEASUREMENTS WHICH WILL CHANGE THE

MASS OF THE OBJECT. E.G.. ABRASIONS. ABUSE, CORROSION, IMPROPER

CLEANING AND THE LIKE.

THE UNCERTAINTY IN ASSIGNED

VALUE CONTAINED IN THIS REPORT

BECOMES A SYSTEMATIC EFFECT FOR

THE MEASUREMENT PROCESS IN WHICH

THESE WEIGHTS ARE TO BE USED. IN THE ABSENCE CF OTHER SIGNIFICANT

SYSTEMATIC EFFECTS IN THE USER'S

MEASUREMENT PROCESS (A CONDITION

WHICH MUST BE DEMONSTRATED) THE

UNCERTAINTY OF THE VALUE ASSIGNED

BY THE USER IS AN APPROPRIATE

COMBINATION OF THE SYSTEMATIC

ERROR IN THE STANDARD AND THE

RANDOM CCMPONENT ASSOCIATED WITH

HIS PROCESS. IF THE MEASUREMENT

PROCESSES ARE IN CONTROL AND

APPROPRIATE UNCERTAINTIES ARE

ASSIGNED, THE VALUES PRODUCED BY

DIFFERENT MEASUREMENT FACILITIES

WILL HAVE OVERLAPPING UNCERTAINTY

BANDS AS DESCRIBED AECVE. ONE

CANNOT DISCUSS DIFFERENCES IN

VALUES FCR THE SAME OBJECT

OBTAINED BY DIFFERENT FACILITIES

WITH ANY CEGREE OF SERIOUSNESS UNLESS EACH VALUE IS ACCOMPANIED BY

A REALISTIC UNCERTAINTY STATEMENT.

61
X Y Z CORPORATION PAGE ! SOMEWHERE. U.S.A.

SET OF MASS STANDARDS i 5KG - IOOMG

TEST NUMEER 654321

REFERENCES

THE FOLLOWING REFERENCES ARE SUGGESTED FOR DETAILED DESCRIPTION OF

PORTIONS OF THIS REPORT t AND FOR GENERAL INFORMATION CONCERNING THE

MASS MEASUREMENT PROCESS:

1. PONTIUS. P. E.« AND CAMERON* J. M.

REALISTIC UNCERTAINTIES AND THE MASS MEASUREMENT PROCESS

NAT. EUR. STAND. (U.S.). MCNOGR. 103

(AUG. 15. 1967)

2. PONTICS. P. E.

MEASUREMENT PHILOSOPHY OF THE PILOT PROGRAM FOR MASS CALIBRATION

NAT. EUR. STAND. (U.S.) TECF. NOTE 28S

(MAY €. 1966)

3. BOWMAN, h. A*. ANC SCHOONCVER. R. M. WITH APPENDIX BY MILDRED JONES

PROCEOURE FOR HIGH PRECISION DENSITY DETERMINATIONS BY HYCRCSTATIC

WEIGHING

J. RES. NAT. BUR. STAND. (U.S.) 71C. ENGINEERING AND INSTRUVENTAT ION

NO. 3c 179-198 (JULY-AUG. 1967)

4.NATRELLA. M. B.

EXPERIMENTAL STATISTICS

NAT. EUR. STAND. (U.S.) HANDBOOK 91

(AUGUST 1. 1963)

5.KU. H. H.

PRECISION MEASUREMENT AND CALIBRATION - SELECTED NBS FAPERS ON

STATISTICAL CONCEPTS AND PFCCEDURES

NAT. EUR. STAND. (U.S.) SPEC. PUBL. 300

VOL. 1 (FEB. 1969)

6. PONTIUS, P. E.

MASS AND MASS VALUES

NAT. EUR. STAND. (U.S.) MCNCGR. 133

(JAN. 1974)

7.CAMERCN. J. M.. CROARKINt C. C. AND RAYBOLD. R. C.

DESIGNS FOR THE CALIERATICN OF STANDARDS OF MASS

NAT. EUR. STAND. (U.S.) TECF. NOTE 952

(JUNE 1977)

8.VARNER. R. N*. AND RAYBOLDc R. C.

NATIONAL BUREAU OF STANDARDS MASS CALIBRATION COMPUTER SOFTWARE

NAT. EUR. STAND. (U.S.) TECH. NOTE

(IN PROCESS)

62
X Y Z CCFPCRATICN PAGE

SOMEWHEREe U.S.A.

SET OF M*SS STANDARDS : 5KG - IOOMG

TEST NUMBER 654321

to es puelished:

9. PONTICS. P. E.

THE ACCEPTED VALUES AND ASSOCIATED UNCERTAINTY ESTIMATES CF THE N3S

STANDARDS AT THE 1 KG LEVEL

NAT. EUR. STAND. (U.S.) TECh. NQTE

(EXPECTED COMPLETION: 1975)

10. PONTIUS. P. E.

DOCUMENTATION FOR THE MASS MEASUREMENT PROCESS AT NBS

NAT. EUR. STAND. (U.S.) TECh. NOTE

(EXPECTEC COMPLETION: 1974)

63
X Y Z CORPORATION

SOMEWHEREc U.S.A.

SET OF MASS STANDARDS

TEST NUMEER 654321

5K6 - 100MG

PAGE 7

SERIES 1 5/24/79

EALANCE 1 OPERATOR 84

ACCEPTED IftlTHIN STANDARD DEVIATION CF THE PROCESS

ACCEPTED EETWEEN STANDARO DEVIATION OF THE PROCESS

1*16000 MG

•00000 MG

CALIBRATION CESIGN S3

RESTRAINT VECTOR 11

MASS CORRECTION OF RESTRAINT 23.06600 MG

VOLUME OF WEIGHTS BEING USED IN RESTRAINT AT 22*10 C 249.82820 CM3

SYSTEMATIC ERROR IN THE RESTRAINT .07600 MG

3 STANDARD DEVIATION LIMIT FOR RANDOM ERROR AFFECTING RESTRAINT .00000 MG

CHECK STANDARD USED 2

CHECK STANDARD VECTOR 1 ACCEPTED MASS CORRECTION CF CH6CK STANOARO

REPORT VECTOR 1110 -1

-•30400 MO

TEST CONDITIONS

CORRECTED TEMPERATURE IN OEGREES C

CORRECTED FRESSURE IN WW HG

CORRECTED HUMIDITY IN PERCENT

COMPUTED AIR DENSITY IN MG/CM3

TEMPERATURE CORRECTICN

PRESSURE CORRECTION

HUMIDITY CORRECTION

OBSERVED TEMPERATURE IN OEGREES C

OBSERVED PRESSURE IN MM »-G OBSERVED HUMIDITY IN PERCENT

BEFORE AFTER AVERAGE

21*90 22.22 22.10

733*680 734*060 733.880

41*00 41.09 41.00

1*1S0S 1.1501 1.1503

• 000 • 000

• 000 • 000

• 00 • 00

21.98 22*22

733*680 734*060

41.00 41*00

Vi/EIGHTS BEING

TESTED

NOMINAL OENSITV COEFFICIENT ACCEPTED

VALUE G G/CM3 AT 20C OF EXPANSION CORRECTION MG

5KG

3KG

2KG

S 1KG-1

S 1KG-2

5000.COOO

3000.0000

2000.0000

1000.0000

1000.0000

7.9530

7.9530

7.9000

8.0064

6.0063

•000045

•000045

•000045

•000045

•000045

11.24100

11.62500

64
X Y Z CORPORATION PAGE 8

SOMEWHERE* U.S.A. SERIES 1 SET OF MASS STANDARDS i 5KG - 1O0MG 5/24/79

TEST NUMEER 6S4321

BALANCE 1 OPERATOR 84

CALIBRATION DESIGN 53

GRAMS

50C0 3000 2000 1C00

A 1 + - - +

A 2 - + + +

A 3 + - -

A 4 - + +

A 5 - + + A 6 + -

A 7 + -

A 8 +

R +

1000

OBSERVATIONS IN DIVISIONS

SINGLE TRANSPOSITION T*C PAN EALANCE

A 1 4.7000 15.2000 5.0000 5.4000 12.5000 5.5000

7.3000 15.0000 7.4000

A 2 5.8000 12.4000. 6.2000 5.6000 14.1000 5.9000

7.8000 16.4000 8.2000

A 3 6.4000 13.6000 6.5000 4.4000 13.4000 4.5000

7.2000 15.2000 7.3000

A 4 4.8000 13.4C00 5.0000 5.4000 15.2000 5.7000

7.3000 17.4000 7.6000

A 5 6.0000 14.8000 6.3000 5.30C0 13.0000 5.4000

6.7000 16.CO0O 7.0000

A 6 5.2000 13.0000 5.3000 5.4000 16.0000 5.6000

9.2000 16.5000 5.3000

A 7 5.9000 14.0000 6.2000 5.9000 13.4000 6.2000

7.3000 16.2000 8.0000

A 8 5.9000 13.9000 6.1000 5.0000 14.8000 5.2000

8.6000 15.8C00 8.6000

65
X Y Z COPPCRATICN PAGE 9

SOMEWHERE. U.S.A. SERIES 1 SET OF M*SS STANDARDS t 5KG - 100MG 5/24/79

TEST NUMEER 654321

BALANCE 1 OPERATOR 84

CALIBRATICN DESIGN 53

SENSITIVITY WEIGHT

MASS 49.98277 MG

VOLUME .00301 CM3 AT 20 C

COEFFICI ENT OF EXPANSION .000020

S*=S -PV(S)= 49.97931 MG

AVERAGE OBSERVED

A(I ) DELTAd ) SENSITIVITY ZEROd ) SENSITIVITY

(MG) (MG) (MG/DIV) (DIV) ( MG/DIV)

A 1 11.72699 .39524 22.33712 9.50000 22.71787

A 2 -8.09721 2.22116 22.33712 9.56250 21 .96893

A 3 12.63844 1.81339 22.97899 9.47500 21 .72013

A 4 -14.07463 -.01255 22.97899 9.76250 24.3e015

A 5 14.85099 -2.10971 22.84768 9.82500 22.21303

A 6 * -ie. 56374 -2.10973 22.84768 9.93750 23.51967

A 7 3.22447 -.01255 21.49648 9.87500 21 .49648

A 8 •00000 -.50669 22.21302 9.95000 22.21302

* OESERVED DEFLECTION IS GREATER THAN OR EQUAL TO ONE FCURTH THE

SENSITIVITY DEFLECTION

VOLUME SYSTEMATIC 3 S.D. UNCERTAINTY

ITEM CORRECTICN (AT T) ERRCR LIMIT LIMIT

(G) (MG) (CM3) (MG) (MG) (MG)

5000.0000 63.07702 628.76090 •19000 5.45493 5.64493

3000.0000 24.0ie€3 377.25480 •11400 3.57109 3.68509

2000.0000 30.17279 253.19230 •07600 2.60795 2.68395

1000.0000 1 1.78548 124.91335 •03800 •92205 .96005

100C.00C0 11.28052 124.91485 •03800 .92205 .96005

TEMPERATLRE T= 22.10 C RESTRAINT FCR FOLLOWING SERIES

RESTRAINT VECTOR 11

MASS CORRECTICN 23.06600 MG

VOLUME AT 20 C 249,80460 CM3

SYSTEMATIC ERROR .07600 MG

3 STANDARD DEVIATION LIMIT .00000 MG

66
X Y Z CORPORATION

SOMEWHEREs U.S.A.

SET OF MASS STANDARDS

TEST NUMEER 654321

SKG - 100MG

PAGE 10

SERIES 1 5/24/79

BALANCE 1 OPERATOR 84

MAXIMUM LOAD 6CC0.C000 G

STARTING RESTRAINT NUMEER 80

CALIBRATION DESIGN 53

PRECISION CONTROL

OBSERVED STANDARD DEVIATION OF THE PROCESS

ACCEPTED STANDARD DEVIATION CF THE PROCESS

DEGREES CF FREEDOM 4

F RATIO 3.315

2.09386

1.15000

MG

MG

F RATIO IS LESS THAN 3.33 (CRITICAL VALUE FOR PPOBAEILITY = THEREFORE THE STANDARD DEVIATION IS IN CONTROL.

.01),

CHECK STANDARD VECTOR 1-1

CHECK STANDARD USED 2

ACCEPTED MASS CORRECTION OF CHECK STANDARD -.58400 MG

OBSERVED CORRECTION CF CHECK STANDARD .50497 MG

STANDARD DEVIATION OF THE CESERVED CORRECTION .61470 MG

T VALUE 1.77

ABSOLUTE VALUE CF T IS LESS THAN 3.

THEREFORE CHECK STANDARD IS IN CONTROL.

TEST CONDITIONS

CORRECTED TEMPERATURE IN OEGREES

CORRECTED PRESSURE IN *M HG

CORRECTED HUMIDITY IN PERCENT

COMPUTED AIR DENSITY IN l*G/CM3

TEMPERATURE CCRRECTICN

PRESSURE CORRECTION

HUMIDITY CORRECTION

OBSERVED TEMPERATURE

OBSERVED PRESSURE IN

OBSERVED HUMDITY IN

IN DEGREES

MM HG

PERCENT

BEFORE AFTER AVERAGE

21.98 22.22 22.10

733. 6e0 734.080 733.880

41.00 41 .00 41 .00

1.1505 1.1501 1 .1503

• 000 • 000

.000 .000

• 00 • 00

21.98 22.2 2 733.680 734.080

41.00 41.00

67
X Y Z CORPORATION

SOMEWHERE* U.S.A.

SET OF MASS STANDARDS

TEST NUMEER 654321

5KG - 100MG

PAGE 11

SERIES 2 5/23/79

BALANCE 3

OPERATOR 84

ACCEPTED WITHIN STANDARD DEVIATION OF THE PROCESS

ACCEPTED EETWEEN STANDARD DEVIATION OF THE PROCESS

•028C0 MG

.00000 MG

CALIBRATION DESIGN 41

RESTRAINT

MASS CORRECTION

VECTOR

OF RESTRAINT

110

23.06600 MG

VOLUME OF WEIGHTS BEING USED IN RESTRAINT AT 21.91 C 249.82613 CM3

SYSTEMATIC ERROR IN THE RESTRAINT .07600 MG

3 STANDARD DEVIATION LIMIT FOR RANDOM ERROR AFFECTING RESTRAINT .00000 MG

CHECK STANDARD USED 2

CHECK STANDARD VECTOR 1-10

ACCEPTED MASS CORRECTION OF CHECK STANDARD

REPORT VECTOR 10 -.58400 MG

TEST CONDITIONS

CORRECTEC TEMPERATURE IN OEGREES

CORRECTEC PRESSURE IN MV HG

CORRECTED HUMIDITY IN PERCENT

COMPUTED MR DENSITY IN MG/CM3

TEMPERATURE CORRECTION

PRESSURE CORRECTION

HUMIDITY CORRECTION

OBSERVED TEMPERATURE IN DEGREES < OBSERVED PRESSURE IN MM HG

OBSERVED HUMIDITY IN PERCENT

BEFORE

21.91

736.860

40.00

1.1559

.000

.000

• 00

21.91

736.860

40.00

AFTER

21.92

736.760

40.00

1.1557

.000

.000

• 00

21.92

736.760

40.00

AVERAGE

21.91

736.810

40.00

1.1558

WEIGHTS BEING

TESTED

NOMINAL

VALUE G

DENSITY

G/CM3 AT 20C

COEFFICIENT

OF EXPANSION

ACCEPTED

CORRECTION MG

S 1KG-1

S 1KG-2

1KG

SUM 1KG

1000. COOO

1000.COOO

1000. COOO

1000.0000

6.0064

8.0063

7.9530

7.9264

.000045

.000045

•000045

•000045

1 1.24100

11.82500

68
X V Z CGfiPGKATICN PAGE 12

SOMEWHERE* U.SeA* SERIES 2 SET OF MASS STAKOAROS t SK6 - 100MG 5/23/79

TEST NUMBER 65*321

BALANCE 3

OPERATOR 64

CALIBRATION CESI6N 1

GRAMS

1000 1000 1000

A 1 -

A 2 -

A 3 A 4 -

A S

A 6

R

1000

OBSERVATICNS IN DIVISIONS

DOUBLE SUBSTITUTION CNE PAN EALAKCE

A 1 16*7400 17.3400 67*3700 66*7300

A 2 16.8500 11*2400 6i*ieoo 66*7700

A 3 16.8400 13*1700 63*1100 66*7600

A 4 17.3200 11*1300 61*0600 67*2300

A 5 17.2200 13*0200 62*9300 67*1600

A 6 10.9200 12*8200 62*8600 60*8400

69
X Y Z CORPORATION PAGE 13

SCMEWHEREe U.S.A. SERIES 2

SET OF MASS STANDARDS : 5KG - 100MG 5/23/79

TEST NUMEER 654321

BALANCE 3

OPERATOR 84

CALIBRATION CESIGN 41

SENSITIVITY WEIGHT

MASS 49.98277 MG

VOLUME .00301 CM3 AT 20 C

COEFFICIENT OF EXPANSION .OOC020

S*=S-PV(S)= 49.97929 MG

AVERAGE OBSERVED

A(I) DELTA(I) SENSITIVITY DRIFT(I) SENSITIVITY

(MG) (MG) (MG/DIV) (MG) (MG/DIV)

A 1 -.61998 -.02625 .99997 -.02000 •99859

A 2 5.59983 •00501 .99997 -.01000 I ,00059

A 3 3.65989 .02125 •99997 -.01000 1 .00059

A 4 6. 17981 -.00875 •99997 -.01000 1 .00079

A 5 4.21487 -.01750 •99997 •01500 1.00169

A 6 -1 .95994 -.00375 .99997 -.06000 .99759

VOLUME SYSTEMATIC 3 S.D. UNCERTAINTY

]ITEM CORRECTION (Al T) ERRCR LIMIT LIMIT

(G) (MG) (CM3) (MG) (MG) (MG)

1000. 0000 11 .23519 124. 91225 • 03800 • 02970 .06770

1000. 0000 11 •83082 124. 91388 •03800 • 02970 .06770

1000. 0000 6 .60911 125. 75038 •03800 • 05144 .08944

1000. 0000 9 .05323 126. 17253 •03800 • 05144 .08944

TEMPERATURE T= 21.91 C RESTRAINT FCR FOLLOWING SERIES

RESTRAINT VECTOR 1 MASS CORRECTION 9.05323 MG

VOLUME AT 20 C 126.16166 CM3

SYSTEMATIC ERRCR .03800 MG

3 STANDARD DEVIATION LIMIT .05144 MG

70
X Y Z CORPORATION

SOMEWHERE* U.S.A.

SET OF MASS STANDARDS

TEST NUMEER 654321

5KG - 100MG

PAGE 14

SERIES 2

5/23/79

BALANCE 3

OPERATOR 84

MAXIMUM LOAD 1O00.0COO G

STARTING RESTRAINT NUMEER 80

CALIBRATION DESIGN 41

PRECISION CONTROL

OBSERVED STANDARD DEVIATION CF THE PROCESS

ACCEPTED STANDARD DEVIATION CF THE PROCESS

DEGREES CF FREEDOM 3 F RATIO .664

.02282

.02800

MG

MG

F RATIO IS LESS THAN 3.79 (CRITICAL VALUE FOR PROBAEILITY = THEREFORE THE STANDARD DEVIATION IS IN CONTROL.

01 )

CHECK STANDARD VECTOR 1-10

CHECK STANDARD USED 2 ACCEPTED MASS CORRECTION OF CHECK STANDARD

OBSERVED CORRECTION CF CHECK STANDARD

STANDARD DEVIATION OF THE OBSERVED CORRECTION

T VALUE -.59

-.58400 MG

-.59562 MG

.01980 MG

ABSOLUTE VALUE CF T IS LESS THAN 3.

THEREFORE CHECK STANDARD IS IN CCNTROL.

TEST CONDITIONS

CORRECTED TEMPERATURE IN DEGREES

CORRECTEC PRESSURE IN VV HG

CORRECTED HUMIDITY IN PERCENT

COMPUTED AIR DENSITY IN MG/CM3

TEMPERATURE CORRECTICN

PRESSURE CORRECTION

HUMIDITY CORRECTION

OBSERVED TEMPERATURE IN DEGREES I OBSERVED PRESSURE IN MM FG

OBSERVED HUVIDITY IN PERCENT

BEFORE AFTER AVERAGE

21.91 21.92 21 .91

736.860 736.760 736.810

40.00 40.00 40.00

1. 1E59 1.1557 1.1558

• 000 .000

.000 .000

.00 .00

21.91 21.92

736.860 736.760

40.00 40.00

71
X Y Z CORPORATION

SOMEWHERE* U.S.A.

SET OF MASS STANDARDS

TEST NUMEER 654321

5KG - 100MG

PAGE 15

SERIES 3

5/23/79

BALANCE 3

OPERATOR 84

ACCEPTED WITHIN STANDARD DEVIATICN CF THE PROCESS

ACCEPTED BETWEEN STANDARD DEVIATION OF THE PROCESS

.028C0 MG

•000C0 MG

CALIBRATION DESIGN 62

MASS

RESTRAINT

CORRECTION

VECTOR

OF RESTRAINT

1110

9.05323 MG

VOLUME OF WEIGHTS BEING USED IN RESTRAINT AT 21.94 C 126.17267 CM3

SYSTEMATIC ERROR IN THE RESTRAINT .03800 MG

3 STANDARD DEVIATION LIMIT FOR RANDCM ERROR AFFECTING RESTRAINT .05144 MG

CHECK STANDARD USED 4

CHECK STANDARD VECTOR

ACCEPTED MASS CORRECTION CF CHECK STANDARD

REPCRT VECTCR 11110 .98830 MG

TEST CONDITIONS

CORRECTED TEMPERATURE IN DEGREES

CORRECTED PRESSURE IN MV hG

CORRECTEC HUMIDITY IN PERCENT

COMPUTED AIR DENSITY IN MG/CM3

TEMPERATURE CCRRECTICN

PRESSURE CORRECTION

HUMIDITY CORRECTION

OBSERVED TEMPERATURE IN DEGREES < OBSERVED PRESSURE IN MM HG

OBSERVED HUMIDITY IN PERCENT

BEFORE

21.92

736.920

40.00

1.1560

• 000

• 000

• 00

21.92

736.920

40.00

AFTER

21.96

736.580

40.0

1.1552

.000

.000

• 00

21.96

736.560

40.00

AVERAGE

21 .94

736.750

40.00

1.1556

WEIGHTS BEING

TESTED

NOMINAL

VALUE G

DENSITY

G/CM3 AT 20C

COEFFICIENT

OF EXPANSION

ACCEPTED

CORRECTION MG

SUM

500G

300G

200G

100G

100G

100G

500.0000

300.0000

200.0000

100.0000

100.COOO

100.0000

7.9000

7,9530

7.9530

7.9000

7.9530

7.9423

.000045

•000045

•000045

•000045

•000045

•000045

.98830

72
X Y Z COFFCRATICN PAGE 16

SOMEWHEREe U.S.A. SERIES 3

SET OF MASS STANDAROS : 5KG - 100MG 5/23/79

TEST NUMEER 654321

BALANCE 3

OPERATOR 84

CALIBRATION CESIGN 62

GRAMS

500 300 200 100

A 1 + - - +

A 2 + - -

A 2 + - - -

A 4 + - -

A 5 + - -

A 6 + -

A 7 + - -

A 8 - -

A 9 -

A 10 + - All

R + + +

100 100

OBSERVATIONS IN DIVISIONS

DOUBLE SUBSTITUTION CNE PAN EALANCE

A 1 12.7800 10.6200 6C.6300 62.8600

A 2 13.0200 12. £900 62.5400 62*9600

A 3 14.e60C 10.7500 60.7300 64*8800

A 4 12.8600 10.6100 60.5400 62.8200

A 5 12.9100 13*5800 63.5400 62*8100

A e 10.8700 13.4400 63.3300 60*8400

A 7 10.9400 13.2300 63.2600 60*8200

A 8 12.6900 11.4400 6l.3e00 62.6600

A 9 11.1800 11.7100 61*6800 61.1400

A 10 11.1800 13.E000 63.3800 61.1 100

A 11 11.0900 13.4400 63*4000 60*9600

73
X Y Z CQRPGRATICN PAGE 17

SOMEWHEREc U.S.A. SERIES 3

SET OF MASS STANDARDS : 5KG - 100MG 5/23/79

TEST NUMEER 654321

BALANCE 3

OPERATOR 84

CALIBRATION CESIGN 62

SENSITIVITY WEIGHT

MASS 49.98277 VG

VOLUME .00301 CM3 AT 20 C

COEFFICIENT OF EXPANSICN .000020

S*=S-PV(S)= 49.97929 MG

AVERAGE OESERVED

A(I ) DELTAd ) SENSITIVITY DRIFT(I) SEN SITIVITY

(MG) (MG) (MG/DIV) (MG) (MG/DIV)

A 1 2.19S70 •00092 1.00032 .03501 1 .CC009

A 2 .42514 -.00556 1.00032 -.00500 1 •0C049

A 3 4.13132 -.01335 1.00032 •02001 1 •00039

A 4 2.26621 •00950 1.00054 •01501 1 •C0129

A 5 -.70038 •00849 1.00054 -.03002 .99979

A 6 -2.53351 -.00805 1.00139 •04006 1 •00259

A 7 -2.41835 -.01675 1.00139 -•02503 1 .00049

A e 1.26676 .01632 1.00139 .01502 1 .00109

A 9 -.53537 -.03332 1.00069 -.00500 1 .00009

A 10 -2.29658 .03149 1.00069 •02502 1 .00249

A 11 -2.39664 -.00665 1.00069 -.04503 .99949

VOLUME SYSTEMATIC 2I S.D. UNCERTAINTY

ITEM CORRECTICN (AT T) ERROR LIMIT LIMIT

(G) (MG) (CM3) (MG) (MG) (MG)

500. 0000 5 .69889 63.29741 .01900 < 03233 •05133

300. 0000 1 .75036 37.72513 •01140 . 02945 •04085

200. 0000 1 •40395 25.15011 •00760 . 02443 .0 320 3 100. 0000 1 .01957 12.65946 .00360 . 03027 .03407

100. 0000 •98400 12.57509 •00380 • 03027 .0 340 7

100. 0000 2 •82980 12..59220 •00380 t 03027 .03407

TEMFERATURE T= 21.94 C

RESTRAINT FCR FCLLCWING SERIES

RESTRAINT VECTCR 1 MASS CORRECTION 2.82980 MG

VOLUME AT 20 C 12.59110 CM3

SYSTEMATIC ERROR .00380 MG

3 STANOARD DEVIATION LIMIT .03027 MG

74
X Y Z CCFPCPATICN PAGE 18

SOMEWHEREe U.S.A. SERIES 3

SET OF MASS STANDARDS : 5KG - 100MG 5/23/79

TEST NUMEER C54321

EALANCE 3

OPERATOR 84

CALIBRATION DESIGN 62

SUM HEIGHTS USED FCR THE LINEAR COMBINATIONS

(G) GRAMS

50C 300 200 100 100 100

600 + +

VALUES AND UNCERTAINTIES FCR COMBINATIONS OF WEIGHTS

(UNCERTAINTY IS 3 STANDARD DEVIATION LIMIT PLUS ALLOWANCE FOR

SYSTEMATIC ERROR.)

3 S.D. UNCERTAINTY

SUM CORR SYSTEMATIC ERROR LIMIT

(G) (MG) (MG) (MG) (MG)

600 6.51847 .02280 .04750 .07030

75
X Y Z CORPORATION

SOMEWHEREc U.S.A.

SET OF MASS STANDARDS

TEST NUMEER 654321

5KG - 100MG

PAGE 19

SERIES 3

5/23/79

BALANCE 3

OPERATOR 84

MAXIMUM LOAD 600.CC00 G

STARTING RESTRAINT NUMBER 80

CALIBRATION CESIGN 62

PRECISION CONTROL

OBSERVED STANDARD OEVIATIGN CF THE PROCESS

ACCEPTED STANDARD DEVIATION CF THE PROCESS

DEGREES CF FREEDOM 6

F RATIO .665

•02284

•02800

MG

MG

F RATIO IS LESS THAN 2.81 (CRITICAL VALUE FOR FROBAEILITY

THEREFORE THE STANDARD DEVIATION IS IN CONTROL.

= .01)

CHECK STANDARD VECTOR

CHECK STANDARD USEO 4

ACCEPTED MASS CORRECTION OF CHECK STANDARD

OBSERVEO CORRECTION CF CHECK STANDARD

STANDARD DEVIATION CF THE OBSERVED CORRECTION

T VALUE -.43

•98830 MG

•98400 MG

•01009 MG

ABSOLUTE VALUE CF T IS LESS THAN 3.

THEREFORE Ct-ECK STANOARO IS IN CONTROL.

TEST CCNOITICNS

CORRECTED TEMPERATURE IN DEGREES

CORRECTED PRESSURE IN I'M t-.G CORRECTED HUMIDITY IN PERCENT

COMPUTED AIR DENSITY IN PG/CM3

TEMPERATURE CCRRECTICN

PRESSURE CORRECTION

HUMIDITY CORRECTION

OBSERVED TEMPERATURE IN DEGREES < OBSERVED PRESSURE IN MM HG

OBSERVED HUMIDITY IN PERCENT

BEFORE AFTER AVERAGE

21.92 21.96 21 .94

736.920 736.560 736.750

40.00 40.00 40.00

1.1560 1.1553 1.1556

• 000 • 000

• 000 • 000

• 00 • 00

21.92 21 .96

736.920 736.560

40.00 40.00

76
X Y Z CORPORATION

SOMEWHEREo U.S.A.

SET OF MASS STANDARDS

TEST NUMEER €54321

5KG - 100MG

PAGE 20

SERIES 4

5/17/79

BALANCE 5

OPERATOR 84

ACCEPTED t&ITHIN STANDARD DEVIATION OF THE PROCESS

ACCEPTED EETtoEEN STANDARD DEVIATION OF THE PROCESS

.01200 MG

.00000 MG

CALIBRATION DESIGN 62

RESTRAINT VECTOR 1 11

MASS CORRECTION OF RESTRAINT

VOLUME OF HEIGHTS BEING USED IN RESTRAINT AT 21.97 C SYSTEMATIC ERROR IN THE RESTRAINT

3 STANDARD CEVIATION LIMIT FOR RANDOM ERROR AFFECTING RESTRAINT

2.82980 MG

12.59222 CM3

•00380 MG

.03027 MG

CHECK STANDARD USED 6

CHECK STANDARD VECTOR

ACCEPTED MASS CORRECTICN OF CHECK STANDARD

REPORT VECTOR 11110 .07850 MG

TEST CONDITIONS

CORRECTED TEMPERATURE IN DEGREES

CORRECTED PRESSURE IN V* hG

CORRECTED HUMIDITY IN PERCENT

COMFUTED AIR DENSITY IN MG/CM3

TEMPERATURE CORRECTICN

PRESSURE CORRECTION

HUMIDITY CCRRECTION

OBSERVED TEMPERATURE IN DEGREES I OBSERVED FRESSURE IN MM l-G OBSERVED HUMIDITY IN PERCENT

BEFORE

21.99

746.600

31.00

1.1720

• 000

• 000

.00

21.99

746.600

31.00

AFTER

21.96

746.000

31 .00

i.i7i;

.000

.000

.00

21 .96

746.000

31.00

AVERAGE

21.97

746.300

31 .00

1.1716

WEIGHTS EEING

TESTED

NOMINAL

VALUE G DENSITYG/CM3 AT 20C

COEFFICIENT

OF EXPANSION

ACCEPTED

CORRECTION MG

50G

30G

20G

10G

S 10G

SUM 10G

50.0000

30. COCO

20.0000

10.0000

10.00C0

10.0000

7.9530

7.9530

7.9000

7.9530

7.9530

7.9264

.000045

•OC0045

•000045

•000045

.000045

•000045

•07850

77
X Y Z CORPORATION PAGE 21

SOMEWHERE* U.S.A. SERIES 4

SET OF MASS STANDAROS : 5KG - 100MG 5/17/79

TEST NUMBER 654321

BALANCE 5

OPERATOR 84

CALIBRATION CESIGN 62

GRAMS

50 30 20 10

A 1 f - - +

A 2 + - -

A 3 + - - -

A 4 - -

A S - -

A 6 - +

A 7 + - -

A 6 + - -

A 9 -

A 10 -

A 11 + R

10 10

OBSERVATIONS IN DIVISIONS

DOUBLE SLBSTITUTION CNE PAN BALANCE

A 1 6.1600 4.6900 54.7100 56.2000

A 2 6.1700 4.7200 54.7100 56.1500

A 3 6.1400 4.7600 54.7600 56.140C

A 4 6.1900 4.7400 54.7200 £6.1800

A e 6.1800 4.4700 £4.4500 £6.1800

A 6 4.8100 4.4400 £4.4400 54.6100

A 7 4.7900 4.4900 £4.4700 54.7500

A e 4.7600 4.5100 £4.4900 54.7400

A 9 4.5200 4.5500 £4.5200 54.49C0

A 10 4.4800 4.5200 54.5000 54.4700

A 11 4.4700 4.4700 £4.4600 £4.4700

78
X Y Z CCFPCFATICN PAGE 22

SOMEWHERE* U.S.A. SERIES 4

SET OF MASS STANDARDS i 5KG - 100MG S/17/79

TEST NUMEER 654321

EALANCE 5

OPERATOR 84

CALIBRATION DESIGN 62

SENSITIVITY WEIGHT

MASS 49.9e277 MG

VOLUME .00301 CM3 AT 20 C

COEFFICIENT OF EXPANSICN .000020

S*=S-PV(S)= 49.97924 MG

AVERAGE OBSERVED

A( I ) DELTAd ) SENSITIVITY DRIFT(I) SENSITIVITY

(MG) (MG) (MG/DIV) (MG) (MG/OIV)

A 1 1.48923 .00353 .99948 .00000 .99919

A 2 1 .44426 -.00 895 •99948 -.00500 •99968

A 3 1.37929 -.00582 .99948 .00000 •99958

A 4 1.45520 .01386 1.00013 .00500 l.ocooe

A 5 1.72023 -.00262 1.00013 •01000 1*00018

A 6 •36992 •00046 .99978 •00000 •999S8

A 7 .28994 •00920 .99978 -.01000 •99978

A 8 .24995 -•00704 .99978 •00000 •99998

A 9 -.03000 •01358 1.00005 -.00000 1*00018

A 10 -.03500 -.00330 1.00005 •00500 1 .00008

A 11 •C0500 -.00766 1 .00005 .00500 •99988

VOLUME SYSTEMATIC 21 S.D. UNCERTAINTY

ITEM CORRECTICN CAT T) ERRCP LIMIT LIMIT

(G) (MG) (CM3) (MG) (MG) (MG)

50. 0000 21.12579 6 .28776 •00190 • 01731 ,01921

30. 0000 .53569 3 .77256 •00 114 « 01407 .01521

20. COCO .16821 2 .53189 .00076 . 01126 .01202

10. 0000 .1 1825 1 .25751 •00038 t 01314 .01352

10. oooc •073ea 1 .25751 •00038 • 01314 .01352

10. 0000 .06695 1 .26173 •00028 t 01314 .01352

TEMPERATLPE T= 21.97 C RESTRAINT FCR FCLLOWING SERIES

RESTRAINT VECTOR 1 MASS CORRECTION .06695 MG

VOLUME AT 20 C 1.26161 CM3

SYSTEMATIC ERRDR .00038 MG

3 STANDARD DEVIATION LIMIT .01314 MG

79
X Y Z CORPORATION

SOMEWHERE* U.S.A.

SET OF MASS STANDARDS

TEST NUMEER 654321

5KG - 100MG

PAGE 23

SERIES 4

5/17/79

BALANCE S

OPERATOR 84

MAXIMUM LOAD 60.0000 G

STARTING RESTRAINT NUMBER 80

CALIBRATION DESIGN 62

PRECISION CCNTRCL

OBSERVED STANDARD DEVIATION OF ThE PROCESS

ACCEPTED STANDARD DEVIATION OF THE PROCESS

DEGREES OF FREEDOM 6 F RATIO .826

•01091

•01200

MG

MG

F RATIO IS LESS THAN 2.81 (CRITICAL VALUE FOR PROBABILITY = .01).

THEREFORE THE STANDARD DEVIATION IS IN CONTROL.

CHECK STANDARD VECTOR

CHECK STANOARD USED 6

ACCEPTED MASS CORRECTION OF CHECK STANDARD

OBSERVED CORRECTION OF CHECK STANDARD

STANDARD DEVIATION OF THE CESEFVED CORRECTION

T VALUE -1.06

ABSOLUTE VALUE OF T IS LESS THAN 3.

THEREFORE CHECK STANDARC IS IN CCNTRCL.

TEST CONDITIONS

CORRECTEC TEMPERATURE IN DEGREES C

CORRECTED PRESSURE IN MM HG

CORRECTED HUMIDITY IN PERCENT

COMFUTED AIR DENSITY IN MC-/CM3

TEMFERATLRE CORRECTION

PRESSURE CORRECTION

HUMIDITY CORRECTION

OBSERVED TEMPERATURE IN DEGREES C

OBSERVED PRESSURE IN MM hG

OBSERVED HUMIDITY IN PERCENT

•07850 MG

.07388 MG

•00438 MG

BEFORE AFTER AVERAGE

21.99 21.96 21.97

746.600 746.000 746.300

31.00 31 .00 31 .00

1.1720 1.1712 1 .1716

• 000 • 000

.000 .000

.00 • 00

21.99 21 .96

746.600 746.000

31.00 31.00

80
X Y Z CORPORATION

SOMEWHERE^ U.S.A.

SET OF MASS STANDARDS

TEST NUMEEP €54321

SKG - 100MG

PAGE 24

SERIES 5

5/18/79

BALANCE 7

OPERATOR 84

ACCEPTED WITHIN STANDARD DEVIATICN GF THE PROCESS

ACCEPTED EETWEEN STANDARD DEVIATICN OF THE PROCESS

.00170 MG

•000C0 MG

CALIBRATION DESIGN 62

RESTRAINT

MASS CORRECTION

VECTOR

OF RESTRAINT

1110

VOLUME OF WEIGHTS BEING USED IN RESTRAINT AT 21.90 C SYSTEMATIC ERROR IN THE RESTRAINT

3 STANDARD DEVIATION LIMIT FOR RANDOM ERROR AFFECTING RESTRAINT

.06695 MG

1.26172 CM3

•00C38 MG

.01314 MG

CHECK STANDARD USED 8

CHECK STANDARD VECTOR

ACCEPTED MASS CORRECTION OF CFECK STANDARD

REPCRT VECTOR 11110 -.07920 MG

TEST CONDITIONS

CORRECTED TEMPERATURE IN DEGREES

CORRECTEC PRESSURE IN MP hG

CORRECTED HUMIDITY IN FERCENT

COMPUTED AIR DENSITY IN MG/CM3

TEMFERATURE CORRECTICN

PRESSURE CORRECTICN

HUMIDITY CORRECTION

OBSERVED TEMPERATURE IN OEGREES < OBSERVED PRESSURE IN MM HG

OBSERVED HUVIDITY IN PERCENT

BEFORE

21.92

743.280

35.00

1. 1666

• 000

• 000

.00

21.92

743.280

35.00

AFTER

21.88

742.820

35.00

l.ieec

• 000

• 000

.00

21.88

742.820

35.00

AVERAGE

21 .90

743.050

35.00

1 .1663

WEIGHTS BEING

TESTED

NCMNAL

VALLE G DENSITYG/CM3 AT 20C

COEFFICIENT

OF EXPANSION

ACCEPTED

CORRECTION MC

5G

3G

2G

1G

S 1G

SUM 1C

E.OOCO

3.0000

2.0000

1 .0000

1 .0000

1.0000

7.9000

7.9530

7.9530

7.9000

7.9530

16.6000

•000045

•000045

•000045

•000045

•000045

.000020

-.C7920

81
X Y Z CdPPCPATIGN PAGE 25

SOMEHHEREo U.S.A. SERIES 5

SET OF MASS STANDARDS : 5KG - 100MG 5/18/79

TEST NUMEER 654321

EALANCE 7

OPERATOR 84

CALIBRATICN DESIGN 62

GRAMS

5 3 2 A 1 + - -

A 2 + - -

A 2 + - - A 4 + - -

A 5 + -

A e + -

A 7 + -

A 8 + -

A 9 +

A 10 +

A 11 + R + + +

OBSERVATIONS IN DIVISICKS

DOUBLE SUBSTITUTION CNE PAN EALANCE

A 1 1.0840 • 9260 5.9270 6.0840

A 2 • 9780 • 9390 5.9310 5.9720

A 3 • 9900 1 .0210 6.0210 5.9870

A 4 1.0680 1.0130 6.0090 6.0670

A 5 1.0680 .€750 5.e700 6.0630

A 6 1.0620 .6620 5.8570 6.0530

A 7 .9590 • 9660 5.9570 5.9480

A 8 .9690 • 9480 5.9420 5.9600

A 9 1 .0160 .9760 5.9660 6.0060

A 10 1.0160 • 9870 5.9810 6.0060

A 11 1.0120 • e8io 5.8720 6.0040

82
X Y Z CGPPCRATICN PAGE 2€

SOMEWHERE* U.S.A. SERIES 5

SET OF M*SS STANDARDS : 5KG - 100MG 5/18/79

TEST NUMEER 654321

BALANCE 7

OPERATOR 84

CALIBRATION DESIGN 62

SENSITIVITY HEIGHT

MASS 5.00171 MG

VOLUME .00185 CV3 AT 20 C

ccIEFF ICI ENT CF EXPANSION .00C0C9

S* = S -PV(S)= 4.99955 MG

AVERAGE OESERVED

A(I) DELTAi I) SENSITIVITY DRIFT(I) SENSITIVITY

(MG) (MG) (MG/DIV) (MG) (MG/DIV)

A 1 .15755 -.001 14 1.00031 -.00050 •99961

A 2 .04001 -.00146 1.00031 •00100 1 .0C171

A 2 -.03251 .00082 1.00031 -.00150 .99961

A 4 •05C55 .00094 1.00096 .00150 1.00101

A 5 .19319 .00085 1.00096 •00000 1 .0C091

A 6 .19619 -.00001 1.00094 -•00200 1.00051

A 7 -.00801 -.00004 1.00094 -•00100 1 .00151

A 8 .01952 -•00079 1.00094 -•00150 1 .00081

A 9 •04C06 -.00155 1.00148 •00000 1 .0C191

A 10 .02704 -.00043 1*00148 -.00200 1 .00071

A 11 .13169 •00114 1.00148 •00050 1.0C181

VOLUME SYSTEMATIC 3 S.D. UNCERTAINTY

ITEM CORRECTION (AT T) ERROR LIMIT LIMIT

(G) (MG) (CM3) (MG) (MG) (MG)

5. 0000 .06375 .63297 .00019 • 00668 .00687

3. 0000 •016€9 .37725 •00011 • 00422 .00434

2. 0000 •01348 •25150 •00008 . 00295 .00303

1. 0000 .02498 .12660 .00004 • 00224 .00228

1. 0000 .07910 .12574 .00004 . 00224 .00228

1 . 0000 .14136 •06023 •00004 . 00224 .00228

TEMPERATURE T= 21.90 C RESTRAINT FOR FOLLOWING SERIES

RESTRAINT VECTOR 1 MASS CORRECTION -.14136 MG

VOLUME AT 20 C .06023 CM3

SYSTEMATIC ERROR .00004 MG

3 STANDARD DEVIATION LIMIT .00224 MG

83
X Y Z CORPORATION PAGE 27

SOMEWHERE* U.S.A. SERIES 5

SET OF MASS STANDARDS : 5KG - 100MG 5/18/79

TEST NUMEER 654321

BALANCE 7

OPEPATOR 64

CALIBRATION DESIGN 62

SUM WEIGHTS USED FCR THE LINEAR COMBINATIONS

(G) GRAMS

6

5+3 2 111

VALUES AND UNCERTAINTIES FCR COMBINATIONS OF WEIGHTS

(UNCERTAINTY IS 3 STANDARD DEVIATION LIMIT PLUS ALLOWANCE FOR

SYSTEMATIC ERROR.)

3 S.D. UNCERTAINTY

SUM CORR SYSTEMATIC ERROR LIMIT

(G) (MG) (MG) (MG) (MG)

6 .08e73 •00023 .00818 •00841

84
X Y Z CORPORATION

SOMEWHERE* U.S.A.

SET OF MASS STANDARDS

TEST NUMEER 654321

5KG - 100MG

PAGE 28

SERIES 5

5/18/79

BALANCE 7

OPERATOR e4

MAXIMUM LCAD 6.CC00 G STARTING RESTRAINT NUMBER 80

CALIBRATION CESIGN 62

PRECISION CCNTRCL

OBSERVED STANDARD DEVIATION CF THE PROCESS

ACCEPTED STANDARD DEVIATION CF THE PROCESS

DEGREES CF FREEDOM 6 F RATIO .591

•00131

.00170

MG

MG

F RATIO IS LESS THAN 2.81 (CRITICAL VALUE FOR PROBABILITY = THEREFORE THE STANDARD DEVIATICN IS IN CONTROL.

.01)

CHECK STANDARO VECTOR

CHECK STANDARD USED 8

ACCEPTED MASS CORRECTION OF CHECK STANDARD

OBSERVED CORRECTION OF CHECK STANDARD

STANDARD DEVIATICN OF THE CESEPVED CORRECTION

T VALUE .14

-.07920 MG

-.07910 MG

.00075 MG

ABSOLUTE VALUE CF T IS LESS THAN 3.

THEREFORE CHECK STANDARD IS IN CCNTRCL.

TEST CCNDITICNS

CORRECTED TEMPERATURE IN DEGREES

CORRECTED PRESSURE IN MM hG

CORRECTED HUMIDITY IN PERCENT

COMFUTED AIR DENSITY IN MG/CM3

TEMPERATURE CORRECTION

PRESSURE CORRECTION

HUMIDITY CORRECTION

OBSERVED TEMPERATURE IN DEGREES ( OBSERVED PRESSURE IN MM hG

OBSERVED HUMIDITY IN PERCENT

BEFORE AFTER AVERAGE

21.92 21.88 21.90

743.280 742.e20 743.050

35.00 35.0 35.00

1.1666 1.166C 1.1663

• 000 .000

.000 • 000

.00 • 00

21.92 21.88

743.260 742*820

35.00 35.00

85
X V Z CORPORATION

SOMEWHERE • U.S.A.

SET OF MASS STANOAROS

TEST NUMBER 654321

5KG - 1C0MG

PAGE 29

SERIES 6

5/18/79

BALANCE 7

OPERATOR 84

ACCEPTED WITHIN STANOARO DEVIATION OF THE PROCESS

ACCEPTED BETWEEN STANDARD DEVIATION OF THE PROCESS

,00050 MG

.00000 MG

CALIBRATION DESIGN 62

RESTRAINT VECTOR 1 1 1 C MASS CORRECTION OF RESTRAINT -.14136 MG

VOLUME OF WEIGHTS BEING USED IN RESTRAINT AT 22.60 .06024 CM3

SYSTEMATIC ERROR IN THE RESTRAINT .00004 MG

3 STANOARO DEVIATION LIMIT FOR RANDOM ERROR AFFECTING RESTRAINT .00224 MG

CHECK STANDARD USED 8

CHECK STANDARD VECTOR

ACCEPTED MASS CORRECTION OF CHECK STANDARD

REPORT VECTCR 11110 -.02628 MG

TEST CONDITIONS

CORRECTEO TEMPERATURE IN DEGREES C

CORRECTEC PRESSURE IN KM HG

CORRECTEO HUMIDITY IN PERCENT

COMPUTED AIR DENSITY IN MG/CM3

TEMPERATURE CORRECTION

PRESSURE CORRECTION

HUMIDITY CORRECTION

06SERVE0 TEMPERATURE IN DEGREES C CBSERVED PRESSURE IN MM t-G OBSERVEO HUMIDITY IN PERCENT

BEFORE

22.21

742.520

36.00

1.1640

.000

• 000

• 00

22.21

742.520

36.00

AFTER

22.99

741 .860

35.00

1.1599

• 000

• 000

.00

22.99

741 .860

35.00

AVERAGE

22.60

742.190

35.50

1 .1620

WEIGHTS BEING

TESTEO

NCPINAL

VALUE G

DENSITY

G/CM3 AT 20C

COEFFICIENT

OF EXPANSION

ACCEPTED

CORRECTION MG

SO0MG

300 MG

200MG

IOOMG

S 100M6

SUM IOOMG

.5000

.3000

.2000

1000

.1000

.1000

16.6000

16.6000

16.6000

16.6000

16.6000

8.1788

.000020

•000020

•000020

•000020

•000020

.000049

-.C2628

86
X Y Z CORPORATION

SOMEWHERE? U.S.A.

SET OF MASS STANDARDS

TEST NUMEER 654321

5KG - 100MG

PAGE 30

SERIES 6

5/18/79

BALANCE 7

OPERATOR 84

CALIBRATION DESIGN 62

MG

I 500 300 20C 100 100

A 1 + - - -

A 2 + - -

A 3 + - - -

A 4 + - - A 5 + - - -

A e + - + -

A 7 + - -

A 6 + - - -

A 9 + - -

A 10 + - All + -

R + +

100

OBSERVATIONS IN DIVISIONS

DOUBLE SUBSTITUTION CNE PAN EALANCE

A 1 296.4000 224.0000 726.2000 801.2000

A 2 285.5000 240.3030 741.3000 788.9000

A 3 300.5000 241 .6000 744.1000 803.7000

A 4 312.9000 253.5000 754.8000 815.5000

A 5 312.7000 239.8000 741.C000 815.60C0

A 6 303.8000 250.5000 751.5000 805.7000

A 7 290.2000 264.6C00 765.4000 791.7000

A 8 303.6000 252.3000 753.6000 806.0000

A 9 276.7000 302. COCO £04.1000 779.3000

A 10 276.7000 315.5000 617.1000 779.2000

A 11 276.6000 301.CO0O 602.6000 778.6000

87
X Y Z CORPORATION PAGE 31

SOMEWHERE* U.S.A. SERIES 6

SET OF MASS STANDARDS : 5KG - 100MG 5/18/79

TEST NUMEER 654321

BALANCE 7

OPERATOR 84

CALIBRATION DESIGN 62

SENSITIVITY WEIGHT

MASS .50156 MG

volume .ooiee CW3 AT 2C C COEFFICIENT OF EXPANSION ,000069

S*=S-PV(S)= •49940 VG

AVERAGE OBSERVED

A(I ) DELTA( I

)

SENSITIVITY DPIFT(I) SEN SITIVITY

(MG) (MG) (MG/DIV) (MG) (MG/DIV)

A 1 .07347 -.00002 .00100 .00130 •CC100

A 2 .04626 -.00026 •00100 •00120 .00100

A 3 .05907 •00029 • 00100 •00035 .00099

A 4 .05992 •00032 •00100 .00065 •00100

A 5 .07359 -•00033 •00100 •00085 •0C100

A 6 .05362 .00018 .00100 •00045 .00100

A 7 .02589 •00024 .00100 .00035 .00100

A 8 .05173 -•00008 •00100 .00055 •00100

A 9 -.02526 -•0C004 •00100 .00055 .00100

A 10 -.03821 •00009 •00100 .00045 •O01OO

A 11 -.02411 •00029 .00100 .00020 .00100

VOLUME SYSTEMATIC 2 S.D. UNCERTAINTY

ITEM CORRECT ICN [AT T) ERRCR LIMIT LIMIT

(G) (MG) (CM3) (MG) (MG) (MG)

.5000 .04068 .03012 .00002 • 00117 •00119

.3000 .03697 •01807 .00001 . 00081 •00082

.2000 .06351 •01204 •00 001 • 00060 •00060

.1000 .01219 •00602 •00000 . 00058 .00058

.1000 •02609 •00602 •00000 « 00058 •00058

.1000 .00580 .01223 •00000 00058 •00058

TEMPERATURE T= 22,60

88
X Y Z CORPORATION

SOMEWHERE* U.S.A.

SET OF MASS STANDARDS

TEST NUMEER 654321

5KG - 100MG

PAGE 32

SERIES 6

5/18/79

BALANCE 7

OPERATOR e4

MAXIMUM LCAD .6000 G STARTING RESTRAINT NUMEER 80

CALIBRATION DESIGN 62

PRECISION CCNTRCL

OBSERVED STANDARD DEVIATION OF Tt-E PROCESS

ACCEPTED STANDARD DEVIATION CF THE PROCESS

DEGREES CF FREEDOM 6

F RATIO .370

•00030

•00050

MG

MG

F RATIO IS LESS THAN 2.81 (CRITICAL VALUE FOR PROBABILITY = THEREFORE THE STANDARD CEVIATICN IS IN CONTROL*

01 >

CHECK STANDARD VECTOR

CHECK STANDARD USED 8

ACCEPTED MASS CORRECTION OF CHECK STANDARD

OBSERVED CORRECTION CF CHECK STANDARD

STANDARD DEVIATION OF THE OBSERVED CORRECTION

T VALUE .97

-.02628 MG

-.02609 MG

•00019 MG

ABSOLUTE VALUE OF T IS LESS THAN 3.

THEREFORE CHECK STANDARD IS IN CCNTROL*

TEST CONDITIONS

CORRECTEC TEMPERATURE IN DEGREES

CORRECTED PRESSURE IN V* HG

CORRECTEO HUMIDITY IN PERCENT

COMPUTED AIR DENSITY IN MG/CM3

TEMPERATURE CORRECTION

PRESSURE CORRECTION

HUMIDITY CORRECTION

OBSERVED TEMPERATURE IN DEGREES < OBSERVED PRESSURE IN MM HG

OBSERVED HUMIDITY IN PERCENT

BEFORE AFTER AVERAGE

22.21 22*99 22.60

742.520 741, 660 742,190

36.00 35.00 35.50

1*1640 1.1599 1.1620

• 000 • 000

• 000 • 000

• 00 • 00

22*21 22.99

742.520 741.860

36.00 35.00

89
X Y Z CORPORATION

SOMEWHERE* U.S.A.

SET OF MASS STANDARDS

TEST NUMEER 654321

5KG - 100MG

PAGE 33

5/18/79

FOR

OF THIS

TABLES

ASSIGNED

STANDARD

SHEETS.

AN EXP

UNCERTAI

DEVIATIC

EFFECT G MEASUREM

MEASURE*

TUDE OF

SOURCES

ACCEPTED

STARTING

NEGLIGIB

THAT TH

TAINTY R THE MEAS

ESTABLIS

UNITo A MEASUREM

UNCERTAI

COMBINAT

THIS PRO

WHICH TH

THE

LISTED I EXPLICIT

VOLUMES*

IN VACUO

SENSE.

ASSCCIAT

LISTED

COEFFICI

VALUES

WITH AP

THE BU

ENVIRONM

ENT MASS

DIFFER

AND/OR F BE MADE

THE RELA

IS USED

SUMMARY

CONVENIENCE*

WORK ARE SUM

I AND II.

ARE WITH REFER

S IDENTIFIED ON

THE UNCERTAINT

PESSION OF T NTY USING THRE

NS AS A LI*

F RANDOM ERRC

ENT ASSOCIATE

ENT PROCESSES.

SYSTEMATIC E CTI-ER THAN T VALUES FCR

STANDARDS ARE

LE. IT SHOULD

E MAGNITUDE CF

EFLECTS THE FEP

UREKENT PROCES

I- THESE VALUES

S REALIZABLE

ENT PROCESS*

N EY AN AMOUNT

ION OF THE UNC

CESS AND THE

ESE STANDARDS A

THE RESLLTS

MARIZED IN

THE VALUES

ENCE TC TFE

THE DATA

V FIGURE IS

FE OVERALL

E STANDARD

IT TC THE

FS OF THE

C WITH THE

THE MAGNIFRORS FROM

HE USE OF

CEFTAIN

CONSIDERED

BE NCTED

THE UNCERFCRMANCE CF

S USED TO

. THE MASS

IN ANOTHER

WILL EE

WHICH IS A ERTAINTY OF

FROCESS IN

RE USED.

ESTIM

N TABLE

TREATM

E.G.*

•* MASS

THE D ED WIT

AS WEL

ENT OF

SHOULD

FROPRIA

CYANT

ENT* TO

VALUES

SIGMFI

CR MEAS

IN DIFF

TICN 1 AS FEQU

ATED MA

I ARE EA

ENT OF DI

•TRUE MA

IN THE

ISPLACEME

F EACH

L AS THE

EXPANSIC

BE USED

TE CCRPE

EFFECTS

ESTAELIS

FOR CBJE

CANTLY I UREMENTS

ERING ENV

LB AVDP=.

IRED.

SS VALUES

SED CN AN

SPLACEMENT

SS«. 'MASS

NEWTONIAN

NT VOLUME

VALUE IS

VCLUMETFIC

N. THESE

* TOGETHER

CTION FOR

OF THE

H CONSISTCTS WUCH

N DENSITY

WHICH MUST

IRONMENTS.

4535S237KG

THE

LISTED IN

IMPLICIT

VOLUMES.

•APPARENT

•APPARENT

8.0». TH

CORRECTIO

LISTED N

CORRECTIO

IS LARGER

VALUE B

CORRECTIO

COMPUTED

AN EXPLIC

MENT VOLU

DEFINING

UNCERTAIN

TABLE I.

ESTIMATED

TABLE II ARE

TREATMENT OF

E.G.* *APPAR

MASS VERS

MASS VERS

E VALUES ARE

NS TC BE APPL

CMINAL VALUE

N INDICATES T

THAN THE STA

Y THE AMO

N). THESE

FROM THE VAL

IT TREATMENT

MES USING TH

RELATIONS

EY THE AMOUN

MASS VALUES

EASED ON AN

DISPLACEMENT

ENT MASS*

.

US BRASS*.

US DENSITY

LISTED AS

IEC TO THE

(A POSITIVE

FAT THE MASS

TEC NOMINAL

UNT OF THE

VALUES ARE

UES BASED ON

OF DISPLACEE FOLLOWING

AND ARE

T SHOWN IN

THE ADJUSTMENT OF

MINIMIZE THE DEVIATION

NAL CN THE BASIS OF »NC

(IN ACCORDANCE WITH CC

IS WIDESPREAD IN THIS C IN MANY PARTS OF

VALUES STATED ON EITHER

INTERNALLY CONSIST

DEFINITE. THERE IS.

SYSTEMATIC DIFFERENCE

VALUES ASSIGNEO CN EACH

VALUE CN THE BASIS C 8.0« BEING 7 MICROGRAM

GER THAN THE VALUE ON T NORMAL BRASS. THIS

DIFFERENCE IS CLEARLY

ON MANY DIRECT READING

WEIGHTS TC

FROM NOMIRMAL BRASS*

R. A BELOW)

CLNTRY AND

THE WORLD.

EASIS ARE

ENT AND

HCWEVER. A EETWEEN THE

EASIS. THE

F 'DENSITY

S/GRAM LARHE BASIS OF

SYSTEMATIC

CETECTABLE

BALANCES.

CORRE

VERSUS B AGAINST B HYPOTHETI

WEIGHT AT

A DENSITY

(NORMAL

DENSITY

WHOSE CO

EXPANSION

CELSIUS.

CTION

RASS*

RASS*

CAL

20 C

OF 1 ERASS

F 8.4

EFFIC

IS

AND

A - *APP

OR *WEI

IS DETER

WEIGHING

ELSIUS IN

.2 MG/CM

) STANDA

G/CM3 AT

IENT OF

.000054

WHOSE VAL

ARENT

GFT I M INED

OF

AIR H 3. WI

RC HAV

CE

VOLUM

PER D UE IS

MASS

N AIR

BY A THE

AVING

TH A ING A LSIUS

ETRIC

EGREE

BASED

90
X Y Z COPPORATICN PAGE 34

SOMEWHEREs U.S.A. 5/18/79

SET OF MASS STANDARDS : 5K6 - 100MG

TEST NUMEER 654321

ON ITS TRUE MASS OR WEIGHT IN WEIGHT. IN AIR HAVING A DENSITY OF

VACUO. 1.2 MG/CM3. WITH A STANDARD HAVING

A DENSITY OF 8.0 G/CM3 AT 20

CORRECTION B - 'APPARENT MASS CELSIUS* AND WHOSE VALUE IS BASED

VERSUS DENSITY 8.0* IS DETERMINED ON ITS TRUE MASS OR WEIGHT IN

BY A HYPOTHETICAL WEIGHING CF THE VACUO.

91
X Y Z CCCPORATICN

SOMEWHERE* U.S.A.

SET OF MASS STANDARDS

TEST NUMeEP 654321

SKG - 100MG

PAGE 35

5/18/79

TAELE 1

ITEM

5KG

3KG

2KG

1KG

500G

300G

200G

1C0G

50G

30G

20G

10G

5G

3G

2G

1G

500MG

30CMG

200MG

10CMG

*ASS UNCERTAINTY VOL AT 20 CCEF OF

(G) (G) (CM3)

5000.063077C2 •00564493 628.70150 , .00C045

3000.02401883 •00368509 377.21916 .,000045

2000.03017279 •00268395 253.16838 ..000045

1000.0066C911 •00008944 125.73955 < .C0C045

500.00589889 •00005133 63.29189 . iOOC045

300.00175036 •00004085 37.72183 ,.00C045

200.00140395 •00003203 25.14792 . .G0C045

1C0.C0101957 •00003407 12.65836 .,000045

50.C0212579 •00001921 6.28720 .,000045

30.00053569 •00001521 3.77223 «.OOC045

20.00016831 •00001202 2.53167 ,.000045

10.00011825 •00001352 1.25740 . .000045

5.00006375 •00 000687 •63292 . .000045

3.00001669 •00000434 .37722 . .00C045

1.99998652 •00 000303 •25148 . .000045

1.00002498 •00000228 •12659 « .00C045

•49995912 •00000119 •03012 . .OOC020

•29996303 •00000082 •01807 ..000020

•19993649 •00000060 .01204 ..000020

.09998781 .00000058 •00602 . ,000020

92
X Y Z CCFPOFATICN

SOMEWHERE* L.S.A.

SET OF MASS STANDARDS

TEST NUMEER 654321

5KG - 100MG

PAGE 36

5/18/79

ITEM COP. A <NG> COR.B <MG)

5KG

2KG

2KG

1KG

500G

300G

200G

100G

5CG

30G

2 0G

10G

5G

3G

2G

1G

500MG

300MG

200MG

1C0MG

22.69575 58 ( 64401

.39018 21 .35904

12.39537 26 .37469

-1.26710 5 .72251

1.45455 4 ,94937

-.61250 1 .48438

-.17129 1 .22664

.13071 .82967

1.73196 2 .08145

.29940 .50909

-.00946 .13033

•03948 .10938

•01930 .05425

-.00694 .01403

-.02924 - .01526

•01609 .02308

-.00552 - .00202

-.01575 - .01366

-.04937 - .04797

-.00512 - .00442

93
APPENDIX A. 3—SAMPLE PROCESS CONTROL OUTPUT

SEE SECTION 3.3 FOR A DESCRIPTION OF THIS DATA OUTPUT.

52 4798 2 .50497 1 5237980 2 -.59562 3

5237980 4 •98400 3

5177980 6 .07388 5

5187980 8 -.07910 7

5187980 8 -.02609 7

2.09386 4 5322.10 .24733.88 .4041.0000 .01.150364S

•02282 3 4121.91 .01736.81 -.1040.0000 .01.155S84S

•02284 6 6221.94 .04736.75 -.3440.0000 .01.155684S

•01C91 6 6221.97 -.03746.30 -.6031.C000 .01.171684S

•00131 6 6221.90 -.04743.05 -.4635.0000 .01.166384S

•00030 6 6222.60 .78742.19 - .6635. 5000- 1 .0 1

162084S

94
APPENDIX B—LISTING OF COMPUTER PROGRAM

BLKDAT SUBPROGRAM

BLCCK DATA BLOOOOIO

C* ******* *************** ******************** ***************** * ********* + BLDOC 020

C** ZERMAC IS MACHINE ZERO THUS THE QUANTITY NEEDS TC BE CHANCED **ELD00020

C** FOR DIFFERENT COMFLTERS **BLD00040

C** THIS VALUE IS USED BY SUBPROGRAM SPINV **BLD0C050

c** ***************************************** ****************************eLDOooeo

COMMON /INVCST/ ZERMAC BLD00070

C** ******* ********* **************************************************** *BLD0 00 8

C** KFD ( I ) « 1 = 1 9 14 CONTAINS THE OIGITS 0-9 AND CHARACTERS -.* USED **ELD0CGS0

C** BY SUBFRCGRAM DPFD **ELD00100

C** WILL NEED TO CHANGE TO COMPLY KITH PROPOSED NEW FORTRAN STANDARD** eLDOO 1 1 C ******** **************************************************** *********** ELD 01 20

COMMON /DPFDVL/ KFD(18) BLD00120

C** ********************************************************************* eLOOO 140

C** INPLT-OUTPUT CCNTRCL PARAMETERS **ELD00150

C** IR IS THE CARD READER UNIT **BLD0C1€0

C** IW IS THE LINE PRINTER UNIT **BLD00170

C** IP IS THE CARD PUNCH UNIT **ELD00180

C** IPL IS THE NUMBER OF LINES FER PRINTED PAGE **ELD00190

C ********* ********************************************************* *****BLD0 200

COMMON /UNITIO/ IR • IW . IP , IPL • ITMP BLD00210

C********************** ********** ************************************** *ELD0 02 2 C** CHARACTERS S T C F TO DETERMINE END OF RUN **ELD00220

C** ********************************************************************* ELDOO 240

COMMON /STOP/ FS»FT«FO.FP»FB BLD00250

C* ********************* ******** ***************************************** ELDO 0260

C** ITEND IS THE NUMBER OF ITERATIONS ALLOWED IN COMPUTING CBSERVED **ELD00270

C** CORRECTION TO WEIGHT **BLD00280

C** IT IS USED IN THE MAIN PRCGRAM **BLD00290

C** ******************************************************************** *BLD0 0300

COMMON /ITSTOP/ ITEND EL000310

DATA ZERMAC /l.E-8/ BLD00320

DATA KFD( 1 ) • KFD ( 2 ) • KFD ( 3 ) t KFD( 4 ) t KFD( 5 ) .KFD (6 ) t KFD ( 7 ) • KFD (8 ) / 1H0 . BLD00330

2 1HU ll-2» 1H3« 1H4. 11-5.1*6, 1H7/ BLD00340

DATA KFD(9) .KFD ( 1 ) .KFD < 1 1J.KFD(12) ,KFD ( 1 3 ) t KFD ( 14 ) • KFD ( 15) /1H8 9 BLD00350

2 1H9»1H » 1H-. lH.s ll-*e 1H + / BLD00260

DATA KFDC16).KFD( 17».KFD( 18) /1H. * 1 HD. 1HE/ ELD00370

DATA IR.IW.IP.IFL. ITMP /5 . 6, 1.58. 7/ BLD00280

DATA FS e FT»FO«FP FE / 1HS« lHTt 1H0» 1HP. 1H / BLD00390

DATA ITEND /10/ ELD00400

END ELD00410

MAIN FROGRAM

C** ********************************************************************* MANO 00 10

C** MAIN ROUTINE OF NATIONAL EUREAU OF STANDARDS MASS CALIBRATION **MAN0C020

C** PROGRAM VERSION OF SEPT. 10.1971 **MAN00030

C** WRITTEN BY ROBERT C. RAYBCLD . OFFICE OF MEASUREMENT SERVICES **MAN00040

C** AND MRS.R.N.VARNER . STATISTICAL ENGINEERING LAEORATORY **MANOC050

C** NATIONAL BUREAU OF STANDARDS . WASHINGTON. D.C. 20234 **MAN00060

C** MODIFIED EY R. N. VARNER SEPT 1979 **MAN00070

C MAN000e0

C**  THE MASS CALIBRATION PROGRAM CONTAINS ONE MAIN FROGRAM **MAN00090

C** AND 23 SUBFRCGRAMS **MAN00100

95
c**

c** PROGRAM NAME NUMBER OF LINES

c**

c** MAIN 626

c** BLKCAT 41

c** REAC1 120

c** REACIT 356

c** ERPCR 56

c** PRINT1 67

c** TEXT1 12S

c** TEXT2 125

c** TEXT3 125

c** TEXT4 125

c** TEXTS 121

c** TEXTC 4C

c** REAC2 325

c** SPINV 126

c** SAVMTX 22

c** INVCHK 69

c** PRINT2 67C

c** PGCCNT 53

c** HEADPG 36

c** FINFRT 181

c** TEXTS1 124

c** TEX7S2 30

c** DPFD 89

c** CHKLN 1 1 c** THIS PROGRAM CONTROLS THE FLOW OF

c** CALCULATIONS AND OLTPUT

**MAN00110

: CODE **MAN00120

MAN00130

MAN0014S

**MAN00145

**MAN00150

**MAN00160

**MAN00170

**MAN00180

**MAN00190

**MAN00200

**MAN00210

**MAN00220

**MAN00230

**MAN00240

**MAN00250

**MAN00260

VAN0C270

**MAN00280

**MAN00290

**MAN00300

**MAN00310

**MAN00320

**MAN00330

**MAN00340

MAN00350

**MAN00360

THE INPUT* **MAN00370

**MAN00380

C ****************************************************************** *****MAN00390

C** DIMENSION FOR COMMON /PRIX/ VARIABLES **MAN00400

C*** ****** *************************************************** * * ******** *MAN0 04 10

DIMENSION E1(72).B2(72).B3(72).B4(72) , B5(72) , B6 (72 ) .B7( 72 )• MAN00420

2 I0ATE(3> VAN00430

C* ********************************************************************* * MAN 0044

C** DIMENSION FOR COMMON /INPLT/ VARIABLES **MAN00450

C** *************************************************** ******* ***********MAN0 46

DIMENSION AIDCST(5 #15) t ANCM ( 1 5 ) • DENSTY ( 15 ) • COEFEX ( 1 5 )• ACC VAL( 15)« MAN0 47

2 ARSTIN( 15)«ACKSTD( 15 ) * IRSTCU ( 15 )• IPRNT( 1 5 ) #DESMAT( 15*50)* MAN 004 eO

3 0BSERV(600)*ALC0V< 15.20) MAN00490

C** ********************************************************** *********** MANO 5 C** DIMENSION FOR COMMON /CCMPUT/ VARIABLES **VAN00510

C ********************************************************************** *MAN0 0520

DIMENSION SWTPRTC50) . A ( 50 ) . DELTA C 50 ) . OBSCOR ( 15 ) c COM VOL ( 15)* MAN0 0E2

2 SERROR( 15)»TRISIG(15)*TCTUN< 15 ) *ORIFT (50 ) • 2ER0 (50 ) • COMVOP( 15 ) * MAN0 540

3 CORR5A(20)*SIG35A(20) *UNC5A(20). I0TSTR(50) ,SERSA<20) .OS 1(50) MANO 0550

C*** ******************************************************************** MANO 056

C** DIMENSION FOR MAIN PROGRAM VARIABLES **MAN00570

C* ********************************************************************** MANO 0580

DIMENSION VOLP( 15) .CORRP( 15 ) • TEMP( 15) • Dl( 50 )• ILOAD( 50 ) # TE VP2( 15) 9 NAN0C5SC

2 ALCAD(50) MAN00600

C****** ******************************************************* ********** MANO 06 10

C** DIMENSION FOR COMMON /REPRT/ VARIABLES **VAN0C620

C *********************************************************************** MAN 06 3 DIMENSION AITEM(5cS0)»APPMAS(50) t TRMASS(50)»UNCERT(50 )»V0LPRT(50) » MAN 06 4 2 CORRE(SO) eCOEPRT(SO) NAN00650

C ******** ************************************************************** *MAN 660

C** DIMENSION FOR COMMON /CHECK/ VARIABLES **MAN0C670

96
C**************** ***************************************** *************** AN 06 80

DIMENSION BCHK<285),Y(578 > MAN00690

C ********************************************************* ****** ********m AN 00700

C** LABELEC COMMON **MAN00710

C ********************************************************************** *MAN00720

COMMON /UNITIO/ IB • I W« IP* IPL t ITMP MAN00720

COMMON /PRT1/ Bl t E2 • B3 • B4 , eS • B6 #B7 RANERR SYSERR .'TNCM . L 1 .L2 .L3 iL4 . MAN 0740

2 L5«L6«IOATE« IEREST MAN007S0

COMMON /PRT2/ IPAGE» NOSER • IPGCT MANC07C0

COMMCN /INPUT/ TE AR ,PBAR« FEAR* STDEBAt SWTf VS*T» CEXSWTt A IDCST. ANOM. MAN00770

2 DENSTY«COEFEX»ACCVAL« ARSTIN. ACKSTD. DESMATt CBSERVt VARBAL» ALCOM.T1 PMAN00780

3»T2F.PlPcP2P»HlP.H2PtCPl.CP2.CTl .CT2 * CHI .CH2 tOT IP. 0T2P iOP IP ,0P2P. MAN00790

4 OH1P,OH2P.IOP.IEAL.N08S.NUNKN,IRSTCU» IPRNT, ITPOS* ICKUSD* ICALDS. MANOOeOO

5 LINVAR«N3»N4 MAN00810

COMMON /COMPUT/ OESCCR * CORR .VOLRES • RHOAtSWTPRT

.

P • DELTA .CCVVOL . MAN00820

2 SEPRCR.TRISIG.TCTUK. ACCRF.CORRES.TMSUM.VOLSUMe SERSUM f T3S IG.ALOAOPMAN0 62

3*0BST0cFRATI0»0BCCCKe0BSCK»TVAL«DRIFT*ZER0*V2TAU*STAR*CCMV0P# MAN0 0840

4 C0RR5A e SIG35A*UNC£A,RH0AA.RH0ABtSER5A.0Sl tNOGFR. ISWTCH , IFLAG t MAN00850

5 IRCUT.IOTSTRtJSTAF MANC0860

COMMCN /REPRT/ TRM ASS« APPMAS* CCRRBt AI TEM« UNCERT. VOLPRT* CCEPRT. NPRTMAN0 0870

CCMPCN /CHECK/ CHCKMA . ECHK ,

Y

MAN00880

COMMON /ITSTOP/ ITEND MAN00890

COMMCN /DPFDVL/ KFC(18) MAN00900

C *********************************************************************** MAN 09 10

C** TYPE STATEMENTS **MANC092C

C* ******* **************************************************** ************ AN 5 3 DOUELE PRECISION VCLPp CCRBP •OBSCORt TRM ASS * AFPMAP. APPMAS »CCRRBB» MAN00940

2 C0FRE«SUM«SUM1 MAN00950

C*** ************************************************************* *******MAN00560

C** READ IN ADMINISTRATIVE DATA **MAN00970

C** DATA COMMCN TO ALL SERIES **MAN00980

C** INITIALIZE CONTROL VARIAELES **MAN0C990

C*** ************************************************************* *******MAN01000

10 CALL READ1 MAN01010

NXFLAG=0 MAN01020

NXNSIG=0 MAN01030

IPACE=0 MAN01040

NPRT=0 MAN01050

NOSER=0 MAN01060

ASSIGN 40 TO NCSERF MAN01070

ASSIGN 410 TO NSERFP PAN01080

C******************** ******************************************** *******«AN01 09

C** PRINT TITLE PAGE FOR CCMFLETE RUN **MANOU00

C ********************************************************************** * MAN 1 110

CALL FRINT1 MAN01120

C** ****************************************************** ***************MAN0l 130

C** READ DATA FOR ONE SERIES **MAN01140

C**************************************** ************************ ******** AN 01150

20 CALL READ2 MAN01160

C** ********************************************************** ************ANOl 170

C** SET UP CHCKMA=STDEEA/100.0 TO CHECK MATRIX INVERSION **MAN01180

C******** ************************************************************** *MAN01 190

CHCKMA=STDEBA/1C0.C VAN012C0

C *************** ******** ************************************* ******* *****AN0 12 10

C** BEGIN CALCULATIONS FCR ONE SERIES **MAN01220

C** CALCULATIONS FOR FIRST PRINTED PAGE OF A SERIES **MAN01230

C ************ *********** ************************************************ MANO 1240

JSTAR=0 MAN012S0

97
TDELT=TBAR-TNOM MAN01260

00 30 I=1«NUNKN MAN01270

30 TEMF2( I ) = 1 .0 + C0EFEX( D+TOELT VAN01280

GO TC NCSERP. (40. CO) MAN012S0

40 ASSIGN 60 TO NCSERF MAN013C0

CORfi=0.0 VAN01310

VOLRES=0.0 MAN01320

DO 50 I=ltNUNKN MAN01330

TEMFd ) = (( ANOMC I) + .00 1*ACCVAL( I) l/DENSTYC I ) )*TEMP2< I) MAN01340

IF (ARSTIN(I).EQ.O.O) GC TO 50 MAN012S0

CORR=CORR+ACCVAL< I )*ARSTIN( I) MAN0136

VOLRES=VOLRES+TEMF(I )* ARSTIN( I ) MAN01370

50 CONTINUE MAN01280

GO TO 70 MAN01390

60 CORF=TMSUM MAN01400

VOLRES=VCLSUM*( 1 • 0+ ( SUMP ) *TDELT

)

MAN01410

C* ************************ ******* 4************** ****** ******* * ********** HANO 142

C** CCNVERT TEMPERATURE TO KELVIN **MAN01430

C** COMFUTE VAFOR PRESSURE ANC AIR OENSITY **^AN01440

C****** **************************************************************** *MAN0 145

70 TKEL=TEAR+273.15E0 MAN01460

CCNST=13.5 951E0*9.e0665EO MAN01470

ElP=EXP(-4.7406885EO*ALCG<TKEL)-6.8962434E3/TKEL+.59383S5E2-0.5797MAN014eO

2662E-2*TKEL+6.2 223 8E4E-6*(TKEL**2>) VAN0149

E1=E1P/CCNST VAN01500

RHOA=( .464746EO*(FEAR-.00378029EO*HEAR*E1 ) )/TKEL MAN01510

TKEL=TlP+273. 15E0 MAN01520

ElP=EXP(-4.7406e85EO*ALOG(TKEL)-6.8982434E3/TKEL+.5938385E2-0.579 7MAN01530

2662E-2*TKEL+6.2223854E-6*<TKEL**2)

)

MAN01540

E1=E1P/CCNST MAN01550

RHOAE=< . 4e4746E0*(PlP-.0 0378029EO*HlP*El> )/TKEL MAN0156

TKEL=T2P+273.15E0 MAN01570

E 1P=EXP( -4. 7406885 E0*ALOG (TKEL ) -6. 8962434E3/TKEL+. 593838 5E2-0. 5797 MAN 01 580

2662E-2*TKEL+6,22238S4E-6*<TKEL**2>> VAN01590

E1=E1P/C0NST MAN016CO

RHOAA=( .4e4746E0*(P2P-.00278029E0*H2P*El) )/TKEL MAN01610

C** ********************************************************** ********** *K/ANO 1620

C** BEGIN CALCULATICNS FOR SECCND ANO THIRD PAGES OF A SERIES **MAN01€20

C** THE FOLLOWING OPERATIONS ARE PERFORMED TO CCPE WITH ++MAN01640

C** RCUNC CFF ERROR **MAN01€50

C** COMPUTE LOADS USING OESIGN MATRIX **l*ANOieeO

C** ******************************************************************* **MANO 167

DO 130 I=1»N0BS MAN01680

ILOAD(I)=0 VAN01690

YYYYYY=0»0 MANC1700

DO 80 J=1»NUNKN MAN01710

YYYYYY=YYYYYY+AeS(CESMAT< J. I J ) *ANOM ( J ) /2. NAN0172

80 CONTINUE MAN01730

ZZZZZZ=YYYYYY+#05 MAN01740

IF (2ZZZZZ-1.) 100 f 90»90 MAN01750

C* ********************************************************************** MAN 01 760

C** LOAD IN GRAMS **MAN01770

C *********************************************************************** MANO 178

90 ILCADC I )=INT(YYYYYY+.Q5) MAN01790

GO TC 130 MAN01800

C** *********************************************************** ************ ANO 18 10

C** LOAD IN MILLIGRAMS OR MILLIFCUNDS **VAN01820

C** ********************************************************************* MAN 01 830

98
100 ZZZZZZ=YYYYYY*1000.+.05 MAN01840

IF (ZZZZZZ-1.) 120,110.110 MAN01850

110 IL0AD< I) = INT( 1000.000*YYYYYY+.05) MAN01660

GO TC 130 MAN01870

C** *********************** *************************** ******************* MANO 1880

C** LOAC IN MICRO FCUNDS **yAN01690

C** ********************* ******* ****************************** *********** MANO 19 00

120 ILOAD( I )=INT< 1 000 C .*Y YYYY Y+ • 05

)

MAN01910

130 CONTINUE MAN01920

ALOACP=0.0 MAN01920

DO 160 1=1, NOBS MAN01940

ALOAC(I)=0.0 MAN0195C

00 140 J = l .NUNKN MAN01960

ALOAD( I ) = ALOAO( I )

+

AES ( DESMAT ( J* I) )*ANQM(J )/2,0 MANO 1970

140 CONTINUE MAN01980

IF (ALCAOP-ALCAD( I ) ) 150,160,160 MAN01990

150 ALOADP=ALCAD{ I ) MAN02000

160 CONTINUE MAN02010

C** ******************************************************************** * MANO 2 2 C** COMPUTE S(STAR) SENSITIVITY VALUE ( MASS/OI V I S ION

)

**MAN02030

C** COMFUTE S(*> SENSITIVITY VALUE ( M AS S/D I VI S ICN ) **MAN02040

C** COMFUTE A-e , S , DRIFT AND/OR LEFT-RIGHT EFFECT AS REQUIRED BY **MAN020E0

C** WEIGHING METHOD **MAN02060

C** ********************************************************************* MANO 2 070

STAF. = SfcT-RHOA*VSV»T*(1.0 + CEXSWT*(TDELT) ) N

, AN02080

J=l MAN02090

DO 290 I=1 9 N0BS NAN02100

GO TO < 170 c 200. 230t260«270. 280). ITPOS MAN02110

C ************************************************************ ***********MAN02 120

C** SINGLE SUBSTITUTION-SINGLE PAN BALANCE **MAN02130

C *********************************************************************** MAN 02 140

170 Dl

<

I)=CESERV( J)-CESERV( J+l) MAN02150

IF (CESERV( J + 2) .NE .0.0) GC TO 180 MAN02160

DS1(I)=0.0 VAN02170

GO TC 190 MAN02180

160 DS1 ( I)=CBSERV( J+2)-CESERV< J 41

)

MAN02190

190 J = J+3 MAN02200

GO TC 290 MAN02210

C** ****** ************************************************************** *MAN02220

C** SINGLE SUBSTITUTICN-TWO-PAN BALANCE **MAN02220

C* ******* *************************************************************** MANO 2 24

200 XP=(CESERV( J ) +2 .0 *CBSER V < J+1)+CBSERV< J+2) )/4.0 MAN022SO

YP= (CESERV(J+3)+2.C*CBSERV( J + 4 )+OBSERV ( J+5 ) )/4.0 WAN02260

ZP=<CESERV(J+6)+2.G*CBSERV( J+7 ) +08SERV < J+8 ) )/4.0 MAN 02270

D1(I)=XP-YP MAN02280

IF (ZP.NE.O.O) GC TO 210 MAN02290

DSl ( I ) =0.0 MAN02300

GO TC 220 VAN02310

210 DSl ( I ) = ABS(ZP-YP) yAN02320

220 J=J+9 MAN02330

GC TC 290 MAN02340

C** *********** ********************************************************** MANO 2 3 50

C** SINGLE TRANSPOSITICN-TfcC-PAN EALANCE **MAN0236C

C** ****** *************************************************************** MANO 2 370

230 XP= (CESERV( J ) +2 .O+CBSERV < J+l )+CBSERV< J+2) )/4,0 MAN02380

YP=(CESERV(J+3)+2.0*CBSERV( J+4 ) +CBSERV ( J+5 ) )/4.0 MAN 2 39

ZP= (CBSERV(J+6)+2.0*CBSERV( J + 7 ) +OBSERV ( J+8 ) )/4.0 MAN02400

Dl ( I) = (XF-YP)/2.0 MAN02410

99
ZEFCO )=(XP+YP)/2.0 MAN02420

IF (ZP.NE.O.O) GO TO 240 MAN02430

OS1(I)=0.0 MAN02440

GO TC 250 MAN02450

240 DS1 ( I)=ABS(ZP-YP) MAN02460

250 J=J + S MAN02470

GO TC 290 MAN02480

C ****************************   ** ****************** * ******* * ********* *MAN0 24 90

C** DOUELE SUESTITUTIGh-CNE P*N EALANCE **MAN02500

C* ******* *** ******************* 4************ ********* 4******* ***********MAN025 10

260 Dl ( I) = (CBSERV( J )-CE SER V < J+l )-OESERV ( J + 2 ) + OBSERV ( J+3 ) ) /2 ,0 MAN02520

DSK I)=(CBSERV< J)-3.0*GESERV< J+l )+3.0*OBSEFV( J+2 )-OESERV ( J+3 I )/2. 0MAN025 30

DRIFT ( I )=(-08SERV< J ) + OESERV ( J+ 1 )-OBSERV< J + 2 ) + 0BSERV < J+3 ) ) /2.0 MAN02E40

J=J+4 MAN02550

GO TO 290 MANG2560

C ************************************************************ *******  MAN02 57

C**  DOUELE SUESTITUTICN-TWC PAN EALANCE **MAN02580

C *********************************************************************** MAN 02590

270 XP=(CBSERV< J)+2.0*CBSEPV< J+l )+CBSERV< J+2) )/4.0 MAN02600

YP=(CESERV(J+3)+2.C*CBSERV< J+4)+08SERV( J+5) )/4.0 MAN02610

ZP=(CBSERV(J+ 6)+2.0*CBSERV( J+7 )+OBSERV ( J + 8 ) ) /4. MAN02C20

WP=(CBSERV(J+9)+2.0*CBSERV( J+ 10 ) +OBSERV( J+ 1 1 ) )/4.0 MAN026 30

Dl< I)=(XP-YP-ZP+WP>/2.0 MAN02640

DS1 ( I )=ABS( (XP-3.*YP + 3.*ZP-V»P)/2«0) MANO2CE0

OR I FT (I ) = <-XP+YP-ZP+*P)/2.0 MAN02660

J=J+12 MAN02670

GC TO 290 MAN026e0

C ********************************************************************** *M AN 02690

C** DOUBLE TRANSPOSITICN-T*G PAN EALANCE **MAN02700

C** ******************************************** ************************* |V AN027 10

280 XP=(CBSERV(J)+2.0*CBSEPV< J+ 1 ) +CBSERV ( J +2 ) )/4.0 MAN02720

YP=(OBSERV(J+3)+2.C*CBSERV< J+4 l+OBSERV ( J+5 ) )/4.0 MAN027 30

ZP=(CBSERV(J+6)+2.C*CBSERV( J+7 )+OBSERV ( J+8 ) )/4.0 MAN0 2740

WP=(CBSERV(J+9)+2.0*CBSERV< J + l I +OBSERV ( J + 1 1 ) )/4.0 MAN02750

Dl < I)=(XP-YP-ZP+WP)/4.0 MAN02760

DS1 ( I)=ABSUXP-3.*YP+3.*ZP-1»P)/2.0) MAN02770

ZERCU > = <3.0*XP+YP + ZP-WP)/4.0 MAN02780

DRIFT (I ) = <-XP+YP-ZP + V»P)/2.0 MAN027S0

J=J+12 MAN02800

290 CONTINUE MAN02eiO

C****** ***************************************** ********** **************MAN02820

C** COMPUTE S(*)/D(S) ,A( I) ,DRIFT( I) ,ZERO< I) **MAN02830

C *********************************************************************** MAN 02 840

KA=1 MAN02850

SUM=0.0 MAN02860

J=0 MAN02870

1=1 MAN02880

ILCDPP=ILCAD( I) MAN02890

C** ********************************************************************* MAN 029 00

C** CHECK FOR LOAD CHANGES **MAN02910

C** ********************************************************** *********** MAN 029 20

300 IF <ILCAD( D.NE.ILCDPP) GC TC 320 MAN02920

IF (DSK I).EQ. 0.0) GC TO 210 MAN02940

SUM=SUM+DS1 ( I

)

MAN02950

DS1 (I )=STAR/DS1 ( I) MAN029C0

J=j+1 MAN02970

310 1=1+1 MAN02980

IF (I.GT.NCBS) GC TO 330 MAN02990

100
GO TC 300 MAN020C0

320 ILODPF=ILOAO( I

)

MAN02010

330 FLTN=J MAN02020

DEAR=SUM/FLTN MAN02030

FLTNSQ=SQRT(FLTN) MAN03040

DSP=STAR/DEAR MAN03050

KB=I-1 VAN02060

DO 360 K=KA»KB MAN02070

SWTFRT(K)=ABS(DSP) MAN02080

A(K)=C1 (K)*DSP ^AN020S0

DRIFT(K)=DRIFT(K)*DSP f*AN02100

IF (N4.EQ.0) GO TO 340 VANQ2110

C************ ********************************************* **************MANO2120

C** CHANGE SIGN FOR REVERSED SCALE **MAN02120

C* ******* *************** ************** ********************************* *MAN03 140

A (K )=-l.*A(K) VAN031S0

DRIFT(K)=-1.*0FIFT(K) MAN02160

340 IF (AES(Dl ( K ) / ( DBAR+FLTNSC ) ).LE.0.25) GO TO 350 MAN03170

C** ****** *************************************************************** VAN0 3 133

C** IF CBSEFVEC DEFLECTION IS GREATER THAN OR ECUAL TO **MAN021S0

C** .25*SENSITIVITY DEFLECTION A FLAG IS SET UP **MAN02200

C*** ******************************************** ********* ****************/ANO 32 10

ICTSTF(K)=KFD(14) *ANC2220

JSTAR=1 MAN02233

GO TC 360 CAN03240

350 ICTSTF(K)=KFD(11) fAN022£0

360 CONTINUE MAN03260

IF (I.GT.NCBS) GO TO 370 MAN02270

J=0 MAN02280

SUM=0.0 MAN022S0

KA=I MAN02300

GO TO 300 VAN02210

C** ******************************************************************** * MAN 02 320

C** COMPUTE DENSITY ANC COEFFIEIENT OF EXPANSICN OF WEIGHTS **MAN02220

C** BEING TESTED **CAN02240

C** COMPUTE XREST (RESTRAINT VALUE) FOR Y(M,N) **MAN033S0

C *********************************************** ************************MAN02 260

370 NXXSIG=0 NAN02270

DO 380 I=1«NUNKN MAN02280

IF (ARSTIN( D.EG.O.O) GO TO 380 MAN02390

NXXSIG=NXXSIG+1 VAN02400

380 CONTINUE MAN02410

IF (NXNSIG.LT.2) GC TO 400 MAN02420

IF (NXXSIG.GT.l ) GC TO 400 VAN02420

DO 390 I=1«NUNKN MAN02440

IF (ARSTINd ) .EQ.0.0) GO TC 390 MAN02450

DENSTY( I)=(ANOM(I ) + • 00 1 *T fSUM } / VOLSUM MAN0 346

COEFEX( I )=SUMP VAN02470

390 CONTINUE MAN02480

400 GC TC NSERFPe (410*430) MAN03490

410 ASSIGN 430 TO NSERFP NAN025C0

XREST=0.0 MAN02510

TMSUM=0«0 WAN02520

DO 420 I=1,NUNKN MAN02£20

IF (ARSTIN(I).EQtOtO) GC TO 420 MAN02540

XRE£T = XREST+( ACCVAL( I

) -RHCA*TEMP( I ) )*ARST IN ( I ) VAN035S0

TMSUM=TMSUM+ACCVAL(I)*ARSTIN(I) MAN0 2 56

420 CCNTINUE MAN02S70

101
GO TC 440 MAN02EE0

430 XREST=TMSUM-RHCA*VCLSUM*( 1.0+SUMP*TDELT) MAN03S90

C ****** ****************************************************** ********** *MAN03600

C** MULTIPLY TRANSFCSE OF DESIGN MATRIX BY ITSELF AND STORE IN Y **MAN03610

C** ********************************************************** ********** * MAN0 26 20

440 L=0 MAN03630

00 470 IA=1,NUNKN MAN03C40

00 460 IAA=lcNUNKN MAN03650

L=L+1 MAN03660

SUM=0.0 MAN03670

00 450 JA=i«NOES MAN03680

SUM=SUM+DESMAT< I A A , J A ) *DESMAT ( I A . J A ) MAN03690

450 CONTINUE MAN037G0

Y(L)=SUM MAN03710

460 CCNTINUE MAN03720

L=L + 2 MAN03730

Y(L-1)=ARSTIN< IA) MAN03740

Y(L)=0.0 MAN03750

470 CCNTINUE MAN03760

C *******************************************************************  MANO 37 70

C**  SET UP REMAINING ELEMENTS OF MATRIX X **MAN03780

C *********************************************************************** MAN 03790

IRIN=0 MAN03800

00 480 I=1 ( NUNKN MAN03810

L=L+1 MAN03820

Y(L )=ARSTIN( I

)

MAN03830

IF (ARSTIN( D.EQ.O.O) GC TO 480 MAN03840

IRIN=1.0 MAN038S0

480 CONTINUE MAN03e60

L=L+2 MAN03870

IF (IRIN.EQ.O) GO TO 490 MAN03880

Y(L-1)=0.0 MAN03e90

GO TO 500 MAN03900

490 Y(L-1)=1.0 MAN03910

500 Y(L)=0,0 MAN03920

C** ********************************************************** ********** + MANO 3930

C** COMPUTE X«Y **MAN03940

C** ********************************************************************* MAN039 50

00 520 IAA=1«NUNKN MAN029C0

L=L + 1 MAN03970

SUM=0.0 MAN03980

00 510 JA=1«N0BS MAN03990

SUM = SUM+DESM/»T{ IAA,JA)*A(JA) MAN040 00

510 CCNTINUE KAN04010

Y(L)=SUM MAN04020

520 CCNTINUE MAN04030

Y(L+1)=XREST MAN04040

Y(L+2)=-1.0 MAN04050

C ********************************************************************** * MAN 040 60

C** CALL MATRIX INVERSICN ROUTINE **MAN04070

C***** ******************************************************* ***********MAN04080

CALL SPINV (Y»NUNKN+2tNUNKN+2« IFLAG) MAN04090

C*** *********************************************************** *********W AN 04 100

C** IF MATRIX IS SINGULAR PRINT FIRST TWO PAGES OF SERIES AND **MAN04110

C** TERMINATE RUN **MAN04120

C** IFLAG=0 INVERSE SUCCESSFUL **MAN04120

C** IFLAG=4 MATRIX SINGULAR **MAN04140

C** IFL*G=-1 I-AA(INV) FAILED **MAN04150

102
C** **************** ****************************************** * ********* *maN04 160

IF (IFLAG.EQ.O) GC TC 530 VAN04170

CALL PRINT2 WAN04180

STOP MAN04190

C *********************************************************************** VAN 04 200

C** COMPUTE DELTAd ) = A (I)-DESN AT*BETA( I ) **MAN04210

C* ******* ************** * ************************ ************* *********** MAN04220

530 L=(NUNKN+2 >*<NUNKN-U ) + l VAN04230

DO 550 1=1. NOBS MAN04240

LA-L MAN04250

SUM=0.0 KAN04260

DO 540 J = l .NUNKN MAN04270

SUM=SUV+DESMAT( Jo I )*Y(LA) MAN04280

LA=LA+1 NAN04290

540 CONTINUE MAN043C0

DELTA< I)=A(I )-SUM MAN04310

550 CONTINUE MAN04320

C* ******* ************************************************************** *VAN043 30

C** CALCULATE CORRECTICN AND VOLUME FOR THIRD OUTPUT PAGE **MAN04340

C** OF A SERIES **MAN04350

C****** ***************************************************************** MAN 436

LA=L MAN04370

DO 560 I=ltNUNKN MAN043eO

VOLFd )=( ANOM( I)/DENSTY(I ))*TEMP2( I) MAN04390

CORRPC I )=Y(LA>+RHCA*VOLP(I) MAN044 00

LA=LA+1 KAN04410

560 CONTINUE MAN04420

C*** *************************************************** **************** *M AN 04430

C** BEGIN ITERATION AND ITERATE UNTIL DIFFERENCE BETWEEN OLD **MAN04440

C** AND NEU VALUES ARE LESS TFAN .01 STDEEA **VAN04450

C** ONLY 10 ITERATIONS ARE ALLOWED **MAN04460

C** ********************************************************** ********** *MANO 4 470

CHCK=.01*STDEEA NAN044B0

ISTCP=0 MAN044S0

570 ISW7CH=0 MAN045C0

LA=L MAN04510

DO 600 I=1„NUNKN MAN04520

OBSCOR(

I

)=Y(LA)+RHGA*( ( ANCM C I ) + .00 1 +CORRP ( I) )/DENSTY« I) )*TEMP2(I> MAN04 530

LA=LA+1 MAN04540

IF ( ISWTCh.NE.O) GC TO 590 MAN04550

IF (SNGL(DABS(CESCCR( I)-CCRRP( I) ) )-CHCK) 590.590.5e0 MAN04560

580 ISWTCF=1 MAN04570

590 CORRPC I)=CBSCOR(I) *AN04E£0

600 CONTINUE MAN04SS0

ISTCF=IST0P+1 MAN04600

IF < ISTCP.GE. ITEND ) GO TC 610 VAN04610

IF (IShTCH.NE.O) GC TO 570 KAN04620

610 WR=0.0 MAN04630

DC €20 I=1»NUNKN KAN04640

IF (ARSTINC I) .EQ.0.0) GC TC 620 VAN04650

WR=WR+ANOM(I)*ARSTIN(I ) MAN04660

620 CCNTINUE PAN04670

TRISGR=RANERR**2 MAN046E0

TRSCRP=(3.0*STDE6A )**2 MAN04690

TRSCVE=(3.0*VAREAL )**2 KAN04700

LA=1 KAN04710

DC 670 I=i»NUNKN MAN04720

COMVCLC I )=(ANOM(I )4.00 1*0ESCOR(I) )/DENSTY( I) NAN0 47 30

103
CCMVOP(I>=COMVOL< I)*TEMP2(I) NAN04740

SERROR<I)=(ANOM(I )/WR ) +SYSERR VANC4 7E0

TRTEMP= TRSGRP*Y(LA)-M<ANO*<< I J/WR ) **2 » *TRI SCR+TRSQVE MAN04 76

IF (TPTEMP) 630t640.640 MANC4770

630 WRITE <IW«690) TRTEMP MAN04780

GC TC 660 MAN04790

640 IF (TRTEMP. GE.0.0) GO TO €50 MANC48C0

TRTEMP=0.0 NAN04810

650 TRISIGO > = SQRT<TRTEMP) MAN04820

660 TOTUNC I)=SERROR(I >4TRISIG(I ) NAN04830

LA=LA+NUNKN+3 VAN04840

670 CCNTINLE MAN04850

ACORR=TMSUM MAN04860

CORPES=0.0 VANC4870

TMSUM=G.O NAN04880

SERSUM=C.O MANC4890

T3SIG=0.0 CAN04900

DO 690 I=1,NUNKN MAN04S10

IF (ARSTINO ).EQ.0.0) GO TC 680 MAN04920

CORRES=CCRRES+CeSCCR(I )*ARSTIN< I) MAN049 30

680 IF ( IPSTOU(I) .EQ.O) GO TC 690 MAN04Q40

C**************** ********************** ***********************}******** ;|,man04950

C** COMPUTE MASS FCR NEXT RESTRAINT **MANC4960

C** ****** ***** ********** * ******************* ***************** ** ******** * NAN 049 7 TMSUM=TMSUM+OBSCCF<I > MAN04S80

690 CCNTINLE MAN04990

VOLSUM=0.0 NAN05000

IROLT=0 MAN0S010

NXNSIG=0 MAN05020

DO 700 I=1«NUNKN VAN05030

IF (IRSTOU(I) .EQ.O ) GO TC 700 l*AN0E040

IROLT=l MAN05050

VGLSUM = VOLSUM-M ANCK( I ) + .00 1 *OBSCOR ( I) > /DEN STY ( I) NAN 5 06

NXNSIG=NXNSIG+1 MAN0S070

700 CONTINUE MAN05080

C *********************************************************************** yAN 5 09

C** CALCULATIONS FCR TURD OUTPUT PAGE OF SERIES **MAN05100

C** COMPUTE SYSTEMATIC AND RANDOM ERROR AND TOTAL UNCERTAINTY **MAN05110

C** *********** *********************************************** *********** wan 05 120

LINVV=LINVAR+1 VANC5120

DO 710 K=1 S NUNKN NAN05140

710 ALCCM(K,LINVV)=IRSTOU(K) MAN05150

DO 770 L=1„LINVV NAN0516C

CORR5A(L)=0.0 MAN05170

SER5A(L)=0.0 MAN05180

DO 720 K=1»NUNKN VAN05150

C0RP5A(L)=C0RR5A(L>+CBSC0R(K)*ALCOM(K,L> VAN0 5 20

SER5A(L)=AES( SER5A<L)+SEPP0R<K)*ALC0M(K,L) ) MAN05210

720 CONTINUE MAN05220

LA=1 MAN05230

DO 740 I=1.NUNKN MAN05240

TEMF(I)=0.0 MAN05250

DO 730 J=l tNUNKN MANO5260

TEMP< I)=TEMP( I)4Y(LA)*ALCCM(J,L) MAN0S270

730 LA=LA+1 PAN05280

740 LA=LA+2 MAN0E2S0

SUM=0.0 MAN053G0

SUM2RP=0.0 NAN05310

104
00 750 J=1.NUNKN MAN05320

SUM2RP=SUM2RP+AN0M( J)*ALCCM( J«L) MAN0 53 3 750 SUM=SLM+TEMP< J)*ALCCM< J t L) MAN05340

IF (SUM. GE. 0.0) GC TC 760 MAN05350

SUM=0.0 MAN0S360

760 CONTINUE MAN05370

SIG35A<L)=SQRT(TRSCRP*SUM+< ( SUM2RP/WH )**2 ) *TRISCR+TRSGVE

)

MAN0S380

UNCEA(L)=SER5A(L)+SIG35A(L) CANOE 390

770 CONTINUE MAN0E400

SERSUM= SER5A(LINVV ) KAN05410

T3SIG=SIG35A(LINVV ) MAN0S420

C**************************************** ************************** *****MAN05430

C** BEGIN COMPUTATIONS FCR FOURTH PAGE — F RATIO AND T-TEST **MAN05440

C* ********************************************************************** VAN OS 450

NDGFR=NCES-NUNKN+1 MAN0S460

SUM=0.0 MAN0E470

DO 780 I=1«N0BS VAN0S480

SUM=SUM+OELTA( I )**2 MANOE490

780 CONTINUE MAN0S500

OBSTD=SQRT(SUM/FLCAT(NDGFR)

)

MAN0S510

FRATI0=0BSTD**2/STCEEA**2 MAN0S52

OBCCCK=0.0 MAN0SE30

5UMI=0.0 VAN0SE40

V2TAU=C.O VANOESEO

DO 790 I=1«NUNKN MAN0E560

IF (ACKSTDC I) .EQ..C) GC TC 790 MAN0E570

OBCCCK=CBCCCK+CBSCCR(I)*ACKSTD(I) MAN0E56

SUM1 = SUM + AN0M< I )*ACKSTD( I ) MAN0S5 9 V2TAU=V2TAU+ACCVAL (I)*ACK£TD(I) MAN056G0

790 CONTINUE VAN0S610

LA=1 MAN05620

DO 810 J=1«NUNKN NAN05630

TEMF(J)=0.0 MAN0S640

DO 800 I=1«NUNKN MAN05650

TEMF( J)=TEMP( J)+ACKSTD( I)*Y(LA) VAN05 660

800 LA=LA+1 MAN0E670

810 LA=LA+2 VAN05680

SUM = C0 MAN05CS0

DO 820 I=1«NUNKN NAN0570G

820 SUM=SUV+TEMP<

I

)*ACKSTD( I

)

MAN05710

IF (SUM. GE. 0.0) GC TC 830 MAN0S720

SUM=0.0 MAN0E730

830 CONTINUE VAN05740

OBSCK=SQRT(STDEEA**2*SUM+(SUM1/WR)**2*(RANEFR/3.0)**2+VAREAL**2) MAN05 7 50

IF (C6SCK.NE.0.0) GC TC 840 MAN0E760

TVAL=0.0 MAN05770

GC TO 850 NAN0£7e0

840 TVAL=(CBC0CK-V2TAU)/CBSCK MAN0E790

C** ****** *************************************************************** m AN 580

C** SAVE VALUES FOR FINAL RERCRT ***AN05810

C** ********************************************************************* man 05820

850 DO 860 I=1»NUNKN MAN05830

IF ( IFFNT(I) .EO.O) GC TC £60 MAN0E840

NPRT=NPRT+1 MAN0E8EC

A ITEM l NPRT)=AIDCST(le I) MAN05860

AITEM(2,NPRT)=AIDC£T(2, I) MAN0 5 8 70

AITEM(3 9 NPRT)=AIDCST(3» I) l*AN0S8e0

AITEM(4 e NPRT)=AICCST<4 e I) MANC5890

105
AITEM5.NPRT)=AIDCST(5.I) MAN0S90

APPMAP=((ANOM( I )+.001*CESCOR( I) ) *( 1 • 0- • 00 1 2/OENSTY ( I ) ) )/ ( 1 . 0- . 001 2MAN05S 10

2*(1.0+.C00054*2C.O)/8.4) V AN 59 20

APPMAS (NPRT)=(APPMAP-ANOM(I))*1000. VAN0S930

TRMASS(NPRT)=ANOM( I )+.001*CBSCCR«X) VAN 594

UNCEPT(NPRT)=.001*T0TUN( 1 ) MAN0 5950

VOLPRT<NPRT)=CCMVCL<I) MAN05960

CORREB=((AN0M(I ) . 00 1*CBSC0R< I) )*(1 . C-. 00 1 2/DENSTY ( I ) ) )/( 1 . 0- . 001 2MAN0S970

2/8. C) *ANO59e0

CORRB(NPRT)=(CCRREE-ANOM( I) )*1000. VAN05SSO

COEPRT(NPRT)=COEFEX( I) NAN060CO

860 CONTINUE MAN06010

C** ********* * **************************************** * ******* * ********** MAN060 20

C** SET LP VALUES FCR NEXT SERIES **MAN06030

C** PRINT FCUR PAGES CF OUTPUT FOR ONE SERIES **MAN06040

C** ********************************************************************* MANO6OS0

CALL PRINT2 MAN06060

SYSERR=SERSUM MAN06070

RANERR=T3SIG MAN06060

SUMsO.O MAN06090

SUM1=0.0 MAN06100

00 670 I=1 C NUNKN MAN06110

IF ( IRSTOU(I) .EO.O) GO TC €70 MAN06120

SUM=SUM+(ANOM( I)+.001*CBSCCR(I) )/DENSTY(I

)

MAN06120

SUM1 = SUM1+C0EFEX( I )*(( ANOM( I ) +. 001*OBSCOR ( I))/DENSTY( I ) ) fAN06140

870 CONTINUE MAN06150

IF (SUM. EQ. 0.0) GC TC 880 KAN06160

SUMP=SUM1/SUM PAN06170

880 CONTINUE VAN06ieO

IF (IRCUT.NE.O) GC TC 20 MAN0619Q

IF (NPFT.EQ.O) GO TO 10 VAN06200

CALL FINPRT MAN06210

GC TC 10 MAN06220

C ********************************************************************** *MANO 6 230

C** FORMAT STATEMENT **VAN06240

C *********************************************************************** MANO 6250

890 FORMAT (141- NEC SOFT ARG=E16.7) VAN06260

END VAN06270

REA01 SUBPROGRAM

SUBROUTINE REA01 RO100010

C***** ****************************************************************** RO IOC 02

C** SUBROUTINE OF ThE NATIONAL BUREAU OF STANDARDS MASS CALIBRATION **RD100030

C** PROGRAM VERSION OF SEPT. 10*1971 WRITTEN BY R.C.RAYBOLD **RO100040

C** AND MRS.R.N.VARNER **fiD100050

C** MODIFIED BY R. N. VARNER SEPT 1979 **RD10C060

C* ******* **************************************************** ***********rd 100070

C** SUBROUTINE TO READ DATA CCMMCN TC ALL SERIES **RD100080

C***** ******************************************************* ***********RD 100090

C** DIMENSION FCR CCMMCN /PRT1/ VARIABLES **RD100100

C ************************************************************ ********** *rd 1001 10

DIMENSION El (72) .E2(72) .B3(72) »B4(7 2) * B5( 72 ) . B6 (72 ) ,B7( 72 ) . RD 100 120

2 I0ATE(3) RD100120

C*** ******************************************************************** RD 100140

C** DIMENSION FOR CCMMCN /RAREA/ VARIABLES **RD1001S0

C*** ***************************************** ***************************RD100160

DIMENSION AA(72)» AAITEM(5 ) RD100170

C** ******************************************************************** *RD1 00 180

C** LABELEC COMMON **RO10C190

106
C*************************** *********** *********************************RDi00200

COMPCN /PRT1/ E1.E2,B3,84,85,B<S.B7,RANERR« SYSERR* TNCM» L 1 o L2»L3 t L4 9 RD 1 02 1 2 L5 9 L6» IDATE* IBREST RD100220

COMKCN /RAREA/ AA.AAITEM RD100220

COMMON /UNITIO/ I R » I * . I P , IPL . I TMP RD103240

COMMON /STCP/ FS 9 FT»FO»FP 9 FB RD100250

C***********************************************************************RD100260

C** READ IN AND SET UP ADMINISTRATIVE DETAILS **RD100270

C** READ 8 CARDS IF ALL 8 ARE NCT USED t ADD ELANK CARDS **RD100280

C** THESE CARDS ARE SEARCHED FOR THE 1ST NON-BLANK CHARACTER AT **RD1002SO

C** WHICH TIME ALL REMAINING CHARACTERS ARE MOVED **RD1003C0

C** TO A NEW LOCATION STARTING IN POSITION 1 **RD10O21O

C** CARD 1 - NAME CF ORGANIZATION **RD100320

C** CARD 2 - ADDRESS STREET NUMBER ANO NAME **RD100320

C** CARD 3 - ACDRESS CITY . STATE ZIP CODE **RD100340

C** CARO 4 - TYPE OF SET (EG. 1-KG TO 1 -MG ) **RD100250

C** CARD 5 - SERIAL NUVBER OF SET CF WEIGHTS BEING TESTED **RD1003€0

C** CARD C - DATE CF THE REPCRT **RD100370

C** CARD 7 - TEST NUMBER (MAX OF 18 CHARACTERS) **RD100380

C** EXCEPT FOR THE FIRST PRINTED PAGE ONLY THE **RD1C0350

C** FIRST 65 CHARACTERS ARE PRINTED ON OUTPUT **RD100400

C***** *** ********** *****   ** ***** *** ************* ** ******** *

*********rq 10 04 10

DO 10 K=1.72 RD100420

B1(K)=FB RD100430

B2(K)=FB RD100440

B3(K)=FB RD100450

B4(K)=FB RD1004£0

B5(K)=FB RD1CC470

B6(K)=FB RD100480

B7(K)=FB RD100450

10 CONTINUE RD1005CO

DO 130 I = l 9 7 RD10CS10

REAC (IR.140) ( AA(L)*L=1 .72) RD100S20

DO 20 J=l«72 RD100520

IF (AA(J).EQ.FB) GC TO 20 RD100540

N=73-J RD10C5S0

JJ=J RD1C0560

GO TC 30 RD100S70

20 CONTINUE RD100580

GO TC 130 RD100SSO

30 DO 120 K=1«N RD1006C0

C *********************************************************************** RD 1006 10

C** MOVE NCN-ELANK CHARACTERS TO BEGINNING OF FIELD **RD10C62C

C*** *************** *****************************************************RD1 00620

GO TC (40.50.60.70.80. 90,100). I RD100640

40 L1=N RD100C50

B1(K)=AA(JJ) RD100660

IF (K.NE.4) GO TO 110 RD100670

C** ****** ********** **************************************************** *ro 10 068

C** TEST TO SEE IF CARD HAS STCP ON IT . IF IT DOES THEN STOP THE **RD1006S0

C** PROGRAM OTHERWISE CCNTINUE **RD100700

C*** ***** **************************************************** ***********rd 10 7 10 IF (BK1 ).EQ.FS.AND.B1 (2) .EQ .FT . AND .Bl (3) . EC .FO . AND .B 1 (4) .EQ.FP) SRD 10 0720

2T0P PD100720

GO TC 110 RD100740

50 L2=N RD100750

B2(K)=AA(JJ) RD1007C0

GO TO 110 RD10077C

107
60 L3= N R0100780

B3( K)=AA< JJ) RD1007S0

GO TO 110 RD100800

70 L4= N ROlOOeiO

B4<K)=AA<JJ> RD1C0820

GO TC 110 RO100830

80 L5=N RO100840

B5(K)-AA<JJ) RDIOC850

GO TO 110 RD1008eO

90 L6= N RD100870

86(K)=AA(JJ) RDlOOeeO

GO TO 110 RD100890

100 B7(K)=AA(JJ) RD10C900

110 JJ=JJ+1 RD100S10

120 CONTINUE RO10CS20

130 CONTINUE RD10C930

C* ******************************* *********** ****************** ********* * RD 1009 4 C** READ RANDOM ERROR LIMIT* SYSTEMATIC ERROR LIMIT AND NOMINAL **RD10C950

C** TEMPERATURE ALL ON CNE CARD FREE FIELD .FIELDS MUST BE **RD1009€0

C** SEPARATED EY A BLANK OR ANY NON-NUMERIC CHARACTER EXCEPT FOR **RD100570

C** D OR E OR • **PD100S80

C RD1009S0

C**  WHERE THE NUMBERS MUST BE IN THE FOLLOWING CRDER **RD101000

C** RANERR = 3 TIMES RANDOM ERROR IN THE STARTING RESTRAINT IN MG **RD101010

C** SYSERR = SYSTEMATIC EfcRCR IN THE STARTING RESTRAINT IN MG **RD101020

C** TNCM = NOMINAL TEMPERATURE AT WHICH THE APPARENT MASS **RD101020

C** VALUES ARE REPCRTED IN DEGREES C **RD101040

C** IEREST = STARTING RESTRAINT ID NUMBER **RD101050

C RD1010€G

C**  FOR THE REST OF THE INPLT CARDS FOR EACH SERIES OF VbEIGHINGS **RD101070

C** LOOK AT COMMENTS CARDS IN SUBROUTINE READ2 **RD101080

C***********************************************************************RD101050

CALL READIT ( A A . 1 . A A ITEM

)

RD1011CC

RANERR=AA(1> RD101110

SYSERR=AA<2) RD101120

TN0M=AA<3) RD101120

IBREST=INT(AA(4)+.S) RD1O1140

RETURN RD1011SO

c** ********************************************************************* rdioi leo

C** FORMAT STATEMENT **RD101170

c ********************************************************************** *rcioi leo

140 FORMAT (72A1) RD1011SC

END RD10120C

READIT SUBPROGRAM

SUFRCUTINE READIT (ZtKCLtA) RDT0001G

C*** ****************************************************************  RDT00020

C**  SUBROUTINE OF THE NATIONAL BUREAU OF STANDARDS MASS CALIBRATION **RDT00030

C** PROGRAM VERSION OF SEPT. 10.1971 WRITTEN BY R.C.RAYeOLD **RDT0CO40

C** AND MRS.R.N.VARNER **RDT00050

C** MODIFIED BY R. N. VARNER SEFT 1979 **RDT00060

C*** ********************************************************* *********** RDTO 070

C** ANSI FORTRAN SUBROLTINE TC READ NUMBERS IN ANY FORMAT ANYWHERE **RDT00080

C** ON A CARD (EETWEEN CARD COLUMNS 'KOL* AND eO. INCLUSIVE). **RDT00090

C** IN THIS VERSION OF THE SUBROUTINE* WHEN KOL = 16. CARD CCLUMNS **RDT001CO

C** 1 THROUGH 15 ARE SCANNED TC PICK UP ALPHA-NUMBER IC DATA »HCH **RDT00110

C** ARE STCRED IN VARIABLE 'A'. **RDTC0120

C** WRITTEN BY ROY H. WAMPLERe STATISTICAL ENGINEERING LABOPATCRY* **ROT00120

C** NATIONAL BUREAU OF STANDARDS* KASHI NGTCNe D. C. 20234 **RDT00140

108
C** VERSICN OF FEBRUARY 8. 1971 **RDT001SC

c***********************************************************************RDTooieo

C** NUMEERS TC eE READ BY THIS ROUTINE SHOULD CBEY THE FOLLOWING **ROT00170

C** RULES. **RDT0C180

C RDT001S0

C**  (1) BETWEEN ANY TWO NUMBERS THERE MUST BE A SEPARATOR. THIS **RDT00200

C** CAN BE CNE OR MORE ELANK SPACESt A COMMA* ANY LETTER • EXCEPT D **RDT00210

C** OR E. OR ANY CHARACTER EXCEPT A PLUS SIGN. A MINUS SIGN, CR A **RDT00220

C** DECIMAL. **RDT00220

C RDT00240

C**  (2) NUMEERS CAN APPEAR IN INTEGER FORM. EXAMPLES ARE **RDT00250

C** 63 -271 +81062 01 2.71.-534.28 **ROT00260

C RDT00270

C**  (3) NUMBERS CAN EE WRITTEN WITH A DECIMAL FCINT. EXAMFLES ARE **RDT00280

C** 0. -1.0 38.1 -63. .00015 +371.286 **ROT00290

C RDT002CO

C**  (a) NUMBERS CAN EE WRITTEN WITH AN EXPONENT WHICH MUST EE **RDT00310

C** PRECEDED BY A D OR E. (IN THIS ROUTINE D IS CONSIDERED EGUIVA- **RDT00320

C** LENT TC E* AND NUMEERS WITH D ARE NCT INTERPRETED TC BE **RDT00330

C** DOUELE PPECISICN NUMEERS.) EXAMPLES ARE **RDT00240

C** 2.1E12 2. IE 12 2.1E+12 2.1E-12 **RDT003S0

C** -2.1D12 -2. ID 12 -2.1D412 -2.1D-12 **RDT00360

C** 0021. E02 .00021E5 2.1E0 2.1E-0 **RDT00270

C** 21E12 21E+12 21D-12 **RDTC0380

C** THE LAST THREE EXAMPLES ILLUSTRATE THAT A DECIMAL NEED NCT BE **RDT00390

C** USED IN CONNECTION WITH THE D CR E. **RDT004C0

C***** ********** ******************************************************* *RDT0 04 10

DIMENSION Z(40) *A( 1) .N(60 ) , ID I G IT ( 1 ) . T< 77 ) RDT00420

COMMCN /DPFDVL/ KFC(18) RDT00420

COMMCN /UNITIC/ IF » I W * IP. IPLt ITMP RDT00440

EQUIVALENCE ( ID IG IT ( 1 ) . KFC ( 1 )

)

RDT00450

EQUIVALENCE ( IPLUS . KFD ( 1 5 ) ) RDT00460

EQUIVALENCE ( I M INU S • KF D ( 1 2 )

)

RDT00470

EQUIVALENCE (ID.KFCU7)) RDTG0480

EQUIVALENCE (IE«KFC(18)) RDT0C490

EQUIVALENCE ( I DECM L . KFD ( 1 2 )

)

RDT005C0

EQUIVALENCE ( I ELANK • KFD ( 1 1) ) RDT00510

***** ************************************************************** *RDT0 05 20

FCLLCWING DIMENSION STATEMENT AND THE THREE DATA STATEMENTS **RDT00S20

FOLLOW THAT ARE MACHINE-DEPENDENT. **RDTG0540

CONTAINS THE MACHINE RANGE OF NUMBERS **RDT005SO

THIS CASE l.E-38 TC 1.E38 **RDTC0560

= NUMBER OF UNIQUE POWERS OF TEN REPRESENTED EY **RDT00570

THE MACHINE RANGE **RDT00580

NUMBER OF PCWERS OF TEN (NEGATIVE AND POSITIVE) **RDT005S0

REPRESENTED EY THE MACHINE RANGE **RDT00600

<f *************************** 1 ************ ******************* *********rqT0 06 10

DATA T(l)sT(2).T(3).T(4).T<5)«>T(6)«T(7).T(e).T(9).T(10)eT(ll)c RDTC06 2C

2 T( 12>.T(13>»T( 14) .T(15).T(16),T(17).T(18),T(1S),T(20).T(21 ) . T (22 ) ROT 00630

3,T(23) ,T(24).T(25 > *T(26 ) • T( 27 ) • T( 28 ). T ( 29 ) «T ( 30 ).T(31 ) * T ( 32 ) . T ( 33 ) RDT00640

4.T(24).T(35).T(36)»T(37),T(38).T(39).T(40>.T(41 ) . T ( 42 ) , T ( 43 ) .T ( 44 ) ROTO 06 SO

5eT(45)cT(46) T(47)cT(48).T(49) s T(50)tT(51 ) . T ( 52 )• T ( 53 ) . T ( 54 ) , T(55 ) RDT0 0660

6 e T(56)eT(57) e T(58) 9 T(59)»T(60>.T(61).T(62) 9 T ( 63 ) * T ( 64 ) , T ( 65 ) * T ( 66 ) RDTO 0670

7 e T(e7)oT(68)»T(69)»T(70)»T(7l).T(72).T(73)«T(74),T(75).T(76). RDTO 68

8 T(77) /l.E-38* l.E-37. l.E-36* 1 .E-35. 1 . E-34. 1 . E-23« 1 .E-32 . l.E-31 , RDT00690

9 l.E-206 l.E-29. l.E-28. 1 .E-27 . 1 . E-26 . 1 • E-25 , 1 .E-24. 1 .E-2 3 , l.E-22. RDTO 07 CO

* 1 .E-21.1.E-20. 1.E-19.1.E-18.1.E-17.1 .E-16. 1 .E- 15. I .E-l 4. 1 .E- 13. RDT00710

1 l.E-12. l.E-11. l.E-10. 1.E-9.1.E-8. 1.E-7.1.E-6. 1 .E-5. 1 . E-4 . 1 .E-3. ROT 72

109

c** THE F c** WHICH

c** T(I ) c** IN c** IZERO

c**

c** MAX = c**
2 l.E-2c l.E-1. 1, .1.E1.1 .E2.1.E3.1.E4. 1.E5. 1.E6, 1 .E7, 1.E8.1 .E9. l.E10RDT0073q

3,1.E11,1.E12»1.E13»1„E14,1.E15.1.E16. l.E17,l.Eie.l.E19 9 1.E2 0, 1.E21RDT 00740

4* l.E22t 1.E23.1.E24.1.E25.1 .E26.1 .E27,l.E28,l.E29.1.E3 0,l.E31 f l.E32RDT00750

5, l.E33,l.E34« 1 .E35« 1 .E36« 1.E37. 1.E38/ RDT0 76

DATA IZEROelMAX /39t77/ RDT0C770

C** THE DIMENSIONED VARIABLE T IS USED FOR ENTERING POWERS CF TEN **RDT00790

C** INTO THE PROGRAM. **RDT00800

C** IZEFO IS THE SUESCRIPT OF T SUCH THAT T(IZERO) = 1. (= 1.E0). **RDT00810

C** (ON THE UNIVAC 110e» T(IZERC) = T(39).) **RDT00820

C** IMAX IS THE LARGEST SUBSCRIPT CF T. **RDTCC830

C** IN THE PROGRAM IT IS ASSUMED THAT (1 + IMAX )/2 = I2ERO. THAT **RDT00840

C** IS* WE ASSUME THAT VALID SINGLE PRECISION NUMBERS RANGE IN **RDT00850

C** ABSOLUTE VALUE FRCM 10.**(1 - IZERO) TO 10.**(IZERC - 1), CR ARE**RDT00860

C** EQUAL TC ZERO. **RDT00e70

C** NR IS THE COMPUTER'S READING UNITt AND NW ITS WRITING UNIT. **ROT00880

C** ******************************************************************** *RDTO 0890

C** CHARACTERS OF INTEREST ARE IN KFD **RCT0CSC0

C** THEY WILL EE COMPARED WITH N **PDT00910

C* ****************************************** ****************************RDT 009 20

C** ***************************************** ********************* *******rdT0 09 2 C** THE CHARACTERS CN CNE CAFC ARE READ IN AN A-FORMAT AND STCRED **RDT00940

C** IN N. **RDT009EO

C****** **************************************** *************************RDT 0960

IF (KOL.GE.1.AND.KCL.LE.80) GO TO 10 RDT0C97C

CALL ERROR < KOLe A* N tLLo IW f 7 ) RDTOOS80

RETURN RDT00990

10 IF (K0L.EQ.16) GO TO 20 RDT010C0

REAC (IRelOlO) (N( I )» I = 1 1 80

)

RDT01010

GO TO 30 RDT01020

20 READ (IR.1000) < A { I ) . 1 = 1 . £ ) . ( N( I > . 1 = 16 .80

)

RDT01030

C** ************* *********** ************************** *******************RDT0 1040

C** ON SOME COMPUTERS THE FORMAT FOR READING A(I) MAY HAVE TC BE **RDT01050

C** CHANGED. **ROT01060

C****** *************************************************************  RDT0 107

C**  APPROPRIATE VARIABLES ARE INITIALIZED. **RDT01080

C*** *************** *********** ******************** ****** **************** ROTO 1090

30 IDORE=0 RDT01100

IEXF=0 RDT01110

ISIGX=0 RDT01120

K=0 RDT01130

NDE=0 RDT01H0

NDEC=0 RDT011S0

NODEC=0 ROT01160

NUME=0 RDT01170

NXD1G=0 RDT01180

SIG=0. RDT01190

SIGN=0. RDT01200

DO 40 1=1.40 RDT01210

40 Z(I)=0. RDT01220

C* ********************************************************************* *RDTO 12 30

C** THE CHARACTERS CN THE CARC ARE EXAMINED. **RDT01240

C** WHEN NUMBERS ARE FCUND THEY ARE STORED IN ZOO. **RDT01250

C ******************************************* ****************************RDT0 1260

DO 980 I=KCL.80 RDT01270

C ************* *********************************************** ***********RDT0 1280

C** DETERMINE IF N(I) IS A DIGIT. **RDT01290

C*** ****************************************************** ******* *******RDT 01300

110
IF (N(I) .GE. IDIGITU ) . AND .N< D .LE. IDI G ITC 101) GC TC 520 RDT01310

C** *********** ******************* *********** ********* ********* * **** *****RDT0 1320

C** N(I) IS NOT A DIGIT. **RDT01330

C** DETERMINE IF N(I) IS A PLUS* MINUS. DECIMAL* Do E* CR BLANK. **RDT01340

C* ******* ******************************************** ********* ********* *RDT 01350

IF (NUMB) 140*50.140 RDT01369

50 IF <N<D-IPLUS) 60*130*60 RDT01370

60 IF <N( U-IMINUS) 70.100.70 RDT01380

70 IF <N< D-IDECML) eC*SO»80 RDT01390

80 NDE=0 RDT01400

SIG=0. RDT01410

GO TO 780 RDT01420

90 NDE=1 RDT01430

GO TC 780 RDT01440

100 SIG=-1. RDT014S0

110 IF (NDE) 120*780*120 RDT01460

120 NDE=C RDT01470

GO TO 780 RDT01480

130 SIG=1. RDT0149C

GO TC 110 RDT01SC0

140 IF (IDCRE) 340*150*340 RDT01510

150 IF (NDEC) 250,160.250 RDT01S20

160 IF (N(I)-ID) 180*170*180 RDT01S30

170 ID0RE=1 RDT01540

N0DEC=1 RDT01550

GO TC 7e0 RDT01560

180 IF (N(I)-IE) 190*170*190 RDT01S70

190 IF (N( D-IDECML) 21C.200.210 RDT01580

200 NDEC=1 RDT01590

GO TC 780 RDT016C0

210 IF <N(D-IPLUS) 230,220.230 ROT01610

220 SIG=1. RDT0162C

GO TC 850 RDT01630

230 IF <N< D-IMINUS) 850.240.850 RDT01640

240 SIG=-1. RDT01650

GO TC 850 RDT016C0

250 IF (N(D-ID) 270*260.270 RDT01670

260 ID0RE=1 ROT0168C

GO TC 780 RDT01690

270 IF (N(I)-IE) 280.260,280 RDT01700

280 IF (N(D-IDECML) 300*290*300 RDT01710

290 NDE=1 RDT01720

GO TO 870 RDT01730

300 IF (N(D-IPLUS) 320*310*320 RDT01740

310 SIG=1. RDT0175G

GO TO 870 RDT01760

320 IF (N(D-IMINUS) 870.330.€70 RDT01770

330 3IG=-1. RDT01760

340 IF (N{ D-IDECML) 370*350*270 RDT01790

350 NDE=1 RDT01800

IF (NXDIG) 870*360.870 RDT0I810

360 IF (NDEC) 870*850. e70 RDT0ie20

370 IF (IDCRE-1) 38C.44C.380 RDT01830

380 IF (N(D-IFLUS) 40C.390*4C0 RDT0ie40

390 SIG=1. RDTOieSO

GO TC 420 ROT01860

400 IF (M D-IMINUS) 420*410*420 R0T0ie70

410 SIG=-1. RDToieeo

111
420 IF

430 IF

440 IF

450 IF

460 IF

470 IF

480 IF

490 IS

500 ID

540 IF (SIG) 550.S60.5S0

550 SIGK=SIG

SIG=0.

GO 70 570

560 SIGN=1.

570 IF (NDE) 580.590.580

580 NDEC=NDE+1

NDE=0

590 00 600 L=l«10

IF <M D.NE. lOIGIT(L) J IN=L-1

GO TO 610

600 CONTINUE

610 ZED=IN

IF (ZEO) 62Q S 630.620

620 LL=1

GO TO 640

630 LL=C

640 NJME=1

GO TO 780

(NXDIG) 870.430.870 ROT01690

(NDEC) 870.850.670 RDT01900

(NXOIG) 870*450.870 RDT01910

(N( D-IMINUS) 460.510.460 RDT01920

(N(I)-IPLUS) 470»490t470 RDT01930

(N( D-IELANK) 48C«49C»480 RDT01940

(NDEC) 870*850.670 RDT01950

ISIGX=1 RDT01960

IDCRE=IC0RE+1 RDT01970

GO TC 780 RDT01980

510 ISIGX=-1 RDT01990

GO TC 500 ROT02000

C*** ********************************************* ***********************RDT020 10

C** N(I) IS A DIGIT. **RDT02020

C ************************* ***** * ***************************** * * *******j|(#rdtO 20 30

520 IF (NUMB) 530»E40.S30 RDT02040

530 IF (IDCRE) 730.650*730 RDT02050

C ********************************************************************** *RDTO 20 60

C** N(I) IS T»-E FIRST CIGIT CF A NUMBER. **RDT02070

C******** ********************** ***************** ***** * ******* * **********RDT02080

RDT02090

RDT02100

RDT02110

RDT02120

RDT02130

RDT02140

RDT02150

RDT02160

RDT02170

GC TO 600 RDT02180

RDT02190

RDT02200

RDT02210

RDT02220

RDT02230

RDT02240

RDT0225C

RDT0226C

RDT0227C

RDT0228C

C ********************************************************************** *RDT 2 29

C** N(I) IS THE J-TI- DIGIT OF A NUMBER WHERE J IS GREATER THAN **RDT023CC

C** ONE. **RDT0231(

C** ******************************************************************** *RDT023 2(

650 IF (NCEC) 660*670*663 RDT0233(

660 NDEC=NCEC+1 RDT0234C

67C 30 680 L=1.10 RDT023£(

IF (N( D.NE. IDIGIT(L) ) GC TO 680 RDT0236C

IN=L-1 RDT0237C

GO TC 690 RDT0238C

680 CONTINUE RDTO2390

690 FIN=IN RDT0240(

ZED=10.*ZED«-FIN RDT024K

IF (ZEO 700*780*700 RDT0242(

700 LL=LL+1 RDT0242C

IF (LL.LT. IZERC) GC TO 780 RDT0244C

IF (LL.EC. IZERO) GC TO 710 RDT024SC

GO TC 720 RDT0246C

112
710 CALL ERROR ( KCLc A , h , LLo IW . 1

)

RDT02470

GO TO 780 RDT02480

720 CALL ERROR ( KOL • A . K ,LL • IM . 2 ) RDT02490

GO TO 990 RDT025G0

C***********************************************************************RDT02510

C** N(I) IS AN EXPCNENTIAL DIGIT. **RDT02520

C*** ************************************* *******************************RDT02520

730 IF (IDCRE-1) 750.740.750 RDT02S40

740 ISIGX=1 ROT02S5O

750 DO 760 L=1.10 RDT02560

IF (N( I

)

.NE.IDIGIT(L) ) GO TO 760 RDT02570

IN=L-1 RDT025S0

GO TO 770 RDT02590

760 CONTINUE RDT02C00

770 IEXF=1C*IEXP+IN RDT02610

NXCIG=NXDIG+1 RDT02620

GO TO 780 RDT02620

C* *********************************************************** ***********RDT02 64

C** DETERMINE IF ThE LAST COLUMN OF THE CARD HAS BEEN REACHEC. **RDT026S0

C***********************************************************************RDT02660

780 IF (I-EO) 980»790»790 RDT02670

C************************************* ******************* ***************RDT02680

C** LAST COLUMN HAS EEEN REACHEC. **RDT02690

C** END-CF-CARD ROLTINE IS NCfc EXECUTED. **RDT02700

C*** ******************************************************************** RDT02710

790 IF (IDGRE) 830t€00»830 RDT02720

800 IF (NUMB) 820.ei0.e20 RDT02730

810 SIG=0. RDT02740

NDE=0 RDT027SO

GO TO 980 RDT02760

820 IF (NDEC) 870.850.e70 RDT02770

830 IF (NXCIG) e70«640.e70 RDT02780

840 IF (NDEC) 870.850.670 RDT02790

C*******************************************************************#***RDT0280Q

C** K-T»- NUMBER (WHICH APPEARED IN INTEGER FORM) IS STORED AS **RDT02610

C** Z(K). **RDT02820

C***********************************************************************RDT02820

850 K=K41 RDT02840

IF (ZED) 860«96C«ee0 RDT028E0

$60 Z(K)=SIGN*ZED RDT02860

GO TO 970 RDT02e70

C ********* ******************************* ************************** *****rqT 02880

C** K-TH NUMBER (WHICH APPEARED IN NON-INTEGER FORM) IS STOREC AS **RDT02890

C** Z(K). **RDT02900

C*** ******************************************************************* *RDT 29 10

870 K=K+1 RDT02920

NDEC=NCEC+NODEC RDT02930

IF (ZED) 880. 960.860 RDT02940

880 KK=LL+ISIGX*IEXP-NCEC«-1 RDT02950

IF (KK.GT.( 1-IZERO.AND.KK.LT.IZERO) GO TO 930 RDT029CO

IF (KK.LT. (1-IZERC) ) GC TC £90 RDT02970

IF (KK.EQ.

(

1-IZERO)) GO TC 900 RDT02980

IF (KK.EQ. IZERC) GC TO 910 RDT02990

IF (KK.GT. IZERC) GC TO 920 RDT02000

B90 CALL ERROR ( KOLs A* N. LL» IW • 3 ) RDT03010

GO TO 930 RDT02020

900 CALL ERROR ( KOL . A • N *LL . IW .4 ) RDT03030

GO TO 920 RDT02040

113
910 CALL ERROR ( KOL , A . N ,LL * I V» .5 ) RDT03050

GO TO 930 RDT030C0

920 CALL ERROR ( KOL« A. N« LL» IVK» 6 ) RDT03070

GO TC 930 RDT03060

930 M=KK-LL+I2ER0 RDTC3090

IF (M.LE.O.OR.M.GT.IMAX) CC TO 940 RDT03100

Z<K ) = SIGI\*ZED*T<M) RDT03110

GO TC 970 RDT03120

940 M=I2ERC-LL RDT03130

IF (M.NE.O) GO TO 950 ROT03140

C***********************************************************************RDT02150

C** M IS EQUAL TC ZEPC <SPECIAL CASE) **RDTC31C0

C*** ************************************************* ************ *******p.GT02170

M=M+1 RDT03180

ZEC=ZED*T(M) RDT03190

M=KK+IZER0-1 RDT032CO

Z(K)=SIGN*ZED*T(M) RDT03210

GC TC 970 RDT03220

r********^*********************#************* ¥ ************^********+ R0T0323^

C**  M IS NCT ECUAL TC ZERO **RDT03240

C* ********************************************************************* *RQT 03 2 EO

950 ZEC=ZED*T<M) RDT032CO

M=KK+IZERO RDT03270

Z(K)=SIGN*ZED*T(M) RDT022e0

GO TC 970 RDT03290

960 Z(K)=0. POT02300

C** ****** ******************************************** ******** ***********roT0 2 3 10

C** APPROPRIATE VARIABLES ARE RE- INIT I AL I ZED, **RDT02320

C* ************************************************************ ***** *****RDT033 30

970 IDORE=0 R0T02340

IEXF=0 RDT033SO

ISIGX=0 RDT02360

KK=0 RDT03370

LL=0 ROT03380

M=0 RDT02390

NDEC=0 RDT03400

NOCEC=0 ROT03410

NUME=0 RDT03420

NXDIG=0 RDT02430

SIGN=0. ROT03440

980 CCNTINUE RDTC3450

RETURN RDT024C0

990 KK=0 RDT02470

LL=0 RDT034e0

M=0 RDT03490

RETURN ROT02500

C** ******************************************************************** *RDTO 35 10

C** FORMAT STATEMENTS. **RDT03E20

C *********** ********************************************** ******* *******RDT 03 530

1000 FORMAT (5A3*65A1) ROT03E40

1010 FORMAT (80A1) RDT03S50

END RDT03560

ERROR SUBPROGRAM

SUBROUTINE ERROR ( KOL • A , N .LL . I * . KEY

)

ERR00010

C** ********************************************************************* ERRO 00 20

C** SUBROUTINE OF THE NATIONAL BUREAU OF STANDARDS MASS CALIERATICN **ERR00030

C** PROGRAM VERSION CF SEPT. 10, 1971 WRITTEN BY R.C.RAYEOLD **ERR0C040

C** AND MRS.R.N.VAPNER **ERR0C050

114
C** MODIFIED BY R. N. VARNER SEPT 1979 **ERR00060

C**************************#********************************************ERR00070

C** SUBROUTINE OF THE DIAGNOSTIC OUTPUT FOR READIT SUBROUTINE **ERRCCOfiO

C***********************************************************************ERR00090

DIMENSION A(1) ( N(1) ERR00100

GO TO (10.20,30.4C»50 9 6C»70), KEY ERR00110

10 WRITE (IWelOO) LL ERR00120

IF (KCL-16) 90.80,90 ERR00130

20 WRITE (IW,U0) LL ERR00140

IF (KOL-16) 90*80.90 ERR00150

30 WRITE (IW«120) ERR00160

IF (KOL-16) 90,60,90 ERR0C170

40 WRITE (IW«130) ERR00180

IF (KOL-16) 90,60,90 ERRC0190

50 WRITE (IW.140) ERR00200

IF (KOL-16) 90«e0c90 ERR00210

60 WRITE (IW B 150) ERR00220

IF (KOL-16) 90,80,90 ERR00230

70 WRITE (IW.160) KC

L

ERR00240

RETURN ERR002S0

80 WRITE (IWoieO) ERR00260

WRITE (IW.170) (A( I ), 1 = 1 ,£) ,(N( I ) , 1 = 16,80) ERR00270

RETURN ERR002eO

90 WRITE (IWel80) ERR00290

WRITE (IW.190) (N( I ), 1 = 1 ,e0) ERR00300

RETURN ERR00310

C** ************************* ******** *************** ****** ***** ** ******** ERRO 03 20

C** FORMAT STATEMENTS **ERR0C330

C** ********************************************************************* ERR 00 340

100 FORMAT (25H0***** DIAGNOSTIC *****/lX, ERR003E0

2 64H***** THE NUMBER OF SIGNIFICANT DIGITS IN A NUMBER HAS RE ACHEERR00360

3D 9 I3e42H. THIS MAY PRODUCE OVERFLOW OR UNDERFLOW.) ERR00370

110 FORMAT (20H0***** ERROR *****/lX, ERR003eO

2 64F***** THE NUMBER OF SIGNIFICANT DIGITS IN A NUMBER HAS RE ACHEERR00390

3D e I3»43H. THIS W ILL FRCCUCE OVERFLOW OR UNDERFLOW.) ERR00400

120 FORMAT (87H0***** ERROR ***** NUMBER IS TOO SMALL IN AESOLUTE VERR00410

2ALLE AND WILL PRODUCE UNDERFLOW.) ERR00420

130 FORMAT (87H0***** DIAGNOSTIC ***** NUMBER IS SMALL IN ABSOLUTE ERRC0430

2VALUE AND MAY PRODUCE UNDERFLOW.) ERR0044C

140 FORMAT (86H0***** DIAGNOSTIC ***** NUMBER IS LARGE IN ABSOLUTE ERR00450

2VALUE AND MAY FRCCUCE OVERFLOW.) ERR00460

150 FORMAT (86H0***** ERRCR ***** NUMBER IS TOO LARGE IN AESOLUTE VERR00470

2ALUE AND WILL PPCCUCE OVERFLOW.) ERR00460

160 FORMAT (44H0***** ERROR ***** THE VALUE CF • KOL • IS tl€t ERR00490

2 27H AND THIS VALUE IS INVALID./1X* ERR005C0

3 50HKOL MUST BE GREATER TKAN AND MUST NOT EXCEED 80.) ERR0C510

170 FORMAT (1H ,5A3,65A1) ERR00520

180 FORMAT (72H THIS OCCURRED IN CONNECTION WITH READING THE CATA ON TERR00S30

2HE FCLLCWING CAFC) ERR00540

190 FORMAT (1H ,80A1) ERR00550

END ERR00560

PRINT1 SUBPROGRAM

SUBROUTINE PRINT1 PR100010

C** ********************************************************** *********** pp 100020

C** SUBROUTINE OF THE NATIONAL BUREAU OF STANDARDS MASS CALIBRATION **PR100030

C** PROGRAM VERSION CF SEPT. 10.1971 WRITTEN BY R.C.RAYECLD **PR100040

C** AND MRS. R.N. VARNER **PR100050

C** MODIFIED BY R. N. VARNER SEPT 1979 **PR1000€0

115
C* **************************** *********** ************ ******** * ******  ppi 00070

C**  SUBROUTINE TO PRINT TITLE PAGE 1/12/70 **PR100080

C** ******************************************************************** *ppiQ0090

C** DIMENSICN FCR CCMMCN /PRT1/ VARIABLES **PR10C1C0

C** *********************************** ********** ******************* *****pp 1001 10

DIMENSICN El(72).e2(72> ,B3<72) .B4<7 2) . B5< 72 ) . B6 (72 ) , B7( 72 )

,

PR 100 120

2 IDATEO) PR100120

C*** ******************************************************************* *pr 100 140

C** LABELEC COMMON **PR100150

c**************** ************************************************ *******pfuoo ieo

COMMON /PRT1/ Bl»E2«E3«B4»E5»B6»B7«RANERR»SYSERR*TNCM9 Ll»L2*L3tL4»PR100170

2 L5 s L6e IDATE. IEREST PR100180

COMMCN /PRT2/ IPAGE .NOSER « IPGCT PR10CISO

COMMON /UNITIO/ I B . I * IP . 1PL , ITMP PP1O0200

WRITE (IW.80) PR100210

WRITE (IW.90) (Bl (K).K=1.L1

)

PR1C0220

WRITE (IW.90) (E2(K)»K=1«L2) PR100230

WRITE <IW»90) (E3(K ),K=1,L3) PR100240

WRITE (IW.90) (E4(K) ,K=1 ,L4) PR100250

WRITE (IW«90) (E5(K).K= 1.L5) PR100260

WRITE (IW»90) (E6(K) e K=l.L6) PR100270

WRITE (IW.100) (B7(K) .K=l .18) PR100280

DO 70 1=1*6 PR10C290

IPAGE=IPAGE+1 PR100300

WRITE (IW.110) (ei(K) ,K = 1 .65) . IPAGE PR10C310

WRITE (IW.120) (B2(K),K=1,L2) PR100320

WRITE <IW«120) (B3(K).K=1.L3) PR100320

WRITE (IW«130) (B7(K) .K=l .18) PR100340

GO TO (10,20.30.40.50. 60). IPAGE PR100350

10 CALL TEXT1 PR1003CO

GO TO 70 PR100370

20 CALL TEXT2 PR100280

GO TO 70 FR100390

30 CALL TEXT3 PR100400

GO TC 70 PR100410

40 CALL TEXT4 PR100420

GO TC 70 PR100420

50 CALL TEXTS PR100440

GO TC 70 PR1OC4E0

60 CALL TEXT6 PR1C0460

70 CONTINUE PR100470

RETURN PR100480

C** ********************************************************** ***********PR 10 0490

C** FORMAT STATEMENTS **PR1005C0

C ******************************************* ********* *******************PR 10 05 10

80 FORMAT ( 1H 1 . 4SX. 2CI-U . S. DEPARTMENT OF C0MMERCE/46X. PR10C520

2 281-NATICNAL BUREAL CF ST ANDAPDS/45X. PR100530

3 3H-NATI0NAL ENGINEERING LAECRATORY/48X ,221-WASH INGTCN* C.C. 20234/PR1 00540

4///////////////59X.11HR E P R T/55X»3H0 F/51X* PR1OGSS0

5 221-iM ASS VALUE £/) PR1005C0

90 FORMAT (43X.72A1) PR100570

100 FORMAT (////////////26X«11HTEST NUMBER* 2X# 1 8A 1 ///60Xt PR1005EO

2 17HF0R THE DI RECTCR»////60X .22HG. E. MATTINGLY. CHIEF/60X, PR10C590

3 261-FLUID ENGINEERING DIV IS ICN/60X

.

PR1006CO

4 33HCENTER FOR MECHANICAL ENG INEER ING/62X* PR10C61C

5 22HAND PROCESS TECHNOLOG Y/60X

,

PR100620

6 31HNATIGNAL ENGINEERING LAECRATORY) PR100630

110 FORMAT (1H1«65A1»4HPAGE« 13) PR100C40

116
120 FORMAT (1X.72A1) PR100650

130 FORMAT (1X«13HTEST NUMBER .18A1) PR100CC0

END PR100670

TEXT1 SUBPROGRAM

SUBROUTINE TEXT1 TX100010

C***^*************************^**********************^******* ***********TX 100020

C** SUBROUTINE OF THE NATIONAL BUREAU OF STANDARDS MASS CALIEPATION **TX1C002C

C** PROGRAM VERSION CF SEPT. 10*1971 WRITTEN BY R.C.RAYECLD **TX100040

C** AND MRS.fi.N.VARNER **TX100050

C** MODIFIED BY R. N. VARNER SEPT 1979 **TX10C0€0

C****** ****** *********** ********* ******************** 4********* 4********7X1 007

COMKCN/UNITIO/IR,IW,IP,IPL,ITMF TX10C0E0

WRITE (IWolO) TX10C090

WRITE <IW*20) TX100100

WRITE <IW*30) TX100110

WRITE <IW*40) TX100120

WRITE <IW«50) TX100120

WRITE <IW*60) TX1C0140

WRITE (IW e 70) TX100150

WRITE (IW.80) TX1001C0

WRITE (IWe90) TX100170

WRITE (IWelOO) TX100180

WRITE (IW*110) TX1001Q0

RETURN TX100200

C** ****** *************** ******************** *************************** *TX 10 02 10

C** FORMAT STATEMENTS **TX100220

C** ************************************************* ********* ***********TX100230

10 FORMAT (/) TX100240

20 FORMAT (1X«36H INTRODUCTION * TX100250

236H WHICH RELY* DIRECTLY Cfi INDIRECT-/ TX1002C0

31X*3CH • TX100270

436H LYe ON MASS MEASUREMENTS TO/ TXl002e0

51Xo36H THIS DOCUMENT IS A COMPREHEN- * TX100290

636H ACCOMPLISH A WIDE VARIETY OF/ TX100300

71X,3eHSIVt REPCRT CCVERING THE SEQUENCE • TX100310

836H ENDEAVORS. IN CRCER FOR THIS/ TX100320

91X e 3eHCF OPERATIONS USED TO ASSIGN MASS * TX10C330

*36H SYSTEM TO FUNCTICN PROPERLY*

)

TX100240

30 FORMAT ( 1 X* 36HVALUES TO THE WEIGHTS IDENTIFIED . TX100350

236H EVERYONE WHO MAKES MEASUREMENTS/ TX100360

31X ,3eHABCVE. IT INCLUDES A COMPLETE • TX100270

436H MUST BE ABLE TC VERIFY THAT HIS/ TX100360

51X 3eHDESCRIPTICN OF THE MEASUREMENT . TX10C390

636H MEASUREMENT PROCESS PRODUCES/ TX1004C0

71X* 3CHMETHCDS AND PROCEDURES WHICH WERE * TX100410

836H CONSISTENT RESULTS WHICH ARE/ TX100420

91X*3eHUSED» ALL CF THE DATA* AND THE • TX100430

*36H COMPATIBLE WITH HIS PARTICULAR) TX100440

40 FORMAT < 1 X , 36HANAL YS I S CF THIS DATA. THE • TX100450

236H REQUIREMENTS. THE WEIGHTS COVEREO/ TX1004C0

31X«2€HRESULTS ARE PRESENTEE IN SEVERAL * TX100470

436H EY THIS REPORT* TOGETHER WITH THE/ TX100460

51X*3eHF0RMATS. ASSIGNED MASS VALUES* • TX1C04SO

636H ASSIGNED VALUES ANC THE APPRO-/ TX100500

71X,3eHDISPLACEMENT VOLUMES. COEFFICIENTS « TX100510

836H PRIATE UNCERTAINTIES FOR THESE/ TX1C0S20

91X»3eHCF EXPANSION, UNCERTAINTIES, TO- , TX100S20

*36H VALUES* PROVIDE IN PART A BASIS) TX100S40

117
50 FORMAT <1X»36HGETHER WITH THE SUMMED VALUES FOP . TX100S50

236H FCR CONSISTENT MEASUREMENTS WITHIN/ TX1O05C0

31X.36HLINEAR COMBINATIONS OF THE WEIGHTS t TX100S70

436H THIS SYSTEM OF RELATED MEASUREMENT/ TX100580

51X 2eHIN EACH DECADE ARE PRESENTED AT « TX100590

636H PROCESSES. / TX100600

71X.3CHTHE END CF THE APPROPRIATE SERIES. • TX1C0610

836H / TX10CC20

91X 9 3€HTHIS INFORMATION SHCULD EE USEFUL * TX100630

*36H APPROPRIATE CHARACTERIZATION) TX100640

60 FORMAT <1X«36HTC THOSE WHO MUST ASSIGN MASS * TX100650

236H CF ANY MEASUREMENT PROCESS IS/ TXlOOCeO

31X.36HVALUES TO OBJECTS OTHER THAN « TX100C70

436H FUNDAMENTAL TC VERIFYING THAT/ TX100680

51X936HWEIGHTS. FCR CONVENIENCE. THE . TX100690

636H RESULTS ARE CONSISTENT WITH THE/ TX1007CO

71Xe36HVALUES AND UNCERTAINTIES* TOGETHER « TX1007I0

836H END REQUIREMENT WITH RESPECT TO/ TX100720

91Xo3eHWITH OTHER APPROPRIATE DATA AND « TX100730

*36H CORRECTNESS AND ECCNOMY OF THE) TX100740

70 FORMAT ( IX .36HC0MMENTS ARE ALSO SUMMARIZED IN • TX100750

236H MEASUREMENT EFFORT. WITHOUT THIS/ TX1007£0

3lXo36HTABLES I AND II AT THE END OF THE * TX100770

436H INFORMATION. THE BENEFITS OF/ TX100780

5IXo2CHREPORT. CERTAIN INTERMEDIATE • TX100790

636H OWNERSHIP OF THESE WEIGHTS MAY BE/ TX1008C0

71X.3CHPAGES ARE SUMMARIES OF STATISTICAL « TXI00810

836H COMPLETELY ILLUSORY. THE ASSIGNED/ TX100820

91Xo36HCATA WHICH RELATE TC THE MASS • TXl00e20

*36H UNCERTAINTIES IN THIS REPORT ARE) TX100840

80 FORMAT ( IX » 36HMEASUREMENT PROCESS USED TC • TX100850

236H DESCRIPTIVE CF CUR MASS MEASURE-/ TX1008€0

31X.26HPERFCRM THIS WORK. THESE PAGES e TX100870

436H MENT PROCESS. EFFECTIVENESS OF/ TX100880

51Xo3CHHAVE BEEN LEFT IN THE REPORT TO * TX10C890

636H THE TRANSFER CF THE UNIT FROM ONE/ TX10C9C0

71X.3CHRETAIN CONTINUITY. COPIES OF * TXI00910

836H FACILITY TC ANOTHER SHOULD BE/ TX10CS20

9lX e 26HTHESE PAGES BECOME PART OF A . TX100930

*36H VERIFIED BY AN INDEPENDENT TEST.) TX100940

90 FORMAT ( IX. 36HC0LLECT ICN CF STATISTICAL DATA * TX10CSSO

236H IT IS PRESUMED THAT THESE WEIGHTS/ TX1009eO

31X,26HWHICH REFLECTS THE MEASUREMENT * TX100970

436H WILL EE USED IN A SIMILARLY WELL-/ TX100980

5IX„ 36HPRCCESS PERFORMANCE OVER A PERIOD . TX100S90

636H CHARACTERIZED MEASUREMENT PROCESS/ TXIOIOOO

71X 9 2CHCF TIME. SUCH A CCLLECTION HAS * TX101010

836H SO THAT THE STATISTICAL PARAMETERS/ TX101020

91X 9 3€HEEEN USED TO ESTAELISH THE CONTROL • TX101030

*3EH OF BCTH PROCESSES CAN BE COMBINED) TX101040

100 FORMAT (1X.36HLIMITS FCR ACCEPTING THE RESULTS . TX101050

236H TC PROVIDE A REALISTIC ESTIMATE OF/ TX1010C0

31X«3€HCF THIS MEASUREMENT. THESE COL- • TX101070

436H THE UNCERTAINTY OF THE MASS UNIT/ TX1010EO

51X.36HLECTI0NS ARE CPEN FCR INSPECTION « TX101050

636H AS ACTUALLY REALIZED IN ANOTHER/ TX101I00

71X.3CHAT OUR FACILITY. • TX101110

836H FACILITY. A COMPREHENSIVE SERVICE/ TX101120

118
91X 9 3CH , TX101130

*36H DIRECTED TOWARD THE EVALUATION OF) TX101140

110 FORMAT (lX e 36H THE MASS MEASUREMENT SYSTEM « TXIO11S0

236H A PARTICULAR MASS MEASUREMENT/ TX1011C0

31X e 2CH . TX101170

436H PROCESS IS AVAILABLE THROUGH THE/ TX10116C

51X»3eH THE MASS MEASUREMENT SYSTEM , TX101190

636H MASS MEASUREMENT ASSURANCE PROGRAM/ TX101200

71X 9 2CHWITHIN THIS CCUNTRY CONSISTS OF * TX101210

836H OF THE NATIONAL EUREAU OF/ TX101220

91X.26HALL OF THE MEASUREMENT PROCESSES • TX1C1220

*36H STANDARDS. > TX10124G

END TX101250

TEXT2 SUBPROGRAM

SUBROUTINE TEXT2 TX200010

C************ *************** ********************************************tx200020

C** SUBROUTINE OF THE NATIONAL BUREAU OF STANDARDS MASS CALIERATION **TX200020

C** PROGRAM VERSICN CF SEPT. 10»1S71 WRITTEN BY R.C.RAYECLD **TX20C040

C** AND MRS.P.N.VARNEF **TX2000SO

C** MODIFIED BY R. N. VARNER SEPT 1979 **TX2000C0

C ********************************************************* **************tx200070

COMMON/UN IT 10/ I R* IWt IP 9 IPLt ITMP TX20C060

WRITE (IWelO) TX200090

WRITE (IW.20) TX200100

WRITE <IW 9 30) TX200110

WRITE (IW«40) TX200120

WRITE (IW«50) TX200120

WRITE (IW e 60> TX20C140

WRITE <IW«70) TX2001S0

WRITE (IW»eO> TX200160

WRITE (IWcSO) TX200170

WRITE (IWslOO) TX200160

WRITE (IWellO) TX200190

RETURN TX200200

C* ************************ ******* ******************************* ********JX2 00210

C** FORMAT STATEMENTS **TX200220

C** ******************** ************************************** ***********TX200 2 30

10 FORMAT (/) TX2CC240

20 FORMAT (1X S 36H WEIGHING DESIGN * TX2002S0

236H STANDARD IS MEASURED WITH EACH/ TX200260

31X»36H . TX200270

436H TEST OF UNKNOWNS AND THE COLLEC-/ TX200260

51X 9 36H CNLY DIFFERENCES IN MASS CAN . TX2002S0

636H TICN OF VALUES OVER TIME IS USED/ TX20C2C0

71X.36HEE MEASURED. THEREFORE THE MASS s TX200310

836H TO EVALUATE THE PERFORMANCE OF THE/ TX200220

91Xt36HVALUES FOR THE 'UNKNOWN' WEIGHTS . TX200330

*36H MEASUREMENT PROCESS. ) TX200240

30 FORMAT (1X 9 36HMUST BE DETERMINED BY COMPARISON . TX2003S0

236H / TX2C0260

31X.26HWITH OTHER WEIGHTS Wt-ICH HAVE • TX200370

436H IN THE CASE OF THE SERIES/ TX200380

51X 9 3€HACCEPTED MASS VALUES. THE t TX200250

636H WHICH INCLUDES Tl-E KNOWN STAND-/ TX200400

71X,2eH»UNKN0WN« WEIGHTS TOGETHER WITH TX200410

836H ARDSc THE ACCEPTED VALUES OF THESE/ TX200420

91X»2eH'CHECK STANDARDS'. /»RE GROUPED AND . TX200420

*36H STANDARDS SERVE AS A RESTRAINT ON) TX200440

119
40 FORMAT ( lX c 3eHINTEPCaMPABED ACCORDING TO THE • TX200450

236H THE SOLUTION GF THE EQUATIONS FOR/ TX2004C0

31X,3eHCESIGN SCHEDULE GIVEN AT THE BE- , TX200470

436H THE VALUES OF ALL CF THE WEIGHTS./ TX200480

51X« 26HGINNING CF EACH SERIES OF WEIGH- , TX200490

636H THE RESTRAINT FOR THE SOLUTION OF/ TX20050C

71X 9 3CHINGS. THE FIRST SERIES CONTAINS « TX200510

836H SUBSEQUENT SERIES IS PROVIDED BY/ TX2C0E20

91X 36HSTANCARDS WHICH PRCVIDE THE . TX200S30

*36H THE VALUES ESTABLISHED FCR CNE OR) TX200S40

50 FORVAT (1X«36HSTARTING VALUES FOR THE SERIES OF • TX200SS0

236H MCRE WEIGHTS INCLUDED IN A/ TX200S60

31X» 2CHWEIGHINGS AND PRCVICE THE TIE . TX200S70

436H PREVIOUS SERIES. / TX200580

51X«3€HFCINT FOR CONSISTENCY THROUGHOUT « TX200590

636H / TX200CC0

71X.2CHTHE MEASUREMENT SYSTEM. THE e TX200610

836H ESTIMATED VALUES FOR WEIGHTS/ TX20CC20

91X( 2CHWEIGHING METHOD USED, I.E.. DOUBLE . TX200C30

*36H WHICH HAVE BEEN GROUPED IN THE) TX200C40

60 FORMAT ( 1X B 36HSUBST ITUTICNe TRANSPOSITION. ETC.. • TX200CS0

236H SAME SERIES INVOLVE THE SAME/ TX200CeO

31X»2eHIS INDICATED ALCNG WITH THE • TX2C0670

436H OBSERVATIONAL DATA AND ARE. IN/ TX200680

51X.3CHCBSERVED DATA. IN THE COMPUTA- • TX200eSO

636H ALMOST ALL CASESc CORRELATED. FOR/ TX2007C0

71X e 3CHTICNS, Tl-E DISPLACEMENT VOLUMES . TX200710

836H EACH SERIES THERE IS A TABLE OF/ TX2C0720

91X»2eHARE TREATED EXPLICITLY. USING THE o TX200730

*36H COMBINATIONS TOGETHER WITH THE) TX200740

70 FORMAT (1X.36HDATA LISTED IN THE REPORT. IN ALL e TX200750

236H APPROPRIATE UNCERTAINTY FOR EACH/ TX2007€0

31X 9 3CHCASES. A REDUNDANCY IN THE NUMBER . TX200770

436H COMBINATION. / TX200780

51X e 3eH0F MEASUREMENTS PROVIDES A MEANS • TX2007S0

636H / TX200800

71X.3CHF0R CHECKING ON THE PRECISION OF • TX200810

836H PROCESS CCNTPCL / TX200820

91X.2CHTHE PROCESS. t TX200820

*36H ) TX200840

80 FORMAT (1X.36H e TX200850

236H THE STANDARD DEVIATION. AS/ TX200860

31X.3CH WHEN TFEPE ARE MCRE EQUATIONS • TX200870

436H COMPUTED FROM THE LEAST SQUARES/ TX2C0880

51X» 3CHTHAN 'UNKNOWNS'. NOT ALL OBSERVA- . TX200890

636H SCLUTICNo PROVIDES A CHECK ON THE/ TX200900

71X»3eHTICNAL EQUATIONS CAN EE SATISFIED « TX200910

83CH SHORT TERM. OR 'WITHIN-RUN* PRO-/ TX200920

91X,2eHEXACTLY AND THE METHOD CF LEAST • TX200920

*36H CESS PRECISION. AN AVERAGE OF A) TX200940

90 FORMAT < 1 X « 36HSCUARES IS USED TO PROVIDE * TX20C950

236H NUMBER OF THESE STANDARD DEVIA-/ TX200SC0

31X.26HESTIMATES OF THE 'UNKNOWN' VALUES. • TX200970

436H TICNS IS TAKEN AS ThE ACCEPTED/ TX2C0980

51X 2€HTHIS METHOD LEADS TO ESTIMATORS * TX20C990

636H WITHIN-RUN STANDARD DEVIATION OF/ TX201COO

71Xo 2CHV.HICH ARE LINEAR FUNCTIONS OF THE » TX201010

836H THE PROCESS AND IS USED AS A/ TX201020

120
91X.26HDATA AND WHICH HAVE STANDARD t *36H REFERENCE VALUE FOP SURVEILLANCE)

100 FORMAT <1X*36HDEVIATICNS FEADILY CALCULATED FROM • 236H OF THE PROCESS PRECISION. THE/

31X*3eHTHE COEFFICIENTS CF THE LINEAR • 436H VALUES OETAINEC FCF THE 'CHECK/

51X.36HFUNCTIONS AND THE STANDARD DEVIA- • 636H STANDARD 1 PROVIDE* AS TIME GOES/

71X S 36HTI0N CF AN INDIVIDUAL MEASUREMENT. • 836H ON* A SEQUENCE CF VALUES THAT/

9lXo36HTHE 'CHECK STANDARD* IS ALSO • *36H REALISTICALLY REFLECTS THE)

110 FORMAT (1X*36HTREATED AS AN UNKNOWN ANC THE . 236H VARIATIONS l»HICH EESET PRECISE/

31X.3CHAGREEMENT OF THE CURRENT RESULT « 436H MEASUREMENTS. COLLECTIONS OF/

51X*3€HWITH THE ACCEPTED VALUE PROVIDES A . 636H VALUES FOR EOTH THE WITHIN-RUN/

71X*36HTEST OF THE ADEQUACY OF THE CUR- • 836H PRECISION ANO THE VALUE OBTAINEO/

91X.26HRENT DATA. THIS SAME CHECK • *36H FCR THE 'CHECK STANDARD' SHOULO)

END

TEXT3 SUBPROGRAM

SUBROUTINE TEXT3

C* ** ***** *** **** * **** ** * ********* ************ ******** ******** C** SUBROUTINE OF THE NATIONAL BUREAU OF STANDARDS MASS CAL

C** PROGRAM VERSION OF SEPT. 10.1971 WRITTEN BY R.C.RAY

C** AND MRS.R.N.VARNER

C** MODIFIED BY R. N. VARNER SEPT 1979

C **************************************************** ******** COMMON/UMTIO/IR* It* IP* IPL* ITMP

WRITE (IWolO)

<IW*20)

( IW»30)

( IW.40)

(IW»50>

( IWt60)

<IWc70)

(IWoBO)

(IW«90)

( IW« 100)

(IW« 110)

WRITE

WRITE

WRITE

WRITE

WRITE

WRITE

WRITE

WRITE

WRITE

WRITE

RETURN

C ************************************************** **********

C** FORMAT STATEMENTS

C **************************************************** ********

10 FORMAT (/)

20 FORMAT ( IX* 36HP0SSESS THE PROPERTIES OF RANDOM- • 236H SERIES OF MEASUREMENTS JUDGED/

31Xo2€HNESS ASSOCIATED WITH INDEPENDENT * 436H AS CUT OF CONTROL RELATIVE TO THE/

51X.36HMEASUREMENTS FROM A STABLE • 636H APPROPRIATE PARAMETER APE CARE-/

71X«3€HPRGBAEILITY D ISTR IEUT ICN. THE . 836H FULLY EXAMINED. IF RERUNS WERE/

91X B 3eHREP0RTED 'F RATIO' AND »T VALUE' . *36H NECESSARY IN THE COURSE OF THIS)

TX201030

TX201040

TX2010E0

TX201060

TX201070

TX2010C0

TX201090

TX201100

TX201110

TX201120

TX201130

TX201140

TX2011E0

TX201160

TX201170

TX201180

TX201190

TX2012C0

TX201210

TX201220

TX201230

TX201240

TX2O12E0

TX300010

***********TX30C0 2 IERATICN **TX200030

ECLO **TX300040

**TX30CO£0

**TX2000€0

*******  TX3 00070

TX30C0E0

TX300090

TX3001C0

TX300110

TX300120

TX300120

TX300140

TX3001S0

TX3001C0

TX300170

TX300180

TX300190

TX300200

** ******** *TX3002 10

**TX300220

***********TX300230

TX300240

TX3002E0

TX3002C0

TX300270

TX3002E0

TX300290

TX30C2C0

TX300310

TX300220

TX300230

TX300240

121
30 FORMAT (1X.36HARE TESTS CF THE VALUES FRCM THE

236H WORK, THE »C(JT CF CCNTR0L« SERIES./

31X.3CHCURRENT RUN FOR CCNFOPMITY TO t 436H WITH REMARKS AS AFFRCPRIATE, ARE/

51X 3€HTHEIR RESPECTIVE C ISTR IEUT IONS AND , 636H ATTACHED AT THE END CF THE REPORT/

71X 2eHIF SATISFACTORY ARE TAKEN AS * 836H FCR YOUR INFORMATICN. /

9IX.36HEVIDENCE THAT THE PROCESS IS IN e *36H ) 40 FORMAT < 1X« 36HCCNTF0L AND THAT PREDICTIVE

236H UNCERTAINTY /

31X.3CHSTATEMENTS REGARDING UNCERTAINTY , 436H /

51X«36HARE VALID. • 636H IT IS ASSUMED THAT THE PRESENT/

71X.36H t 836H "ACCEPTED VALUES' OF TUG NBS STAN-/

91X«38H CCNTRCL CHARTS CN THE WITHIN- » *36H DARDS AT THE I KILOGRAM LEVEL.)

50 FORMAT (1X.36HRUN PROCESS PRECISION AND THE

236H CESIGNATED Nl AND N2» ARE WITHOUT/

31X936HVALUES OBTAINED FCR THE CHECK , 436H ERROR. ESTIMATES CF THE UNCER-/

51X«3eHSTANDARD ARE KEY ELEMENTS IN » 636H TAINTY OF THE ACCEPTED VALUES OF/

71X.3CHM0NIT0RING THE STATE CF CONTROL CF t 836H THE NES STANDARDS RELATIVE TO THE/

91X.3CHANY PRECISE MASS MEASUREMENT t *36H INTERNATIONAL PROTOTYPE KILOGRAM)

60 FORMAT ( 1 X. 36HPR0CESS . IN ADDITION TO PROVIDING

236H CAN BE PROVIDED CN REQUEST./

31X e 26HA BASIS FCR JUDGMENT AS TO THE e 436H HCWEVERe THESE ESTIMATES HAVE NO/

51X.3CHADEQUACY OF A GIVEN FPOCESS FOR A » 636H REAL MEANING IN EITHER NATIONAL OR/

71X936HFARTICULAR REQUIREMENT. THESE DATA * 836H INTERNATIONAL CCMPAPISCN. THIS IS/

91X 2€HPR0VIDE A MEANS TO JUDGE THE * *36H BECAUSE OF THE LACK CF SUFFICIENT)

70 FORMAT ( 1 X ,36HI MPOPTANCE OF LONG TERM t OR

236H DATA TO PROVIDE A REALISTIC/

SlX.SeH'BETVi/EEN-RUN' VARIAEILITY WHICH • 436H ESTIMATE OF THE UNCERTAINTY IN THE/

51X e 3CHCAN BE CHARACTERIZED BY THE . 636H VALUES ASSIGNED TO THE PROTOTYPE/

71X»36HSTANDARD DEVIATION CF THE VALUES « 836H KILOGRAMS K20 AND K4 . PARTICULARLY/

91X.3CHAB0UT THE MEAN. IF THERE IS AN • *36H IN REGARD TO LCNG TERM, OR)

80 FORMAT ( 1X.36HADD I T IONAL COMPONENT OF VARIANCE

236H BETWEEN-RUN VARIAEILITY. CHANGES/

31Xc3€HENTERING FRCM RUN TO RUN. THIS t 436H IN THE ACCEPTED VALUES FOP THE NBS/

S1X.36HSTANDARD DEVIATION VtILL EE LARGER • 636H STANDARDS AT THE KILOGRAM LEVEL*/

71X.38HTHAN CAN EE JCCCUNTED FOR BY THE . 836H AS AND WHEN THEY CCCURt WILL BE/

TX300350

TX3002€0

TX300370

TX300380

TX300390

TX3004C0

TX300410

TX300420

TX300430

TX300440

TX3004S0

TX3004C0

TX300470

TX3C04E0

TX300490

TX300500

TX300S10

TX3C0520

TX300530

TX300S40

TX3005S0

TX200E€0

TX300570

TX300580

TX300590

TX3006C0

TX300610

TX300620

TX300C30

TX300C40

TX300650

TX3006C0

TX300670

TX30oeeo

TX300690

TX3007C0

TX300710

TX300720

TX300730

TX300740

TX3007S0

TX3007C0

TX300770

TX3C07E0

TX300790

TX3C08C0

TX300810

TX3C0820

TX300830

TX300840

TX300e£0

Txsooeeo

TX300870

TX300880

TX300890

TX3009C0

TX300910

TX300920

122
91X 9 SCHhlTHIN-RUN VARIABILITY. CORRELA- t TX300S30

*36H REPORTED IN THE SCIENTIFIC PAPERS) TX300940

90 FORMAT (1X.36HTICN STUDIES, AS WELL AS SUFPLE- e TX300950

236H OF THE BUREAU AND 1* ILL EE GIVEN/ TX300SC0

31Xo36HMENTAL EXPERIMENTS. ARE USED TO , TX300970

436H WIDE DISTRIBUTION. IN CASES WHERE/ TX30CSE0

51X e 3CHDETECT AND REDUCE THE MAGNITUDE OF , TX300SSO

636H SUCH CHANCES KAY EE CF IMPORTANCE*/ TX301000

71X.3CHSIGNIFICANT SYSTEMATIC EFFECTS. i TX301010

836H OR WHERE CONTINUITY IS DESIREOt/ TX30102C

91X e 3eHAFPRCPRIATE ACTION, E.G., ADDI- , TX301030

*3CH INSTRUCTIONS WILL eE INCLUDED FOR) TX30104C

100 FORMAT ( 1X«36HTICNAL EMPIRICAL CORRECTIONS OR • TX301050

236H UF-DATING FREVICUSLY REPORTED/ TX3010C0

31X 9 36HCHANGES IN TECHNIQUE. CAN REDUCE , TX301070

436H VALUES. WHEN THE VALUES REPORTED/ TX3010E0

51X»36HTHE EFFECTS FROM KNCV.N SOURCES OF « TX301090

636H ARE EASED ON THE ACCEPTED VALUES/ TX301100

71X.3CHSYSTEMATIC VARIAEILITY TO A • TX301110

836H OF STANDARDS OTHER TI-AN STANDARDS/ TX301120

91X93CHKAGNITUDE WHICH IS NO LCNCER • TX301130

*36H Nl AND N2 MENTIONED AEOVEt THE) TX201140

110 FORMAT (1X.36HIDENTIFIAELE IN THE DATA. IN THE . TX3011S0

236H UNCERTAINTY CF THE ACCEPTED VALUE/ TX3011C0

31X.2CHCASES WHERE A SIGNIFICANT LONG , TX301170

436H CF THE STANDARD EECCMES A/ TX3011E0

51X 9 3eHTERM« OR EETWEEN-RUN. COMPONENT , TX301190

636H SYSTEMATIC ERROR IN THE ASSIGNMENT/ TX3012C0

71X.3€HREMAINS THE UNCERTAINTY HAS BEEN . TX301210

836H OF VALUES TO OTHER STANDARDS AND/ TX301220

91X« 3£HAPPRCPRIATELY ADJUSTED. t TX201230

*36H IS INCLUDED IN THE REFCRT. ) TX301240

END TX3012S0

TEXT4 SUBPROGRAM

SUBROUTINE TEXT4 TX400010

C** SUBROUTINE OF THE NATICNAL EUREAU OF STANDARDS MASS CALIERATION **TX400030

C** PROGRAM VERSION CF SEPT. 10.1S71 WRITTEN EY R.C.RAYBCLD **TX400040

C** ANC MRS.R.N.VARNER **TX400050

C** MODIFIED BY R. N. VARNER SEPT 1979 **TX4000eO

r*********n***********M*****M****************U***=t******************TX40CO7O

COMMCN/UNITIO/IF, I*. IP, IPL.ITMF TX4CC08

WRITE (IWelO) TX40C0S0

WRITE (IWe20) TX400100

WRITE (IW«30) TX400110

WRITE (IW«40) TX400120

WRITE (IW.50) TX400130

WRITE (IW«60) TX400140

WRITE (IW*70) TX4001E0

WRITE (IWcSO) TX4001C0

WRITE (IW«90) TX400170

WRITE (IWclOO) TX400180

WRITE (IWellO) TX4C01S0

RETURN TX400200

C***** ************#************************¥************** **************TX40C210

C** FORMAT STATEMENTS **TX40C22C

C** ****** *************** ***************************** 4***4***4 #* ******* *TX400 230

10 FORMAT (/) TX400240

123
20

30

40

50

60

70

FOR

236H

31Xe

436H

51X e 636H

71X.

836H

91X

*36H

FOR

236H

31X.

436H

51X»

636H

71X

836H

91X»

*36H

FOR

236H

31X«

436H

51X e 636H

71X.

836H

91X«

*36H

FOR

236H

31X«

436H

51X.

636H

7lXs

836H

91Xo

*36H

FOR

236H

3lXo

436H

51Xe

636H

71X 9 836H

91X.

*36H

FOR

236H

31X e 436H

51X,

63CH

71X e 836H

VAT (1X.36H A BALANCE UNDER STABLE OPERASHOULD ALMOST ALWAYS OVERLAP, IN/

3CHTING CONDITIONS Ik ILL EXHIBIT A • OTHER WORDS. HHILE A SECOND MEA-/

3CHCERTAIN CHARACTERISTIC VARIABILITY • SUREMENT WILL PRCOUCE A DIFFERENT/

3CHWHICH CAN EE DESCRIBEO BY THE t VALUE* THIS VALUE WILL ONLY RARELY/

3CHSTAN0ARD DEVIATION FOR SUCH . DIFFER FRCM THE FIRST VALUE BY)

MAT (1X.36HMEASLREMENTS. THE VALUE FOR A MORE THAN THE SUM OF THE TWO/

36HPARTICULAR WEIGHT DETERMINED IN t UNCERTAINTIES. THE UNCERTAINTY/

3ehREPEATED TESTS MTH THE SAME • EANDS ARE NOT EXPECTED TO OVERLAP/

36HWEIGHING DESIGN WILL HAVE ITS OWN . IF SOME EVENT HAS OCCURRED IN THE/

3CHSTANDARD DEVIATICN WHICH WILL BE * TIME INTERVAL BETWEEN THE TWO MEA-)

NAT (1X.36HSGME FUNCTION OF THE BALANCE

SUREMENTS WHICH WILL CHANGE THE/

3CHPRECISI0N AND (POSSIBLY) OF THE * MASS OF THE OEJECT. E.G.. AERA-/

36HEETWEEN-RUN CCMPCNENT. AS AN • SICNSe ABUSE* CORROSION. IMPROPER/

3EHCUTER LIMIT OF THE DISTRIBUTION OF * CLEANING AND THE LIKE. /

3EHRANDCM ERRORS. THREE TIMES THE •

) MAT ( 1X«36HSTANDARC DEVIATION IS USED.

THE UNCERTAINTY IN ASSIGNED/

3EHSYSTEMATIC ERRORS

VALUE CONTAINED IN

36HFROCEDURES USED OR

BECOMES A SYSTEMATIC

36HNENTAL EFFECTS

THE MEASUREMENT

3CHEALANCED CUT AND

DUE TO THE

THIS REPORT/

TO ENV IRONEFFECT FOR/

ARE LARGELY

PRCCESS IN WHICH/

CAN USUALLY BE

THESE WEIGHTS ARE TO EE USED. IN)

VAT ( 1X.36HREGARDED AS NEGLIGIBLE. WHEN A THE ABSENCE OF OTHER SIGNIFICANT/

36HNCN-NEGLIGIELE ECLND TO THE • SYSTEMATIC EFFECTS IN THE USER'S/

3CHPGSSIBLE EFFECT FROM KNOWN SOURCES * MEASUREMENT PROCESS (A CONDITION/

26HIS AVAILABLE* IT IS CALCULATED AND • WHICH MUST EE DEMONSTRATED) THE/

3CHREP0RTED SEPARATELY. E.G.. THE • UNCERTAINTY OF THE VALUE ASSIGNED)

MAT ( 1X«3CHUNCEPTAINTY OF ACCEPTED VALUE AT

EY THE USER IS AN APPROPRIATE/

2EHCTHER THAN THE I KILOGRAM LEVEL. • COMBINATION OF THE SYSTEMATIC/

36HTHE DISTRIBUTION IMPLIED BY THE • ERROR IN THE STANDARD AND THE/

SCHRANOCM ERRORS MAY THUS EE CENTERED • RANDOM CCMFCNENT ASSOCIATED WITH/

TX400250

TX40C2C0

TX400270

TX400280

TX4002S0

TX4003C0

TX400310

TX400320

TX400330

TX400340

TX40C250

TX4003C0

TX400370

TX400380

TX4003S0

TX400400

TX400410

TX400420

TX400430

TX400440

TX400450

TX4004e0

TX400470

TX4004eO

TX4004S0

TX400500

TX400510

TX400E20

TX400530

TX400E40

TX400550

TX400560

TX400S70

TX40CEeO

TX400590

TX400COO

TX400610

TX400620

TX400E30

TX400640

TX400650

TX400£eO

TX400670

TX400680

TX400690

TX400700

TX400710

TX400720

TX400730

TX400740

TX400750

TX4007CC

TX400770

TX400780

TX4C07S0

TX400800

TX400810

TX400E20

124
91X.36HSCMEWHERE IN THE RANGE GIVEN BY . TX400820

*36H HIS PROCESS, IF THE MEASUREMENT) TX400E40

80 FORMAT (1X.36HTHE BOUNDS TO THE SYSTEMATIC • TX4008E0

236H PROCESSES ARE IK CONTROL AND/ TX4008C0

31X»3CHERRCR. THE TOTAL UNCERTAINTY IS i TX40C870

436H APPROPRIATE UNCERTAINTIES ARE/ TX40C880

51X S 2€HTAKEN AS THE SUM OF THESE TWO * TX4008S0

636H ASSIGNED. THE VALUES PRODUCED BY/ TX40CS00

71X. 26HC0MPCNENTS, • TX400S10

836H DIFFERENT MEASUREMENT FACILITIES/ TX400920

91X.36H t TX4CCS2C

*36H WILL HAVE OVERLAPPING UNCERTAINTY) TX400540

90 FORMAT (1X.36H THE UNCERTAINTY ASSOCIATED . TX400950

236H EANOS AS DESCRIEEC ABOVE. ONE/ TX40CSCC

31X.26HWITH THE ASSIGNED VALUE CAN BE * TX400970

436H CANNOT DISCUSS DIFFERENCES IN/ TX400980

51X.3€HTHCUGHT OF AS A ECUND TO THE , TX4CCSS0

636H VALUES FOR THE SAME OBJECT/ TX401CC0

71X f 3eHDEPARTURE OF THE ASSIGNED VALUE • TX401010

836H OETAINED EY CIFFERENT FACILITIES/ TX401020

91X.26HFR0M A HYPOTHETICAL AVERAGE VALUE t TX401020

*3CH WITH ANY DEGREE OF SERIOUSNESS UN-) TX401040

100 FORMAT (IX,36HTHAT WGULD EE OETAINED IF IT WERE • TX4010E0

236H LESS EACH VALUE IS ACCOMPANIED EY/ TX4010C0

3IX e 2eHP0SSIBLE TC PEFEAT THE MEASUREMENT * TX401070

436H A REALISTIC UNCERTAINTY STATEMENT,/ TX40I080

51X.2CHMANY TIMES CVER A WIOE VARIETY OF * TX401090

636H / TX4011C0

71X,3eHC0NDITIONSt E.G., SUBSTITUTE THE » TX401110

836H / TX401120

91X.3eHWEIGHT FOR ONE OF THE CHECK • TX401130

*36H ) TX4C1I40

HO FORMAT (IX.36HSTANDARDS. THIS MEANS THAT THE , TX401150

236H / TX4011C0

31X.2€HUNCERTAINTY EAND CENTERED ON THE t TX40H70

436H / TX401180

51X,2€HVALUES OBTAINEC FROM EACH OF TWO • TX4011S0

636H / TX40I20C

71X.26HMEASUREMENTS OF THE SAME OEJECT » TX401210

836H / TX401220

91X.26HCVER SOME ARBITRARY TIME INTERVAL t TX401220

*36H ) TX401240

END TX4012E0

TEXT5 SUBPROGRAM

SUBROUTINE TEXTS TX50C010

C ****** **************************************** ********** *****>M********TX500020

C** SUERCUTINE OF THE NATIONAL BUREAU OF STANDARDS MASS CALIBRATION **TX50C020

C** PROGRAM VERSION OF SEPT, 10* IS71 WRITTEN BY R.C. RAYECLD **TX500040

C** AND MRS.fi.N.VARNER **TX5000E0

C** MODIFIED BY R. N, VARNER SEPT 1977 **TX5000C0

C** **************** *********** *********** ****************************** *jx.50 007

COMMCN/UMTIO/IR. IW. IP. IPL. ITMP TX5 0C08

WRITE (IW.10) TX5000SO

WRITE (IW»20) TX500100

WRITE (IW.30) TX500HO

WRITE (IW.40) TX50C120

WRITE (IW.50) TX500120

WRITE (IW.60) TX50C140

125
WRITE (IW«70)

WRITE (iw.eo)

WRITE (IW«90)

WRITE (IWslOO)

WRITE (IWellO)

RETURN

C****# *************************************** *************

C** FORNAT STATEMENTS

C* ************************************************* *******

10

20

30

40

50

60

FORMAT <1X«36F

236H

FGRMAT (1X«36H

236H

31X 9 3CH

436H

51Xo3eHTHE FOLLOWING REFERENCES

636HED FOR DETAILED DESCRIPTION

71X.3CHPGRTICNS CF THIS REPCRT

> REFERENCESt

ARE SUGGESTt

OF /

AND FOR GEt

836HNERAL INFORMATICN CCNCERNING THE

91X 2eHMASS MEASUREMENT PRCCESSt

*36H

( 1X 9 36H

l.PCNTIOS. F. E. AND CAMERON*

REALISTIC

MEASUREMENT

NAT. BUR.

UNCERTAINTIES

PROCESS

STAND. (U.S.)t

AND

J.

/

THE

/

MCNOGR.

/

FORMAT

236H

31X.3CH

436H.

51X 9 3CH

636HASS

71X.36H

836H103

91X e 36H

*36H

FORMAT

236H

31X.36H

436H

51X. 3€H MEASUREMENT PHILCSOPHY OF THE

636HCT PRCGFAM FOR MASS CALIBRATION

71X 9 36H NAT. BUR. STANC. (U.S.) TECH.

836FE 288

M 9

Hi

(AUG. 15. 1967)

( 1X»36H

2.PCNTIUS. P.

(MAY 6* 1S66)

( 1X«36H

91X.36H

*36H

FORMAT

236H

31X.3CH

436H M.

51X e 3CH

636HITY

71X e 3CH

836H

91X.38H J. RES.

*36H. ENGINEERING

FORMAT (1X.36H

236H

31X 9 36H

436H

51X« 3€H

636H

71X.36H

/

PIL,

/

NOTt

/

•

)

3. BOWMAN, h. A.* AND SCHOCNOVER . R.t

WITH APPENDIX EY MILDRED JONES /

PROCEDURE FCR HIGH PRECISION DENS.

DETERMINATIONS BY HYDROSTATIC /

WEIGHING • /

NAT. BUR. STAND. (U.S.)

AND INSTRUMENTATION ) NC. 3. 179-198 (JULY-AUG.

/

M.

71Ct

1967)

4.NATRELLAo

EXPERIMENTAL STATISTICS

TX5001E0

TXE00160

TX500170

TX500180

TX5001S0

TX5002C0 ************* *TX50 02 10

**TX50C220

******* *******TX 500 230

TX500240

TX5002E0

TXE00260

TX500270

TX500280

TX500290

TXE003CO

TX500310

TX500320

TX500330

TX500340

TXS003SO

TXS00360

TX500370

TX500380

TX500390

TX5004C0

TX500410

TX500420

TXE00430

TX500440

TXE004S0

TX5C04C0

TX500470

TXEC04E0

TX500490

TX5005C0

TX500510

TX500520

TX500530

TX500S40

TXSOOEEO

TXS00560

TX500570

TX5005E0

TXSCOESC

TX500CC0

TX500610

TX500620

TX500e30

TX500640

TXE00650

Txsooeeo

TX500670

Txsooeeo

Txsoceso

TX500700

TX500710

TX500720

126
836H /

91X» 36H NAT. BUR. STAND. (U.S.) HANDBOOK 9 *36H91 ) FORMAT (1X.36H (AUGUST 1* 1963)

236H /

31Xo 36H t 436H /

51X.3CH 5.KU.H.H. % 636H /

71X 9 3CH PRECISION MEASUREMENT AND CALIBRA,

836HTICf<i - SELECTED NES PAPERS CN /

91X 9 2€H STATISTICAL CONCEPTS AND PROCEDURt

*36HES ) FORMAT (1X.36H NAT. EUR. STAND. (U.S.) SP

236HL. 300 /

TX500720

TX500740

TXS00750

H • TXS00760

TX500770

TX500760

TX500790

TX5008C0

TX500E10

TX500820

TX500830

TX500840

Txsooeso

iP'-C, FUB« TX5008£0

TX5CC870

31X 9 2eH VOL. 1 (FEE. 19C9) * TX500e80

436H / TX500890

5lX e 2CH ) TX5009CO

90 FORMAT (1X«36H C.PCNTIUSt P. E. 1 TX500910

236H / TX500920

31X.36H MASS AND KASS VALUES * TX500920

436H / TX500940

51X.36H NAT. BUR. STAND. (U.S.) MCNOGR. It TX500950

636H23 / TXS009C0

71X.3CH (JAN. 1974) . TX500970

836H / TX500980

91X e 3eH • TX50C990

TX501000

C. At TX50 10 10

TX501020

TX501030

TX501040

TXE010E0

TX501060

TX501070

TX5010E0

TX501090

TX501 100

R. C.t TXS0 1 110

TX501120

TX501120

TX50U40

TXS01 ISO

TX501160

71X 8 3e»- (IN PROCESS) t TX501170

836H / TX501180

91X.3CH . TX501190

*36H ) TX501200

END TX501210

TEXT6 SUBPROGRAM

SUBROUTINE TEXT6 TX600010

C ****** ************** **************************************** ** *********TX60 020

C** SUBROUTINE OF THE NATIONAL EUREAU OF STANDARDS MASS CALIBRATION **TX600030

C** PRCGFAM VERSION OF SEPT. 10. IS71 WRITTEN BY R.C. RAYECLD **TX600040

C** AND MRS. R.N. VARNER **TX€00050

C** MODIFIED BY R. N. VARNER SEPT 1977 **TXe00060

C** ******************** * ************************************** ********* *TX 60 70

COMMON/ UN IT 10/ IRt IVuIPtlPLtlTMF TX60C080

*36H ) FORMAT (lX e 36H 7.CAMERCN f J. M. ( CROARKINt C 236HND RAYBCLDt R. C. /

31X.26H DESIGNS FOR THE CALIBRATION OF STt

436HANCARDS OF MASS /

51X 3eH NAT. BLR. STAND. (U.S.) TECH. NOT.

636HE 952 /

71Xo36H (JUNE 1977) t 836H /

91X.36H . *36H ) FORMAT (1X.36H g. VARNER. R. N.t AND RAYBOLC*

236H /

31X92CH NATIONAL BUREAU CF STANDARDS MASSt

436H CALIBRATION COMPUTER SOFTWARE /

51X.3CH NAT. BUR. STAND.. (U.S.) TECH. NOT.

636HE /

12 7
WRITE (IW.10) TX6000S0

WRITE (IW*20) TX600100

WRITE (IW.30) TX600110

RETURN TX600120

C *********************************************** *********************** *TX60 01 30

C** FORMAT STATEMENTS **TX600140

C ************************************************************ * **********JX60 01 50

10 FORMAT (IX*36HTC EE PUELISHEO: • TXCCC1C0

236H / TX600170

31X*36I- • TX60C180

436H / TX600190

51X«36H 9.PCNTIUS* P. E. t TX600200

636H / TX6C0210

71X.36H THE ACCEPTED VALUES AND ASSOCIATEt TXC00220

836HD UNCERTAINTY ESTIMATES OF THE NBS / TX600220

91X*36H STANDARDS AT THE 1 KG LEVEL • TX800240

*36H ) TX600250

20 FORMAT (1X»36H NAT. BUR. STAND. (U.S.) TECH. NOT* TX600260

236HE / TX600270

31X«3CH (EXPECTED CCMPLETICNt 1975) • TX6002eO

436H / TXC00290

51X*3€H • TXC00300

636H / TX600310

71Xe3£H 10.PCNTIUS* P. E. # TX600320

S36H / TX600330

91X*36H DOCUMENTATION FOP THE MASS MEASURt TX600340

36HEMENT PROCESS AT NBS ) TX600350

30 FORMAT (1X.36H N»T. EUR. STAND. (U.S.) TECH. NOT* TXC003€0

236HE / TXCCC370

31X*3€H (EXPECTED COMPLETICN: 1974) • TX600380

436H ) TX600390

END TX6C04C0

READ2 SUBPROGRAM

SUBROUTINE READ2 RD200010

C** **************************************************************** *****R02 3 0020

C** SUBROUTINE OF THE NATICNAL EUREAU OF STANDARDS MASS CALIERATION **RD200020

C** PROGRAM VERSICN OF SEPT. 10*1971 WRITTEN BY R.C.RAY60LD **RD200040

C** AND MRS.R.N.VAPNER **RD2000EO

C** MODIFIED BY R. N. VARNER SEPT 1979 **RD200060

C******** **************************************************** ****** *****R020 00 70

C** SUBROUTINE TO READ DATA FCR EACH NEW SERIES **RD200080

C** ********************************************************** ***********RD20 SO

C** DIMENSION FOR COMMCN /PRT1/ VARIABLES **RD200100

C** ******************************************************************** *RD20 01 10

DIMENSICN B1(72)»B2(72)*B3(72)*64(7 2)*B5(72)*B6(72)*B7(72)* RD200120

2 IDATEC3) RD200130

C* *********************************************************** ***********RD20 01 40

C** DIMENSICN FOR COMMCN /INPIT/ VARIABLES **R02001£0

C** ********************************************************** ***********R020 0160

DIMENSICN AIDCST(5. IS) ,ANCM( 1 5 ) , DENST Y ( 15 ) • COEFEX

(

1S)*ACCVAL( 15)* RD200170

2 ARSTIN( 15)* ACKSTO* 15)* IRSTCU ( 15 ) • IPRNT( I 5 )• DESMAT( 15*50)* RD20 0180

3 OBSERV(6O0)» ALCOMC 15*20) RD200190

C******** **************************************************** ****** *****RD20 0200

C** DIMENSICN FOR COMMCN /RAREA/ VARIABLES **RD2G021C

C** ********************************************************** * 4* ******* *RD20 0220

DIMENSICN AA(72)*AAITEM(£ ) RD200230

C*** ********************************************************** * *********RD200240

C** DIMENSICN FCR CCMMCN /PRTLE/ VARIABLE **RD2002£0

128
C*** ******************************************* ******** *************  p[)2 26

DIMENSION PRTLeX(15) RD200270

C** * ************************************************* ********* **********p 02 0280

C** LABELEC COMMCN **RD2002S0

C** ************************************************** ************** *****rd20 3 00

CCjMMCN /PRT1/ Eli e2.E3.E4,E5.E6»B7.fiANERR« SYSERfit TNCM« L I »L2»L3»L4. RD20 03 1 2 L5eL6c IDATE. IEREST RD200320

COMCCN /INPUT/ TEAR.PBAR.t-EAR.STDEEA.SWT. VSWT . CEXSWT , A I DCST . ANCM . RO200330

2 DENSTY.COEFEX.ACCVAL. ARS T IN . ACKSTD .DESMAT . CBSE RV S V ARB AL 9 *LCOM. T 1 PRD200340

3o T2P« P IP e P2P» H 1 P« h 2P e CP

1

tCP2»CTl#CT2tCHl.CH2»OT IP e 0T2P.CF IP t OP2P. RO 2 0350

4 0H1P»CH2P. I OP. lEALtNCES.NUNKN.IRSTCU, IPRNT.ITPOS, ICKUSD, ICALDS. BD20 036

5 LINVAR e N3»N4 RD200270

COMMCN /RAREA/ AA.tAITEM RD200380

CCy*CN /PRTLB/ FRTLBX RD2003S0

C** ******************************************************************** *R0200400

C** SET UP VARIABLE FCF MAXIMUM NUMBER OF READINGS NR=50*12 **RD200410

C****** ***************************************************** ************R020 04 2 NR=50*12 RD20C420

C****** ************************************************** ****** *********po2004 40

C** REAC CNE CARD —FREE FIELC **RD2004S0

C** TYFE OF WEIGHING CM! **RD200460

C** TYPE OF BALANCE (N2) **RD200470

C** TYFE OF UNITS CF INPUT <N3) **RD200480

C** DIRECTION CF SCALE LEFT TC RIGHT OR RIGHT TC LEFT (N4) **RD2004S0

C RD200£C0

C**  WHERE **RD20C510

C** Nl = SINGLE TRANSFCSITICN **RD200£20

C** Nl = 1 DOUBLE TRANSFCSITICN **RD200530

C** Nl = 2 SINGLE SUeSTlTLTlCN **RD200£40

C** Nl = 3 DCUBLE SUESTITLTICN **RD200E£0

C RD20C£60

C**  N2 = TWC FAN BALANCE **RD2C0E70

C** N2 = 1 ONE PAN BALANCE **RD200E€0

C RD200S90

C**  N2 = METRIC UNITS **RD200600

C** N3 = 1 ENGLISH UMTS **RD200610

C RD200620

C**  N4 = SCALE LEFT TC RIGHT (EG. TC 100 OR -1 TC 1) **RD200630

C** N4 = 1 SCALE RIGHT TC LEFT (EG. 100 TC OR 1 TC -1) **RD20064C

C*** ************************************************* *******************RD20 06 £0

CALL READIT ( AA e 1 g A A ITEM ) RD200660

N1 = INT(AA( 1 ) + .l ) RD200670

N2=INT(AA(2)+. 1

)

RD200660

N3=INT(AA(3)+.l ) RD200650

N4= INT( AA(4)+.l ) RD200700

C******** **************************************************** ***********RD2007 10

C** REAC DATE CF OBSER VAT I CN * CPERATOP . BALANCE AND CHECK STANDARD **RD200720

C** USED **RD2C0720

C** WHERE NUMBERS ARE FREE FIELC CN THIS CARD 6 NUMBERS **RD200740

C** MCNTH AND DAY (2 DIGITS) YEAR (4 DIGITS) **RD20C7E0

C** OFEPATCR CODE (INTEGER) **RD200760

C** EALANCE CODE (INTEGER) **RD200770

C** CHECK STANDARD CCCE (INTEGER) **RD200780

C****** *************************************************** **************fiD20 079

CALL READIT ( A

A

e 1

«

A A I T E M ) RD200600

IDATE( 1 ) = INT( AA(1 ) + .l

)

RD200810

IDATE(2)=INT(AA(2)*.l) RD2C0620

IDATE(3)=INT( AA(3)+.l ) RD200820

129
I0P=INT(AA<4)+.1) RD200840

IEAL=INT(AA<5>+.1 ) RD200850

ICKLSD=INT(AA(6)+.l) RD200660

C*** ********************   ** ************** ********* ******** ** ********* RQ2 008 70

C** READ TEMPERATURE. PRESSURE*HUMI D ITY AND THEIR CORRECTIONS **RD200eeO

C** ONE RECORD FREE FIELD WITF ENTRIES IN THE FOLLOWING ORDER **RD200890

C** 1-TEMPERATURE AT EEGINNING OF THE SERIES IN DEGREES C **RD20C900

C** 2-TEMFERATURE AT END OF THE SERIES IN DEGREES C **RD20C910

C** 3-FRESSURE AT BEGINNING IN MM FG **RD200920

C** 4-PRESSURE AT END IN MM FG **RD200S20

C** 5-FUMIDITY AT EEGINNING IN PERCENT **RD200940

C** 6-FUMIDITY AT END IN PERCENT **RD2009E0

C** 7-FRESSURE CORRECTION BEGINNING IN MM HG **RD200960

C ** 8-FRESSURE CORRECTION END IN MM HG **RD200970

C** 9-TEMPERATURE CORRECTION BEGINNING IN DEGREES C **RD20C980

C** 10-TEMPEPATURE CORRECTION END IN DEGREES C **RD20C990

C** 11-FUMIDITY CORRECTION EEGINNING IN PERCENT **RD20!000

C** 12-l-UMIDITY CORRECTION END IN FERCENT **RD201010

C ************************************************************ ********** *RD 2 1020

CALL READIT ( AA , 1

,

A AITEM ) RD201030

T1P=AA(1) RD201040

T2P=AA(2) RD2010E0

P1P=AA<3) RD201060

P2P=AA<4) RD201070

H1P=AA(5) R0201060

H2P=AA<6) RD201090

CP1=AA(7) RD201100

CP2=AA(e) RD201110

CT1=AA(9) RD201120

CT2=AA(10) RD201130

CH1=AA(11) RD201140

CH2=AA<12) RD2011S0

C*** ************************************************************* ******* ro 20 1160

C** SAVE VALUES FOR OUTPUT **RD201170

C** COMPUTE AVERAGE CORRECTED TEMPERATURE, PRESSURE AND HUMIDITY **RD201180

C** ********************************************************** ***********RD201 190

0T1F=T1P RD201200

0T2F=T2P RD201210

0PIF=P1P RD201220

0F2F=P2P RD201220

0H1F=H1P RD201240

0H2F=H2P RD2012S0

T1P=T1P+CT1 RD2012C0

T2P=T2F+CT2 RD201270

P1P=P1P+CP1 RD201280

P2P=P2F+CP2 RD201290

H1P=H1P+CH1 RD201200

H2P=F2P+CH2 RD201310

TEAR=(TlP+T2P)/2. RD201320

PBAF=(FlP+F2P>/2. RD201330

HEAF=(HlP+H2P)/2. RD201340

C ************************************************************ ***********RD20 1350

CAFD IN THE FOLLCVkING ORDER FREE FIELD **RD2013€0

NUMBER OF OBSERVATICN < MAX. = 50 ) **RD201270

NUMBER OF UNKNCWNS ( MAX. = 15 ) **RD201380

CALIBRATION DESIGN CCCE ( INTEGER 0000 TO 9999 ) **RD201390

NUMBER OF LINEAR COMBINATION < MAX. = 20 ) **RD201400

C **************************************** ******* ************************RD20 14 10

130

c** ONE

c** 1.

c** 2.

c** 3.

c** 4.
c** ONE

c** 1.

c** 2.

c** 3.

c** 4.

c** 5.

CALL READIT ( AA» 1

•

AAITEM ) RD201420

N08S=INT< AA(1 )+.l

)

RD201420

NUNKN=INT< AA(2)+ . 1

)

RD201040

ICAL0S=INT(AA(3>+. 1) RD2014S0

LINVAF=INT< AA<4 )+.l

)

RD201460

C*** ***************************************** ***************************RD201470

RECQRO-FREE FIELD-WITH ENTRIES IN THE FOLLOWING ORDER **RD20l4eO

WITHIN STANOARC OEVIATICN OF THE BALANCE IN MG **RD201490

MASS VALUE IN MG OF THE SENSITIVITY WEIGHT **RD201S00

VOLUME OF THE SENSITIVITY WEIGHT IN CM3 **RD201E10

COEFFICIENT OF EXPANSION OF SENSITIVITY WEIGHT **RD201S20

BETWEEN STANDARD DEVIATION OF THE BALANCE IN MG **RD201£30

C***********************************************************************R020 15 40

CALL READIT ( A A • 1 . A A ITEM ) RD201S50

STDEBA=AA(1) RD201E60

SWT=AA(2) RD201S70

VSWT=/»A(3> RD201S60

CEX£WT=AA(4) RD201E90

VAREAL=AA(S) RD201600

C***********************************************************************RD201£ 10

!UF OF N RECORDS <N=NUMBER OF UNKNOWNS). EACH RECORD HAS **RD201C20

MATICN IN THE FOLLOWING CRDER, ABCUT EACH WEIGHT **RD201£30

IN COLUMNS 1-15 IDENTIFICATION OF WEIGHTS (ALPHA-NUMERIC) **RD201E40

**RD201££0

REST CF THE INFORMATICS CN EACH RECORD IS FREE FIELD **RD20ieC0

RD201C70

WEIGHTS NOMINAL VALUE IN GRAMS ( POUNDS IF N3 = 1 ) **RD2016eO

DENSITY OF THE WEIGHT IN CM3 **PD201£90

COEFFICIENT OF EXPANSION CF THE WEIGHT **RD2017C0

ACCEPTED CORRECTION CF THE WEIGHT IN MG **FD201710

C***********************************************************************RD201720

DO 20 I=leNUNKN RD201730

CALL READIT ( AA . 1 1 * AA I TEM ) RD201740

AIDCSTd.I ) = AAITEM (1 ) RD2017E0

AIDCST(2o I )=AAITEM(2) RD2017C0

AIDCSTC3.I )=AAITEM (3) RD201770

AIDCST(4.I )=AAITEM<4) RD201780

AIDCST<5. I )=AAITEM<5> RD20179C

AN0M( I )=AA( 1

)

RC2018C0

IF (N3.EQ.0) GO TO 10 R0201810

PRTLBXU )=ANOM{ I) RD201820

C**********************************^************************************RC201830

C** CCNVERT POUNDS TO GRAMS **RD201£40

C************************************************^>**********************RD2018S0

ANCM I)=ANCM< I)*453.£9237 RD201860

10 CONTINUE RO20187C

DENSTY( I ) = AA(2) RD2018eO

COEFEX1 I)=AA(3) RD2C1890

ACCVAL ( I ) = AA(4) RD2019C0

20 CONTINUE RD201910

C***********************************************************************RD201";20

C** REACe FREE FIELCt CNE RECORD A VECTOR CONSISTING CF 1»S OP 0«S **FD2C192C

C** USE A 1 IF WEIGHT IS INCLUDED IN RESTRAINT **RD201940

C** USE A IF WEIGHT IS NOT INCLUDED IN THE RESTRAINT **PD2019E0

C** FOLLCW CRDER OF INPUT **RD2019£0

C***********************************************************************RD201970

CALL READIT ( AA , 1

,

fi A ITEM

)

RD201980

DO 20 I=1 8 NUNKN RD201990

c** A GR

c** INFO

c** 1 • c**

c** THE

c**

c** 2.

c** 3.

c** 4.

c** 5.

121
30 ARSTIM I)=AA( I ) RD20200C

C** ****** *************************************************************** RD20201C

C** REACs FREE FIELD* CNE RECCRD CONSISTING OF l'S AND O'S **RD20202C

C** USE 1 IF WEIGHT IS INCLUDED IN CHECK STANDARD **RD20203(

C** USE IF WEIGHT IS NCT INCLUDED IN CHECK STANDARD **RD20204(

C** FOLLCW CRDER OF INFLT **RD2020S(

C** ********************************************************** ********** *pQ20 208

CALL READIT ( AA. I • A A ITEM ) RD20207C

DO 40 I=1«NUNKN RD20208(

40 ACKSTDd ) = AA( I ) RD2020SC

C** *********************************************************** **********RD20210(

C** REACb FREE FIELD, CNE RECCRD CONSISTING OF l'S AND O'S **RD20211(

C** USE 1 IF WEIGHT IS USED IN RESTRAINT FCR NEXT SERIES **RD2C212C

C** USE IF WEIGHT IS NGT USED IN RESTRAINT FCR NEXT SERIES **RD20213C

C** FCLLCW CRDER ON INFLT **RD20214C

C** ********************************************************************* RD20 21 EC CALL READIT ( AA« 1 c A A ITEM

)

RD2021CC

DO £0 I=1,NUNKN RD20217C

50 IRSTCUU ) = INT(AA( I )+.l ) RD20218C

C** ********************************************************** ****** *****(; 020 2 19C

C** REAO IN FREE FIELD A CARD WITH A VECTOR OF 1 IF WEIGHT IS CNE **RD2022CC

C** WHICH IS TO BE PRINTED IN THE REPORT AND IF IT IS NOT 9 THE **RD2022l(

C** READ* FREE FIELD, CNE RECCRC CONSISTING OF l'S AND O'S **RD20222C

C** USE 1 IF WEIGHT IS TO EE FRINTED IN REPORT **RD2022

C** USE IF WEIGHT IS CMTTEC IN REPORT **RD20224(

C** USE CRDER CF INPUT **RD2022E<

C* ********************************* *************** *********** ********** *RD2 02 26 ( CALL READIT ( AA«

1

9 A A ITEM ) RD20227(

DO €0 I=1»NUNKN RD20228C

60 IPRNT( I)=INT( AA(I )*.l) RD2022S<

C** ************************************************************** *******RD2023C<

C** READ DESIGN MATRIX **RD20231

C** READ IN N (NUMEER CF OBSERVATIONS) RECORDS WITH K (NUMBER **RO20232<

C** OF LNKNCWNS) **RD2023

C** ENTRIES PER RECORD IN THE CRDER OF THE **RD20234(

C** IDENTIFICATION CAROS WHERE THE WEIGHING EQLATICN ARE SET UP BY **RD2023E

C** A SERIES CF 0,-1 AND 1 . RD2023CC

C* ********************************************************************* *PD20 2 37C

DO 80 I=1»N0BS RD20238C

CALL READIT ( AA , 1 , A A ITEM ) RD2023SC

DO 70 J=1,NUNKN RD20240C

DESMATi Je I )=AA( J) RD20241C

70 CONTINUE RD20242C

80 CONTINUE RD20243C

C****************************** ************************************ *****RD20244C

C** READ IN LINVAR (NUNBER CF LINEAR COMBINATIONS) RECORDS **RD2024E(

C** TO COMPUTE VARIANCE CF LINEAR COMBINATIONS OF WEIGHTS **RD2O24€0

C** EACH RECCRD CONTAINS K (NUMBER OF UNKNOWNS) ENTRIES **FD2O2470

C** ENTRIES OF O'S, -l'S, AND l'S ARE USED **RD2O2480

C** FOLLCW CRDER OF INFLT **RD2024SO

C* ******* ************************************************************** +RD20 2 500

IF (LINVAR. EQ.O) GC TO 110 PD202S1C

DO ICO I=1»LINVAR RD2O2E20

CALL READIT ( A A« 1 e A A I TEM

)

RD2C2530

DO 90 J=1,NUNKN RD202E40

ALCCM(JeI)=AA(J) RD202SS0

90 CONTINUE RD202560

100 CONTINUE RD202E70

132
C***** ************************************** ****************************RD20 258

C** READ CBSERVATICNS FREE FIELD IN THE ORDER THAT THE DESIGN **RD202590

C** MATRIX IS READ **RD202600

C** READ ENTRIES AS DENGTEO EY Nl AND N2 BELOW **RD202610

C RD202620

C**  Nl N2 **RD202630

C** 2 1 X Y Z **RD202640

C** 2 XI X2 X3 Yl Y2 Y3 Zl Z2 Z3 **RD202€£0

C** XI X2 X3 Yl Y2 Y3 21 Z2 Z3 **RD202660

C** 3 1 X Y Z W **RD202670

C** 3 2-CARDS XI X2 X3 Yl Y2 Y3 **RD202680

C** Zl 22 23 Ml W2 W3 **RD202690

C** 1 2-CARDS XI X2 X3 Yl Y2 Y3 **RD202700

C** Zl Z2 23 Wl W2 W3 **RD202710

C RD202720

C**  NOTES **RD202730

C** 1. ANY OTHER COMBINATICN GF Nl AND N2 ASSUMES THERE ARE TWO **RD202740

C** RECORDS* SIX ITEMS PER RECORO **RD2027S0

C** 2. THE MAXIMUM NUMBER CF CBSERVATIONS IS SO SO YOU MAY HAVE UP RD202760

C** TC 600 READINGS GIVEN HERE **RD202770

C** 3. NC MCRE CESEFVATICNS ARE STORED WHEN **RD202780

C** -20000 IS ENCOUNTERED **RD202790

C******** ****************************************************** 4*** *****RD20 2800

110 DO 120 K=1,NR RD202E10

OBSERV(K)=0.0 RD202820

120 CONTINUE RD202830

K=l RD202E40

C***************************444 4*********************4*******4 44********RD2028 50

C** SET UP FLAGS FOR TYPE CF WEIGHING **RD202860

C** ********************************************************** 4 ******  RD2 02870

IF (N1.EQ.2.AND.N2.EC. 1) GO TO 130 RD2028e0

IF (N1.EQ.2.ANC.N2.EC.0) GO TO 140 RD202890

IF (Nl .EQ.0.AND.N2 .EQ.O) GO TC 150 RD202900

IF (M.EQ.3.AND.N2.EG.1 ) GO TO 160 RD202S10

IF (M.EQ.3.AN0.N2.EG.0) GO TO 170 RD202920

IF (Nl .EQ. 1.AND.N2.EG.0) GO TO 180 RD2C2920

GO TC 180 RD2C2940

130 IA=2 RD202950

ITPCS=1 RD202960

GO TC 190 RD202970

140 IA = 9 RD202980

ITPCS=2 RD202990

GO TO 190 RD202000

150 IA=9 RD203010

ITPCS=3 RD202020

GO TC 190 RD202020

160 IA=4 RD203040

ITPCS=4 RD203050

GO TO 190 RD2030C0

170 IA=e RD203070

ITFCS=5 RD203080

GO TC 190 RD203090

180 IA=6 RD202100

ITPCS=6 RD202110

GO TO 190 RD203120

C ** ******************************************************************** *RD20 3 130

C** READ CESERVATICNS--FREE FIELD INPUT **RD203140

C** THE NUMBER -20000 DENOTES LAST CARD FOR A SERIES **RD203150

133
C** ********************* *********************** ******* ******* * **********rq2 03 160

190 CALL REAOIT ( A A , i , A A I TEM

)

PD203170

IF (AA(1 >.LE. -19999.) GO TO 210 RD203160

DO 200 I=1»IA RD2021S0

OBSERV(K)=AA{ I) RD2032G0

K = K + 1 RD203210

200 CONTINUE RD202220

GO TO 190 RD203230

210 RETURN RD203240

END RD203250

SPINV SUEPRCGRAM

SUBROUTINE SPINV ( A, M , KK , IS I G

)

INV00010

C* ******* *************************************************************** INVO 20

C** SUEROUTINE OF THE NATIONAL BUREAU OF STANDARDS MASS CALIEFATION **INVC0030

C** PROGRAM VERSION OF SEPT. 10*1971 WRITTEN BY R.C.RAYEOLD **INV00040

C** AND MRS.P.N.VARNEfi **INV00050

C** MODIFIED BY R. N. VARNER SEPT 1979 **INV00060

C ******* ***************************************************** *********** INV00070

C** MATRIX INVERSION WITH MINIMUM ROUNDOFF ERROR ACCUMULATION. **INV0C0€0

C** WRITTEN BY MRS.S.T .PEAVY .STATISTICAL ENGINEERING LABORATORY • **INVOOC90

C** NATIONAL BUREAU OF STANCAPDS .WASHINGTON , C.C. 20234 **INV00100

C** A IS THE MATRIX TO BE INVERTED **INV0C110

C** M IS THE NUMBER OF ROWS IN MATRIX **INV00120

C** KK IS THE NUMBER OF COLUMNS IN MATRIX **INV00130

C** ISIG=0 INVERSE SUCCESSFUL **INV00140

C** ISIG=4 SINGULAR MATRIX **INV00150

C** ISIG=-1 CHECK ON I ( IDENT ITY )-A*A( INVERSE) FAILED **INV001C0

C** ********************************************************** *********** INV00170

DIMENSION A(l) INVOOlfiC

COMMON /INVCST/ ZERMAC INV00190

C** ********************************************************** *********** INVO 02 00

C** SAVE ORIGINAL MATRIX **INV00210

C** ************************************************************** ******* INVO 02 20

CALL SAVMTX <M) INV00230

ISIG=0 INVC0240

N=M INV00250

NN=KK INV00260

N2=N+N INV00270

DO 30 J=1.N INV002eO

NJCCL=(N+J-1)*NN INV00290

DO 30 I=1.N INV00200

KINJ=NJCCL+I INV00310

IF (I-J) 10.20.10 INV00320

10 A(KINJ)=0. INV00330

GO TO 30 INV00340

20 A<KINJ)=1. INV00350

30 CONTINUE INV00260

C********* *************************************************** *********** INVO 370

C** DETERMINE MAXIMUM ABSOLUTE OF VARIABLE BEING ELIMINATED. **INV00380

C*** ******************************************************************** I NV 00290

L=0 INV004C0

40 L=L+1 INV00410

LCCL=NN*L-NN INV00420

KLL=LCCL+L INV00430

IF (L-N) 50.100.200 INV00440

C*** *************************************************************** *****INV0C450

C** FIND THE LARGEST ELEMENT IN THE LTH COLUMN. **INV00460

C**************** ******************************************** *********** INV0C470

134
50 J1=L INV004SO

C=AES{ A(KLL) ) INV00490

L1=L+1 INVOOSOO

00 70 I=L1»N INV00E10

KIL=LCCL+I INV00520

X=AES< A(KIL) ) INV00530

IF (C-X) 60,70,70 INV00540

C* *********************************************************** *********** INV0 05 5 C** RECCRD THE NUMBER CF THE FCW HAVING THE GREATER ELEMENT. **INV00560

C********************************* ******************************* *******INV 00570

60 J1=I INV00580

C** ********************************************************************* INV 55

C** C BECCMES THE GREATER. **INV00600

C******** ****************************************************** ********* INV00610

C=X INVC062C

70 CONTINUE INV00620

C ************************************************************ *********** INVC0640

C** INTERCHANGE ROW Jl WITH RCW L. Jl IS THE ROW WITH THE LARGEST **INVCC6S0

C** ELEMENT TEST TC SEE IF INTERCHANGING IS NECESSARY. **INV00660

C* ******* **************************************************** *********** INV00670

if (ji-D ao.ico»eo iNvcceeo

so oo 90 j=l s n2 invoo690

JC0L=NN*J-NN INV007C0

KJIJ=JCCL+J1 INV00710

HOLD=A(KJIJ) INV00720

KLJ=JCCL+L INV00720

A(KJIJ)=A(KLJ ) INV00740

A(KLJ)=HCLD INV00750

90 CONTINUE INV00760 *********************************************************************** INV00770

C** IF THE LARGEST AESOLUTE ELEMENT IN A COLUMN IS ZERC WE HAVE **INV007e0

C** A SINGULAR MATRIX **INV00790 *********************************************************************** INV00800

100 IF (AES( A(KLL)J-ZERM^C) 110,110,120 INVCC810

110 ISIG=4 INV00S20

GO TC 200 INV00830

C*** ******************************************************************** I NV00840

** ZEFC ALL THE ELEMENTS IN THE LTH COLUMN BUT THE PIVOTAL ELEMENT **INVOC8£0 *********************************************************************** INV 086

120 Ll=l INV0C870

L2=L-1 INV00880

IF (L2) 130«130el5C INV00890

30 IF (L-N) 140,170,140 INV009C0

40 L1=L+1 INV00910

L2=N INV00S20

150 OO 160 I=L1»L2 INV0C520

KIL=LCCL+I INV00540

Z=-A(KIL)/A(KLL) INV005EO

DO 160 J=LoN2 INV00960

JCOL=NN*J-NN INV00970

KIJ=JCCL+I INV00980

KLJ=JCCL+L INV00550

60 A(K IJ)=A(KIJ)+Z*A( KLJ ) INV01000

IF (N-L2) 40.40,120 INV01010

Z*** ******************************************************************* *IUV 10 20 ** DIVIDE BY DIAGONAL ELEMENTS. **INV01030

;******************** ********** 4************ ********* ********* * ********* INV 1040

70 00 180 1=1, N INVC10SC

135
180

C***

c**

190

c***

c**

c***

200

c**

c**

c**

c**

c***

c**

c**

c***

c**

c***

c***

c**

c***

10

c***

c**

c**

c**

c**

c***

c**

c**

c**

c**

c**

c**

KKK=NN*I-NN+I

ZZ=A(KKK)

00 180 J=1,N2

KKI=NN*J-NN+I

A(KKI )=A(KKI )/ZZ ********************

RETURN AFTER PUTTI ********************

DO 190 J = 1.N

JCCL=NN*J-NN

NJCCL=NN*N+JCOL

DO 190 I=1«N

KIJ=JCCL+I

KINJ=NJCCL+I

A(KIJ)=A(KINJ) ********************

CHECK SUCCESS CR F ********************

CALL INVCHK ( A . M , K RETURN

END

SAVMTX SUBFRCGRAM —

SUBROUTINE SAVMTX ********************

SUBROUTINE OF THE

PROGRAM VERSICN C AND MRS. R.N. VARNER

MODIFIED 3Y R. N. ********************

SUBROUTINE TO SAVE

MATRIX IS IN Y AND ********************

DIMENSION FOR CCMM ********************

DIMENSION 8<289) S Y LAEELEC COMMON

***** ***************

COMMON /CHECK/ CHC

MA=M*M

DO 10 I=leMA

8( I )=Y(I)

RETURN

END

INVCHK SUBPROGRAM —

SUBROUTINE INVCHK ********************

SUBROUTINE OF THE

PROGRAM VERSICN C AND MRS.R.N.VARNER

MODIFIED BY R. N. ********************

SUBROUTINE TO CHEC

A IS INVERTED MATR

S IS ORIGINAL MATR

M IS NUMBER OF ROVl KK IS NUMBER OF CO

ISIG=-1 IF I-A*A(I

*****************************

NG A INVERSE INTO B *****************************

*******************

** *******************

*****************************

AILURE OF MATRIX INVERSION *****************************

K.ISIG)

(M) *****************************

NATIONAL BUREAU OF STANDARDS

F SEPT. 10, 1971 WRITTEN BY

VARNER SEPT 1979 *****************************

ORIGINAL MATRIX EEFORE INVER

IS STCfiED IN B *****************************

CN /CHECK/ VARIABLES *****************************

(578) ***************************** *****************************

KMA«E«Y

*******************

** *******************

INV01

INV01

INV01

INVOl

INV01

INVOl

INVOl

INVOl

INVOl

INVOl

INVOl

INVOl

INVOl

INVOl

INVOl

INVOl

INVOl

INVOl

INVOl

INVOl

INVOl

oeo 070

060

090

100

110

120

130

140

150

160

170

160

190

200

210

220

230

240

250

260

*******************

MASS CALIBRATION ** R.C.RAYECLD **

  ** *****************

SION **

**

TM "f ^F T ^F ^T ^F ^F T ^r TM ^r T T T V T T

TM ** *******************

*******************

** *******************

(A.M.KK.ISIG) *****************************

NATIONAL BUREAU OF STANDARDS

F SEPT. 10. 1971 WRITTEN BY

VARNER SEPT 1979 *****************************

K I-AA(INV)

IX

IX

S IN MATRIX

LUMNS IN MATRIX

NV) FAILS

*******************

MASS CALIERATION ** R.C.RAYECLD  

**  *******************

**

**

**

 

** 

SVM00010

SVM00020

SVM00030

SVM00040

SVM00050

svMoooeo

SVM00070

svMocoeo

SVM00090

SVM00100

SVM001 10

SVM00120

SVM00130

SVM00140

SVM00150

svMooieo

SVM00170

SVM00160

SVM00190

SVM002C0

SVM00210

SVM00220

IVC00010

IVC00020

IVC00030

IVC00040

IVC00050

IVC00060

IVC00070

ivcoooeo

ivcoooso

IVC00100

IVC001 10

IVC0C120

IVC00130

136
C*** ***************************************** *****+*>m********4*********IVC00140

DIMENSION A(l) IVC00150

C* ************** ******** ********************************* *************** IVC00160

C** DIMENSION FOR CCMMCN /CHECK/ **IVC00170

C** ********************************************************** *********** IVCOO 180

DIMENSION E(285)«Y(578) IVC001S0

C* ****** ***************************************************** * ********** I VC0 200

C** LAEELEC COMMON **IVC00210

C IVC00220

COMMON /CHECK/ CHCKMA»E«Y IVC00230

N=M IVC00240

NN=KK IVC002S0

C**  ********************************************************** *********** IVCOO 26

C** RESTORE ORIGINAL MATRIX **IVC0C270

C** ********************************************* ************** ********** IVC0 0280

NP=N*N IVC0C2S0

DO 10 J=1.NP IVC003C0

NP2=NP+J IVC00310

10 A(NP2)=E(J) IVC00320

C** ********************************************************** *********** IVCOO 3 30

C** B = I-/»A<INV) **IVC00340

C*** *********************************************** ********** *********** IVC00350

IBP=1 IVC00360

K=l IVC00270

do eo j=i«nn ivcoo3eo

IAF=N*N+1 IVC003S0

DO 50 KA=1.N IVC004C0

IA=IAP IVC00410

IB=IEP IVC00420

B(K)=0.0 IVC00430

DO 20 I=1»NK IVC00440

B(K ) = E(K)+A( IA)*A< IE) IVC00450

IB=IE+l IVC00460

20 IA=IA + N IVC00470

IF (J.EQ.KA) GO TC 30 IVC00480

B(K)=-E(K) IVCG04SC

GO TO 40 IVC0C5C0

30 B(K)=1.0-B(K) IVC00510

40 IAP=IAP+1 IVC00520

50 K=K+1 IVC0C520

60 IBP=IBP+N IVC00S40

C** ********************************************************** *********** IVC00550

C** PICK UP THE LARGEST ABSCLLTE VALUE FROM I-AA(INV) **IVC00560

C****************************** ****************************** *********** IVC00570

BIG=AES<E( 1 )

)

IVCOC5E0

J = N*N IVC005S0

DO 70 1=2.

J

IVC00600

70 BIG=AMAX1 (BIG. AES(E(I) )

)

IVC00610

C* ******* *************************************************************** I VC0062

C** IF CONDITION IS NOT MET SET SIGNAL (ISIG)=-1 **IVC00630

C** CHCKMA = .01*S.D. OF E ALANC E ( INPUT VALUE) **IVC00640

C******** ******* ******* ************************************************* I VC0 0650

IF (EIG.LE.CHCKMA) RETURN IVC00660

ISIG=-1 IVC00670

RETURN IVC00660

END IVCCC6S0

PRINT2 SUBPROGRAM

SUBROUTINE PRINT2 PR20001C

13 7
C ******** ********** *********************************** * ****** * * *******'* *PR20 02

C** SUBROUTINE OF THE NATIONAL BUREAU OF STANDARDS MASS CALIEFATION **PR200020

C** PROGRAM VERSION OF SEPT. 10.1S71 URITTEN BY R.C.RAYECLD **PR200040

C** AND MRS.F.N.VARNER **PR20C050

C** MODIFIED BY R. N. VARNER SEPT 1979 **PR200060

C*** ************************************ ******** ******************* *****PR2 07

C** SUBROUTINE TO PRINT PAGES FOR ONE SERIES **PR2000E0

C** ******************************************************************** *pR20 00 90

C** DIMENSION FOR COMMCN /PRT1/ VARIABLES **FR2001CO

C ********************************************************************** +PR2001 10

DIMENSION El(72),E2(72)»B3(72),e4(72),B5(72).B6(72).B7(72)« PR200120

2 IDATE(3) PR200130

C*** *************************************************************** *****PR200140

C** DIMENSION FOR COMMCN /INPLT/ VARIABLES **PR20C1E0

C *********************************************************************** RR2 01 6 DIMENSICN AIDCST(5e 1 5 ) e ANCM { 1 5 )• DENSTY ( 15 ) »COEFEX( 15) e ACCVAL( 15). PR2C0170

2 ARSTINC 15)*ACKSTD( 15).IRSTCU(15). IPRNT ( 1 5 ) t DESM AT ( 15. 50 )

c

PR200180

3 CeSERV(60C).ALC0M(15, 20) PR2001S0

C****** ****************************************************** *********** pr 2 002

C** DIMENSICN FOR CCMMCN /CCMFLT/ VARIAELES **PR200210

C****** ************************************************************ *****PR200220

DIMENSICN SWTPRT(50) .A (50 ) * DELTA (50 ) • OBSCOR ( 1 5 ) t COMVOL ( 15 )• PR2 0C23

2 SERROP( 15)»TPISIG( 15),TCTUN( IS), DRIFT (50 ) • ZERO (50 ) • COMVCF ( 15 )« PR200240

3 CORP5A(20).SIG35A(20) .UNC5A(20) . I0TSTR(50) .SERE A ( 20) * DS 1 (50) PR2002S0

C** ******************************************************************* **PR20 026

C** DIMENSICN FOR SUERCLTINE FRINT2 **PR200270

C* ********************************************************************* *PR200 280

DIMENSICN ITEMP(15)«KTEMF(15) »JTEMP(20> PR20C2S0

C** ********************************************************* ************PR200 300

C******** **************************************************** ***********PR20 3 10

C** DIMENSICN FOR COMMCN /CHECK/ VARIABLES **PR20C320

C*** ******************************************************************** PR 200330

DIMENSICN B(289)»Y(578) PR200340

C** ******************** ************************************** *********** pr 2 00350

C** DIMENSICN FOR CCMMCN /PRTLB/ VARIABLES **PR200360

C ************************************************************* **********PR200 3 70

DIMENSICN PRTLEX(IE) PR200260

C* ********************************************************************* *PR2 003 50

C** LAEELEC COMMON **PR200400

C* ********************************************************************* *PR2 04 10

COMMCN /PRT1/ ElcE2«E3,B4.EE,B6.B7.RANERR.SYSERR.TNOM,Ll.L2.L3.L4,PR2 0042

2 L5.L6.IDATE, IEREST PR200430

COMMCN /PRT2/ I PAGE. NOSER . IPGCT PR200440

CCMMCN /INPUT/ TE AR » PB AR • FEAR , STDEE A * SfcT * VSfcT . CEXSWT , A IDCST , ANOM , PR2004S0

2 DENSTY.COEFEX. ACC V AL • ARST IN . ACKSTD.DESMAT. CBSERV. VARBAL. ALCOM.T 1 PPR2 0C460

3.T2F.P1P.P2P.H1P.F2P.CP1 . CP2 . CT 1 ,CT2 .Ch 1 ,CF2 .OT IP ,0T2P * CF IP .0P2P , PR20 0470

4 0H1P,CH2P.I0P»IEAL.N0ES.NUNKN.IRSTCU» IPRNT. ITPOSe ICKUSD. ICALDSt PR20C48

5 LINVAF«N2cN4 PR2004S0

COMMCN /COMFUT/ CES CCR .CORR .VOLRES.RHOA .SWTFRT . * * DELTA « CCMVCL • PR200500

2 SEFRCPtTRISIG.TCTCNtACCRRtCCRRES,TMSUM,VGLSUM.SERSUM.T3SIG.AL0ADPPR20C510

3oOBSTD.FRATIO*CBCCCK.OBSCK.TVAL.DRIFT.ZERO.V2TAU.STAR»CCMVCP. PR20 0520

4 C0FR5A 9 SIG35A.UNCSA,RHCAA,FH0ABiSER5A.DSl ,NDGFR , ISWTCH . I FLAG . PR20 530

5 IRCUT.IOTSTR. JSTAR PR200E40

COMMCN /PRTLB/ PPTLBX PR2005S0

COMMON /CHECK/ CHCKMA.B.Y PR200560

COMMCN /UNITIO/ I R < I Ml . IP • IPL , I TMP PR200S70

COMMCN /DPFDVL/ KFC(18) PR200EeO

COMMCN /PCHOUT/ NTCP PR2005S0

138
C*** ******************************************************************* *PR2006C0

C** TYPE STATEMENT **PR200610

C*** ******************************************************************* +PR20 062

DOUELE PRECISICIS CESCOR PR200C30

C ******** **************************************************** ********** *PR20 06 40

N0SER=NCSER+1 PR200650

ITST=1 PR200660

IF (NCSER.NE.l) GC TC 10 PR200670

NT0P=0 PR20ceeo

REWIND ITMP PR200690

C ********* *************************************************** ********** *PR2 007

C** WRITE FIRST PAGE CF SERIES **PR200710

C********* ************************************************************* *PR20 07 20

10 CALL HEADPG PR20C720

CALL Ct-KLN <2) PR200740

WRITE (IW.1140) STDEBA.VABEAL PR200750

CALL CHKLN (3) PR200760

WRITE (IWtllSO) ICALDS PR200770

DO IS I=1.NUNKN PR200760

15 ITEMF( I) = ARSTIN( I) PP200785

CALL CHKLN (1) PR200790

WRITE (IW, 1160) (ITEMPd ),I=1,NUNKN) PR200800

CALL CHKLN (6) PR200810

WRITE (IW,1170) CCRR,TEAR,VCLRES.SYSERR,RANERR PR200820

DO 20 I=1«NUNKN PR200S30

20 ITEMP( I)=ACKSTD(I> PR200840

CALL CHKLN (1) PR2008S0

WRITE (IWoll90) ICKUSD PR200860

CALL CI-KLN (1) PR200870

WRITE (IWtlieO) ( ITEMPd ) ,1 = 1 .NUNKN) PR200e80

CALL CHKLN (1) PR20C890

WRITE (IW.1200) V2TAU PR200900

DO 20 I=1,NUNKN PR2CC910

30 ITEMP( I)=IPRNT< I) PR200920

CALL CI-KLN (1) PR200930

WRITE (IW«1040) ( ITEMP( I ) c I = 1.NUNKN) PR200940

CALL CHKLN (15) PR2009S0

WRITE ( I W, 1210) T 1 P, T2P, TE AR ,P 1 P ,P2P .PBAR , H IP, H2P» HEAR t RKCAB* RHOAAPR20 0960

2oRHCA,CTleCT2oCPl.CP2 s CHltCH2tCTlPc OT2P«OPlP f OP2P«OHlP e OH2P PR2 0C9 7 CALL CI-KLN (3) PR20C9eO

IF (N3.EQ.0) GO TC 70 PR200990

C** ********************************************************** ***********PR2010C0

C** OUTPUT IN ENGLISH (POUNDS) **PR201010

C** ****** ******************************************** ****************** *pR20 1020

WRITE (IW«1220) PR20102C

DO 60 I=1.NUNKN PR201040

CALL CHKLN (1) PR201050

IF (ACCVAL(D) 40,50,40 PR201060

40 WRITE (IW.1230) ( A ICCST ( I U , I ) , IU = 1 , 5 ) , PRTLEX ( I ) , OENSTY ( I ) , COEFEX( IPR2 1 070

2)«ACCVAL(I) PR201080

GO TO 60 PR201090

50 WRITE (IW.1230) ( A IDCST ( IU, IJ , IU=1 , 5 ) ,PRTLeX ( I ) • DENSTY ( I ) «C0EFEX( IPR20 1 100

2) PR201110

60 CCNTINUE PR201120

GC TC 110 PR201120

C******************************************************************4 PR201 140

C**  OUTPUT IN METRIC (CRAMS) **PR2011E0

C*** ******************************************************************* +PR201 160

139
70 WRITE dm* 1250) PR201170

00 100 I=1.NUNKN PR201180

CALL CI-KLN (1) PR201190

IF (ACCVAL(I)I eO.SO.80 PR201200

80 WRITE (IW.1240) ( A IOCST ( IU. I ) • IU=1 . 5) t ANOM < I ) . DENSTY( I I . CCEFEX ( I » , PR20 12 10

2ACCVAL(I) PR201220

GO TC 100 PR201220

90 WRITE (IWtl240) ( A IOCST

(

IUt II • IU=1 • 5) * ANOM < I ) • DENSTYC I ) , CCEFEX ( I ) PR201240

100 CCNTINUE PR2012EO

C** ******************************************************************** *pp 2 1260

C** WRITE SECCND PACE CF SERIES **PR201270

C** ******************************************************* ******* ******* pr 20 1280

110 CALL HEAOPG PR2012S0

CALL CHKLN (3) PR201300

WRITE (IW.1150) ICALOS PR201310

CALL CHKLN (2) PR201320

IF (N3.EQ.0) GC TC 210 PR201330

C** ******************************************************************** *PR2 1340

C** OUTPUT IN ENGLISH LNITS **PR201350

C** JFLAG=1 PCUNOS **PR201360

C** JFLAG=2 MILLI-PCUNCS **PR201370

C** JFLAG=3 MICRO-PCUNCS **FR201380

C*** ********************************************************* ****** *****pR20 13S0

JFLAG=1 PR201400

IF (PRTLBXd I.LT.0.001 ) GC TC 120 PR201410

IF (PRTLBX(l) .LT.l .0) JFLAG=2 PR201420

GO TC 130 PR201430

120 JFLAG=3 PR201440

130 00 170 1=1 .NUNKN PR2014S0

GO TO (140.150. 1601* JFLAG PR201460

140 KTEMP<II=INT(PRTLBX( II+.5I PR201470

GO TC 170 PR201480

150 KTEMP( I)=INT( 1 000 . *PRTLEX ( I l+.SI PR201490

GC TC 170 PR201500

160 KTEMP(I)=INT( 1 CCOO 00.*PRTLEX( II+.5) PR201S10

170 CONTINUE PR201S20

GC TO (180.190.2001. JFLAG PR201530

160 WRITE (IW.1050I (KTEMP ( I ) . 1=1 . NUNKN

I

PR201S40

GO TO 270 PR2015EO

190 WRITE (IW.1060) ( KTEMP( I ) . 1 = 1 .NUNKN) PR201560

GO TC 270 PR201S70

200 WRITE (IW.1070) ( K TEMP ( I )» 1= 1 , NUNKN

)

PR201580

GC TC 270 PR2015S0

C ********************************************************************** *PR2 016 CO

C** OUTPUT IN METRIC **PR201610

C** JFLAG=1 GRAMS **PR201620

C** JFLAG=2 MILLIGRAMS **PR201630

C*** ********************************************************* ***********PR20 1640

210 JFLAG=1 PR2016E0

IF (ANCMO I.LT.1.0) JFLAG=2 PR201660

DO 240 1 = 1 .NUNKN PR201670

GO TO (220.2301* JFLAG PR201680

220 KTEMP ( I)=INT(ANCM( II + .5) FR2016S0

GO TO 240 PR2017C0

230 KTEMP( I | = INT( ANCM< I)*lC00. + .5» PR201710

240 CONTINUE PR201720

GO TO (250.2601. JFLAG PR201730

250 WRITE (IW.1260) ( KTEMP ( I ) o I = 1 1 NUNKN

I

PR201740

140
GO TO 270 PR2017S0

260 WRITE (IW.1270) ( K TEMP( I ) . 1= 1 .NUNKN

)

PR201760

C* *********************************************************** ***********PR 20 177

C** SET UP AND PRINT DESIGN MATRIX **PR201780

C**************** **************************************************** ***PR20 1790

270 DO 210 I=leNOBS PR201800

DO 200 J=l .NUNKN PR201810

IF (DESMAT(Je I ) .EO.0.0) GC TC 280 PR201820

IF (DESMATCJo I) .EG. 1.0) GC TO 290 PP201830

ITEMP< J)=KFO( 12) PR201840

GO TC 200 PR2018S0

280 ITEMP( J)=KFD( 1 1

)

PR201860

GO TO 300 PR201870

290 ITEMF( J)=KFD< 15) PR201880

300 CONTINUE PR201890

CALL CHKLN (1) PR201900

WRITE (IW»1280) Io { ITEMP{ J) » J=1 9 NUNKN) PR201910

310 CONTINUE FR201920

DO 340 J = l .NUNKN PR201920

IF (ARSTIN(J) .EC.O.O) GC TC 320 PR201940

IF (ARSTIN( J) .EQ.l .0) GO TO 330 PR2019SO

ITEMF( J)=KFD( 12) FR201560

GO TC 340 PR201970

320 ITEMP( J)=KFD{ 1 1

)

PR201980

GO TO 340 PR201950

330 ITEMP( J)=KFD( 15

)

PR202000

340 CONTINUE PR202010

CALL CHKLN (1) PR202020

WRITE (IW 1290) ( I TEMP ( J ) , J= 1 .NUNKN ) PR202020

C*** ************************************************** ******* *********** PR 202040

C** WRITE OBSERVATIONS AS READ **FR2020E0

C*** **************************************** ********* ******************* PR 202060

CALL CHKLN (3) PR202070

WRITE (IW 8 1300) FR202080

J^l PR202090

CALL CHKLN (2) PR202100

GO TO (350,390.400 .,450.470. 4e0>. ITPOS PR202110

350 WRITE (IW.1310) PR202120

DO 280 I=l»NOBS PR202120

CALL CHKLN (1) PR202140

IF CDSK D.EQ.O.O) GO TO 360 PR2021SO

WRITE <IW»1370) I»CBSERV( J)»CBSERV( J+l ) f OBSERV ( J + 2

)

PR202160

GC TC 270 PR202170

360 WRITE (IW.1370) I , CBSERV ( J ) .OBSERV ( J + l ) PR202180

370 J=J+3 PR202190

380 CONTINUE FR202200

GO TC 510 PR202210

C*** ****** ************** ************************************* ********** *PR2 02 220

390 WRITE (IW 9 1320) PR202220

GC TC 410 PR202240

400 WRITE (I Wo 1330) PP2022E0

410 DO 440 I=1,N03S PR202260

CALL CHKLN (2) PR202270

IF (DSKI) .EQ.O.O) GC TO 420 PR202280

WRITE ( IW» 138 0) IeCBSERV(J) .OBSERV (J+l ),0BSERV(J + 2) ,OBSEFV( J + 3 ),0BPR2 02290

2SERV(J+4),GBSERV(J45),CeSERV(J46).0BSERV(J*7)tCESERV<J+8) PR 202200

GO TO 430 PR202210

420 WRITE (IW 9 1330) I « CBSERV ( J ). OBSERV ( J+ 1 ). OBSERV ( J+2 ) .OBS ERV ( J + 3 ) .OBPR2023 20

141
2SERV( J + 4),CBSERV( J-»5) PR202330

430 J = J+9 PR202340

440 CCNTINUE PR2023S0

GO TC £10 PR202360

C****************** ************************* **************************** PR202370

450 WRITE (IW«1340) PR202380

00 460 I=l»NCBS PR202390

CALL CFKLN (1) PR202400

WRITE (IW«1390) I.CBSERV(J) ,0BSERV(J+1 ),OBSERV( J-f 2 ) .OBSER V( J+3 ) PR202410

J = J+4 PR202420

460 CCNTINUE PR202430

GC TC £10 PR202440

C ***************** ******* *********************** ***** ********* * *********pr 20 2450

470 WRITE (IWel350) PR202460

GO TC 490 PR202470

480 WRITE (IWtl360) PR202480

490 JB=12 FR202490

DO £00 I=ltNOBS PR202£00

CALL ChKLN (2) PR202£10

WRITE (IW,1400) It (OBSERV(JA)c JA=J, JB) PR202E20

J8=JB+12 PR202530

J=J+12 PR202540

500 CCNTINUE FR2025£0

510 IF (IFLAG) 530. £40. 520 PR202E60

C** *****************   ** *************************** ********* * ******** *PR202£ 70

C** RETLRN IF MATRIX IS SINGULAR **PR202580

C** OR INVERSE IS IN EPRCP **PR202590

C** ********************* * ********************************************** *PR2 026 00

520 CALL CFKLN (3) PR202610

WRITE (IW.1410) PR202620

RETURN PR202630

530 CALL CI-KLN (3) PR202640

WRITE (IW.1420) PR202C£0

M=NLNKN+2 PR202660

MA=V*M+1 PR202670

MB=NA+M*M-1 PR202680

ABC = FLC AT (MB-MA+D/5. 0+3.0 PR2 269

I AEC=(NB-MA+i )/S+3 PR202700

IF (ABC.GT.FLOAT(IABC) ) IAEC=IABC*1 PR202710

CALL CFKLN (IABC) PP202720

WRITE (IWol430) C V ( I ) . I =M A , MB

)

PR202730

MA=1 PR202740

MB=lv*M PR2027S0

ABC = F LC AT (MB-MA+D/5 .0+3.0 PR20 2760

I ABC=(KE-MA+1 )/5+3 PR202770

IF (AEC.GT.FLOAT( IABC) ) IAEC=IABC+1 PR202780

CALL CFKLN (IABC) PR202790

WRITE (IW.1440) (Y(I)tI=KA,ME) PR202800

MB=V*M PR202810

ABC=FLCAT(MB)/5. + 3.0 PR202820

IABC=ME/5+3 PR202830

IF (ABC. GT.FLOAT( IABC) ) IAEC=IABC+1 PR2028A0

CALL CFKLN (IABC) PR2028£0

WRITE (IW«1450) ( E { I ) « 1 = 1 • MB ) PR2028C0

RETURN PR202870

C ********************************************************************** *PR2028 80

C** WRITE THIRC PAGE CF SERIES **PR202890

C* ************************************************************ * ** *******PR2 029

142
540 CALL HEAOPG PR202910

CALL CI-KLK (3) PR202920

WRITE (IW.1150) ICALDS PR202920

CALL CHKLN (5) PR202940

WRITE (IW.1460) S*T»VSWT»CEXSWT.STAR PR202950

CALL CHKLN (5) PR202960

GO TO (550,550,560 ,610, 610, 630), ITPQS PR202970

550 WRITE (IWtl470) PR20296C

DO 570 1=1, NOBS PP202990

CALL CI-KLN (I) PR203000

IF (DS1 ( I) .EQ.C.O) GO TC 560 PR202010

WRITE (I*. 1540) I, IOTSTRC I) ,A( I) ,DELTA( I )• SWTPRTC I )«DS1 ( I ) PR202020

GO TC 570 PR202020

560 WRITE (IW»1540) 1 1 ICTSTR ( I ) t A ( I ) .DELTA ( I ) , SWTPRTC I ) PR2C3040

570 CCNTINUE PR202050

GO TC 650 PR202060

C***********************************************************************pft203070

580 WRITE (IW.1430) PR202060

CALL CHKLN (1) PR202090

DO 600 I=l»NOBS PR2021C0

IF (DS'l ( I) .EQ.O.O) GO TO 590 PR202110

WRITE (IW t 1540) It ICTSTR ( I ).A( I), DELTA ( I >, SWTPRT

<

I)»ZERC< l)eDSl(I)PR202120

GO TC 600 PR202120

590 WRITE (IW«1540) I • IOTSTR ( I ) • A ( I ) .DELTA { I ) • SWTPRT ( I ) » ZERC ( I ) PR202140

600 CONTINUE PR203150

GO TO 650 PR202160

C***********************************************************************PR202170

610 WRITE (IW«1490) PR203183

DO 620 1=1, NOBS PR202190

CALL CHKLN (1) PR2032C0

WRITE (IW» 1540) I* ICTSTR ( I) . A < I ) . DELTA ( I ) , SWTPRT < I ) ,DR I FT < I ) , DS 1 ( IPR2C22 10

2) PR20222C

620 CONTINUE PR203220

GC TC 650 PR202240

C**************** **************************** ************* ************** PR 202250

630 WRITE <IW»15G0) PR202260

DO (40 I=l»NOBS PR203270

CALL CI-KLN (1) PR202260

WRITE (I We 15 40) I* IOTSTR (I ) * A ( I ) , DELT A ( I) .SWTPRT (I

)

.DRIFT (I ) . ZERO { PR2 022 9 2I),CS1(I) PR20220C

640 CONTINUE PR202210

650 IF (JSTAR.EQ.O) GC TO 660 PR202220

CALL CHKLN (3) PR202220

WRITE (IWflSlO) PR202240

660 CALL CHKLN (6) PR2023E0

IF (N3.EQ.0) GC TC 660 PR202360

C*** ******************************************************************* *PR202270

C** ENGLISH UNITS **PR202360

C **************************************************************** *******pR20229C

WRITE (IW«1530) PR2C24CC

DO 670 I=1»NUNKN PR202410

CALL CI-KLN (1) PR202420

FGBSCR=CBSCOR( I) PR20343C

WRITE (IW.156 0) PPTLEX (I ) .FCESCR. COMVOP ( I ) e SERROR( I )• TR IS IG ( I ) »TOTPR203 4 40

2UN(I) PR203450

670 CONTINUE FR203460

GO TC 7C0 PR203470

C******************************** ************************* **************PR202460

143
C** METRIC UNITS **PR202490

C** ************************ * **************** *************************** *pp20 3 500

680 WRITE (IW«1520) PR202510

DO €90 I = l e MJNKN PR203520

CALL CI-KLN (1) PR203530

FCESCF=CBSCOR<I) PR202E40

WRITE < I Wo 1550) ANCM(I ) , FCESCR .COMVGP ( I).SEFROR(I ) .TR IS IG < I ) , TOTUNPR20 35SO

2(1) PR202S80

690 CONTINUE PR202570

700 IF USWTCH.EQ.O) GC TG 710 PR203580

CALL CHKLN (3) PR203590

WRITE (IW 9 1570) PR203C00

710 CALL CHKLN (3) PR203610

WRITE <IW«1580) TE*R PR203C20

XXXX=0.1*STDEEA PR203C30

XXXXX=ASS< ACORfi-CCFRES) PR203€40

IF (XXXXX.LE.XXXX) GC TC 720 PR2038E0

CALL CI-KLN (7) FR203660

WRITE (IW.1590) ACCRR.CCRRES PR202670

720 IF ( IRCUT.EO.0.0) GO TC 730 PR203efi0

CALL CI-KLN (6) FR202890

WRITE (IWtieOO) ( IFSTOUCI ).I = 1 .NUNKN) PR2037C0

WRITE (IW e 1610) T* S JM» VCLSUM» SERSUM t T3SIG PR203710

C ****************************************** ******** ********************* pp.2037 20

C** WFITE LAST PAGE OF SERIES IF LINVAR NOT ECUAL TC ZERO **PR202720

C** ***************************************** ********* *******************pp2 3 740

730 IF (L INVAR. EQ.O ) GC TO 930 PR2027E0

CALL HEAOPG PR2027€0

CALL CI-KLN (3) PR203770

WRITE (IW.1150) ICALOS PR202780

CALL ChKLN (3) PR203790

WRITE (IW«1620) PR202800

CALL ChKLN (I) PP203810

IF (N3.EQ.0) GC TC 770 PR203820

C** ********************************************************** ***********pR2 03 8 3 C** ENGLISH UNITS **PR202840

C*** *************************************************** *****************PR203850

GO TC (740e750»760). JFLAG PR2028€0

740 WRITE (IW.IOSO) PR203870

GC TC 800 PR202880

750 WRITE (IW*1090) PR203890

GO TO 800 PR202900

760 WRITE (IWellOO) PR203910

GO TC 800 PR202920

C* *********************************************************** * * ******** *pr 2 39 20

C** METRIC UNITS **PR203940

C ************************************************************ * * * ******** PR 20 3 9 £0

JFLAG PR2029€0

PR203970

PR202980

PR203990

PR204000

WRITE (IW.1650) (KTEMP(I) .1 = 1 .NUNKN) PR204C10

DO 840 I=1»LINVAR PR204020

JTEVF(I)=0 FR204030

DO e30 J=1«NUNKN PR204040

JTEMP( I ) = JTEMP( I)+KTSMF<J ) * I NT ( ALCOM ( J . I)

)

PR2040 50

IF (ALCCM{ J, I ) .EQ.0.0) GO TO 810 PR204060

144

770 GO TO (7e0«790).

780 WRITE (IWol630)

GO TC 800

790 WRITE (IW«1640)

800 CALL CFKLN (1)
GO TC

850 WRITE

GC TC

860 WRITE

GC TC

870 WRITE

GC TC

880 GO TC

690 WRITE

GC TC

900 WRITE

910 DO 920

IF <ALCCM< J« I ).EQ.1.0) GC TC 820 PR204070

ITECP( J)=KFD< 12) PR204080

GO TC 630 PR204090

810 ITEVPC J)=KFD( 11

)

PR204100

GC TC 830 PR204110

820 ITEMP( J)=KFD( 15) PR20412G

830 CCNTINUE PR204130

CALL Ct-KLN (1) PR204140

WRITE (IW.1660) JTEMPU ) . <ITEMP<K) «K*1 .NUNKN) PR2041S0

840 CCNTINUE PR204160

CALL CFKLN (8) PR2C4170

WRITE (I*,1670) PR204180

WRITE (IM e 1680) PR204190

CALL CFKLN (2) PR204200

IF (N3.EO.0) GO TO 880 PR204210

<e50. 860t 870 ) » JFLAC PR204220

(IW.1110) PR204230

910 PR204240

(lWell20) PR204250

910 PR204260

(IW«1130) PR204270

910 PR2042eO

(690.900)« JFLAG PR204290

(IW,1690) PR204200

910 PR204210

(IW.1700) PR204220

I=1»LINVAR PR204330

CALL ChKLN (1) PR204340

WRITE <IW»1710) JTEVPCI ) , C0RR5 M I > • SER5A( I )»SIG35A( D.UNCEAd ) PR2043E0

920 CCNTINUE PR204360

C*********************************************************************** PR 204270

C** WRITE LAST PAGE CF SERIES **PR204380

C ******** ************** ******** ********************** ******** * 4*****  PR204 390

930 CALL HEADPG PR204400

CALL CFKLN (2) PR204410

WRITE (IW»1720) ALCACP, IEPEST PR204420

CALL CFKLN (3) PR204420

WRITE (IfcellSO) ICALOS PR204440

CALL ChKLN (9) PR2044E0

WRITE (IW.1730) OESTOtSTDEEAtNCGFR.FRATIO PR204460

C** **** *************************************************** ************** pr 204470

C** COMPUTE F - VALUE **PR204480

C ************************************************************ ***********pR20 4 4 9 PRETST=6.64 PR204EC0

CALL CHKLN (4) PR204510

IF (NDGFR.EQ.l) GC TO 940 PR204520

ANDCFR=NDGFR PR204E30

PRETST=( 1.0-2.0/<9.*ANDGFR)+2.32635*SQRT(2»0/(9.0*ANDGFR ) ) ) **3 PR2 045 40

940 IF (FRATIO.GT.PRETST) GO TO 950 PR204ES0

WRITE (IW«1740) FRETST PR204E60

GO TC 960 PR204E70

950 WRITE <I*ol750) PR204£eO

WRITE (IW»1760) PRETST PR204S90

WRITE (IW.1750) PR204600

ITST=0 PR204610

960 DO 970 I=l»NUNKK PR204620

970 ITEMP< I)=ACKSTC(I) PR204620

CALL CJ-KLN (3) PR204640

145
WRITE (IW.1810) PR204650

CALL CHKLN <1) PR204C60

WRITE (IW.1180) ( ITEWPC U 9 I = 1»NUNKN) PR204670

CALL CHKLN (1) PR204fieO

WRITE (IW.1190) ICKUSD PR204C50

CALL CHKLN (I) PR204700

WRITE (IW.1200) V2TAU PR2047I0

CALL CHKLN C6» PR204720

WRITE (IW«1770) CBCOCK* CESCKt TVAL PR204730

CALL CHKLN (1) PR204740

IF (GBSCK.NE.O.O) CO TO 980 PR204750

WRITE (IW.1820) PR204760

980 IF (AES(TVAL) .GE.3. ) GO TC 990 PR204770

CALL CHKLN (3) PR204780

WRITE (IW»1780) PR204790

GO TC 1030 PR204800

990 WRITE (IW»1750) PR204610

ITST=0 PR204620

YXYX=0.0 PR204e30

00 1000 I=1«NUNKN PR204840

1000 YXYX=YXYX+(ACKSTD< I)*SERRCR( I)

)

PR2048S0

XYYX=AES(TVAL)-(YXYX/OESCK) PR2048C0

CALL CHKLN (3) PR204e70

IF (XYYX.GE.3.) GC TO 1010 PR204880

WRITE (IW.1790) PR204890

GO TC 1020 PR2049C0

1010 WRITE (IW.180Q) PR204510

ITST=0 PR204920

1020 CONTINUE PR204930

CALL CHKLN (161 PR204S40

WRITE (IW.1750) PR204950

1030 WRITE (IW«1210) T 1P« T2P» TEAR .P IP .P2P.PBAR • H IP tH2P .HEAR . RHCAE. RHOAAPR204960

2.RHCA.CT1.CT2 .CP1 .CP2.CH1 ,CH2 . CT1P. CT2P .OP 1 P * 0P2Pt OH IP. CH2P PR2 049 7 DIFT=T2P-T1P PR20496C

DIFP=P2P-P1P PR204990

DIFH=H2P-H1P PR2050C0

C** * **************** ***** **************************** ********

********* *pp2 050 10

C** PUNCH CCNTRCL DAT* RECCRCS **PR20£020

C** ********************************************************** * ********* + PR20 SO 20

NTOF= NT0P* ITST PR20S040

IF (ITST. EG. 0) RETURN FR2050S0

WRITE ( ITMP) ( IDATE(K),K=l,3).IBREST,ICKUSC.0BC0CK. IBAL. OESTO»NOGFPR2 0£0€0

2Rc ICALOS»TBAR*OIFT e PBAR»DIFP«HBARoOIFH»RHOA«IOP PR20S070

NTCF=NTCP+1 PR205080

RETURN PR205090

C ********************** ******** ****************************** ********** +PR205 100

C** FORMAT STATEMENTS **PR205110

C* ******* *************************************************************** FR2 05 120

(1X.13HREPCRT VECTCR .1 X . 15 15

)

PR205120

(6X.3H LE/6X.15I6) PR205140

(6X«9H MILLI-LB/6X»15I6) PR205150

(6X.9H MICRC-LE/6X.15I6) PR205160

(2X,4H(LE) .6X.2HLB) PR205170

(lXo8HMILLI-LB.6X.8HMILLI-LB» PR205ieO

( 1X.8HMICRC-LE.6X.8HMICR0-LE) PR2 05190

(2X.4H(LE) *£X.4H(MG) ,7X.4H(MG) , 10X. 4H(MG). 10X.4H(MC>/) PR205200

(1X,10H(MILLI-LB).3X«4H(MG)»7X. 4H(MG)t 10X.4H(MG) • 10X.4H( MG ) PR2052 1 PR205220

1040 FORMAT

1050 FORMAT

106 FORMAT

1070 FORMAT

1080 FORMAT

109 FORMAT

1100 FORMAT

1110 FORMAT

1120 FORMAT

2/)

146
3 28F

4 30F

5 31H

6 231-

1130 FORMAT ( 1X« 10H<MICRO-LE) e 3Xt4H(MG)«7X»4H(MG)*10X»4H(MG)*lCX,4H(MG)PR205230

2/) PR20E240

1140 FORMAT (50H ACCEPTED WITHIN STANDARD DEVIATION CF THE PROCESS. 2Xt PR20S2E0

2 F12.5.3H MG/51H ACCEPTED eETWEEN STANDARD DEVIATION OF THE PRCCESPR 2 5 26

C

3S» lX s F12.Es 3H MG) PR20E270

1150 FORMAT (//20H CALIERATION DESIGN ,14) PR205280

1160 FORMAT (17H RESTRAINT VECTOR* 1 X • 151 5

)

FP20E2S0

1170 FORMAT (31H MASS CORRECTION OF RESTRAINT ,31 X • Fl 3 .5 • 3H MO/ PR20E2C0

2 46H VOLUME OF WEIGHTS EEING USED IN RESTRAINT AT F6.2.3H C »7X. PR2CE210

2 F13.E«4H CM3/36H SYSTEMATIC ERROR IN THE RESTRAINT .26X.F13.5. FR2C5220

4 3H MG/65H 3 STANDARD DEVIATION LIMIT FOR RANDOM ERROR AFFECTING RPR20S220

5ESTF.AINT ,F10.5,2F MG//) PR20E240

1180 FORMAT (22H CHECK STANDARD VECTOR* 1 X* 1 5 15

)

PR2053SO

1190 FORMAT (22H CHECK STANDAPC USEC ,14) PR20S260

1200 FORMAT (44H ACCEPTED MASS CORRECTION OF CHECK STANDARD «F13.5« PR20E370

2 3H MG) FF20S280

1210 FORMAT (//16H TEST COND IT IC NS ,29X .6HBEF0RE t 7X* 5HAFT ER* 7X. 7H AV ER AGEPP20E3S

2/361- CCRRECTEO TEMPERATURE IN CEGREES C f 3Fl3.2/ PR20S4C0

CORRECTED PRESSURE IN MM HG , 9X , 3F 13.3/ FF205410

CORRECTED HUMIDITY IN PERCENT ,6X , 3F1 3 .2/ PR20S420

COMPUTED AIR CENSITY IN MG/CM3* 7X 3F 1 3 .4/ PR20E420

TEMPERATURE C CF. RECT I CN , 1 4X , 2F 1 3. 3/20H PRESSURE COR fi ECT ION , 17X FR20 £440

7.2F13.3/20H HUMIDITY CCF R E CT ICN , 16X , 2F 13 . 2/ PR20545C

8 34H DESERVED TEMPERATURE IN DEGREES C.2X.2F13.2/ PR205460

9 28H CESERVED FRESSURE IN MM HG ,9X,2F13.3/ PR205470

* 30F OESERVED HLMICITY IN PERCENT , 6X , 2F1 3 .2//

)

PR205480

1220 FORMAT ( 4X * 1 3H WEI GHTS SE I NG • 5X. 7HN0MI N AL* 6 X. 7HDENS ITY* 5X* PR20S490

2 1 1FC0EFFICIENT,3X , 8hACCEPTED/eX , 6HTESTED , 7X , 8H VALUE LB.3X, FR2O5SC0

3 12HG/CM3 AT 200 , 2X , 12FCF EXPANS ION , 2X , 13HCCRRECT I CN MG/) PR205510

1230 FORMAT ( 1 X e 5A3* IX * F 1 2 . 7* 2 X • F7 . 4* 6X* F7 • 6* 3X * F 1 3 • £

)

PR205520

1240 FORMAT ( 1 X ,5 A3* 1X» F 1 2 . 4. 3X* F7 .4* 6X t F7 . 6* 3X * F 1 3 • £ ) PR20£E20

1250 FORMAT ( 4X « 1 3HWE I GHTS BE I N G« 5 X * 7HN0 MI N AL* 6X* 7HDENS I TY * 5X • PR2C£E40

2 1 1FC0EFFICIENT,3X , 8HACCEFTE D/8X , 6HTESTED , 7X , eh VALUE G ,2X, FR20£5£0

3 12HG/CM3 AT 20C,2X,12H0F EXP ANS ION ,2X , 13HCCRRECT I ON MG/) PR20EEC0

1260 FORMAT (6X*6H GRAMS/6X* 1 E 16 ) PR20££7C

1270 FORMAT (6X*3H MG/6X.15I6) PR205EE0

1280 FORMAT (3H A , I 2 , 1 X , 15 ( 5X , A 1 )

)

PR20SSS0

1290 FORMAT ( 3H R 3X. 1 £ ( 5X, A 1 ) ) FR20E600

1300 FORMAT (//26H CBSEFVATICNS IN OIVISICNS) PR20S610

1310 FORMAT (39b SINGLE SUBSTITUTION SINGLE PAN BALANCE/) PR20E620

1320 FORMAT (36H SINGLE SUBSTITUTION TWO PAN BALANCE/) PR20E620

1330 FORMAT (37H SINGLE TRANSPOSITION TWO PAN BALANCE/) PR20E640

1340 FORMAT (36H DOUELE SUBSTITUTION ONE PAN BALANCE/) PR20E650

1350 FORMAT (36H DOUBLE SUBSTITUTION TWO PAN BALANCE/) PR2CE660

1360 FORMAT (37H DOUBLE TRANSPOSITION TWO PAN EALANCE/) PR20E670

1370 FORMAT ( 3H A * I 2, 1 X , 3F 1 1 . 4 ) PR20E680

1380 FORMAT (3H A , I 2 , 1 X , 6F 1 1 . 4/6X , 2F 1 1 • 4 ) PR205650

1390 FORMAT (3H A , 1 2 , 1 X ,4F1 1 .4 ) PR20£7C0

1400 FORMAT ( 3H A • I 2* 1 X. 6F 1 1 . 4/6X* 6F 1 1 . 4

)

PR20£710

1410 FORMAT (//19H MATRIX IS SINGULAR) PR20S720

1420 FORMAT (//17H1ERRCF IN INVERSE) PR205720

1430 FORMAT (//4H A =/(£E16.8)) PR20£740

1440 FORMAT (//12H A ( IN VERSE ) = / ( 5E 1 6 .8 )

)

PR2057S0

1450 FORMAT (//15H I - A A { I NV ERSE ) =/ ( 5E 1 6 . 8)

)

PR20£760

1460 FORMAT (/19H SENSITIVITY HEIGHT/5H MASS*2X * F 1 2 • £» 3H MG/7H VOLUME* PR20S770

2 2X t F13.5« 12H CM3 AT 20 C/25H COEFFICIENT CF EXF ANS ION , 2X ,F8 . 6/5X

,

PR2057 8

3 1 1FS*=S-PV<S)=* 1X.F13.E.3H MG) PR2C£7SC

1470 FORMAT ( /3€X* 7H AVE F AGE* 6X c 8HCBSERVED/ 1 3X* 4H A ( I ) * 6X , 8HDELT A ( I ) , 3X

,

PR20S8C0

147
1540 FGRMAT

1550 FORMAT

1560 FORMAT

1570 FORMAT

1580 FORMAT

1590 FORMAT

2 11HSENSITIVITY,2X,1 1 HSENSI TI V ITY/13X . 4H{ MG ) , 8X ,4H ( MG ) , 6X , PR205ei0

3 8H(MG/DIV) ,6X,8H(MG/DIV/ ) PR205820

148 FORMAT ( /3 5X , 7H AVER AGE t 1 6X * 8HCBSERVED/ 1 3X . 4HA< I

)

,6X,8HDELTA< I) ,3X,PR2 5830

2 1 lFSENSITIVITY,4X,7hZERC<I)»2X» 1 1 HSEN SIT I V ITY/ 13Xo 4H ( MG ) »9X« PR20 5E40

3 4H(MG)»5Xo8H(MG/0 I V ) « 6X« 5H < D I V ) 9 6X 9 8H < MG/D I V ) / ) PR205e=0

149 FORMAT ( /3 7X . 7H AVER AGE • 1 6 X » 8H0ESERVED/ 1 3X * 4HA ( I ) , 5X ,8HDELT A < I ) .5X.PR20S860

2 1 ll-SENSITIVITY,2X,8HORIFT< I) ,2X , 1 1 HSENS I T I V ITY/ 1 3X 9 4H < WG)»7X, PR205E7

3 4H(MG) 9 8X 9 8H<MG/0IV)*6X»4H ( MG ) t 6X t 8H ( MG/D I V ) /

)

PR205880

150 FORMAT </37X , 7H AVE R AGE ,27 X , eHCe SERVED/ 13X , AHA ( I ) , 6X ,8HDELT A ( I ) ,4X,PR20£890

2 1 1FSENSITIVITY,2X,8HDRIFT(I) ,3X,7HZERGU )t 3X 9 1 1HSENSI T I V ITY/ 1 3X. PR20SSC0

3 4H(MG) 9 8X»4H<MG) 9 7X 9 8H<MG/OIV)e5X9 4H(MG)9eX»5H(DIV)o6X»8MMG/DIV)PR20 59lO

4/) PR205920

1510 FORMAT (/6X.64H* CESERVED OEFLECTICN IS GREATER THAN OR ECUAL TO OPR20SS30

2NE FOURTH THE/8X* 2 2HSEN S IT I V I TY DEFLECTION) PR20S940

1520 FORMAT ( //3 1

X

9 6HVCLUME , 5X , 1 OHS YSTEMAT I C ,3X ,6H3 S.D..3X, PR20E950

2 11I-UNCERTAINTY/5X,4HITEM,8X.10HCORRECTIGN 9 4X 9 6MAT T ) • 8X » • 5HERRORPR2 5 S6

3 9 6X 9 5HLIMIT»6X 9 5HLIMIT/6X 9 3h(G) 9 12X»4H<MG)»7X 9 5H(CM3).9X 9 4H{MG)t7XPR205970

4,4H(MG) ,7X ,4H(MG)/) PR20S980

1530 FORMAT ( //3 1 Xg 6HVCLUME e 5X » 1 OHSYSTEMAT IC«3X « 6H3 S.D. 9 3X 9 PR205SS0

2 1 1I-UNCERTAINTY/5X,4HITEM,8X,10HCORRECTION ,4X,6M AT T) , 8X .5HERR0R , PR2060

3 6X ,5HLIMIT,6X,5HLIMIT/5X,4h(Le)t 12X» 4H(MG ) t 7X f 5H ( CM3 ) • 9X«4H( MG ) , PR206010

4 7X 9 4H(MG) 9 7X 9 4H(MG)/) PR20€02C

(3H A • 12, IX, 41 ,6F12.5) PR20C020

<1X,F12.4,2F13.5,3F11.5) PR20C040

(1X»F12.7 9 2F13.5,3F11.5) PR20C05

(/25H STOPPED AT 10 ITERATIONS/) PR206060

(/15H TEMPERATURE T=.F6.2,3H C/) PR206070

(IX* 72H* **************************************** ***********PR206 OS

2*************4******/lX, PR2060S0

3 72HINFUT ERROR IN RESTRAINT. CHECK RESTRAINT VECTOR* NOMINAL VALUPR206100

4Ee DENSITY/lXs PR206110

5 72HANC COEFFICIENT OF EXFANSICN IN THIS ANC PREVIOUS SERIES. PR206120

6 /2X f 30H INPUT CORRECTION OF RESTRA INT. 4X,F 1 1 • 4 « 2H MG/2X , PR206 130

7 33H COMPUTED CORRECTION CF RESTRAI NT , IX, F 1 1 • 4 , 3H MG/1X, PR206140

8 72H***************************** ********************************* PR 2061 50

9**********/) PR206160

1600 FORMAT (31H RESTRAINT FCR FOLLOWING SERIES/17H RESTRAINT VECTOR * 1 XPR206 1 70

2 9 1515) PR20€1£0

1610 FORMAT (16H MASS CORRECT I CN , 1 7X ,F 1 3.5 , 3H MG/15H VOLUME AT 20 C« 18XPR206 1 90

2 9 F12.5 9 4H CM3/17H SYSTEMATIC ERROR* 16X t Fl

3

»5» 3H MG/ PR20C2C0

3 27F 3 STANDARD DEVIATION L IM IT , 6X, F13 . 5, 3F MG) PR206210

1620 FORMAT ( // 3X, 3HSUM ,6X , 40HWE IGHTS USED FOR THE LINEAR CO ME INAT I ONS ) PR20C220

1630 FORMAT ( 3X * 3H ( G ) * 6 X* 5H GR AMS ) PR20C220

1640 FORMAT ( 2X s 4H( MG ) , 6

X

,2HMG ) PR20C240

1650 FORMAT (6X.15I5) PR2062S0

1660 FORMAT ( 1

X

9 15* 1 5 ( 4 X* A I ) ) PR20C260

1670 FORMAT (//10X* PR206270

2 52HVALUES AND UNCERTAINTIES FOR COMBINATIONS OF WEIGHTS/1X* PR206280

3 61HCUNCERTAINTY IS 3 STANDARD DEVIATION LIMIT PLUS ALLOWANCE FCR/PP2062S0

4 19H SYSTEMATIC ERROR.)) PR20€200

1680 FORMAT (/39X.6H3 S .D . * 5X* 1 1HUNCERTAINTY/3X * 3HSUM, 8X , 4HCCRR , 4X , PR206130

2 10HSYSTEMATIC,7X,5HEFRCR,8X. SI-LIMIT) PR206320

1690 FORMAT ( 3X , 3H ( G ) , ex , 4H ( MG ) , 7X , 4H (MG ) * 1 OX, 4H ( MG ) « 10X 9 4H ( MG )/) PR20€220

1700 FORMAT ( 2X * 4H( MG ) • 8X* 4H ( MG ) • 7X, 4H( MG ) c 1 0X 9 4F ( MG ) • 10X* 4H ( MG ) / ) PR206240

1710 FORMAT ( 1

X

9 I5s 4F 1 3 .5

)

PR206250

1720 FORMAT (13H MAXIMUM LO AO , F 1 5 .4 ,2H G/1X, PR206260

2 25FSTARTING RESTRAINT NUMBER 2X 9 I 2

)

PR20C370

1730 FORMAT (//18H PRECISION CCNTROL/// PR206380

148
MG/ PR206390

MG/ PR20C4C0

PR20C410

PR206420

PR206430

PR20C440

2 43H OBSERVED STANDARD DEVIATION OF THE PRGCESS.F1 2.5* 4H

3 43H ACCEPTED STANOARD DEVIATION OF THE PRCCESS.F12.5, 4H

4 191- DEGREES OF FREEDOM • IE/8H F RATIO. F12.3)

1740 FORMAT (/21H F RATIO IS LESS THAN.F6.2,

2 40H (CRITICAL VALUE FCR PROBABILITY = .01)./

3 48h THEREFORE THE STANCARD DEVIATION IS IN CONTROL./)

1750 FORMAT (80H ****************************** ************* ** *********PR2CC450

2******************4******) FR20646

1760 FORMAT (24H F RATIC IS GREATER THAN.F6.2. PR206470

2 40H (CRITICAL VALCE FCR FRCeAEILITV = .01)./ PR20C4eO

3 52K THEREFORE THE STANDARD DEVIATION IS NCT IN CONTROL.) PR20C49Q

1770 FORMAT (38H OBSERVED CORRECTION OF CHECK STANDARD* F 19 .5 • 3h MG/ PR2065C0

2 46h STANDARD DEVIATION CF THE OBSERVED CORRECT ION. Fl 1 • 5. 2H MG/ PR206S10

3 8H T VALUE.F8.2///) PR206520

1780 FORMAT (36H ABSOLUTE VALUE CF T IS LESS THAN 3./ PR20C530

2 40t- THEREFORE CHECK STANDARD IS IN CONTROL./) PR206540

1790 FORMAT ( 1X.72HALTI-CUGH THE ABSOLUTE VALUE CF T IS GREATER THAN OR PR20C550

2EQUAL TO 3 • /1X. PR20C£€0

3 72HTHE T VALUE CORRECTED FCR SYSTEMATIC ERROR IS LESS THAN 3. PR2CC570

4 /1X. PR2oeeeo

5 72HTHEREF0RE THE CHECK STANDARD IS IN CONTROL • PR20C550

6 ) PR2oeeco

1800 FORMAT ( IX .72HALTI-CUCH THE ABSOLUTE VALUE CF T IS GREATER THAN OR PR20C610

2EQUAL TO 3 • /1X. PR20C620

3 72HTHE DIFFERENCE IS STILL SIGNIFICANT AFTER ALLOWANCE FCR SYSTEMPR20eC30

4ATIC /1X, PR20CC40

5 72»-ERRCR • THEREFORE THE CHECK STANDARD IS NOT IN CONTROL • PR2066E0

6 ) PR20£6€0

1810 FORMAT ( //

)

PR206670

1820 FORMAT (S2H T VALUE EQUALS ZERO—CHECK STANDARD VECTOR IS ZERO.) PR20eefi0

END PR20€C?C

PGCONT SUBPROGRAM

SUBROLTINE PGCONT PGC0C050

C********* ************** 4*** ****************************************  PGCO 0020

C**  SUBROUTINE OF THE NATIONAL BUREAU OF STANDARDS MASS CALIBRATION **PGC00030

C** PROGRAM VERSION CF SEPT. 10.1971 WRITTEN BY fi.C.RAYECLD **PGC00040

C** AND MRS.R.N.VARNER **PGCCC0E0

C** MODIFIED BY R. N. VARNER SEPT 1979 **PGC00060

C** ********************************************************** 4 **********PGC0007

C** SUBROLTINE TO WRITE CONTINUATION PAGE **PGCC0080

C* ************ ************************************************ ********** pc-CO 0090

C** DIMENSION FOR CCMMCN /PRT1/ VARIABLES **PGC0C1C0

C** ********************************************* ************* * ********* *pGC0 01 10

DIMENSION ei(72).E2(72) .63(72) .64(72) ,B5( 72). B6 (72) ,B7( 72). PGC00120

2 IDATE(3) PGC0C130

C******** **************************************************** * **********PGC0 01 40

C** DIMENSION FOR COMMCN /INPUT/ VARIABLES **PGC00150

C ****************************** ******** *********************************PGC00 160

DIMENSION AIDCST(S. 15) «ANCM( 1 5) • DENSTY ( 15 ) • COEFEX

(

15).ACCVAL( 15 )• PGC0 0170

2 ARSTIM 15) .ACKSTC (15)» IRSTCU(IS)* IPRNTI 1 5 ) * DESM AT ( 15. 5 )

g

PGC0 0180

3 OBSERV(600). ALC0MO5.20) PGCOC190

C******** **************************************************** * **********PGC 0200

C** LAEELEC COMMON **PGCC0210

C*** ******************************************************************* *PGC 0220

COMMCN /PRT1/ Bl*B2.E3*B4.E5.e6.B7.RANERRtSYSERR.TNOM,Ll*L2.L3.L4.PGC00230

2 L5.L6.IDATE. IEREST PGC00240

COMMCN /PRT2/ I PAG Et NOSER • IPGCT PGC002EO

COMMON /INPUT/ TE AR .PBAR.HE AR .STOEBA. SWT. VSWT .CEXSWT . AI DCST . ANOM. PGC00260

149
2 DENS7Y,C0EFEX,ACCVAL. ARSTIN .ACKSTD. DESMAT. CBSERV. VARBALs ALCOM. T1PPGC0 0270

3.T2F.P1P.P2P.H1P.H2P.CF1. CP2. CT 1 .CT2. CHI , CH2. OT IP. 0T2P. OP 1P.0P2P. PGC0 0280

4 OH1P.OH2P. IOP. IEAL.NOBS.NUNKN.IRSTOU, IPRNT • ITPOS • I CKUSO , ICALDS , PGC0 02 90

5 LINVAR.N3.N4 PGC00300

COMMON /UNITIO/ IR.IW. IP, IPL. ITMP PGC00310

WRITE (IW.30) IPAGE PGC00320

C** ******************************************************************** *p G c 23

C** NOSER IS SET EQUAL TC 200 IN F INPRT **PGC00240

c ******************************************* *************************** + p GCC0350

IF (NOSER. LT.20C) GO TC 1C PGC00360

IPAGE=IPAGE+1 PGC00370

WRITE ( IW,50) (E1(K),K=1 ,6 5 ) . IP AGE . ( B2 ( K) • K= 1 » 65 ) » ( ID ATE ( K ) ,K= 1*3 JPGC003 80

2c (B2(K)«K=1.65> PGC00390

GO TC 20 PGC00400

10 IPAGE=IPAGE+1 PGC00410

WRITE ( IW.40) <B1(K ) «K=1

65 ) • IPAGE. (B2 (K) . K= 1 « 65 ) . NCSER. ( E3 (K ) »K=1PGC0 420

2.65). (IDATE(K) ,K = 1 ,3) PGC0043C

20 IPGCT=6 PGC00440

RETURN PGC00450

C **************************************** ********************* **********PGC0 0460

C** FORMAT STATEMENTS **PGC004?0

C* *********************************************************** *********** PGCOO 480

30 FORMAT (1H1 ,30X , 1 9HCCNT INUEO FROM PAGEI3) PGC0C49C

40 FORMAT ( 1H . 65A 1. 4HPAGE. I 3/1X. 65A1 . 6HSER IES. I 2/1 X. 65A1 . 12 . 1 H/« 12. PGCC0500

2 1H/.I2//) PGC00510

50 FORMAT ( IX ,65 Al ,4HF AGE

,

I3/1X ,65A1 . 12 • 1 H/, I 2. 1 H/. I2/1X p 65A 1//) PGCC0520

END PGC00S20

HEADPC SUBPROGRAM

SUBROUTINE HEADPG HDP0C010

C** ********************************************************************* i-opo 0020

C** SUBROUTINE TO PRINT FACE HEADINGS **I-DP00030

C** ADDED BY R. N. VARNER SEPT 157? **HDP0C040

C** ********************************************************** *********** HDPOOC 50

C** DIMENSION FCR CCMMCN /PRT1/ VARIABLES **HDP0006C

C ************************************************************ ***********HDP0C 070

DIMENSION E1(72)*82(72),B3(72),B4(72),B5(72).B6(72).B7(72). HDPOOOeO

2 IDATE(3) I-CP0C090

C******* ****************************************************** ********* *HDP0 01 00

C** DIMENSION FOR COMMCN /INPLT/ VARIABLES **HDP0C110

C** ********************************************************************* (-DPO 01 20

DIMENSION AIDCST(5.15) , ANCM ( 15 ), DENSTY ( 15 ) . COEFEX( 1 5 ) • ACCVAL{ 15). HDP OC 13

2 ARSTIN< 15). ACKST0O5). IRSTCUU5). IPRNT( 15).0ESMAT( 15.50). HDP0 0140

3 CBSERV(600).ALCCM(15,20) HDP00150

C ****** **************************************************************** *HDPO 016

C** LABELED COMMON **HDP00170

C ************************************************************ 4 ********** l-DPOO 180

COMMCN /PRT1/ E1,E2.E3,B4,E5,B6,B7,RANERR. SYSERR. TNOM.L 1 . L2.L3 »L4. HDPOO 190

2 L5.L6.IDATE. IEREST HDP002C0

COMMCN /PRT2/ I PAGE , NOSER , I FGCT HDP0C210

COMMON /INPUT/ TB Afi .PBAR . HE AP »STDEBA, SWT, VS*T. CEXSWT. A IDCST. ANCM. HDP00220

2 DENSTY. COEFEX. ACC VAL» ARST IN. ACKSTD.DESMAT. CBSEPV. VAREAL. ALCOM. T 1 PHDPO 0230

3«T2F.P1P.P2P.H1P,H2P,CP1 .CP2.CT1 ,CT2,CH1 ,CH2 .OT 1P.CT2P , CP IF .0P2P, HDP0 0240

4 CH1P.CH2P. IOP. IBAL.NOBS.NUNKN.IRSTOU. IPRNT.ITPOS. ICKUSC. ICALDS. HDP002S0

5 LINVAfi.N3.N4 HDP00260

CCMMCN /UNITIO/ IR . I W , IP . IPL . ITMP HDP00270

IPAGE=IPAGE+1 HDP0C2E0

WRITE (IW. 1C) (El (K) ,K=1 ,65), I PAGE, (B2 < K ) , K = l , 6 5 ) , NCSER , ( E3(K ) ,K=1 HDPOO 29

2,65 ) ,( IDATE(K ) ,K=1 ,3 ) , ( E7 (K) ,K= 1 ,18),IBAL. ICP HDPOO 300

150
IPGCT=6 HDP00310

RETURN HDP00320

10 FORMAT < 1H1 .65A1.4FPAGE.I3/1X.65A1 .6HSERIES. I2/1X.65A1. I2.1H/I2. HDP00330

2 1H/I2/1X. 11HTEST NUMBER. 2X* 18A1///8H BALANCE* 1 X* I3/9H OPERATOR* 1XHDP00340

3*12) HDP003S0

END HDP00360

FINPRT SUBFRCGRAM

SUBROUTINE FINPRT FPR00010

C** ********** ******** ********** ************* ***************** 4 ********* *ppp,o 20

C** SUBROUTINE OF THE NATIONAL BUREAU OF STANDARDS MASS CALIERATION **FPR00030

C** PROGRAM VERSICN CF SEPT. 10.1971 WRITTEN BY R.C.RAYEOLC **FPR00040

C** AND MRS.R.N.VARNER **FPR0C0£C

C** MODIFIED BY R. N. VARNEP SEPT 1979 **FPR00060

C*** ************************************************************* *******FPR00070

C** SUBROUTINE TO PRINT REPORT **FPRCC06C

C** ***************************************** ********* ************** *****FPR0 0090

C** DIMENSION FOR COMMON /REPRT/ VARIABLES **FPR00100

C** ****************************** ************************************** *fpro 01 10

DIMENSION A ITEM (5. 50) , APPKAS(5Q ) .TRMASS( 50 ) .UNCERT ( 50 ) • VCLPRT < 50 > . FPRO 1 20

2 C0EFRT(50).CCRRB(S0) FPR00130

C ************************************************************ ***********FPRO 01 40

C** DIMENSION FOR SUERCUTINE FINPRT **FPR0C15C

C** **************************************************************** *****FPR00 160

DIMENSION TRMASX 1 5 ) * AAAMAS ( 13 ) * BBBMAS ( 13 ) *NNP( £0 ) .TEMP AR (50) FPR0 0170

DIMENSION IAP(9).TAP(9) FPR00160

C** ******************************************************************** *FPR0 01 90

C** DIMENSION FOR CCMMCN /PRT1/ VARIABLES **FPR00200

C** ********************************************************** ***********FPR0 02 10

DIMENSION Bl(72).B2(72).e3(72).B4(72).B5(72).B6(72).B7(72). FPRC0220

2 IDATEC3) FPR00230

C* ******************************************************************  FPR 00240

C**  DIMENSION FOR COMMON /INPLT/ VARIABLES **FPR002S0

C*** ***************************************** ***************************FPR00 260

DIMENSION AIDCST(E»15) * AN CM ( 15 ) . DENSTY ( 15 ) * COEFEX ( 15)* ACCVAL( 15). FPRCC2 7 2 ARSTINt 15)«ACKSTD( 15)*IRSTCU(15)* IPRNT( 1 5 ) . DESMAT( 15*50). FPR002e0

3 Oe£ERV(600)* ALC0M(15.20) FPR00290

C** ********************************************************************* FPR00300

C** LABELEC COMMON **FPR00310

C **************************************************** *******************FPR00320

COMMON /PRT1/ B1.B2.B3.B4.B5.B6.B7.RANERR. SYSERR* TNCM.L

1

*L2*L3*L4* FPRC C330

2 L5.L6. IDATF* IEREST FPR00340

COMMON /PRT2/ IPAG E .NOSER . IPGCT FPR003E0

COMMON /REPRT/ TRMASS. AFPM AS. CORRB. AI TEM, UNCERT . VCLPRT. C CEFRT. NPRTFPRC0360

COMMON /INPUT/ TE AR ,PB AR ,HE AR .STDEE A . SWT. VS VtT . CEXSWT . A I DCST . ANOM, FPR00370

2 DENSTY, COEFEX. ACC VAL.AR ST IN. ACKSTD .DESMAT . CBSE RV. V ARBAL. ALCOM.T 1PFPR00 3 eO

3.T2FbP1P*P2P*H1F«H2P»CP1.CP2*CT1»CT2.CH1.C»-2.0T1P.0T2P.CP1P.0P2P. FPR0 039

4 0H1P.CH2P.I0F. IE AL. NOES , KUNKN • IRSTCU . IPRNT . ITPOS , I CKUSC . ICALDS . FPR0 04C0

5 LINVAR.N3.N4 FPR00410

COMMON /UNITIC/ I P . I fc . IP. IPL • I TMP FPR00420

COMMON /PCHCUT/ NTCP FPR0C430

C****** ***************************************************************** FPR00440

C** TYPE STATEMENTS **FPR00450

C******** **************************************************** ***********FPR00460

DOUELE PRECISION TPMASS . AFPMAS .C0RR8 .TEMPAR FPR00470

INTEGER TRMASX.EBEMAS. AAAMAS FPR00480

IF (NTCP. NE. NOSER) GO TO 20 FPR00490

IFLAG=999 FPR00500

WRITE (I TMP) IF LAG. ( IAP(I ) . 1 = 2 . 5 ) • TAP ( 1 ).IAP(6) . TAP ( 2 ) . I AP ( 7) . I AP ( FPR005 1

151
28) . (TAP( I) ,1=3,9)

,

ENO FILE ITMP

REWIND ITMF

10 READ (ITMP) (IAPCI

2( I )• I=3»9> »IAP(9)

IF (IAP(1 ) .EQ. IFLA

WRITE (IP. 200) (IA

2TAP(I )« 1=3.9)

t

IAP(

GO TC 10

20 KKK=0

NOSER=200

IF (N3.EG.0) GC TC

C****** ******* **********

C** MASS WAS GIVEN IN

C** CCNVERT TO GRAMS

C******** ***************

DO 20 I=1»NPRT

TRMASS(I)=TRMASS(I

APPVAS( I)=AFPMAS( I CORRB( I)=CCRRe( I)*

UNCERTd )=UNCERT( I VOLPRT( I)=VOLFRT( I 30 CONTINUE

C** ****** ***************

C** MASS WAS GIVEN IN C** ****** ***************

IAP(9)

),I=1,5),TAP( 1 ), IAP(6).TAP(2)

G) GO T F(I),I=

9)

40 *******

ENGLISIC 20

1*5) . TAP( 1 )

.

IAP(6).TAP

********************** UMTS

*****************************

40

50

60

70

80

90

AR(J) )

)

IF (NPRT.EQ.l) GO

DO £0 I=1.NPRT

TEMFAR( I)=TRMASS( I NNP(I)=I

CONTINUE

NNN=NPRT-1

DO 70 1=1. NNN

IP1=I+1

DO 70 J=IF1.NPRT

IF (TEMPAR( I )-TEMF

TEMF=TEMPAR( I

)

TEMFAR( I )=TEMPAR( J TEMPAR( J)=TEMF

TEMF=NNP( I

)

NNP( I )=NNP( J)

NNP ( J)=TEMF

CONTINUE

NN=1

IF (NPRT.NE.l) GC TO 90

NNPO ) = 1 IPAGE=IPAGE+1

WRITE (IW.260) (81

WRITE (IW»270) (B2

WRITE (IW.230) (B3

WRITE (IW«290) (B7

IPGCT=8

IF (NN.EQ.2) GC TC

IF (NN.EQ.3) GO TC

JA=1

JB=12

IF (KKK.EQ.l) GC T CALL TEXTS1

)*(1 .D0/453.59237D0)

)*(1 .D0/453.59237D0)*100

(l.D0/4E3.59237D0)*1000.

)*(1 ./453. 59237)

)*. 06102374 ************************

NETRIC UMTS

************************

TO 80

0.0D0

000

*****

*****

70.70.60

(K)«K=1

(K) 9 K=1

(K) .K=l

(K).K=1

110

160

C 100

65).IPAGE

8 e5) ,( IDATE(K),K= ,65)

.18)

1.3)

FPR00S20

FPR00530

FPR00540

e IAP(7)« IAP(8)» (TAPFPR00 5S0

FPR005C0

FPR00570

(2). IAP(7),IAP(9). (FPROOSeO

FPR0C590

FPR00600

FPR00610

FPR00620

FPR00C30 ************** *****fpr 00640

**FPROO€SO

**FPROO£€0 *******************FPR0 670

FPR00680

FPR00690

FPR007C0

FPR00710

FPR00720

FPR00720

FPR00740 ****************** *FPR00750

**FPR00760 ****************** *FPRO 07 70

FPR0C78C

FPR00790

FPR00800

FPROC810

FPR00820

FPR00830

FPR00840

FPR008S0

FPR00860

FPR0C670

FPR00880

FPR00890

FPR009C0

FPR00910

FPR00920

FPR00920

FPR00940

FPR00950

FPROOSCO

FPR00970

FPR00980

FPR00990

FPR01000

FPR01010

FPR01020

FPR01030

FPR01040

FPR010S0

FPR01060

FPR01070

FPR01080

FPR01090

152
KKK=1 FPR011CO

100 CONTINUE FPR01U0

IPAGE=IPAGE+1 FPR01120

WRITE (IW.260) ( B 1 ( K ) ,K=1 ,65 ) , IPAGE FPR01130

WRITE (IW 9 270) (B2<K) eK=l B 65)» ( ID ATE ( K

)

9 K= 1 » 3

)

FPR01140

WRITE <IW e 280) ( B3 ( K ) o K=l ,6 5

)

FPR01150

WRITE (IW.290) (B7(K) ,K = 1 .18) FPR0116C

CALL TEXTS2 FPR01170

NN=2 FPR01180

GO TO 90 FPR01190

110 CALL CFKLN (4) FPR01200

WRITE (IW 210) FPR01210

NN=3 FPR01220

CALL CHKLN (4) FPR0123Q

IF (N3.EQ.0) GO TC 120 FPR01240

WRITE <IW 9 300) FPR012SO

GO TG 130 FPR01260

120 WRITE (IW.220) FPR01270

130 00 150 J=1»NPRT FPR01260

NNPF=NPRT+1-J FPR012S0

I=NNF(NNPP) FPR01300

CALL CHKLN (1) FPR01310

IF (N3.EG.0) GO TC 140 FPR01320

C*** ************************************************************* *******FPR01330

C** CONVERT DOUBLE PRECISION VALUE TO FLOATING FCINT **FPR01340

C********* **************************************************** +*********FPRO 1350

CALL DFFD (TRM ASS ( I ) ,TRM A SX , 1 5 , 1 1

)

FPR01360

WRITE ( I We 310) (4ITEM(IU«I)tIU=lt5) e TR MASX e UNCERT

(

I) f VOLFRT(I),COEFPR01370

2PRT(I) FPR01380

GO TC 150 FPR01390

140 CALL DPFD ( TRM ASS ( I ) e TRM A SX a 1 5 e 8

)

FPR01400

WRITE (IW e 230) ( AI TEM< IU , I ) . IU= 1 ,5 ) , TR MASX .UNCERT ( I ).V0LPRT(I),COEFPR01410

2PRT(I) FPR01420

150 CONTINUE FPR01430

GO TC 90 FPR01440

160 CALL CHKLN (1) FPR01450

IF (N3.EQ.0) GO TC 170 FPR01460

WRITE (IW e 320) FPR01470

GO TC 180 FPR01480

170 WRITE (IWe240) FPR014S0

180 DO 190 J=l e NPRT FPR0150C

NNPF=NFRT+1-J FPR01510

I=NNFCNNPP) FPR01520

CALL DPFO (APPMASO ) • AAAMAS .13,5) FPR01530

CALL DPFD (CORRE( I )«EBEMAS» 13tS) FPR01540

CALL CFKLN (1) FPR015S0

WRITE (IW.250) (AITEM( IU. I) .IU=1 .5) . AAAMAS t EE EM AS FPR01560

190 CONTINUE FPR01570

WRITE (IW 5 330) FPR01580

RETURN FPRC1SS0

C****** *************************************************** **************FPR01600

C** FORMAT STATEMENTS **FPR01610

C* *********************************************************** ***********FPRO 1620

200 FORMAT ( 3 I 2e I 2» I 3e F 1 1 • 5. I 3» F9 . 5c I 2» I3» 2F5 • 2 t F6 . 2e F5 .2* F 7 . 4* F4 . I e FPR01630

2 F6.4«I2elF3) FPR01640

210 FORMAT (//20X.7HTAELE 1//) FPR01650

220 FORMAT ( /2 4X 9 4HMA S S • 8X e 1 lHUNCERTAINTYe 2X e 9FVCL AT 20»2Xe FPR01660

2 llhCCEF OF EXP/5X .4FITEM ,16Xe3h(G)t 13Xe3H{G)«6X«5H(CM3 )/) FPR01670

153
230 FORMAT

240 FORMAT

250 FORMAT

260 FORMAT

270 FORMAT

280 FORMAT

290 FORMAT

300 FORMAT

2 11FCG

310 FORMAT

320 FORMAT

(2Xe5A3elX e lSAl,lXoF13.eelXf F10.5»lX»F8.e) FPR0168C

(/2X.4HITEM , 18X.22HCCR.A (MG) COR.E (MG)/) FPRO1690

(2X,5A3,1X,13A1 . IX *13A1 ) FPR0 17CC

( lHleCSAl, 4HPAGE e 13 ) FPR01710

(lXe65Al«I2«ll-/I2tlH/I2) FPR01720

<1X,65A1) FPR01730

(lXcllHTEST NUMEER»2X» 18A1//) FPR01740

(/24X 9 4HMASS t SX, 1 1 HUNCERTA I NTY , 2X , 91- VOL AT 20, 2X, FPR01570

F OF EXP/5X,4HITEM ,1SX ,4H(LB) , 12X, 4F(LB) 6X e 5H( IN3 )/) FPR017eOJ

(2X 9 5A3.1Xcl5Al9lXtF13.1l9lX B F10.6elX»F8.6) FPR01770

(12X e 4HITEM c 8X, 5HC CR . A , 7X . 5HC0R . B/23X . 10MMICRQ-LE).3X. FPR 01780

2 10KMICRC-LE) ) FPR017SO

330 FORMAT (1H1) FPRG1800

END FPR01810

TEXTS1 SUBPROGRAM

SUBROUTINE TEXTS1 TS100010

C********* ************************************************************* *TS100020

C** SUBROUTINE OF THE NATICNAL BUREAU OF STANDARDS MASS CALIBRATION **TS10C030

C** PROGRAM VERSION CF SEPT.10»1971 WRITTEN BY R.C.RAYECLD **TS1C0040

C** AND MRS.fi.N.VARNER **TS100050

C** PRINT FIRST OF LAST TWC PAGES CF REPORT **TS1000€0

C** MODIFIED BY R. N. VARNER SEFT 1979 **TS100070

C************************************* **************** ******************TS 100080

COMMCN/UNITIO/IR9lVn e IP»IPL»ITMP 7S1000SO

WRITE (IWolO) TS100100

WRITE <IW«20> TS100110

WRITE (IW 30) TS100120

WRITE (IW e 40) TS100130

WRITE (IW 9 50) TS100140

WRITE (IW96O) TS100150

WRITE (IW.70) TS1001CO

WRITE (IW08O) TS100170

WRITE (IW990) TS100180

WRITE (IW9IOO) TS1001S0

RETURN TS100200

C ****************************************************************** *****TS100210

C** FORMAT STATEMENTS **TS100220

C*** ****************************** **************************************TS100230

10 FORMAT (lX e 36H SUMMARY , TS100240

236H THE ESTIMATED MASS VALUES/ TS1002E0

31X.26H • TS1002C0

436H LISTED IN TAELE II ARE EASED ON AN/ TS100270

51X 9 3eF FOR CONVENIENCE, THE RESULTS . TS1C0260

636H IMPLICIT TREATMENT CF DISPLACEMENT/ TS100290

71X B 3eHCF THIS WORK ARE SUMMARIZED IN • TS100300

836H VCLUMESs E.G. 9 'APPARENT MASS',/ TS100310

91X e 36HTABLES I AND II. THE VALUES * TS100320

*36H "APPARENT MASS VERSUS BRASS',) TS100330

20 FORMAT ( 1 X 9 36HA SS I GNED ARE \*ITH REFERENCE TO THE 9 TS100240

236H 'APPARENT MASS V/EFSUS DENSITY/ TS100350

31X, 3eHSTANDARDS IDENTIFIEC CN THE DATA 9 TS1003CO

436H 8.0'. THE VALUES ARE LISTED AS/ TS10C370

5IX9 3CHSHEETS. THE UNCERTAINTY FIGURE IS * TS100380

635H CORRECTIONS TC EE APFLIED TO THE/ TS100390

71X 9 26HAN EXPRESSION CF THE OVERALL 9 TS100400

836H LISTED NOMINAL VALUE (A POSITIVE/ TS100410

91X,3€HUNCERTAINTY USING THREE STANDARD 9 TS10G420

*36H CORRECTION INDICATES THAT THE MASS) TS100420

154
FORMAT (1X,36HDEVIATICNS AS A LIMIT TC THE * TS100440

236H IS LARGER THAN THE STATED NOMINAL/ TS1004S0

31X.3CHEFFECT OF RANDOM ERRORS OF THE • TS100460

436H VALUE BY THE AKCUNT OF THE/ TS100470

51X B 2CHMEASUREMENT ASSOCIATED WITH THE « TS1004eO

636H CORRECTION). THESE VALUES ARE/ TS1004S0

71X 9 2€HMEASUREMENT PROCESSES. THE MAGNI- « TSI00500

836H COMPUTED FRCM THE VALUES BASED CN/ TS100510

91X.36HTUDE OF SYSTEMATIC ERRORS FROM • TS100E20

*36H AN EXPLICIT TREATMENT OF DISPLACE-) TS100520

FORMAT (1X.36HSCURCES CThEfi THAN THE USE OF , TS100540

236H MENT VOLUMES USING THE FOLLOWING/ TS100550

31X936HACCEPTED VALUES FOR CERTAIN 9 TS10C5C0

436H DEFINING RELATIONS AND ARE/ TS100570

51X.36HSTARTING STANCARDS ARE CONSIDERED « TS100S80

636H UNCERTAIN eY THE AMCLNT SHOWN IN/ TS100590

71X 9 3€HNEGLIGIBLE. IT SHCULD BE NOTED . TS100600

836H TABLE I. / TS10C€10

9lX e 36HTHAT THE MAGNITUDE CF THE UNCER- « TS100C20

*36H ) TS100C30

FORMAT ( 1X«36HTAINTY REFLECTS THE PERFORMANCE OF e TS100640

236H THE ADJUSTMENT CF WEIGHTS TO/ TS100CEO

31X,26HTHE MEASUREMENT PRCCESS USED TO • TSIOOCCO

436H MINIMIZE THE DEVIATION FROM NCMI-/ TS10Ce70

51X»3eHESTABLISH THESE VALUES. THE MASS * TSlOOeEO

636H NAL ON THE EASIS OF 'NORMAL BRASS'/ TS100690

71X 9 3eHUNIT s AS REALIZAELE IN ANOTHER t TS1007CO

836H (IN ACCORDANCE WITF COR. A BELOW)/ TS100710

91X,2eFNEASUREMENT PROCESS. WILL BE t TS100720

*36H IS WIDESPREAD IN THIS COUNTRY AND) TS100720

FORMAT ( 1X.36HUNCEFTAIN EY AN AMOUNT WHICH IS A * TS100740

236H IN MANY PARTS CF THE WORLD./ TS100750

21X. JCHCOMBINATICN OF THE UNCERTAINTY OF . TS1007C0

436H VALUES STATED CN EITHER EASIS ARE/ TS10Q770

51X 9 3eHTHIS PROCESS AND THE PROCESS IN * TS1007EO

636H INTERNALLY CONSISTENT AND/ TS100790

71X.3CHWHICH THESE STANDARCS ARE USED. 9 TS10CEC0

836H DEFINITE. THERE IS9 HOWEVER9 A/ TS10C810

91X93CH . TS100820

*36H SYSTEMATIC DIFFERENCE BETWEEN THE) TS100820

FORMAT (1X936H THE ESTIMATED MASS VALUES • TS100840

236H VALUES ASSIGNED ON EACH EASIS, THE/ TS100850

31X,3eHLISTED IN TAELE I ARE BASEO CN AN 9 TS1OOSC0

436H VALUE CN THE BASIS CF 'DENSITY/ TS100870

51X93CFEXPLICIT TREATMENT CF DISPLACEMENT , TS100880

636H 8.0' BEING 7 M I CRCGR AMS/GR AM LAR-/ TS100890

71X.36HVOLUMES. E.G., 'TRUE MASS', 'MASS • TS100900

836H GER THAN THE VALUE CN THE EASIS OF/ TS100910

91X93CHIN VACUO'9 MASS IN THE NEWTONIAN , TS100920

*36H NCRMAL BRASS. THIS SYSTEMATIC) TS100920

FORMAT ( lX f 36HSENSE. THE DISPLACEMENT VOLUME 9 TS100940

236H DIFFERENCE IS CLEARLY DETECTABLE/ TS100950

31X,3eHASS0CIATED WITH EACH VALUE IS 9 TS1009CO

436H ON MANY DIRECT READING EALANCES. / TS100970

51X936HLISTED AS WELL AS THE VOLUMETRIC , TS100980

636H / TS1CC990

71X92eHCCEFFICIENT CF EXPANSION. THESE 9 TS101000

836H CCRRECTICN A - • APFARENT MASS/ TSIC10I0

155
91X.36HVALUES SHOULD EE USED. TOGETHER • TS101020

*36H VERSUS BRASS* CR 'WEIGHT IN AIR) TS101030

90 FORMAT (1X.36HWITH APPROPRIATE CORRECTION FOR , TS101040

236H AGAINST BRASS 1 IS DETERMINED BY A/ TS101050

31X S 36HTFE BUOYANT EFFECTS OF THE * TS1010€0

436H HYPOTHETICAL WEIGHING OF THE/ TS101070

51Xc 2€HENVIR0NMENTc TO ESTABLISH CONSIST- t TS1010S0

636H WEIGHT AT 20 CELSIUS IN AIR HAVING/ TS101050

71X.3CHENT MASS VALUES FOR C6JECTS WHICH v TS101100

836H A DENSITY CF 1.2 MG/CM3. WITH A/ TS1C11I0

91Xe 2CHCIFFER SIGNIFICANTLY IN DENSITY * TS101120

*36H (NORMAL BRASS) STANDARD HAVING A) TS10H30

100 FORMAT ( 1X»36HAND/CR FCR ME ASUREMENTS WHICH MUST TS101140

236H DENSITY OF 8.4 G/CM3 AT CELSIUS/ TS101150

31X.3CHEE MADE IN DIFFERING ENVIRONMENTS. • TS10UC0

436H WHCSE COEFFICIENT CF VOLUMETRIC/ TS101170

51X e 3CHTHE RELATION ILB AVOP=. 45359237KG . TS101180

636H EXPANSION IS 0.0OOOS4 PER DEGREE/ TS1011S0

71X.26HIS USED AS REQUIRED. • TS101200

836H CELSIUSt AND WHOSE VALUE IS BASED/ TSI01210

91X 9 3CH t TS101220

*36H ) TSI01230

END TS101240

TEXTS2 SUBPRCGRAM

SUBROUTINE TEXTS2 TS200010

C* ********************* *$* ***** * *************************************** *TS 20 00 20

C** SUBROUTINE CF THE NATICNAL EUREAU OF STANDARDS MASS CALIBRATION **TS20003C

C** PROGRAM VERSICN OF SEPT. 10*1971 WRITTEN BY R.C.RAYBCLD **TS20C040

C** AND MRS.R.N.VARNER **TS2000£0

C** PRINT LAST PAGE OF REPORT **TS2000€0

C** MODIFIED BY R. N. VARNER SEPT 1979 **TS200070

C* ********************************************************************* *TS200 080

CCMVCN/UMTIO/IR. IWt IP. IPL.ITMP TS2C0 0S0

WRITE (IW.10) TS200100

WRITE (IW.20) TS200110

RETURN TS200120

C ******** ****************************************************** ******** *TS20 1 30

C** FORMAT STATEMENTS **TS200140

C ************************************************************ ***********TS200 ISO

10 FORMAT ( TS2CC1CC

236H / TS200170

31Xo2£HCN ITS TRUE MASS CR WEIGHT IN • TS200160

436H WEIGHT. IN AIR HAVING A DENSITY OF / TS2001S0

51X,3€HVACU0. * TS200200

63CH 1.2 MG/CM3. WITH A STANDARD HAVING / TS200210

71X 9 3CH • TS200220

836H A DENSITY OF 8.0 G/CM3 AT 20 ) TS200230

20 FORMAT (1X.36H CORRECTION B - 'APPARENT MASS TS200240

236H CELSIUS* AND WHCSE VALUE IS BASED / TS20C250

31X e 26HVERSUS DENSITY 8.0« IS DETERMINED « TS2002C0

436H CN ITS TRUE MASS CR WEIGHT IN / TS200270

51X.36HEY A HYPCTHETICAL WEIGHING OF THE , TS200280

636H VACUO. ) TS200290

END TS200300

DPFD SUBPROGRAM

SUBROUTINE DPFD (A.B.N.O) DPF00010

C* ******* ******************************************** *******************DPF00020

C** SUBROUTINE OF THE NATICNAL EUREAU OF STANDARDS MASS CALIBRATION **DPF0C030

156
C** PROGRAM VERSION CF SEPT. 10.1971 WRITTEN BY F.C.RAYECLD **DPF00040

C** AND MRS.R.N.VARNEF **DPF00050

C** MODIFIED BY R. N. VARNER SEFT 1979 **DPF0C060

C***********************************************************************CPF0C070

C** WRITTEN BY CLAYTCN ALBRIGHT OF CSD **DPF00080

C** A ROUTINE TO CONVERT A DOUBLE PRECISION NUMEER TO A BLOCK CF **DPF0C0S0

C** CHARACTERS WHICH WHEN CUTFUT WITH SUITABLE FORMAT (EG. 30A1) **DPF00100

C** WILL YIELD THE NUMEER IN F-TYPE FORMAT {NG EXPONENT). **DPF00110

C** THE OUTPUT NUMEER WILL BE RIGHT ADJUSTED IN THE FIELD **DPF00120

C DPF00130

C**  A = THE DOUBLE PFECISICN NUMEER TO EE CONVERTED **DPF00140

C** B = A BLOCK OF N WORDS TO CONTAIN THE RESULTS. THE CHARACTERS **DPF00150

C** ARE STORED ONE TO A WORD IN E. LEFT ADJUSTEO IN THE WORD **DPF00160

C** N = FIELD WIDTH DESIRED **DPF00170

C** D = NUMBER OF PLACES DESIRED TO RIGHT OF DECIMAL POINT. **DPF00180

C DPFCC1S0

C**  IF NUMEER OVERFLOWS FIELD WIDTH, FIELD IS FILLED WITH *•£ **DPFGG2C0

C** IF UNDERFLOW CCCUFS RESULT WILL BE ZERO **DPF00210

C DPF00220

C**  *RESTRICTICN- AT LEAST ONE CHARACTER POSITION MUST EE ALLCWED **DPFC0230

C** FCR SIGN REGARDLESS OF + OR -. IF USER OBJECTS **CPF0C240

C** TO THIS RESTRICTION, HE NEED CNLY USE THE **DPFCC2£0

C** RESULTING OUTPUT CHARACTERS BEGINNING AT E(2) **OPF002CO

C** INSTEAD CF E(l). **DPF00270

C OPF00280

C**  TYPE STATEMENTS **DPFC03C0

C***********************************************************************DPF003 10

INTEGER BcD DPF00320

DOUELE PRECISION A 9 X DPF00320

C******** ***************************************************** **********DPF 0340

C** DIMENSION STATEMENT **DPF0C2£0

C *********************************************************************** DPF 36

DIMENSICN E(l) DPFC0270

COMMON /DPFDVL/ KFD(18) DPF003eO

IF (D+l.GE.N) GO TC 60 DPF00390

C** ******************************************************************** *DPF004 CO

C** ROUND THE NUMBER AT DESIRED DECIMAL PLACE **DPF0041C

C ******** **************************************************** *********** dpfO 4 20

X = DAES( A )+.5*10.** (-D) DPF0C430

MM=N-D-2 DPF00440

X=X*10.**(-MM) DPF0C4E0

IF (X.GE.l.DO) GO TO 60 DPF00460

IF (X.GE. 0.100. AND.A.LT.O.DO) CO TO 60 DPF00470

MM=MM+1 CPF0C480

00 10 1=1, MM DPF004S0

B(I)=KFD(11) CPF00500

K=IDINT<X*10.D0 ) OPF0051D

X=X*10.-FLOAT(K) DPF00520

IF (K.NE.O) GO TO 20 OPF00E3O

10 CCNTINUE DPF00S40

I=MM OPFOOEEO

C ******************************* ***************************** ***********cpf 056

C** PREFIX MINUS SIGN IF A NEGATIVE **DPF0C£70

C** ********************************************************** *********** DPF 058

20 IF (A.LT.O.DO) E(I)=KFD(12) DPFOOESO

IF (I.EQ.MM) GO TO 40 DPF00600

C* ********************************************************************** QPF 06 10

157
C** CONVERT INTEGER PART **0PF00620

C ** 4 ******************* * *****   ** **   ** ***** * *** * * ** ***** * * **** * ****DPF 006 30

1=141 DPFC0640

00 20 J=I e MM DPF00650

B( J)=KF0(K+1 ) DPFooeeo

K=ILINT(X*10.D0> DPF00670

30 X=X*10.-FLCAT(K) CPF00C80

C* *********************************************************** ********** *dpfo 0690

C** STORE DECIMAL POINT **DPF00700

C ******* ******************** ************* *************************** ****cpp007 10

40 MM=N*+2 DPFC0720

B<W*-1 )=KFD< 13) DPF00730

C ************************************************************ ***********CPF00740

C** CONVERT FRACTIONAL PART **DPF0C750

C* ******************************************* ******** *******************DPF 00760

DO £0 I=l f C DPF00770

B(MM)=KFD(K+1 ) DPF007aO

MM = |YM+1 DPF0C790

K=ICINT(X*10.D0) DPF00800

50 X=X*10.-FLCAT<K) DPFOOeiO

RETURN DPF00820

C ************************************************************ ****** *****cpp 0820

C** STORE *»S IF OVERFLOW **DPF0C840

C ************* ********** ***************************** *******************dpf00850

60 DO 70 1=1.

N

CPF00860

70 3(I)=KFD(14) DPF00870

RETURN DPF00880

END DPF00890

CHKLN SUBPROGRAM

SUBROUTINE CHKLN <N> CHK00010

C***** *********************************** ******************** ***********CHK0 0020

C** SUBROUTINE TO CHECK EEGINNING OF A NEW PAGE **CHK00030

C** ADDED BY R. N. VARNER SEPT 1979 **CHK0G040

C** ********************************************* ************************CHK0 OS

COMMON /PRT2/ IPAGE9N0SER

IPGCT CHKOOOCO

COMMON /UMTIC/ IR . I* « IP * 1FL • ITMP CHK00070

IF (IPGCT + N.GT.IPL ) CALL PGCCNT CHKOC060

IPGCT=IPGCT+N CHK0C090

RETURN CHKOOICO

END CHK0011C

158
NBS-114A (REV. 9-78)

U.S. DEPT. OF COMM. BIBLIOGRAPHIC DATA

SHEET

1. PUBLICATION OR REPORT NO. NBS TN 11272. Gov't. Accession No. 3. Recipient's Accession No.

4. TITLE AND SUBTITLE

National Bureau of Standards Mass Calibration Computer

Software

5. Publication Date July 1980

5. Performing Organization Code

7. AUTHOR(S)

R. N. Varner and R. C. Raybold

8. Performing Organ. Report No.

9. PERFORMING ORGANIZATION NAME AND ADDRESS

NATIONAL BUREAU OF STANDARDS

DEPARTMENT OF COMMERCE

WASHINGTON, DC 20234

10. Project/Task/Work Unit No.

11. Contract/Grant No.

12. SPONSORING ORGANIZATION NAME AND COMPLETE ADDRESS (Street, City, state. ZIP)

(same as No. 9 above)

13. Type of Report & Period Covered

Final

14. Sponsoring Agency Code

15. SUPPLEMENTARY NOTES

|

| Document describes a computer program; SF-185, FIPS Software Summary, is attached.

16. ABSTRACT (A 200-word or less factual summary of most significant information. If document includes a significant bibliography or

literature survey, mention it here.) This report describes the FORTRAN comput

sive report covering the sequence of operatio

submitted to the National Bureau of Standards

values is accomplished by the method of least

differences between test items and reference

density and nominal size. The calculations a options are given. To assist the user, a det

input list of error messages, a listing of a put resulting from the use of the sample test

mentation of the computer program, a flow cha

cross-reference of labeled COMMON, a list of

EQUIVALENCED variables and other pertinent in

er program used

ns used to assig

for cal i brat ion

squares analysi

items having the

re defined and t ailed descriptio

sample test case

case are given.

rt, a descriptio

DOUBLE PRECISION

formation is giv

to generat

n mass val

. The ass

s o^ the same or n he various

n of the i and a lis

To assis

n of each

variables

en.

e a comprehenues to weights

ignment of these

bservation of

early same weighing method

nput data, an ting of the outt in the implesubprogram, a

, a 1 ist of

17. KEY WORDS (six to twelve entries; alphabetical order; capitalize only the fir3t letter of the first key word unless a proper name;

separated by semicolons) Calibration report; correction to mass measurements; error checking; FORTRAN program;

least squares solution; mass calibration; mass measurement.

18. AVAILABILITY [XD Unlimited

I I For Official Distribution. Do Not Release to NTIS

KM Order From Sup. of Doc, U.S. Government Printing Office, Washington, DC

20402. Q Order From National Technical Information Service (NTIS), Springfield, VA. 22161

19. SECURITY CLASS

(THIS REPORT)

UNCLASSIFIED

20. SECURITY CLASS

(THIS PAGE)

UNCLASSIFIED

21. NO. OF

PRINTED PAGES

164

22. Price

$5.00
Waste Heat

A typical plant can save about 20 percent of its fuel—just by installing waste heat recovery equipment. But with so much equipment on the market,

how do you decide what's right for you?

Find the answers to your problems in the Waste

Heat Management Guidebook, a new handbook

from the Commerce Department's National Bureau

of Standards and the Federal Energy Administration.

The Waste Heat Management Guidebook is designed to help you, the cost-conscious engineer or manager, learn how to capture and recycle heat

that is normally lost to the environment during in- dustrial and commercial processes.

The heart of the guidebook is 14 case studies of

companies that have recently installed waste heat

recovery systems and profited. One of these applications may be right for you, but even if it doesn't

fit exactly, you'll find helpful approaches to solving

many waste heat recovery problems.

In addition to case studies, the guidebook contains

information on:

• sources and uses of waste heat • determining waste heat requirements • economics of waste heat recovery • commercial options in waste heat recovery

equipment • instrumentation • engineering data for waste heat recovery • assistance for designing and installing waste

heat systems

To order your copy of the Waste Heat Management

Guidebook, send $2.75 per copy (check or money

order) to Superintendent of Documents, U.S. Government Printing Office, Washington, D.C. 20402.

A discount of 25 percent is given on orders of 100

copies or more mailed to one address.

The Waste Heat Management Guidebook is part of

the EPIC industrial energy management program

aimed at helping industry and commerce adjust to the increased cost and shortage of energy.

U.S. DEPARTMENT OF COMMERCE/National Bureau of Standards

FEDERAL ENERGY ADMINISTRATION/Energy Conservation and Environment
There's

anew

look

to...

. . . the monthly

magazine of the National Bureau of Standards.

Still featured are special articles of general interest on

current topics such as consumer product safety and building

technology. In addition, new sections are designed to . . . PROVIDE

SCIENTISTS with illustrated discussions

of recent technical developments and

work in progress . . . INFORM INDUSTRIAL

MANAGERS of technology transfer activities in

Federal and private labs. . . DESCRIBE TO MANUFACTURERS advances in the field of voluntary and

mandatory standards. The new DIMENSIONS/NBS also

carries complete listings of upcoming conferences to be

held at NBS and reports on all the latest NBS publications,

with information on how to order. Finally, each issue carries a page of News Briefs, aimed at keeping scientist and consumalike up to date on major developments at the Nation's physical sciences and measurement laboratory.

(please detach here) SCRIPTION ORDER FORM

my Subscription To DIMENSIONS/NBS at $11.00. Add $2.75 for foreign mailing. No additional nge is required for mailing within the United States or its possessions. Domestic remittances

ild be made either by postal money order, express money order, or check. Foreign remittances

• Id be made either by international money order, draft on an American bank, or by UNESCO

' ons.

iJ Subscription to:

I I I I I I I

NAME-FIRST, LAST

I I I I I I I I I I I I I I .MINI

COMPANY NAME OR ADDITIONAL ADDRESS LINE

I I I I I I I I I I I I I I I I I I I I I

Remittance Enclosed (Make checks payable

to Superintendent of Documents)

D Charge to my Deposit Account No.

STREET ADDRESS

I I I I I I I I I I I I I I I I I I I I I I I I I I I I

I I I I I

CITY

I I I I |

I I I I I

STATE

I

ZIP CODE

I I I I KSE PRINT

MAIL ORDER FORM TO:

Superintendent of Documents

Government Printing Office

Washington, D.C. 20402

ftU.S. GOVERNMENT PRINTING OFFICE: t 98 0-3 1 I " 046/ t 44

NBS TECHNICAL PUBLICATIONS

PERIODICALS

JOURNAL OF RESEARCH—The Journal of Research of the National Bureau of Standards reports NBS research and develop- ment in those disciplines of the physical and engineering sciences in which the Bureau is active. These include physics, chemistry,

engineering, mathematics, and computer sciences. Papers cover a broad range of subjects, with major emphasis on measurement

methodology and the basic technology underlying standardization. Also included from time to time are survey articles on topics

closely related to the Bureau's technical and scientific programs. As a special service to subscribers each issue contains complete

citations to all recent Bureau publications in both NBS and non- NBS media. Issued six times a year. Annual subscription: domestic

$17; foreign $21.25. Single copy, $3 domestic; $3.75 foreign. NOTE: The Journal was formerly published in two sections: Section A "Physics and Chemistry" and Section B "Mathematical

Sciences." DIMENSIONS/NBS—This monthly magazine is published to in- form scientists, engineers, business and industry leaders, teachers,

students, and consumers of the latest advances in science and

technology, with primary emphasis on work at NBS. The magazine

highlights and reviews such issues as energy research, fire protection, building technology, metric conversion, pollution abatement,

health and safety, and consumer product performance. In addition, it reports the results of Bureau programs in measurement

standards and techniques, properties of matter and materials, engineering standards and services, instrumentation, and

automatic data processing. Annual subscription: domestic $11;

foreign $13.75. NONPERIODICALS

Monographs—Major contributions to the technical literature on

various subjects related to the Bureau's scientific and technical activities. Handbooks—Recommended codes of engineering and industrial practice (including safety codes) developed in cooperation with in- terested industries, professional organizations, and regulatory

bodies. Special Publications—Include proceedings of conferences sponsored by NBS, NBS annual reports, and other special publications

appropriate to this grouping such as wall charts, pocket cards, and

bibliographies. Applied Mathematics Series—Mathematical tables, manuals, and

studies of special interest to physicists, engineers, chemists,

biologists, mathematicians, computer programmers, and others engaged in scientific and technical work.

National Standard Reference Data Series—Provides quantitative data on the physical and chemical properties of materials, compiled from the world's literature and critically evaluated. Developed under a worldwide program coordinated by NBS under

the authority of the National Standard Data Act (Public Law

90-396).

NOTE: The principal publication outlet for the foregoing data is the Journal of Physical and Chemical Reference Data (JPCRD)

published quarterly for NBS by the American Chemical Society

(ACS) and the American Institute of Physics (AIP). Subscriptions,

reprints, and supplements available from ACS, 1 155 Sixteenth St., NW, Washington, DC 20056.

Building Science Series—Disseminates technical information developed at the Bureau on building materials, components,

systems, and whole structures. The series presents research results,

test methods, and performance criteria related to the structural and

environmental functions and the durability and safety characteristics of building elements and systems.

Technical Notes—Studies or reports which are complete in themselves but restrictive in their treatment of a subject. Analogous to monographs but not so comprehensive in scope or definitive in treatment of the subject area. Often serve as a vehicle for final reports of work performed at NBS under the sponsorship of other government agencies.

Voluntary Product Standards—Developed under procedures

published by the Department of Commerce in Part 10, Title 15, of

the Code of Federal Regulations. The standards establish nationally recognized requirements for products, and provide all concerned interests with a basis for common understanding of the

characteristics of the products. NBS administers this program as a supplement to the activities of the private sector standardizing

organizations. Consumer Information Series—Practical information, based on NBS research and experience, covering areas of interest to the con- sumer. Easily understandable language and illustrations provide

useful background knowledge for shopping in today's tech- nological marketplace. Order the above NBS publications from: Superintendent of Documents, Government Printing Office, Washington, DC 20402. Order the following NBS publications—FIPS and NBSIR 's—from

the National Technical Information Services, Springfield, VA 22161,

Federal Information Processing Standards Publications (FIPS

PUB)—Publications in this series collectively constitute the Federal Information Processing Standards Register. The Register

serves as the official source of information in the Federal Govern- ment regarding standards issued by NBS pursuant to the Federal Property and Administrative Services Act of 1949 as amended,

Public Law 89-306 (79 Stat. 1127), and as implemented by Executive Order 1 1717 (38 FR 12315, dated May 11, 1973) and Part 6 of Title 15 CFR (Code of Federal Regulations).

NBS Interagency Reports (NBSIR)—A special series of interim or

final reports on work performed by NBS for outside sponsors

(both government and non-government). In general, initial dis- tribution is handled by the sponsor; public distribution is by the National Technical Information Services, Springfield, VA 22161,

in paper copy or microfiche form.

BIBLIOGRAPHIC SUBSCRIPTION SERVICES

The following current-awareness and literature-survey bibliographies

are issued periodically by the Bureau:

Cryogenic Data Center Current Awareness Service. A literature sur- vey issued biweekly. Annual subscription: domestic $25; foreign

$30. Liquefied Natural Gas. A literature survey issued quarterly. Annual

subscription: $20.

Superconducting Devices and Materials. A literature survey issued

quarterly. Annual subscription: $30. Please send subscription or- ders and remittances for the preceding bibliographic services to the National Bureau of Standards, Cryogenic Data Center (736) Boulder, CO 80303.
U.S. DEPARTMENT OF COMMERCE

National Bureau of Standards

Washington, D.C. 20234

OFFICIAL BUSINESS

Penalty for Private Use. $300

POSTAGE AND FEES PAID

U.S. DEPARTMENT OF COMMERCE

COM-215

SPECIAL FOURTH-CLASS RATE

BOOK