/zV co.«Q NBS TECHNICAL NOTE 872

***eAu of
NATIONAL BUREAU OF STANDARDS

The National Bureau of Standards' was established by an act of Congress 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 consists of the Institute for Basic Standards, the Institute for Materials Research, the Institute for Applied Technology,

the Institute for Computer Sciences and Technology, and the Office for Information Programs.

THE INSTITUTE FOR BASIC STANDARDS provides the central basis within the United

States of a complete and consistent system of physical measurement; coordinates that system

with measurement systems of other nations; and furnishes essential services leading to accurate and uniform physical measurements throughout the Nation's scientific community, industry, and commerce. The Institute consists of a Center for Radiation Research, an Office of Measurement Services and the following divisions: Applied Mathematics — Electricity — Mechanics — Heat — Optical Physics — Nuclear

Sciences ~ — Applied Radiation - — Quantum Electronics s — Electromagnetics 3 — Time

and Frequency " — Laboratory Astrophysics " — Cryogenics".

THE INSTITUTE FOR MATERIALS RESEARCH conducts materials research leading to improved methods of measurement, standards, and data on the properties of well-characterized

materials needed by industry, commerce, educational institutions, and Government; provides

advisory and research services to other Government agencies; and develops, produces, and

distributes standard reference materials. The Institute consists of the Office of Standard Reference Materials and the following divisions: Analytical Chemistry — Polymers — Metallurgy — Inorganic Materials — Reactor

Radiation — Physical Chemistry.

THE INSTITUTE FOR APPLIED TECHNOLOGY provides technical services to promote

the use of available technology and to facilitate technological innovation in industry and Government; cooperates with public and private organizations leading to the development of

technological standards (including mandatory safety standards), codes and methods of test; and provides technical advice and services to Government agencies upon request. The Institute consists of a Center for Building Technology and the following divisions and offices: Engineering and Product Standards — Weights and Measures — Invention and Innovation — Product Evaluation Technology — Electronic Technology — Technical Analysis — Measurement Engineering — Structures, Materials, and Life Safety * — Building

Environment * — Technical Evaluation and Application 4 — Fire Technology.

THE INSTITUTE FOR COMPUTER SCIENCES AND TECHNOLOGY conducts research and provides technical services designed to aid Government agencies in improving cost effec- tiveness in the conduct of their programs through the selection, acquisition, and effective

utilization of automatic data processing equipment; and serves as the principal focus within

the executive branch for the development of Federal standards for automatic data processing

equipment, techniques, and computer languages. The Institute consists of the following

divisions: Computer Services — Systems and Software — Computer Systems Engineering — Information Technology.

THE OFFICE FOR INFORMATION PROGRAMS promotes optimum dissemination and

accessibility of scientific information generated within NBS and other agencies of the Federal Government; promotes the development of the National Standard Reference Data System and

a system of information analysis centers dealing with the broader aspects of the National Measurement System; provides appropriate services to ensure that the NBS staff has optimum

accessibility to the scientific information of the world. The Office consists of the following

organizational units: Office of Standard Reference Data — Office of Information Activities — Office of Technical

Publications — Library — Office of International Relations.

1 Headquarters and Laboratories at Gaithersburg. Maryland, unless otherwise noted; mailing address Washington, D.C. 20234.

2 Part of the Center for Radiation Research.

;l Located at Boulder, Colorado 80302.

* Part of the Center for Building Technology.
PF STANDARDS

LIBRARY

8 JUL 1975

kerb aa

115-753

C 2-

Computer Program Package

for Metric Conversion:

Reference Manual

-lecJuvAcaJL AiJ^to " ' Q—

Ruth K. Anderson and

Joseph O. Harrison, Jr.

Institute for Computer Sciences and Technology

National Bureau of Standards

Washington, D.C. 20234

J*1 °

F cot

U.S. DEPARTMENT OF COMMERCE, Rogers C. B. Morton, Secretary

NATIONAL BUREAU OF STANDARDS, Richard W. Roberts, Director

Issued July 1975
Library of Congress Catalog Card Number: 75-600045

National Bureau of Standards Technical Note 872

Nat. Bur. Stand. (U.S.), Tech. Note 872, 145 pages (July 1975) CODEN: NBTNAE

U.S. GOVERNMENT PRINTING OFFICE

WASHINGTON: 1975

For .sale by the Superintendent of Documents, U.S. Government Printing Office, Washington, D.C. 20402 (Order by SI) Catalog No. C13.46:872). Price $2.10 (Add 25 percent additional for other than U.S. mailing)
FOREWORD

This computer program package is designed to assist manufacturing companies in

converting to the metric system. The starting point of the manufacturing process

is the engineering drawing, and it is at this point that metric conversion should

begin. Accordingly, the package is devoted to the specialized area of converting

between metric and U.S. customary units on engineering drawings.

Were it not for the rounding of converted quantities, the mathematics of conversion would be trivial. Even with rounding, the mathematics is simple. However,

rounding is extremely important, since it affects the tolerances of parts produced; and the controlling of tolerances is at the heart of the manufacturing

process.

The computer programs that comprise this package were developed by Caterpillar

Tractor Co* and General Motors Corporation and turned over to the National

Bureau of Standards for distribution for public benefit to anyone who wants

them. It is hoped that by making them available to the public the processes

of metric conversion in all U.S. manufacturing companies will be facilitated.

Ruth M. Davis, Ph.D.

Director, Institute for Computer

Sciences and Technology

111
ACKNOWLEDGEMENTS

t

Particular thanks are due to the companies that donated their computer programs

to the National Bureau of Standards for distribution as part of the Computer Program Package for Metric Conversion—Caterpillar Tractor Co. and General Motors

Corporation. Both companies, in addition to supplying their programs, assisted

NBS in the testing, changed their programs as a result of the tests, and contributed material for the documentation of the package without reimbursement of

any kind. Without the contributions of these companies, the package would not

exist.

At Caterpillar Tractor Co. thanks are due especially to Joseph G. Langenstein,

Senior Materiel and Standards Engineer. Mr. Langenstein initially conceived of

the idea of distributing metric conversion programs through NBS. He is responsible for having the Caterpillar Tractor Co. Program released for this purpose, and

he has worked with NBS personnel on all phases of the testing and documentation.

Thanks are also due to B. Jack Prather and Karl M. Henry of the Caterpillar Tractor Co. Technical Center for their work in programming this and several prior

versions of the Caterpillar program and for making further changes as a result of

the NBS tests.

At General Motors Corporation thanks are due especially to Roy Trowbridge, Chief,

Engineering Standards Section, General Motors Technical Center who was instrumental in getting the General Motors programs released and to Dr. Robert Davies

of the General Motors Technical Center who programmed the General Motors routines,

IV
At NBS, thanks are due to Dr. Hans J. Oser, Chief, Mathematical Analysis Section,

Applied Mathematics Division, under whose direction the testing and validation

were done, as well as to other members of the Applied Mathematics Division who

contributed to the testing and supplied material for the documentation: William

G. Hall, Frederick C. Johnson, Russell A. Kirsch, Daniel W. Lozier, and Donald

J. Orser.

Other NBS persons to whom thanks are due are Margaret R. Fox, Acting Chief, Computer Information Section, Information Technology Division, Institute for Computer

Sciences and Technology, for her assistance with the documentation; J. Paul Cali,

Chief, and Thomas W. Mears of the Office of Standard Reference Materials, Institute

for Materials Research, for their work in distributing the program package; and Louis

E. Barbrow, Coordinator of Metric Activities, Engineering and Product Standards

Division, Institute for Applied Technology, for serving as an advisor and reviewing the document. Thanks are also due to M. Zane Thornton, Deputy Director,

Institute for Computer Sciences and Technology; Gordon B. Fields, NBS Staff

Attorney; Dr. H. Thomas Yolken, Deputy Chief, Office of Standard Reference

Materials; and Jeffrey V. Odom, Chief, Metric Information Office for reviewing

all or part of the document.
DISCLAIMER

The National Bureau of Standards (NBS) has tested each of the programs in this

package on several computers and found them to be functioning as described in the

documentation that follows. Machine dependence was largely eliminated by restric

ing the programs to American National Standard FORTRAN. No amount of testing can

anticipate, however, flaws that may not show up, except under very special circum

stances, or may be caused by pecul^ai. input conditions.* Therefore, neither NBS

nor the companies whose programs are included in the package can assume responsibility for loss or damage due to (1) malfunctioning of the programs, (2) erroneou

answers, or (3) errors in documentation.

•^Computer systems consist of hardware and sdftware and seldom are two systems

completely alike. NBS tested each of these three programs on several systems.

For details see Section I - INTRODUCTION.

VI
PACKAGE MAINTENANCE

It will be appreciated if reports on malfunctions and suggestions for

improvement are sent to NBS in order that purchasers of the package

may be notified of necessary or desirable changes in either the tape

or the manual. This applies both to malfunctions resulting from the

programs alone and to those due to possible mismatches between the

program and the computers or operating systems upon which they are run.

Other programs for metric conversion may be added to the package in the

future. Eligible programs would be ones that (a) differ significantly

from those already on the tape, and (b) have been used by their parent

companies enough to insure that they are practical for their intended use

and free of obvious bugs. If additional programs are added, an additional

charge to cover NBS costs may be necessary.

VI
TABLE OF CONTENTS

I INTRODUCTION . . . . 1

II CONVERSION PACKAGE COMPONENTS 3

A. Tape 3

B. Documentation 4

III METCO PROGRAM 8

A. Abstract 8

B. Background Information 8

C. Problem Definition 11

1. Conversion Capability 11

2. Input Identifier 13

3. Rounding Conventions 15

a. Millimetres 15

b. Other Units 15

D. Application Information 16

1. Input 16

a. Header Card 18

b. Special Identifier Card 20

c. Data Card 23

2. Output 25

a. Metric to U.S. Customary Conversion Table . . 26

b. Identification, Error Messages and Table 27

of Conversion Factors

3. Sample Computations 27

vm
E. Programming Information -.„

1. General 23

2. Accuracy and Size of Numbers 38

a. Millimetres to Inches ^

b. Other Built-in Conversions a^

c. Numerical Values 42

IV GMMETR AND GMINCH PROGRAMS 45

A. Abstract 45

B. Background Information ,,-

C. Problem Definition ,r

D. Application Information ,-,

1. Annotated Illustration of Program Application ,-,

2. Program Limitations cq

3. Rounding Conventions co

4. Error and Other Special Conditions c-o

E. Programming Information 54

APPENDICES

APPENDIX I METCO - Example Drawing 58

APPENDIX II Representation of FORTRAN Characters in ASCII,

EBCDIC and BCD 59

APPENDIX III Listing 61

IX
LIST OF FIGURES

1. FIPS Software Summary - Caterpillar Tractor Co. Metric

Conversion Program . 5

2. FIPS Software Summary - General Motors Corporation

Millimetre to Inch Conversion Program 6

3. FIPS Software Summary - General Motors Corporation Inch

to Millimetre Conversion Program 7

4. Built-in METCO Conversion Capability 12

5. METCO Summary Table 14

6. Input Cards 17

7. Card Formats 19

8. Maximum Permissible Dimensions and Maximum Errors 43

9. GMMETR - Sample Problem 48

10. GMINCH - Sample Problem 51

11. Illustration of Diagnostics - GMETR 56
Computer Program Package for Metric Conversion:

Reference Manual

Ruth K. Anderson and Joseph O. Harris, Jr.

The programs in this package are designed to convert

dimensions and other quantities appearing on engineering

drawings from metric to U.S. customary units and vice versa. They were developed by Caterpillar Tractor Co. and General

Motors Corporation. In addition to the programs themselves,

the package contains documentation explaining how to get the

programs running on different computers and how to use them,

and test problems to permit users to verify that the programs

run correctly on their own computers. The Caterpillar program

converts 31 different metric units to their U.S. customary equivalents. In contrast, the General Motors programs convert in both

directions but work with millimetres and inches only. The General

Motors programs also use rounding conventions differing womewhat

from those employed in the Caterpillar program. Both the Caterpillar and the General Motors programs are written in American

National Standard FORTRAN and are suitable for use on a wide

range of computers with little or no modification. The Caterpillar

program is operated in batch mode while the General Motors programs are interactive.

Keywords: Caterpillar Tractor Co. ; computer program; documentation; engineering drawing; General Motors Corporation;

metric conversion; rounding; test problem; tolerance.

I INTRODUCTION

In order to assist engineers and manufacturers in the transition from the

traditional U.S. customary system of measurement to the metric system of measurement, NBS is making available a computer program package to perform the con- version from one system to the other with carefully controlled accuracy. Control

of accuracy is necessary in order to maintain required tolerances at minimum cost,
The package consists of computer programs developed by Caterpillar Tractor Co. and

General Motors Corporation, documentation explaining how to get the programs running on different computers and how to use them, and test problems to permit users

to verify that the programs run correctly on their own computers.

The programs' main advantage is in providing the design engineer with control over

the accuracy of the conversion process and the tolerances to be maintained. In

this way, errors and costs that would be unavoidable in a shop where everyone

makes his own conversions are eliminated. Control at the design level also

increases productivity by speeding up the manufacturing process and providing

an automatic self-checking system that is essentially error-free.

The Caterpillar part of this package consists of a single program that converts

31 different metric units to their U.S. customary equivalents. There are two

General Motors programs, however. One of them converts from millimetres to

inches while the other converts in the reverse direction. Dimensions other than

millimetres and inches are not converted. The General Motors programs use

rounding conventions somewhat different from those employed in the Caterpillar

program. Both the Caterpillar and the General Motors programs are written in

American National Standard FORTRAN and are suitable for use on a wide range

of computers with little or no modification. The Caterpillar program is operated

in the batch mode while the General Motors programs are interactive.

The NBS role was to assemble the documentation from material supplied by Caterpillar Tractor Co. and General Motors Corporation, to validate the programs, and

to distribute the package. The NBS validation consisted of testing to determine
that the programs run correctly on different computers and that they perform in

accordance with the documentation.

More specifically, the programs were tested with the Bell Telephone Laboratories'

[2] Verifier Program for compliance with standard FORTRAN, and in addition, each

program was compiled and executed on several different computers with test data.

In particular, the Caterpillar Program was tested on an IBM 370/165 under OS and

on a CDC 6400 under SCOPE 3.0. The GM Programs were tested on an IBM 370/165

under TSO, and all three programs were tested on a UNIVAC 1108 under EXEC VIII

and on a PDP-10 under DECsystem-10.

II CONVERSION PACKAGE COMPONENTS

This package consists of two parts—a magnetic tape and this document.

A. TAPE

The tape is a standard 1/2 inch wide 600 foot long reel. It is recorded in

FORTRAN and is available in six versions so far as numbers of tracks, code,

density and parity are concerned:

No. of

Tracks Code Density Parity

9 ASCII 800 Odd

9 ASCII 1600 Odd

9 EBCDIC 800 Odd

9 EBCDIC 1600 Odd

7 BCD 556 Even

7 BCD 800 Even

The printed label on the tape reel identifies the version. Hexadecimal or octal

representations of the FORTRAN Characters in ASCII, EBCDIC and BCD as used on

the tape are given in Appendix II.
The tape contains 6 files. The first is a description of the contents and logical organization of the tape. The second contains Caterpillar's METCO program;

the third contains test data for that program; the fourth gives test results

based on this data. The fifth file contains the GMMETR program and the sixth

GMINCH.

Each file except the last is terminated by one tape mark, while the last file is

terminated by two tape marks. Programs and test data are organized in 80-

character card images , blocked 9 card images per physical fao«» "jlock, and test

output is organized into three 132-character print line images per physical

tape block.

A listing of the tape is given in appendix III.

B. DOCUMENTATION

This report constitutes the documentation portion of the conversion package. The

information was, for the most part, provided by the program developers, Caterpillar

Tractor Co. and General Motors Corporation. In contrast to the Caterpillar program

which operates in batch mode, the General Motors programs are run in an on-line

interactive mode. This difference is reflected in the varying approaches taken

in developing this documentation.

The salient characteristics of each program have been summarized using the recently

developed Federal Information Processing Standard Software Summary (SF185). See

figures 1, 2, and 3. More detailed descriptions of each program, including some

examples and program listings, will follow in the remainder of this report.
FEDERAL INFORMATION PROCESSING STANn/VRD SOFTWARE SUMMARY

01. Summary date

Yr. IlkMo. Day

Ql 5 2 1, 04. Software date

02. Summary prepared by (Name and Phone) Ruth K. Anderson, C3Q1) 921-3551

Yr. HAMo. SLS.

ay

2LU

05. Software title Caterpillar Tractor Co. .Metric Conversion Progran,

06. Short title METCO

03. Summary action New Replacement Deletion an d

Previous Internal Software ID

07. Internal Software ID

08. Software type

Automated Data P] System [X Computer Program

\~] Subroutine/Module

09. Processing mode

