INITEO STATES •ARTMENT OF MMERCE

BUCATION y \

''4TltO< /

NBS TECHNICAL NOTE 734

U.S.

TMENT

OF

'MMERCE

00 ..

; (6753

171

OMNITABH

Segmentation Structure for the

SCOPE Operating System
NATIONAL BUREAU OF STANDARDS

The National Bureau of Standards1 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 measure- ment 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 Center 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—Heat—Mechanics—Optical Physics—Linac

Radiation2—Nuclear Radiation2—Applied Radiation2—Quantum Electronics3—

Electromagnetics3—Time and Frequency3—Laboratory Astrophysics3—Cryogenics3

. THE INSTITUTE FOR MATERIALS RESEARCH conducts materials research lead- ing 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 pro- mote 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 also monitors NBS engineering standards activities and

provides liaison between NBS and national and international engineering standards

bodies. The Institute consists of the following divisions and offices: Engineering Standards Services—Weights and Measures—Invention and

Innovation—Product Evaluation Technology—Building Research—Electronic Technology—Technical Analysis—Measurement Engineering—Office of Fire Programs.

THE CENTER FOR COMPUTER SCIENCES AND TECHNOLOGY conducts re- search and provides technical services designed to aid Government agencies in improving cost effectiveness 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 Center

consists of the following offices and divisions: Information Processing Standards—Computer Information—Computer Services —Systems Development—Information Processing 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,

and directs the public information activities of the Bureau. The Office consists of the following organizational units: Office of Standard Reference Data—Office of Technical Information and

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.

3 Located at Boulder, Colorado 80302.
if BiireSu b? Standards

2 4 1972

-^^ oca

OMNITAB n

Segmentation Structure for the

SCOPE Operating System

S. T. Peavy and R. N. Varner

Institute for Basic Standards

National Bureau of Standards

Washington, D.C. 20234

"t' (iciuu^oJ vj&jl m& , 75^

s ^

U.S. DEPARTMENT OF COMMERCE, Peter G. Peterson, Secretary

NATIONAL BUREAU OF STANDARDS, Lawrence M. Kushner, Acting Director,

Issued June 1972
National Bureau of Standards Technical Note 734

Nat. Bur. Stand. (U.S.), Tech. Note 734, 25 pages (June 1972)

CODEN: NBTNAE

For sale by the Superintendent of Documents, U.S. Government Printing Office, Washington, D.C. 20402 (Order by SD Catalog No. 03.46:734). Price 35 cents.
OMNITAB II Segmentation Structure

for the SCOPE Operating System

Sally T. Peavy and Ruth N. Varner

OMNITAB II is an interpretive system developed and maintained by the

National Bureau of Standards to enable scientists to use a large computer

easily, effectively and accurately for numerical, statistical and data

analysis without prior computer experience. The system is as machine

independent as possible, making implementation relatively easy. Since OMNITAB II has a large memory requirement, segmentation and overlay are virtually essential.

Overlay procedures are dependent upon the operating system of the computer. Changes are necessary to the OMNITAB II program when the overlay procedure requires specific overlay CALL statements to external

procedures in other overlay links. This Technical Note describes a method of segmentation and overlay for a particular operating system

(CDC-6000 series). The method can readily be adapted to other operating

systems with modifications to the control statements.

Key words: ANSI FORTRAN, general -purpose computer program, implementation of OMNITAB II, links, OMNITAB II, overlay procedures,

SCOPE operating system, segmentation.

OMNITAB II is an interpretive computing system which permits easy use of a computer

without prior computing experience. The system was developed and is maintained by the

National Bureau of Standards to enable scientists to use a computer easily, effectively and

accurately for numerical, statistical and data analysis without the necessity of becoming

professional programmers. OMNITAB was envisioned by Joseph Hilsenrath and developed by him

and his co-workers. A complete description of the first version of OMNITAB was given in

Hilsenrath et al. (1966). Hogben et al. (1970 and 1971) documents OMNITAB II version 5.0, the present version.

The OMNITAB II system was designed with the systems programmer in mind, as well as the

user. All the subprograms in the system are written in the American National Standards

Institute (ANSI) FORTRAN. Every effort has been made to produce a virtually machine

independent program which could be easily transported and implemented on any large computer.

However, a minimum number of modifications are necessary in the implementation of the OMNITAB II system, due to the variability of hardware and software features of computers

.

The modifications are limited to a small number of subprograms and are fully documented in Peavy, Varner and Bremer (1970).
The OMNITAB II version 5.0 system requires approximately 90K storage units of central

memory, assuming each real (floating point) number and a machine instruction occupy one storage unit. The OMNITAB system consists of one main program, one -hundred- seventy-two

procedure subprograms and four specification subprograms. To make the program operable on a smaller computer configuration, the OMNITAB II system has been segmented into twenty-one

segments or groups. Certain of these segments may overlay each other (i.e., share the same storage units in central memory) . This reduces the storage units required to approximately

49K, plus the storage units needed by the operating system library subprograms (i.e. , SIN,

LOG, I/O routines, etc., approximately 4K) . The amount of storage needed may be further

reduced by decreasing the size of the worksheet and scratch areas as described in Peavy,

Varner and Bremer (1970) . Segmentation and overlay may not be necessary for a computer with

a large central memory if the OMNITAB II program is permitted to utilize the full memory.

Much thought has been put into the segmentation structure of the OMNITAB II program in

order to minimize the swapping of segments in and out of the computer's central memory.

Subprograms which read, scan and interpret the OMNITAB instructions are in the main segment

which is in residence at all times during execution of the OMNITAB system. The error checking subroutines are also included in this segment as well as a few of the subprograms

which execute the most often used instructions (GENERATE, INCREMENT, RESET, etc.) as determined from statistics gathered over a three month period. The other segments contain

subprograms which execute related instructions, such as the statistical, input-output,

matrix and array operations. In order to maintain a minimum number of subprograms in the

main segment, it was sometimes necessary to duplicate a subroutine in another segment under

a different subprogram name. This was avoided as much as possible.

The overlay procedure is very dependent upon the operating system of the computer.

Since standards have not been defined in regards to overlay, the method of overlaying is at

the discretion of the systems programmers or the software manufacturers . Some systems make

great demands on the user or programmer, while others require a minimum amount of effort.

From the authors ' experience and knowledge of overlay procedures , there appear to be three

main categories for third generation computers. In all three types the user must provide

the following information to the operating system (1) how the subprograms are to be grouped,

(2) which subprograms comprise the main segment and are in memory at all times, (3) which

groups may overlay what other groups and (4) what other groups or segments are necessary

with a particular group. Furthermore, some overlay procedures have restrictions of the use

of the FORTRAN labeled and unlabeled COMMON statements , of which the user must be aware to take proper action.

One type of overlay procedure places no restrictions on the programmer when a problem is ; being programmed. During the programming stage of the problem no thought of overlay and

segmentation structure are necessary. The programmer programs the problem as though the

whole program will be able to reside in the computer at execution time. The operating

system does not require the subprograms to be arranged in the order in which they are grouped when overlaid at execution time. Nor is it necessary to precede each subprogram

with control cards for the operating system. The only prerequisite is that at execution

time, the operating system must be provided with either a set of control statements or a routine outlining the segmentation and overlay structure. This is the overlay procedure

that was used in implementing OMNITAB II version 5.0 for the NBS computer configuration. For! complete details see Peavy, Varner and Bremer (1970).

The second form of overlay procedure also does not restrict the programmer when the> problem is being programmed. However, before execution the program units must be arranged

in order of the overlay setup. Furthermore system control cards must precede each of the

grouped procedures or segments. If OMNITAB II version 5.0 is being implemented on a computer whose operating system allows this procedure for overlaying, the systems programmer

should check Peavy, Varner and Bremer (1970) for details in deck setup.

The third form of overlay procedure requires the programmer to keep in mind that the

program will have to be segmented and overlaid because of its size. He must plan the
overlay structure and links at the same time he is programming the problem. The writer must

be able to judge the amount of storage units required by each subprogram in order to group

them properly. If the programs are written in FORTRAN, CALL statements to bring in the

proper overlay group must be added to the segment which references external procedures in

another overlay link. These statements may be of the form CALL LINK (NAME) , or CALL OVERLAY

(al, a2, a3, a4) , where NAME is a name of a particular segment and a's are arguments to the

subroutine OVERLAY. Furthermore at execution time, the program units must be organized in a specific manner. All the subprograms in a particular segment must be grouped together

preceded by operating system control statement (s)

.

This paper describes the changes necessary to overlay the OMNITAB II program under a computer operating system where the overlay structure is of the third type. The material is

divided into five parts: (I) changes necessary to specified subprograms; (II) addition of

new program units; (III) the deck setup organization; (IV) flow chart of the overlay

structure and; (V) changes necessary if the worksheet and scratch area sizes are changed.

This information is on cards and appears in this publication as a computer listing.

Part I lists the changes that must be a made to four subprograms BESSEL, OMNIT, ORTHO

and XECUTE. The three letter subprogram identification and line numbers are shown on the

extreme right, as in Peavy, Varner and Hogben (1970). The changes for each subprogram are divided into two parts. The first set of corrections are to replace the statements of the

specified subprogram and the second set are additions to be inserted in the proper place.

The additions should be made so that the numbers are in ascending order.

Part II consists of twenty new program units, one for each of the overlaying segments.

The OMNITAB II program is segmented into twenty-one segments. The first segment (main

segment) does not require any new program unit since it contains the main routine and is

resident in memory throughout the execution of the OMNITAB II program. The first two lines

of each program unit are control cards for one particular operating system (CDC- 6000 - Scope

system) for which the OMNITAB II system has been implemented. The first line OVERLAY (al,

i a2, a3), indicates the start of a new segment. The argument al is the file name of the

segment, a2 a numerical identifier or primary level number, and a3 the secondary level of

the overlay within that particular file. The second card is a program identification for

the program unit. Each program unit is written in FORTRAN and consists primarily of CALL

statements which refer to subprograms in that particular segment.

: The deck setup organization is described in part III. The segments may be stored on a magnetic tape file, disk file, drum file or card file. For convenience the twenty-one

segments are labeled Group 1 through Group 21. The groups should be in the order listed

(i.e. in ascending order), in order to minimize file searching. The setup for each group is

documented in detail. Each group (except Group 1) must begin with one of the program units

described in part II, followed by the OMNITAB II subprograms listed for that group. The

order of the OMNITAB II subprograms within a particular group is insignificant.

f Part TV is a flow diagram of the overlay structure. The approximate size of each

i segment is also indicated, assuming each real number (floating point) and machine

; instruction occupy one storage unit.

It was necessary to include some of the labeled common areas in the program units

described in part II . If the size of the worksheet and scratch areas are to be increased or ^decreased, changes must be made in some of the program units as well as in the subprograms

i indicated in Peavy, Varner and Bremer (1970). Part V describes the changes pertinent to

« particular program units in part II

.

h Although the write-up is for a particular computer and computer operating system, the

| deck setup can be easily modified for other operating systems. In part I the CALL

! statements (CALL OVERLAY (al, a2, a3, a4)) in the subprograms BESSEL, OMNIT, ORTHO and

; XECUTE must be changed to the proper CALL statements of the specific operating system used.

s It may be necessary to modify the program units in part II as subprograms rather than main

^programs. The first two control cards of each program unit must be exchanged for the proper
control statement (s) of the operating system. Also in some cases, control statement (s) may

be required for part III.

The authors wish to thank Mr. B. Scott Miller of Control Data Corporation, for his

assistance in programming and implementing the OMNITAB II program on the SCOPE operating

system and in editing the manuscript. Special thanks goes to Shirley Bremer in preparing

and editing the cards for listing.

References

AMERICAN STANDARD FORTRAN (1966). American National Standards Institute, New York.

CDC (1971). Control Data 6000 Series Computer System SCOPE 3.3 Reference Manual,

Publication No. 60305200.

HILSENRATH, J., ZIEGLER, G. G., MESSINA, C. G, , WALSH, P. J. and HERBOLD, R. J. (1966).

OMNITAB: A Computer Program For Statistical and Numerical Analysis. National Bureau of

Standards Handbook 101, Superintendent of Documents, U.S. Government Printing Office,

Washington, D.C. 20402. Reissued January 1968 with corrections.

HOGBEN, DAVID, PEAVY, S. T. and VARNER, R. N. (1970). OMNITAB II Magnetic Tape and

Documentation Parcel. NBS Magnetic Tape 1, Superintendent of Documents, U.S. Government

Printing Office, Washington, D.C. 20402.

HOGBEN, DAVID, PEAVY, S. T. and VARNER, R. N. (1971). OMNITAB II User's Reference Manual.

NBS Technical Note 552, Superintendent of Documents, U.S. Government Printing Office,

Washington, D.C. 20402.

LANZANO, BERNADINE C. (October, 1969). Loader Standardization for Overlay Programs.

Communications of the ACM, Vol. 12, No. 10, pgs. 541-550.

PEAVY, S. T., VARNER, R. N. , and BREMER, S. G. (1970). A Systems Programmer's Guide for

Implementing OMNITAB II. NBS Technical Note 550, Superintendent of Documents, U.S. Government Printing Office, Washington, D.C. 20402.

PEAVY, S. T., VARNER, R. N. and HOGBEN, DAVID, (1970). Source Listing of OMNITAB II Program. NBS Special Publication 339, Superintendent of Documents, U.S. Government Printing

Office Washington, D.C. 20402.
PART I

CHANGES NECESSARY TO SPECIFIC SUBPROGRAMS

SEGMENTING OMNITAB II FOR THE CDC-6000 SERIES UNDER THE SCOPE SYSTEM

THIS SEGMENTATION STRUCTURE IS FOR OMNITAB II VERSION 5.00

THE FOLLOWING SUBPROGRAMS MUST BE CHANGED: BESSEL, OMNIT, ORTHO AND XECUTE

THE CHANGES THAT ARE NECESSARY ARE LISTED FOR EACH OF THE SUBPROGRAMS

ALONG WITH THE APPROPRIATE LINE NOS IN COLS 73 THROUGH 79

A. CHANGES FOR SUBPROGRAM BESSEL

REPLACE THE APPROPRIATE CARDS (LINE NOS. IN COLS 73-79)

WITH THE FOLLOWING CARDS

DOUBLE PRECISION X,Y,E,P,Q,S,T,Z,DXEX,XEX BES 90

40 CALL OVERLAY(4HWORK,3,l,6HRECALL) BES 870

90 CALL OVERLAY (4HWORK, 3, 1,6HRECALL) BES1130

IF(M.NE.2) GO TO 145 BES1580

145 IF(M.NE.l) GO TO 148 BES1660

CALL OVERLAY(4HWORK,3,2,6HRECALL) BES1670

ICDC=2 BES2310

ICDC=3 BES2410

330 DBEJX=Z BES 2540

335 IF(L2.NE.38) IF(L2-39)338,460,338 BES2560

CALL OVERLAY (4HWORK, 3, 1,6HRECALL) BES2570

338 DO 340 N=1,K BES2580

ICDC=4 BES 2 740

360 ICDC=5 BES2770

ICDC=5 BES3020

R(J)=DBEJX BES3050

CALL OVERLAY(4HWORK,3,2,6HRECALL) BES3280

470 ICDC=1 BES3370

AA(1)=DBEJX BES3380

INSERT THE FOLLOWING CARDS IN THE APPROPRIATE PLACES

(LINE NOS. IN COLS 73-79)

C CDC VERSION 5.00 BESSEL BES 25

COMMON/CDC/ICDC,ICDCK,ICDCN,DBEJX,BES2 BES 192

DOUBLE PRECISION DBEJX,BES2 BES 194

ICDC=1 BES 522

ICDCK=N BES 524

ICDCN=M BES 526

R(J)=Y*DBEJX BES 875

X=Y*DBEJX BES1135

ICDC=1 BES 158

2

CALL OVERLAY(4HWORK,3,2,6HRECALL) BES1584

ICDC=2 BES1665

148 Z=X*FDCOS(Y) BES1675

DBEJX=Z BES2312

CALL OVERLAY (4HWORK, 3, 1,6HRECALL) BES2314

R(J)=BES2 BES 2 316

ICDCK=K BES2412

CALL OVERLAY(4HWORK,3,2,6HRECALL) BES 24 14

R(J)=BES2 BES2416

IF(L2.NE.32) GO TO 335 BES2542

ICDC=3 BES 2 544
CALL OVERLAY (4HWORK, 3, 1,6HRECALL) BES2546

GO TO 338 BES2548

ICDC=4 BES2565

ICDCK=L BES2742

CALL OVERLAY(4HWORK,3,2,6HRECALL) BES2744

ICDCK=L BES2772

CALL OVERLAY(4HWORK,3,2,6HRECALL) BES2774

CALL OVERLAY (4BORK, 3, 1,6HRECALL) BES3024

ICDCK=K BES3276

ICDCN=L BES3277

ICDC=6 BES3279

ICDCK=0 BES3372

ICDCN=7 BES3374

CALL OVERLAY (4HWORK, 3, 1,6HRECALL) BES3376

ICDCK=1 BES3382

CALL OVERLAY (4HWORK, 3, 1,6HRECALL) BES3384

AA(2)=DBEJX BES3386

B. CHANGES FOR SUBPROGRAM OMNIT

REPLACE THE APPROPRIATE CARDS (LINE NOS. IN COLS 73-79)

WITH THE FOLLOWING CARDS

CALL OVERLAY (5HOMNIT,1,0,6HRECALL) OMN 460

CALL OVERLAY (5HOMNIT,1,0,6HRECALL) OMN 810

65 ICDCK=LETSGO OMN1030

ICDC=5 OMN1170

ICDC=1 OMN1273

ICDC=6 OMN1320

ICDC=8 OMN1840

ICDC=7 OMN3190

ICDC=9 OMN3400

INSERT THE FOLLOWING CARDS IN THE APPROPRIATE PLACES

(LINE NOS. IN COLS 73-79)

C VERSION 5.00 CDC OVERLAY OMNIT CMN 25

COMMON/CDC/ ICDC,ICDCK,ICDCN,DBEJK,BES2 OMN 185

DOUBLE PRECISION DBEJX,BES2 .OMN 186

ICDC=2 OMN 455

50 ICDC=3 OMN 805

ICDC=4 OMN1033

CALL OVERLAY (5HOMNIT,1,0,6HRECALL) OMN1036

LETSGO=ICDCK OMN1038

CALL OVERLAY (5HOMN IT, 1

, , 6HRECALL) GMN1175

95 ICDCK=K OMN1272

CALL- OVERLAY ( 5HOMNIT , 1 , , 6HRECALL) OMN1274

CALL OVERLAY (5H»1NIT,1,0,6HRECALL) OMN1325

CALL OVERLAY (5HOMNIT,1,0,6HRECALL) OMN1845

CALL OVERLAY (5HOMNIT,1,0,6HRECALL) OMN3195

ICDCK=J OMN3404

CALL OVERLAY(5HOMNIT,1,0,6HRECALL) OMN3406

J=ICDCK OMN3408

C. CHANGES FOR SUBPROGRAM ORTHO

REPLACE THE APPROPRIATE CARDS (LINE NOS. IN COLS 73-79)

WITH THE FOLLOWING CARDS

CALL OVERLAY(6HSTATIS,l,4,6HRECALL) ORT7110
1590 CALL OVERLAY(6HSTATIS,l,5,6HRECALL)

1610 CALL OVERLAY(6HSTATIS,l,3,6HRECALL)

CALL OVERLAY ( 6HSTATIS ,1,1, 6HRECALL)

1650 CALL OVERLAY(6HSTATIS,l,2,6HRECALL)

C

ORT7160

ORT7190

ORT7210

ORT7470

ORT7480

INSERT THE FOLLOWING CARDS IN THE APPROPRIATE PLACES

(LINE NOS. IN COLS 73-79)

] VERSION 5.00 CDC OVERLAY ORTHO ORT 21 COMMON/CDCORT/N,M,MX,NX,ND2,ND3,ND19,B,SSQ,IX, LXA,ND7,MD1, THC, ORT 22 1IHT,YSUM,SU,ND9,FM,NSU,M1,ND18,ND17,IND19S,IND18S,IND7S,SS,SS0LD ORT 24