[~~| Interactive Qg Batch

i~\ Combination

10. General

Application area

Specific Computer Systems

[~| Support/Utility ra Scientific/Engineering

[~] Bibliographic/Textual

Management/

| | Business

[~~| Process Control Q Other

11. Submitting organization ana aadress Institute for Computer Sciences and Technology

National Bureau of Standards

Washington, D.C. 20234

12. Technical contact(s) and phone Dr. Joseph 0. Harrison, Jr. (301) 921-3551

13. Narrative xhe program converts dimensions in any ot 31 different metric units to equivalent dimensions in U.S. Customary units. Input parameter cards allow the user to select rounding conventions, output format and to replace or augment the 31 built-in

metric units with others more applicable to his requirements. Written in Standard

FORTRAN, the program is essentially machine independent. It has been tested on the UNIVAC

L108, the PDP-10, the IBM 370 and the CDC 6400

14. Keywords

Metric Conversion

IS. Computer manuf'r and model See narrative16. Computer operating system n/a

17. Programing language(s) American National Stanc ard FORTRAN X3. 9-1966

18. Number of source program state- ments approximately 1200

19. Computer memory requirements 12,000 words (UNIVAC

23. Other operational requirements

20. Tape drives 21. Disk/Drum units 22. Terminals

24. Software availability

Available Limited B Dln-house only

25. Documentation availability

Available Inadequate Q

ln-house only

26. FOR SUBMITTING ORGANIZATION USE

FIGURE 1

Standard Form 185

1174 July

U.S. Dept of Commerce—N3S

(Fipb. Pub. 3C)
FEDERAL INFORMATION PROCESSING STANDARD SOFTWARE SUMMARY

01. Summary date

Yr. Mo. Day

01 51 2 1 1

02. Summary prepared by (Name and Phone) Ruth K. Anderson, (301) 921-3551

05. Software title 04. Software date

Yr. | Mo. HI

Day

01 51 21

General Motors Corporation Millimetre to Inch

Conversion Program

06. Short title GMMETR

03. Summary action New Replacement Deletir<« g

Previous Internal Software ID

07. Internal Software 10

08. Software type

Automated Data

f~~

|

System p? Computer Program

r~| Subroutine/Module

09. Processing mode §

Interactive Batch

:~\ Combination

10. GeneralApplication area

Specific Computer Systems

r—] Support/Utility

jjn Scientific/Engineering

J ~\ Bibliographic/Textual

Management/

j ~| Businesr

i ~\ Process Control

r~] Other

11. Submitting organization and address Institute for Computer Sciences and Technology

National Bureau of Standards

Washington, D.C. 20234

12. Technical contact(s) and phone Dr. Joseph 0. Harrison, Jr. (301) 921-3551

13. Narrative Program was developed by General Motors Corporation to convert millimetre

dimensions to inches. The user has the option of requesting instructions from the program

in entering data from the terminal. The program is written in a portable version or FORTRAN and is essentially machine-independent. It has been Rested on the UNIVAC 110S the PDP-1C

and the IBM 370.

14. Keywords

METRIC, MILLIMETRE CONVERSION

15. Computer manuf'r and model

See narrative

16. Computer operating system

n/a

17. Programing language(s) American National Stan

dard FORTRAN X3. 9-1966

18. Number of source program state- ments approximately 400

19. Computer memory requirements 12,000 words (UNIVAC

1108)

23. Other operational requirements

20. Tape drives 1 (or other scratch

external device')

21. Disk/Drum units 22. Terminals

24. Software availability

Available Limited £]

In-house only

25. Documentation availability

Available Inadequate D

In-house only D

26. FOR SUBMITTING ORGANIZATION USE

16',-lul FIGURE 2

Standard Form 185

1T74 July

U.S. Dcpt of Commerce

NBS
^HFRAL INFORMATION PROCESSING STANDARD SOFTWARE SUMMARY

01. Summary date

Yr. Mo. Day 7lAl0l5 ,2 ll 04. Software date

02. Summary prepared by (Name and Phone) Ruth K. Anderson, (301) 921-3551

Yr. IKMo. Day 0l5,2ll

OS. Software title General Motors Corporation Inch to Millimetre

Conversion Proeram

06. Short title GMINCH

03. Summary action New Replacement Deletion

Gel Previous Internal Software ID

07. Internal Software ID

08. Software type

Automated Data

|~| System O Computer Program rn Subroutine/Module

09. Processing mode

£J Interactive

f~] Batch

(~~| Combination

10. GeneralApplication area

Specific Computer Systems r] Support/Utility S

Scientific/Engineering Bibliographic/Textual

Management/

I [ Business

! ~~\ Process Control [J Other

11. Submitting organization and address institute for Computer Sciences and Technology

National Bureau of Standards

Washington, D.C. 20234

12. Technical contact(s) and phone Dr. Joseph 0. Harrison, Jr. (301) 921-3551

13. Narrative Program was developed by General Motors Corporation to convert dimensions in

inches to millimetres, fhe user has the option of requesting instructions from the program

in entering data rrom th«> «-erminal. The program is written in a portable version of

FORTRAN and is essentially machine- independent. It has been tested on the UNIVAC 1108,

the PDP-10 ana ^he IBM 370,

14. Keywords METRIC, INCH CONVERSION

IS. Computer manuf'r and model

See narrative

19. Computer memory requirements 12,000 words (,unIVAC

1108)

16. Computer operating system

n/a

17. Programing language(s) American National Stand

ard FORTRAN X3. 9-1966

18. Number of source program state- ments Approximately 400

20. Tape drives 1 (or other scratch

external devices)

21. Disk/Drum units 22. Terminals

1

23. Other operational requirements

24. Software availability

Available limited t3

In house only

25. Documentation availability

Available Inadequate D

ln-house only

26. FOR SUBMITTING ORGANIZATION USE

185-101 FIGURE 3

7

Standard Form 185

1174 July

U.S. Dept. o( Commerce—NBS
Ill METCO PROGRAM

A. ABSTRACT

A computer program which accepts metric units and converts them to U.S. Customary

units has been developed by Caterpillar ^Tractor Co. The program is written in

American National Standard FORTRAN and is being made available to the general

public through the National Bureau of Standards. Both the input metric units and

the output equivalent U.S. Customary units are printed in tabular format convenient for attaching to or copying on an engineering drawing.

The units and methods in the program are specialized to the needs of mechanical

design and manufacture. Even though the designer and the man in the shop may be

able to work in metric measure, others in the process flow, such as material

control groups, data processing groups, purchasing groups, etc., will require a

conversion chart in order to be able to conveniently intermix requirements for

metric and U.S. Customary designed parts.

B. BACKGROUND INFORMATION*

This computer program was developed by Caterpillar Tractor Co. to generate metric

drawing conversion charts. The Company has turned the program over to the National

Bureau of Standards for distribution to the general public. While Caterpillar

Tractor Co. and the National Bureau of Standards believe that the information contained herein is complete and correct, they disclaim any and all liability that

may still exist or any responsibility for updating any of the information.

*This section was written by Joseph G. Langenstein of Caterpillar Tractor Co.
In industry, an engineering drawing triggers a chain of events that ends in a

product that can be sold to a customer. When Caterpillar Tractor Co. management

decided to change to the metric system, they reviewed the experience of their

overseas plants in the United Kingdom which were making the change to the metric

system. They also reviewed the experience of other companies in the United States

which were dual dimensioning engineering drawings. From this review, they noted

that organizations using the dual dimensioning practices described in Society of

Automotive Engineers J390 had not achieved a change in their staff's thinking

from the U.S. Customary to the metric system. The engineer making the drawing

and the man in the shop making the part were no closer to thinking in metric units

after years of dual dimensioning than they were prior to dual dimensioning. As

a result, Caterpillar has taken a different approach to providing dual capability

on engineering drawings. This approach entails completing the engineering drawing

in metric units and then generating a chart to provide conversion from the metric

units back to the U.S. Customary. Society of Automotive Engineers (SAE) Off Road

Vehicle Council (ORVC) Report HS J1066 further describes metric drawing

practices.

This program was written only for generating the conversion chart used on metric

engineering drawings. Experience has shown that if provided with the proper tools

designers can design new parts in metric measure and the man in the shop can make

parts from the metric drawing. Then the question arises, "Why do we need to provide any conversion?" The following conditions justify the need for the conversion chart:
1. Many parts are procured from suppliers who are still operating in U.S.

Customary units. At their option they may produce parts to the U.S.

Customary units shown in the conversion chart.

2. Engineers need to know the conversion equivalents whenever a metrically

defined part interfaces with a U.S. Customary defined part..

3. Tooling and gauging people need the chart for quick reference to existgauges and tools that may be applicable to the new metric part.

4. Data Processing systems such as those used in inventory control may not

accept both units of measure and have to be fed U.S. Customary units

until the systems are modified.

5. Service literature may be dual dimensioned and should continue to

provide U.S. Customary units.

It was decided to use a computer to generate the conversion chart in order to

obtain dual capability at minimum cost. It was also desired to be able to use

personnel other than engineers to feed the information into the computer. The

computer program in this package is the third one developed and used by Caterpillar Tractor Co. since January 1973. The two previous programs did not sufficiently fulfill the goal of making the program operable by clerical personnel.

One way to initiate a program of metrication is to begin designing all new or

redesigned products in metric measure starting in the layout drawing stage. The

term "new product" does not necessarily mean all new parts. Many existing parts

are carried over from current to new products, particularly if the new product

is a redesign of a current product. These parts are already in production using

10
tooling and gauging in the U.S. Customary units. To change or define these parts

in metric units would accomplish nothing and result in an unnecessary expense with

no return. Therefore, existing drawings can remain in inches until the last

stages of the conversion program; when most drawings and manufacturing equipment

are in metric. It may then be desirable to convert the drawings of inch designed

parts that are still being manufactured.

New parts, assemblies and groups are designed and dimensioned in metric units.

Ideal metric modules can be used unless the dimension defines a size or interface

requirement that originated in U.S. Customary units; then direct conversions of

the U.S. Customary units must be specified. The end result of this practice is

a "new product" consisting of parts defined in both U.S. Customary units and

metric units. However, neither the part nor the customer can tell the difference

since one can manufacture and measure anything in either measurement system.

C. PROBLEM DEFINIU 'N

1. Conversioa capability

The METCO program converts dimensions in any of 31 different metric units to

equivalent dimensions in U.S. Customary units. Column 1 of Figure 4 lists the

units that the program will accept. Column 2 lists the corresponding U.S.

Customary units of the output. These 31 "standard" conversions are built into

the system.

Several options exist for changing or adding metric units to the program. The

user may:

11
INPUT

in

Metric Units

OUTPUT

in

U.S. Customary Units

INCH

PSI

PSI

PSI

DEGREE FAHRENHEIT

DEGREE F TOLERANCE

POUND (FORCED

POUND (FORCE)

POUND (FORCE) FOOT

OUNCE (MASS) INCH

POUND (FORCE) /INCH

THOUSANDS OF INCH

INCH

INCH

FOOT

MILE

SQUARE INCH

SQUARE INCH

SQUARE YARD

CUBIC INCH

OUNCE (LIQUID)

OUNCE (LIQUID)

QUART

CUBIC YARD

OUNCE (MASS)

OUNCE (MASS)

POUND (MASS)

POUND (MASS)

OUNCE (MASS)/

SQUARE YARD

GRAM/CUBIC

CENTIMETRE

POUND (MASS)/

CUBIC FOOT

(1) In July 1974 Caterpillar Tractor Co. changed the units that it uses for designating pressure from bar to kilopascal and from millibar to pascal. These

changes will be reflected in subsequent editions of the metric conversion

package.

(2) These units have special usage at Caterpillar and are not recommended for general use.

(3) At Caterpillar this unit is used in both the metric and the U.S. Customary

system of measurement. In applying the conversion program it is simpler to enter it into the computer than to make an exception of it.

FIGURE 4

1. MILLIMETRE

(1) 2. BAR

(1) 3. MILLIBAR

4. MEGAPASCAL

5. DEGREE CELSIUS

6. DEGREE C TOLERANCE

7. NEWTON

8. KILONEWTON

9. NEWTON METRE

10. GRAM METRE

11. NEWTON /MILL IMETRE

12. MICROMETRE

13. CENTIMETRE

(2) 14. DECIMETRE

15. METRE

16. KILOMETRE

17. SQUARE MILLIMETEE

18. SQUARE CENTIMETRE

19. SQUARE METRE

20. CUBIC CENTIMETRE

21. CUBIC CENTIMETRE

LIQUID

(2) 22. DECILITRE

23. LITRE

24. CUBIC METRE

25. GRAM

(2) 26. HECTOGRAM

27. KILOGRAM

28. MEGAGRAM

29. KILOGRAM/ SQUARE

METRE

(3) 30. GRAM/CUBIC

CENTIMETRE

31. KILOGRAM/ CUBIC

METRE

BUILT-IN METCO CONVERSION CAPABILITY

12
a. Replace any of the 31 units listed in Figure 4 with other units that

may be more applicable to his requirements.

b. Augment the list of metric units by an additional 18 to a total of 49

units. This may be done in two ways. One is to add the additional

units on a permanent basis by changing the program. The other is to use

special identifier cards and add additional units for an individual run

as explained in Section D, in the paragraph entitled Special Identifier

Card.

The program is specialized to the conversion of millimetres, the most commonly

used unit of measure on engineering drawings. It assumes that any input dimension

not accompanied by an identifier is in millimetres (default condition) , and it

also applies a special rounding convention to all millimetre conversions.

2, Input Identifier

Except for millimetres, each dimension to be converted by METCO is entered into

the program with a label identifying its metric unit of measure. As noted earlier,

the absence of a label indicates to the program that the dimension is in millimetres. This label is called an "Input Identifier" and is used by the program

to select the conversion factor to operate on the dimension, to determine the

rounding convention to be applied and to control the labelling of the output.

Shown in Figure 5 is a list of the 31 metric units the program will handle, along

with their input identifiers, conversion factors, U.S. Customary units and the

rounding method used by the program. The input identifier must be entered

exactly as shown in the figure observing the presence or absence of blanks. Incorrect identifiers will be printed at the beginning of the output as errors.

13
Rounding

Input Conversion U.S. Customary Method

(3) Metric Unit Identifier Factor Unit Used

1. MILLIMETRE (1) 1/25.4 INCH (2)

(4) 2. BAR BAR 14.504 PSI 3 (4) 3. MILLIBAR MBAR .014504 PSI 1 4. MEGAPASCAL MPA 145.04 PSI 3 5. DEGREE CELSIUS DEG C 1.8 + 32 DEGREE FAHRENHEIT 3 6. DEGREE C TOLERANCE DEG TOL 1.8 DEGREE F TOLERANCE 3

7. NEWTON N .22481 POUND (FORCE) 1

8. KILONEWTON KN 224.81 POUND (FORCE) 1 9. NEWTON METRE NM " .73756 POUND (FORCE) FOOT 1 10. GRAM METRE GM 1.3887 OUNCE (MASS) INCH 2 11. NEWTON /MILLIMETRE N/MM 5.7101 POUND (FORCE) /INCH 1 12. MICROMETRE UM .039370 THOUSANDS OF INCH 2 13. CENTIMETRE CM .39370 INCH 1

(4) 14. DECIMETRE DM 3.9370 INCH 1 15. METRE M 3.2808 FOOT 1 16. KILOMETRE KM .62137 MILE 2 17. SQUARE MILLIMETRE MM2 .0015500 SQUARE INCH 1 ±8. SQUARE CENTIMETRE CM2 .15500 SQUARE INCH 1 19. SQUARE METRE M2 1.1960 SQUARE YARD 2 20. CUBIC CENTIMETRE CM3 .061024 CUBIC INCH 1 21. CUBIC CENTIMETRE

LIQUID CM3 LIQ .03381 OUNCE (LIQUID) 1 (4) 22. DECILITRE DL 3.3810 OUNCE (LIQUID) 2 23. LITRE LITRE 1.0567 QUART 2 24. CUBIC METRE M3 1.3080 CUBIC YARD 1 25. GRAM G .035274 OUNCE (MASS) 1

(4) 26. HECTOGRAM HG 3.5274 OUNCE (MASS) 2 27. KILOGRAM KG 2.2046 POUND (MASS) 2 28. MEGAGRAM MG 2204.6 POUND (MASS) 1 29. KILOGRAM/ SQUARE OUNCE (MASS)/

METRE KG/M2 29.494 SQUARE YARD 3 (4) 30. GRAM/CUBIC GRAM/CUBIC

CENTIMETRE G/CM3 1.0000 CENTIMETRE 3 31. KILOGRAM/CUBIC POUND (MASS)/

METRE KG/M3 .062428 CUBIC FOOT 1

(1) No input identifier is necessary for millimetres.

(2) Rounding method for millimetre conversions is explained in Section IIIC3.

(3) These identifiers do not necessarily represent approved symbols for the units to which they refer. Recommended representations in upper case letters for most of

these units are given in ISO/DIS 2955f6].

(4) See notes to figure 4.

FIGURE 5. METCO SUMMARY TABLE

14
3. Rounding Conventions

The METCO program uses four different rounding conventions for built-in conversions. These are summarized below. It should be pointed out that the user

may modify these rounding conventions by making simple changes to the program.

a. Millimetres

Conversions of millimetre dimensions to inches are rounded to one decimal place

more than indicated in the input but to no less than three decimal places. The

minimum number of decimal places in the output can be increased or decreased by

program modification.

Example: Input in Millimetres Output in Inches

.020 .0008

.5 .020

50.0 1.969

b. Other Units

Rounding Method 1 (Code -1)

Converted dimensions are rounded to three significant figures.

Example: Computed Value Rounded Value

.0034864 .00349

.34864 .349

3.4864 3.49

34864. 34900.

Rounding Method 2 (Code 1)

Converted dimensions are rounded to one decimal place but retain a maximum of

three significant digits. Zeros are used as required.

Example: Computed Value Rounded Value

.0034864 .0

.34864 .3

3.4864 3.5

34864. 34900.

15
Rounding Method 3 (Code 0)

Converted dimensions are rounded to whole numbers but retain a maximum of three

significant digits. Zeros are used as required.

Example: Computed Value Rounded Value

.0034864 0. .34864 0.

3.4864 3. 34864. 34900.

In the program itself, these three methods are referred to by the codes -1,

1, respectively.

D. APPLICATION INFORMATION

1. Input

Data is entered in units of data sets consisting of 500 or less dimensions each.

Normally a data set will consist of all the dimensions on a single drawing.

Punched cards are used as input and there are three different card types for each

data set:

Header Card

Special Identifier Card (optional)

Data Card

If the user is entering dimensions in any of the 31 metric units ordinarily

accepted by the program, he will use one header card followed by one or more

data cards. If he is inputting dimensions in metric units not included in the

list of 31, he must complete a special identifier card for each unit. A typical

deck set-up for a single data set would appear as in figure 6.

16
.*

Data Cards

*

t" 1 /

A

Special Identifier Cards

/ -

Header Card

FIGURE 6. INPUT CARDS

17
a. Header Card

The first card of each set of data must be a header card. It contains identification information and format specifications and indicates to the program the number

of special identifiers being used. The contents of the header card (with appropriate substitution of default values) is stored by the program and printed with

each data set being processed. The information items on a header card are

described below and the card format is illustrated in figure 7

.

Item

Part Number

Change

Column No. Description

1-8 Used for data set identification only.

Not processed by program. May vary

from blank to 8 characters.

10-17 Used for data set identification only.

Not processed by program. May vary

from blank to 8 characters.

Additions 19

Output Columns MM 28

Output Columns

Other

37

Enter "1" if data are to be added to an existing chart. Otherwise leave blank.

Output format for millimetre conversion

may be printed in 1, 2, 3 or 4 pairs of

columns. Enter number of pairs desired.

If left blank, output will be printed in

1 pair of columns.

Non-millimetre conversions can be printed

in 1 or 2 parallel sets of 4 columns each,

Enter number of sets desired. If left

blank, output will be printed in 1 set of

4 columns

.

Added Identifiers 46-47 Enter the number of special identifiers

being added for the set. METCO can accommodate 18 special identifiers for

a total of 49.

18
a. Haader Card

1 - 8 10-17

part* no, f chang*

19 28 i 37 UA-Un

\ 155

added

identifiers

plet

additions

output

eel. MM

eutput oel

ether

b. Special Identifier Card

1 - 8 j 10-17 19 - 27 28-36 37 - 45

metric

identifier

Conversion

Factor

U.S. Customary RQUnd Unit

Unit 4, Round

Technique

Cede

c. Data Card

1

1 - 8 10 - 17

Dimension 1 J^

19 - 26 28 - 35 37-44 46-53

Identifier 1Dimension 2

Identifier 2

J, Dimension 3 V

Identifier 3

FIGURE 7

CARD FORMATS

19
Item

Plot

Remarks

Column No.

55

56-72

Description

A special option can be added to the

program to provide output through a plotter. This option is not included

in this version of the program.

Enter any remarks to appear on output.

b. Special Identifier Card

If additional metric units are being added for an individual run, a special identifier card must be furnished for each unit. The information items to be on a

special identifier card are described below, and the card format is illustrated

in figure 7b.

Item

Metric Identifier

U.S. Customary Unit

Round Technique Code

Column No,

l-l

10-17

19-27

Conversion Factor 28-36

Description

Input identifier (metric). Maximum

of 8 characters.

Output identifier (U.S. Customary).

Maximum of 8 characters.

Code Rounding Technique

-1 3 significant digits

whole numbers

1 1 decimal place

2 2 decimal places

3 3 decimal places

4 4 decimal places

5 5 decimal places

With codes 0-5 a maximum of 3 significant digits is retained.

Examples of the use of codes -1,

0, 1 are given in section IIIC3b.

Enter the constant (in fixed decimal

format) by which the metric unit is

multiplied to convert it to a U.S.

Customary Unit. See figure 5, column

headed Conversion Factor (items 2 through 31) for format examples.

20
Item Column No. Description

Rounding unit 37-45 Indicate the smallest increment that the

program should recognize in the rounded

dimension. This will normally be one unit

in the last place retained, but not

necessarily so. It could, for example, be

5 units in the last place retained which

would permit rounding to 1/2 of the next

larget unit; or 25 units in the last place

retained which would permit rounding to 1/4

of the next after the next larger unit.

The rounding must be an integral multiple of one unit in the least significant decimal

place retained. It should be left blank

with round technique code -1 but always

used with round technique codes 0-5.

21
Duplicate metric identifiers are not recognized by the program. Duplicates are

accepted as input and each occupies a storage position in the identifier table.

Only the first definition of an identifier is ever accessed by the conversion

portion of the program.

The number of special identifier cards should be as specified in the added

identifier field of the header card. If it is not, the following anomalies will

occur.

If the number of special identifier cards in the input deck is less than that

specified by the added identifier field, the data cards which follow are interpreted as special identifier cards until the special identifier count agrees with

its specification. The program then executes normally. The dimensions on the

data cards which have been interpreted as special identifier cards will not

appear on the output. This situation can be recognized by noting the appearance

of garbage in the last temporary entry (or entries) of the table of conversion

factors.

If the number of special identifier cards in the input deck exceeds the number

specified, the cards in excess of the specification are interpreted as data cards.

The misinterpreted special identifier cards will each result in an illegal

22
identifier printout. Furthermore, each dimension which requires an unaccepted

special identifier card will cause an illegal identifier printout.

If the number of special identifiers to be added plus the number of identifiers

resident (thirty one plus those added in previous problems of the same run)

exceeds forty nine, the fiftieth and each succeeding special identifier card

are printed with an appropriate error message. Each dimension which requires

an unaccepted special identifier card will cause an illegal identifier print.

c. Data Card

The data card contains the dimensions to be converted and their associated identifiers. Up to three pairs of dimensions and identifiers may be entered per card.

If a dimension is in millimetres, the identifier must be left blank. The information items for a data card are described below, and the card format is illustrated in figure 7c.

Item

Dimension 1

Column No.

1-8

Description

Enter dimension to be converted. Acceptable characters are through 9, . , +, Leading or trailing blanks have no meaning but blanks must not appear imbedded within the characters of the dimensions

field. Significant zeros must be entered

because round-off is based on the number

of digits to the right of the decimal.

The dimensions may be placed anywhere

within the field. The number of characters including decimal point and sign

cannot exceed 8 characters.

23
Item

Identifier 1

Column No,

10-17

Dimension 2 19-26

Identifier 2 28-35

Dimension 3 37-44

Identifier 3 46-53

Description

This item must be chosen from the list of

acceptable identifiers and entered exactly

as shown on the list in figure 5 or in the

identifier field of the Special Identifier

Card. The first character of the identifier must be in the first character

position of the field.

Same as Dimension 1 Same as Identifier 1

Same as Dimension 1 Same as Identifier 1

Any number of data sets, each containing as many as 500 dimensions, may be processed as a single run. Data sets must be separated by STOP in an identifier

position. The run is terminated when $E0P is detected in card columns 1 through

4. No more data will be accepted.

If, by mistake, there are more than five hundred dimensions in a set, the five

hundred and first and all subsequent dimensions are printed with appropriate

error messages. The program executes normally with the five hundred accepted

dimensions.

The output of this program can be used in one of several ways depending on the

system selected by the user. (1) Used as a separate document or Page 2 of a

drawing. (2) The information could be copied by a desk copier onto an adhesive

24
backed plastic sheet and then put on the engineering drawing. (3) The output could be

typed directly onto the adhesive backed plastic sheet and then put on the drawing. The

option depends on the equipment and the required distribution of the conversion

chart.

A special option can be added to the program to provide output through a plotter.

This option, however, is not included in the program being furnished. Such

hookups vary too greatly to provide this option.

2. Output

Output from the METCO program consists of:

(1) metric to U.S. Customary conversion tables (Tables showing U.S.

Customary units and their corresponding metric values for specific drawings.)

(2) identification, error messages and (under certain conditions) a

table of conversion factors employed.

These two items are addressed in the order given in this document for expository

reasons. They appear on the computer printout in reverse order. All of this

material is referred to collectively on the computer printout as "Metric—U.S.

25
Customary Conversion Table". The pagination of the output is oriented to

these two types of information and they appear on separate output pages. A brief

description of the components of each type of output appears below.

a. Metric to U.S. Customary Conversion Tables

This is the output to be attached to or associated with an engineering drawing.

If a data set contains both millimetres and other metric units, two tables will

be printed - each on a separate page and each properly identified with "part

number" and "change". A blank line appears after each 5 lines of output in the

table. A string of asterisks (********) in the U.S. Customary units field means

that the converted dimension overflows the 8 characters permitted by its output

format.

Millimetres to Inches - The table is printed in a 2 column array (input millimetres and output inches respectively), and sorted in ascending order by input

millimetre dimension. As many as four 2-column arrays may be printed across the

page depending on the value specified for "output columns MM" on the header card.

Other Units - Table is printed in a 4 column array consisting of (1) input dimenseion, (2) input metric unit, (3) output dimension, and (4) output U.S. Customary

unit. Data is sorted first by input dimension and then by input metric unit. A

maximum of two 4-column arrays may be printed across the page.

26
b. Identification, Error Messages and Table of Conversion Factors

The program prints "METRIC - U.S. CUSTOMARY CONVERSION TABLE" followed by the

fields of the input header card with appropriate column headings. Default values

are substituted for blank fields on the header card.

Error Messages - This information appears only if there has been an illegal

entry in one or more of the input data items. Error messages are of two types:

"illegal identifier" and "illegal character in dimensions".

Table of Conversion Factors - This table is printed only if special identifiers

have been added for the data set. It is preceded by a count of the number of

units that it currently contains. The count covers 30 of the 31 built-in

conversions (millimetres to inches are not counted) and any special identifiers

in either the current data set or previous data sets for the run.

The table is comprised of the current version of the conversion table with

headings. Special identifiers are labeled as temporary entries.

3. Sample Computations

Eleven sample computations are given in files 3 and 4 of the conversion package

tape. The first three of the samples are reproduced and briefly commented on

here.

27
Sample 1 Comments

Input Non-millimetre dimensions only. One set of data per

data card. No added identifiers.

Output Identification and Errors

Illegal identifier "GRAM" was used. Should have been

"G". See figure 5.

Output Conversion Table

One 4-column array called for. Dimensions associated

with the illegal identifier were not converted.

28
INPUT

959721 13.

.85 GRAM

3.5 LITRE

14. LITRE

17. LITRE

22.5 LITRE

-31.5 DEG C 2.0 DEG TOL

-10.0 DEG C 29.5 LITRE

3*. LITRE

170. LITRE

65.5 LITRE

68. LITRE

75. LITRE

75.5 LITRE

3060. GRAM

106. LITRE

148. LITRE

519. LITRE

STOP

SAMPLE 1 121700

121800

121900

122000

122100

122200

122300

122400

122500

122600

122700

122800

122900

123000

123100

123200

123300

123400

123500

123600

123700

Sample 1

29
OUTPUT - IDENTIFICATION AND ERRORS

METRIC - U.S. CUSTOMARY CONVERSION TAPLE

NUMBER df NUMBER OF PART OUTPUT COLUMNS ADDED

NUMBER CHANGE ADDITIONS MM OTHrR IDENTIFIERS PLOT REMARKS

9S9721 13. n 1 1 SAMPLE 1

LISTED BELOW ARE THE INPUT nATA CARD(S) WITH SOME TYPE OF ERRORS).. DIMENSION IDENTIFIER ERROR TYPE

.85 3060. GRAM GRAM

ILLEGAL IDENTIFIER

ILLEGAL IDENTIFIER

OUTPUT - CONVERSION TABLE.

PART 9S9721 CHANGE 13. DIM UNITS DIM UNITS

-<to.o DEG C -uo. DEG F -31.5 DEG C -25. DEG F 2.0 OEG TOL <*. DEG TOL

8.5 LITRF 9.0 OT

14. LITRE 11.8 GT

17. LITRF 18.0 OT

2*.

5

LITRF 23.8 QT 29.5 LITRE 31.2 QT

34. LITRF 35.9 GT £5.5 LITRE 69.2 OT

68. LITRF 71.9 QT

75. LITRE 79.3 QT 75.5 LITRF 7°. 8 QT

106. LITRE 112. QT 1*8. LITRF 156. QT

170. LITRF 180. QT 519. LITRF 548. GT

Sample 1 (Continued)

30
Sample 2 Comments

Input A combination of millimetre and non-millimetre dimensions.

The number of sets of data per card data varies from one

to three.

No added identifiers

Output Identification and Errors

Output calls for 4 sets of output data for millimetres and

2 sets of output data for other units.

Errors in both identifier and dimension fields are flagged,

Output Converted Data in 2 tables. Millimetres to inches and

"Other".

31
INPUT

3F1341 15 1.0 4.0 2.0

1000. MPA 100. 0.

100. DEGC 3.

19..35 N/MM1 .35

.0025 .621 47.33

77.0 85.0 1 54 . 2. BAP .4

4. LITRE .1

2. KM .1

20. DEG

C 2.

10.

N

M 2.

5.6

35. ML

30.860 0.013

5.6

14.25 .5

1.5

11.00

75.0 REF

5. DEG TOL 7.0 DEG TOL 20.00

2.0 ML 1.5 ML

3.0 ML

5.0 ML

-31.5 DEG

C

-40.0 DEG

C 2.0 DEG TOL

P-.O DEG TOL

4.0 DEG TOL

8.0 ML

12.0 ML

2.0 KM

3.0 KM

8.0 KM

11.25 KM

22.55 KM

22.0

17.50

50. KG

10.

N

57.0

2.40

A 128.0

38.10

32.0

447.22 DEEP 12.25 -12.00+

25.17

21.8

20.83

19.8

16.0

6.35

1.5

.76

50.0

17.0 0.5

18.0 0.05

19.0 0.051

19.0 0.0505

SAMPLE 2

DEG TOL

STOP Sample 2

123800

123900

124000

124100

124200

124300

124400

124500

L24600

124700

124800

12490O

125000

125100

125200

125300

12540"

125500

125600

125700

125800

12590O

126000

126100

126200

126300

126400

126500

126600

126700

126800

126900

127000

127100

127200

127300

127400

127500

127600

127700

12780O

127900

128000

128100

12820"

128300

128400

12850"

128600

128700

128800

128900

129000

129100

129200

129300

129400

129FS0"

129600

32
OUTPUT - IDENTIFICATION AND ERRORS

METRIC - U.S. CUSTOMARY CONVERSION TABLENU"BER OF NUMRER OF PART OUTPUT COLUMNS ADDEO

NUMBER CHANGE ADDITIONS MM OTHER IOENTTFIERS PLOT REMARKS

3F1341 IS 1.0 4.0 ?.o SAMPLE 2

LISTED BELOW ARE THE INPUT OATA CARP(S> WITH S« ME TYPE OF FRROR(S), DIMENSION IDFNTIFIER ERROR TYPE

100. 0. ILLEGAL IDENTIFIER

10. N M ILLEGAL IDFNTIFIER

35. ML ILLEGAL IDENTIFIER

75.0 REF ILLEGAL IDENTIFIER

2.0 ML ILLEGAL IDENTIFIER

1.5 ML ILLEGAL IDFNTIFIER

3.0 ML ILLEGAL IDENTIFIER

5.0 ML ILLEGAL IDENTIFIER

P-.O OEG TOL ILLEGAL CHARACTER IN DIMENSION

8.0 ML ILLEGAL IDENTIFIER

12.0 ML ILLEGAL IDENTIFIER

2.40 A ILLFGAL IDENTIFIER 447.22 DEEF* ILLEGAL IDENTIFIER

12.25 -12. 00+ ILLEGAL IDENTIFIER

OUTPUT - CONVERSION TABLES PART 3F1341 CHANGE 15 MM INCH MM TNCH MM TMCH MM

PART 3F1341 CHANGE 15 DIM UNITS DIM

INCH .0025 .00010 .76 .050 17. SO .689 38.10 1 .500 .013 .0005 1.5 .059 18.0 .709 47.33 1 .863

.05 .002 2. .079 19.0 .748 50.0 1.96Q

.0505 .00199 3. .118 19.8 .780 57.0 2.244

.051 .0020 5.6 .220 20.83 .820 77.0 3.031

.1 .ow 6.^5 .250 21.8 .858 85.0 3.346

.35 .014 11.00 .433 22.0 .866 128.0 5.039

.4 .016 14.25 .561 25.17 .991 154.0 6.063

.5 .020 16.0 .630 30.860 1.2150

.621 .0244 17.0 .669 32.0 1.260

UNITS DIM UNTTS DIM UNITS

2. BAR 29. PSI 10. N 2.25 LPF

1000. MPA 145000. PSI 10.35 M/MM 110. LB/INCH

-40.0 DEG C -40. DEG F 2.0 KM 1.2 MILE -31.5 DEG C -25. DEG F 2. KM 1.2 MILE

20. DEG C 68. DEG F 3.0 KM 1.9 MILE

100. DEG C 212. DEG F 8.0 KM S.O MILE

2.0 DEG TOL 4. DEG TOL 11.25 KM 7.0 MTLE

4.0 DEG TOL 7. DEG TOL 22.55 KM 14.0 MILE

5. DEG TOL 9. DEG TOL 4. LITRF 4.2 OT 7.0 DEG TOL 13. DEG TOL 50. KG 110. LB 20.00 OEG TOL 36. DEG TOL

Sample 2 (Continued)

33
Sample 3 Comments

Input This sample contains mixed millimetre and non-millimetre

dimensions and various numbers of sets of data per data card

as does sample 2. In addition, it contains two special

identifier cards — the second and third on the input list.

These cards provide the capability for converting from

metres to inches and from dekametres to inches respectively.

The sample also contains data cards employing each of these

added conversions.

Care must be exercised in reading the special identifier

cards. Specifically, the l's in the quantities 139.37 and

1393.7 are in card column 27 and are therefore not part of

their respective identifiers since they are not in the

conversion factor field. They represent round technique

codes instead. The last two lines of the output table

of conversion factors clarifies this.

Output The added identifier cards trigger the printout of the table

of conversion factors.

34
INPUT

9S3184 01 1.0 METER INCH

^ECA

M INCH

57.0 5.6 19.35 N/MM

30.360 0.013

5.6

200. DM 300.0 CM 400.0 HG 500.0 DL

135. 44 N/MM

14.25 .5 7.0 DECA M 7.6

1.5 11.00 12.35 GAGE

75.0 REF looo.oo

20.0 DEG

C 10.0 G ".01 MP A 1212. 012 00123

2.25 4.68

13.1 1^.22 27.691 2°. 

36.0 4".15

52.2 54.755

31.15 85.65

0123.5

1200. 1300.

1600. 1700. 22.0

17.50

50. KG

10.

N 35. ML

4. LITRE -100.22+

2. BAR

10.

N

M 2. KM 50.0

128.0 38.10

32.0 25.17

21.8 20.83

19.8

16.0 6.35

1.5

.76 17.0 0.5

18.0 0.05

19.0 0.051

19.0 0.0505

3.0 13°. 37 1393.7

2.0

".1

0.1

1.0 SAMPLE 3

"TER

1100.0

8.9 23.35

31 .0 44.44

69. 7S 405.1

1400.

1800.

STOP

129700 129800

12990"

130000

130101

130200

130300 130400

130501 130600

130701

130800

130901

131000 131100

131201 131301

131401

131500 131600

131700

131800

131900

132000

132100 13??0i 132300

132401

132500 132600

132700

132801

132901 133001

133101 133200

133300

133400

133500 133600

133700 133800

133900 134000

134100

134200

134300 134400

134500

134600 134700

134800

13490O

135000

135101 135200

135301 135400

135500

135600

135701 135800

Sample 3

35
OUTPUT - IDENTIFICATION, TABLE OF CONVERSION FACTORS AND ERRORS

METRIC - U.S. CUSTOMARY CONVERSION TABLE

NUMBER OF PART OUTPUT COLUMNS

NUMBER CHANGE ADDITIONS mm OTHrR 9S3184 01 t.O 3.0 ?.0

NUMPER OF ADDED IDENTIFIERS CLOT

?.0 1.0 REMARKS SAMPLE 3

NUMBER OF FtvjTRlFS IN CONVERSION TABLE = 32

IDENTIFIER IOFMTIFIER

IN OUT

BAR PSI MBAR PSI MPA PSI DEG C DEG F DEG TOL DEG TOL

N LBF

KN LBF

NM LB FT

GM OZ INCH N/MM LB/INCH

UM MILS

CM INCH

DM INCH

M FT KM ^IILE MM? IN? CM2 IN? M2 YD? CM3 IN3 CM3 LIO OZ LIO

DL OZ LIQ LITRE QT M3 YU3

G OZ HG OZ KG LB

MG LB KG/M2 OZ/YD2

G/CM3 S/CM3

KG/M3 LB/FT3

METER INCH DECA M INCH

ROUND CONVERSION ROUMDTNG

TECHNIQUE FACTOR UNIT

14.S0400 1 .00000

1 .01450 .00000

14S. 04000 l.oonoo

o -i./ioooo 1.00000

1.P1000 l.oonoo

1 .2?481 .00000

1 2?4.01000 .00000

1 .737S6 .00000

1 1.3PR70 .10000

1 5. 71010 .00000

1 .03937 .10000

1 .3Q370 .00000

1 3.9'*7no .00000

1 3.2qn«o .00000

1 .62137 .10000

1 .00155 .00000

1 .15500 .00000

1 1. 1^600 .10000

1 .06102 .00000

1 .0338,1 .00000

1 3.38100 .10000

1 1.0S670 .10000

1 1.30800 .00000

1 .0^S27 .00000

1 3.5?740 .10000

1 2.20460 .10000

1 ??04. 60001 .00000 29.4Q400 1.00000

o l.onnoo 1 .00000

1 .06243 .00000

1 30.37100 .10000

1 30^.70000 .10000 **** THIS IS A TFMfORARY ENTRY  

** ** THIS IS A TEMPORARY ENTRY ****

LISTED BELOW APF THE INPUT DATA CARD(S) WITH SOME TYPF OF FRROR(S). DIMENSION IDFNTIFIFR rORQO type ILLEGAL IDFNTTFIPR

ILLEGAL IOFNTIFI"

ILLEGAL IPENTTFIF"

ILLEGAL CHARACTER IN DIMFMSIOM

TLLFC-AL IDFNTIFIFR

12.35 GAG*" 75.0 REF

35. ul -100.22+

10. M "

Sample 3 (Continued)

36
OUTPUT - CONVERSION TABLES

PART 9S3184 CHANGE 01 MM INCH MM INCH MM INCH

.013 .0005 17.50 .689 52.2 2.055

.05 .002 18.0 .709 54.755 2.1557

.0505 .00199 19.0 .748 57.0 2.244

.051 .0020 19.8 .780 69.75 2.746

.5 .020 20.83 .820 81.15 3.195

.76 .030 21.8 .858 85.65 3.372

1.5 .059 22.0 .866 123. 4.843

2.25 .089 23.35 .919 123.5 4.862 4.68 .184 25.17 .991 12P.0 5.039

5.6 .220 27.691 1.0902 405.0 15.945 6.35 .250 29.9 1.177 1000.00 39.370

8.9 .350 30.860 1.2150 1100.0 43.307

11.00 .433 31.0 1.220 1200, 47.244

12. .472 32.0 1.260 1300. 51.181

13.1 .516 36.0 1.417 1400. 55.118

14.25 .561 38.10 1.500 1600. 62.992

15.22 .599 40.15 1.581 1700. 66.929

16.0 .630 44. 44 1.750 1800. 70.866

17.0 .669 50.0 1.969

PART 9S3184 CHANGE 01 DIM UNITS DIM UNITS DIM UNITS DIM UMTS

2. BAR 29. PS I 2. KM 1.2 MILF

.01 MPA 1. PSI 500.0 ni_ le>90. OZ LIQ

20.0 DEG C 68. DEG F 4. LITRE 4.2 QT

10. N 2.25 LBF 10.0 G .353 02 19.35 N/MM 110. LB/INCH 400.0 HG 1410. OZ 135.44 N/MM 773. LB/INCH 50. KG 110. LB

300.0 CM 118. INCH 7.6 METER 299. INCH 200.0 DM 787. INCH 7.0 DECA M 2760. INCH

Sample 3 (Continued)

37
E. PROGRAMMING INFORMATION

1. General

The program is comprised of a main program, six subroutines called ENCODE, DECODE,

DASORT, SETUP, SIGNIF and READER; a function subprogram DROUND; and a BLOCK DATA

subprogram. The main routine and subroutines are liberally interspersed with

comments.

Modifications in the dimensions converted and their conversion factors may be

accomplished by changing the appropriate values in BLOCK.

The program is written in American National Standard FORTRAN and is essentially

machine independent.

The source program consists of about 1200 FORTRAN statements. When tested on the

UNIVAC 1108 it required approximately 12,000 words of memory.

2. Accuracy and Size of Numbers

The program uses double precision arithmetic so as to minimize the limitations of

computer word length. Of the computers upon which the program was tested the

smallest mantissa in the double precision floating point number representation

was 54 bits for the PDP-10 under DECsystem 10 with KA10 "long mode" number

representation.

Word length should not be a limitation on any computer with equivalent double

precision floating point representation. This includes virtually all large scale

computers and some minicomputers.

38
The rounding technique employed in millimetre to inch conversions is essentially

the same as that recommended in American National Standard Z25. 1-1940 reaffirmed

1961

7

. Specifically

(a) Remainders less than 1/2 are rounded downward,

(b) Remainders greater than 1/2 are rounded upward,

(c) Remainders exactly equal to 1/2 are rounded to the nearest even digit.

In this program, exactly 1/2 is defined to be any number within the

range .5 + .0001 to .5 - .0001 inclusive.

If the quantity 1/2 used in the nearest even digit routine were defined exactly,

this procedure would result in a maximum rounding error of 1/2 unit in the least

significant place retained. Actually, however, the maximum error is .5001 in the

least significant place retained. This difference is of no practical importance

and will be neglected in the subsequent discussion.

Non-millimetre conversions, both those that are built in and those that are

introduced by means of added identifier cards, are rounded according to one, two

or three procedures applied serially in order as follows:

(a) The special rounding unit, if any, is applied. The quantity 0.5 is

added to the quotient of the unrounded converted dimension divided by

the special rounding unit. The result is truncated to its integral

part and multiplied back by the special rounding unit to give the

rounded dimension to the nearest allowable increment.

(b) The result of operation (a) is rounded to three significant figures

using the same procedure that is used for rounding from millimetres to

inches

39
(c) If the number of decimal places is specified (round technique codes

1-5), the result of operation (b) is rounded again. The same procedure

that is used for rounding from millimetres to inches is again employed.

Undesireable interaction among the several serial rounding operations may be

avoided by applying the restrictions specified under the rounding unit item in

the table in section III Dlb . The subsequent discussion assumes that they have

been applied.

40
a. Millimetres to Inches

Although the input card format for millimetre dimensions permits eight characters,

the largest unsigned number that can be processed is controlled by the print

format of the inch equivalent output - decimal point and a maximum of seven

numeric characters, at least three of which must lie to the right of the decimal

point. The largest unsigned dimension that can be handled, therefore, is

9999.999 inches or, conservatively, 250 000 millimetres. For all input values

no larger than 250 000 millimetres, the inch equivalent will be printed with an

error no larger than one half unit in the last place retained. Since at least

three decimal places are retained in all circumstances, the error is always less

than or equal to 5 ten- thousandths of an inch.

The program also accepts signed millimetre dimensions. The purpose of this is to

permit the entering of positive and negative tolerances. The output print format

for a signed dimension is sign, decimal point and six digits, at least three of

which must lie to the right of the decimal point. The largest signed dimension

that can be handled is therefore +999.999 inches or, conservatively, 25,000

millimetres. The maximum error is the same as in the unsigned case.

b. Other Built-in Conversions

Conversions of units other than millimetres (figure 5) use the same input card

format and output print format as do millimetre conversions - eight characters in

each case. The maximum unsigned dimension that can be processed is limited by

either the input or the output format depending upon the magnitude of the conversion factor. Dimensions with conversion factors equal to or less than one-tenth

41
are limited by the output format. The dividing point is one-tenth rather than

unity since a decimal point is mandatory in the output format but not in the inpu

format. The magnitude of the dimension that can be processed depends also on the

rounding rule employed since this dictates the number of places to the right of

the decimal point.

It will be noted from figure 5 that most built-in conversion factors have been

rounded to five significant digits. This does not affect the accuracy of the

computed results, however, since converted dimensions are rounded to at most

three significant digits.

Other built-in conversions handle signed numbers in a manner similar- to the way

that millimetre conversions do. In all cases, the magnitude of a signed number

must be decreased by a factor of ten, but the error is unaffected.

C. Numerical Values

Based upon these considerations the maximum permissible magnitudes of the input

dimensions and the maximum errors produced have been calculated and verified and

are presented in figure 8 for both millimetre and built-in non-millimetre dimensions. In the table the maximum dimensions are conservative approximations -

i.e., rounded downward from their true values.

42
Figure 8

MAXIMUM PERMISSIBLE DIMENSIONS AND MAXIMUM ERRORS

CONVERSION

1 MILLIMETRE TO INCH

2. BAR TO PSI

3. MBAR TO PSI

4. MEGAPASCAL TO PSI

5. DEGREES C TO DEGREES F

6. DEGREES C TOL TO DEGREES

F TOL

7. NEWTON TO POUND

8. KILONEWTON TO POUND

9. NEWTON METRE TO

POUND FOOT

10. GRAM METRE TO OUNCE INCH

11. NEWTON/MM TO POUND/ INCH

12. MICROMETRE TO INCH/1000

13. CENTIMETRE TO INCH

14. DECIMETRE TO INCH

15. METRE TO FOOT

16. KILOMETRE TO MILE

17. MM2 TO INCH2

18. CM2 TO INCH2

19. M2 TO YARD2

20. CM3 TO INCH3

21. CM3 LIQ TO OZ LIQ

22. DECILITRE TO OZ LIQ

23. LITRE TO QUART

24. M3 TO YARD3

25. GRAM TO OUNCE

MAXIMUM

PERMISSIBLE

DIMENSION (1)

250 000 MM

700 000 BAR

90 000 000 MBAR

60 000 MPA

5 000 000 DEG C

5 000 000 DEG C 40 000 000 N

40 000 N

10 000 000 NM

700 000 GM

1 000 000 N/MM

9 000 000 UM

20 000 000 CM

2 000 000 DM

30 000 000 M

1 000 000 KM

90 000 000 MM2

60 000 000 CM2

8 000 000 M2

90 000 000 CM3

90 000 000 CM3

200 000 DL

900 000 LITRE

7 000 000 M3

90 000 000 G

MAXIMUM ERROR (2)

.0005 INCHES

MAX (.5 PSI, 5 PARTS IN 1 000)

5 PARTS IN 1 000

MAX (.5 PSI, 5 PARTS IN 1 000)

MAX (.5 DEG F, 5 PARTS IN 1 000)

MAX (.5 DEG F, 5 PARTS IN 1 000)

5 PARTS IN 1 000

5 PARTS IN 1 000

5 PARTS IN 1 000

MAX (.05 OZ INCH, 5 PARTS

IN 1 000)

5 PARTS IN 1 000

MAX (.05 INCH/1000, 5 PARTS

IN 1 000)

5 PARTS IN 1 000

5 PARTS IN 1 000

5 PARTS IN 1 000

MAX (.05 MILE, 5 PARTS IN 1 000)

5 PARTS IN 1 000

5 PARTS IN 1 000

MAX (.05 YARD2, 5 PARTS IN 1 000)

5 PARTS IN 1 000

5 PARTS IN 1 000

MAX (.05 OZ, 5 PARTS IN 1 000)

MAX (.05 QT, 5 PARTS IN 1 000)

5 PARTS IN 1 000

5 PARTS IN 1 000

43
Figure 8 (Continued)

MAXIMUM

PERMISSIBLE

CONVERSION DIMENSION (1)

(3) 26. HG TO OUNCE 200 000 OZ

27. KG TO LB 400 000 KG

28. MG TO LB 4 000 MG

29. KG/M2 TO OZ/YARD2 300 000 KG/M2

30. G/CM3 to G/CM3 9 000 000 G/CM3

31. KG/M3 TO LB/FT3 90 000 000 KG/M3

MAXIMUM ERROR (2)

MAX C-05 OZ, 5 PARTS IN 1 000)

MAX (.05 LB, 5 PARTS IN 1 000)

5 PARTS IN 1 000

MAX (.50Z/YD2, 5 PARTS IN 1 000)

MAX (.5 G/CM3, 5 PARTS IN 1 000)

5 PARTS IN 1 000

(1) Dimensions exceeding the exact numbers from which these figures are rounded will

cause input or output overflow.

(2) Maximum error for the computers on which the program was tested. See text.

(3) See notes to figure 4 for use of these units.

44
IV GMMETR AND GMINCH PROGRAMS

A. ABSTRACT

GMMETR and GMINCH are metric conversion programs developed by the General Motors

Corporation. GMMETR converts input dimensions in millimetres to equivalent output

dimensions in inches while GMINCH performs the reverse conversion. The programs

operate in rr on-line, interactive mode. They give the user the option of

selecting prompting assistance from the program while entering information at

the terminal.

B. BACKGROUND INFORMATION

This pair of programs was developed by the General Motors Corporation for computing a conversion table going from millimetres to inches to attach to a metric

drawing and a table going from inches to millimetres to attach a customary drawing. The programs have been made available to General Motors Corporation design

engineers through 400 remote terminals.

C. PROBLEM DEFINITION

The General Motors Corporation conversion programs GMMETR and GMINCH are essentially identical in structure and in logic even though they convert in opposite

directions. The remainder of this documentation will address both programs

collectively or GMMETR specifically. GMINCH will be referred to only when it

differs from GMMETR.

45
The programs are capable of converting an unlimited number of tables, however

each table may contain no more than 1000 measurements. For each table processed,

the user enters drawing identification, format specifications, and the measurements to be converted. Output consists of a pair of values for each input

measurement, i.e., the original input measurement and the equivalent converted

output measurement. The number of pairs of values printed on a line are optional

(up to a maximum of 6) and are indicated to the program in the format specifications.

GMMETR is capable of converting input dimensions between 25,000 and 0.001 millimetres while GMINCH is capable of converting input dimensions between 1000 and

0.0001 inches. GMMETR output in inches contains one more decimal place than

the input millimetre measurement while GMINCH output in millimetres contains

one less decimal place than the input inch measurement. For either program a

measurement may not exceed 8,000,000 times its tolerance. In this context

tolerance means one unit in the least significant decimal place retained.

Because of word length differences among various computers, the user must

exercise caution when exceeding the above limitations.

GMMETR and GMINCH have been tested on the UNIVAC 1108, PDP 10 and IBM 360. For

machines with smaller word lengths the above statements regarding acceptable ranges

of input numbers and accuracies of output results may not apply.

Output is sorted in increasing order of magnitude and duplicates are eliminated.

The programs edit the input and print out various diagnostic messages. All of

46
the above characteristics of the General Motors programs will be addressed

specifically in the following section.

D. APPLICATION INFORMATION

This section describes program characteristics from the user's point of view.

1. Annotated Illustration of Program Application

A sample problem for GMMETR is illustrated in figure 9 and is described below.

The lower case letters in parentheses queued onto the figure identify those

portions of the sheet printed by the computer and those by the user. The sections of the write-up are cross referenced to the figure.

Al Having logged in and called the program, the user has the option of requesting "more information" by entering a plus sign*.

A2 The user has exercised this option.

Bl The program asks for drawing identification and maximum width of the input

conversion table in millimetres. These two items must be separated by a

comma and may not exceed 80 characters collectively.

Drawing identification - This entry will be used as the title of the drawing. Any alphanumeric characters may be used.

Maximum width - Program output is comprised of a pair of columns or values

for each input measurement, i.e., the input measurement and the equivalent

converted output measurement. The program can accommodate six pairs of

*0n most interactive terminal systems every entry is followed by a carriage

return which signals to the computer that the input line is completed.

47
GMMETR ON UNIVAC

SAMPLE PROBLEM - MILLIMETERS TO INCHES (user)

ENTER A SINGLE PLUS SIGN, +,

FOR MORE INFORMATION. ELSE, HIT CARRIAGE RETURN.

"lV£) (user)

A,\) (computer)

ENTER THE DRAWING IDENTIFICATION AND THE MAXIMUM WIDTH ON THE DRAWING

FOR THE MILLIMETRE-INCH CONVERSION TABLE (IN MILLIMETRES). PUT A COMMA

BETWEEN THE TWO ENTRIES. A PAIR OF COLUMNS IS 53.34 MILLIMETRES WIDE.

(computer)

TEST DATA FOR GMMETR, 20 /T^\ , (32) (user)

ENTER THE MILLIMETRE DIMENSIONS ON A LINE WITH COMMAS IN BETWEEN.

THE COMPUTER WILL KEEP ASKING FOR ANOTHER LINE OF INPUT UNTIL YOU

INDICATE THAT YOU HAVE NO MORE INPUT BY ENTERING 0. (ZERO) AS THE

LAST NUMBER.

SHOW THE DECIMAL POINT EVEN WITH INTEGERS.

BE CAREFUL IF YOU ENTER A DIMENSION LARGER THAN 25 000 MILLIMETRE

DO NOT ENTER A TOLERANCE SMALLER THAN 0.00 1 MILLIMETRE

A DIMENSION CANNOT EXCEED 8 000 000 TIMES ITS TOLERANCE,*E vV ( comPuter )

.00 1,. 10,. 100,. 25 4, 2, 54, .254,2.540,25.4,25.40,254. ,2540. , 254.0,254.0 0,254.0 0,254.0 1 ,2540.0,2540 0. ,254 0.0 ,254 0. 00 , . 1 ,. 2,. 3, .4, .5, .6, .7, .8, .9, 1.0,0.

DUPLICATE MEASUREMENT(S) REMOVED.

TEST DATA FOR GMMETR

*-£) (user)

£_J (computer)

MM

. 001

. 100

.3

.6

.9

2.540

54.

254.00

2 540.

( INCH)

.000

.003 9

.01

. 02

.04

.100

2. 1 10.000

100.

MM

.010

.2

.4

.7

1.0

25.4

254.

(INCH)

.000 4

.01

.02

. 03

.04

1.00

10.0

254.000 10.000

MM

. 1 .254

.5

.8

2.

25.4

254.

254. 01

( INCH)

.00

.010

.02

.03

. 1000

00

000

1 10

10

(computer)

2 540.0 100.00 25 400. 1000.0

25 400.0 1000.00

ENTER THE IDENTIFICATION (COMMA) AND WIDTH FOR ANOTHER TABLE. x~v TO END PROGRAM, ENTER ANY ALPHABETICAL CHARACTER. (computer) \*J

S [A) (user)

Figure

48
values across the page. A pair of values is 53.34 millimetres wide. For

simplification, the user may round this value and enter integers. A recommended convention is the following:

1 pair of columns = 60

2 pairs of columns = 120

6 pairs of columns = 360

Care must be exercised in specifying a number compatible with the width

of the paper that the table is being printed on and the space available on.

the drawing to which it will be attached.

B2 User types in both items separated by a comma.

CI The user is asked to enter the measurements to be converted. These are

entered on a line with commas in between. Every measurement must have a

decimal point. A final zero followed by a decimal point indicates that no

more measurements will be entered for this table. Legal characters are the

decimal point, comma, and numerics. Range of permissible values is as

follows

:

GMMETR: between 25,000 and 0.001 millimetres

GMINCH between 1,000 and 0.0001 inches

C2 Data is entered. Note (1) decimal point with each dimension, (2) separating

commas, (3) final zero followed by period. (Some systems accept integers

without decimal points and several numbers were so entered in the example

in figure 9 without error.)

49
D Program removes duplicate measurements, if they exist, and prints a line to

indicate that it has done so.

E Drawing identification is printed followed by conversion table. Table has

been formatted with 3 pair of columns as specified in B2. Duplicates have

been removed. Program sorts on the output data and prints the entries

of the table in increasing order of magnitude in rows rather than columns.

The millimetre values always appear first. This is true in both programs,

GMMETR and GMINCH. One more decimal place always appears in the inch

measurement than in the millimetre measurement.

F The user may process another table by entering a new drawing identification

and table width or alternatively he may terminate the run by entering any

alphabetic character.

G The character S was entered to terminate the run.

A similar example for GMINCH is given in figure 10.

2. Program Limitations

a. Accuracy of GMMETR

On the computers tested, the program is valid for input measurements between

and 25,000 mm. Measurements less than or equal to 8000 mm should be entered with

3 or less decimal places while those greater than 8000 mm should be restricted

to at most 2 decimal places. Under these conditions the error in the converted

measurement is not more than one-half unit in the last place retained.

50
ENTER THE INCH DIMENSIONS ON A LINE WITH COMMAS IN BETWEEN.

THE COMPUTER WILL KEEP ASKING FOR ANOTHER LINE OF INPUT UNTIL YOU

INDICATE THAT YOU HAVE NO MORE INPUT BY ENTERING 0. (ZERO) AS THE

LAST NUMBER.

SHOW THE DECIMAL POINT EVEN WITH INTEGERS.

BE CAREFUL IF YOU ENTER A DIMENSION LARGER THAN 100 INCHES

DO NOT ENTER A TOLERANCE SMALLER THAN 0.00 1 INCH

A DIMENSION CANNOT EXCEED 8 000 000 TIMES ITS TOLERANCE , 1000., 100., 100. 0,100. 00 ,100. 000, 10., 10. 0,1 0.00, 10. 000, 10. 0000,

1., 1.0, 1.00, 1.000, 1.0000,1. ,10. ,100. ,1000.0, .01, .001, .0001,

1.01, 1.00 1,2. 002, 2. 0002, 3. 003, 3. 0003, 4. 4, 4. 04, 4. 004, 4. 0004,0.

i

j DUPLICATE MEASUREMENT(S) REMOVED.

I TEST DATA FOR GMINCH

GMINCH ON UNIVAC

SAMPLE PROBLEM - INCHES TO MILLIMETERS

ENTER A SINGLE PLUS SIGN, + , FOR MORE INFORMATION. ELSE, HIT CARRIAGE RETURN.

ENTER THE DRAWING IDENTIFICATION AND THE MAXIMUM WIDTH ON THE DRAWING

FOR THE MILLIMETRE-INCH CONVERSION TABLE <IN MILLIMETRES). PUT A COMMA

BETWEEN THE TWO ENTRIES. A PAIR OF COLUMNS IS 53.34 MILLIMETRES WIDE.

fEST DATA FOR GMINCH, 20

MM (INCH) MM ( INCH) MM ( INCH)

.003 .000 1 .03 .001 .3 .01

25. 1. 25. 1.0 25.4 1 .00

25.40 1. 000 25.400 1. 000 25.43 1.001

25.7 1.01 50.805 2.000 2 50.85 2.002

76.208 3. 000 3 76.28 3.003 101.610 4. 000

101 .70 4. 004 102.6 4. 04 1 12. 4.4

254. 10. 254. 10.0 25 4. 10.00

254. 00 10. 000 254. 000 10.000 2 540. 100.

2 540. 100. 2 540.0 100.00 2 540. 00 100.000

25 400. 1000. 25 400. 1000.0

ENTER THE IDENTIFICATION (COMMA) AND WIDTH FOR ANOTHER TABLE.

TO END PROGRAM, ENTER ANY ALPHABETICAL CHARACTER.

IS Figure 10

51
In other words, for input entered with the maximum number of decimal places,

measurements less than or equal to 8000 mm will be converted to within 5 hundredthousandths of an inch and those between 8000 and 25000 mm to within 5 tenthousandths of an inch. Input measurements with fewer decimal places will be

converted with correspondingly less accuracy but still to within one-half unit

in the last decimal place retained in the output.

b. Accuracy of GMINCH

On the computers tested, the program is valid for input measurements between

and 1000 inches. Measurements less than or equal to 800 inches should be entered

with 4 or less decimal places while those greater than 800 inches should be

restricted to at most 3 decimal places. Under these conditions the error in the

converted measurement is not more than one-half unit in the last place retained.

In other words, for input entered with the maximum number of decimal places,

measurements less than or equal to 800 inches will be converted to within 5 tenthousandths of a millimetre and those between 800 and 1000 inches to within 5

thousandths of a millimetre. Input measurements with fewer decimal places will

be converted with correspondingly less accuracy but still to within one-half

unit in the last decimal place retained in the output.

c. Computers with short word lengths

The computers upon which these programs have been tested included one with a 32-

word length and a single precision floating point mantissa of 24 bits. The

52
above described accuracy should be obtained on any computer with equivalent or

greater fixed and floating point word length. The programs are not intended to

be run on computers with lesser capability.

3. Rounding Conventions

GMMETR output in inches contains one more decimal place than the input millimetre measurement.

GMINCH output in millimetres contains one less decimal place than the input

inch measurement.

4. Error and Other Special Conditions

Diagnostics are printed immediately following an incorrect line of input. If

multiple errors occur on the same line, only the first will be recognized and

flagged. The program stops examining the input after the first diagnostic and

requests the user to reenter the line.

Each of the following conditions generates a diagnostic message and a request to

reenter data.

1. Illegal character in input dimension

a. alpha character

b. two consecutive commas

(2)'2. Two consecutive decimal points not separated by a comma.

(1) Two consecutive commas at the end of a line are not detected.

(2) Some computers automatically append decimal points to integers.

53
3. Error in entering maximum table width.

4. Number of dimensions entered exceed maximum 1000 allowed.

Various other conditions are recognized and compensated for without requiring

that the data be reentered.

1. Duplicate input measurements are eliminated, a message to this effect

is printed, and the program proceeds automatically.

2. Imbedded blanks are detected and the program proceeds without a diagnostic message.

3. Blanks appear when input values that are too small are processed.

4. Asterisks are printed on the output table in lieu of quantities which

are too large for the print format specification.

A sample run exercising many of these conditions is illustrated in figure 11.

As in figure 9 lower case letters in parentheses queued onto the figure identify

those parts of the sheet printed by the computer and those by the users.

E. PROGRAMMING INFORMATION

Shown in Appendix 3 are program listings for GMMETR and GMINCH. They are essentially the same with the exception of the key subroutine at the end of each program, the subroutine CONVMM in GMMETR and the subroutine CONVIN in GMINCH.

Detailed comments are generously dispersed throughout the programs and are

identified by the letter "C" as the left most character in the line explaining

the operation of the program.

54
The programs are written in American National Standard FORTRAN and are essentially

machine independent.

Each source program consists of about 400 FORTRAN statements, when tested on the

UNTVAC 1108. Computer memory requirements were approximately 12,000 words.

55
GMMETR ON UNIVAC

ILLUSTRATION OF PROGRAMMED DIAGNOSTICS (user)

ENTER A SINGLE PLUS SIGN, t,

FOR MORE INFORMATION. ELSE, HIT CARRIAGE RETURN. (computer)

+ (user)

ENTER THE DRAWING IDENTIFICATION AND THE MAXIMUM WIDTH ON THE DRAWING

FOR THE MILLIMETRE-INCH CONVERSION TABLE (IN MILLIMETRES). PUT A COMMA

BETWEEN THE TWO ENTRIES. A PAIR OF COLUMNS IS 53.34 MILLIMETRES WIDE.

DIAGNOSTICS FOR GMMETR, 20 ( user ) (computer)

ENTER THE MILLIMETRE DIMENSIONS ON A LINE WITH COMMAS IN BETWEEN.

THE COMPUTER WILL KEEP ASKING FOR ANOTHER LINE OF INPUT UNTIL YOU

INDICATE THAT YOU HAVE NO MORE INPUT BY ENTERING 0. (ZERO) AS THE

LAST NUMBER.

SHOW THE DECIMAL POINT EVEN WITH INTEGERS.

BE CAREFUL IF YOU ENTER A DIMENSION LARGER THAN 25 000 MILLIMETRES

DO NOT ENTER A TOLERANCE SMALLER THAN 0.00 1 MILLIMETRE (computer)

A DIMENSION CANNOT EXCEED 8 00 00 TIMES ITS TOLERANCE.

A.A,B.B,I. I, 1. 0, 1 .0 ,7. . ,9 9. 9,2 5 . 4 , 9 . ,

, 25 . , . (user)

THERE IS AN ILLEGAL CHARACTER IN THE INPUT LINE. (computer)

ONLY POINTS, SINGLE COMMAS, AND THE TEN DIGITS MAY BE USED.

PLEASE REENTER THE LINE.

1.1,1.1,1.1,1.0 1.0,7.. ,9 9. 9,2 5 . 4,9. ,,25000000. ,0. (user)

THE LINE HAS TWO DECIMAL POINTS WITHOUT A COMMA IN BETWEEN. (computer)

PLEASE REENTER THE LINE.

1.1,1.1,1.1,1.0,1.0,7. ,9 9. 9,2 5 4 , 9 . , , 250 . , . THERE IS AN ILLEGAL CHARACTER IN THE INPUT LINE.

ONLY POINTS, SINGLE COMMAS, AND THE TEN DIGITS MAY BE USED.

PLEASE REENTER THE LINE.

(user)

(computer)

1.1,1.1,1.1,1.0,1.0,7. ,9 9. 9,2 5 4,9. ,25 000000. 000,0.

DUPLICATE MEASUREMENT(S) REMOVED.

DIAGNOSTICS FOR GMMETR

(user)

(computer)

MM ( INCH) MM ( INCH) MM ( INCH)

1 .0 .04 1 . 1 . 04 7. .3

9. .4 99.9 3.93 254. 10.0

tt# #•*•»*#•»* *-*#•»*•*»* #

(computer

ENTER THE IDENTIFICATION (COMMA) AND WIDTH FOR ANOTHER TABLE.

TO END PROGRAM, ENTER ANY ALPHABETICAL CHARACTER.

(computer)

Figure 11

56
REFERENCES

1. American Standard FORTRAN, X3. 9-1966 American Standards Association,

Available from American National Standards Institute, 1430 Broadway,

New York, N.Y. 10018.

2. B. G. Ryder, "The FORTRAN Verifier: Users' Guide". The Bell Laboratories,

Computing Science Technical Report #12. Bell Telephone Laboratories, Inc.,

Murray Hill, New Jersey 07974.

3. SAE Standard, Dual Dimensioning - SAE J390, July 1970. The Society of

Automotive Engineers, 2 Pennsylvania Plaza, New York, N.Y. 10001; after

September 1974, 400 Commonwealth Drive, Warrendale, Pennsylvania 15096.

4. SAE Handbook Supplement HS J1066, Recommended Guidelines for Company

Metrication Programs in the Metal Working Industry, July 1974. The Society

of Automotive Engineers, 2 Pennsylvania Plaza, New York, N.Y. 10001; after

September 1974, 400 Commonwealth Drive, Warrendale, Pennsylvania 15096.

5. American Society for Testing and Materials - Metric Practice Guide

E 380-72E. Also designated as American National Standard Z210. 1-1973.

American Society for Testing and Materials, 1916 Race St., Philadelphia,

Pennsylvania 19103.

6. Draft International Standard ISO/DIS2955 submitted 11 January 1973,

Representations for SI and Other Units to be Used in Systems with Limited

Character Sets.

7. American National Standard Z25. 1-1940 reaffirmed 1961, "Rules for Rounding

off Numerical Values." Available from American National Standards Institute,

1430 Broadway, New York, N.Y. 10018.

57

A

B

CD

E

FG

H

IJ

K

L

M

N

P

Q

R

ST

U

V

W

X

Y

Z

1

2

3

4

5

6

78

APPENDIX II

REPRESENTATION OF FORTRAN CHARACTERS

IN ASCII, EBCDIC AND BCD

Character ASCII EBCDIC BCD

lixed*) (Hexadecimal) (Octai

41 CI 61

42 C2 62

43 C3 63

44 C4 64

45 C5 65

46 C6 66

47 C7 67

48 C8 70

49 C9 71

4A Dl 41

4B D2 42

4C D3 43

4D D4 44

4E D5 45

4F D6 46

50 D7 47

51 D8 50

52 D9 51

53 E2 22

54 E3 23

55 E4 24

56 E5 25

57 E6 26

58 E7 27

59 E8 30

5A E9 31

30 FO 12

31 Fl 01

32 F2 02

33 F3 03

34 F4 04

35 F5 05

37 F6 06

37 F7 07

38 F8 10

59
Character ASCII EBCDIC BCD

(Mixed*) (Hexadecimal) (Octai

9 39 F9 11

Blank 20 40 20 = 3D 7E 13 + 2B 4E 60

- 2D 60 40

* 2A 5C 54

/ 2F 61 21

( 28 4D 34

) 29 5D 74

» 2C 6B 33

• 2E 4B 73

$ 24 5B 53

*Left digit is OCTAL, right is HEXADECIMAL.

60
APPENDIX III

LISTING

61
CONTENTS OF TAPE

FILE 1 DOCUMENTATION

FILE 2 METCO PROGRAM

SUBROUTINE ENCODE

SUBROUTINE DECODE

SUBROUTINE DASORT

SUBROUTINE SETUP

SUBROUTINE SIGNIF

SUBROUTINE READER

FUNCTION SUBPROGRAM DROUND

BLOCK DATA SUBPROGRAM

FILE 3 TEST DATA FOR METCO PROGRAM

SAMPLE 1 SAMPLE 2 SAMPLE 3 SAMPLE 4 SAMPLE 5 SAMPLE 6 SAMPLE 7 SAMPLE 8

SAMPLE 9 SAMPLE 10

SAMPLE 11

SAMPLE 12

FILE 4 TEST OUTPUT FOR METCO PROGRAM

SAMPLE 1 SAMPLE 2 SAMPLE 3 SAMPLE 4 SAMPLE 5 SAMPLE 6 SAMPLE 7 SAMPLE 8

SAMPLE 9 SAMPLE 10

SAMPLE 11

SAMPLE 12

FILE 5 GMMETR PROGRAM

SUBROUTINE CONVMM

FILE 6 GMINCH PROGRAM

SUBROUTINE CONVIN

63

64

74

76

7778

79

80

81

82

87

87

87

88

89

90

91

91

95

96

96

96

96

97

97

98

100

102

106

107

108

112

115 116

117

118

119

125

127

133

62
THIS IS FILE 1 OF A MAGNETIC TAPE CONTAINING PROGRAMS FOR

CONVERSION BETWEEN METRIC AND U.S. CUSTOMARY UNITS* PLUS TES"?

DATA AND TEST OUTPUT FOR ONE OF THEM. THE PROGRAMS * TEST DATA

AND TEST OUTPUT EXIST AS SEPARATE FILES ON THE TAPE. EACH FILE

IS TERMINATED BY A TAPE MARK (END-OF-FILE MARK)* EX^FPT THE

LAST FILE IS TERMINATED BY TWO TAPE MARKS. PROGRAMS AMD TEST

DATA ARE REPRESENTED BY 80-CHARACTER CARD IMAGES* 9 CARD IMAGES

PER PHYSICAL TAPE BLOCK. TEST OUTPUT IS REPRESENTED BY 132-

CHARACTER PRINT LINE IMAGES* 3 PRINT LINE IMAGES PEP PHYSICAL

TAPE BLOCK. THE CONTENTS OF THE FILES ON THTS T*PE ARF...

FILE 2. PROGRAM... METCO* METRIC TO U.S. CUSTOMARY CONVFD SIOM.

SOURCE... CATERPILLAR TRACTOR COMPANY.

LANGUAGE... AMERICAN NATIONAL STANDARD FORTRAN.

FILE 3. TEST DATA FOR FILE 2.

FILE **• TEST OUTPUT FOR FILE 2.

FILE 5. PROGRAM... GMMETRf MILLIMETRE TO INCH CONVERSION.

SOURCE... GENERAL MOTORS CORPORATION.

LANGUAGE... AMERICAN NATIONAL STANDARD FORTRAN,

FEATURES... DESIGNED FOR DEMAND TERMINAL USAAF.

FILE 6. PROGRAM... Gm^.nICH* INCH TO MILLIMETRE CONVEPSION.

SOURCE... GENERAL MOTORS CORPORATION.

LANGUAGE... AMERICAN NATIONAL STANDARD FORTRAN.

FEATURES... DESIGNED PQR DEMAND TERMINAL USAGE.

63
cc

c

C CATERPILLAR TRACTOR COMPANY

C 100 NORTHEAST ADAMS STREET

C PEORIA* ILLINOIS 6.1.602 CC PROGRAM BY- R. J. PRATHER

CC TITLF- METRICATION-METRIC TO U. S. CUSTOMARY 06121-545 3 in/in/7^

C PROGRAM 0545

CC IMPLICIT INTEGER ( I - N ) C COMMON 0IN(2» 500) t T0IM(2)

C COMMON IN0UT(16)» IMCARD<30)r INDEXR» MC» KlP» NCHFK» TD(a)»

1 IDCARn(72)» LTSTER(6U), lnOUT(S)» fIMOX(500), MLIST»

2 IOIN(500)

C DOUBLE PRECISION OIN» TPlNr AQOCHG. VALUE* PI.0T» TY^r, CO'!,

1 DIM, «nUNlT» RCONSTf OROUND'

c

C DIN(2» 500)

C STORAGE FOR TOIN - UP TO 500 UNIOUE DIMENSIONS

C

C TDIN(2) REAL TEMPORARY STORAGE

C WORD 1 TYPE OF CONVERSION (INDEX OF LABFL)

C WORD 2 DIMENSION VALUE

C

C INOUT(IS) 16A1

C WORDS 1- 8 INPUT DIMENSION

C WORDS 9-16 OUTPUT DIMENSION (CONVERTED)

CC INCAROC50) 2A<+» RA1» ?A4» flAl» 2AU, Ml

C WORDS 1-2 INPUT IDFNTIFITR

C WORDS 3-10 INPUT DIMENSION

C WORDS 11-20 TAKE THE SAMr p/\ Tj^RM. \S WORDS 1-10

C

C INDEXR - INDEX OF THE 3 PAIRS OF INPUT DIMENSION FOR REr n E'? C SURROUTINE

C

C NC - UNIT NUMBER FOR THE CAPO R^ADE'

C

C NP - UNIT NUMBER FOR THE LIME PRINTER

C

C NCHEK - CHECK VARIABLE FOR THF PRINTING OF TRPOP HELPING

CC ID<4) 4A4

C WORDS 1-2 INPUT THFHTIFIFR

C WORDS 3-4 OUTPUT IDENTIFIER

CC ITDIN INTEGER TEMPORARY STORAGE

C NUMBER OF niGTTS TO THF RIGHT OF tHf DECIMAL POINT

64
IN THE DIMENSION

IDCARDC72) 72A1

WORDS 1- 9 PART NUN'-BER WORDS 10-18 CHANGE NUMRER

WORDS 19-36 TITLE BLOCK TOLE^Anjc^S

WORDS 37-45 CONVERSION TO METRIC OR .U.S. CUSTOMAPY

WORDS 46-72 IDENTIFICATION

IDIN(500)

STORAGE FOR ITDIN - UP TO 500 UNIQUE DIMENSIONS

KINDXC500)

ARRAY GIVING THE LOCATION OF THE SORTrn DIM ftRRAY

LISTER(64) - OUTPUT ARRAY FOR NUMERIC DATA

ID0UT(8) - OUTPUT ARRAY FOR IDENTIFIERS

NLIST - NUMBER OF UNIQUE DIMENSIONS