D. CHANGES FOR SUBPROGRAM XECUTE

REPLACE THE APPROPRIATE CARDS (LINE NOS. IN COLS 73-79)

WITH THE FOLLOWING CARDS

200

300

400

600

700

C

800

C1303

1305

1306

C

1313

1314

1500

1600

1701

1702

1703

1704

1705

1809

1900

2000

2101

2103

2105

2108

2110

2111

2112

2113

2118

2200

2301

2306

2310

2401

2403

2404

2405

ICDC=13

ICDC=14

ICDC=11

ICDC=10

GO TO 400

GO TO 200

ICDC=12

CALL OVERLAY (5HOMNIT,2,0,6HRECALL)

GO TO 1305

ICDC=1

CALL OVERLAY

CALL OVERLAY

CALL OVERLAY

CALL OVERLAY

CALL OVERLAY

CALL OVERLAY (6HMATRIX

CALL OVERLAY (6HMATRIX

CALL OVERLAY (6HMATRLX

CALL OVERLAY (6HMATRIX

CALL OVERLAY (6HMATRIX

CALL OVERLAY (4HWORK,l

CALL OVERLAY (4HWORK,

2

CALL OVERLAY (4HWORK,l

CALL OVERLAY (4HWORK,

2

CALL OVERLAY (4HWORK,

2

CALL OVERLAY (4HWORK,l

CALL OVERLAY (4HWORK,

2

CALL OVERLAY (4HWORK,l

CALL OVERLAY (4HWORK,l

CALL OVERLAY (4HWORK,l

(5HOMNIT ,2,0, 6HRECALL)

(6HMATRIX , 1

, , 6HRECALL)

(6HMATRIX ,2,0, 6HRECALL)

(6HMATRIX ,1,0, 6HRECALL)

(6HMATRIX ,1,0, 6HRECALL)

1,0,6HRECALL)

1,0,6HRECALL)

3,0,6HRECALL)

1,0,6HRECALL)

3,0,6HRECALL)

0,6HRECALL)

0,6HRECALL)

0,6HRECALL)

0,6HRECALL)

0,6HRECALL)

0,6HRECALL)

0,6HRECALL)

,6HRECALL)

0,6HRECALL)

0.6HRECALL)

CALL OVERLAY ( 5HOMNI T ,2,0, 6HRECALL)

CALL OVERLAY (6HSTATIS

CALL OVERLAY (4HWORK,

2

CALL OVERLAY (4HWORK,

2

CALL OVERLAY (4HWORK,

CALL OVERLAY (6HSTATIS

CALL OVERLAY(6HSTATIS

CALL OVERLAY (4HWORK,

2

CALL OVERLAY (6HSTATIS

0,6HRECALL)

6HRECALL)

6HRECALL)

6HRECALL)

0,6HRECALL)

0,6HRECALL)

6HRECALL)

0,6HRECALL)

XEC 270

XEC 300

XEC 330

XEC 390

XEC 420

XEC 440

XEC 450

XEC 460

XEC 720

XEC 770

XEC 800

XEC 810

XEC 990

XEC1020

XEC1470

XEC1500

XEC1550

XEC1580

XEC1610

XEC1640

XEC1670

XEC1720

XEC1750

XEC1780

XEC1810

XEC1870

XEC1920

XEC1970

XEC2040

XEC2090

XEC2120

XEC2150

XEC2180

XEC2330

XEC2390

XEC2450

XEC2560

XEC2650

XEC2760

XEC2810

XEC2840

XEC2870
2406

2407

C

2408

2409

C

2410

2411

2412

C

2413

2415

2504

2600

2700

2800

2900

3000

3100

3200

4500

5100

5200

5300

5402

5403

5404

5405

5406

5407

CALL OVERLAY ( 6HSTATI S , 4

, , 6HRECALL)

GO TO 2406

CALL OVERLAY (6HSTATIS ,2,0, 6HRECALL)

GO TO 2408

CALL OVERLAY ( 6HSTATIS ,2,0, 6HRECALL)

CALL OVERLAY ( 6HSTATIS ,3,0, 6HRECALL)

GO TO 2411

CALL OVERLAY ( 6HMATRIX ,3,0, 6HRECALL)

CALL OVERLAY (5HOMNIT, 2, 0,6HRECALL)

CALL OVERLAY (4HWORK,1,0,6HRECALL)

CALL OVERLAY (4HWORK,1,0,6HRECALL)

CALL OVERLAY ( 6HMATRIX , 1, , 6HRECALL)

CALL OVERLAY ( 6HMATRIX ,2,0, 6HRECALL)

CALL OVERLAY(4HWORK,1,0,6HRECALL)

CALL OVERLAY (4HWORK,1,0 ,6HRECALL)

CALL OVERLAY ( 4HWORK , 3, , 6HRECALL)

CALL OVERLAY ( 5HOMNIT ,2,0, 6HRECALL)

CALL OVERLAY (4HWORK, 2, 0,6HRECALL)

ICDC=15

CALL OVERLAY (6HMATRIX,1,0,6HRECALL)

CALL OVERLAY (6HMATRIX,1,0,6HRECALL)

CALL OVERLAY ( 6HMATRIX ,1,0, 6HRECALL)

CALL OVERLAY (4HWORK, 4, 0,6HRECALL)

CALL OVERLAY (4HWORK, 4, 0,6HRECALL)

CALL OVERLAY (4HWORK, 4, 0,6HRECALL)

CALL OVERLAY (4HWORK, 4, 0,6HRECALL)

CALL OVERLAY (4HVORJC, 4, 0,6HRECALL)

CALL OVERLAY (4HWORK, 4, 0,6HRECALL)

XEC2900

XEC2930

XEC2940

XEC2960

XEC2990

XEC3000

XEC3020

XEC3050

XEC3080

XEC3090

XEC3110

XEC3160

XEC3200

XEC3220

XEC3250

XEC3280

XEC3310

XEC3340

XEC3370

XEC3400

XEC3430

XEC3720

XEC3860

XEC3890

XEC3920

XEC4000

XEC4030

XEC4060

XEC4090

XEC4120

XEC4150

INSERT THE FOLLOWING CARDS IN THE APPROPRIATE PLACES

(LINE NOS. IN COLS 73-79)

] VERSION 5.00 CDC OVERLAY XECUTE

COMMON/CDC/ICDC, ICDCK, ICDCN,DBEJX,BES2

DOUBLE PRECISION DBEJX,BES2

CALL OVERLAY ( 5HOMNIT ,1,0, 6HRECALL)