COMMON / DATA / KTRL(42)> MESAG(40)» LAPEL(5» 50) » 1 TABLE(2» 50) » NLSAVE» NUMLA*» lSTOP(4)» IPLAUK

ZERO OUT ALL OF COMMON

50 CONTINUE

INDEXR = NC = NP = NCHEK = NLIST = TDIN(l) = 0.0D0

TDIN(2) = 0.0D0

DO 60 I = 1» 500

IDIN(I) = KINDX(I) = 60 CONTINUE

DO 70 I = 1» 16

INOUT(I) = IBLANK

70 CONTINUE

DO 80 I- = 1» 4

In(I) = IBLANK

80 CONTINUF

DO 90 I = 1» 72

IDCARD(I) = IBLANK

90 CONTINUE

DO 100 I = 1. 30

INCARD(I) = IBLANK

100 CONTINUE

DO 110 I = 1# 64

LISTER(I) = IBLANK

110 CONTINUE

5f-.no

5p,oo

Sonn

<Snon 61 On

6200

630 n 6')0°

6500

6f-,C n 6700

6«on

6900

700"

75 On

7?oo

7 7 01

jupn

7 r 7f>nn 7700

780"

7QQ0

Pnpo

8 1. n n 820°

830"

p. 4. no 850 o 360

8700

880°

ROOn

9000

950O

930 n

Qti (11 05p«

9^00

0700

9R 00

Pqnn

1 000O

1010O

1020O

1030O

1 04 On

1050O

1 OfvOn

10700

10P0O

1 Oopn

65
no i?o i = i# 8

mouT(i) = trlamk

120 CONTINUE

DO 130 I = lr 50

DINU , I) = 0.0D n DIN(2» I) = 0.0D0

c

c

130 CONTINUF

NC = CARD READER UNIT NUMRFP

c

c NP = PRINTER UNIT fJI.IMRER

MC=5

NP=6

c

c

c

c

1

rj0 CONTINUE

READ PART NUMBER » CHG NUMBER • AND

READ ( NCi 200 ) TDCARD

2.00 FORMAT ( 72A1 ) IF ( IUCARD(l) .EQ. ISTOPd)

1 .AND. IDCARD(2) . r O. IST0P(2)

2 .AND. IDCARD(3) .FO. ISTnp(3)

3 .AND. IDCARDU) .FO. IST0P(4)

1 1000

1 1 1 " ll?0n

1 l'.on

1 ldr.o 1150"

1 Ifino

1 1700

1 I n

1 non 12000

1210

1220"

1 2300

1 2'i00

1 2^00

CO'^'FNTS 12f-0o

1 570

12P0O

12°0O

1 300"

13100

1 3?C°

RQ T 1 ^000 C 1330O

1 34Q0

NX=0 A 134?^

DO 300 I = 1# 8 13^00

INOUT(I) = IDCARDd + 1 =>

)

! 360G

IF ( INOUT(I).EQ. KTRL(l'O) MX = ".* + ! A 1.365"

300 CONTINUE 1 3">oo IF ( NX .EQ.fi) IDCARD (23) = KTRL(1> A 1375^

CALL DECODE ( 1» 8» ADDCHG. J ) 13801

NX=0 A 13050

DO 400 I = 1# 8 13H00

INOUT(I) = IDCARDfl + 27) 14000

IF ( INOUT(I).EQ. KTRLd4)) MX = NX + 1 A 14050

400 CONTINUE 141P0

IF ( NX . EQ . fi) IDCARO (2?) = KTRL(2) A 1415°

CALL DECODE ( It fir VALUF, J ) 14200

NCOLS1 = IDINT ( VALUE ) 14300

IF ( NC0LS1 .LF. ) NCOL^l = 1 1 4400

IF ( NCOLS1 ,GT. 4 ) NCOLS1 = 4 1450"

N* = f> 14550

DO 500 I = 1, 8 1460"

INOUT(I) = IDCARDd + 36) 1470"

IF ( IN0UT(I).EQ. KTRL(14)) NX = N'X + 1 A 14750

500 CONTINUE 14fi00 IF ( NX . FQ . 3) IDCARD (3^) = KTRl.(2) A 14fi50

CALL DECODE ( 1, fi. VALUE* J ) 14P00

NC0LS2 = IDINT ( VALUF ) 1500"

IF ( NC0LS2 .LE. ) NC0LS2 =1 15100

IF ( NC0LS2 .GT. 2 ) MCOL^2 = 2 15200

NX=0 A I525 n DO 600 I = 1, 8 1530O

66
600

MX r NX + j

J )

700

INOUT(I) = IDCARDd + 48)

IF ( INOUTCD.EQ. KTRL(14))

CONTINUE

IF ( NX . EG . 8) IDCARD (^0) = KTRLd)

CALL DECODE ( If 8» VALUFf

NUMID = IDINT ( VALUE ) DO 700 I = 1» 8

INOUKI) = IDCARDd + 54)

CONTINUE

CALL DECODE ( 1» Q» PLOT* ) PRINT OUT PART NUMRER CARP

900

WRITE ( NP» 900 ) IDCARD

format ( im»

1 45H METRIC - U.S. CUSTOMARY CONVERSION TABL^ / /

2 53H NUMBER OP , 3 52H NUMRER OF /

4 53H PART OUTPUT C^LUM . 5 52HNS ADDED / 6 53H NUMBER CHANGE ADDITIONS MM » 7 52H0THER IDENTIFIERS PLOT 9FJ*APKS /

8 1H » 8 ( 9A1» 4X ) / ) READ IN ADDITIONAL IDENTIFIERS AND CONVERSION FACTORS

IF ( ITEMP1

ITEMP2

ITEMP3

ITEMP4

ITEMP5

ATEMP1

ATEMP?

DO 1300

) GO

NUMLAP)

NUMLAR)

NUMLAR)

NUMLAR)

NUMLAR)

NUMLAR)

NUMLAR)

NUMID

IF (NUMLAR. LE. 49) GO TO 1000

READ (NC»1200) (LISTER ( I) »I=1 »20)

WRITE (NP»1210) (LISTER(I)»I=lr?0)

NUMID ,EQ.

= LARELCN

= LAREL(2»

= LAREL(3»

= LABEL(4>

= LAREL(5»

= TABLE(1»

= TADLE(2»

J = 1,

TO 2100

1?00 FORMAT (20A4)

1210 FORMAT (20H EXCESS IDFNTIFIER »20Af+ ) GO TO 1300

1000 READ ( NCr 1100 ) ( LARFL(I> NUMLAP,)*

L TABLE(1» NUMLAB)* TABLF(2» NUMLAR)

1100 FORMAT ( 2A4» IX, 2A4f 1X» TQ» 2P^.n

NUMLAB = iJUMLAB + 1 1300 CONTINUE

LABELdr NUMLAB) = I TEMPI

LABEL (2» NUMLAR) = ITEMP2

LABEL(3# NUMLAR) = ITEMP3

LABEL(4» NUMLAP) = ITh.MP4

LABEL(5» NUMLAR) = TTEMP5

TABLEd, NUMLAB) = ATEMP

1

TABLE (2 f NUMLAB) = ATEMP2

NX - NUMl AB- 2

= 1 > f

1 5uQn

A 1545"

15S0P

A 1555"

1.5600

1 57QP

1 5P0O

1 sgnn

16000

.16100

1620"

I6^nn

16400

16Snn

1660"

1670

16800

i 6°on

1700^

1. 7 1

1 7? no 17^nn

17400

1 75QP

17600

1770O

17pnn

1 7 on o 1*00°

1 8 1'tn

1 82 On

1 8 3

n

1 Run"

1 p. «s

1 860 P A '861"

A !R6?0

A 1 qf^r

A 1 8640

A i 8 6SO

A 1 P. e, f, n C 1 ^7n n

1 P. P. P.

y q n n

1 Q0 nn

1Q1 0"

i qppn

1 a 7 p. o

1 O/i Q n

1 Qc^OO

1 P60

1 Q7pri

1 O q Q n A 1 p 1 n

67
NMX = NX + 1 A 19R20

WRITE ( NP» 1500 ) NX C 19Q00

1600 FORMAT ( 40H0NUMBER OF ENTRIES IN COMVr:psion taple = > 9000O

1 IB / / / '01.00

I 73H IDENTIFIER IDENTIFIER ROUND CONVERSION ROUNDING '0200

3 / 9030O

+ 73H IN OUT TECHNIQUE FACTOR UNIT ?0400

i 5 / ) 20500

c 9060O

Do 1«00 J = 2» NMX C ?0700

WRITE ( MP» 1700 ) ( LARELCTt J)

T = lr 5 ) » 9080"

1 TARLEdf J). TABLE(2» J) ?oqoo

1700 FORMAT ( 1H t 2A4» 4X» 2A4> 4X' I ii 2F12. r

; ) O100 n IF ( J .GE. NLSAVE .AND. J .l.T. ! !'.)"LAP ) 2110O

1 WRITE ( NP> 180 ) 91200

1800 FORMAT ( lH+# 60Xr 35H**** TUTS IS « r^MprPARY ENTRY *** + ) 91300

1900 CONTINUE 91400

WRITE ( MP» 12300 ) 91RQ0

2100 CONTINUE 9160O

C 21 7 00

M = 1 91R0O

3700 CONTINUE 21900

C 9200O

C CLEAR ALI TEMPORARY STORAGE RFFORF RE am iG IN DIMENSION DAT* 22100

C 22200

00 3800 I = 1» 16 92300

INOUT(I) = KTBL(14) "52400

3600 CONTINUE 29=;n"

TDIN(1) = 0.000 2260O

TniN(2) = o.ono 2270O

ITDIN = 22800

10(1) = IBLANK 2990O

10(2) = IBLANK 9300"

10(3) = IBLANK' 9310O

ID(4) = IBLANK 9320O

C 93300

C READ DIMENSION ANO IDENTIFIER ( 3 PAIRS AT A TTMF ) 93U0O

c 93B0O

CALL REAPER 9360O

c 93700

c SEARCH LABEL ARRAY FOR PROPER IDENTIFIER 9380O

c 93°0O

DO 4400 I = lr NIJMLA3 94000

DO 4300 J = 1, 2 2410O

IE ( ID(J) .ME. LAREHJr I) ) GO r 1 4 4 ?it?nn

4MJ0 CONTINUE 94300

GO TO 5100 24400

1*4 00 CONTINUE 94500

ImDEX = 1 2460"

4&00 CONTINUE 94700

IF ( NCHFK ) 490"i» 4700 » 4900 94P0O

4700 CONTINUE 94900

C °500n

C PRINT THIS HEADING IE A LEAST ONE ERROR IS FOUNn 2510O

68
c WRITE ( MP. 4800 ) 4^00 FORMAT ( 70nn LISTED « r L^W <\nE Tur I 1YPE OF ERROR(S) . / 61.H0DJMFNSION

2 / ) MCHEK — NCHEK + 1 4900

CC

CONTINUE

PRINT i 3AU CARD AMD IDENTIFY ERROR

-><5?0n 95:*nn

iPUT ^ATf CARD(S) WITH c OMr T 95400

IDENTIFIER FRROP "rYP^ ossoo

25600

25800

95900

9f,nnn

C 96100

INDEX = ( INDEX - 1 ) * 8 9620O

U=INPEX+1 A 26210

I8=INDEX+8 A 26220

WRITE ( NP> 5000 ) ( INOUT.(I)f T - 1. 8 ). 26300

1 ID(1). ID(2). ( ^r SAG( I >» I = I1» J8 ) C 26400

5000 FORMAT { 1H » SA1. 4X. ?A4» 6V. RA4 ) 96^0"

GO TO 3700 26600

5100 CONTINUE ^6700

C 26800

C DETERMINE TYPE OF IDENTIFIER ?&QOn

C "57000 IF ( I .EQ. NUMLAR ) GO TO 9500 07300

TDIN(l) = I ?7?0o

C "7300

C DECODE DIMENSION INTO THIN AMD ITDlN 27400

C 97500

CALL DECODE ( If 8. VALUE. TTfHN ) 9760O

TDIN(2) = VALUE "770O

C ?7P0O

C CHECK FOR ILLFGAL CHARACTERS TN DIMENSION P7Q0O

C 2800O

IF ( ITDIN + 1 ) 61C0. 37C0. <=>200 2810O

6100 CONTINUE "8200

INDEX = 2 ^8300

GO TO 4600 98400

6200 CONTINUE 98500

C 2860O

C WRITE DIAGNOSTIC IF MORE THAN 500 UNlOUE IMPUT CAF^S v>r GTVFN 2*700

C 28800

IF ( N - 500 ) 8600. 8600. 8500 "8P0O

8500 CONTINUE 29000

INDEX = 3 99100

GO TO 4600 99200

8600 CONTINUE 99300

IF ( N - 1 ) 8700. 8700. oc»00 oq^oo

8700 CONTINUE 29500

C 9q6 oo

C TRANSFER ALL TFMPORARY STORAGF TD PERMANENT STORAGE AND THFN .GO 99700

C RACK AND READ ANOTHER CARD STO1

"5 MUST BE LAST IDENTIFIER P980O

C 99QQ0

DIN(1. N) = TDIN(I) 30000

DIN(2. N) = TDIN(2) 30100

IDIN(N) = ITDIN 3020O

N = N + 1 30300

69
60 TO 3700 -rnunn C ^osni"

C BEGIN EDIT OF DATA -*06HO

C THROW OUT DATA WHEN SAV£ PREVIOUS DAT<\ HAS ALr FACY BEEN -*970n C ENCOUNTERED 'Ogpn

C ^Qonn

8900 CONTINUE 71P0O

L = N - 1 Ml On

DO 9200 I = 1» L M20O

DO 9000 J = 1» .9 M30O

IF ( TOIN(J) - DIN(J» I) ) 9?00» 9000. 920" M400

9000 CONTINUE 71S0O

IF ( ITDIN - IDIN(I) ) 92.00* 9100, 92.00 ^lftO^

9100 CONTINUE 71^00

GO TO 3700 7lpnn

9200 CONTINUE 'loon

GO TO 8700 ^2Q0n

C 72100

C BEGIN SORT OF DATA 722C-0 C NUMBER KINDX ARRAY FROM i TO 500 ^2700

C T?uOo

9500 CONTINUE 7250"

NLIST = N - 1 72600

C "<27P0

C NLIST = THE NUMRER OF OUTPUT TTFMS "*?R0n C

T 2°0 ri IF ( NLIST .LE. ) GO TO 50 "3000

DO 9600 I = 1» 500 ^710"

KINDX(I) = I 73200

9600 CONTINUE 7330*

CALL DASORT 7340P

DO 9700 K = 1» NLIST -*7R0n

I = KINDX(K) -<3600

TYPE = DIN(1» I) 73700

IP ( TYPE .GT. 1.0D0 ) GO TO °800 73R0"

9700 CONTINUE T3o no NTYPE1 = NLIST ^4000

NTYPE2 = ^100

GO TO 9900 7420P

9800 CONTINUE 74700

NTYPEl = K - 1 74400

NTYPE? = NLIST - NTYPE1 74500

9900 CONTINUE ^4600

C 74700

C BEGIN PRINT OUT OF INPUT DATA AND ANSWERS ^4P0O

C -*4Q0O C BEGIN TYPE 1 PRINT OUTS (MILLIMETRE TO IMCH CONVERSION) ^5000

C ^5100

C CONVERT FROM METRIC TO ENGLISH UNITS ^5200

C 75300

CON = 1.0D0 / 25.4D0 35400

IF ( NTYPE1 .LE. ) GO TO 12600 ^5500

NLINES = ( NTYPE1 + NCOLS1 - 1 ) / N ! C0LS1 3560O

KOUimi = 75700

70
DO 12500 NLINE = 1» NLINFS 35800

KOUNT = KOUNT + 1 "^5ooo

IF ( NLINE - 1 ) 10500* 10000» losoo 76000

10000 CONTINUE 76100

C 76200

C SKIP PAGE AND PRINT HEADING FOR MM TO IN CONVERSION'S -*630P

c **64on

WRITE (NPtlOOlO) (IDCARD(L)> L=l»12) A 76450

10010 FORMAT ( 6H1PART »8AlrlOH CHANGE ,^l) A "<6"fS0 GO TO ( 10020» I0060f 10120» 10160 )» NfOL^l ^6500

10020 CONTINUE "*6600

WRITE (NP»10040) C '67^0

10040 FORMAT ( 1H0» 1 <2HMM»8X»4HINCH» 10X) ) C '6R0O

GO TO 10190 7710"

10060 CONTINUE "*7200

WRITE (NP»100b0> C '7300

10080 FORMAT ( 1H0» 2 (2HMM» 8X»4HINCH» 10X)

)

C 77U0O

GO TO 10190 '7700

10120 CONTINUE 77800

WRITE (NP»10140) C ^7900

10140 FORMAT ( IHOr 3 (2HMM»8X» 4HINCH» 10X) ) C '800"

GO TO 10190 7070"

10160 CONTINUE ^A'jOO

WRITE (NPrlOl^O) C '8500

10180 FORMAT ( 1H0» 4 (2HMM» 8X» 4HINCH* 10X)

)

C 7^600

10190 CONTINUE 78900

i 101+00 CONTINUE 79400

10500 CONTINUE 'Q50n

DO 10600 I = 1» 64 79600

LISTER(I) = IBLANK 7970^

10600 CONTINUE ?Popo

DO 12100 NCOL = If NC0LS1 TQoqn

K = ( NCOL - 1 ) * NLINES + ML INF "000°

IF ( K .GT. NTYPF1 ) GO TO 12100 "0100

I = KINDX(K) 'JO?00

C "030P

C CLEAR ALL TEMPORARY ARRAYS BEFORE LOADING WITM CHAPACTFRS ^O^ '-+040O C PRINTING 40500

C "060^

DO 10700 J = 1* 16 "0700

INOUT(J) = KTBL(14) 'lOflOP 10700 CONTINUE "0900

TDIN(l) = 0.0D0 "1000

TDIN(2) = 0.0D0 "Hon

ITDIN = «!l?0o

TDIN(l) = DIN(1, I) '1.1300 TDIN(2) = DIN<2» I) "l<+00

ITDIN r IDIN(I) "ISOO

C '+ 1 6 n o C INPUT DIMENSION PREPARATION "17fio

C <l 1 °. n VALUE = TDIN(2) UlQOn

CALL ENCODE ( b 8» VALUE* TTnp- ) "200"

C "210O

71
C ROUND TO 1 MORE PLACE TO THE RIGHT OF THE nEC T M/J|_ PQI ,|T THAN! U2?0"

C GIVEN IN THE DIMENSION VALUE WITH A MINIMUM Of 3 "?^QO

C 42400

IPLACE = ITDIM + 1 42 c,no IF ( ..

J LACE - 3 ) 119C0» 12000, 1"?000 U2600

11900 CONTINUE 'i27nn

C 42800

C MINIMUM OF 3 PLACES ROUND OFF 42900

C 'i3P0n

IPLACE = 3 i*3! no 12000 CONTINUE '^?^

C 'i330 r C CONVERT DIMENSION* ROUND TO PROPER NU'-'BER OF PLACES AMD PLACr IN "340"

C ARRAY READY FOR PRINTING 43Son

C <436QO

DIM = TDIN(2) * COM 437QO

DIM = DARS ( DIM > 43A0O

DIM = DROUNO ( DIM, IPLACE ) i|3o n o CALL ENCODE ( 9» 16, DIM, IPLAC^ ) 44000

MYLINE = ( NCOL - I ) * 16 44mn

DO 12050 J = It 16 '14200

JJ=MYLINE+J A 44250

LISTER( JJ ) '= TMOUT(J) C hi+^pi

12050 CONTINUE uuuqn

12100 CONTINUE 44500

C 4460O

C PRINT ORIGINAL INPUT DATA AND CONVERTED DMA "470^

IF ( KOUNT . FQ . 1 ) WRITE ( NPr 12300 ) A U47SO

C U4F.0.n WRITE ( NP, 12200 ) ( LISTER(J), J : ' li 64 ) Mt+o n 12200 FORMAT ( 1H t 8A1, 2X» 8A1, 6X» 8Al» ?X, °A1, 6V, RAl» C 4500.P

1 2X» 8A1» 6X» RAl» 2X> 8A1 ) C 45*00

IF ( MOD ( KOUNT, 5 ) .EO. > WRITr ( NP, i?30C ) 45200

12300 FORMAT ( 1H ) 45300

12500 CONTINUE 45400

12600 CONTINUE 4550O

C U560O

C GREATER THAN TYPE 1 CONVERSION DATA ( OTHER THAN MM T^ IN ) 45700

C U5R0O

IF ( NTYPE2 , .LE. ) GO TO 15O00 U5oon

KOUNT = 'ifio on NLINES = ( NLIST - NTYPE1 + NCOLS? - 1 ) / NCOI S? U61P0

DO 14000 NLINE = I, NLINFS U620O

KOUNT = KOUNT + I 4630

IF ( NLINE - 1 ) 13000» t2800» t3000 16400

12P00 CONTINUE "6500

C u660n

C SKIP 2 LINES AND PRINT HEADING FOR OTHER THAN MM TO IN CONVERSIONS 46700

C 46*0

WRITE (NP, 10010) <IDCARUiL)» L=l»12) A 46*50

IF ( NCOLS2 .EO. 1 ) 46Q0O

1 WRITE ( NP# 12860 ) C U7000

12850 FORMAT ( 1H0» C 47100

2 2 ( 3HDIM, 7X» 5HIJNITS» 6X ) ) M730O

72
IF ( NC0LS2 .EQ. 2 ) 1 WRITE ( NPf 12900 ) 12900 FORMAT ( lhO»

2 2(3hdim»7x»5hunits»6x»^hdim»7x»5hunits»«*) ) 12975 continue

13000 continue

DO 13025 I = 1 t 32

LISTER(I) = IBLANK

13025 CONTINUE

DO 13050 I = \f 8

IDOUT(I) = IBLANK

13050 CONTINUE

DO 13800 NCOL = 1 » NC0LS2

K = ( NCOL - 1 ) * NLINES + NLINE + MTYPE1

IF ( K .GT. NLIST ) GO TO 13800

I = KINHX(K)

C

C

I C

C

CLEAR ALL TEMPORARY ARRAYS BEFORE LOADING WITH CHA^ACTFRS c OR

PRINTING

DO 13100 J = \> 16

INOUT(J) = KTRL(14)

13100 CONTINUE

DO 13200 J = lr 4 ID(J) = IBLANK

13200 CONTINUE

TDIN(I) = o.odo

TDIN(2) = 0.0D0

ITOIN = TDIM(l) = DIN(1. I)

TDIN(2) = DIN(2i I)

ITDIN = IDIN(I)

Ccc

c

c

INPUT DIMFNSION PREPARATION

VALUE = TDIN(2)

CALL ENCODE ( 1

»

R» VALUE* TTniM ) SETUP INPUT AND OUTPUT IDENTIFIERS

CALCULATE CONVERSION CONSTANT

SETUP TYPF OF PRINT OUT

N = TDIN(1)

10(1) = LA6EL(1» M)

10(2) = LABEL(2. N) ID (3) = LABEL (3, N)

IDU) = LAB^LU, M)

IPLACF = LABFL(5» M)

CON = TABLEdf N> RDUNIT = TAnLE(2» N)

CONVERT DIMENSION AND CHCCK SPECIAL C"SF TOR DFGRF^ C xO r'-pr rFDIM = TDIN(?) * DABS ( COM )

47400

47soo

n760o

47800

4R30O

484

48500

4860O

(18700

43B00

48900

'19000

491.0

49200

40300

494

40^00

49600

49700

UQfiOO

uqqon

^0000

soioo

^0200

^0300

c;040o

c;050o

S060O

S0700

^080^

S0Q00

^1000

51100

^l?oo

S1300

51400

S150"

U60O

M700

SlftOO

^1900

^2000

^2100

^2200

F230O

S240O

^2500

^2600

^2700

^2800

^2^00

s3no',> ^3100

^32°o

73
i.O n P ) DIM = OTV

13400 f 13400 » 1.3300 IF ( COM .LT.

IF ( RuUNIT ) 3300 continuf

rconst = o.sdo

if ( dim .lt. 0.0h0) rconst - idim = dim / rdunit + rconst

DIM = IDIM

DIM = Qiv * RDUNIT

3400 CONTINUE

CALL SETUP ( DIM, TPLACE ) MYLINE = ( NCOL - 1 ) * DO 1350U J = If 1ft JJ=MYLINE+J

LISTER ( J J ) = INOUT(J)

3^00 CONTINUE

NCOL - I ) * = lr 4

3?. 000

-0.5D0

lft

MYLINE = ( DO 1360U J

JJ=MYLINE+J

IDOUT( J

J

3600 CONTINUE

3B00 CONTINUE

) = ID (J)

PRINT OUT ALL INPUT DATA AND ALL CONVERTED VA' UFS '-'IT'i i\pr>r>^nr>i i\jc

IDENTIFIERS

IF ( KOUNT . c-Q . 1 ) WRI.TF (

f iP» 12^00 > A WRITE ( NP» 13Q00 ) ( LISTER (J) t J = If n ) , 1 IDOUT(l)f IDOUT(2)» ( LISTER(J) > J = ^f I ft ) » 2 ID0UT(3)f ID0UT(4)» ( LIST^Rt J) » J - 1 7r '4 ) t 3 IDOUT(5)r IDOUT(6)» ( LISTERt J) f J = 2

c f 32 ) . 4 ID0UT(7)» TDOUT(a)

13900 FORMAT ( 1H t BA1» ?\t 2A4* ^xt 8A1# ?Xf ?A4»

1 6X . RAlf 2Xf 2A4» 3X» OAlf ?Xf ?A4 ) IF ( MOD ( KOUNT* 5 ) .EC. ) WRITE ( MP»

14000 CONTINUE

15000 CONTINUE

GO TO 50

16000 WRITE ( NPr lftOOl ) 16001 FORMAT ( 10H1 ) STOP

END

SUBROUTINE ENCODE < lr J» R» NO" )

12301 )

THIS SUBROUTINE TAKES a REAL NUMERIC WORD AND EXAMINES EACH

CHARACTER. IT THEN TAKES THE REAL WORD AND BUILDS VP AN ALPHABETIC CHARACTER ARRAY (Al)

INOUT - ALPHABETIC CHARACTER ARRAY

I - BEGINNING WORD IN INOUT ARRAY

J - LAST WORD IN INOUT ARRAY

R - REAL NUMBER

NDR - NUMBER OF PLACES TO THE RIGHT nr THF DECIMAL POINT

53400

5350"

5360"

^3700

^3P00

K3npn

541 01

R4201

5430"

S440n

B4450

5450"

^460"

54700

5 '4800 ^4ft5i

S4°00

K 500O

^510n

ft5200

^530n

^540 n S5450

ft550O

^ftftO" R5700

S5B0"

55900

^6000

S6101

5620 n 5630"

^6400

56500

56600

"^661"

5662"

^6630

5670

57100

^7?0"

5730°

5740O

•^7500

=;760O

S770n

^7*0"

57900

^8000

= 8100

5B200

58300

74
.1, J» R» AND NDR MUST BE GIVEN

INOUT IS OUTPUT

IMPLICIT INTEGER ( I - N ) COMMON DIN(2» 500) t TDIN(2)

COMMON INOUT (16)

DOUB'-E PRECISION OIN» TDlN» P» AR

COMMON / DATA / KTBL(42)» MESAG(40)> LAREL(5» 50),

1 TABLE<2» 50) t NLSAVEf NUMLAR* ISTOP(U), TPLA MK

DO 100 N = I» J

INJOUT(N) = KTBL(14)

ioo continue

IF ( NOR ) 200* ^OOf 300

200 CONTINUE

RETURN

300 CONTINUE

IF ( R ) 500» 400» 500

400 CONTINUE

INOUT(I) = RrTURN

KTBL(l)

500 CONTINUE

NTC = n NDL = IDCML = 1 N = I AR = R IF ( R ) 600» 700» 700

600 CONTINUE

AR = -R

NTC = 1 N = N + INOUT(I) =

1 KTBL(12)

700 CONTINUE

IR = AR

»

800 CONTINUE

IF ( IR - IDC^L ) 1000» Q u0

900 CONTINUE

NDL = NDL + 1 IDCML = IDCML * 10

GO TO 800

1000 CONTINUE

NTC = NTC + NDL + NDR + 1 IF ( NTC - ( J - I + 1 ) 1100 CONTINUE

RETURN

->o

) i?on, l?pn, noo

1200 CONTINUE

Sfluon

S850n

c;860n

58700

S8fl0c

^9100

^92

S9300

^9600

SQ70H

sgpnn

60000

(=-oir^

P.020O

£.0300

60400

«=.n50o 6060O

f»070O

60P0O

f=>0P0 n 6inno

(^ 1. 1 n n r-,l?nn

^l.^oo

f: 1 1\ n o ^150°

P. 1 6

M7P0

(=> 1 p. o

f- 1 ? n n P>2nn^

621 On

62? oo 6240^

P,?60n

^2r-,nr

P,^70n

^2." no

6300O

63100

fi320n

£3"*Po

63400

£v3snn

A3^no

75
inCP = MTC - MOR + 1-1 f.370"

INOUT(IDCP) = KTBLU3) ^310"

IR = AR * io.odo ** NDR + 0.190 63QQn

IDCML = 10 ** ( MDL + NDR - ! ) 640,00

1300 CONTINUE A4l0n

IN = IR / IDCML M»20n

IR =. IR - IN * IOCML 64300

IF ( N - IDCP ) 1500> 1400» 1^00 64400

1400 CONTINUE K4500

N = N + 1 64600

1500 CONTINUE *>4700

INOUT(N) = KTBLdN + 1) ^4^nn

N = N + 1 Al+qno

IDCML = IDCML / 10 65000

IF ( IDCML ) 130n# 1600» 1300 ^510^

1600 CONTINUE (=.5200

RETURN 65300

END P.5400

SUBROUTINE DECODE ( I» J» R» NOR ) 6580O

C frftnnr C ThIS SUBROUTINE TAKES AN ALPHABETIC ARRAY IN f Al ) HJD FXAmTNF^ 66100

C EACH CHARACTER TO DEVELOP A REAL WORD ^6?no

C 66300

CCI-INOUT - ALPHABETIC- ARRAY A6'400

BEGINNING WORD IN INOUT ARRAY 6650*

C J LAST WORD IN INOUT ARRAY 66600

C R REAL WORD 66700

C NDR - NUMBER OF DFCIMAL PLACES TO THE RIGHT OF THE' DECIMAL 5680*

C POINT 66900

c A7nn n C ImOUT* I AND J ARE INPUT DATA 67100

C R AND NDR ARE OUTPUT DATA ^7^01

C ^73no

C 6740"

C IMPLICIT INTEGER ( I - N ) 67500

C 67601

COMMON DIN(2» 500) > TDIN(2> 6770"

C 67P0^

COMMON INOUT (16) ^7<->00 C f.8000

DOUBLE PRECISION DIN» TDIN» R» SEYEGf!, DCML C 68100

C 68?Qn

COMMON, / DATA / KTRL(42)» MESAG(40)r LAPEL. (5» 501 , C 68300

1 TABLE<2» 50) » MLSAVEr NUMLAB* ISTOP(U)r IRLA"'K A 6835"

C <=,8uno IR = 6«500

NDR = 6860 n K = 68700

IDCML = 1 68800

NSW = Aoonn

SEYEGN = 1.0D0 (=.9000

KTBL11 = 69100

KTBL12 = 69?00

76
KTBL13 = f.9300

DO 1000 M = I, J 69400

NC = INOUT(N) 59500

IF ( NC .EO. KTBL<14) ) GO TO 1000 loon 69600

GO TO QOO

GO TO una

IF ( NC .EO. KTRL(13) ) GO TO Q 00 69700

IF ( NC .NF. KTBL<12) ) GO TO 400 f.9800

SEYEGN = -1.0P0 K990O

IF ( KTBL11 ) 550» 35C» 550 70000

350 CONTINUE 70100

KTBL12 = KTRL12 + 1 70200

IF ( KTBL12 - 1 ) 550r 100O, S50 70700

400 CONTINUE 7040O

DO 500 K = It 11 70500

IF ( NC .EQ. KTBL(K) ) GO TO *00 70600

500 CONTINUE 70700

550 CONTIMUF 70B00

NDR = -2 70Q0O

R = 0.0D0 71000

RETURN 71100

C 71200

(S00 CONTINUE 713C0

IF ( K - 10 ) 700, 700» 950 71400

700 CONTINUE 71500

IR = IR * 10 + K - 1 7lf,oo

IF ( NSW ) 800, 1000» POO 71700

800 CONTINUE 71roo

IDCML = IDCML * 10 71900

MDR = NOP + 1 72000

GO TO 1000 72100

900 CONTINUE 72200

NSW = 1 7230O

KTBL13 = KTBL13 + 1 72400

TF ( KTRL13 - 1 ) 550, 1000» 550 72500

950 CONTINUE 72600

IF ( KTPL12 ) 550, 975* 550 7270O

975 CONTINUE ->2P0O

KTBL11 = KTBL11 + 1 72Q0O

IF ( KTRL11 - 1 ) 550, 1000» ^50 7300O

1U00 CONTINUE 73100

DCML = IDCML 73200

R = IR 7370O

R = R / DCML * SFYEPN 7-5400

IF ( K ) 1200, 1100, 1200- ">350n

1100 CONTINUE 7360O

NOR = -1 73700

1200 CONTINUE 73*00

RETURN 73°00

END "'lOOO

SUBROUTINE DASORT 74400

C -74^00

C 746Q0

C THIS SUBROUTINE SORTS THE LARGE ARRAY OF TN°UT pi ^NSTONS T NTO 74700

C ASCENDING ORDEP T4«0O

C 74Q0O

77
C DIN - ARRAY OF T'PUT pATA 750Q0

C KINDX - ARRAY SHOWING THE SORTFD OP-^R ^P DTM "^lOO

C 75200

C IMPLICIT INTEGER ( T - N ) 75300

C 75U0O

COMMON DIN(2» 500), TDIN(2) 75S0O

C -*5fiOn COMMON IM0UT(16)t IMC\RO(30)# INDE*R» NC » MP, N^ UFK» Tn(U), "^OO

1 I0CARD(7<:)» LISTFR (6*») # ID0UT(8), KTMPX(500), MLTST, 7580O

2 IDIN(^OO) 7590O

C 7600O

"" JBLF PRECISION DIN» TOIM 76100

C 78?0o

MMM = NLIST 7630

100 CONTINUF 76^on

MMM = MMM / Z 7£,500 IF ( MMM - 1 ) ^no» 300, 300 76600

PJO CONTINUE 76700

RETURN 76R0O

C 76900

300 CONTINUE 77000

M = MMM +1 77100

DO 1000 1= M » NLIST "'7?0O

j r I MMM 77300

KI = KIMDX(I) 7740O

KJ = KINPX(J) 7750O

DO 400 MM = 1» ? 77600

IF ( DIM(NN» KI) - DIN(NN» KJ) ) rn'it '(00, 10"° 7770O

'lOO CONTINUE 77P0O

GO TO 1000 77900

500 CONTINUE 78000

L = I 781Q0

nOO CONTINUE 7820

KINDX(L) = KJ 7830O

L = J 7BU0O

J = J - MMM 7gson

IF ( J - 1 ) 900, 700» 70'' 78f,0o

700 CONTINUE 78700

KJ = KINDX(J) 7(?P0O

DO ROO NN = 1» 2 79O0O

IF ( DIN(NN» KI) - DIN(NN» KJ) ) 600, POO, 900 79000

:->00 CONTINUE 791 QO

OOO CONTINUE 79200

KINDX(L) = KI 79300

1000 CONTINUE 79400

GO TO 100 79500

END 79600

SUBROUTINE SETUP ( PIN, IPLACF > flOOOO

C O010O

C P0200

C IHIS SUBROUTINE EXAMINES THE CONVERTED VALUES OF miuiFH^IOM A0300

C AND ALONG WITH THE PRINT OPTION (IPLACF) DECTDES H^W POUOO

C MANY PLACES TO THE RIGHT OF THE DECIMAL PoTNT TO PRINT OUT f>0500

C 80600

78
NO MORE THAN 3 SIGNIFICANT DIGITS ARE PRINTED OUT

DIM - CONVERTED DIMENSION

IPLACE - PRINT OPTION

IMPLICIT INTEGER ( T - N ) COMMON DIN(2* 500) t TDIN<2)

COMMON IN0UTU6)

DOUBLE PRECISION DIN» TDIN» HIM» DROUND

COMMON / DATA / KT^LU2)» MESAG(40)» LAnEL(5» 50) , 1 TABLE(2» 50) > NLSAV^f NUMLARr IST0P(4)» TBL.AMK

IF ( DIM .EG. 0.0D0) GO TO 1000

LARGE t MPl ACE ) 300» 100

CALL SIGMIF ( DIM»

IF ( LARGE ) "500. 100 CONTINUE

DO 200 J = <3» 16

INOUT(J) = KTBL(41)

POO CONTINUE

RETUKN

300 CONTINUE

IF ( MPLACE ) 400 » 500 » 500

400 CONTINUE

IVAL = GO TO 600

500 CONTINUE

IVAL = MPLACE

600 CONTINUE

NDR = IVAL

IF ( IPLACE ) 700 CONTINUE

DIM = DROUND

800 CONTINUE

CALL ENCODE ( RETURN

70n» 900» 900

( DTMr IVAL )

9> 16 t DIM» NPP )

Q00 CONTINUE

NDR = MINO ( NDRr

IVAL = NDR

GO TO 700

1000 CONTINUE

NDR = C GO TO 800

END

SUBROUTINE SIGMIF (

IPLACE )

value » LARGE » IPL'VCE ) c

c

C THIS SUBROUTINE DETERMINES THE NUMRFR OP STGNTFTC?A! T ^rrlIT q C GIVEN A DIMENSION VALUE

P070O

oopoo

pOQQp

PlOOn

Pi ion

R 1 ? o n p \ 3

n

p. l n o n PlRpo

qi6oo

n 17(10

p. 1 p o 1 PlQPO

a^noo

P20^ n P 2 1 n P 2 2 o P2300

P 2 4 p? c no

P2(^oo

P 2 7 P o «2P0n

o?ono

p 3 n n o

P3.1 no

P 3 o P3.300

P 3/10

P350 n 3600

0370 n P3POO

P39PO

pq.000

n'HOn

no opo

.q n. 3 n o p'mno

P 4 5 o p uc, no

r 47 no

O (4. g p O

P u o p

p 5 1 p P50 <"V P5300

P5M 00

05 PP P59QP

06 POO

o r-, 1 To 06?P n

79
VALUE - CONVERTFD OTMENSION

LARGE - CHECK FOR TOO LARGE A NUMBER TO PRTf'T OMJ

IPLACF - NUMBER OF PLACES FOR ROUND OFF SU6n 0l ITI MF

IMPLICIT INTEGER ( T •

DOUBLE PRECISION VALUF»

N )

VAL» FACTOR » DRCCNO

( VALUF )

<+noi 900 » 70

) 60^, 900,

IPLACE = LARGE = VAL = DARS

NL = 8

FACTOR = 10000000. 0D0

100 CONTINUE

IF ( VAL - FACTOP ) 200 CONTINUE

FACTOR = FACTOR / 10.0DO

NL = NL - 1 GO TO 100

300 CONTINUE

IF ( VALUE

400 CONTINUE

IF ( NL - 500 CONTINUE

LARGE = 1 RETURN

600 CONTINUE

IF ( NL

70C CONTINUE

IF ( NL

800 CONTINUE

IF ( NL

900 CONTINUE

IPLACE = VALUE = RETURN

END

SUBROUTINE READER

IMPLICIT INTEGER ( I - N ) COMMQN DIN(2> 500) » TDIN(2)

COMMON IN0UT(16)» INCARD(30)»

L IDCARD(72)» LTSTFR(6U),

> IDIN(500)

200» 200» 30'

500

+ 5 ) 500» 900» 90d

- 7 ) 800» 900» 500

+ 6 ) 500» 900» 900

-1 * ( OUND ( NL

VALUE

- 3 )

» IPLACE

TMriF v R» NC» HP, NC^FK» Tn(U)»

lnO"T(n)» KINDX(500)» ML Tr-T»

DOUBLE PRECISION OIN» TDIN

6.000

INDEXR = GO TO. ( INDEXR + 1 1000» 4000* INDEXR

rf,ij no

«660n

nfi?nn

Qf,qpn

o7pn">

P72Pn

nyno

o7um

P7f>no

°770n

o,7flpn

°7O0n

qponn

*BlC n

° p ? o n

o a,n no

Q«70r

pftnnn

RRQQO

pqnon

qgi(in

ngppn

R9500

p Q70n

pap (in pQonn

QQr\p,o

°010^

°0fSnn

ort70 n oonnn

ooorin

° 1 n on nn

olefin

oiaon

oison

olfinn

O170P

oiRpn

olooo

80
"200O

op inn

ly ) ) oppon

"23nn

opspo

"2600

O270fl

npp.on

qpapn

"3000

o,3l0"

°3?no

"3300

Q3'+n"

Q3Snn

"360n

«37Pn

o3pon

n 3"0n

O'non

94? Qn

o (; t n n

04500

"460 n

( VALNFf T^LACE ) C "500°

"5i on "5200

"5300

UTAH, AL^KA* HA>'AIT» Q5U0O

C wn „ C "5600

C V-.LUE = NUMBER TO B r ROUNDED "Y CATER"!! LAP. STAN"ARnc; (+ »R -) 05700

C OROUlMn = ROUMDED NUMBER ( + OR - > 05090

C IPLACE = NUMBER OF PLACES TO THE R-I R HT ^F THE DFr IMA| POINT IF o^qpn

C POSITIVE OR NUMBER "F ZEROS TO THF LEFT "F THE O6P00

C DECIMAL n OI!jT IF NEGATIVE %lin

C n 6?0n

FACTOR = DSIGN ( 10. non ** T"LA^Fr VALUE ) "6300

UTAH = VALUE * FAC TOR o^upn

IDAHO = IDINT ( UTAH ) "650o

ALASKA = IUAHO "6600

HAWAII = UTAH + O.SOO 06700

IOWA = IOINT ( HAWAII ) o&^00

TEXAS = IOWA oeonn

IF ( DABS ( UTAH - ALASKA - 0.5"0 ) - 0.000100 ) 1» lr 2 07000

1 DPOUMD = ( ALASKA + DMOD ( ALASKA , 2. n nn ) ) / f;ctor 07100

RETURN "7-200

C °73Qo

2 DROUND = TEXAS / FACTOR 07400

RETURN o7son

END "760

in 00 CONTINUE

READ ( MC# 2000 ) INCARQ

2u00 FORMAT ( 3 ( OA1. IX, 2A<+,

DO JO I = 1. A IMOUT(I) = INCARD(I)

30 CONTINUE

10(1) = INCAR0(9)

in(2) = INCARO(IO)

RETURN

C 4000 CONTINUE

no 5000 I = b R INOUT(I) = INCAROU + LO)

50 00 CONTINUE

10(1) = INCARD(l^)

10(2) = TNCARD(20)

C 6000

RETURN

CONTINUE

DO 70 T = lr '1 INOUT(I) = TNCARDU + 20)

70 CONTINUE

10(1) = INCARD(29)

10(2) = INCARD(30)

INDEXR _ RETURN

END

c

r

C

DOUBLE PRECISION FUNCTION DROUMD

IMPLICIT INTEGER ( T - iJ ) DOUBLE PRECISION VAL 'F» FACTOR,

1 TEXAS

81
BLOCK DATA R800n

c 98100

c tMPLICIT INTEGER ( T - ' i ) 98200

c °830n

c COMMON / DATA / KTBLU2). MESAG("0)» LAPEL(5. 50), Q8U00

c 1 TABLE (2. 50)

#

NLSAVEf NUMLAB. ISTOPC1.) , IRLANK Q850H

c P8P.00

COMMON / DATA / KTRL.U2). MESAG(40) Q8700

COMMON / DATA / LAB9H25). LAB0?(2S) » LAB03(?5)» LAR.O" (25) . °8800

1 LAB05(25). LAPQ6(25) . LAP07C25). LAPOP (25) . aqnon

2 LAR09(25). LABio(25) oQpon

COMMON / DATA / TRLK25). TBL2(2 C )» TRL3(?5). Tn»L4(?5) °9lOO

COMMON / DATA / NLSAVEf NUMLAB. TST0TM4). IRLANK Q9200

c og^pq

c KTBLU.2) Aj QQUOH

c CHARACTER TABLE USED I;| DECOnE AND ENCODE SUBROUTINES Ar: ELL QQSOn

c AS INITIALIZATION 0^ ARRAYS og^pn

c og70n

DATA KT6L(0D . KTBL(0?)r KTBL(03). KTRL(OU). KTBL(05)» og^nn

1 KTBL(06)KTBL(07)» KTBL(OR). KTn l.(0°)t *TBLU.O)» oqorip

2 KTBL(ll)

KTBL (12). KTBL (13). KT:U.(l"). KTBL (15). lnOOO^

3 KTBL (16)

KTBL (17). KTBL ( IB) . KT'H. (1°). KTBL (20). looinn

<+ KTBL (21) / 10020O

5 1Ho» 1M1» 1^2. 1M3f 1H4. IMS. 'H6. ln030n

6 1H7. 1H8. 1^9, 1W+, 1H-. 1H.» 1H , l^Ouon

7 1HA. lHBf INC. INDr THE, lMR. 1HG / lnn^on

c 1 npisoo

DATA KTBL (22)KTBL(°3). KTBL (24), KT', L(2c:). KJBL (26). 1H0700

1 KTBL(27)

KTBL(?ft)» KTPL(?0). KT°L(3n)r KTBL(31)»' in08on

2 KTBL (32)

KTBL (33). KTBL (34-). KT^U.(3*0» KTBL (36). lnogo^

3 KTBL (37)KTDL("*8). KTBL(39). KTRLC+n). KTBL(Ul), loinnn

4 KTBL (<+2) / loiion

5 1HH. 1HI. 1MJ. 1MK. 1HL. 1H»» 1HN, 10120H

6 1H0» IMP. 1MQ» l'IR. IMS. 1HT » 1MU. ] ni 300

7 1HV. 1HW. 1

L 'X. 1MY. 1HZ. 1!'*. \Y\) / lnluon

c 101^00

c MESAG(UO) lnlfiOi

c ERROR MESSAGES TO BE PRINTED OUT v.rju f^AD INPUT CA^nq 1 nl70n

c lOlftOO

DATA MESAGvOD . MESAG(02). MESAG(0"*)» MESA6(04) . VESAGLf 5) . import

1 MESAG(, 6) . MESA6(07)» MrsAG(0 D ). MES'NGfOP) . "ESA^( 10). 10200^

2 MESAGCL1 ) . MESAG(12). MESAG(l^). MESAG( 1 'i ) . »«FSAG( 1 5) . in210n

3 MESAG(15)MESAG(17). M^SAGdfl). MES-"<G ( 1 °) . "*FSA<" ( " n) / 1O220O

'+ UHIl LE. 4HGAL . 4HIDEN* 4HTTFT. 4 HEP UH . t>H . HM » ln230n

5 UHIl LF. UHGAL » 4HCHAR, UHACTF. '+HR IN. ai-t njM, /.iHE"'?!. ''H<" "'

t in2U0n

6 4HMORF. 4H THA . 4HN ^0, UHO UN / 102SOO

c 1 n 2f>00

r ^ATA MESAG(2D f MESAG(22). MESAG(.23)» MES'v ^(2 t» ) . ""ES^^f ' 5) . 102700

1 MESAG(26)

MESAG(27)» MESAG(2°). 'TS"G(2^)» v'ES'.GJ? 0) . 102«00

2 MESAG(31 )

MESAG(32). MFSAG(33)» MFSAG(34). «1ESA'=(^ C;) . 102000

3 MESA 6(3*1) . MESAG(37). MESA6(3°.)» 'iFSAGMQ). " rS/": (i 0) / 10300O

4 U-HI^NE. UN PAT, 'iHA CA. UH rn S . 1031 oo

5 4H . UH , UH r U|-| » UH . 'H-' . UH ' U H . 1 o3?0o

6 4H . UH . 4H » <+H » UH an . i»h . UH / 10 330

82
c n^uno

c LABEL(5r 100) 4A4» T10 .03^00

c THIS ARRAY STORES THE FOLLOWING - -O3A0O

c LABEL(l) INPUT IDENTIFIER (FIRST 4 CHARACTERS) IH370O

c LAREL(2) INPUT IDENTIFIER (LAST 4 C 1ARACTFRS) n ? n o o c LAREU3) OUTPUT IDENTIFIER (FIRST n "MARACTFl1 ^) 03000

c LABEL (4) OUTPUT IDENTIFIER (LAST U -HAR^CTFPS) nq.no n c LABEL(5) ROUND TECHNIQUE CODE nu] no

c -1 3 SIGNIFICANT DIGITS ONLY [ntipno

c ROUND TO NEAREST \VHOLE MUMPER LnuTioo c 1 TO 5 ROUND TO NEAREST ' ).1» 0.01» FTC. nuuoo

c n u 5 o o DATA LA601(01)» LAR0K02) » LARP1 (0?) t LAB01 (OU)

f

I..AB01 (05) f 1 n u a o o 1 LAB0K06) # LAB0K07) » LABOl(nP) , I AROl (0^^ r LABOl (10) t 1 1014700

2 LABOKll) r LAB01 (12)

LAB01 (13) f LAR01 (U. ) f LABni (15) f 5 n 4 p n o 3 LAB0K16) t LAR0K17) f LAB01 (1°). LARni (I"), l_ A B 1 ( ? ) t ] niiono

4 LAB0K21) » LAB0K22) » LAB0K23) » LARnj (?/+) , 1 AH0 1 (?5) / 1 n5no n 5 4H f 4H i 4HBLAMf 4HK » Of L05i no

6 4HBAR t 4H t 4HPSI f UH . n» n5?pn

7 4HMRARf 4H i 4HPSI » 4H r -1» 0530^

a 4HMPA • 4H 4HPSI » 4H » Of n 5 u n n 9 4HDEG » 4HC i 4HDEG t 4HF , / i 0S?0°

c PSAHO

DATA LAB02(01)» LARP2(02) » LAB02(03) t LA80?(0U)

I AR.0?(n5) , 3 OS7on

1 LAB02(06)

LABO?(07) r LAB0?(0n)

LAR02(0°)

r

1 AR0?( in) , i n R q p o 2 LAB02(11)

LABP?(12) f LABno(i^)

,

LARP?( I'D r i,ARn"(i5)t .1 rM=,op o 3 LAB02(16) , LAR02U7)

LAB02(ia) , LAP0?( ).q.) f 1. ABf1 ?(?0) f

1 n 6 n o o 4 LAB02(21)

f

LAR02(?2)

LAf30^(2^) f LARn?.(2U) f i a * o p ( r s ) / 1

. 061 no

5 4HDEG » 4HT0L . 4H0EG » 4HT0L f n, 106200

6 4HN f 4H 4HLRF » UH » -If L0630O

7 '4HKN t 4H » 4HLBF f UH » -1» 0640 n 8 4HNN! • 4H . 4HLR F» UHT f -l» ifi^Dn

9 4HGM » 4H . uH07_ If "HNCH , 1 / 1.06600

c ,n670 n DATA LAB03(01)» LAROMC?) t LAriOMO^) t LAB03(0M )

f

|_ABP3( 05) f 3L n 6 o

1 LABn3(0fi)LAB03(07) » I A803(0 <') » LARn3 ( 0?)

I /\ n,n-»(in). 1I n6°on

2 LAB03Q1) » LAR03(12) , LABn3(13)

(..AB03( 1U) f LAB0^( 1C; )» r>700O

3 LAB03U6)

f

LAB03(17) t LALin^(i^) f LAB07 ( lc)

,

LARn3 CO) f n 7 i no

4 LAB03(21) t LAB03(22)

LAR03(23) t LARf T (?'i ) f l._ A P n 3 ( *> 5 ) / n 7 p

n 5 4HN/MM» 4H . 4HLB/T» UHNCH f -1» 07^00

6 4HUM » 4H • 4HMILS» UH » l» i 7400

7 4HCM , 4H , 4HTNCHf UH f -l» o7';no

8 4HDM t 4H > IMTMCHr UH f -If 07600

9 4HM » 4H . 4HFT f UH f -1 / .0770"

c o 7 2 o o DATA LAB04(01)f LAB04(0?)

LAB0U(03) t ! ABOU(0'J ) » I APnu (os)

f

n7° no

1 LAB04(06) t LAR0U(07) , LAR04 (0^) t LABOUtOP)

I ARO'i ( I 0) f L opopo

2 LA804(11)

f

LAR04<12) t L/UiQ4( 13) f LAROU( 1': ) t !..AR0t; (1R), n p 1 r> n 3 LAB04(16)

l.AR04(17) t LAliOU( 1Q) , LAB.OI ( 1°> r

1 . a H (j ( o ) » n q p p p 4 LAB04(2l)

LA^n4(2?) t LABOU(P^) f LABHU (2^1

,

( A B U ( ? 5 ) '

Q--^ (-| n 5 4HKM » 4H , 4HMILE* UH f 1 f 0(1 ,)o 6 4HMM2 » 4H 4HIN2 » UH f -1 » O .« -t

f

i p 7 4HC^2 t 4H » 4HIN2 » UH f -1 » OC',01

8 4HM2 » 4H , 4HYD2 » UH f 1 » OQ-7|:0

83
UHCM3 UH 4HTM3 t UH -I

DATA LAB05C01) f LAR05(02)

L«Rns n-o t Lanne; ( O/i ) , L A P,n 5 ( o R ) , 1 LAB05(06) t LAB r»S(07) » L/^BOS 01) t I ABO^ ( 0°)

LABfi^d 1) » 2 LAB05(U) f LAnns(i2)

LABOS 1^) , LAnnsd'i )

1 ABO^d?) » 3 LAB05(16)

LAB05<17)

L<\nns i«) > LABOBdal t !.ALa nK(?n) » 4 LAB05(21) f LAR05(22)

LflBOS ?*)* LAR nc^(2'0 » [Minxes) / 5 UHC v!3 » 4HLIQ 4H0Z L» 1HTO t -1

6 UHDL * UH . uhoz L» «4HTQ 1 1

7 UHLITR, UHC 4HOT > 4H 1 1. 8 UHM3 » 4H 4HYD3 » UH , -1 1 9 4HG > 4H UHOZ » <+H 1 -1 /

DATA LAB06(01)

LAR06(G2)

LftBO^ p-*)

LABOfiCC'J ) » | HOflfifi^Jl

1 LAB06(06)

LApn^,(.]7) , LAQdf. 'no), LARn^fno) , i.ARnp,( 10),

2 LAB06(11)

LARflMl?) » LABOf> : 1 3 )LABrf (l«i ) , L A p n 6 ( 1 S ) » 3 LA80f>(16) » LAB05d7) » LftBO^i r i^) » LAB0^(1°) ' LABOf.(?n) » 4 LA606(21) t LAR06(22> t LABn^, (2?) » LABnM2U ) t I ABOf ( ?