CALL OVERLAY (5HOMNIT,1,0,6HRECALL)

CALL OVERLAY (5HOMNIT,1,0,6HRECALL)

CALL OVERLAY (5HOMNIT,1,0,6HRECALL)

CALL OVERLAY (5HOMNIT,1,0 ,6HRECALL)

ICDCK=3

CALL OVERLAY (5HOMNIT,1,0,6HRECALL)

CALL OVERLAY (5HOMNIT,1,0,6HRECALL) **********************************************************************

XEC 25

XEC 45

XEC 46

XEC 275

XEC 305

XEC 335

XEC 395

XEC 725

XEC 992

XEC 994

XEC3725 *********
PART II

ADDITION OF NEW PROGRAM UNITS

THE FOLLOWING NEW PROGRAMS MUST ALSO BE INCLUDED. THESE PROGRAMS ARE

LISTED BELOW.

OVERLAY (OMNIT,1,0)

PROGRAM GRP2

c VERSION 5.00 CDC OVERLAY GROUP 2 GP2 20 COMMON/CDC/ ICDC,ICDCK,,ICDCN,DBEJX,BES2 GP2 50

DOUBLE PRECISION DBEJX.,BES2 GP2 55

COMMON /BLOCKB/ NSTMT,NSTMTX,NSTMIH,NCOM,LCQM,IOVFL,COM(2000) GP2 60

GO TO (10,20,30,40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150), ICDC GP2 75

10 CALL NOTEPR(ICDCK)

GO TO 1000

GP2 80

GP2 90

20 CALL SETUP GP2 100

30 CALL STMT(NSTMT)

GO TO 1000

GP2 110

GP2 120

40 CALL XOMNIT(ICDCK)

GO TO 1000

GP2 130

GP2 140

50 CALL XFORMT

GO TO 1000

GP2 150

GP2 160

60 CALL XHEAD

GO TO 1000

GP2 170

GP2 180

70 CALL SETQ

GO TO 1000

GP2 190

GP2 200

80 CALL TAPOP

GO TO 1000

GP2 210

GP2 220

90 CALL STORE (ICDCK)

GO TO 1000

GP2 230

GP2 240

100 CALL ABRIDG

GO TO 1000

GP2 250

GP2 260

110 CALL APRINT

GO TO 1000

GP2 270

GP2 280

120 CALL FIXFLO

GO TO 1000

GP2 290

GP2 300

130 CALL PRINTX

GO TO 1000

GP2 310

GP2 320

140 CALL PUNCH

GO TO 1000

GP2 330

GP2 340

150 CALL TAPOP2 GP2 350

1000 RETURN

END

OVERLAY (OMNIT, 2,0)

PROGRAM GRP3

GP2 360

GP2 370

C VERSION 5.00 CDC: OVERLAY GROUP 3 GP3 20 COMMON/BLOCKE/ NAME1(4),,L1,L2,, ISRFLG GP3 30

IF (LI. EQ. 31) GO TO 40 GP3 40

LF(L1.EQ.24.AND.L2. EQ.15) GO TO 30 GP3 50

IF(L1.EQ.21.AND. (L2.EQ .18. OR,.L2.EQ.19)) GO TO 20 GP3 60

IF(L2.EQ.14) GO TO 10 GP3 70

CALL PLOT GP3 80

GO TO 50 GP3 90

10 CALL FNEIC

GO TO 50

GP3 100

GP3 110

20 CALL FNEC

GO TO 50

GP3 120

GP3 130

30 CALL FNKC GP3 140
GO TO 50

40 CALL THERMO

50 RETURN

END

OVERLAY (MATRIX, 1,0)

PROGRAM GRP4

C VERSION 5.00 CDC OVERLAY GROUP 4

10

COMMON/BLOCKE/ NAME (4 ), LI , L2 , ISRFLG

IF (Ll-52) 10,90,100

IF (L1.EQ.51) GO TO 80 IF (L1.EQ.26) GO TO 70

IF (L1.EQ.18) GO TO 60

IF (L1.EQ.17) GO TO (20,30,40,50) ,L2

CALL MOP

GO TO 120

20 CALL MMULT

GO TO 120

30 CALL MRAISE

GO TO 120

40 CALL MKRON

GO TO 120

50 CALL MTRIAN

GO TO 120

60 CALL MATRIX

GO TO 120

70 CALL EXPCON

GO TO 120

80 CALL MXTX

GO TO 120

90 CALL MDAMAD

GO TO 120

100 CALL ARYVEC

120 RETURN

END

OVERLAY (MATRIX, 2,0)

PROGRAM GRP5

C VERSION 5.00 CDC OVERLAY GROUP 5 COMMON/BLOCKE/ NAME (4) , LI , L2 , ISRFLG

IF (LI. EQ. 27) GO TO 10

CALL INVERT

GO TO 20

10 CALL MPROP

20 RETURN

END

OVERLAY(MATRIX, 3,0)

PROGRAM GRP6

C VERSION 5.00 CDC OVERLAY GROUP 6 COMMON/BLOCKE/ NAME (4) , LI , L2 , ISRFLG

IF(L1.EQ.24) GO TO 20

IF(L1.EQ.18) GO TO 10

CALL MEIGEN

GO TO 30

10 CALL COALES

GO TO 30

20 CALL ONEWAY

30 RETURN

END

10

GP3 150

GP3 160

GP3 170

GP3 180

GP4 20

GP4 30

GP4 40

GP4 50 GP4 60

GP4 70

GP4 80

GP4 90

GP4 100

GP4 110

GP4 120

GP4 130

GP4 140

GP4 150

GP4 160

GP4 170

GP4 180

GP4 190

GP4 200

GP4 210

GP4 220

GP4 230

GP4 240

GP4 250

GP4 260

GP4 270

GP4 280

GP4 290

GP5 20

GP5 30

GP5 40

GP5 50

GP5 60

GP5 70

GP5 80

GP5 90

GP6 20

GP6 30

GP6 40

GP6 50 GP6 60

GP6 70

GP6 80

GP6 90

GP6 100

GP6 110

GP6 120
OVERLAY(STATIS,1,0)

PROGRAM GRP7

VERSION 5.00 CDC OVERLAY GROUP 7 CALL ORTHO

RETURN

END

OVERLAY (STATIS, 1,1)

PROGRAM GRP8

VERSION 5.00 CDC OVERLAY GROUP 8 COMMON/CDCORT/N,M,MX,NX,ND2,ND3,ND19,B,SSQ,IX, IXA,ND7,MD1,IHC,

1IHT,YSUM,SU,ND9,FM,NSU,M1,ND18,ND17,IND19S,IND18S,IND7S,SS,SS0LD

DIMENSION B(120),IHC(4),IHT(8),IIRGS(100)

DOUBLE PRECISION YSUM

COMMON/KFMT/KFMT ( 100

)

EQUIVALENCE (IIRGS,KFMT)

CALL OANOVA(YSUM,SU,ND9,FM,M,N,ND7,SSQ,IHC,NSU,B)

RETURN

END

OVERLAY (STATIS, 1,2)

PROGRAM GPR9

VERSION 5.00 CDC OVERLAY GROUP 9 COMMON/CDCORT/N,M,MK, NX, ND2,ND3,ND19,B,SSQ, IX, IXA,ND7,MD1,IHC,

1IHT , YSUM, SU,ND9 ,FM,NSU,M1 ,ND18 ,ND17 , IND19S, IND18S, IND7S, SS , SSOLD

DIMENSION B(120),IHC(4),THT(8),IIRGS(100)

DOUBLE PRECISION YSUM

COMMON/KFMT/KFMT (100

)

EQUIVALENCE (IIRGS,KFMT)

CALL OCOEFF(Ml,N,ND18,ND17,IND19S,IND18S,IHC,B,IND7S,NSU,SS, SSOLD, GP9

1YSUM)

RETURN

END

OVERLAY (STATIS, 1,3)

PROGRAM GRP10

VERSION 5.00 CDC OVERLAY GROUP 10 GP10 20

COMM)N/CDCORT/N,M,MX,NX,ND2,ND3,ND19,B,SSQ,IX, IXA,ND7,MD1,IHC, GP10 30

lIFfT,YSUM,SU,ND9,FM,NSU,Ml,ND18,ND17,IND19S,IND18S,IND7S,SS, SSOLD GP10 31

DIMENSION B(120),IHC(4),IHT(8),IIRGS(100) GP10 40

DOUBLE PRECISION YSUM GP10 50

COMMON/KFMT/KFMT (100) GP10 60

EQUIVALENCE (IIRGS,KFMT) GP10 70

CALL OCOVAR(M,ND7,MDl,IHC,B,IHT) GP10 80

RETURN GP10 90

END GP10 95

OVERLAY (STATIS, 1,4)

PROGRAM GRP11

VERSION 5.00 CDC OVERLAY GROUP 11 GPU 20 COMMON/CDCORT/N,M,MX,NX,ND2,ND3,ND19,B,SSQ,IX, IXA,ND7,MD1,IHC, GPU 30