ci) / 5 4HHG f UH , 1+M07 , UH , 1» 6 UHKG » UH 4HLR t UH 1 1» 7 4HMG » 4H < 4HLB f UH 1 -1 » 8 4HKG/M* 4H2 r 4HOZ/Y* UH^^ . Or 9 4HG/CM» 4H3 - 4HG/C"# UH"^ , /

DATA LABn7(01)

LAB07(02)

LAR07 f 0^) t LAB°7(0'< ) t LAPO^COS)

,

1 LAB07(0f>) » LAB07(07)

L^RC7 inn) , LAB07(ri9) » I.ARr-( 1 0) , 2 LAB07(11)

LAB07(12)LAB07 [13), !.ARn7(l(4 ) , 1 AR^7( 1 s)

,

3 LAB07(16)LAR07(17)

LAB07 r l") t ! AR07d Q ) r LAB07fn) r 4 LA807(2l)

LARD7(22)LAB07 '2^)» LABH7(2U) , LABnT{?5) / 5 4HK S/M# 4H3 , UHLR/Ff UHT3 -1.

6 4HST0P, 4H , UH » UH Of

7 4H r 4H » UH » UH 0»

B 4H » 4H . UH , UH » n, 9 4H » 4H » 4H » UH . n /

DATA LABn8(0l) t LAB08(02)LABO« 03) » LABOPCQU)

LARDP (05) t 1 LAR08(06) f LAB08(07)

LABPfl ; q ) t LAP08(0°)

l Aprso ( 1 n) , 2 LABOSdl) t LABna(12)

LABO n 13) t LAPPA (It!) r 1 ABQP( 15)

3 LAB08(16) t LABD8(17)

,

LABO=( f in) , L ARon( \o) t LABPO(20) t 4 LAB08(21)

LARfl=>(22) » LABCn 2"M » LAROfl(2U)

#

!.ABC«(?5) / 5 4H » 4h 4H r UH . n, 6 4H f 4H » 4H f UH 1 0»

7 4H » UH 4H , 14H , n» 8 4H t UH » UH » UH , n, 9 4H » UH . UH » "H i /

DATA LAB09C01)

LA10Q(02) f LAB09 r n^) , !..AB09(04>» I ARno(n.5) , 1 LAB09(0M r LAPD0(U7)

,

LAB09 [ ° )LAB09(0<5) » LAROO(in)

2 LAB09(11) t LABn°(12) t LABOO [ 1.3 ) » 1 /\poq( la) , LAPn^( 15)

3 LAB09(16) t LAB09(17) , LARH9 ; 1 8 )

LARnf d9) , I ABn°(2H) f 4 LAB09(2l) t LAB0O(2?) , LABOQ [23) » LABn9(2U)

LAP0 n (25) / 5 4H t UH , '4H f UH , n,

6 UH » 4H > W 1 UH . n» 7 4H » 4H > HH f UH 1 n»

84
a 4H , 4H r 4" r 4H r Or .1.420 9 4H , 4H r 4H r MH r / 14300

14U0O

DATA LAB10(01)» LAB10(02)

.

LABIP(03). LAB10(04), LAB1.0(f)5)r .14500

1 LAB10C06)

,

LAM 1.0 (07) , L A B 1 (

'Or ! AB10(0 0) , !_ fl p 1 n (10), .1 14f,on

2 LAL)lO(ll)

,

LAP10(1?)

1

LAB10(13)r LABIO(IH), LAB10 (15) , 1,14700

3 LAB10(16)

r

LAR10(17)

1

LAB10(l^)r LABIOd P), LAR10 CO), 3 1.4A0O

4 LAB10(21)» LAB10(22)

1

LABI 0(2"Or LABI (24) r LABI" ( orO / 1.14900

5 4H # 4H r 4H r 4H r Or .15000

6 4h p mi r 4H r 4H , Or .15100

7 4H r 4H , 4H » 4H r Or .15200

a 4H r 4H , 4H » UH r Or .1 5300

9 4H r 4H , 4'-l , '*H r / 15400

.1550"

TABLE(2» 50) - ARRAY FOP CONVERSION FACTOPS AMD ROUND INR 1 imtts : .15600

WORD 1 - CONVERSION FACTOR ( 5 SIGNIFICANT FTGUR r S ) .15700

WORD 2 - ROUNDING UNIT ( 5 SIGN r FICANT FIGURES ) . 1 5R0°

L15P0O

DATA TBLl(01)r T^LI (02) , TPL1 (03) , TP.L1 (O'J ) r T RL1 (05)

,

116000

1 TRLK06) r TRL1 (07)

,

TRLl(Oa) . TBL1 (no) , T BL1 (1.0) r M61 00

2 TBLK11) r TBLK12) » TPL1 (1.3) r T (|_1 (lii)t TRL1 (15)

r

162QO

3 TBL1 (16)

r

TBLK17) , THL1 (1*) r ThJL1 (l n ) r TPL1 (20)

r

116300

4 TBLK21) r TPL1 (22)

r

TRL1. (23)

r

Tpl.l (2H) r TBL1(25) / ]1 1 64 OO

5 o.Or o.Or 14.504. l.Or 0.01£*5"4r L1650O

6 0.0» 145. T4r l.0» -1 .A, 1 .Or 1 6^00

7 1.8r l.Or 0.22481 r O.Or 224. 81r L16700

8 O.Or 0.73756r O.Or 1.3*87

r

O.lr 16^00

9 s.7ioi» o.Or 0.0 3P37' O.lr 0.3°37 / 116^00

.17000

DATA TPL2(01), TPL2(0?)

r

TPL?(03)

r

T3!..2(04) r T PL2f 05)

r

1 1 7 1 1 TBL2(06)

r

TPL2(07) , TPL2(0«) t T'L2(0°) r T PL', (10) r 117200

2 TPL2Q1)

r

TBL2(12) r T"L2(13)

r

TBL2( l'l ) r TRL°(15) ' .17"<0o

3 TBL2(16)

r

TBL2(17)

,

TRL2UB)

r

TiH.?( 1°) r TBL2CP0)

,

L1740O

1 TBL2(21)

r

TRL2(22)

r

TRL2(2'0

»

TB(_?(2" ) r TPL'1 (25) / 1117500

5 O.o, 3.937, n.p, 3.2808' O.Or L17600

6 0.62137r O.lr 0.001 55 r 0.0. 0. l^Sr 1 17700

7 o.Or i.iPen» 0.

1

1 0.06102 ' r • t 17A0O

8 0.03381r O.Or 3.381

O.lr 1 .n c;87r .1 7QP0

9 O.lr 1.3080' n.o» 0.0"^5?7'4r0.n / 1 1 8000

Li 81 00

DATA TBL3(01>r TBL3(02)

,

TPL3(03) r T

r',!_3(04) r "TRLMOS) , M820O

1 TRL3(06)

r

TPL3(07)

r

TPL"^(08) . T ,1 MO"), TRL"1 (10) r L1830O

2 TBL3(11)

r

TPL3M2) r TPL3(13)

r

TRL3(lf )

r

TBL?(15)

,

184CO

3 TBL4(16)

r

TPL4H7)

»

TBLM 18) r "T L'i( 1°) r TBL4('5 0) , 18S00

4 TBL3(21)

»

TRL3(22)

r

TPL"<(2^) r TBL3(24)

r

"rn L"^(25) / I1P60O

5 3.5274r O.lr ?.2046r O.lr 22 ,6r 11870O

6 0.n» 2Q.494r t.0» l.Or l.o, liaaoo

7 0. 062428 r O.Or O.Or O.Or O.Or L18900

8 O.Or O.Or O.Or O.Or O.Or 1 190no

g O.Or O.Or O.Or O.Or 0.0 / L 1 Q T L19200

DATA TRl.4(01), T8L4(02) , rBL4(03)

.

Tl " (0'4 ) » T RL'i(n5> , I 1 Q300

1 TBL4(06)

r

TBL'l(07) r TPL'» (OP) , T !.'! (0°) r T f1 L'J (10) , L19400

2 TPL4(11) t TBL4 ( 1 2 ) r TPL'! ( 1 3) r Ti»( in ) , TBL4(15)

,

11950

85
c

c

c

c

c

3

5 0. 6 0. 7 0. 8 0. 9 0.

TRL3(16) t TRLU(21) p n» o.o»

Or 0.0»

n» o.o»

n» o.o»

n» 0.0»

TBL3M7)

,

o.n, n.o»

o.n,

0.0»

0.0»

0.0»

p.q»

0.0»

T. |.T( 1^) , T"t.;!.t(2f )

n. i

0.1 /

TRL3(.°0.)

TRLM ?5)

DATA NLSrVE / 32 /

DATA NUMLAB / 72 /

DATA

1 ISTOP(l)

1H$, 1HF»

ISTOP(2)

1H0» IMP

i stop (3) , /

ISTCPU) /

DATA IBLAf'K / 4H /

END

i1.9^nn

119700

j 1 q.qpo 119OQ0

1 2 o n

l ? o i o n

] ?030n

I2ouoo

l?0 K on 120700

1 20f>nn

] 2 1 o o

1 2 1 1 n 12120^

1 Pl^O"

86
13.

GRAM

LITRE

LITRE

LITRE

LITRE

DEGC DEG TOL

DEGC LITRE

LITRE

LITRE

LITRE

LITRE

LITRE

LITRE

GRAM

LITRE

LITRE

LITRE

STOP

15 1.0 4.0 2.0

MPA 100. 0.

DEGC 3.

N/MM .35

.621 47.33

65. 1.54.0

BAR .4

LITRE .1 KM .1

DEGC 2.

N

M 2.

<T,<\Mn| f j

ML

SAMPLE ?

0.013

.5

REF

DEG TOL 7.0 DFG TOL

ML 1.5 ML

ML

ML

DEG

C DEG C DEG TOL

DEG TOL

DEG TOL

ML

ML

KM

KM

KM

20.00 DE^ TO!

l?170n

121R0O

1P190P

1220P"

l?2l oo 1 ?22CO

lPSTSpr*

i?2noo 1 ?2^oo

192700

12PO00

l?3pno

1231 nn 123200

123^no

l?340n

]?350n

12360"

l'»37on

l?3A0n

l?3opo 1 o'inpo

124100 ] 24200 1 ?4"<;po

l?4.i|Oo

124500

124600

124700 1 9 40P0 1 ?4opo 1 ?5000

lo5ion

125200

125300

1254-00

125S0O

125600

125700 1 p 5 q n l?5Q0n

19*spoo

]?610P

l?620

n 1?6300

126U0"

1^6SPo

1266.00

196700

126800 1 ?f.onn

lo7o o

87
11.25 KM

22.55 KM

22.0

17.50

50. KG

10. N 57.0

2.40 A 12^.0

38.10

32.0

447.22 DEEP 12.25 -12.00+

25.17

21.8

20.83

19.8

16.0

6.35

1.5

.76

50.0

17.0 0.5

18.0 0.05

19.0 0.051

19.0

STOP

0.0505

9S3184 01 1.0 3.0 2.0

METER INCH 179.37 0.1

DECA M INCH 13Q3.7 0.1

57.0

5.6

19.35 N/MM

30.860 0.013

5.6

200.0 DM

300.0 CM

400.0 HG

500.0 DL

135.44 N/MM

14.25 .5

7.0 DECA M 7.6 METER

1.5

11.00

12.35 GAGE

75.0 REF 1000. 00 lin

20.0 DEG C 10.0 G

0.01 MPA

12

12.

012

00123

2.25 4.68 8.9

13.1 15.22 23.3

1.1 C!V!V-M F ^

88
27.S91

36.0

52.?

81.15

0123.5

1200.

1600.

22.0

17.50

50.

10.

35.

4.

-100.22+

2.

10.

2.

50.0

12°>.0

38.10

32.0

25.17

21.8

20. *3

19. H 16.0

6.35

l.s

.7s

17.0

18.0

19.0

19.0

29.9

40.15

54.755

85.65

1300.

1700.

31.0

44.4'+

6°. 75

405.0

1U00.

1800.

KG

NML

LITRF

BAR

N M KM

0.5

0.05

0.051

0.0505

STOP

BTU/HPMP

POUND/HR

REF

2.0

^1706.79

-1?.?0'!6

1.0

1.0

0.25

?.o <;/\vjh r 'i

0.05

1.5

.r>002

.0005

.0003

.0Q06

1^2500

1^2^00

1^2700

132P00

l"^2P0O

133000

1^3.100

133?00

133300

133400

13350

1^3^00

133700

133R0"

17400P

1341 00

13430O

134U00

1^4500

] ^4^on

1^470^

134800

1^5000

1351 on

1 "*5?0O

135300

1^54

135^0^

135f=>nn

1 3570

135K0O

1^60 0^

1361 On

1 *6?00

1^630

l">i640n

1^6500

1^660"

1^6700

1""15P0" 136900

i"*7on<-> 1^7l0n

1^7?on

l'as73on

1 ^74

1 ^7S0n

1^750°

1377 on 137.^0^

89
.0007 .0008 .0009

. 1 .001 .00?

.00 3 .00<+ .00^

.006 .007 .00"

.009 .010 .01

.0? .03 .0/4 .0:, .06 .07

.03 .on .10

.1 .3

.4 .5 .6

.7 .8 , 1.0 ,

e. KG/H 1 .0 y c /1

25 K<o/\\ 17 K<VP 75 Mj/KWI-i

17.

S

MK/KWm

17.5 MJ/KWH

850.001 850. n n? 850. On'1 850.004 850.005 850.0 06

850.007 850. UOR 850.009

165.0

19.0

701 .0

42 .

5

81.0

23.6

25S.0

37.7

41.2

56.7

725. RKF

10.5 BAP

.125 MP A 0.0 nrr C 5.0 nr^- to! 100.0 N 100.0 M M 200.0 r; f» 55.55 N/MM looo.nn 11V 10.50 r 10.00 DM 100.0 i^a 1000c. M ? 100. CM2 120. M? 100.0 CM3

545.0 CM3 LTO 25. nL

IOC. LITRE 100 M3 100 P 10.05 HG 10.005 KG 10. KG/M2

5.0 G/CM3 1000.0 KG/M3

A12.35R

STOP

9M7107 35.

85. GRAM

4.5 LITRF

AuD

5.5 LITRE

8.5 LITRE

14. LITRE

17. LITRE

22. 5 LITRE

98.5 LITRE

24.5 LITRE

29.5 LITRE

48.5 LITRE

<-, flwni E 5

90
LITRE

LITRE

LITRE

GRAM

LITRE

LITRE

STOP

0.

MPA

STOP

1INCH

N/MM

DM

CM

HG

DL

MPA

N/MM

1.0 1.0 1 .n CAMPI E ft

4.0

139.37

2.0

0.1

l.i SAMPLE 7

0»013

10.0

0.1

1.0

.5

MPA

REF 1000. CO

1200.0

0.1

DEG C G

MPA

5.0

2.5S

1 100.0

1300.0

DFKA M

lu340n

l'i3snn

l«3<sno

14370^

i u^pno

1

' 1 3 ° 14400H

1441 OP

144200

1 44700

1 u 4 <=, n n

1 'l4ftPO 1U470O

I a 4 P p n

1 dUCQr)

1450P n

.1 4 5 1 "

1 4520"

1 'i 5301

I45ti no

ld5c;nn

1 u 5 ft n n

1 4570H

145roh

1 45Q0n

1460 00

1

(i 610

id ftp on

1 uft-^on

1(4 64

la6ft0^

luftfton 14670^

1 U ft C( ft 14ftQ0 n l'i7onn

1471

147200

1 »i73nn

ln7uon

l'j.7500

1 4770 n

] ti7pnn

lu7onn

1 ii p. p p n

i « q i o n

1 '; 8 p r, n

1 o p^.n n

1 4 fl 4 P lopson

148600

91
012?i.5

18.95 MAX

.05 MIN

1.65 1ES26

22.

17. SO

10. N 50. KG

35. ML

4. LITRE

-10 0.22+

2. BAR

2. KM

50.0

128.0

38.10

32.0

25.17

21.8

20.83

19.8

16.0

6.35

5.0 DEC A M 0.5 KG/H • 1.0 KG/H

1.5

.76

37.00 BSC

17.

0.5

18.0 0.05

19.0 0.051

19.0 0.0505

17.00 0.08

19.

0.049

19.0 0.05

10. NM 17.88 NM

12.5 M3 55.55 M3

5. CM3 10.00 C^3

100000. MP A 100.

1100. MPA 15.

o.ooi 0.00001

lon.o DEGREF C 5.0

10.0 GM 20.0 GV

100.0 ML 1.1 MM2 100.0 DEG C 5.0 OFG TOL

15.88

11.25

6.625

3.75

3.*23

.12

7.50

1.00

1.56

in.MJ/KWH

0.03

25.55 Nv

101. f<3 1S.S5 CM*

50.

3.0

0.00O0?

100.0

92
is<+?nn

154300

.1*4400

154500

154600

1*4700

154roo

1^4900

155000

155100

155P0O

1*5300

155400

1*5500

1*15600

l*57nn

l*5«no 1 55000

156000 l c 610o

156?Qn

l*630o 1 564 on 15650O

1'56600

156700

156800

156^00

l*7nno

157100 1 c 7?O n 157300

1*7UOO

1*7500

157600

1S770O

l*78pn

157900 1 *Ponn

158100

15820 1 5 8 3 P 1*8400 l c 850n

1586 on 158700

15880^

i58Qno

15900n

1RQ10O

l^Qonn 1 59"*on

1S90-0O

93
1.^75

.81^

.78 1 .31

13.40

12.50

7.365

2.50

2.afi

2.1? 1 .86

1.25

1.19

2. SO

.020

3.30

1.?.?

3.0ft .44

.2?

4.50

2.7b

2.*2

1.06

.06

5.12

.8r. 4.88

5.t>9

7.0

.25

.21

.44

63.5

102 0.0

10P5.0

558.0

76i .0

1270.0

915.0

1829.0

5335.0

50, 0.0

54.0

51.«0

1473.0

1524.0

1535.0

16.0

15.

60.8

40.0

6.9

14.0

1.3

1^.0

13.0

DM

DM

DM

DM

1^9600

1^0700

15980

iqQqOP 1 fcQnnn

1*01 no 160?nn

l*03on 1 *0M0o

1^0500

1*0*00

16070n 1 f^OPOn

l*0°0o

161 00°

1611Q0

l*l?nn

161300

16140^ 1 6 1 5 n 161600

161700 1 6 1 B 161000

1*20 On

162100

162200

162300

162400

.1.62

K on 162600

1*2700

1*2poo 1 6Pooo

I6300n

163100

16320O

1633 On

163400

1*3500

1*3600

163700

163800

163Q0

l*4onn

l*4inn

16420O

164300

1*4400

164500

164600

1*4700

t*4P0O

94
3.0

4.0

46.0

2.n

20.0

26.0

16.0

7.0

3.05 0.25

6.4

3.05 0.25

14.0

20.0

8.0

4.0

15.0

12.0

20.0

41.0

580.0 7.0

2.46

2.57

3.02

3.07

2.74

54.23

2.77

2.82

2.74

53.82

41.0

38.0

9.5

73.0

67.0

40.0

32.0

25.0

6.0

3.0

19.0

14.0

57.0

45.0

.79 .15

5.0

STOP

6J3135 NBS

19H.431 19843.1

198.432 19843.2

198.433 19843.3

198.434 19843.4

198.435 19843.5

198.436 198^3.6

t;.AMPLF P 1984.33

1°843.P

764.3 "IP

A 764. U OFV=

C 764.5 DES TOI 764.6 M

16490"

1P.50 0O

lAMon

165P0O

165300 1 A5spn

1^5P,00

1657nn

lf^5pnn

lf>5npo

I66nnn

1*61 no

l*>6?Pn

16630"

1^6upn

1A6S0P

lA<S70o

16680"

l87pn,n

lA7ino

l67?po

1^73no

1^,7'inn

1^7^0

1^77po

1A7R0O 1 A7Q nn i^pnnn

1681 no 168?nn

lf>P?po

l^Bapo

lAPe-nn ] ^P7Po

l^ppno 1 tponn

lf^oon

1691 0"

169? 1 AQ-^no L or, 1 r-,ORl;0

l^ ci7on

1A9.P0O

lf,9Q0o

17000

l^ni no i7n?no

95
198.437

198.438

198.439

198.440

19*4. 31

1984.32

1984.33

1984.34

1984.35

1984.36

1964.37

1984.38

1984.39

1964.40

76.1

76.2

76.3

76.4

76.5

1X1111

.002

2.540

25.400

25u0.

2X2222

25.4

25.43

25.43

3X3333

25.4

27. U0

27.41233

4X4444

25.4

28.52

28.53578

$EOP

DL

LITRE

M3

GHG

STnP

STOP

STOP

STOP

STOP

19843.7

198^3.8

1^843.9

19844.0

764.21

764.22

764.23

764.24

764.25

764.26

764.27

764.28

764.29

764.30

764.3

764.4

.025

25.40

25.4

25400.

27.94

25.003

25.403

26.84

27.411

27.9i+

28.534

IJW| CM

OM

MKM

MM^

CM2

M?

CM 3 C"3 LIQ

MPH

OEGC

7^4.7

764.3

764.°

765.0

76.!

78.?

76.3

76.1

7*. 5 764.1

764.2

764.5

35.0

7.61

.254

254.

254.0

2541.

2^.65

25.000"

25.4003

27.33

27.4122

28.45

28.5356

KN

f.|;i fiM KG

MG

KG/V2

r?/CW3

KG/M3

HAP

HEG TO!

nr^.r

BAR

l"»D3Pn

17040P

170501

1 Tf,0P

1^070"

i 7 o p r< o

1 TflPOP

1 ~r 1 n o °

i -7 1 1 o n

1

-7 J p o n

1 -7 ] 7; p n i7moo

17150"

1"M^ nn

l"7 17pn

1 71 onn

171Qf)n

17200P

1~»? l no 17220"

q/MWP! £ q 1 7240

o

\ 1 p cr n n fpfvOn

] "'2700

p?nnn

1 "'?QP o

c; AMPLE 1 n 173000

1731 00

l"»3?no

l

-'3300

1 73^00

SAMPLE 1 1 j-T7c,pr,

f36nn

l"7 37°o

173pon

1 "7300

e<\>— t El? 1-^nnn

1741 0"

J7420P

1-74700

17imoo

1_ -7450,0

96
IS. ic L

cr. _) « c

u <

IT

u.o

a

l/l C

cr

crL

IX L.

li

' C

fc *—

tn h- UJ

*£. c c

5- >

"Zs K

_J

L. o Li O c

c

0* t- •_1 Lj —

'

cc £ X c a

~

z- i- H L u

Z) t—

i

f— •—

»

LlI ~Zl c X »-J ^r li. Ll _J J~ H-' >—

a. --* 1- K < IT- 2 2

I- C u: L. L:

^r b". a c t-i *~-. c 3 < >-

»—

•

c u i- _l _J

uT 1—

1

« <

0. H - <r c a c U H H o U LsJ > c <r or _l _J

<L c c £ _' J

a <r CL t— H

o t-

>- a

a *- < i—

i

cc

L0

(_>

I U

*-* crtLl!

Lu

_JC

LO U. Ll t~ K

»-< o c o

2 Li L. Lu t- H ht-(-H- \- 1- 1- K- 1- 3 q o a 3 G is a o <3 a C 3 C <3 O o o

UJX

Lu

cr<

UJ

U.

»-< • • ec O CC <Y 0~ <Y a to cc • • • • x O iD O • O CL

»—

»

3 CM • • 3 cr to «-h lo C" h e a.« ir cc 3 u a 1 1 3" T -4 -t CM rO rO .0 r*- r~ r» «h ^ *H IT) o

2. 5"

cr cc O IT

CL 2

Lu 2

IT o

cr «h C I/) U CM LU 2 • cc

T r- h- UJ o " C7 Lrrt LT5 vQ - J*. *—

l

w. X O

2 a _l c • to

a

CMhCTa

Cl

1/1 c UOI-IlUJ

CC CC (515 15KILJ UJ UJ i-i >-< C C C _J _)

UJ UJ Lu LJ L. cr cr cc cr cr

UJ i_ lu u. u

a: x. x nc tx.

B— I— t— I— I

Lt_i L. X X

I- H

• • inifi m in • • • • C •- O J1 i ••••• • • • vB g OCT

3- fO • • 3- NCMO>d-J" c0,CLDO3 I^-H

I I CM (OH rt (MWlOvC iCNNHH -Hlf)

97
r X Ll. a- _J r £

ii -

O

Li. C

IT. CL

H- cr

0:

C

cj

>-

cr<X

c

H

l/l D

en

cr. L. C

Lrt h- • c <v

_l

u. o

c c

,-. h- L —• £ D. y Y ~~ 3 o

c «r • X J-

£

cL

Llcuc

>-

ILl.' C

lo

c

>—

1/5

Li. s:

crrcrcrcicracQ cr p cr cr C

L Lu L lu L. Ll L ' Ll; C L. U' U Ll: L-

»—* I—f •— )—*»-HI—t*—1»—IL.*—'»—'H-tl—'KH LlLlLlLlLlU_LlU.>-llU_Lj-LlLl

c Lu

LP c. CL X < V

c u i- H <I a

*—

»— o C O < Cr o • c> or. cr «-

h-a

b.

1-1 c;

LU LU t-H ll X LL a H t—

x t- < Ll. 2

X If. cr LU O »H < a

hhh t- H 1- H K <r t- h- hh-h

Z 2! Z 2 "^ x 2 — cr; x

"^ XXX Ll! Ll Ll. Ll. Ll Ll' Ll' Ll <r LL L' Ll Ll Ll C C Q a Q a a £2i: Q Q Q Q Q

i i i i : : ; f i i i i ( t c c it c c e o c e e e i: c c

LU LU LU LU Ul U -U LU LU Ll! Ll! LL Id LU _J_!_J_l_i_!_l_l_J_!_! _!_)_!

_J _!_!_! _l _' _J _' _J _1 _l _! _J -J

X IL

_l UJ _l x x <r x

o

_l LU X O

+c

o

CL • LU C\, LU r* < a i

u

cr

LU

LU z

cc o

l-l

cr. -j O l/l lu d- LU X

t- cc ro t- LU

a; ?" h <S) ^r < X u i—

i—

azio _l a

(V

f\J Lf) • O O O C • CM o • • •olcoo*o • ^ r*- • 3 Ci/1 IT • • • • I • C\J • J- C\j •H*-irOfs-C\J'-iK)Lr)Q.CC«-iC\J:±^

98
PART 3F1341 CHANGE 15

MM INCH MM INCH MM INCH MM TMCH

.0025 .00010 .76 .030 17.50 .889 38.10 1.500

.013 .0005 1.5 .059 18.0 .709 47.33 1.^6*

.05 .002 2. .079 19.0 .748 50.0 1 . ^69

.0505 .00199 3. .118 19.8 .780 57.0 ?.?'+U .051 .0020 5.6 .220 20.83 .»20 77.0 3.031

.1 .004 6.35 .250 21.8 .858 85.0 3.^46

.35 .014 11.00 .433 22.0 .866 120.0 s.03°

.4 .016 14.25 .561 25.17 .QOl 15H.0 *. 063

.5 .020 16.0 .630 30.860 1 .Pl^P

.621 .0244 17.0 .669 32.0 1.260

PART 3F1341 CHANGE 15

DIM UNITS DIM UNITS T M UNITS n T r UNITS

I 2 - BAR 29. PSI in. N! o # o^ LP r 1000. MPA 145000. PS I IP. 35 N/mm 1 10. LB/INCH

-40.0 DEG C -40. DEG F 2.0 CM 1.2 Mil E

; -31.5 DEG C -25. DEG F 2. KM ! .? "he

20. DEG C 68. DEG F 3.0 k"|W r.° Ml' F

100. DEG C 212. DEG F 8.0 KM 5.0 Ml! E 2.0 DEG TOL 4. DEG TOL. 11.25 KM 7.0 MILE

4.0 DEG TOL 7. DEG TOL 22.55 KM 14.0 Mil E

5. DEG TOL 9. DEG TOL 4. LITQF 4.2 OT

7.0 DEG TOL 13. DEG TOL 50. KG 1 10. LB

20.00 DEG TOL 36. DEG TOL

99
METRIC - U.S. CUSTOMARY CONVERSION TABLE

NU»<RE"> OF PART OUTPUT COLUMNS

NUMBER CHANGE ADDITIONS MM OTHFR 9S31B4 01 1.0 3.0 2.0

IIUMrtrr) OF APDFD TrFMTTFIFD S "LOT

2.0 1 . p SAMPLE

NUMBER OF ENTRIES TN CONVERSION TABLE =

IDENTIFIER IDENTIFIER ROUND CONVERc IO.\i "Ot'MrTMG

IK OUT TECHNIQUE FACTOR U"IT

BAR PSI 14.501*00 1.00000

MRAR PS I -1 .01450 .ocooo MPA PSI 145.04000 1 .00000 DEG C DEG F -I.roopo l. ooooo

DFG TOL DEG TOL l.flOOOO 1 .00"0O

N LBF -1 ,2?4<U .00^00

KM t BF -1 224.<U000 .ooooo NM LB FT -1 .7-»756 .00000

GM OZ INCH 1.3<*B70 .10000 N/MM LB/INCH -1 5.71010 .00^00

UM MILS .0^37 .10^00 CM INCH -1 ,3T*70 .0000"

DM INCH -1 3.9^790 .00009

M FT -1 3.? n noo .00000

KM MILE .62137 .10000

MM2 IN2 -1 .00155 .ooooo CM2 IN? -1 .1^500 ."0000

M2 Y02 1.1^600 .10000

Cv,3 IN3 -1 .06102 .ooooo CM3 LIQ OZ LIQ -1 .0 33*1 .00000

DL )Z LIQ 3.3B100 .10000 LITRE JT 1.05670 .10^00

M.^ YD3 -1 1.30300 .Oonoo

G OZ -1 .0^527 •ooino

HG OZ 3.52740 •1OP00

KG L3 2.2O460 .10000

MG LB -1 2204.60001 .00^00 KG/M2 0Z/YD2 PQ.4P400 1.00000 G/CM3 G/CM3 1.00000 1 .00"00 KG/M3 L6/FT3 -1 .06243 .00000 METER INCH iQ.s^onu . ICOO **** DECA M INCH 3P3.7n00'i . 1 n 0O ***

r l'IS T5 A Tf"V"OP."r>Y rfj-ov **t-*

r HT c. TS A TFM^ORA^Y EMTPY *.** +

LISTED BELOW ARE THE INPUT DftTA CAPD(S) Wl T H SOME TYPE *F FPRORfSJ, DIMENSION IDENTIFIER ERROR TYPE

12.35 GAGE

75.0 REF

35. ML -100.22+

10. N M

ILLEGAL IDENTIFI^P

TLLEGAL IDENTIFIER

ILLEGAL IDENTIFI"7 " TLLEGAL CHARACTER IN PIMENSIO'l TLLEGAL TOENTIFI^P

iOO
PART 9S31A4 CHANGE 01

MM INCH MM INCH MM T"'<~H

.nl3

.05

.0505

.051

.5

.76

1.5

2.25

4.68

5.6

6.35

8.9

11.00

12.

13.1

i 14.25

15.22

16.0

17.0

.0005

.002

.00199

.0020

.020

.030

.059

.089

.184

.220

.250

.350

.433

.472

.516

.561

.599

.630

.669

17.50 .6R9

18.

n

.709

19.0 .748

19.8 .780

20.83 .820

21.8 .8^8

22.0 .866

23.35 .919

25.17 .991

27.691 1.090?

29.9 1.177

30.860 1.2150

31.0 1.220

32.0 1 .260

36.0 1.417

38.10 1.500

40.15 1.581

44.44 1.750

50.0 1.969

52.2 2.055

54.7*5 2.15 c ~' 57.0 ?,2£>U 69. 7S 2.746

81.15 *.19*

85.

6

C 3.37?

123. 't.843

12^.5 4,, 86?

128.0 5.03°

40*. l^.git^

1000.00 ^o,?7n

1100.0 43.307

1200. U7.2'lU

1300. 5.1 .l"1

1400. 55. IIP

1600. 5?.no->

1700. 6f>.9?o

1800. 7n.8^f

PART 9S318U CHANGE! 01

DIM UNITS DIM UNITS ,IM "MTTS DIM units

2. RAR 29. PS I 2. *M 1.2 MI! F .01 MPA 1. PSI 500.0 r>L 16^0. 07. LIQ

20.0 DEG C 68. DEG F 4. LITRF 4.? OT

10. N 2.25 LPF 10.0 R .353 OZ

19.35 N/MM 110. LR/INCH 400.0 HG 1410. 07

135.44 N/MM 773. LB/INCH 5n. KG 1 in. LR

300.0 CM 118. INCH 7.6 "tyro ?OQ. INCH

200.0 DM 787. INCH 7.0 nfCfl M 2760. INCH

101
U. I' C br c

c c. •

* ¥ * *

* * * * *

* * * 4f

>- V >- >-

cr cr rr

(- l- i- K u b- u

p b_

>- > >- >- o o c n <- <

2; or rr QZ o CI < r PI c c

ii U- U. L, i- 1- h- 1- < <- <: tf

1/1 i/> i/i l/l

>- *- *- -

IT \f IS If >— *-* f— •- ±

1- t- \- h

* * * * * *

* * "t * * *

LT K • z

21 c 2 o

cc

_j u. o

c u

cc 1- r cr L c c

a £ 3- >- 1- s t- K" V C! 3 o or <

UJ z o r> U' U. _) ? 00 >

<r II < o K IjJ _l o

z. i/i CC o 2 < C UJ O 1- Z X

LP1 i—

X O

cr 1- © C -i

UJ o or z

> c <r 2 c in o

C < o- U-' O

>

1- a o

< <j cc £ UJ o

i-in3obJ

71<

I

i/i

U.(-Z

UJ D-

<J o ce Q 3

(/) t- -> o

z 3 nu

or

•OU.o

bJ

b. t— a <0 IT M

or u r- UJ t-

\- 1- CO CD CO z

UJ or •0 s: UJ 2 « IT. a z

0. Z <£ z H t-l

ocoooooooooococoooocccoocococcocrcc oooooooocoooooooooooocoocoooccoooc cccc-c-cccccccooocccccooccrccc^cccccc OOOOOCOOOOOOOOOOCOO-C'CCOOOOOOOOOCOITj OOOOOOOO^HO^OOO^OO^HOO^HWCO—t^HOOOO^-twoCV

OOOOO^HOvOOOP^OOOh-mOOCViwHOOOr^OOiHOOIOOOOC; oriOocicr^HPhcfrirccceoowiiOoocjccGif a- ^ocoa-or^coc a p- f-- o ~ .h ip * t- k. « >c e ir> a-cs-c-cvooos c»^^ot«\'»nK, ir»"K"CK ec <\ o ir c vrr t ire r n r cr c>r f ccc to oo(C(Dc\jctr^K", r^ofOO'CMvOo^^-iooKjoiooLnajvO^' coior-r-oj

-* IT K! Kl . -i — l»i CV. * ff -I Cf 1*1 \0 CM

r. c cr

o —i o o o « a i-i •- •- >-

>-

I- I I ! » <. < <l <1

CC c c o o

O UJ UJ UJ UJ

cc r > i i cr i r ? I u. - -> — I-

_i xx o o o

U. I- t- z z

U. •-< >-> l/l I I

i-c>-it-ilE«J>li.LL \_JOU

l/l Ul l/l a. a. o.

a o

UJ -J -I

1 C\J CM Cu IO

or or x I n n 0. "-v a fot- x o >Sll.II\Z

c oil ll \_jou _jc\jcvic\iin irt "vvcjvcjoxx o V c; i_) X X UU(DII)lllNin"ZZI-M2ZQZNM-aNNliaiN\2 2ZhO

OQ_I_I_IO_IS:i-i>-iU.S'-i>-i>-i-iOOO>-00_I_IOO_I«-'>-->CCQ.

CC < < O CD <cco.uJuj zsz^ss? s?^:<\jrs_i>-i<; iticd^ CCE£OOZ*ZOZ3UO£¥£05-UUO_ISl3I*^:>:C*£C£*:

£ I

cm n ro cc 3

E £ S UJ < * I \U\ l-ON \ oioicsojunc

3

a

*-' LJ

iii Ll i- I

1- 3

Ul Z S£

rr UJ U. v u_ s

<i o UJ \r ui

LT 2irz

^c

J i. ^

m o

o l/l

iii z o

t- hJ CM un • •

i/i > in • IPO

r^ c\ c

_i a 9 rt r- -i

102
200.0 <7 M ILLEGAL TOFNTIFI^R

A12.35B ILLEGAL CHARACTER Tf. HIMFNSION

103
PA*T 656878 CHANGE

MM INCH MM INCH

.0001 .8 .031

.Il002 .00001 .9 .0^5

.0003 .00001 1.0 .039

.0001 .00002 1.5 .0^9

.0 005 .00002 9.4Q .370

.U006 .00002 12.5 .492

.0 007 .00003 18. n .709

.0008 .00003 19.0 .7'-i3 .0009 .00001 23.6 .9?9

.001 28.0 1.102

.uOlO .00004 34.0 1.331

.002 .0001 37.7 1 .481

.003 .0001 41.2 1 .622

.0 01 .0002 42.

5

1.673

.005 .0002 17.0 1 .«50

.006 .0002 56.7 ?.23->

.007 .0003 6b. 2. ^98

.008 .0003 70.0 2.756

.009 .0004 81.0 3.18«

.010 .0004 90. n 3.543

.01 n 110.

p

*.512

.02 .001 160.0 6.^99

.03 .001 165.0 6.U96

.04 .002 220.0 8.661

.05 .002 259.0 10.197

.06 .002 265.0 10.433

.07 .003 325.0 12.795

.08 .003 701.0 27.51R

.09 .001 850.001 33.4616

.10 .004 850.002 33.1616

.1 .004 850. 003 33.1617

.2 .008 850.004 33.1617

.3 .012 850.005 33.161R

.1 .016 850.0*6 33.1618

.5 .020 850.007 33.1618

.6 .024 860.008 33.1619

.7 .028 850.009 33.1619

104
PART 6S6870 CHANGE

DIM UNITS DIM UNITS

in.

5

BAR 152. PSI

.125 MPA 18. PSI

DEG C 32. DEG F 5.0 DEG TOL 9. DEG TOL

100.0 M 22.5 LRF

55.55 N/MM 317. LR/INCH

1000.00 UM 39.

4

MILS

10.50 CM 4.13 INCH

10.00 DM 39.4 INCH

100.0 KM 62.1 MILF

10000. MM2 15.5 IN2

100.0 CM2 15.5 I!\!2 120. M2 144. YD2

100.0 CM3 6.10 IM3

545.0 CM3 LIO 18.4 OZ.LIi

25. DL 84.5 OZ LIO

100. LITRE 106. QT

100. M3 131. YD3

100. G 3.53 OZ

10.05 HG 35.5 OZ

10.005 KG 22.1 LB

10. KG/M2 295. OZ/YD?

5.0 G/CM3 5. G/Q"3

1000.0 KG/M3 62.4 LR/FT3

17.5 MJ/KWH 12400. BTU/HPHR

75. MJ/KWH 53000. BTU/HPHR

.5 KG/H l.nOO POUND/MR

1.0 KG/H 2.25 POUMD/HR

17. KG/H 37.5 POUMD/HR

25. KG/H 55.0 POUND/HP

105
If inX LU

a. _i < c. L <c o

-Ic

I/) Q

Ll LJ o i-i Ll

Or tliJ c h- o

CL Ll 2' ^ C LU X C C • * <> i-^

cc

inao

orD

Lu

Llc

00 1- Lu

£- c a 2 >-

Z_

H

_l

Ll c Ll) C o C