1IHT, YSUM, SU,ND9, EM, NSU,M1,ND18,ND17,IND19S,IND18S,TND7S,SS, SSOLD GP11 31

DIMENSION B(120),THC(4),THT(8),IIRGS(100) GPU 40

DOUBLE PRECISION YSUM GPU 50

COMMON/KBfr/KFMT(100) GPU 60

EQUIVALENCE (IIRGS,KFMT) GPU 70

CALL OPONE(N,M,MX,NX,ND2,ND3,ND19,B,SSQ,LX) GPU 80

RETURN GPU 90

END GPU 95

11

GP7 20

GP7 30

GP7 40

GP7 50

GP8 20 GP8 30

GP8 31

GP8 40

GP8 50 GP8 60

GP8 70

GP8 80

GP8 90

GP8 95

GP9 20 GP9 30

GP9 31

GP9 40

GP9 50

GP9 60

GP9 70 GP9 80

GP9 81

GP9 90

GP9 95
OVERLAY (STATIS, 1,5)

PROGRAM GRP12

C VERSION 5.00 CDC OVERLAY GROUP 12 GP12 20 COMMON/CDCORT/N,M,MK,NX,ND2,ND3,ND19,B,SSQ,IX, IXA,ND7,MD1,IHC, GP12 30 1IHT,YSUM,SU,ND9,EM,NSU,M1,ND18,ND17,IND19S,IND18S,IND7S,SS,SS0LD GP12 31

DIMENSION B(120),IHC(4),IHT(8),IIRGS(100) GP12 40

DOUBLE PRECISION YSUM GP12 50

COMMON/KFMT/KEMT(100) GP12 60

EQUIVALENCE (IIRGS,KFMT) , (B,IB) GP12 70

CALL ORTPLT(ND19,ND2,N,SSQ,ND3,IB,IIRGS(LXA),IIRGS(2)) GP12 80 RETURN GP12 90

END GP12 95

OVERLAY (STATIS, 2,0)

PROGRAM GRP13

C VERSION 5.00 CDC OVERLAY GROUP 13

COMMON/BLOCKE/ NAME(4) ,L1,L2 , ISRFLG

IF (L2.EQ.10) GO TO 30 IF (L2.EQ.8.0R.L2.EQ.9) GO TO 20 IF (L2.EQ.5) GO TO 10

CALL STATIS

GO TO 40

10 CALL FPROB

GO TO 40

20 CALL HISTGM

GO TO 40

30 CALL FRDIST

40 RETURN

END

OVERLAY (STATIS, 3,0)

PROGRAM GRP14

C VERSION 5.00 CDC OVERLAY GROUP 14 COMMON/BLOCKE/ NAME (4 ), LI, L2, ISRFLG

IF (L2.EQ.ll.OR.L2.EQ.12) GO TO 10 CALL RANKS

GO TO 20 10 CALL CORREL

20 RETURN

END

OVERLAY(STATIS,4,0)

PROGRAM GRP15

C VERSION 5.00 CDC OVERLAY GROUP 15

COMMON/BLOCKE/ NAME ( 4 )

, LI , L2 , ISRFLG

CALL TWOWAY(L2)

RETURN

END GP15 60

OVERLAY (WORK, 1,0)

PROGRAM GRP16

C VERSION 5.00 CDC OVERLAY GROUP 16 GP16 20 COMMON/BLOCKE/ NAME (4 ), LI, L2, ISRFLG GP16 30

IF(L1.EQ.29) GO TO 110 GP16 35 IF (L1.EQ.28) GO TO 100 GP16 40

IF(L1.EQ.25) IF(L2-3) 80,80,90 GP16 50

IF (L1.EQ.19) GO TO 70 GP16 60

IF(L2-2) 60,60,10 GP16 70

10 LL2=L2-7 GP16 80

GOTO (20, 20, 120, 30, 40, 50, 20), LL2 GP16 90

12

GP13 20 GP13 30

GP13 40

GP13 50

GP13 60

GP13 70

GP13 80 GP13 90

GP13100

GP13120

GP13130

GP13135

GP13140

GP13150

GP14 20 GP14 30

GP14 40

GP14 50

GP14 60

GP14 70 GP14 80 GP14 90

GP15 20 GP15 30

GP15 40

GP15 50
20 CALL SORDER

GO TO 120

30 CALL EXCHNG

GO TO 120

40 CALL FLIP

GO TO 120

50 CALL CHANGE

GO TO 120

60 CALL PROROW

GO TO 120

70 CALL ALLSUB

GO TO 120

80 CALL SELECT

GO TO 120

90 IF(L2.EQ.5) GO TO

CALL INTERP

GO TO 120

80

100 CALL ITERAT

GO TO 120

110 CALL CMSEPA

120 RETURN

END

GP 16110

GP16120

GP16130

GP16140

GP16150

GP16160

GP16170

GP16180

GP16190

GP16200

GP16210

GP16220

GP16230

GP16240

GP16245

GP16250

GP16260

GP16270

GP16280

GP16290

GP16300

GP16310

OVERLAY (WORK, 2,0)

PROGRAM GRP17

C VERSION 5.00 CDC OVERLAY GROUP 17 COMMON/BLOCKE/ NAME ( 4) , LI , L2 , ISRPLG

IF (L1.EQ.32) GO TO 100

IF (L1.EQ.24) GO TO 90 IF (L1.EQ.23) IF (L2-6) 70,80,60

IF (L1.EQ.21) IF (L2-3)110,30,20

IF(L1.EQ.20) GO TO 25

20 IF (L2-6) 40,40,50

25 CALL MSCROW

GO TO 110

30 CALL DEFINE

GO TO 110

40 CALL EXTREM

GO TO 110

50 CALL ERASE

GO TO 110

60 CALL PDMOTE

GO TO 110

70 CALL MISC2

GO TO 110

80 CALL MOVE

GO TO 110

90 CALL GQUAD

GO TO 110

100 CALL COMPLX

110 RETURN

END

GP17 20

GP17 30 GP17 40

GP17 45

GP17 50

GP17 70 GP17 75 GP17 80

GP17 90

GP17100

GP17110

GP17120

GP17130

GP17140

GP17150

GP17160

GP17170

GP17180

GP17190

GP17200

GP17210

GP17220

GP17230

GP17240

GP17250

GP17260

GP17270

OVERLAY (WORK, 3,0)

PROGRAM GRP18

VERSION 5.00 CDC

CALL BESSEL

RETURN

END

OVERLAY GROUP 18 GP18 20

GP18 30

GP18 40

GP18 50

13
OVERLAY (WORK, 3,1)

PROGRAM GRP19

C VERSION 5.00 CDC OVERLAY GROUP 19

COMMON/ABEKI/X,Y,P,Q,S,T

DOUBLE PRECISION X,Y,P,Q,S,T,DBEJ,DBEJX,BES2,BINTJO

COMMON/CDC/ ICDC , ICDCK , ICDCN,DBEJX , BES2

COMMON/SCRAT/NS,NS2,A(13500)

DOUBLE PRECISION W(100)

EQUIVALENCE (A (4001) ,W)

GOTO (10, 20, 30, 40, 50), ICDC

10 DBEJX=DBEJ (X , ICDCK , ICDCN)

GO TO 60

20 BES2=BINTJO(X,W,DBEJX)

GO TO 60

30 CALL BEJN(0,W,DBEJX)

GO TO 60 40 CALL BEJN(1,W,DBEJX)

GO TO 60

50 CALL STRUVE(X,Y,DBEJX,W)

60 RETURN

END

GP19 20 GP19 30

GP19 40

GP19 50

GP19 60

GP19 70

GP19 80

GP19 90

GP19100

GP19110

GP19120

GP19130

GP19140

GP19150

GP19160

GP19170

GP19180

GP19190

GP19200

OVERLAY (WORK, 3,2)

PROGRAM GRP20

C VERSION 5.00 CDC OVERLAY GROUP 20 COMMON/ABEKI/X, Y , P , Q , S ,

T

DOUBLE PRECISION X,Y,P,Q,S,T,DBEJX,BES2,COMELL

COMMON/ CDC/ I CDC , ICDCK , ICDCN , DBEJX , BES 2 COMMON/ SCRAT/NS,NS2,A(13500)

DOUBLE PRECISION AA(1000) ,B(1000)

EQUIVALENCE (A(l) ,AA) , (A(2001) ,B)

GOTO (10, 20, 30, 40, 50, 60), ICDC

10 CALL CBEK

GO TO 70

20 CALL CBEI

GO TO 70 30 BES 2=COMELL (X , ICDCK)

GO TO 70

40 CALL BEZONE(AA,B,l, ICDCK)

GO TO 70 50 CALL BEZERO(AA,B,l, ICDCK)

GO TO 70

60 CALL FOURIA(AA,B(l),B(2), ICDCK, ICDCN)

70 RETURN

END

70

80

GP20 20

GP20 30

GP20 40

GP20 50

GP20 60

GP20

GP20

GP20 90

GP20100

GP20110

GP 20120

GP20130