cc (~ 00

Lu 2

oc

a

X or.

a cc ^ 1- h- lx U Ll 3 D hH i—i i—i i—i LJ z O s: «h 3 Ll Ll Ll _l s: •—i i—< »—

CD ^-

K »- I-

>4 1/1 z z z t- O LU Lu Ll Ll Q Q O z CO a a. •—i »— »—

o z < >-

i-i o o tJ _l _J

i/) 1—

4 < <X a K O < a. <£ O ID UJ h-

i- o LU LU LU > D < cc _l _J _J Z C c Cf 1 J » O <r Ll' •-• i-i —

u 3 >- Q. cc Z < t-» cc £ LU O LU t-t 1- LU X Ll

l/l

O t- I-I z> z 1- u < • UJ z s. s. x in cc LU < D < • U K) < a CC Q CC

I/) I-I CD <t CD • s 3 c

_J 1 LU

CD zo u H-l H cc r- Q 1/1 cc LU o LU z • t- h- CD ~H 1- LU O

LU C£ s: r» 10 s: • to s < X 5 — 1—4 in f0. z a _l o CC CM

1/1 3 O

OCOO

inZxo

5:a

cc o

<ra o • • • • • 3- ec * /! C H H o o o a e>

CC CT CM CM C*

I- IH »- I- © c o o o

tom ~" •"-! to

cm <\i to in in

O «H • • • • • d- c a^

U"> CO -^ rO rO

1/1 LU LU LU Ll' LU Lu LU LU Lu LJ LU Ll Ll Ll' Ll

1- CC cc <r x. x. a: a: an acx. CC

xx cc

x

1—

z

t- hhKh i— i— i— i— i

(- t- t- t- i-

••- f f ; r i

.• i ) . _J . —

F t 1 o

•H

r^- 2

t- in in in in

m in • • cc s: n in m • • • • • • • • • • CM CO < i-w • • • 3- h- CM 3" s CC -H to «-i JD CM -£ CL a * m eo -h <h CM CM CM * in in eo a* to to

106
vi

1/1 x

U

cr _J c C C C c —

IXO

KT.

Li.1 n uj c ccL_ c

I- • C —

u. c c c

Li '

h- c a. ^ (- c

U.' 2 o If • c

«tK

^L u. o z

1—f c

1/1 t—t

cr 1- o W HH > a

£. c c < u

>-c<2c

tu

l/> CD^ o < • CJ o

1/1I u

I—I

tr

Q_ CT UJ CT (-CO

a: > ro < ^ <

o. z cr

UJc<Xu

crcro

ro<

cr

UJOo

1/1 t-z en

35

CCO

vC

a'•o

rm CVJ 0n CT

C f- .*

r-|

OO <-t \0n r- co St cr !*» v0 \D Lf) rO CM

C HWKlh C\J fO Ct »H IP ec cr• s <\i cr r- O O O O CM lO J vO • t • • • • • • —1 «-l «-l <\J l*"5 cf

Q

l/l

cm in c ..VJ • rin cr in in o in o O ~H d- K> 3- in o a ^ •

Cv! • • • • • • • • o • «—1

vD cr c Is- O

O h- =3 CC »H H(\|* d- m in in «h

l-H < z a. cr 3 S"

cro

fO

<i

cr

t- • X *T o < 1—4 CC

Q.

Q 3-

107
***** *****

c: c :r c: a K I- K K I- r :.. :_ ? 2

U. L. U.

1 L. U_

c c <r ?• «s c c c o o

e. c. a g. c

i> liLbJL

< <. <r < c

i/i 1/1 in i/i it

V- IT L" L* {/) ***** ***** *****

1 f- • c Co

circoc-trc:irr'-»-, iof^cra:rcirccoGcrf^ccvc*\Cccc.3-oocvCo

c«-cc.c~{\--'ra:»-KcTi*"cp. oi/cirfircrp, c-cccrvcrccrcr- irooccaooaf^por^c:K>cv f\jvoc-^^ocioofOoirevvD*ocror^r-<\.K"

IT — -i -i IT) to to c to \T <\> cr to cr o f

o -* c o o

c t- >-. t-

>-

i- [ < < <

a. c c e

O til LlI bJ

lii •—i »—i •—

O >H a: a 3

i- t-t o

2

Id

ac

u- UJ o

Ll

tE =>- cc

Id * UJ t1- CE -H X 2

a cr _l X X II O O <_> OO CM to 0. "N lit- I- Z 2 •-> t-t a IO (- ID ^MHi/iii uj _i_i >-2:iiiivzi >-• >-i m u> o u. u. x _i <_> <j _it\ic\iMto to n.<jvuoooo l/ll/IUiyulIllIlNaiH;zi-M22aZNNl-QNNartlNMD2ZhOZ ll[LQOJJJOJ5HHL.fHH>.MCOt!>-OOJJOaj«Ml|]aM

X < < 'J o CM <\J fO to n >-i CE^ 21li JU.IL U^ ^2 2^ 2!* \"v ^.£ :S->. 5i£. ST2(\I2^-Ht; .>. ^ 2. (\| . ti:ij><j;is>»^ujuj?c2LU ZXOOZ^ZtaZZJUCS^EUZI

S I

co to to a: i uj \USI-UNM- USSOUILUTiSlJ

rr UJ i 14- X < a UJ UJ 4

o a. s. ^c

1 LI z

LD o n in UJ z in

t- UJ o t>

in e o • •

• ul 35 _i c in r- -*

108
.05 MJM

1.65 1E526

35. ML

-100.2?.+

37. 0" HSC

100.0 DEGREE C 1G0.0 ML

ILLEGAL TPFNTTFI rR ILLEGAL I0rNTTFl rr> ILLEGAL IDENTIFIER

TLLE^AL CHARACTER IM HIVirMSIC*'

ILLEGAL TDfr MTTFl rr7 ILLEGAL TD^NTTFI'-R

ILLEGAL ID^NTTc-irR

109
PART 9S3144 CHANGE 1 MM INCH MM

.00001

.00002 .000001

.0008 .00003

.001

.010 .0004

.013 .0005

.020 .0008

.03 .001

.040 .0016

.049 .0019

.05 .002

.0505 .00199

.051 .0020

.06 .002

.08 .003

.1 .004

.12 .005

.15 .006

.19 .007

.21 .008

.22 .009

.25 .010

.31 .012

.38 .015

.44 .017

.5 .020

.50 .020

.56 .022

.62 .024

.718 .0283

.7417 .02920

.75 .030

.76 .030

.781 .0307

.79 .031

.81 .032

.812 .0320

.88 .035

1.0 .039

1.00 .039

1.06 .042

1.12 .044

1.16 .046

1.19 .047

1.25 .049

1.3

1.375

1.38

1.5

1 . 55

1.62

1.75

1.81

1.86

1.875

1.88

2.00

2.0

2.06

2.12

2.46

2.50

2.55

2.57

2.62

2.69

2.74

2.75

2.77

2.82

2.88

3.0

3.02

3.05

3.06

3.07

3.50

3.62

3.623

3.75

3.875

3.88

4.00

4.0

4.50

4.75

4.88

5,0

5.00

5.12

INCH

.051

.0541

.054

.059

.061

.064

.069

.071

.073

.0738

.074

.079

.079

.081

.083

.097

.0Q8

.100

.101

.103

.106

.108

.108

.109

.111

.113

.118

.119

.120

.1^0

.121

.138

.143

.1426

.1H8

.1526

.153

.157

.157

.177

.187

.192

.1^7

.197

.202

MM IMCH MM TMPM

5.6 .220

5.62 .''21 5.69 .224

5.75 .226

5.88 .?31

6.00 .'36

6.0 .236

6.35 .250

6.u .252

6.625 .260P

6.

a

.972

7.00 .276

7.0 .r>7& 7.365 .''900

7.^0 .295

7.7R .305

8.0 .315

8.00 .M5

9.25 .364

9.* .^74

10.0 .394

11.00 .433

11.25 .443

12.0 .472

12. ."72

12.50 .492

13.0 .512

13.40 .528

14.0 .551

14.25 .561

15.0 .591

15. .591

15.50 .610

15.88 .625

16.0 .630

17.0 .^69

17.00 .<^69 17.50 .689

18.0 .709

18.50 • 7 28

19.0 .743

19.8 .780

20.0 .7A7

20.12^ .'923

20.83 .320

21.8 • 85j|

22.0 .A66*

25.0 • QC

"*I 25.17 .oaf

26.0 1.021

27.500 1 .nfl

30.860 l.?||

32.0 1 .2§|

38.0 1 .

1»°6 38.10 1 .^OR

40. 1 .S|J

41 .0 1 .614

45.0 1 .77?

46.0 1..811

50.0 1 . n(A

50. 1 .Qf9i

53.82 9.11°

54.23 -> . 1 3

C. 57.0 O . ?tl(J 60,° ? # ^OI|

63.5 ?.Rnn

67.0 ? .^~.,Q 73.0 ?.fl7|

74.2^0 2 , n?V

100. -*

# r>-»7

123. '1.84'. 123.5 'i.°6?

l?°.n *, n~*c 550. oi.nft< 580.0 '2 •

fi ?

L

76?.0 *n . onf 915.0 76.n?«

10 0.0° -*a.-*7f 10^0.0 ijn, 1?

10P5.0 an. ^ q '

1100.0 Hi , 3P" 120 0.0 ij7,?W

1270.0 CO,!"

130 0.0 81 . 1«1 1473.0 r7."or

1524.0 fto.onr 1535.0 60. 43? 1829.0 -rp.nnr 50«0 . onn.nr 53^5.0 "'l o,

n

7

110
PART 9S3144 CHANGE

DIM UNITS OTM UNITS UNITS iimtTS

2. BAR 2Q. PSI

.01 MPA 1. PSI 10.0 MPA 1O50. PSI

11)00.0 MpA 145000. PSI

1100. MPA 160000. PSI 100000. MPA ******** PSI 20.0 DES C 08. EG F 100. DEG C 212. DEG F 5.0 DEG TOL 9. DFG TOL

10. N 2.25 LRF

10. MM 7.38 LP FT 17.88 r.M 13.2 LR FT 25.55 MM 18.8 LP FT 10.0 GM 13.9 07 INCH

2D. GM 27.8 OZ INCH 100.0 GM 139. 07 INCH 1^.35 N/M'-i 110. LB/INCH

135.44 N/MM 773. L-VINCH

300.0 CM 11.8. INCH

lfi. nM 59.1 INCH

51.0 ny 201. iwrH 54.0 "M 21*. inch 200.0 OM 787. INfH

2 # 1CM 1 .2 Mil E

1.1 mM2 .00170 If io

5. 0M 3 .305 IN* 10.00 CM3 .610 IN* 15.55 CW3 .OI19 IN* 500.0 nL 16°0. O? LIR

4. l.IT°r 4.' OT 1?.5 M3 16.4 YD* 5S.55 "3 72.7 YD*

1"1 . "3 132. YD* 10.0 f: .353 OZ

4 .

i J G 1410. OZ

50. *G 1 10. LR

5.0 "FCV M 1Q70, INCH

10. MJ/KWH "'070. RTll/^lpM^ .R KG/H 1 .000 POUND/HP

1 .0 "GA' 2.25 P0"NDA'P

lb.O INCH

111
cr

IT- St hj

cr _' f £ £ < c \r o

_ia

en

Q. Ll UJ C i—i

Ll

a h-i UlCf- c

cr Li. 2T s: D LJ x C C • <i

cr

L^

-1. «H

in

c.o

cra

LlLlC

L/" \- Ll! Z o Q.

TM"z.

VK

_i U. o LU o e 5C

ae

H l/l LJ —i

cr

aX cr cr > K h Ll U ^ X i-i •-< i-i Ll z O J" -H 5 Ll Ll _J 2 -* »-i (L ^» 1- 1- < I/! Z Z K Q LU

Ll Ll q a 2 LT cr a. - t— O Z < >

»-i

O <_> i- _j -J

v/> >-4 < < a 1- O < cr e e

U! H-1 h- o LU Ll! > c <. cr _l _) Z c C cr _J _) o < LU t— t-t u X

>- a.

Ct z < M cr E LU o IU l-> 1- LU x Ll

l/> o t- •i D z K o < in LU Z U

O I CE cr LU o o • u z < a LU LU

l/l t-H o o • 2 D C 1 LU

co zo U -t

•M cr id c I/) K u ro LU z *

1- »- CD «H - LU o • LU cr s: m in 2£ • J* s < ~

~i ^- t—«

ID

X

a z vo -i o in r>-

11.2
PART 6J3135 CHANGE NR5

MM INCH

198.431 7.8122

1Q8.432 7.8123

198.433 7.8123

198.434 7.8124

198.435 7.8124

198.436 7.8124

198.437 7.8125

198.438 7.8125

198.439 7.8126

198.440 7.812b

1984.31 78.122

1984.32 78.123

1994.33 78.123

1984.34 78.124

1984.35 78.124

1984.36 78.124

1984.37 78.125

1984.38 78.125

19P4.39 78.126

1984.40 78.126

19843.1 781.224

19843.2 781.228

19843.3 781.232

19843.4 781.236

19843.5 781.240

19843.6 781.244

19643.7 781.248

19843.8 781.252

19A43.9 781.256

19344.0 781.260

113
PART 6J3135 CH'.NGF NT^

DT 1 UNITS DTM UNITS

7.61 PAR 110. PSI

7t>4.1 F^AR U inn. PS I 764.2 MBAR 11.1 PSI

764.3 MPA moon. PSI

764.4 OEG C 1410. DEG F 764.5 DEG TOL 1380. DEG TOL. 764.6 N 172. LP.F 764.7 KN I72nnn. LPF

7r>4.8 MM 564. LP FT

764.9 Gm 1060. OZ INCH

76b. N/MM 437n. LR/TNCH

764.21 UM 30.1 MILS

764.22 CM 301. INCH

764.23 n,vi 3010. INCH

764.24 M 2510. FT

764.25 KM 475. MILE

764.26 MM2 1.18 IM2

764.27 CM2 lift. IN2

764.28 M2 914. YP2

764.29 CM3 46.6 IN3

764.30 CM3 LIO 25.8 OZ 110

76.1 OL 257. OZ LIO

76.2 LITRE 80.5 QT

76.3 M3 99.8 YD3

76.4 G 2.69 OZ

76.5 HG 270. 07

76.1 KG 168. LP

76 .

2

UG 16800P. LP

76.3 KG/M2 2250. 0Z/YD2

76.4 G/CM3 76. G/CM3

76.5 KG/M3 4.78 LR/FT3

114
c

in

tr _i

«= D

Lu <

a 1/5

c

_Jc

o

1/1

C H O

UJC UJ

C; c

<1 Ki

L

(^

u. O

c o

rv 1- UJ => c a

5 t- ~ D

UJ "2L o 2 «H _J ?" tr<

H

Z 1/" o <£.

-.—. c

l/l l-H or h- c; UJ >—

i

> C

^: D

c <C o

>-

a.<

so

1- UJ

l/l o

r> z. o <

I

• o o

i/i• Z>

1 CJ

i-t tr «-v cr UJ «H

i- H CC «-t Ui ce s: —i ^ < — X

Q. 2 ~i

UJo

<:x o u o

c o c o

a o

f, o

«-< o c o c c c o o c c • X o ^ o o o O O O 3 • • o

u O O <H O O o o • • o o o

2 O O O «H • • • o o o o c

o o o o • • O

t- oj in d- d- d- * * • • o «-l o

zc o co m m • • • * * d- J -t < "> C C (\l • Lf) uT -T) IT) X) '0 IT) if) a s • • • CM CM CM CM CM CM CM CM CM

115
C: _J

*. Cl

<>

I/!

_Jc

IT

C, It h. o t-i Ll c t- L! c 1-

cc LU 2:

«>• ~ C LU C O

ClUX «H

l/l J- 2 C *c

_J

LlC

C£ -

L- ; ec a

> h x 3

Ll1 2 O 5- «H

_! ^

cc<

H

2 LP O 2

t-t O

V) 1—

1

a. 1- LU 1—1 > C

2 c

<r u

V

cc<

s:

1- Ll1 (/) O

x> 2

X • O O

l/>

1

(-1 CC (V cc LU CVJ 1- t- CC (VI LU CC 2 <\I 2" < X X

Q.Z W

LUO

X

<:X

cv; d- c ^ © O

X * d- O »-l O

ec 00 O «-H 2 0* s • • • • • •

cvj H • • »-i *-t «H «-l «-l «-t CM

CVJ

cvj X m pn

CVJ O K) OK) 00 00 rO If) *

t- * * j- 4t vO C* oc • • • • • • • • < s in in if) m it Jl if) O

Q. s CM CVJ (VJ CM CVJ CVJ CVJ CVJ

116
IT* U a _' < c

IT.

o

—

I

c

Llo

inC

LJ

r l. r: 5 C li.l - c c_

ccb

{/)

u. o

c u

u -

cr a. r k

UJ C X «H

2 V". O 2

»—

i

O

in t—

i

cc 1- c

UJ H-1 > c

"Z:' c

O <

o

>-c<

s:o

K L W O

Z> -z. o <

I

• c o

to

<_>

l-l cc to cc Ll! m

h- y- cc n

UJ C< S ro

3. < r x

o. z to

LJO

erX

Oj

vO OJ tM OJ OJ c r- vc cr o> a> r o in r» r-> r- r» Is- o o o o o o O O

2 • • • • • • • PD H- •-I »-4 «-l 1-1 «-i •- «H

ro

to

to ro X oj to

to .-i OJ OJ

d- to O »h «-i «-i H- * co to 3- d- * 3"

<x • • • • • • • < 2 s> o r- (^ r- r- r- a 2 CVJ OJ OJ (VI OJ OJ OJ

117
ov

0"

i. li C _! f ?

li <

o

lLo

c

u

Z. C

Ll O

C c

c: t- U

EC5 »- 3^

' UJ 2 c 2 -

-J ^

a

«5K

z- Ul O *1T i-« O

i/> •-i cr »- c_ LJ »-» > O

r c c <T u

>-a<

s.o

t- ll_ 10 o

=) z u <

• (J o

to

• D

1o

l-l a *

cc uj * »- - CD *

U.I X 5" d- j < O x a z *

UJ

X

o

x

a

3- c o o tn n

X O 0(\l(M(\l

o O «-H «-« «H «H 2 • • • • •

d- in CM rO * o> * in in

vC in in

a- *

io to

CM CM

CO

in in ro ro

in in

in f" S B (8 cc <c CM C\J CM CM CM CM CM

118
c

c

c

cC PROGRAM GMMETR CONVERTS FROM MILLIMETRES TO INCHES - JUNE 1 P7'i C ROBERT DAVIES

C ROOM 1-14 R.A.P.

C EXTENSION 5-2745

C GM RESEARCH LABORATORIES

C GM TECHNICAL CENTER

C WARRENr MICHIGAN 48090

C

DIMENSION AM (1000) rL(130) »L1 (BO) »LL(M 4) »MD( 1000) »USC ( 1 000)

DIMENSION I3UF(?0)

C THE TWO PREVIOUS LINES CONTAIN ALL REFFRE^CES TO ARRAY SI^S

C EXCEPT FOR SOME FORMAT STATEMENTS AFTF* STATE^NT 36.

CC AM = THE METRIC MEASUREMENT IN MILLIMETRES

C L = THE INPUT DATA» HOLLFRITH

C LL = THE OUTPUT DATA, HOLLERITH

C NO = THE NUMBER OF DIGITS TO THE RIGHT OF THE DECIMAL "OT^T

C IN THE US CUSTOMARY OUTPUT

C USC= THE US CUSTOMARY MEASUREMENT IN INCHES

C DATA LM»NH»NM/7t»l9»1000/

DATA IBUF(1)» IBUF(?)» IRUF(3)» IBUF(4)f IBUF(5)r

1 IBUF(6)» IBUF(7)» IRUF(8)» IBi)F(9)» IBUF(10)»

1 IBUF(11)»IBUF(12) , IRUF(13) , IRUF(14) #TBUF(15)

»

1 IRUF(16) *IBUF(17) »IBUF(18) »IBUF(19) »TRUF(?0)

1 /1H »1H »1H »1H »IH »1H »1H t IH »IH . 1H » 1 IH »1H »1H »1H »1H rlH »1H » IH »IH »1H /

DATA IBLANKf IPLUS»IC0MMA>IP0INT»I7ER0»TMIMFV

11H »1H+»1H» »1H. »1H0.1HP/

DATA IREAD»IWRITE»TUNlT/5,5rl/

C

C THE ABOVE DATA STATEMENT SETS THE INPUT UNIT NUMBER* TH^ OUTPUT

C UNIT NUMBER AND THE SCRATCH UNIT NUMBER.

C LMl=LM+l

ISW1=1

C ISW1 IS A SWITCH THAT IS USED TO SUPPRESS PRINTING OUT CERTAIN

C INSTRUCTIONS UNLESS ASKED FOR THE FIRST TTME THROUGH.

C WRITE(IWRITE»97)

97 FORMAT(30H ENTER A SINGLE PLUS SIGN* + »/9H FOR MOPE*

140H INFORMATION. ELSE* HIT CARRIAGE RETURN./)

READ(IREAD»3)I

IF(I.EQ.IPLUS)ISW1=0

IF(ISW1.EO.O)WRITE(IWRITE»1)

1 F0RMAT(49H ENTER THE DRAWING IDENTIFICATION AND THE MAYIMU*'*

121H WIDTH ON THE DRAWING/24H FOR THE MILLIMETRE-INCH*

148H CONVERSION TABLE (IN MILLIMETRES). PUT A C0MMA/8H BETWEEN*

157H THE TWO ENTRIES. a PAIR OF COLUMNS IS 53. 3U MTLLP'ETRFS*

16H WIDE./)

119
100 IF(ISWl.EQ.l)WRITE<IwRITE»52)

C

2 CONTINUE"

C RETURN TO STATEMENT 2 IF THERE IS To RF MORE THAN CNF T ARI F C CALCULATED.

CC THE VECTOR LI IS TO CONTAIN THE DRAWING IDENTIFICATION *nn

C MAXIMUM TABLE WIDTH WITH A COMMA IN BETWEEN. IN ^PPfv TD

C SEPARATE THE TW0» THE COMMA IS LOCATED (B* l.!l) AFTro JT

C TRAILING BLANKS ARE DROPPFn OFF.

READ(IREAD»3) (LI ( I ) r 1=1 »LM)

3 FORMAT (136A1)

DO 4 I=1>LM

J=LM1-I

IF(LKJ) .NE.IBLANK)GOTO 5 4 CONTINUE

5 CONTINUE

DO 6 L11=1»J

IF(LKLll) .EQ.ICOMWA)GOTO 7 6 CONTINUE

STOP

7 CONTINUE

L11=L11+1

C CHECK FOR NONNUMERIC CHARACTERS AFTER COM^A

DO 70 I=L11>J

IF(LKI) .GT.ININE) GO TO 54

IF(LKI) .LT.IZERO) GO TO 54

70 CONTINUE

C THE MAXIMUM WIDTH OF THE PRINTOUT IN Mi[_LTMFTR^S TS IN THF VECTOR

C LI FROM Lll TO J AS HOLLERITH CHARACTERS. To PFC^VER TT

C AS A FLOATING POINT NUMBER* IT IS WRITTEN INTO CHANNEL IUNIT AND

C READ RACK OUT. EVENTUALLY IT IS CONVERTED INTO TW» THE

C NUMBER OF COLUMN PAIRS. EACH COLUMN PAIR REQUIRES 21 FPAC^S nr

C 53.34 MILLIMETRES* AND THF^E CAN BE NO MORE THAN 6 PATHS.

IS=20-J

DO 71 II=L11.J

IJ=IS+II

71 IBUF(IJ)=L1(II)

WRITE (IUNIT»72) IBUF

72 FORMAT(20A1

)

DO 73 II=L11»J

IJ=IS+II

73 IBUF(IJ)=IBLANK

REWIND IUNIT

READ(IUNIT»76)W

76 FORMAT(F20.0)

REWIND IUNIT

Lll=Lll-2

IW=INT(W/53.34)

IW=MAX0(1»IW)

IW=MIN0(6»IW)

IF(ISWl.EO.0)WRITE(lWRITE»fi)

8 F0RMAT(54H ENTER THE MILLIMETRE DIMENSIONS ON A LINE WtTH CO: " M A< 112H IN RETWEEN./42.H THF COMPUTER WILL KEEP ASKING FOR ANOTHF p »

120
124H LINE OF INPUT UNTIL YOU/31H INDICATE THAT YOU "AV^

- NO ^OPF»

135H INPUT BY ENTERING 0. (ZFRO) AS THF/13H LA^T NUMBER./

1<+3H SHOW THE DECIMAL POINT EVEN WITH TNTE^RS./

157H F3E CAREFUL IF YOU ENTER A DTMENSIOM Lft^GEP THAM ?=< 000 , 112H MILLIMETRES/

15fiH DO NOT ENTER A TOLERANCF SMALLER THAN 0.001 MILLTMETPE /

159H A DIMFMSION CANNOT EXCEED P 000 "00 TIM^S ITF TOI.FRAHCF./)

IF(ISW1.E0.1)WRITE(IWRITE.9)

9 F0RMAT(53H ENTFR THE mt|_LIMETPE DIMFNFIO:.l F» INDICATING LAFT 0ME>

114H BY 0. (ZERO) ./)

Nl=l

C 10 CONTINUE

C RETURN TO STATEMENT 10 IF MOPE THAN OME L

T ME tf fg F rr>E n FO^ THr

C INPUT DATA FOR ONE TA^LE.

READ(IREAP»3) (L( I ) » 1=1 »LM)

C kEAD THE INPUT DATA AS HOLLERITH CHARACTERS V>n T^FM REJECT

C TRAILING BLANKS.

121 DO 11 I=1»LM

J=LM1-I

IF(L(J) .NE.IBLANK)GOTO 12

11 CONTINUE

12 CONTINUE

CC REJECT A TERMINAL COMMA.

M=0

IF(L(J) .NE.ICOMMA)GOTO 13

L( J)=TBLANK

J=J-1

IF(J.GT.l) GO TO 121

C ELIMINATE LEAPING COMMAS

C INSPECT THE INPUT FOR ILLEGAL CHARACTF^s* IM ; Fnr>E n PL^MKS (REJECT

C THEM) r CONSECUTIVE DECIMAL POINTS WTTHOUT A CO^MA PFTWrEN»

C AND CONSECUTIVE COMMAS WITHOUT NUMERICAL CHARACTERS BE^WEFM.

C FINALLY* COUNT THE NUMBER OF DIGITS A r TE^ T"F nFC T,"AL r>OT MT . 13 CONTINUE

M=M+1

IF(M.GT.J)GOTO 15

IF(L(M) .NF.lBLANK.ANn.L(l) .NE. ICOMMA) ^OTo 13

J=J-1

Do 1<+ K=M»J

L(K)=L(K+1)

14 CONTIMUF

M=M-1

GOTO 13

15 CONTINUE

ISWC=1

ISWP=0

N=N1-1

DO 22 1=1 f

J

IF(L(I) .EO.IPOINDGOTO It, IF(L(I) .EG.ICOMMA)GOTO 19

IF(L(T) .LT.IZERO)GOTO 20

IF(L( I) .GT.ININEJGOTO 20

121
iswc=n

GOTO 22

16 CONTINUE

IF(IS>-'P.E0.1)GOTO 17

NP=I

ISWP=1

lswc=o

GOTO 22

17 CONTINUE

WRITL(IWRITEH.«)

18 F0RMAT(51H THE LINE HAS TWO DECIMAL POTNTS WITHOUT A CW* IN» 19H RETWEEN./2SH PLEASE REENTER THE LP'E.V)

GOTO 10

19 CONTINUE

IF(ISWC.EQ.l) GO TO 20

N=N+1

N0(N)=I-NP

IF(ISWP.EQ.O)ND(N)=l

ISWC=1

ISWP=0

GOTO 22

20 CONTINUE

WRITE(IWRITE»21)

21 FORMAT (49H THERE IS AN ILLEGAL CHARACTER tm T'.'E INPUT LTNF./

1MH ONLY POINTS* SINGLE COMMAS* AMn THE TEN nTGIT^ may ;w USFD./

125H PLEASE REFNTFR THE LINE./)

GOTO 10

22 CONTINUE

N2=N+1

ND(N2)=J-NP+1

IF(ISWP.EQ.0)ND(N2)=1

I F ( N2 . GT . NM+1 ) WR I TE ( I WP I TE » 23 ) N'« » MM

23 FORMAT(5H ONLY»I5»24H MUMPERS CAN RE ENTERED./

115H ONLY THE FIRSTr I5»?'2H ARE RFING PROCESSSE^.

)

N2=MIN0(N2»NM)

C

C U.RITE THE DATA AS HOLLERITH CHARACTERS ON CHAMMEL TUNTT A"n P.Ftf) TT

C BACK FREE-FIELD FORMAT (AS NON-INTEGER NUMBERS).

Kl=l

JP1=J+1

REWIND I UN IT

DO 245 K=1»JP1

IF (K.LT.JP1 .AND. L (K ) .NE. ICOMMA) GO TO ?45

K2=K-1

IS=21-K

DO 241 II=K1»K2

IJ=IS+II

241 IRUF(IJ)=L(II)

WRITE(IUNIT»3) IPUF

DO 243 II=K1»K2

IJ=IS+1I

243 IflUF(TJ)=IBLANK

Kl=K2+2

245 CONTINUE

122
REWIND IUNIT

DO 247 I=N1»N2

READ (IUNITr246) AM(I)

2^6 FORMAT (F20.0)

247 CONTINUE

IF(AM(N2).EQ.0.)GOTO 25

IF(N2.EQ.NM)G0T0 26

N1=N2+1

C GO BACK TO GET ANOTHER LINE OF DATA.

GOTO 10

C

25 CONTINUE

C THE LAST NUMBER WAS ZFRO SO ALL THE DATA TS I"' AND REJFCT THE

C ZERO* OR

N2=N2-1

26 CONTINUE

C NM NUMBERS WERE FED IN» THE MAXIMUM.

N1=N2+1

C

C PUT THE NUMBERS IN ORDER* FIRST BY NUMBER OF DIGITS TO THE RIGHT

C OF THE DECIMAL POINT* ND.

DO 28 I=1»N1

J1=N1-I

IFU1.LT.2) GO TO 2R

DO 27 J=2»J1

K=J-1

IF(ND(K) .LE.ND(J) )GOTO 27

A=AM(K)

AM(K)=AM(J)

AM(J)=A

M=ND(K)

Nn(K)=ND(J)

ND<J)=M

27 CONTINUE

28. CONTINUE

C

C THEN PUT THEM IN ORDER BY SIZE OF THE MEASUREMENT SO TMAT AMY

C DUPLICATE MEASUREMENTS WILL RE TOGETHER.

DO 30 I=1»N1

J1=N1-I

IF(J1.LT.2) GO TO 30

DO 29 J=2»J1

K=J-1

IF(AM(K) .LE.AM(J) )GOTO 29

A=AM(K)

AM(K)=AMIJ)

AM(J)=A

MrND(K)

ND(K)=ND(J)

ND(J)=M

29 CONTINUE

30 CONTINUE

C

C REJECT ANY DUPLICATE MEASUREMENTS. ISWP IS TMF SWITCH THAT TFLl.'

123
C WHETHER THAT HAS BEEN DONE. FOR REJECTION* BOTH AM, Tt-»E ST7E,

C AND ND» THE TOLERANCE, MUST HE THE SAME.

ISWP=0

1 = J=l

31 CONTINUE

1 = 1 + 1 J=J+1

32 CONTINUE

IF(J.GT.N?)GQTO 3<+ IF(AM(I) .NE.AM(J) )GOTO 31

IF(ND(I) .NE. ND( J) )GOTO 31

N2=N2-1

ISWP=1

DO 33 K=J,N2

K1=K+1

AM(K)=AM(K1)

ND(K)=ND(K1)

33 CONTINUE

GOTO 32

31 CONTINUE

IF(ISWP.EQ.1)WRITE(IWRTTE»35)

35 F0RMAT(/3«+H DUPLICATE MEASUREMENT (S) PEEVED./)

CC THE PAUSE IS NEEDEO TO PUT IN .THE SPECIAL TRANSPARENT PRINTOUT

C PAPER. THE C IN COL. 1 SHOULD BE PE"OVED IF THIS OPTIOM IS WA^TPP

C PAUSE

REWIND I UN IT WRITE(IWR'ITE,3)IBLANK, (LI (I) » 1 = 1 » LID

WRITE(IUNIT,36)

36 FORMAT (6 (7X,2HMM,5X,6H( INCH) , IX)

)

REWIND IUNIT

NC=21*IW

RE AD (IUNIT, 3) (L( I ) , 1=1 »NC ) WRITE(IWRITE,37)

37 FORMAT (1H ) WRITE (I WRITE, 3) (L(I) ,1=1, NO

WRITE(IWRITE,37)

REWINn IUNIT

Nl=(N2+IW-l)/IW

CC THE NEXT DO LOOP PRINTS THE OUTPUT.

1 = DO 51 11=1, Nl

Kl = l K?=NH

C

C THE NEXT DO LOOP PREPARES ONE LINE OF THE TABLE. EA*~H T TME

C THROUGH ONE PAIR OF COLUMNS IS PREPARED.

DO 47 12=1, IW

1 = 1 + 1 IF(I.GT.N2)G0T0 HH

CALL CONVMM(AMd) ,ND(I) ,USC(D)

IF(ND(I) .LT.l) WRITE (IUNIT ,38) AM (I) »USC(I)

124
38 FORMAT ( F7 . * Fa. * 4X)

IF(ND(I) .EQ.l)WRITF(IllMITr3D) AM( I) * USC ( I

)

39 PORMAT(F7.0.F9.1*3X)

IF(ND(I) .EQ.2) WRITE (IUNIT » 40) AM( I) * USC ( I

)

40 FORMAT(F8.1*F<3.2»2X)

IF(ND(I) .EQ. 3) WRITE (TUMI 1*41) AM(I) f'ISC(T)

41 F0RMAT(F9.?»F9.3*1X)

TF(MD(I) .EQ. 4) WRITE (IUNIT .42) AM (II »USC(I)

42 FORMAKFln^^Q.I)

IF(ND(I) .GT. 4) WRITE (I UNIT* 43)

43 FORMAT ( 19 (1H )

)

GOTO 45

44 CONTINUE

WRITE(IUNTT»43)

45 CONTINUE

REWIND I UNIT

READ (IUNIT* 46) (LL(K) »K=K1*K2)

REWIND IUNIT

46 FORMAT (19A1)

K1=K1+NH

K2=K2+NH

47 CONTINUE

K2=K2-NH

K3=K2+1

DO 48 J=1»K2

K=K3-J

IF(LL(K) .ME.IBLANK)GOTO <+o 48 CONTINUE

49 CONTINUE

WRITE (I WRITE* 50) (I.L(J) »J=1*K)

50 F0RMAT(6(3Al»lX»15Al»lXr Al) ) 51 CONTINUE

CC THE TABLE HAS BEEN COMPLETED SO ASK IF TH^Pf" jS /\r'OTHFf OM*-

. WRITE (I WRITE* 52)

52 FORMAT (//37H FNTER THE IDENTIFICATION <CGMMA) AND.

125H WIDTH FOR ANOTHER TA'^LE./

150H TO ENn PROGRAM* ENTER ANY ALPHABETICAL CHTACTFR. /)

53 ISW1=1

REWIND IUNIT

GOTO 2 54 CONTINUE

WRITE(IWRITE*55)

55 F0RMATC48H THERE HAS BEEN AN ERPOR IN ENTERING THF MAXIMUM

i

113H TABLE WIDTH. /42H PLEASE RFEMTER T^F ID^MTTFIC ation ANn

113H TABLE WIDTH./)

REMIND IUNIT

GOTO 2 END

C SUBROUT I NE CONVMM ( A » N t B

)

C SUBROUTINE CONVMM CONVERTS MILLIMETRES* A* INTO INCHES* B.

C N IS THE NUMRFR OF (SIGNIFICANT) DIGITS THERE SHOULD ^f: to Ttir C RIGHT OF THE DECIMAL POINT IN B. ^IPST A 'S CONVE p TED t

125
C INCHES MULTIPLIED RY THE PROPER POWFR OF 10 S"> TH»T AS AN

C INTEGER IT WILL HAVE THE CORRECT MUM'J'ER O r DIGITS. ROUNDING !«; C THEN CARRIED OUT.

R=10.**N

S=R*A/25.4

K=INT(S)

T=FLOAT(K)

D=S-T

IF(D.fQ..S)GOTO 1 IF(D.GT..5)T=T+1.

GOTO ?

1 CONTINUE

K=M0D(K>2)

IF(K.EQ.1)T=T+I

.

2 CONTINUE

R=T/R

RETURN

END

126
c

c

cc

c

cc

C PROGRAM GMINCH CONVERTS FROM INCHES TO MILLIMETRES - JUNE 19^u

C ROBERT DAVIES

C ROOM 1-141 R.A.B.

C EXTENSION 5-2745

C GM RESEARCH LABORATORIES

C GM TECHNICAL CENTER

C WARREN* MICHIGAN 48090

C DIMENSION AM(1000)»L(130)*L1(P0)»LL(114) * 'I'M 1000) *USC(100n)

DIMENSION IBUF(20)

C THE TWO PREVIOUS LINES CONTAIN ALL REFERENCES TO ARPAY SI7PS

C EXCEPT FOR SOME FORMAT STATEMENTS AFTER STATEMFNT 36.

CC AM = THE US CUSTOMARY MEASUREMENT IN INCHES

C L = THE INPUT DATA* HOLLERITH

C LL = THE OUTPUT DATA* HOLLERITH

C ND = THE NUMBER OP DIGITS TO THE RIGHT OF THE. DECIMAL POINT

C IN THE US CUSTOMARY INPUT

C USC= THE METRIC MEASUREMENT IN MILLIMETRES

C DATA LM»NH*NM/72»19*1000/

DATA IBUF(1)» I6UF<2)» IRUF(3) »TR|JF(4), TPUMS)*

1 IBUF(6)* IBUF(7)# IRUF(R)* IR-UF(O)* TBUF(J.0)»

1 IBUFClDf I3UF(12) »IBUF(13)*IBUF(14) , IBUFU5) * 1 IBUF(16) *IBUF(17) »IPUF(18) *IRUF(19) »TBUF(?0)

1 /1H *1H »1H »1H *1H *1H *tH *1H »]H . 1H * 1 1H »1H »1H »1H *1H »1H rl.H * 1H *1H r 1H /

DATA TBLANKf IPLUS» ICO^MA * IPOINT* IZERO* INIME/

11H *1H+»1H* »1H. »1H0»1H9/

DATA IREADrlWRITEf IUNIT/5,5»1/

C

C THE ABOVE DATA STATEMENT SETS THE INPUT UNIT MUMPER* THr OUTPUT

C UNIT NUMBER AND THE SCRATCH UNIT NUMBER.

C LM1=LM+1

ISW1=1

C ISWr IS A SWITCH THAT IS USED TO SUPPRESS PRINTING OUT CERTAIN

C INSTRUCTIONS UNLESS ASKED FOR THE FIRST TTME THROUGH.

C

WRITE(IWRITEr97)

97 FORMAT(30H ENTER A SINGLE PLUS SIGN* + »/°H FOR MORE*

140H INFORMATION. ELSE* HIT CARRIAGE RETURN./)

RFAD(IREAD»3)I

IF(I.EQ.IPLUS)ISW1=0

IF(ISW1.EQ.0)WRITE(IWRTTE*1)

1 FORMAT U9H ENTER THE DRAWING IDENTIFICATION AND THF MftVTMU'"*

121H WIDTH ON THE DRAWING/24H FOR THE MILLIMETPF-INCH*

127
148H CONVERSION TABLE ( TN f'lLLTMFTP^S) . P'!T A C0MM»/8H H£Ti?'F cM#

157H THE TWO ENTRIES. A PAIR OF COLUMNS IS 53. 7-U MTLLTVFTP^Sf

16H WIDE./)

100 IF(ISW1.EG.1)WRITE(IWRITE,52)

C. 2 CONTINUE

C RETURN TO STATEMENT 2 IF THERE IS TO PF MORE THAN Of'E TABLr

C CALCULATED.

C

C THE VECTOR LI IS TO CONTAIN THE DRAWING IDF mtiftcaT t ON AND

C MAXIMUM TABLE WIDTH WITH A COMMA TN BFTWEFN. IN ORPEP TO

C SEPARATE THE TWOr THE COMMA IS LOCATED (BY j_U) AFTF n THF

C TRAILING BLANKS ARE DROPPED OFF.

READ(IREAD»3) (LI ( I ) » 1=1 »LM)

3 FORMAT (136A1)

DO 4 I=1#LM

J=LM1-I

IF(LKJ) .NE.IBLANK)GOTO 5 4 CONTINUE

5 CONTINUE

DO 6 L11=1»J

IF(LKLll) .EQ.ICOMMAJGOTO 7

6 CONTINUE

STOP

7 CONTINUE

L11=L11+1

C CHECK FOR NONNUMERIC CHARACTERS AFTER COMMA

DO 70 I=L11»J

IF(LKI) .GT.ININE) GO TO 54

IF(LKI) .LT.IZERO) GO TO 54

70 CONTINUE

C THE MAXIMUM WIDTH OF THE PRINTOUT IN MILLIMETRES TS IN THF VEC TOP

C LI FROM Lll TO J AS HOLLERITH CHARACTERS. TO RECOVER IT

C AS A FLOATING POINT NUMBER* IT IS WRITTEN INTO CHANNEL IUNTT AMD

C READ BACK OUT. EVENTUALLY IT IS CONVERTED INTO IW» tHF

C NUMBER OF COLUMN PAIRS. EACH COLUMN PAIR REQUIRES 21 SPACF^ on

C 53.34 MILLIMETRES* AND THERE CAN BE NO MORE THAN f- PAIRS.

IS=20-J

DO 71 II=L11»J

IJ=IS+II

71 IBUF(TJ)=L1,(II)

WRITE (IUNIT»72) IBUF

72 FORMAT(20A1)

DO 73 II=L11»J

IJ=IS+II

73 IBUF(IJ)=IPLANK

REWIND IUNIT

READ(IUNITr76)W

76 FORMAT(F20.0)

REWIND IUNIT

Lll=Lll-2

IW=INT(W/53.34)

IW=MAX0(1»IW)

IW=MIN0(6#IW)

128
if(iswi.eq.o)write<twrite»8)

fl format (48h entfr the inch dimensions on a lin?7 with commas"'* 11?h in between. mf>h the computer will k^e" asking eor amothep*

124h line of imput until y0u/31h indicate that you have mo more*

135h input ry entering 0. (zero) as thf/13h last number./

143h show the decimal point even with tmtf^rs./

161h be careful if you enter a dimension large" than 1^00 t^'c^fs*/

155h do not enter a tolerance smaller than 0.000 1 inch /

160h a dimension cannot exceed r 000 00o tim^s its tolerance /)

if(isw1.e0.1)write(iwrite»9)

9 f0rmat(51h enter the inch dt'lfnsions* inotcattng t^e last ^mf»

huh by 0. (zero) ./)

N1=1

C 10 CONTINUE

C RETURN TO STATEMENT 10 IF MORR THAN ONE LINE TS NEEDED FO D TH^

C INPUT DATA FOR ONE TABLE.

READ(IREAR»3) (L( I ) » 1=1 »LM)

C KEAD THE INPUT DATA AS HOLLFRITH CHARACTERS AND THEM PFJE<~T

C TRAILING PLANKS.

121 DO 11 I=1*LM

J=LM1-I

IF(LU) .NF.IRLANK)GOTO 1?. 11 CONTINUE

12 CONTINUE

CC REJECT A TERMINAL COMMA.

M=0

IF(L( J) .NE.ICOMMA)OOTO 13

L(J)=TBLANK

J=J-1

IF(J.GT.l) GO TO 121

C ELIMINATE LEADING COMMAS

C INSPECT THE INPUT FOR ILLEGAL CHARACTERS' TMHEPDEO PLANKS (REJECT

C THEM)* CONSECUTIVE DECIMAL POTNTS WTTHOi.lT A COMMA BETWEEN*

C AND CONSECUTIVE COMMAS WITHOUT NUMERICAL r HARArTEPS BETWEFM.

C FINALLY* COUNT THE NUMBER OF DIGITS AFTFR THE npcTMAL POINT.

13 CONTINUE

M=M+1

IF(M.GT.J)GOTO 15

IF(L(M) .NE.IBLANK.ANO.L(l) .ME. ICOMMA) GOTO 13

J=J-1

DO 14 K=M»J

L(K)=L(K+1)

14 CONTINUE

M=M-1

GOTO 13

15 CONTINUE

ISWC=l

ISWP=0

N=N1-1

DO 22 1 = 1,

J

IF(L(I) .EO.IPOINDGOTO lb

IF(L(I) .EO.ICOMMA)GOTO 19

129
IF(L(I) .LT.IZrR0)GOT0 ?0

F(L(I) .6T.ININE)G0T0 ?0

ISWC=0

GOTO 22

16 CONTINUE

IFtlSWP.EQ.DGOTO 17

NP=I

ISWP=1

ISWC=0

GOTO ?2

17 CONTINUE

WRITE ( IWRITE»1P)

IB F0RMAT(51H THE LIME HAS f Wo DECIMAL POINTS WITHOUT A CO^MA J\ t 19H BETWEEN. /25H PLEASE REFNTER TH^ LINE./)

GOTO 10

19 CONTINUE

IF(ISWC.EO.l) GO TO 2D

N=N+1

ND(N)=I-NP-1

IF(ISWP.EQ.O)ND(N)=n

ISWC=1

ISWP=n

GOTO 22

20 COfJTINUF

WRITEC IWRITE»?1

)

21 F0RMATU9H THERE IS AM ILLEGAL CHARACTER tm THE IN"UT I. INr ./

1(S1H ONLY POINTS* SINGLE COMMAS* AMD T HF TrN n TGTT<; jvjaY 3^ USFD./

125H PLEASE REFMTFR THF LINE./)

GOTO 10

22 CONTINUE

N2=N+1

ND(N2)=J-NP

IF(ISWP.EO.0)ND(N2)=0

I F ( N2 . GT . NM+ 1 ) WR I TF ( I WR I TF » 23 ) NM » MM

23 FORMAT (5H 0NLYfI5»?4H NUMBERS CAN ^F ^NTEnFD./

11SH ONLY THE FIRST, I5»??H ARE BEING RROCF<;SSEn .

)

N2=MIN0(N2#NM)

C

C WRITE THE DATA AS HOLLERITH CHARACTERS ON CHANNEL IUNIT AMD prfln TT

C PACK FREE-FIELD FORMAT (AS NON-INTEGER NUMBERS).

Kl = l JP1=J+1

REWIND I UN IT DO 2<+ c. K = l f JP1

IF (K.LT.JP1 .AND. L (K) .NE. ICOMMA) GO T ^ ?45

K2=K-1

IS=21-K

DO 241 II=K1,K2

TJ=IS+II

241 IBUF(IJ)=L(II)

WRITE(IUNIT»3) IRUF

DO 243 II=K1»K2

IJ=IS + H

243 IRUF(IJ)=IBLANK

130
Kl=K2+2

215 CONTINUE

REWIND IUNIT

DO 247 I=N1»N2

READ (IUNIT»246> AM(I)

246 FORMAT (F20.0)

247 CONTINUE

IF(AM(N2).EQ.0.)GOTO 25

IF(N2.EQ.NM)G0T0 26

N1=N2+1

C GO BACK TO GET ANOTHER LINE OF DATA.

GOTO 10

C 25 CONTINUE

C THE LAST NUMBER WAS ZERO SO ALL THE DATA IS IN ANP PEJ^CT THE

C ZEROr OR

N2=N2-1

26 CONTINUE

C NM NUMBERS WERE FED IN* THP MAXIMUM.

N1=N2+1

C

C PUT THE NUMBERS IN ORDER , FIRST BY NUMBER OF nTGITS TO TH^ RlGwT

C OF THE DECIMAL POINT* ND.

DO 28 I=lrNl

J1=N1-I

IFU1.LT.2) GO TO 28

DO 27 J=2»J1

K=J-1

IF(ND(K).LE.ND(J))GOTO 27

A=AM(K>

AM(K)=AM(J)

AM(J)=A

M=ND(K)

ND(K)=ND(J)

ND(J)=M

27 CONTINUE

Cc

28 CONTINUE

THEN PUT THEM IN ORDER BY SIZE OF THF MEASUREMENT SO TMAT fMY

c DUPLICATE MEASUREMENTS WILL RE

DO 30 I=1»N1

J1=N1-I

IFU1.LT.2) GO TO 30

DO 29 J=2»J1

K=J-1

IF(AM(K).LE.AM(J) )GOTO 29

A=AM(K)

AM(K)=AM(J)

AM(J)=A

M=ND(K)

Nn(K)=ND(J)

ND(J)=M

29 CONTINUE

30 CONTINUE

TOGETHER.

131
cC REJECT ANY DUPLICATE MEASUREMENTS. ISWR TS T- ,r S' TTC" That jn

C fcHETHFR THAT HAS 3EEN' DONE. FOR REJECTION* ROTH * M » THE S

T 7 r . C AND MD» THE TOLERANCE* MUST HE THF SAME". ISWP=0

1 =J=l

31 CONTINUE

1 = 1 + 1 J=J+1

32 CONTINUE

IF(J.GT.N?)GOTO 34

IF(AM(I) .NE.AM( J) )GOT^ 31

IF(NU(I) .NE.ND(J) )GOTO 31

N2=N2-1

ISWP=1

DO 33 K=J»N2

K1=K+1

AM(K)=AM(K1)

ND(K)=ND(K1)

33 CONTINUE

GOTO 32

31 CONTINUE

IF(ISWP.E0.1)WRITF<lV' I?TTr»35>

35 F0RMAT(/34H DUPLICATE MEASUREMENT (S) vF.^.Wf),/)

C

C THE PAUSE IS NEEDED TO PUT IN THE SPECIAL TRANSPARENT r»PP'TOUT

C PAPER. THE C IN COL. 1 SHOULD HE PE^OVED t F Th t S ^TK'i IS >-m*'-l C PAUSE

REWIND IUNIT

WRITE (I WRITE 1 3) IBLANK» (l.l ( I ) » T = 1»L1 1

)

WRITE(IUNIT>36)

36 FORMAT (M7Xr2HMM»5X»6'H( INCH) >1X) ) REWIND IUNIT

NC=21*IW

READ ( IUNIT , 3) (L( I ) » 1=1 »NC)

WRITF (IWRITE»37)

37 FORMAT (1H ) WRITE (I WRITER) (L(I) »I = 1 »MC)

WRITE(IWRITE»37)

RFWIND TUN IT

Nl = (N2+IW-!'')/IW

CC THE NEXT DO LOOP PRINTS THE OUTPUT.

1 = DO 51 11=1 #N1

Kl = l K2=NH

CC THE NEXT DO LOOP PREPARES ONE LINE r>F T'iF T^LF. EP-^H T T"E

C THROUGH ONE PMR OF COLUMNS IS PREFERTM.

DO 47 12=1 »IW

IF(I.GT.N2)GOTO 44

132
call convin(am(d »nd(T) »uscm

)

IF(ND(I) .LT.1)WRITE( IUNIT f3K)USC(T) , A"(T)

38 FORMAT(F7.0»F8.0»4X)

IF(Nn(I) .F0.1)WRITE(TUNIT.39)USC(n ,Af'(I)

39 FORMAT(F7.0»F9.1»3X)

IF(ND(I) .EQ.2>WRITE(IUNIT,40)USC(I) . AM (TO

40 FORMAT(F8.1rFc».2»2X)

IF(ND(I) . FQ. 3) WRITE (IUNIT, 41 )USC(T) , A'(T)

41 FORMAT(F9.2»F9.3r IX)

IF(ND(I) iEGi. 4) WRITE (IUNIT, 42 )USC(T) , ftM(T)

42 F0RMAT(F10.3,F9.4)

IF(ND(I) .GT. 4) WRITE (I UNIT, 43)

43 F0RMAT(19(1H )

)

GOTO 45

44 CONTINUE

WRITE(IUNTT,43)

45 CONTINUE

REWINn IUNIT

READ (IUNIT, 46) (LL(K) ,K=K1.K2)

REWIND IUNIT

46 FORMAT (19A1

>

K1=K1+NH

K2=K2+NH

47 CONTINUE

K2=K2-NH

K3=K2+1

00 4R J=1,K2

K=K3-J

IF(LL(K) .NE.IBLANK)GOTO 49

48 CONTINUE

49 CONTINUE

WRITEf IWHlTErSO) (LL(j) ,J=1 ,K)

50 FORMAT (6 (3A1. IX , 15 A 1 , IX, A! )

)

51 CONTINUE

C

C THE TABLE HAS BEEN COMPLE TFO SO ASK IF TH^RF *S f^'OTHFP 0Mr . WRITE(IWRITE»52)

t>2 F0RMAT(//37H ENTER THE IDENTIFICATION (CO'^'A) AND,

125H WIDTH FOR ANOTHER TABLE./

150H TO END PROGRAM* ENTER AMY ALPHARETICM CHnPACT^P. /)

53 ISWl=l

REWIND IUNIT

GOTO 2 54 CONTINUE

WRITF(IWRTTE,55)

55 F0RMAT(46M TH^RE HAS BEEN AN FR^OP IM ENTE"INO THE MAYTMU*',

113H TABLE WIDTH. /42H PLEASE PFEMT rr> Tv'E IDENTIFICATION AN^ T' ,r . 113H TABLE WIDTH./)

REWIND TUNIT

GOTO 2 END

C SUBROUTINE CONVlN(A.MtR)

C S'JBROUTI.iF CONVIN CONVERTS INCHES* A, INTO MILLIMETRES » T.

133
C N IS TML NUMBER OF (SIGNIFICANT) DT6TTS T <~> V ,"- RTOHT T Tmc

C DECIMAL POINT IN A. A TS CONVERTED To. T! T'TFO^P " WHTCH

C CONTAINS EXACTLY TMF SIGNIFICANT OIGITS nc &,' mo |Wf>RF A'"- \m

C LESS. K IS TO BF MULTIPLIED BY 25^» BUT» BECAUSE THF HOMFYWn L C COMPUTER CANNOT HANDLE DIRECTLY AN TNTFgE" LARGER THAN « "^R F.O? C K» HFFORf BEING 'UJLTTPLTFO BY T5^» COULP BF in LARGE THAN

C 33 0?6. THER<~FOKF K IS or> 0«EN INTO Kir T \e RIGHT F<MIR "TjTTc;,

c and k?» the kfst df k.

M=MAXO(Nrl

)

K=TNT(A*10.**M+.S)

Kl=MOO(K» 1000")

K?=(K-KD/10000

L1=25<**K1

L2=254*K2

L3=M0B(Llrl00)

Ll=Ll/lflO

IF(L3.EO.S0)GOTO 1 TF(L3.GT.B0)L1=L1+1

GOTO ?

1 CONTINUE

L3=M0n(Ll»2)

IF(L3.EQ. 1)L1=L1+1

2 CONTINUE

P=FLOAT(L?)/10.**(,/-5)

!=!}+FLOAT (L1)/10.**(V-1 ) RETUf"! END

134
U.S. DEPT. OF COMM. BIBLIOGRAPHIC DATA

SHEET

1. PUBLICATION OR REPORT NO. NBS TN-872

2. Gov't Accession

No.

4. TITLE AND SUBTITLE

COMPUTER PROGRAM PACKAGE FOR METRIC CONVERSION:

REFERENCE MANUAL

3. Recipient's Accession No.

5. Publication Date July 1975

6. Performing Organization Code

AUTHOR(S)

Ruth K. Anderson and Joseph 0. Harrison. Jr.

8. Performing Organ. Report No.

9. PERFORMING ORGANIZATION NAME AND ADDRESS

NATIONAL BUREAU OF STANDARDS

DEPARTMENT OF COMMERCE

WASHINGTON, D.C. 20234

10. Project/Task/Work Unit No.

11. Contract/Grant No.

12. Sponsoring Organization Name and Complete Address (Street, City, State, ZIP)

Same as Item 9

13. Type of Report & Period Covered

Final

14. Sponsoring Agency Cod*

15. SUPPLEMENTARY NOTES

Library of Congress Catalog Card Number: 75-600045

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.) j^q programs in this package are designed to convert

dimensions and other quantities appearing on engineering drawings from metric to U. S. customary units and vice versa. They were developed by Caterpillar Tractor Co. and

General Motors Corporation. In addition to the programs themselves, the package contains

documentation explaining how to get the programs running on different computers and how

to use them, and test problems to permit users to verify that the programs run correctly

on th«-ir own computers. The Caterpillar program converts 31 different metric units to

their U. S. customary equivalents. In contrast, the General Motors programs convert in

both directions but work with millimetres and inches only. The General Motors programs

also use rounding conventions differing somewhat from those employed in the Caterpillar

program. Both the Caterpillar and the General Motors programs are written in American

National Standard FORTRAN and are suitable for use on a wide range of computers with

little or no modification. The Caterpillar program is operated in batch mode while the

General Motors programs are interactive.

17. KEY WORDS (six to twelve entries; alphabetical order; capitalize only the first letter of the first key word unless a proper name; separated by semicolons) Caterpillar Tractor Co . ; computer program; documentation;

engineering drawing; General Motors Corporation; metric conversion; rounding; test

problem; tolerance

18. AVAILABILITY ]]C Unlimited

I

' For Official Distribution. Do Not Release to NTIS

|X Order From Sup. of Doc, U.S. Government Printins^Wfice Washington, D.C. 20402, SD Cat. No. C13 • 3o:g t£

I

I Order From National Technical Information Service (NTIS)

Springfield, Virginia 22151

19. SECURITY CLASS

(THIS REPORT)

UNCLASSIFIED

20. SECURITY CLASS

(THIS PAGE)

UNCLASSIFIED

21. NO. OF PAGES

145

22. Price

$2.10

USCOMM.DC 29042-P74

NBS TECHNICAL PUBLICATIONS

PERIODICALS JOURNAL OF RESEARCH reports National Bureau

of Standards research and development in physics,

mathematics, and chemistry. It is published in two sections, available separately:

• Physics and Chemistry (Section A)

Papers of interest primarily to scientists working in these fields. This section covers a broad range of physical and chemical research, with major emphasis on

standards of physical measurement, fundamental constants, and properties of matter. Issued six times a year. Annual subscription: Domestic, $17.00; Foreign,

$21.25.

• Mathematical Sciences (Section B)

Studies and compilations designed mainly for the mathematician and theoretical physicist. Topics in mathematical statistics, theory of experiment design, numerical analysis, theoretical physics and chemistry, logical design and programming of computers and computer

systems. Short numerical tables. Issued quarterly. Annual subscription: Domestic, $9.00; Foreign, $11.25. DIMENSIONS/NBS (formerly Technical News Bulletin) —This monthly magazine is published to inform

scientists, engineers, businessmen, industry, teachers,

students, and consumers of the latest advances in science and technology, with primary emphasis on the work at NBS. The magazine highlights and reviews such

issues as energy research, fire protection, building tech- nology, 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, $9.45; Foreign, $11.85.

NONPERIODICALS Monographs—Major contributions to the technical liter- ature 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 interested industries, professional

organizations, and regulatory bodies.

Special Publications—Include proceedings of confer- ences 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 world-wide

program coordinated by NBS. Program under authority

of National Standard Data Act (Public Law 90-396). NOTE: At present the principal publication outlet for these 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, 1155 Sixteenth

St. N. W., Wash. D. C. 20056.

Building Science Series—Disseminates technical infor- mation 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 pro- cedures published by the Department of Commerce in Part 10, Title 15,- of the Code of Federal Regulations. The purpose of the standards is to establish nationally

recognized requirements for products, and to provide

all concerned interests with a basis for common under- standing of the characteristics of the products. NBS

administers this program as a supplement to the activities of the private sector standardizing organizations. Federal Information Processing Standards Publications (FIPS PUBS)—Publications in this series collectively constitute the Federal Information Processing Standards Register. Register serves as the official source of information in the Federal Government regarding stand- ards 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 11717 (38 FR 12315, dated May 11, 1973) and Part 6 of Title 15 CFR (Code of Federal

Regulations). Consumer Information Series—Practical information, based on NBS research and experience, covering areas

of interest to the consumer. Easily understandable language and illustrations provide useful background

knowledge for shopping in today's technological

marketplace.

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 distribution is handled by the sponsor; public distribution is by the National Technical Information Service (Springfield, Va. 22161) in paper copy or microfiche form.

Order NBS publications (except NBSIR's and Biblio- graphic Subscription Services) from: Superintendent of Documents, Government Printing Office, Washington,

D.C. 20402. 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 survey issued biweekly. Annual subscription: Domestic, $20.00; foreign, $25.00. Liquefied Natural Gas. A literature survey issued quarterly. Annual subscription: $20.00. Superconducting Devices and Materials. A literature

survey issued quarterly. Annual subscription: $20.00. Send subscription orders and remittances for the pre- ceding bibliographic services to National Technical Information Service, Springfield, Va. 22161.

Electromagnetic Metrology Current Awareness Service Issued monthly. Annual subscription: $100.00 (Special rates for multi-subscriptions). Send subscription order and remittance to Electromagnetics Division, National Bureau of Standards, Boulder, Colo. 80302.
TTSTutHMKiivitniT OF COMMERCE

National Bureau of Standards

Washington, DC. 20234

OFFICIAL BUSINESS

Penalty for Private Use, $300

POSTAGE AND FEES PAID

U.S. DEPARTMENT OF COMMERCE COM-215

SPECIAL FOURTH-CLASS RATE BOOK

^OV-UT/O^