GP20140

GP20150

GP20160

GP20170

GP20180

GP20190

GP20200

GP20210

GP20220

OVERLAY (WORK, 4,0)

PROGRAM GRP21

C VERSION 5.00 CDC OVERLAY GROUP 21

COMMON/BLOCKE/ NAME ( 4 )

, LI , L2 , ISRFLG

L2A=L2-1

GOTO (10, 20, 30, 40, 50, 60), L2A

10 CALL DUMMYA

GO TO 70

20 CALL DUMMYB

GO TO 70 30 CALL DUMMYC

GO TO 70 40 CALL DUMMYD

GO TO 70

GP21 20

GP21 30

GP21 40

GP21 45

GP21 50 GP21 60

GP21 70

GP21 80

GP21 90 GP21100

GP21110

GP21120

14
50 CALL DUMMYE GP21130

GO TO 70 GP21140

60 CALL DUMMYF GP21150

70 RETURN GP21160

END GP21170 *******************************************************************************

PART III

DECK SETUP ORGANIZATION

IN ORDER TO UTILIZE THE OVERLAY SCHEME DEVELOPED THE PROGRAMS LISTED

ABOVE AND THE SUBPROGRAMS OF OMNITAB II MUST BE IN THE FOLLOWING

ORDER:

I GROUP 1 MUST HAVE THE FOLLOWING THREE CARDS

OVERLAY (OMNIT, 0,0)

PROGRAM OMNITAB (INPUT, OUTPUT, PUNCH, TAPE5= INPUT, TAPE6=OUTPUT,TAPE3

1=PUNCH,TAPE45)

FOLLOWED BY THE FOLLOWING SUBPROGRAMS:

OMNSYM, AARGS,ACCDIG,ADRESS, AERR, ARITH, ASTER, BEGIN, CHKCOL,

CKIND,DIMENS, ERROR, EXPAND, FCOS, FDCOS, FDEXP, FDLOG,FDPCON,

FDSIN,FDSQRT, FEXP, FEXP2, FLOG,FLOG10, FSIN, FSQRT, FTANH,

FUNCT, GENER, HEADS, IFS,INFERR, INPUT, LIST, LOCATE, LOOKUP,

MTXCHK, MXTXP, NNAME,NONBLA,OMCONV, OMNIT, OUTPUT, PACK, PAGE,

PHYCON,PREPAK, PROB, READQ, READX,REPINC, RESET , RFORMT , RNDOWN

,

SET,SORTSM, SPACE, SYMV, VARCON,VECTOR, XECUTE, XPND, XSTOP,

BLOCK , LBCONS , LOOKTB , FHYS I

C

II GROUP 2 PROGRAM STARTING WITH CARD

OVERLAY (OMNIT, 1,0)

THROUGH THE CARD

END GP2 370

FOLLOWED BY THE FOLLOWING SUBPROGRAMS:

ABRIDG,APRINT,FIXFLO,NOTEPR,PRINTX, PUNCH , RPRINT , SETQ, SETUP

STMT, STORE, TAPOP,TAPOP2,XFORMT, XHEAD,XOMNIT

III GROUP 3 PROGRAM STARTING WITH CARD

OVERLAY (OMNIT, 2,0)

THROUGH THE CARD

END GP3 180

FOLLOWED BY THE FOLLOWING SUBPROGRAMS:

DHRND,ERRINT, FNEC, FNEIC, FNKC, PLOT, RNJBK, THERMO

IV GROUP 4 PROGRAM STARTING WITH CARD

OVERLAY (MATRIX, 1,0)

THROUGH THE CARD

END GP4 290

FOLLOWED BY THE FOLLOWING SUBPROGRAMS:

ARYVEC,EXPCON,MATRIX, MDAMAD, MKRON, MMULT, MOP,MRAISE,MTRIAN,

MXTX,STORMT,TRANSF

V GROUP 5 PROGRAM STARTING WITH CARD:

OVERLAY (MATRIX, 2,0)

15
THROUGH THE CARD

END GP5 90

FOLLOWED BY THE FOLLOWING SUBPROGRAMS:

DETRNK,INVCHK, INVERT, MPROP,ORTHRV,PROCHK, PVTRI , RCSUM,SKSYMV,

SPINV

VI GROUP 6 PROGRAM STARTING WITH CARD

OVERLAY (MATRIX, 3,0)

THROUGH THE CARD

END GP6 120

FOLLOWED BY THE FOLLOWING SUBPROGRAMS:

COALES, FPPT, HDLAG,MEIGEN, ONEWAY, RANKO,TPCTPT

VII GROUP 7 PROGRAM STARTING WITH CARD

OVERLAY(STATIS,1,0)

THROUGH THE CARD

END GP7 50 FOLLOWED BY THE FOLLOWING SUBPROGRAM:

ORTHO

VIII GROUP 8 PROGRAM STARTING WITH CARD

OVERLAY(STATIS,l,l)

THROUGH THE CARD

END GP8 95

FOLLOWED BY THE FOLLOWING SUBPROGRAM:

OANOVA

IX GROUP 9 PROGRAM STARTING WITH CARD

OVERLAY(STATIS,l,2)

THROUGH THE CARD

END GP9 95

FOLLOWED BY THE FOLLOWING SUBPROGRAM:

OCOEFF

X GROUP 10

PROGRAM STARTING WITH CARD

OVERLAY (STATIS, 1,3)

THROUGH THE CARD

END GP10 95

FOLLOWED BY THE FOLLOWING SUBPROGRAM:

OCOVAR

XI GROUP 11

PROGRAM STARTING WITH CARD

OVERLAY(STATIS,l,4)

THROUGH THE CARD

END GPU 95

FOLLOWED BY THE FOLLOWING SUBPROGRAM:

OPONE

XII GROUP 12

PROGRAM STARTING WITH CARD

OVERLAY(STATIS,l,5)

THROUGH THE CARD

END GP12 95

16
FOLLOWED BY THE FOLLOWING SUBPROGRAM:

ORTPLT

XIII GROUP 13

PROGRAM STARTING WITH CARD

OVERLAY(STATIS, 2,0)

THROUGH THE CARD

END

FOLLOWED BY THE FOLLOWING SUBPROGRAMS:

FPROB,FRDIST,FREQCY,HISTGM, STATIS

XIV GROUP 14

PROGRAM STARTING WITH CARD

OVERLAY(STATIS,3,0)

THROUGH THE CARD

END

FOLLOWED BY THE FOLLOWING SUBPROGRAMS:

BJORCK,CORREL,CSPINV,INVCOR, MIST, RANKS RANKX

XV GROUP 15

PROGRAM STARTING WITH CARD

OVERLAY (STATIS, 4,0)

THROUGH THE CARD

END

FOLLOWED BY THE FOLLOWING SUBPROGRAM:

TWOWAY

GP13150

GP14 90

GP15 60

XVI GROUP 16

PROGRAM STARTING WITH CARD

OVERLAY (WORK, 1,0)

THROUGH THE CARD

END GP16310

FOLLOWED BY THE FOLLOWING SUBPROGRAMS:

ALLSUB, CHANGE, CMPARA,CMSEPA,EXCHNG, FLIP,LNTERP, INTRP , ITERAT

,

PROROW , SELECT , SORDER

XVII GROUP 17

PROGRAM STARTING WITH CARD

OVERLAY (WORK, 2,0)

THROUGH THE CARD

END GP17270

FOLLOWED BY THE FOLLOWING SUBPROGRAMS:

COMPLX, DEFINE, ERASE, EXTREM, GQUAD, MSC2, MOVE,MSCROW,PDMOTE

XVIII GROUP 18

PROGRAM STARTING WITH CARD

OVERLAY (WORK, 3,0)

THROUGH THE CARD

END GP18 50 FOLLOWED BY THE FOLLOWING SUBPROGRAM:

BESSEL

XIX GROUP 19

PROGRAM STARTING WITH CARD

OVERLAY (WORK, 3,1)

THROUGH THE CARD

END

FOLLOWED BY THE FOLLOWING SUBPROGRAMS:

BEJN,BINTJO, DBEJ,STRUVE

GP19200

17
XX GROUP 20 PROGRAM STARTING WITH CARD

OVERLAY (WORK, 3, 2)

THROUGH THE CARD

END GP20220

FOLLOWED BY THE FOLLOWING SUBPROGRAMS:

BEZERO,BEZONE, CBEI, CBEK , COMELL , FOURI

A

XXI GROUP 21

PROGRAM STARTING WITH CARD . OVERLAY (WORK, 4,0)

THROUGH THE CARD

END GP21170

FOLLOWED BY THE FOLLOWING SUBPROGRAMS:

DUMMYA,DUMMYB ,DUMMYC,DUMMYD,DUMMYE ,DUMMYF ****************************************************************************

PART TV

FLOW CHART OF OVERLAY STRUCTURE

GROUP 1 IS RESIDENT IN MEMORY AT ALL TIMES,

CONTAINS MOST OFTEN USED ROUTINES, SUBPROGRAMS

NEEDED BY MORE THAN ONE OF THE OTHER GROUPS, AND

ALL OF LABELED COMMON (EXCLUDING LABELED COMMON

FOR BESSEL SUBPROGRAMS)

.

ONLY ONE OF THE OTHER GROUPS (GROUP 2 THROUGH

GROUP 7, GROUP 13 THROUGH GROUP 18 AND GROUP 21)

IS IN MEMORY AT A PARTICULAR TIME.

GROUPS 7 AND 18 EACH CONTAIN SUBSEGMENTS. ONLY ONE OF THE SEGMENTS (GROUP 8 THROUGH GROUP 12) WILL BE IN RESIDENCE WITH

GROUP 7. EITHER GROUP 19 OR GROUP

20 WILL BE LOADED WITH GROUP 18.

OUTLINE OF SEGMENTATION

GROUP 1 **************************************

* AARGS ACCDIG ADRESS AERR ARITH * * ASTER BEGIN CHKCOL CKIND DIMENS * * ERROR EXPAND FCOS FDCOS FDEXP * * FDLOG FDPCON FDSIN FDSQRT FEXP * * FEXP2 FLOG FLOG10 FSIN FSQRT * * FTANH FUNCT GENER HEADS IFS * * INFERR INPUT LIST LOCATE LOOKUP * * MTXCHK MXTXP NNAME NONBLA * * OMCONV OMNIT OMNSYM OUTPUT PACK * * PAGE FHYCON PREPAK PROB READQ *

* READX REPINC RESET RFORMT RNDOWN * * SET SORTSM SPACE SYMV VARCON * * VECTOR XECUTE

* XPND XSTOP **

* PLUS LIBRARY

* FUNCTIONS (SIN, ETC) *

*

18
*

* ALL OF LABELED COMMON *

* *

* ABCDEF BLOCKA BLOCKB BLOCKC BLOCKD *

* BLOCKE BLOCKX BLOCRC CODE CODETP * * CONLB2 CONSLB CONSTS DCONL2 DCONLB *

* EMAT HEADER I CODE ICODTP KFMT *

* NOTE PCONST PKSWT QRS SCRAT *

* SPRV TAPE

A *

A

*

A

A A A

* THERE ARE 4 BLOCK DATA PROCEDURES.

* THE COMMENT OR 2ND CARD HAS THE

* LABEL NAME. THE 4 PROCEDURES ARE

A* BLOCK LBCONS LOOKTB PHYSIC

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

A

A

A

A

A

A AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAA AAAAAAAA AAAAAAAAAA AA AAA

A 2* 1 * 1 * 1*1 1 1 * GROUP * 2 1 * 1 * 1GROUP * 3 1 * 1 1 1 GROUP * 4

A 1 A 1 A 1 A 1*1 1 1 * AAAAAAAAAA 1 A 1 A 1 AAAAAAAAAA 1*1 1 \ AAAAAAAAAA

* ABRIDG * 1 * 1 * 1 * DHRND * 1 * 1 1 1 * ARYVEC * * APRINT * 1 * 1 * 1 * ERRINT * 1 * 1 1 1 * EXPCON *

* FIXFLO * 1 * 1 * 1 * FNEC * 1 * 1 1 1 * MATRIX *

* NOTEPR * 1 * 1 * 1 * FNEIC * 1 * 1 1 1 * MDAMAD *

* PRLNTX * 1 * 1 * 1 * FNKC * 1 * 1 1 1 * MKRON * * PUNCH * 1 * 1 * 1 * PLOT * 1 * 1 1 1 * MMULT *

* RPRINT * 1 * 1 * 1 * RNJBK * 1 * 1 1 l*MOP *

* SETQ * 1 * 1 * 1 * THERMO * 1 * 1 1 1 * MRAISE * A SETUP * 1 * 1 * 1 AAAAAAAAAA 1*1 \ 1 * MTRIAN *

* STMT * 1 * 1 * 1 1*1 1 1* MXTX *

* STORE * 1 * 1 * 1 1*1 1 1* STORMT * * TAPOP * 1 * GROUP 15*1 1 * 1GROUP 16 1 * TRANSF *

A TAPOP? *1* 1 * 1 1*1 1 1 AAAAAAAAAA

A XFORMT * 1 * AAAAAAAAAA A 1 1*1 AAAAAAAAAA 1 * XHEAD * 1 * * DETRNK * * 1 1*1* COALES * 1

* XOMNIT * 1 * * INVCHK * * 1 1*1* FPPT * 1 AAAAAAAAAA 1 A A TNVERT * * 1 1*1* HDIAG * 1 1 * * MPROP * * 1 1 * 1 * MEIGEN * 1

a a ORTHRV * * 1 1*1* ONEWAY * 1 1 * * PROCHK * * 1 1*1* RANKO *

1

1 * * PVTRI * * 1 1*1* TPCTPT *

1 1 A A RC51M * * 1 1*1 AAAAAAAAAA 1 1 * * SKSYMV * * 1 1*1 1 1 * * SPINV * * 1 1*1 1

1 A AAAAAAAAAA A 1 1*1 1

]_ A * \ 1 * 1 1 * * 1 1* 11

1 AAAAAAAA A 1 AAAAAAAA 1 1 AA 11*1 1

19
1

11

11

11

111GR0UP

1

*

***********

*

GROUP * 7 * **********

* ORTHO * **********

*

* *******************************

**********

* QANOVA * **********

GROUP

*

**

*

*

*** ]_]_

GROUP * 9 *

* * ********** *

* OCOEFF * * ********** *

GROUP

********

* 10 **********

* OCOVAR * **********

GROUP * 12 **********

* OPONE * **********

**********

* ORTPLT * **********

*************************************

*

**

*

**

** **********

* TWOWAY * **********

GROUP * 15

GROUP 1 18

1 ******************

* BESSEL *

* LABELED COMMON * * ABEKI * ******************

11

1

1

1

1 GROUP 1 16

1 **********

* ALLSUB * CHANGE * GMPARA * CMSEPA * EXCHNG * FLIP

* INTERP

* INTRP

* ITERAT

* PROROW

* SELECT

* SORDER

**********

GROUP 1 19

1 **********

* BEJN *

* BINTJO *

* EBEJ *

* STRUVE * **********

GROUP 1 20

1 **********

* BE2ER0 *

* BEZONE *

* CBEI *

* CBEK *

* COMELL *

* FOURIA * **********

*

*

**

*

*

**

*

*

*

*

**

* GROUP * 13

* **********

* FPROB *

* FRDIST

* FREQCY

* HISTGM

* STATIS **********

1

1

1

1

1

11

1

1

1

11

1

1

11

11 GROUP 1 21

1 **********

* DUMMYA *

* DUMMYB *

* DUMMYC *

* DUMMYD * * DUMMYE * * DUMMYF * **********

11

11

1

1

11

1

1

11

111 GROUP 1 14

1 **********

* BJORCK

* CORREL

* CSPINV

* INVCOR

* MIST

* RANKS

* RANKX

**********

GROUP 1 17

1 **********

* COMPLX *

* DEFINE

* ERASE

* EXTREM *

* GQUAD

* MISC2

* MOVE

* M3CROW *

* PDMOTE * **********

20
APPROXIMATE SIZE OF EACH GROUP ON THE NBS COMPUTER

THE SIZE AS INDICATED BELOW ASSUMES THAT A MACHINE WORD

IS 36 BITS LONG, A FLOATING POINT NUMBER USES ONE STORAGE

UNIT, AND EACH MACHINE INSTRUCTION IS ONE STORAGE UNIT LONG.

I GROUP 1 43000 STORAGE UNITS

A. ROUTINES 12000

B. LABELED COMMON 31000 (THIS INCLUDES A WORK

SHEET OF 12500 STORAGE UNITS)

C. NOT COUNTED BUT MUST BE ADDED ARE

LIBRARY FUNCTION ROUTINES (I. E. SIN, COS, ETC)

,

AND INPUT OUTPUT ROUTINES. (FOR THE NBS UNIVAC

1108 SYSTEM THIS IS ABOUT 4500 STORAGE UNITS)

2900 STORAGE UNITS

3200 STORAGE UNITS

4100 STORAGE UNITS

4000 STORAGE UNITS

3700 STORAGE UNITS

4400 STORAGE UNITS

(THIS GROUP INCLUDES GROUPS 8 THROUGH 12)

3400 STORAGE UNITS

3800 STORAGE UNITS

4000 STORAGE UNITS

3000 STORAGE UNITS

3300 STORAGE UNITS

(THIS GROUP INCLUDES GROUPS 19 AND 20)

4400 STORAGE UNITS

(THIS SEGMENT IS WHERE THE USER MAY

ADD HIS SUBROUTINES) *******************************************************************************

PART V

CHANGES NECESSARY IF WORK SHEET AND SCRATCH AREAS ARE TO BE MODIFIED

IN ADDITION TO THE CHANGES LISTED ON PAGES 24 THROUGH 26 IN NBS TECHNICAL

NOTE 550, THE FOLLOWING CHANGES WILL HAVE TO BE MADE:

LET NSIZRC BE THE SIZE OF WORK SHEET REQUIRED AND

NSIZR7=INTEGRAL PART OF (NSIZRC-200)/4

NSIZRC AND NSIZR7 MUST BE INTEGER CONSTANTS AND NOT VARIABLES.

II GROUP 2

III GROUP 3

IV GROUP 4 V GROUP 5

VI GROUP 6

VII GROUP 7

VIII GROUP 13

IX GROUP 14

X GROUP 15

XI GROUP 16

XII GROUP 17

XIII GROUP 18

XIV GROUP 21

21
A. THE STATEMENTS

DOUBLE PRECISION AA(1000) ,B(1000) ,W(100)

EQUIVALENCE (A(l) ,AA) , (A(2001) ,B) , (A(4001) ,W)

IF(NR.GT.IOOO) L=1000 BES2640*

IF(LNR.GT.IOOO) LNR=1000 BES3230*

MUST BE CHANGED TO

DOUBLE PRECISION AA(NSIZR7) ,B(NSIZR7) ,W(100)

EQUIVALENCE (A(l) ,AA) , (A(2*NSIZR7+1) ,B) , (A(4*NSIZR7+1) ,W)

IFCNR.GT.NSIZR7) L=NSIZR7 BES2640*

IF(LNR.GR.NSIZR7) LNR=NSIZR7 BES3230*

IN SUBROUTINE BESSEL

* IDENTIFICATION NUMBERS IN COLUMNS 73 THROUGH 79

B. THE STATEMENTS

COMMON/ SCRAT/ NS,NS2,A(13500)

EQUIVALENCE (A(4001) ,W)

MUST BE CHANGED TO

COMMON/SCRAT/ NS ,NS2 ,A(NSIZRC+1000)

EQUIVALENCE (A(4*NSIZR7+1) ,W)

IN PROGRAM UNIT LABELED PROGRAM GRP19

C. THE STATEMENTS

COMMON/SCRAT/ NS,NS2,A(13500)

DOUBLE PRECISION AA(1000) ,B(1000)

EQUIVALENCE (A(l) ,AA) , (A(2001) ,B)

MUST BE CHANGED TO

COMMON/SCRAT/ NS,NS2,A(NSIZRC+1000)

DOUBLE PRECISION AA(NSIZR7) ,B(NSIZR7)

EQUIVALENCE (A(l) ,AA) , (A(2*NSIZR7+1) ,B)

IN PROGRAM UNIT LABELED PROGRAM GRP20

ft U. S. GOVERNMENT PRINTING OFFICE :1972— 481-334/

22
FORM NBS-114A (1-711 U.S. DEPT. OF COMM. BIBLIOGRAPHIC DATA

SHEET

1. PUBLICATION OR REPORT NO. NBS-TN-734

2. Gov t Accession

No.

3. Recipient's Accession No.

4. TITLE AND SUBTITLE

OMNITAB II Segmentation Structure for the SCOPE Operating

System

5. Publication Date June 1972

6. Performing Organization Code

7. AUTHOR(S)

Sally T. Peavy and Ruth N. Varner

8. Performing Organization

10. Project/Task/Work Unit No. 1510585

9. PERFORMING ORGANIZATION NAME AND ADDRESS

NATIONAL BUREAU OF STANDARDS

DEPARTMENT OF COMMERCE

WASHINGTON, D.C. 20234

11. Contract/Grant No.

12. Sponsoring Organization Name and Address Same as Number 9.13. Type of Report & Period CoveredN/A

14. Sponsoring Agency Code

15. SUPPLEMENTARY NOTES

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.)

OMNITAB II is an interpretive system developed and maintained by the National

Bureau of Standards to enable scientists to use a large computer easily, effectively

and accurately for numerical, statistical and data analysis without prior computer

experience. The system is as machine independent as possible, making implementation

relatively easy. Since OMNITAB II has a large memory requirement, segmentation and

overlay are virtually essential.

Overlay procedures are dependent upon the operating system of the computer.

Changes are necessary to the OMNITAB II program when the overlay procedure requires

specific overlay CALL statements to external procedures in other overlay links. This

Technical Note describes a method of segmentation and overlay for a particular

operating system (CDC - 6000 series) . The method can readily be adapted to other

operating systems with modifications to the control statements.

17. KEY WORDS (Alphabetical order, separated by semicolons) ANS j_ F0RTRAN; General-purpose computer

program, Implementation of OMNITAB II; Links; OMNITAB II; Overlay procedures; SCOPE

operating system; Segmentation.

18. AVAILABILITY STATEMENT

IXXl UNLIMITED.

I I FOR OFFICIAL DISTRIBUTION. DO NOT RELEASE

TO NTIS.

19. SECURITY CLASS

(THIS REPORT)

UNCLASSIFIED

20. SECURITY CLASS

(THIS PAGE)

UNCLASSIFIED

21. NO. OF PAGES

25

22. Price35^

USCOMM-DC 66244-P71

NBS TECHNICAL PUBLICATIONS

PERIODICALS JOURNAL OF RESEARCH reports National

Bureau of Standards research and development in

physics, mathematics, and chemistry. Comprehensive

scientific papers give complete details of the work,

including laboratory data, experimental procedures,

and theoretical and mathematical analyses. Illustrated with photographs, drawings, and charts. Includes

listings of other NBS papers as issued.

Published in two sections, available separately:

• Physics and Chemistry

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, $9.50; $2.25

additional for foreign mailing.

• Mathematical Sciences

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, $5.00;

$1.25 additional for foreign mailing.

TECHNICAL NEWS BULLETIN

The best single source of information concerning the Bureau's measurement, research, developmental, cooperative, and publication activities, this monthly

publication is designed for the industry-oriented

individual whose daily work involves intimate contact

with science and technology

for engineers, chemists,

physicists, research managers, product-development

managers, and company executives. Includes listing of

all NBS papers as issued. Annual subscription: Domestic, $3.00; $1.00 additional for foreign mailing.

Bibliographic Subscription Services

The following current-awareness and literature- survey bibliographies are issued periodically by

the Bureau: Cryogenic Data Center Current Awareness Service (weekly), Liquefied Natural

Gas (quarterly), Superconducting Devices and

Materials (quarterly), and Electromagnetic

Metrology Current Awareness Service (monthly) . Available only from NBS Boulder Laboratories. Ordering and cost information may be

obtained from the Program Information Office,

National Bureau of Standards, Boulder, Colorado 80302.

NONPERIODICALS Applied Mathematics Series. Mathematical tables, manuals, and studies. Building Science Series. Research results, test methods, and performance criteria of building materials, components, systems, and structures. Handbooks. Recommended codes of engineering

and industrial practice (including safety codes) de- veloped in cooperation with interested industries,

professional organizations, and regulatory bodies. Special Publications. Proceedings of NBS conferences, bibliographies, annual reports, wall charts,

pamphlets, etc. Monographs. Major contributions to the technical

literature on various subjects related to the Bureau's

scientific and technical activities. National Standard Reference Data Series.

NSRDS provides quantitative data on the physical

and chemical properties of materials, compiled from

the world's literature and critically evaluated. Product Standards. Provide requirements for sizes, types, quality, and methods for testing various industrial products. These standards are developed co- operatively with interested Government and industry

groups and provide the basis for common understanding of product characteristics for both buyers and

sellers. Their use is voluntary.

Technical Notes. This series consists of communications and reports (covering both other-agency and

NBS-sponsored work) of limited or transitory interest. Federal Information Processing Standards

Publications. This series is the official publication

within the Federal Government for information on

standards adopted and promulgated under the Public

Law 89—306, and Bureau of the Budget Circular A—86

entitled, Standardization of Data Elements and Codes

in Data Systems.

Consumer Information Series. Practical information, based on NBS research and experience, cover- ing areas of interest to the consumer. Easily understandable language and illustrations provide useful background knowledge for shopping in today's tech- nological marketplace.

CATALOGS OF NBS PUBLICATIONS NBS Special Publication 305, Publications of

the NBS. 1966-1967. When ordering, include

Catalog No. C13.10:305. Price $2.00; 50 cents additional for foreign mailing.

NBS Special Publication 305, Supplement 1, Publications of the NBS, 1968-1969. When ordering, include Catalog No. C13.10:305/Suppl. 1. Price

$4.50; $1.25 additional for foreign mailing.

NBS Special Publication 305, Supplement 2,

Publications of the NBS, 1970. When ordering, include Catalog No. C13.10:305/Suppl. 2. Price

$3.25; 85 cents additional for foreign mailing.

Order NBS publications (except Bibliographic Subscription Services)

from: Superintendent of Documents. Government Printing Office, Washington, D.C. 20402.
U.S. DEPARTMENT OF COMMERCE

National Bureau of Standards

Washington, D.C. 20234

OFFICIAL BUSINESS

Penalty for Private Use. $300

POSTAGE AND FEES PAID

U.S. DEPARTMENT OF COMMERCE

215

I