NATIONAL BUREAU OF STANDARDS REPORT

9938

Annex to

A Simulation of a Highway Maintenance Operational Unit

U.S. DEPARTMENT OF COMMERCE

NATIONAL BUREAU OF STANDARDS

NATIONAL BUREAU OF STANDARDS REPORT

NBS PROJECT NBS REPORT

4314451 February 1969 9938

Annex to

A Simulation of a Highway Maintenance Operational Unit

By

W.F. Druckenbrod

H.D. Bouland

W.G. Hall

J.A. Y urow

IMPORTANT NOTICE NATIONAL BUREAU OF S

for use within the Government,

and review. For this reason, tl whole or in part, is not authc Bureau of Standards, Washingt

the Report has been specificall

Approved for public release by the

Director of the National Institute of

Standards and Technology (NIST) on October 9, 2015

ess accounting documents intended

> subjected to additional evaluation

e listing of this Report, either in le Office of the Director, National

by the Government agency for which

copies tor its own use. <50i>

U.S. DEPARTMENT OF COMMERCE

NATIONAL BUREAU OF STANDARDS
PREFACE

This annex supplements the basic report "Simulation Model of

a Highway Maintenance Operational Unit."

The flow charts contained herein are intended as a supplement

to the more functionally oriented charts in the report. These

charts are at a micro level, and ccme very close to exhiting a oneto-one correspondence between the computer program statement and a

flow chart expression.

The notation and symbology were deliberately kept simple in

order to facilitate correlation between the computer program and

the flow charts. The tables included show:

Table (1) Program Statement Numbers and Corresponding Connectors

by Page

Table (2) Entry and Exit Connectors by Page

Table (3) Exit Connector Page by Corresponding Entry Connector

Table (4) Statement Numbers by Page

Table (5) Computer Printout
Flow Chart Description

Subroutines

HZONE a Pages SI and S2

This subroutine is entered each time a new job is encountered.

Arguments are job parameters, highway, and zone lists. Calculations

are travel times and control parameters for the job.

RANK 6 Page S3

This subroutine is used to rank the entries within an array in

ascending order. Arguments are the arrays JRANK § JUNK1 having the

same dimension. JRANK (I) = I and JUNK1 is the array on which the

ranking is required. Upon exit from the subroutine JRANK (I) contains

the rank index of JUNK1 ( I )

a Page S4

This subroutine checks the arrays used for the job inventory list

and finds an available slot. There are no arguments as such; however,

the last job which has been removed from the inventory is "remembered"

unless that slot has been used subsequently. Output is the index of

a usable slot. This subroutine is not in standard FORTRAN form.

3 Page S5

This subroutine calls HZONE and calculates time on job. This is

not in standard FORTRAN form.

Initialization

Pages 1-2

This section reads in or constructs bookkeeping type parameters.

Included are such things as maximum dimensions for lists, holiday

indices, day of week of the first day of the year, number of days in

each month and the name of each month.

Input - (All input sections include an optional print back)

Page 3

This section reads the names of the 1-0 gates, the input and output

gates and the job title, number available and hourly cost of personnel for

each job category.

1
2

Page 4

This section reads the name, serial number, number, number

available, and hourly cost for each type of equipment.

Pages 5-6

This section reads parameters belonging to each job type including

a description of each basic crew which can work at this job type. The

nominal hourly cost for each crew is calculated.

The variable HCST(I) is the nominal hourly cost for crew I. It

is the sum of number of crew members of each labor category times the

hourly cost of each equipment type used times the hourly cost.

HCST(I) = IE01(I) * CE1 + IE02 (I) x CE2 + IE03 (I) x CE3 + ILAB(I) x CL

+ z INO. x EQC.

l x l

Nominal cost is used for all subsequent rankings; it may differ slightly

from the true cost since no labor category shifts are included.

Pages 7-8

This section reads a list of highways which may be referenced by

highway number rather than zone number. For each such highway, the

highway number, the zones through which it passes and the miles per

zone are read.

Page 9

This section reads weather data and constructs a weather table.

Page 10

This section reads the depot to zone travel time for each zone.

Page 11

This section reads recurring or periodic jobs. Several one- timeonly initialization functions are performed.

XMULT = (IESD(J) - 365 + NTST * IPER(J) )/IPER(J))

XMULT is a fudge factor used as a start-up device. Its effect is to

implement the assumption that each recurring job encountered on day

1 of the simulation was actually discovered on the earliest starting

day for this job type in the preceding year plus whatever multiple of

the period is required to get the starting date to within the last

period of the preceding year. The work units of the job in the recurring

file are replaced as the job is put into the job inventory by the work

units times the ratio of the period minus the number of days of the
last period which were in the preceding yearto the total period. This

enables the beginning date of each recurring job to be independent

of the simulation starting date by assuming that these jobs have

been discovered some time in the preceding year during the last

period for the type. Hence the work units from the recurring prototype file are reduced linearly as the job is put into inventory

to compensate for that portion of the period which was in the

preceding year.

Day Initialization

Pages 12-18

This section clears all accumulated daily sums of costs, worker hours,

etc.; if appropriate, weekly and yearly sums are cleared also. The

current simulation day is examined to ascertain the day of the week,

holiday status, and length of work week; these are used to preset gates

to allow for reports, weekly planning, and to establish criteria for

determining the jobs which may be worked on. Regular (read in) and

recurring jobs are put into the job inventory. Weather generated jobs

are then put into inventory.

Weekly Plan Preparation

Pages 19-26

The projected work for the week is calculated and reported.

Estimates are based on full work days with no allowance for emergency

or weather generated jobs.

Page 23

WPR = VPR * MULT/ (IVDL - J8 + 1)

L1 PROD*TOJ

Page 25

SLH(M,N) = SLH(M,N) + SE1H(M,N)= SE1H(M,N) + SE2H(M,N) = SE2H(M,N) + SE3H(M,N) = SE3H(M,N) + TCL(M,N) = TCL(M,N) +

* CE3)

Y * ILAB(L)

Y * IE01(L)

Y * IE02 (L)

Y * IE03(L)

Y * (ILAB(L)* CL + K1 * CE1 + K2 * CE2 + K3
NDEQT(L5) = NDEQT(L5) - LI * IN0(L4)

EQH(M,N,L4)= EQH(M,N,L5) + IN0(L4) * Y

EQTOI (M,N) = EQTOL(M,N) + INO(L4) * Y * EQC(L5)

Report Print

Pages 26-29

The weekly plan report, and daily, weekly, and yearly work reports

are printed. All these reports have essentially the same format.

Page 27

Y = SLH(M,I) + SE1H(M,I) + SE2H(M,I) + SE3H(M,I)

Post Report Gating

Page 30

Depending upon which report has just been printed, the appropriate

bookkeeping is done and proper control transfers are set.

Pre Assignment Processing

Pages 31-33

For each job in the job inventory, an indicator is set to show

which jobs are subject to normal crew assignment procedures. Those

jobs excluded are emergency jobs, weather generated jobs, jobs which

have a discovery date after simulation date, and jobs which are

precluded by weather. All auxiliary crews are released and IDELTA

is constructed.

Crew Assignment

Page 33 - Daily Inventory Construction

The daily inventory construction is treated as a special case

of inventory updating; hence, this sequence maybe reentered after

sane crew assignments have been made.

Pages 33-35 - Weather Jobs

Weather generated jobs have crews assigned in this section.

Generally, these jobs are considered to be sufficiently large to

require all available resources so that assignment is constrained

by crews available rather than by any characteristics of the job

itself. The daily resource inventories are updated.
SLH(M,J) = SLH(M,J) + X * X9

SE1H(M,J)= SE1H(M,J) + X * XI

SE2H(M,J) = SE2H(M,J) + X * X2

SE3H(M, J)= SE3H(M,J) + X * X3

TCL(M,J) = TCL (M,J) + X * (X9 * CL + XI * CE1 + X2 * CE2 + X3 * CE3)

EQH(M,J,J7) = EQH(M,J,J7) + X6 * X

EQTOT(M,J) = EQTOT(M,J) + X * X6 * EQC(J7)

Page 35 - Inventory Update

Daily resource inventories are updated to reflect depletion by

weather generated jobs.

Pages 35-36 - Peimanent Crew Feasibility

This section verifies that there are adequate resources to

fill all permanent crew assignments which have been madeprior to simulation day for all jobs on which work is possible. If resources

are inadequate, all permanent crew assignments are canceled; otherwise,

permanent assignments are confirmed and resource inventories are

reduced accordingly.

Pages 36-40 - Normal Crew Assignment

The normal assignment procedures are used to assign crews made

up from resource inventories to jobs other than weather generated,

emergency, and X type jobs.

Page 41 - JOB X Inventory

All remaining labor resources are converted to man hours from

man days and tentatively assigned to JOB X.

Pages 41-46, 53 - Emergency Job Assignment

All jobs in inventory are searched to locate emergency jobs.

Assignments to these jobs are made in preferential order from JOB X,

from among auxiliary crews, or frcm permanent crews. Within each

category of assigned crew, choice is made by favoring the last crew

assigned to a job.

Pages 41-42 - From JOB X

Work units, costs, labor hours, and equipment hours are

accumulated for those emergency jobs which can be accomplished by

JOB X resources.
TCL (M , 1) = TIME * (Y * CL + XI * CE1 +X2 * CE2 + X3 * CE3) + TCL(M,1)

EQH(M,1,K3) = EQH(M,1,K3) + INO(N) * TIME

EQTOT (M , 1) = EQTOT (M , 1) + INO(N) * TIME * EQCQC3)

NDEQT (K3) = NDEQT(K3) - INO(N) * TIMET

Pages 42-44 - Frcm Auxiliary Crews

Hie closest (in travel time) auxiliary crew which can accomplish

the emergency job is released from the job to which it has been

assigned and assigned to JOB X for as many hours as are required to

do the emergency job. Work done, costs, etc. done on the job to which

the crew was originally assigned are accumulated for that fraction of

the day for which the crew remained assigned. (8 hours - emergency

job time). The JOB X emergency assignment section is reentered.

Page 44

(8 * ILAB(J5) + DXL) : (2 * TIME)

(8 * (IE01(J5)+I E02(J5) + IE03(J5)) + DXE1 + DXE2 + DXE3) : TIME

Pages 45-46 - From Permanent Crews

The procedure is exactly like from auxiliary crews above, except

selection is made from among permanent crews.

Page 45

Exactly as the two instructions on Page 44.

Pages 46-52 - Summary Creation

All costs, labor hours, equipment hours, etc., which appear in

the reports are accumulated. Surplus capability (fractional crew

days) for a job which is completed in less than a full day is put

into JOB X or credited to another job of the same type. Appropriate

reports are printed, the simulation day is advanced and the day

initialization section is reentered.
Table 1

Program Statement Numbers and Corresponding Connectors by Page
Table 1 continued
Table 1 continued

Page Statement Connector Other Reference

14 - 14 13

62 - 69

70 14A 15,18

71 a l 440

442 - 444 - 709 -

15 63 15 14

64 Si

72 - 630 - 631 -

16 61 _ 80 16 15,14

81 a 2 84 16B 17

175 16A 17

301 - 304 - 704

17 82 — 83 - 302 17 16,14

303 - 325 17A Subroutine

820 - 830 - -

Si

3030

18 18 16

90 _ 91

a 3 92 _ 93

a 4

95 _ 96

a 5 840

3090 - 3096 - 150
Table 1 continued

Page

19

20

21

22

23

24

25

26

Statement Connector Other Reference

19 18

1024 - 2000 - 2021 - 2022 - 3020 - 3095 -

- Si

1001 20 19

1002 - - 20A 21

- 20B 21

- 20C 21

_ 21 20

1003 - 1004 - 1015 21A 20

22 21

1114 - 1116 - 2050 22A 26

w. 23 22

- 23A 25

- 23B 25

1005 - 1006 - 1007 2 3D 24

1008 24 23

1009 - 1010 - 1011 - 1012 - 1026 'T

1014 25 24

1016

1018 25A 23

1020 25B 23

_ 26 25

773 26A 30,52

1106 - 1112 - 3091 “
Table 1 continued

Page Statement Connector Other Reference

27 _ 27 26

775 - 777 - 28 - 28 27

1044 -

29 _ 29 28

780 - 782 - 783 - 785

7801 - 30 766

772 30 29,26,52

774

776

1028

1641

7730

31 _ 31A 32

105 31 18,35

111

112

113

452

453

1046

32 114 32 31

115

116

117

118

119

121

122

123 32A 31

124 32B 31

454 32C 31

33 110 33A 31,32

139

250 33 32,36

450

451
Table 1 continued

Page Statement Connector Other Reference

34 - 34 33

420

422

424

426

428

430

432

34A 35

35 _ 35 34

106

125

126

35A 33

141 35E 37

172 35D 40

176 35C 36

177

434

436

35B 36

36

107

129

130

131

36 35

140

157

36A 35

161 36B 35

37 132

133

138

144

37 36

148 37C 38,39,40

178 37B 40

38 142

143

145

280

285

1452

1454

38 37,36
Table 1 continued

Page Statement Connector Other Reference

39 146

147

39 38,36

162

163

164

169

180

39A 37

40 160 40B 37

165

168

170

40 39

171 40C 38

179

181

275

40A 37

41

2004

2006

41 40

3006 41A 46

42

200

201

42 41

202 42B 53

203

204

205

2008

2010

42A 41

43 - 43 42

| 43B 44

- 43C 44

206

207

208

221

43A 44,42

44

209

44 43

210

211

44A 43

218 44B 43
Table 1 continued

Page Statement Connector Other Reference

45

214

215

216

217

220

290

318

45 44

46 _ 46 45

- 46B 48

- 46 C 48

47

222

223

1118

1120

1130

650

651

652

653

760

761

46A 41,42

1122

1124

47 46

48 48 47

762 48A 47

763 48B 46

1126

48C 51

7611 48D 51

49

7600

7601

7602

7604

7620

49 48

50

7622

7624

50 49
Table 1 continued

Page

51

52

53

Statement Connector Other Reference

2003

7610

7626

20030

51

5 IB

51A

50

48

48,49

770

771

1110

2002

52

52A

51

33,51

212

213

219 53 44,45
Table 2

Entry and Exit Connectors by Page

Page Entry Exit Page Entry Exit Page Entry Exit

1 START 2 17 17 16A 31 31 32

17A 16B 31A 32A

2 2 3 32B

3 3 18 18 14A 32C

3A 4 19 33

31

4 4 5 32 32 31A

HALT 19 19 20 32A 33

32B 33A

5 5 6 20 20 21 32C

5A 7 20A 21A

5B HALT 20B 33 33 34

20C 33A 35A

6 6 5A 52A

5B 21 21 20A

HALT (3) 21A 20B 34 34 35

20C 34A

7 7 8

HALT (2) 22 22 23 35 35 31

22A 35A 34A

8 8 9 35B 36

23 23 24 35C 36A

9 9 10 23A 25A 35D 36B

23B 25B 35E

10 10 11 23C

2 3D 36 36 33A

11 11 12 36A 37

HALT (2) 24 24 2 3D 36B 38

25 39

12 12 13

12A 25 25 23A 37 37 35E

25A 23B 37B 39A

13 13 14 25B 26 37C 40A

40B

14 14 15 26 26 22A

14A 16 26A 27 38 38 37C

17 30 40C

15 15 14A 27 27 28 39 39 37C

16 39A 40

28 28 29

16 16 17

16A 29 29 30

16B

30 30 12A

26A
Table 2 (continued)

Entry and Exit Connectors by Page

Page Entry Exit I

40 40 35D

40A 37B

40B 37C

40C 41

41 41 42

41A 46A

42 42 43

42A 43A

42B 46A

43 43 44

43A 44A

43B 44B

43C

44 44 43B

44A 43C

44B 45

53

45 45 46

53

46 46 4 1A

46A 47

46B 48B

46C

47 47 48

48A

48 48 46B

48A 46C

48B 49

48C 51A

48D 5 IB

49 49 50

51A

50 50 51

51 51 48C

51A 48D

5 IB 52

52A

Page

52

53

Entry

52

52A

53

Exit

26A

30

42B
Table 3

Exit Connector Page by Corresponding Entry Connector

Connector Entered From Connector Entered From Connector Entered Fran

2 1 20 19 35 34

20A 21 35A 33

3 2 20B 21 35B 36

20C 21 35C 36

35D 40

21 20 35E 37

4 3 21A 20

36 35

5 4 22 21 36A 35

5A 6 22A 26 36B 35

5B 6

23 22 37 36

6 5 23A 25 37B 40

23B 25 37C 38,39,40

7 5 2 3D 24

38 36,37

8 7 24 23

39, 36,38

9 8 25 24 39A 37

25A 23

10 9 25B 23 40 39

40A 37

11 10 26 25 40B 37

26A 30,52 40 C 38

12 11

12A 30 27 26 41 40

41A 46

13 12 28 27

42 41

14 13 29 28 42A 41

14A 15,18 42B 53

15 14 30 26,29,52

16 14,15 43 42

16A 17 31 18,35 43A 42,44

16B 17 31A 32 43B 44

43C 44

17 14,16 32 31

17A Subroutine 32A 31 44 43

17B Subroutine 32B 31 44A 43

32C 31 44B 43

18 16

33 31,32 45 44

19 18 33A 32,36

46 45

34 33 46A 41,42

34A 35 46B 48

46C 48
Table 3 (continued)

Exit Connector Page by Corresponding Entry Connector

Connector Entered From

47 46

48 47

48A 47

48B 46

48C 51

48D 51

49 48

50 49

51 50

51A 48,49

5 IB 48

52 51

52A 33,51

53 44,45
Table 4

Statement

1 - 3

4- 6

7-15

16

20-23

24-25

28-38

39

40-44

45

46-47

48-50

51

52

53-57

58

61

62

63-64

65

69-71

72

80-81

82-83

84

90-93

95-96

105

106

107

110

111-113

114-119

121-124

125-126

129-131

132-133

Statement Numbers by Page

Page

3

5

6

1

7

8

9

7

10

2

3

4

11

4

11

12

16

14

15

2

14

15

16

17

16

18

18

31

35

36

33

31

32

32

35

36

37

Statement Page Statement Page Statement

138 37

139 33 285 38 772

140 36 300 11 773

141 35 301 16 774

142-143 38 302-303 17 775

144 37 304 16 776

145 38 305 11 777

146-147 39 310 11 780

148 37 315 11 782-783

150 17 325 17 785

157 36 400 1 820

160 40 410 1 830

161 36 420 34 840

162-164 39 422 34 1001-1002

165 40 424 34 1003-1004

168 40 426 34 1005-1007

170 40 428 34 1008-1012

172 35 430 34 1014

175 16 432 34 1015

176-177 35 434 35 1016

178 37 436 35 1018

179 40 441 10 1020

180 39 442 14 1024

181 40 444 14 1026

200-205 42 450-451 33 1028

206-208 43 452-453 31 1036

209-211 44 454 32 1038

212-213 53 630-631 15 1040

214-217 45 650-653 47 1042-1043

218 44 700-703 12 1044

219 53 704 16 1046

221 43 709 14 1102

222-223 46 760-761 47 1104

250 33 762-763 48 1106

275 40 766 30 1110

280 38 770-771 52 1112

Page

30

26

30

27

30

27

29

29

29

17

17

18

20

21

. 23

24

25

21

25

25

25

19

24

30

13

13

13

13

28

31

3

12

26

52

26
Table 4

Statement Numbers by Page (continued)

Statement Page Statement Page Statement Page Statement Page

1114

1116

1118

1120

1122

22

22

46

46

47

7801

9200

9210

9220

9230

29

5

6

6

7

1124

1126

1130

1452-1453

1641

47

48

46

38

30

9240

9370

9960

20030

7

6

11

51

2000

2002

2003

2004

2006

19

52

51

41

41

2008

2010

2021-2022

2050

3006

42

42

19

22

41

3020

3030

3090

3091

3095

19

17

18

26

19

3096

7600-7602

7604

7610

7611

18

49

49

51

48

7620

7622

7624

7626

7730

49

50

50

51

30
Symbols & Notation

Exit Connector-see page A

Entrance Connector

Halt or start indicator

Decision Box

If A is less than B transfer control to connector 1 A is greater than or equal to B transfer to 2 Similar notation is used for =, ^ etc.

Either a line of print or a report

B,C, & D are printed according to format A

A

B,C,D

Input Record

B,C, a D are read according to format A

I © I B = CxD

E

F — G

Computation Box- begins with program statement A

I is replaced by I + l B is replaced by CxD

E is calculated ; relation is too long to fit into box and is given in text F replaces G

Subroutine call indication Subroutine A is entered and control is returned to A,

Variables beginning with A-H and 0-Z are real; those beginning with I-N are integer

©
1102
4

/ 903

Basic Crew(ll) P- 12 — lEQS(ll)

11 ICRN(I)

11 IX5C

15 —lEQ (12) JUNKI(JW) IN0O2)

HCST(II)

12 © 1 J2= J1 + 2

1 J1

JUNK2(J1)-^JUNK1(J1)

1 ** 14 Halt 12/

<T J1-.14

1 JSIG

9370

937

Halt )
7
9

z:

1 K

K HX8

JUNKI(J) —X

TT(K)= x/60

1.9 TT(K)

1.9 —*-TT(K)

K©1

J©1

0—»TT (K) 99999— JUNK! (L) 44

K©1

992

JUNKKL).XJUNK(L)

L

= 1,M Travel times

K: 94
11
58 0 -HLAST

931 Maxima

as Read

935

Maxima

as Computed

O-^XJL (l) 0-*-XJE1 (I) 0-^XJE2 (l) 0 -XJE3 (l)

1 —

J

0-^WUC (1.J) 0— SLH (I.J) 0 — SE1H (l,J) 0 ->• SE2H (I.J)

0 - SE3H (I.J) 0-»- WUA (I.J) 0-*- TCL (I.J) 0-^ TCE (I.J) 0-*- EQT0T (I.J)

1 -*-K

I © 1

703
1 © 1

9999 IVTYP ( 1X10

)

0 —NSEI

0 —^NSE2

0 »-NSE3 O NSL

0 — KH0L

1 M

i : ixio ©
(

14 )

plan:i b

/ \i

i \NH$L(IH0p/

N. 1 b UAY , b V Y a

1 DAY © 1 IS DAY © 1 NH0L(IH0L)©1

440

1 )

71/907

JOB Cl) r

IVDL(I)© IDTE(I)

I SUBROUTINE \IVTVF ID (1)


IRTYP(J)—HVTYP (I) IRMT 0)—HVMT (I) VPR (I) =XMUIT (J) x RPR (J)

1 XMULT (J) IRIC(J)—IVIC(I)

IRS? (J) —HVS?(I)

IRNZ (J) —HVNZ (I) IRMIN (J)-HVMIN (I) IRMAX (J)HVMAX (I)

IVDL(I) : IRDL(J)+IS(J) ISO) IDTE (I) IRNTO) —HVNT (I)

1 JSIG

1 K

' k-hndxci)

^

1 325 IFULL ©1

925

IFULL, IDAY
~©
20
1001 1— I

J RANK (I) —*-J2

INDX (J2)-^J

XJUNK1 (J) ©

VPR U2)

ICRS(J)-*-K5

ICRN (J)-»-K6

0-*\J1

K5—*-K

J1 © 1 XJUNK (J1) K-^JUNK (J1)

JUNKKK5) K3 XJUNK(K5) X

JUNK1(KB)>-JUNK1(K5) XJUNK(K6)>XJUNK(K5) K3— JUNKKK6)

X—^XJUNK (K6

)

©
©
23


26




772
105
115/

/ K1 = 4

<

118 1

IWD(J) -+IWX

IW(IDAY) —K

122
451

NDF-MULTx NF-NSF

N0E1=MULTxNE1-NSE1

NDE2=MULTX NE2 — NSE2 NDE3=MULTxNE3-NSE3

NDL= MULT x NL- NSL PAYR0L-MULTx(NFxCF +

NLxCL+NEIx CE1+NE2

XCE2 +NE3xCE3) N-NDL -t-NDEI-*- NDE2 + NDE3 {0

(35a)

INOX (II) —* K ICRS (K) —M2

ICRN (K) —M2

I

: I X 4

NDL0J8* J9

N S L©J 8 x J 9 NDE10J8 x K1 NSE10J8 x K1 NDE20 J8 X K2

NSE2©J8 X K2

NDE30J8 x K3

NSE3QJ8 x K3

J4 *d6

IEQ(J6) —»J7

X=J8*IN0(J6)

ISEQ(J7)©X

NDEQT(J7)0 X

J 6 © I

J3 © 1

O-^VPR(II)

0-HVTYP( 1 1)
SUM

IEQS(J1)-»\J2

IEQN(J1)-*-J3

J2 »\J4

JL

IEQCJ4)—*-J5

IEQU4) —**J5 NDEQT (J5)0 IN0CJ4)

SUM©IN0 (J4JXEQC (J5)

NDL0 ILABCJ1)

NDE10 K1 NDE20K2

NDE30K3

C0ST(l)©SUM

1 J

129

142

I VMIN Cl) = — I DAY—

IVMIN(I) T

X=SUM*T0U(I)

J2= Y/X + ,5 Y0X

-ICREWCIJ3)

-MCREW(I,J3)

4 -HEX
1 — L4

L4—^L5

XJUNKCLA)—*-X XJUNKCL5)—XJUNKCL/IO

X—XJUNK (L5) JUNKKL4) L3 JUNK(L5) —JUNKI (L4)

L 3 —JUNKI (L5)

L ® 1 8*HC0ST(L4)

XJUNK(UPR0^^

-JUNKI (U

L5: L

, 164/

L4©1

4 / \ =

L4. l y n 0— LI

42
42

X3=X3 + X2- DXE2

DXE2—**X2

wua(m,1)©time

slh(mi)©y*time

se1h(m,l)©Xl*time

se2h(m,1)©!<2*time se3h(m,1)©x3'tim6

tcl(m,l) 0 — vpr(i)

1 — jinx o — ivt yp( i kl — n

I EQ(N)— K3

EQH(M,1,K3) ©

IN0(N)*TIME

EQT0T(M,1) ©

IN0 (N)*TIME*

EQC(K3>

NDEQT (K3)©

IN0(N)*TIME T

N ©1

M © 1 DXLGYx TIMET

DXE10X1 xTlMET DXE20K2xTIMEl

DXE30K3*TIME1

1 — ISIG

1 — J1

JL J1-*-JUNK1(J1) TTJ (J 1 ) —

XJUNK(JI)

JUNK1 (J1 )>- J4

JUNK1 (J2) >-J5

JUNK1(J2hJ3

JUNKI(JI) —

JUNKKJ2)

J3 —JUNKKJ1)
J5 © 1
53


WUA(M.J) © X

SL H (M.J) © 1 LAB (L)x*

SEIH(M.J) © E01 (L) *i

SE2H (M.J) © IE02 (L)x-Z SE3H (M.J) © IE03 (L)x i TCL (M.J) IEQS (L) - Nl IEQN (L) - N2 Nl—N

IEQ(N)-»-N3

EQH (M.J.N3) © IN0(N)x*

EQT0T (M.J) 0 IN0(N)xZX

EQC (N3)

Z-TIME-2xTTJ (Nl) Z—TIME

X = Z x PR0D (l) vpr(ni)©x

o-^zi

I 651 VPR fNl) PR0D(L)

O-^VPR (Nl) 0—CPR (Nl) N1-^JINX

Z = TIMEZ 1 TIME© Z X=ZxPR0D(L)

0-^CPR (Nl)

NI-^JINX

CPR (Nl) ©X

0—TIME 0—TIME
49

7622

M

WUA (M.K)© 2- SLH (M.K)©LxXX

SE1H (M,K)©X1xXX

SE2H (M.K)©X2xXX

SE3H (M.K)©X3xXX

TCL (M.K) Kl— N

IEQ (N) —*-K3 EQH (M.K.K3) EQT0T (M.K) NDEQT K3 ©XIN#

7624


219
102

r
172 0 —- X

Nl -- J
Exit
(PIT

FOR HIWAY,HIWAY

IJMIVAC

line

FORTRAN V

LFVEL

22H6

00I6

F5016B

THIS

COMPILATION

WAS

DONE

ON

12FEP

A9

AT

15I07J33

-J -J -* -1 -i <3 13 13 13 13 13 -J 13 !«a 19

in -1 l/) o © >0 -1 _* P -l -J _i tr

© 3 3 m -j -i _» «*> O -J -1 -J _•

N o —

CM tr -1 CM

m

m a- 3 CM 3 M3 P PD CP

© o o CM

© 0-

—' P*» o o a a o o o PM tr 3 3 in in © © p CO o O o IM PD 3;

CM CM CM PM CM} PM IM

CM 3 PM

— P3 p — in o tr p CM in PM 3 CM O o ©

© O CM P^ «*|: O

CM IS 3 fs PM tr PM

© p — in 3 PM

m in in in

© P © P; in P P in ini ~c

© o 3" CM P in tr in m o © P o © © p o — <•> in o in CM PV © o in Pcm PM tr PM 3 —

3" 3" CM 3 3 © CM PM CM tr o © in ©1 P P^ p^ Mr 3 a — —4 O a o o O a O O a O O a o o o a o ; o O o o o o o o o a o o o o O o o o o o O O o o o o o oi o o o o o p o1 o j 1 - o a o o o a a o o o o o o CD O o o o o o O’ o a o o o a a a o o a O o O o o o o o o o CD o o o a o o o o o o o Q O o a o a a c o o o o o o o o CD Oi a o o a CD c o1 a o o o doa i ! i

-i _J -i 13 13 _i 13 13 13 13 13 13 13 1 -1 Ii 13 13 m o 3 o CM o 3- p 3" -J PH <n -1 -J tr -J .j -j -J _l -J _i o -J -1 13 o a CM m 3 p -* CM 3 cc tr p PM ©i O p CM CD m Ov a PM m cc a o CM o o O o o o o -4. —4 -4 PM CM 3 3 in in © © p tL o CD o p4 pd 3

-J CM PM PM CM; CM 1^ CM

>0 3-

— C3 o © CM PM

—: — o CM

© 4 ini

—

© PM tr

© O CM *4

m 3 -4 PM CM © o -0 >0 PM 3- P in in © »© PM: o 3 © m 3 ©1i —• 3 m <-« © <m in O

O' p o in >0 p © P P p >0

—

CM

m p P in tr in O O 3 3 3 CM 3 CM

PM CM rn

— -4' CM -4 -4 -4 3 CM CM >0

© PM in -0 4 <n ©Ip P CM P^ Pv ad a- O —4 o a o o o O o O O O o oi O o o o o o o o O O a o a o o o o o o o o O o o O o o| O o o o o o, o o O o o cj ° a i oooooaooooooooooooaooiaooooafoa oooooooooooooooaaoooooooooqoa ooooooooOtoooooo[aooooc3.oaooodr>a p3O

-P

ir\

U 4) CL, rH

«J

®

E-* -P§O 3 3 © • C If j

ljm cmm 2 n T 3-

<•

— CM o 2 c g g — c < K 2 in

LJ L> _i 13 -J -J -1

—

J 13 ! 13 2 o 0 CM -J CO o -J <M CM -J -J —1

-1 J 3; —1

-J 13 O -J -j -i -J CM

_

V9 j <r o c —•

CM <M 3 © CM 3 p CD

©

— in O © P tr <D

—j

—4 in a P c 4 2 o c o o o o o —4 —* — CM CM 3 3 in in © © p P, 0 0 0 —4 — * fM a- -* CM CM CM CM CM N fH 2 in in — © p- — CM pi *tn P a o 3 m O m «M •1 m CM P P tr 3 © O p^ p^. in CM o 3 3 3. o 3 ro 3 p in m P 0 Oi P 3i in 0 © in p © P

•-» pv

© in 3 CM p in CM O ©© P © in cm© O 0 —4

PH O' tr O CM 3 m— -4 3

CM CM PD PM cm in CD 3 3 3 in in ~C rn O © 0 tr <1 -4 P P p 3 O —» c CM — o O — o c*. —« —

CD C? c. o o C’ c G c 0 0 C' 0 CD O 0 C a 0 0 , uo o O o O O c o O O O o CD CD o

°l 0 O 0 0 0 Oi 0 O O 0 O a O Q! u o i > o o o CD o c o CD CD o o O o o O' 0 O 0 0 0 O 0 O O 0 O c 0 a

•— c C. o O o c o O C o o O o o o- 0 O c c c- 0 G C O 0 O c O O 1- ' £ o o CD CD o c o o o o o o o o o- 0 O 0 0 0

°l O O O aj O a 0 0

tr. |

L> l _J -J IS 13 IT' IS 13 1i i? ii i

_» IS

CL —t p»

— GO

© o -I

© CM 3 3 -J -J -J CM _J L3 -J _i _i

® -J -J « _t in

>- o o — CM 3 m O CM tr

© CM in o mi _* in

—• m CM p O tr P C tr p 1- o o c o CD o o — —4- —>

CM CM 3 3; in in

©

© P p -J O 0 —•

—• * cm tn •4 «M «N CM •4 CM * «Vi «S

id CM CM o.

© p — er in in oi P Psl

©

m 3 P P 3 trm n in in LJ © P- m —• o 3 — rr in CM Cj CM p 3* 3 tr p © p 3j CD © —4 © p i/ IT © O o © CM PM © 3 P p p O P © p ©! tr p 0 3 m m P3 —4 CM tr m >0

-J n PM CSi r-j r>

—« 3 —

—• — CM 3 in

m CM

— tr 0 ©

m in O P P p c P 3

CC Cj Wl

— «-4- CD o o o o O CD o o O C 0 0 c 0 0 O O O a 0 a 0 0 w C c c C* o o o o o c O O o o ol c 0 0 C; 0 1 O q O c c 0 a

Ui «r ! 5: *3 L_

tr. o c o CD o c o CD o, o O o o CD O c 0 0 C: 0 0 O a O 0 0 c 0 a < o c CD O o o CD o o o o O G O O a 0 0 G 0 a O d O 0 c c 0 0

•— o c o c- o o CD CD c- c o o CD o O: c 0 c C 0 O 0 O 0 c CD c 0

id q: i u 1 1 ( c

-J > i I i CD Q: ! ; — O ! L> -J —1 —1

-J 13 : _J 13 13 13 13 ! a _J

IT.

© c-© 3 CL P _I o o _J 3 in tr _L

—i

-J -J 13 -J n CM vs -1 -J 13 LJ LJ k* kP CL P- -J o — —•

CM ro 3 CD CM

m

©

—r 3 ©

m GD 3 0 3 — P 0 IM p IT -j CM 3 O 2 id o »» CM p o 2 o c CD c O C o — — —«

CM PM tr 3 r m

©

© p P CC a O 0 —« * n n 2^ O 2 o c O cr p LJ — CM CM CM CM rsl (SI fSI LJ PM C 0: CL IT 2 ! O X or zz 2 2 2 2 2 © 3 CD P P <*) P O CM CM o © p PH' er 3 p — © 0 © 3 3' 3 m p m

LJ 13 r IT C- P Ps* CM 3 r n — P 3 Ct p © 3 ©

—

—» p P IM tr -4. tr 3 P

L. CM

© CM PM P e*C O O o ©

— «—

3 CM C: p m 3 ©

m IM —4

m 3 ©

—• LJ IT Psl CM n CM PM —« m o o 3 CM CM CM ©- © CM © © © 0 © CM 0 p * 0 a PD 3 lO © r- C tr c —*• —4 c O c —• — D o C- O G O O c C 0 O 0 —4 —4 0 c C 0 0 C C c o o — — c o C o c C c C‘ o CD C-- O o c G O c D c G 0 G 0 O O a 0 c 0 0

c- CD c c c- C O ! 1 < c o o o c- o o LJ

13

ct <3 LJ cr o a a o c o o o O o O o o O O 0 O c C 0 O 0 a O O c c 0 a

»- o o a c o o o o o o o CD o c O O 0 O G CD 0 O' 0 a C O 0 c 0 0 X h~ c o c c- c c c c- c c- O Cf c c O G D C- C G O c- O O G C 0 0

LJ tr i >
ooaoabooooo ,L baooa 3 a a a a a a Boooaopaoaaa poooaao— oooo

o o o 10 o o a N N G M M IU M

W M i N N N M

O Si -C b> > «1 IP Oit-rJWKiM ^ M - U

-o -o -o -o -o m -o » UI Ul u u

^ ^ r«t o in o

-n V rp -*i -«i -p

!

i

P o

,o o oioooaobooaoo

a o o o

a o o a a a a a a a o

a a 3 a 3 o

a o a a p a

a o a o o a

O O 3 3 P O O 3 O 3 Q O 3 3 O 0 O O 3 3 3 3 0 3 aaaaaaoaoaaaaoaaoaao ooaa pooaoppappppoaooppppoaoo

Kj m

N) M

poo — M

N) M

|X N>

lo >0 M M

r> ui nn "n

__P3030 0 <33030 '3 0 0 3000 Map — — —— — oo — ooo op — — a o

M-t -C — M — O G IJ U Q U U M M O MMO 3

W — O O' — — » 1/1 (J - W Is* 1/1 * — l/> X ti* W >

XO-X-C — M — WlPXl»i3 3 l>MM9'Mdl.C-C3 '/ONi'uUn'in n/iMW — — O'lri/'Q'JJ'oMOaxM^MMO-OMOI/lW— IP — I sl> a- in OOBWOPOXOMOPPISI— PPPP — IPPO

O l| -n r P P P M X I P P <JI Ul 51 P P P 1

, Cl 61

00300 0 3 0030 0 POO 30 0 03 a — a — — 3030000 0 a U-Jl-C3GOM'jNlii\INSJ»-Q

O M W M M 1/1 — X W — — WWW — IV WMOXtTO'MM— WO— MXMM XlPWOOMMMX OM — X — W IP X X XXXWWWWWWWWWWW XWM — OMO'XWWISl — — OOP o w ® w w m — ji si — imn o in n PMPMMIPMWM OPPPPUI 51 51 Cl 51 Cl 51 51 51 51

0 0 0 3

in in in in

l/l M M 3

M 3 J1 X — X O X

Ul M X ®-

o p a o o o o o o b O o o o O a o o a O o o o D 3 o o a o p O o a o O o 3 O o o a 3 a a 3 a a 3 3 o a 3 a 3 3 o o o o o O o o o o O o o o O o o o o o o o a Q 3 o o o o o o •p 3 o 3 o o a a o 3 a 3 o a o 3 a a 3 3 a 3 a 3 o o o o o O o o o o O 3 o o o o o o 3 o o o o o 3 o a o a o o b o o 3 o 3 3 a a 3 o O o 3 o 3 o 3 3 O a 3 3 3 a p a o o p

o p o p

1 o O p o p

j

i

1

1

i a o a p o o

io o o a a o o b o

1b o b o o o O a 3 a o a b a 3 o p 3 p O 3 •3 3 Q 3 3 3 3 o a 3 3 a 3 3 3 a 3

M M KJ kj KJ KJ KJ KJ KJ M •— ISJ KJ KJ •— o

e

3 •— o o a 3 *— *— O — p •— 3 3 a a 3 o O 3 o 3 a a a a

Ui Ui u> l* K> KJ KJ KJ Ml M Ni KJ M M KJ KJ u KJ O UJ •— KJ fa* o Kj KJ KJ ui KJ o— NJ *— O— O— a vi O— vj O' O' O' O' UJ O' O' CP m X

KJ KJ o v| Vi Vi O' O IP jr -c UJ UJ KJ Si Vi UJ o o UJ m UJ KJ •— UJ KJ O' X UJ KJ o o Vi O UJ 3 X cn O' KJ vl m X UJ O' O' o vl X vl Ul o UJ t“

•— Ui KJ O UJ O “ V O' a Vi 45 *— kl Ui X Vi a CP >1 Vl •— >i X O' X vj vj U» UJ O' X 0- 3 O' Vi ui O' vj KJ Ul 3 0- Ul X O' UJ KJ 3 Ul Ul KJ O' F

O' — o -t I - KJ o X X

r

X M X v4 KJ tfi O' o UJ NJ O' p

UJ X Kj UJ u» O' UJ ISJ ip 3 KJ Ul KJ UJ KJ a Vi O' — UJ UJ a ^ * >o -0 ho 'O to o o fO O >0 o -0 ix> vl vi Vi Vi vi b

O' > O' cn (P X X X X X X X X X X UJ u> UJ UJ UJ UJ UJ UJ UJ UJ UJ KJ KJ KJ KJ

>0 ® VJ Vi £

O* Ul Ul UJ Ui is* KJ m a p KJ a> 'Vi Vi O' O' 3 in X •— O' — >o >J O' O' UI X UJ UJ — CD >0 O' Ul X UJ KJ 3 *3 3 vl vl Ul in X CD UJ CP o o O' •— O' *— U» >0 X -0 b kj Ul *— KJ o 3 UJ f" •t— r~ •— tr KJ O' *— o X 1~ Ul O' r” KJ 3 1” X in •J! »-* vl UJ 3 Ul 3 vi 3

-n -n "11 r

"*l “*l rn -n ~n o “H -n *n f- r r- p 1“ X a p

r~ r~ Cl u UJ KJ 3 r* O' KJ O' m tfl 3 UJ O' 3 X •— a O' •— UJ a T

| i f

]

1 r* r“ h b Cl p i> Cl Cl ii 51 Cl Ul Cl Ul Ul Ul r~ Ul Ul Ul

aoooooooooopo 00000(30000300 0000 3 00000000

, I

1 oooooooooaoooooooo ; oo o-o p o o o o o boaoaobo oaoobooaopoooaaooo — —OOP — — — — — — — — — — — — —

o o a oooo O 3 3 3 3 O 3 a a o o a a oo o o o o o

0 0 0 0 3 0

o O a o o a 3000 0 00 000

3 0 3 0 3 0 3 3 3 O

0 000000030

Oooabooooooooooaboooooooooooo — a *d »s» p o a — — — a o a o o a — o — — — o a — — o o o — a a MXMMX — — M — a — W — — — — WOMMMXM — — l/l M O 3 M M — MWWO— I/IOOXXCJWM— QMMI/1WMJ1— M O M O M M M W xmioww — — — w — x — — OO'M j- n in m xxoinxwoo — a x H/l<->*'*»^*0-(llUttinX>*-'/“ MWMO'OWXO'O'MMW

ooooooaooooo

3 0 3 0 3 3 3 0 3 0 O

moms*- f o- u - O' in in M W O' XMMOll/lO X — WXWWWWOM — M IP O'— Ul XMWM— IPO'O' X'O-o-oaiasMMMMMMO'O'O'iPi/iiPxxxxxxxxxxwww M— OOWPMMO'O'IPOMXMM— PMO'O'IPXWWM— PO'UIX — p in o r M*ki-i-'Oinouisi“ x » — m — xoop x w —

o "*i -n cip»- — p r ci ci ci si in m ininrr'/NP o > o r rr 51516151 Cl 51

WWWWWWWMMfsj M

W M — — O 3 3 » 'll- in aiO'OOM'Ow — pwoo — 61 P W O M P MO*'

(J1 <*1 O O I G1 Cl O

o o Id o o o o

o o o o p o o aooooQOQoa opo — op — p — o ooooaooaoooopoooaooooo

g

ooooaoaooooooooooooaa ooooooooooooooooooooo

\ t * ; 030003000 ooooooooo a o a a o o

a a a o oooooooo ooo ooooo

o a o o p K» NJ N) D

KJ X K> KJ lx iu Uu b

•- LJ IT U U» U NJ |*J

iSJ N O O p

aooooboooooooooDoooooooooDooooooooooa o — — — — *-oooo 00 — 0 O — oo — — o — o — oooooo ooooo oo WM— OOOWWOWMMMOOM XWM — IP - — OMMM — — O' X UI O' — O in O uiomx f(n--UMinuisi o- x ui it o o O'M — mwmwmo'O'x x x — O' m ip m wwwoom — o — o — ipipo-o-o xw — ipxmmoO-O-MX — — OOO'MOWIPWOO IP O' O

~ M — MO UI M MO'XOO'O'OO'MM OMMW— MW— l/l MMMMMM O' O' O' UI IP VP X

MMO'O't*'— -OlPWODtjO M O'WWMpPPPPPPM*'

P P P P 6 O 51 P 61

XXXXXXXXUI UlUl WWWWWWWMM MM O-IPXWWM— OMU1XWWM— OOO -O M O' 1/1 UlUlMO*— MOP— U1MU1PPM -0X — PX MM OPPUlOPO — U -C X O' O' P UI 51 M 51 51 51 51 51 Cl 61 Cl Cl Cl P 51 5

a a a a o a a

3 0 0 0 0 0 0

o o p o a o o

p M O — 3 3 3

33 X po D O O O O O O MO M O M M M MM M M W W W

M l/l |— UI *SJ — — N X ^ UI — O' M

M m p l/l > UI M

bop -o -o ~o -o

!K "0 p -O 'O ® ®

rn x |m o- m 0- o M

oooooooooooooo apoooooooooooooo obooooopo DOOOPOP OpCOO — Of- O - 0301- —

o o o o o o o

o o o a o o o

o o o o o o a

o o o o o o o

o o o o o o o o o o a o c c o o o o o o o

o o o o o o p o o o o o a o poooooooppo ao OPOOOOOOPPOPP OODOOOPOPOOOO

is pooooaoooopoaooo M|MMMMDMOM—MMMpO — — — UljMMMMXMXMMMMMvXUi — MMO — }mm m * u ip ;w x — w ui ui — xx —

0:0' Ul — M M O' UiX UI M l/l Ui M XO O

O M Ui Ul — O X ! W X X M M Ul O OIPM

'O 1 J} J) J) <0 X -O 'C XX XXjQDlSMMMM MO-O'i/iuiinuiiUiMMMOax — mmoo- CDUiXXP XPlPMOMMPP MUlO'M

I I ii n n n n ' p i-i p o

O O

l- O

II

a^i-n-n-n'-n-n-n-n

vi vi

ck — o o

KJ G1

K) U NJ

KJ — IT Kj in O' vi O' r tr u

o a

ooo o o — — K> LJ O X •- x M in

O' UJ —

ooo

KJ K> KJ

O' X u

U» Ui •— a nj ui

o o

o — o —

x Kj N> —

^4 _

U O NJ

Ul U CN U) U1J1 XXXXXXX

X O vl %i a* IT X: X Ui roooxxwrN o o ip o r~ — kj O C> Cl C' O

O O O O D — — o o

X K> vl X

KJ O NJ KJ Q XUi D

X X X u>

kj •— a vj KJ KJ KJ U>

IT -

Cl ffl IT Cl

oooooooaooo oo — oooo oooooooo

O VINIVJO'O-OUVIO'O IT O X UJ Q O' Ul O' (*I J1 O K) K) OO'O'JUiNJl/iOMtJ-l/lO QU’O'Jvi-NUiO'UO' K) KJ uuuuuuuuiunnj kj nj oixu»uinj*-*-oo m O' ip O' X Ni N Ul r IP KJ O x O' NJ — vj •- kj ui ci ci r r kj ci »-

Cl Cl Cl Cl Cl Cl Cl

PAGE
x o: « u < j k

3 <•) ct — -e n

~y ic * _i

o jm uj ui j u it r I Q. _j OQ Xl/1 — Q.3— X33— <<S< zzzzzo:i/i»->-«xxx>-

tE "*— ~ K QT (El (E tE K g; q, cEroccci^icorciccoccopgcccccocceoocococcccccccc OOOOOOOOOOO OOO 00(33000000000000000000000000 oooooooooooooooooooooooooooaoooooooooooooo ooooooooooaoooaaoaoooooooooooaaooooooooooo

! i

I i

a: 1/1 J w uj k u n >- I N J y O 0 3 >- Q 3 _) Z *- oyuoyyu.i z o a or ip h- WI

Uj iP lP CC — Z U. UJ OX—i “> U Ui S X X X. —•®l/)NNOl/l -'0 O U_lPXQ^_JO»- 3 ->XlP —

•

3- o 3* 3 — >c — <p 03- — 00 — <M — <0-U10’«N'<CiNnNMNTO J«NO'C(M-ON J'On'ODn OnNN 33G3->3 —i'C—

.

lp r* ip o o 3- ip #p m >o cm >orMrvjiLnr^3-— -or^ooLP<NCMiP *p o 3 >onNNOT-oD-N tn-nnn-'OJ) — o cm f^ 3-ip — —• — — (M— c\i(M(M(m — ^(M'Pcpcn—

cgm— aafpoo^pcp iPOCMCMCMrpCMOiP — lTilO lP — >0 NNNNNNNNNOiNNNNNNNNNrifl MN N M N —•• D;N OtM—- OOO NONO N O OO OOOODOt\^^NNNN^(\CNNMNN(Vf>JfSlO O CMCMCMCMCMCMCMCMCMO (M CM MNNNMNO--OMNM^ _ . . . “ooooooooooooooaoooooooaoooooocoooooooooooo

OOOOOOCMOO OO OQOOOOOOOOOOOOOOOOOOOOOOOCMOOOOO OOOOOOOOOOO OOO 00000 00000 0-00000000000000000 oooooooooooooooooooooooooooooooooocooooooo OOOOOOOOOOO OOO oooooooooooooooooooooooooooo

O 3 G_ O Z Q_ XX >- M Z Z W J h >- lii « >• X UJ N

X O Q x >~ O > C Z - D_ X >- G 3 *P >0 ouyyiJ 7 Qro: or in :> >sxxx

n — a: x

_J lP 3 C

UJ X

(p uj in

uj in k— z z -iHOiroc^nGOMN pg >o >o n 3 og 3 o -o eg —. —. ip cm 3 o 3 -.roNrn>crvN-*n 30 —»<p-* 3— <P33iPor'"0>ocp'0 — r^>o 3

ipr^ocMiPCMCM^or^ cm >o - t — - no cm cm cm cm m cm — cm — O O CM CM — CM O , —• CM lP g] n N N ^««r4 NN(VN^ NNNNN (MIN^

C C Cl N C C ^ C C N C C »\ fSJ C C C <M <M Of <S CM C CM CM CM CM (M <M CM CM O OOOOOOOOOOO OOO OOOOO OOOOOOOOOOO

l — — <n

r*. rp cm cm eg cm cm cm cm cm cm OOO

2 (L l/l h h ? X

O N N T 3" >0 iP eg e^ ip CM 3- — T . i/l N

3 lT — 3 -

*N — — C — CM o o o o o o

>- Ml

cm o in cm; cm CM 3- —

cm co cm m;

-C cv CM CM

CT CM CM fM o o o o

tt: ft Q: a: or fir ft ft ft: ft ft; tt1

, OCMOOOOCMOOOOOOOOOOOOOOCMOOOOOOOOOOOOOOCMOOOOOO OOOOOOOOOOO OOOOO ooocooooocooooooooao ooooooo OOOOO OOOOO ci c o c o c o c o c o o o c. o C O O CJ C O O O 'C CC CO O O CO o OOOOOOOOOOOOOOOOOOCtCOOOOOOOOOOOOOOOOOOOOOOO*

X K H < 2 u X

l/l - 2 U iri«KQ.in< N y N I

_J 1/1CM ftOOK>-<>Q: X h- —* X 1/1 U T tfi «C ft xuhuyyyijztLftft ip>>'&xxxx 3

- C I I — — — — — -

X ^ CM -I I —. Z

Z Z Z UJ CM 3 -A NK -)a y G i - D IT cn 3-0 O y I (/I n y D o CL >)« ft I “>-> 3 *:*-J-JXZZZZZCPlPf-5 XXXXM

o o o c o o o OOOOO

C* IPOO T PJ C N J1 T Ni/)P/MN 7 <<f'(lirJ-P/'OirNOONNO'*)OnN - 3 —

r- >o <p c in m in < cv t o 'O - n t *c itno — 3 o in n - ip ip cm o o 3 <o o n -

cm -* o n 3-r^ip cm — n in 3 «m<moip— cm eg — cm — ocm—

egcMCMoeg—«—«egm CMiPCMfMCgO^-OCMCSiCMycPCMNCM — CMCMCMfMCMfMOCMCMCM.’fSJCMOCMCMMCMCM

CM CM O O OO - C pg CM N C CMCMO CCCMCMCMCMCMCM CM (SI (S| (M M O M M (SJ M M — w —, — u .•« .<« OOO OOO OOO OOOOOOOOOOO COCO OOOOO

3 — o >o M3 y n in -o n gj, t cm i/i r^ —» mj N N T g)N G pj cv n

CM CM

ft ft: ft ftftft.ftftftftftft OCOCOOIMOOO OOO OCMCOCOOOOOOOOOOOC'OIC* OOOOOOOOOOO! COOCOCCOOCCOOOOOOO OOOOO Cl OOOOO COCOOOOOOOOOOO OOOOC- ocoaioooooooo OOOOO OOQO COO O OOOOOOOOOOO OOOOOOOOOCOOO OOO OOO OOOOOOO 00 0*0000000-0 OOOO ol

cp cp z y - c j yG*"ftKC(/'c

X O H- O G UJ UJ X <ojzv,

1 yj7a-iri'Cft zz

L Z Q. ftfrfti > >^xxxxrp«— 33' 0'(Mr-'CP 3 3 3 3 id 2*

X — UJ

L_ — X X Q: J IP CM uj 3 •- flL Z Z Z IP IP - >

-> cv cpi X X X X >- O O O CM T N N J 3 G <1 (\ CM n C‘ CC — -H PM»P'0 (rl-* — ini/lG«^Mlfi<P NO'C-O CMOM-OlP CM IP C <> O T 3 (\ in l/l < r- CMC 3 3 CMCM 033 CM— -»0 — lA — CM ^ (Ml 3 giNM-^PNCM^l/l "C CM —

fp 'C 3 fM>C— c -* M 3 — CPM) — lT. C — — CMfMCMOCMCMCMfPCMCMCM — — CMCP— CPCPf^CMtfllMCpCP

CM n (Si (Si n — — CM Cp 3 CM l/i lT — —* 3 — 0 CMIMMCMCP 0'<MCM(MCMCMCMCMCM(MIS|CM 3'(MCMCMCM^>CMIMCM; CMCMOOOCCCMC'OCMOCOOOCrOCMCMCMCMOOCMCMCMCMCMCMCNjrgCMCMCM—•PJCMOCM— CMCMCM o o o c o c c c c o c c o o c a C D c? c» c o c- o o c* c o o c c- o c o c» c o- o 0 o o o o O; _ _ ^ ^ a or ft ft ft ar Q; o: ft O O O cm o C C _____ _ OOOOOOOC OO OCCOOOCOOC* OOOOOOOOOOO OO O O 000000000 OOOOOOOOOOOC OOOOOOO C' OOO CO COOCOCOCOOCOOOOOOOO ooco cooooooc o c c c o o 0 C C C C-C- COCODOC OOOOOOO 000000

o o c. a e o cm cm C CM O C o o

O CM CM C 0000 COOOOOCOCkOOC'CMOOO c o OOOO C-OOOO OOOOOOO 00

Oj-"NNnHT 1-1-1---

4

4

s

I 3

•4

i -}

t iT

DC«4

• O O >- X

• Hn i w

« mi %

as ip 0

>- IP

zi o cp 1 31 uj w | -> z

- — >- — -J lU

CP CP

>- —

l/l ^ L X -t

, xl UJ Z •— G

. IaJ J X cl CP

U- —i >- K X; C ^ Tx•—; o

>4 2 X o

o cc ; * < . in z -i

r- — a

—1 o

~ -i

r>4 LU *-( X 2 *-1 M O I-I

ISI

1

i O

X >0 X x o —

• 3

• Q

CO xl X X — o

: 2 D O _ X3 x X — p

H

<J I Cl ,0

-Nnii/i-osino

c —|—»'j«»>:r:rinir'Ci O Ol OOO 000-00

00: OOOOO OOO OOOOOOOCJCO
P AGE : 5

00 1 UA 1 ! * 0Q1 06 1 2* C**6*

00 107 1 3* 00107 18*

00 1 07 ) 5* c*** * 00 1 1 0 H*

00 1

1

n 17* OQ44 1— 1 8* . 00 1 1

1

1 9* 00 1 12 _ 20*

00112 21*

no 14 2 22*

00113 23*

00 1 13 - 28*

00113 25*

004 1“ 26* . — - 00119 2 7* c * * * * -00 14 5 28*

00115 29*

noi 1 5 3n*

00115 3 1* 0O}16- 32*

no l 1 6 33*

00116 38*

00116 35*

001 1 7 36*

00117 37*

00120 38*

00121 39*

00122 8 p * 00 123 8 1 * 001 23 82 * 00)90 83*

00 1 53 9 q * 00 158 85*

00(55 86*

00 1 60 87*

00 163 88* 8 1 0 00 166 89*

00 1 7 l 50*

00)72 5) • 800

00179 52*

00)75 53*

00176 58*

0020 1 5s*

00202 5 6

* 1 6 00208 57*

002 1 3 58*

002 18 5 <5 * 00228 60*

00232 6 l * 00280 62*

0 0 2 8 1 63*

00289 68*

00286 65* 85

- 00250 <>6* 65

00256 67*

-45025 7——66*

1 D T E ( 150) , J R A N K ( 150) , I V N Z { 150) 182

-2.0 Q

DIMENSION MON (

!

2 ) , I DM ( I 2 ) , JUNK 2 ( 3 , JUNK

(

3 l J ,KON

(

1

0

) ,NHOL( 1

2

) ,

1 I W ( 3 7 0 ) ,Dl/VEEK(7) , HE 1 ( 2.0 l-» H E 2 ( 2 0.L+XJUNK U-1D4

201

-2.Q2-

0

I MENS I ON H 0 L4 3 6 )-» I G A T E X 3.6 ) , 10 U T ( 3.6 ) EQUIPMENT INVENTORY in depot

DIMENSION.. I E Q I ( 254-,4X01404.2.54 » E Q-C4-254 ^MDEQJ-125-l...LSE Q < 25 ) JOB TYPE DIME NS I C-N I T T-Y P-4 JO ) * I-W A ( 3 0 ) -» l W B (-34) ) , I #£-4-3-04 ^ l # 04-304 *4ES04404-*

1

I LD ( 30) ,SUT(30) i I CRS ( 30 ) , I CRN ( 30 ) ,HT1 (30) ,HTf(30)

&A-S4C-CREWS

220

- 222 . 230

-23

1

280

-2314-

DIMENSION PR0Dm0),IE01(110),IE02m0),IE03(ll0),II.AB(U0) ,'HCST ( 1 110) t HCOST4-44M4-r^0S4 444U-r4EQ44-l4.4&) —

» • I X 5 E * • BASIC CREW EQUIPMENT

DIMENSION I ED ( 2504, I-N04 2-5-0 1

2 8 2 250.

25 1 252

0 1 MENS I ON j RTY-P4 60 ) -,4 R M T ( 8 O R P R 480 4,4 RL C( *0) R 534*04 . I R N Z <804,

1 IRMIN(8O),lRMAX(6O),lRDL(BO),IS<8O),IRPER(0O),IRNT<eO) ,XMUUT{80) , 2 4 PER480-)-, 4 RTPE (-804 INVENTORY

dimens 4 ON-TV TYPU6B) T J VMT < 1 50 ) ^4 V Ml N44 504 , 4VWAX44504-*44AD4rU*CM-*43U4_

1 T( 150 ) , INDX ( I 50 ) , ICREWK 150,6 ) » 1ETC U50 ) . IDELTA ( 150 ) ,TOJ( 150) , 2 1 MDEX ( 1 504-»WPR (4 50 UDPR ( J 50 ) *COST C 1 544) ,XJUNK (4 504

‘•MULTIPLE DIMENSIONS**

D I MEW54 ON. SLH(3*30) , SE4H ( 3,30 4 , 5-E2W 43 r4 0 4,-S E 1H < 3-r-304 ,

1 W U P ( 3 , 3 0 ) ,TCLl3,30) , T C E ( 3 , 3 0 ) ,EQTOT(3,30) ,EQH(3, 30*25)

DIMENSION XJL43) ,XJEI (3) ,XjE2(34 ,XJE3(3) r »uC(3»30i - EQUIVALENCE <IRPER,IPER),(IRTYP,IRTP£),<INDX,INDEX),(HCST,HC0ST)

ieull.o - - READ 905 <I f lXRM t lX5M l IX5CM,lX5EM,IX6M l IX6ZM,IX8M,lX9M,INVMAX,

4- I YEAR ! - - PRINT 931 ( I X9M , I X5M , I X5CM ,

I X5EM , I X6M , I X6ZM , I X8M , I X9M , INVMAX ) IWEEK*0 • J I N X = 0 00 810 I « 1 , I N V M A X - - • DO 9 10 J* 1 , 6

1 C R E *( l *. J 1* 0 DO 800 I * I , ! N V M A X CPR(I)a. 000001 - - - 1X10=1

KOM ( 1 0 ) *

l

DO 16 I 1. * 9 „

.4*10-1 KON(j)«B*KON(J*l)

READ 905 J ,( NHOL ( I ) ,

I -1 , 1 2 »

I HOL 1 read 909 I CLR , ISDAY , ( DY/EEK ( I ) , 1*1 ,7 ) READ 900 (MQ NCI), 1*1 ,.12 1.. .. READ 90 1 ( IDM ( I ) , I* 1 , J 2)

K *0

DO 85 1*1,12

IF (NWOL U ) .EQ.999) GO TO 65

K K + 1 PRINT 932 ( NHOL ( I) -» J-*l~,K4- -

MULT.5- I SOA

Y

I F ( M U4 T * LT .0-4— MULXmO

8900

. 500CL

5100

-5200—

5300

-5MQQ—

5500

5504

5502

- 5503 - 5508

5 SOS

5510

5545
PAGE l 0026 1 69*

00262 70*

00263 7 1 • 00269 .72*

00272 73*

.00300 __ 79*

00302 75*

0031 1 76*

00313 77*

nrvr*

!

7 ft-*- 00323 79*

-00332 —80*

0033** 01*

nrv»*4T 42*

00352 83*

nn ) a j 00370 8§*

-047377 — a a ft 0090 l 87*

nno03 . -BA* 00905 89*

f)0 q 0 7 90*-

00915 *1*

00 9 2-3 ’2*

00931 93*

fllUtAI -7-9JL __ 00995 9§*

009 97 -94* 00952 97*

00452. . 98*

00961 99 •

-Dfl-9 4A_- -100* _... 00965 1 0 1 • 0 Q-9 6 7 LO-2*. 00*70 10 3*

.00.9 7.2 1 0 9 • 00975 1 05 * JJQiOg. 106*

005 1 0 107*

-Q05.L2 1Q.8*

00519 109*

005 L7 i >o*—

0051 7 in*

00520 1 17* 00520 113*

-0.Q52J 119*

00521 1 15*

005.22- 114* _ _ 00522 1 17* 00536 lift* 00537 J 1 9*

-005-9-L- 120*

00592 121* 00592 ... 12 2*-

00S**9 123 * 00596 -L2-9* . 00596 1 25*

nmult-mult

.1102 !1«0

I OUT ( 1

) 1 READ 900 (MOL ( I 1 * I * L, 36 >

1 READ 901 ( IGATE1 !),!! ,36) __ IE I 1 0UTI1_Lj.lt., U GO TO 2 PRINT 950 (HOLM) ,

( IGATE(I) ,1-1 ,36) ) 2JF ( 1 GATE ( 2 ) . L T . M GO T0_3 READ 90 1 (I OUT ( 1 ) , I« 1 , 36

)

3 IE < i pUT ( 2 ) »LT. 1 ) GO TO 96 PRINT 950 (HOL (2) ,

( IOUT( I ) , I«J ,36) ) 46—IE LIGATXiiULTVU GO JO 9 7 READ 906 HE 1 ( 1 ) ,HE2( 1 ) , I ,NE ,CE

-READ- 906 »EM2),HE245)^I vNEl^CEl READ 906 HE 1 ( 3 ) ,HE2 ( 3) , ! ,\'F2 ,CE2 RE AO -9 06 - HE } ( 9 ) ,-ME 2 ( 9 ) , I ,«jE 3 , CE 3 READ 906 HE1 (5) ,HE2(5) ,1 ,NL,CL

97 IS (

( tJ-04JTOUT (3I 3 >) ,-LT, 1 ) GO TO «fl PRINT 979

.. 9 6-3 . 975

928

928

928

928

_ PR.LUT PRINT

- PRINT

PRINT

PRINT PRINT

1 HE 1(1) , HE 2 ( 1 ) ,NF »CE )

< HE 1 ( 2 ) , HE2 ( 2 ) ,NE 1 ,CE 1

)

( HE 1 (3) , HE 2 ( 3 ) ,.NE2,CE2>

(HE1 (9) ,HE2(9) ,NP3,CE3)

P B-LNT- _9 28 HE M5J, H_E2 ( 5J ,_NL , CL ) . 98 IE ( I GATE ( 9 ) ,LT, 1 ) GO TO 99 00-52 I»1,JX9M

READ 906 (HE1 ( I ) ,HE2( I ) , IESI ( I ) , IEONO ( I ) ,EOC ( I ) ) C MAXIMUM EQU1PH£NT INVENTORY

IE ( I EQ I ( I ) , E 0 * 9 9 9 ) 60 TO 99 52_I X-9 «X-. . .... _ PRINT 929

STOP

99 IE ( I OUT (9) ,LT. 1 ) GO TO 9 PRINT_ 950 (HOL(**.l)

00 50 I I ,1X9 PRINT -?2-6..(HEl.LLl,HE2( I ) ,1 ,IEQl ( U ,IEQNO( I ) ,EQC(1J L_

50 CONTINUE

9. IE ( IG*TE(5) .LT.ll

IE ( I OU T ( 5 ) ,EQ. 1 ) 1*1

C JOB TYPE INDEX

! 1*1 —

.

C CREW TYPF index OVER ALL

_ -I 2* 1 C EQUIPMENT type index

GO TO PRINT20933

NOT WJTHIN JOB

L_ C

lire

5 RE *D . 90 2. ( ITTYPM ) , I WA ( I ) , IWB ( I ) , I*C M ) ,

I *0( I ) , IESO( I ) . ILD ( I ) ,SUT L

1 I ) ,HT1 ( I ) ,HT2( I ) ) LCfiSXLLs.1 1 - - IE ( ITTYP( I ) .EQ.9999) GO TO 20

_I X5 * I

I E ( I , GT . I X 5 M ) GO TO 9200

.MAXIMUM JOB TYPES. _ . IE ( I 0 U T ( 5 ) ,LT. 1 ) GO TO 6 PRI NT .5 5.1 . t-KT 1 ( U ,HJ2<.I ) , I TJJP M) , I , I W A ( 11 * L«B U ) ,4 WC ( LJ ,lWO-( 1

1

+ I E

1 SD ( I ) , I L 0 ( I ) , 5 t-l T { I ) ,

I c R S ( I ) ) PRINT 9 52 . ... -------

5520

_5 5 35.. 5600

5700

5800

.5900 6000

6 100

6200

6300

6900

6SQ0

6600 —6701]

6 8 0 0 6900-

7000

7100

7110

-712LQ

7130

7200

72 1 0 7220

7230

-7JL9L0 7300

.7900 7500

7600

7700

.. 7800 _ 7810

7820

7900

8000

8 1 00

__8_20Q

8300

8900

89 10 8500

8600

-.8700 8800

8900

9000

.9 1.0 0. 9200

9900

9500

95 1 0 9600

9700

.. 980Q _ 9900

l DO 00-
page 7 00566 1 27 * -005.66 L2ft*

D 0 5 6 7 129*

—00567 130*

00567 I3|*

.00645 132*

006 1 6 13 3 * -0064 7 — .13 4* 00620 1 35*

00620— . 13 6* 00622 1 37*

-00 6 23 4.3 fl* 00624 136*

0 0 6-2.7 . 4 40 * 0063 1 141*

00633 — 142*

00634 I4 3 * -00635 4 94*

00637 145*

00692- - 1-4 6-* 00693 147*

00695 4 9**

00697 1 4 9 + 00650. 150*

0065 1 151*

00652 ... 15?*

00653 153*

00653 154*

00659 155*

00656 LS6*

00660 157*

.0066 1 IS**

0066 1 1 5 9 • 00702 1 60*

00703 161*

00705 162*

00707 163*

-0D71 2 . 164*

007 1 9 1 6 5

+ 00715 166*

007 16 167*

00717 1 6p*

00720 169 +

. 00722 170*

00722 171*

00723 172*

00723 173*

00729 1 74*

00725 175*

0Q735 176*

00737 177*

0079 1 17B*

00792 179 + 00794 180 + 00746 1»1 • 00747 182*

00750 1 8.3*

-00.7 5(3 l 8it*

4X02 <4-44-* CE2*4E<32 1 1 14-«CE3*xi6B4 1 l > *CL

6 JSIG«0

C . CREW . S.T.ARJ IMG INDEX.. . READ 903 JUNKl(l),PR00(Il),IE0im),!E02(!l),!E03(Il),!LAB(Il),(J

1 UNK 1 ( J ) , J-2 , 1 94 , JUNK 2 l U.PrOD < 1 4 *JU .4 E04 l 14-* U .LEOii n-*44.4EX3J44_+

21),ILAB(!1+1),(JUNK2<J1>,J1»2,19)

8 1 ESS ( ! 1 ) * 1 2 - - -

I C R N (j ) * I 1 LXElCwIL

I r ( I 1 . GE , ! X5CM ) GO TO 92 l

0

c MAXIMUM BASJ-C crew

J3« I 2 HCSTUD-IEOl CIIM.CE.1

DO 9 J 1 *2 , 1 6 ,

2

I F -I J UW K 1 1 J 1 )_ GE-* 924 - G-0 T O -4-C1 IF < JUNK1 ( J 1 ) ,E<5.0> GO TO 10 1E0N< I l 4-42

I X 5E* I 2 IF <12. GT, IX SEMI GO 2-0-9220 —

DO 13 I M - 1 , I X a 15*1-4

IF < JEQI ( 15) ,E0, JUNK1 { Jl) ) GO TO 7

I 3 CONTINUE -- GO TO 9370

7 IEO < I2T-4 5 - INOC I 2 > * JU N K 1 < Jl + 1 ) HC-S-T <4-4 UHCST.M 1 i±lU0<12j *EJaCl-154 _

12*12+1

ClTMJT ON PRINT

9 J 2 * J 1 +2

10

IF < IoUT(5).LT, l ) GO TO It J5-I2-1

P R I NT. 111)

II 11*11+1

IF < JUNK1 ( J?) .E0.99) GO TO 15

IF (JSIG.EQ.1) GO TO 6 14 DO 12 J 1 * 1 i

1

4

12

JUNK! { J L 1 *-J-U N K 2 ( J 1 l ..... J S I G * 1 GO TO 9 15 1*1+1

GO TO 5 20 IF ( IG ATE ( 6 ) .LT . 1 ) GO TO 29

c INDEX-INDEX

11*1

C LIST INDEX

21 I H Y S < I )*! 1 READ 904 IHY(t), < JUNK 1 ( K ), X JUNK < K ) ,K*1,I1)

IF (I.GT.IX&M) GO TO 9230 ... IF ( IHY< I ) . E 0 * 9 9 9 ) GO TO 24

K * I - J —

IF (K.FO.O) GO TO 22

IF ( IHY < I ) ,NE, IHY <K ) > GO Tn 22 -

I * K 2? IXA*|.

00 23 K« 1 , 11 C MAXIMUM HIGHJJ/.AY -L4-ST

10100

10300

J04QQ.

10500

-1.Q4Q0. 10700

-1080Q.

10810

4-0-900-

1 1000

1 1XQ0-

11200

- 1 1 300

l 1900 —14-500

1 1 6Q0

14*40

11700

1 1 2^ 1 NT-953 I l . I l , PROD <4 44 .1X0 UI-ll.-IX-OX-Ll 1 1-.4E034444 .4 LABll

» I EQS ( I I ) i I EON ( I 1 ) |

( < I EQ ( J4 ) • I NO ( J4 ) ) • J4*J3 i J5 ) )

1 1900

uooo

12100

12200

12300

129 00

1 2500

4 2600—

12700

-42800

12900

—4-3000-

13100

1 3200 - 13300

. _ 1-3 40Q1 3500

1.3 600 .

1 3700

'4 3-800

1 3900

4 9000 _ 19100

19200

1 9300

4X400—

19500

.49600

19700

19 74 0-

1 9800

44900-

19950

1 50Q0—

15100

4.5200

15300

-15900 -
P*GE j a 00753 l 85* IF ( JUNK1 ( K ) .EQ.999) GO TO 39 00755 .186* I HZ ( T 1 ) J U N K J ( KJ 00756 18 7* 0 L Z ( ! 1 )*XJUNK(K)

_JULZ37-._. L08* lHYtMJ 1*11. 00760 189* 1X67*1 1 00761 _i.?0* IF Ui*ai. IX-60H) GO TO 92*40 00763 191* 23 I !! 1*1 00765 19.2* 39 I - I *J 00766 193* GO TO 21 JO 76 7. J_9*t* 2*4 IF 110UTi61_.LT, 1 ) GO TO 28 00771 1 95* PRINT 995

00773 1 9&» PRINT 97*4 00775 19 7

* 00 25 J»1 , 1X6

.0 10QO -_Lla» I lB.lHXSl.JJ . . ..... ... . _ 01001 1 99* I2*IHVN( J) 011102 200* I3bJ —

01003 20 1 • PRINT 95*4(H0L(6),13,IHY(I3),Il,I2,lIH7rl l4) -0104-6 -20 2 * PRINT 95 5 ( DIZT 1*41, I Mb I 1, 12 ) 0102*4 203* 25 CONTINUE

0 LQ.2A _20i4* _-28 . JE-1IGAT_E ( 71 •L-T, 1 1 GO TO 3*4 01030 205* DO 37 1 * 1 , 366

J 1033 — 206*- _ 37 IWIIliO- - -

01035 207* 29 READ 905 t , ( JUNK(K) ,K*1 ,25)

01-0*4 *4 ... 20g.* -. IF II ,EQ ,999 ) GO TO 32

010*46 209* DO 31 K«1 ,25

IF ( JUNK I K ) a 9 9 ft ) 30,29 ,.32 - 0105*4 211* 30 Jb JUNK { K ) -01-055 — 212* . . IF ( l«L( J1 ,EQ,0) GO TO 31 01057 2 13* PRINT 959 ( J,IW1J) ,1 ) J-L06J-- 21m* _ 31 IWJ J ) (1 - . 0 1 066 215* GO TO 29

.-0104.7. _216* . - 32 Dtt 33 1*1 ,3-69 01072 217* IF ( I WV ( !*1 ) . G T , 0 ) GO TO 33 -0107 *4- 2ia* !W ( I *1 ) *11611 1 ..... ... 01075 219* 33 CONTI NUE J1077 _ _22o* 3*4 1 F { J OUT! 7l_.LT • 1 ) GO TO *40 01101 22 1 • PRINT 956

01103 222* I* *4 ........

01 10*4 223* JUNKJ (11*1

01105 _ 2 2 5* DO 38 J 1 » 3.0. 01 J 10 225* 38 JUNK 1 ( J 1 ) * JUNK 1 1 J 1

1

OJ 112 - 226*-- PRINT 95 7 ( JUNKJ1J) ,J*| ,31 ) 01120 227* PRINT 965 ( JW< I 1 ) , I |*1 ,3)

01 126 22ft* DO 3 a J«l t 12 01J31 229* K* J .01102 230* - -K.15IDM. ( Jl

01133 23 l • 00 35 K2« 1 , K 1 01136 ... -030* JUNK.1JL2 L«IW (.11 01137 233* 35 1*1*1

01 1*41 23m* PRINT 958 ( MON ( K ).( JUNK (K2 1 ,K2* 1 ,K 1 ) ) 01150 235* 36 continue

01152 -2X6* - *40 IF— Hfi A.TE18.1 *X T_» 1 1 GO TO *4 3 01 15*4 237* K* 1 -011-5.5 _ 23a* _ *41 READ 90 L l J11NK.11 Jl , J* 1 *

*4 0 ) 01163 239* DO *42 J* 1 , *40 Q-LL6-6 . 2*4n* - IF...UUNKLU ) ,EQ_^98 ). ..GO TO *43. ... . 01 I7n 2M i • I X 8 . K _0-Ll.Tl _2i*2* X * JUNK 1 ( J)

15500

15 600

15700

..... 15800

15900

_ .15910

16000

16 100

1 6200

. ... 1 6300

16310 ._ 16320

1 6 *4 0 0

. 16 500

1 6600

167 0 0-

I *4* l l * I 2 ) ) 1 6800

36900

17000

. ... J.7.10Q-.

1 7200

17300

1 7*400

- - .... 1 7*410 17500

. LZ60D

1 7700

17800

1 7900

18000

18 100

. . ... . . 1.8200 18300

18*400

1 8500

1 8600

1 8700

. . 10800.

1 8900

1 9000

19100

... 19200

1 9300

... 1 9*4 0.0 19500

19600

1 9700

19800

19900

.. . 2.00.0.0 20 100 20200

20300

20*400 20500

. _ .. 20 40.0.. 20700

. . — 20800
page 1 9 01172

JJ1U1... 01175

JLU 77 01201

01202

0 1 204

-O.lXQJi—

01210

0-1212 01213

0X216

01217

0 1-2 20 _

01222

0X224

01224

0X2 2X

01227

0123- X0 1240

-0-12 42

0 1 2 * 2 01244

01247

0X2 XX

01265

0 1267

0127 1 015 72 01275

-01277

01301

01302

0 1304

0 1 3 Q 6

0 1307

013 12 01313

0 l 3 1 X4 0 13 15 01316

0 13 17 0X320 - 013 2 1 01322

01323

01324

01 325

01 326

01327

0L331

013 3 1 0X350

01351

01353

0 1354

- 0 1 3 5A

243*

2 *# 4 *. - 245*

_-2<U*

247*

248*

249*

.25.0*— 251*

25 2* 253*

25 4-* 255*

, 25x«- - 257* —2-Sfl *-- 259*

-2X0*

26 1 • 262 * 263*

2X4*- - 265*

268*

267*

- 26fl*

LHK-1 *9 9-g99,9. TT ( K ) *99999*9

TT(K)»X/60.0

_ LE-UHIIKI LJ) *EGU99X

1E ( JUNK1 ( Jl.EO.O)

42 K»K.+X- - SO TO 41 43 IF < IOUTISJ .LT.l ) _GQ TO Si PRINT 950

PR LN-T—96Q- PRINT 975

K 1 441 DO 44 L 1 , I 0 XLUJK 1 ( 1. )*J< XJUNK(L)*TT(K)

. 1 F_LT T LJU_* G-TULU-DJ GO_I-0_4-4-

TT(K>«0.0 — XUNK i < LX*-9 9999

44 K K 1 M»l$

IF 1K.GT.94) M 4 PR IXI_T--992_44XXKXX{-X.X*-XXimjC4XXX*X*X»HJtF 1K.LE.94) GO TO 441

5 J-I F 1 tGATE(91.LT. LX 60-10-55

c read RECURRING jobs

DO 54 —X*X-.-l-X-9M

20900

-2Jmo

20920

-2XQOO21100

21200

21210

21-220. 21230

2 1 3 00- 213(0

2 1 HOP

219 10 21420

21430

-2-14 4 0 21500

2 1 550

21600

21650

21700

-2X400- 21900

^221302-

269 * 270*

27 1 *

'

2 7 2 * - 273* —

274*

27S*

27 6 * 277*

27g*

279* 315

2 80 * —

28 j * - 300

2 8 7 • 283*

310

284*

28s* 305

2 8 X * -

2 87 * —28a*

289*

56

2 ?o*

29 i » 53 'DIAGNOSTIC*

292*

293*

298*

29s*

9960

296* 54

2 97* — 29 0

* 2 9 9 • 55

READ 907 ( | RT VP ( I ) , I RMT C I ) ,RPR ( I ) , JRLe (!) , IRSZ1I) , fRNZl 1 ) , I RM 1 N ( 1

)

X-.X-R-M AX lXX^t-aaLXX X.XS lXX ,-XReER Hl+XR N-T4-1-X) IF 1 IRTPEt I ) «EQ. 9999. AND. f.EQ.l ) 1X9*1

IF 1 1 RTP€ (XX *EQ . 9999 ) GO TO 55

1 X9» 1

• 00. 53 J«XT XX5

IF 1 IRTPEt I) .NE. ITTYP(J) ) GO TO 53

-XE ( lE-SOXX)-.XT^XL0tXM GO TO—5-6 NTST.O

IF 1 JRPER1 Jl-.NE.O) GO TO 315 PRINT 969

STOP - IF(!ESD<J>-365+NTST*IPER(J)> 300,305,310

22100

-2 22 00

22300

2 2400 22500

22700

22 600

22900

23200

23300

23400

.23500

GO TO 315

IS ( I ) *1 - —

XMIJLT 1 I )< I ESDI J)*365 + NTST*IPER( J) )/!PER(J>

GO TO 54 . _ IS! 1 ) = 1 -XMULT ( 1 ) - WO

GO TO 54

1 S ( I ) a I E S D 1 J ) _ XMULT ( 1

) «1 .0 GO TO 5 4 _

23600

237.00 23800

-23200-

24000

24100

24200

24300.

24400

24500

the transfer to PRINT 996

24600

_99.6Q._I-S -BAD. BE£ AJjSE—9-9.XJ. I S N Q. T IM-IHF I NNERMO ST O Q QF A I4F.SI. 24700

PRINT 966 (X >1 R T V P ( XX, IRMT ( IX »-RPR< IX .IRLGLI4. 24600.

1IRSZ(I),IRNZ(I),IRMIN(I),IRMAX(I),IR0L(I),IS(I) , IRPERl I 1 * ! R N T (ID 2 4 801

STOP 2 4 810

-GO- 1 0-9 -9 6 0 IF ( J0UT19) .LT.l)

-RR I -HT—9-9-4

24900

2.5.100. 60 TO 58 25200

25300
PAGE! 10 onto

0136 2 01365

013 65

0 1 909

omo6

01107

01 121 0113 3 -O-lUlA01 05

01114

300* PRINT 971

30 J • 00 57_ !•! , 1X9

302* PRINT 966 ( 1 , I R T YP ( I ) , I R M>7 D , R PR ( I ) ,

1 RLC ( 1 ) , _30_3 •_ 1 IRS2.CJ ) . ! R M( ! ) j I R MlN(n , IRNAX ( J ) , IRDL ( I ) , 1S( I) , 1RPER ( 1) .IRNT1 I 1 ) 309* 57 CONTINUE

_30S* 5? U*ST-0 ... . 306* PRINT 931 ( I X1M ,

I X5M ,

I X5CN ,

I X5EM , I X6M ,

I X6ZM , I X8M , I X9M

)

3 07* PRINT 935 ( 1 X 9 . 1 X 5 . 1 X 5C lI.X 5 E jJ X 6 » J X 6 Z. »

J

X 8 , J X 9 |

308* IDAy.o

309 » ISDAy»ISDAY«1 _ 310* 11-2

..3l}« IF-UaWfl.O] - U'3 _ = 01990 312* I P L A N *0

-04-1*94— 3LJ* 12*1 - 01991 3 19* C ENTRY AT OAT CHANGE

04-192- 700-00 703 1-12*11

01995 316* X JL (11*0.0

X JE 1 ( 1 ) *0.0

01997 3 t 8* X JE2 ( 11*0.0

-Q 1 ISO AlA*.

01151 32o*

-0.L9SJ 42-j *. 01959 322*

-OJ-HSA- 01156

-0LiJt57

324*

321*

_12S*.

324*

327*

328*

-329*

33 0 *

01160

.0 1 1.6-1 01162

01963

01161

01 945 324 * 01170 332*

01 971 33j*

01173 339*

-OUUL&. 13 Si01977 336*

XJEL3.( U *0.0

DO 702 J- l ,

T X

5

.(—OVER ALL JOB -T YPES

RUC ( 1 , J ) *0,0

SLH ( I , J ) *0 ». SE 1 H ( I , J ) -0 . SE2_H M , Jl_*fl. SE3H( I

, J)*0.

JLUJU.| r JJ*IU . T CL ( I ,J)«0, —TCEJ 1-,-J 1 *0

.

_ EQTOT ( I , J>*0, — 1L09 D0_2O4 K-4.-.1X9 1SEQ (IC ) *0 -—.701 EQH.U, J,KJjO«

702 CONTINUE

.703 CONTINUE .. . NSP*0

I L-H

2531 0 25900

25550

25600

25700

25800

25810

25812

25900

-2ACID0 26100

_ 26-200 26210

24220.

26225

24300

26310

24120

26330

.2639 0.... 26500

-24600 26650

2 67 OB 26800

-24-5.00 . 27000

27100

27200

27300

27900

27-500—

27510

27600

27700

27800

278 1 0 01501 338* 1 NV5UM-0 A 2 7 8 1 1 01502 3-3.9* DO L03 8 1*1 ,4X10 - 27812

01505 39P* 1 P ( VP R ( I ) .LE.O.O) I V T Y P ( I ) *0 278 1 3 -Q.L5Q7 3 9jJ* J-IVTYPM ) 2 7 8 1,9 01510 392* IP (J.EO.O) GO TO 1036 278 1 5 01512 3 9 3 * IP (J.E0.9999) GO .TO 10 9Q 2.Z 8 L.6 01519 399* I NV5UM* I NVSUM* 1 A 2 7 8 1 6 01515 395* L 1 *_D 2781 7 01516 396* GO TO 1038 2781 8 0 1 S 1 7 01521

1014-1 P A I UEQtO 1 1038 CONTINUE

LQ-9-D Lt LLL»-NiL» 01.

J.l*l JJU0--14

I VTYP ( I X 1 0 ) *9999

01527 352*

U2L1IU

NSE 2*0

0 L5 30. - 154*^ - NSE3*0 - - - . 01531 359* NSL*0

JO-1532 355* KHQL*0 . 01533 35 6

* DO 1092 I » 1 ,1X10

-LE-LVPR11 ) .GT.0.0 L—GO. T 0-10-91-

278 1 9 27820

--27-82J-- 27822

.27829

27830

_ 27 8.9 D 27850

.2-78 60. 27861

2 7fl 62
PAGE

0 1580

015.81. 015 *4*4 O L5 8 6 01550

01552

01553

0-

1 5-5 *4

0 l 55 A 04 560

0156?

0156*4

0 1565

01566

01567

01571 - 01573

01-

576

01577

0 1-601 - 01603

0160*4 01605

01607

0 16 10 01611- 01611

0 16 13

0 1 6 1 *4 0U1 *4 0163 1 0 1632

0 1 63*4 01637

0 1 6*40 016*42

0 1 6*4*4 0 1 6*46 016*47 0165 1 01655

0 1655

01672

Q1 673

0167** 01676

0 1677

01700

01702

01702

0 1720

0 1721 01721

01722

0 1723

01725

01727

-04-7 3-0-

1 1 358

359

360

36 1 362

363

36 4 365

366

367

368

36 9 370

37 1 372

3-7 3

37*4 375

37 6 377

37p

37 9 380

38 1 302

383

38*4 385

386

387

38?

389

390

39 1 39?

39 3 39*4 395

396

397

398

399

*4 0 0

**0

1 **o? *03

*40*4 *05

*406

*407 *08

*409

*4 1 0 *1 1 *412 *13

8 1 8

DO 1 083 J* 1 * 6

I CREW ( I * J ).*0 1043 CONTI 44 U

E

1042 CONTINUE

IF(IPCAN.EQ.I) GO TO 709

IDAY.jDAY+ 1

I 5 D A Y = l 5 D A Y [

27863

27865

2 7 86-6. 27868

278 70- 27880

- . I F t-LSD A Y» E Q * 8 1 LSO A YjU . 622 8 60 -

IF (lOAY.EQ.l) GO TO 69 27881

709 IF ( 1DAY,NE,NH0L( IHOL) 1 GO TO 8-42 - - 278943

IF (ISDAY,LT, 6 > GO TO 840 27900

NMOL ( I MOL 1 =Nhol ( IHQL 1* 1 279 4-0 GO TO 842 27920

8 40 KH0L«1 - 279 10 442 IF (ISDAY.ME.il GO TO 69 27980

IF ( I D A T »E 0 • 1 > GO TO -69 - 27912

DO 848 I • l , I X 1 0 27960

J I ND ( I 1 »0 27-97,0- IF (I VTYP< I ) .E0.01 JIND(I)«9 27980

888 CONTINUE - - 27-9-9-0

I S P F

C

*

0

27993

MULT-5 - -- - --- - — - 28000

IF ( NHOL ( I HOL 1 .LT. IDAY + 5) MULT «8 28010

NMULT-MULT ------- - 28015

69 ISIG.l 28020

70 IF (i-LAST.&T.I&A-Yl- -GO TO «0 - - 28-804)

C READ REGULAR JOBS 28900

GO TO inn -- ----- 29000

71 READ 907 ( I VT YP ( I) , I VMT ( I ) , VPR ( J ) , I VLC (I) 1 I VSZ (I) . I VNZ ( 1 1 , I VM I N ( I ) 29300

1 , I VMaX ( I ) , I VDL (I ) , IDTF ( I ) ,

T VNT (!) 1 -29800- IVDL( 1 ) =» I V D L ( ! ) 1 DTE { I ) 29500

!F< 1 VTYP< I ) .EQ.9999) GO TO 63 2-9-60-0 DO 6 ? K* 1 , I X5 29700

I NDX ( 1 ) «K 29800—

IF(INVSUM,GT,1NVMAX-11 Gn TO 80 29810

IF ( I VTYP ( I ) ,EQ. ITTYP ( K 1 ) GO TO 63 29900

62 CONTINUE 30000

GO TO 30 2 ... ... - 10-10.0- 63 IF ( I DTE ( I ) , GE , I L AST ) GO TO 630 30200

PRINT 936 ( I U AST , 1 DTE ( I 1 ) — -30210 PRINT 966 < I , I VTYP ( I ) , I VMT ( I ) , VPR ( I ) , I VLC ( I ) , ’30220

1 I VS7 ( I) , I VNZ ( I 1 , I VMIN ( I ) , I VMAX (1) , I VOLLI ) , 1DTE( I ) > - -30230

GO TD 631 30290

630 1LAST*IDTE( U . -. JJLlflfl 631 IF ( IDTE ( 1 ) .GT.36S) GO TO 80 30800

JS I GsO - - 30500

GO TD 150 30600

68 IF f i OUT (101.LT.1I GO TO 72 _ 30700

PRINT 966 ( I , ! VTYP ( I ) ,

J VMT ( I) , VPR ( I ) , I VLC ( I ) , 30800

1 I V S 2 ( 1 ) * I V N Z ( 1 1 « I V M I N ( I ) . IVMAX11 ) , ULDlU 1 .40 l£l 1 1_ I NOJC-Hl) 1Q9LQ0 72 GO TO 70 31000

on 1 SIG .2 ------ 31-100 ---

r ENTRY FOR RECURRING JOBS 31200

J 3 j

. . . - - 31300

175 IF (ISIJ1.LF.7) GO TO 100 31800

708 IFI ( IS( Jl + IFULL! ,NE. ( I0AY + 7U - GO TO- -8*1- -31100

100 I “ J I N X 31550

TFU.NE.Ol GO TO—1-0-2 11571
PAGE t 1 2 01732 * 16* DO 101 11*1, 1NVMAX 3 1 600

OH 3 5 . *17* l? LI . . . . 317 00 01736 * 18* IF ( I VTYP ( 1 ) ,E0,0000 ) SO TO 102 3 1800

01?*0 * 19* IF ( I VT YP ( l ) , NF , 9999 ) GO TO 111 3 1 900

017*2 * 20 * I VTYP ( 1 1 ) .9999 32000

017*3 * 21 * I X 1 0*1 X 1

0

*

1

_ 32100

017** * 22 * IF C I X 1 0 ,GT, JNVMAX-2) GO TO 325 32200

01I_*6 .

21* . GO TO 102 32 3P0

017*7 * 2 ** 101 CONTINUE 32600

-0-1 75 1 _. *25* 102 JINX«0 . -3-2654 01752 * 26 * IF ( 1 5 1 G-2 ) 7 1,81,103 32700

017 55 *27* -103 IF (IS!G-* 1 91 ,93,96 . _ . _ _ _ _ _ 12800

0 1760 *28* 8 1 IF » IRTYP( j) ,NE,2) GO TO 302 32900

0 17-62 __ *29* IF |1S(J)*LTj7) GO TO. 30* ....... ... ... .33 0.00 0176* *30* IF ( IS0AY.GT.5) GO TO 61 33 100

01766 *31* - GO TO 301 - - — - 3X200

01767 *32* 30* J1-IS1 J)*1S0AY-1 33300

017 70 * 3 3 * J2» J| /7 X3 *0 O

01771 *3** J3«

J

1 -7* J2 33500

0 177? *ls* . IF. LJ3., EJJ . 6 , OR, J3*EQ_.0J . .GO TO .61 ... 3.16 0O_ ... 0177* *36* 30 1 IF ( j S { J ) , NE . NWOL ( I HOD ) GO TO 302 33700

-017 7.6 _ *37* 61 JSLJ4 *IS(J)*IPER(J) 33710 .._ 01777 *38* GO TO 175 33720

0200 Q _ *39* 302 IF UNVSUM.GT. INVMAX.2) GO TO 325 31730

02002 ** 0 * I V T Y P ( I ) I R T Y P ( J ) 33800

07007 *.* X* IVMY(I)«IRhT(J) ...... . 13 900

0200 * * * 2 • VPR ( I ) «XMULT ( J 1 *RPR ( J

)

3*000

-02005- •l* 3 «l . XM LLLX ( J ) 1 ,

0

3*100

02006 ** 4* I VLC ( I ) • I » L C < J

)

3*200

02007 ** 5 * 1VS21IXjJRSZLJ1 ._ . 3*300.

02010 * * 6 • I V N 2 ( !

» - I RN 2 < J) 3**00

J3201

1

- * *7 •_ .LV.MJ IXLlX * I R M.1 N.( JX 3.* 50 a

02012 * * 8 • I VMAX { I) I R* AX { J

)

3*600

020 L3 _ *.*J9* _ J VDLJ X) 1 RDL LJ ) IS ( J ) 3*700

0201 * *50* !OTE( I 1 I S ( J

)

3*800

02015 _ *51* IV.NJ { X ) * I R N T_( J

}

3*900

02016 *52* JS I G» 1 35000

-02OL7 _ *5A* _D_0.. 30 3 KjlI^IX.S 35300

.

0 202 ? *5** INOX ( !

) mK 35*00

02023 * 5 5l* IF { I VTYP< I ) ,EQ. ITTYP(K) ) GO TO 150 3 5 50 0 02025 *56* 303 CONTINUE 35600

-02027 _* 5 7* PRINT 927 35700

02031 *5g* PRINT 966 ( I ,

I VTYP ( I ) ,

I VMT I I ) , VPR ( I 1 , I VLC ( I 1 , 35800

02031 * 5 Q • 1 1 VS 7 It ) . 1 VNZ ( 1 > , 1 VM!N ( I ) . I VHAX ( t > , I VOL ( I ) , I DTE (I) 1NDXX I J_1 _. 3590Q

020*7 * 60 * 3030 I VTYP ( I

) *0 35950

02050 — A61* -_J I NX * I 35960

0205 1 * 62 * VPR ( I ) *0 ,

0

35975

.02052 *6 J* GO .TO 8 * 35980

02053 * 6 ** 150 CALL HZONE 36000

. 02Q5* *65*__. X-99./60. ... . .. 36 010

02055 * 66 * IF ( T T J ( I ) , L T , X ) GO TO 155 36015

-02057 *62* - _ .

.

P R I N-T 9 9 3 36020

0206 1 * 68 * PRINT 966 ( 1 ,I VTYP { I ) , I VMT ( I ) , VPR ( I ) , I VLC ( I ) , 36030

02061. _. *699 — 1 I VSZ ( I ) , I V.NZ (I),IVMIN(I),!VMAX(I),IVDL(I),!DTE(11,INDX!I)) 36031

02077 *70* GO TO 3030 360*0

-02X00 .. *.7X4- . -155. Jl* INDXXI.) 17200

02101 *72* T 0 J(I)*e. 0 -SUT(Jl)- 2 . 0 *TTJ(l) 37300

02102 . - *73* J.F ( JSlG.EQ .0 ) GO TO 6 * 37*00
PAGE } l 3

*4 t !DTE( ! ) , I NO X ( I )

)

021 A5 898*

02171

Q? J Tli 500* sn j • 02 1 7 A 07 j tt 502*

50 3 *

I 02200

i njjni

508*

• 02202 50fi* 02206

0221 1

50-7* 500*

-509*-

5 10* 0221 3 512*

-02245- 513* - - 9 02218 518*

02 ? J A sis*

02220 516*

-0.221. 1 .. 517*

02222

-02223-

0222*4

5 J 0* 545*-

520*

02227 522*

02236 528*

-Q4L23JL-—525*

02280 526*

__T?28 j 52 7* 02282 528*

02252 530*

02253 531 *

I5( J)«!S( J)*!PER< J)

.JCjiJ-NOJIUJ - ~~

I F ( ILD(K) ,UT, !ESO(K) ) GO TO 82

I F . 4 I S 4 J.l~» L E * J.L D i K. U—- 6 0 TO 820 _...

.

1 5 ( J ) • 3 A 7 GO TO 8 3 IE ( J S ( J > • LT « ! ESD ( K ) ) GO TO 830

82 JJ—LISJ 0-L.L£-*4-LDUQ_l SO. 10 .83..- IF ( 1 S ( J ) .GE t IESO (K 1 ) GO TO 83 830 I S ( J ) 1 E5D ( K ) 83 IF ( !OUT( It ) .LT, l ) GO TO t 75

P84-WT- 9AA ( I »1VTYP( 1) ,1 VMT < 4 1 rYP.R44 > t J-VLC 4

1 !VSZ(I ) , l VNZ( ! ) , ! VHINm , I VMAX 11) , I VDL( I ) , ao—to—4W —

325 l FULL* I FULL

1

PRINT 925 UFULL.10AV) —

J* ! X9* 1 0 J-»J+4

IF ( J.LE.IX9) GO TO 175 4X_44F-ULt^EJU-04 GO -TQ- EJtO- IF (J.GT.IX9) GO TO 880

4-F44L L-* 4-F-UL-L-* l- GO TO 70 !F4450A^»J4£-rW4ND,404Y*NE^ 1 > 60 TO 3090

IF(MULT.EO.O) GO TO 3090

DO 3020 I * 1 , I X 8 3020 440£QT41)**ULTj»1FQW04 1 >*ISE0U> —

ndf«mult*nf«nsp

N04.«M4LT*NL,--NS4-- - - — - - - . - NOEl »MULT*NE 1 -NSE

1

N0E2*N-U44T-tN.E-2-«NSE4 NDE3»MULT*NE3*.NSE3

DO 34195 J«I*4X5 — - WUP< j , J)«0,0

3095 WUP(2,J)*0«0 -- ------- - - - - GO TO 2022

30.90 MULJai

I PL AN*0

90 IF ( INVSUM,-GT #4NVMAX-2 . AND. IW < IDAY*3).GT.1.AND.I*I< IDA Y * 31 »LT* 84

1 GO TO 3 0 9 A IF ( I- W ( I DA~Y *34 *NE • 3 ) GO TO 95 . . .. ISIG.3

—GO. TO LOO . 9 1 lVTYPUt-3000

V PR4_I )»U0

I DTE ( I ) I D A Y IF { IOUT < 12) «LT« 1) GO TO 92 - PRINT 958 (HOL ( 1 2) , I , IW(IDAY*3) » I VTYP ( I ) ) —92.-XS4.Gs8 - GO TO 100

.93 I VTYP ( I J »3500 - -

I DTE ( I ) I D A Y 1 VP R ( I)*l .0 —- - • - IF < ! OUT ( 13) * L T , 1 ) GO TO 105

PR4N-T 9-5 8 (HDL 4424^4-, lW244)AY*3) fIJ/T-YP444)- GO TO 105

9 5 1 F 44 W 4 LDA2t3) . NfL. 2) G O TO 105

38100

3 820a

38300

3 8 8.00 38500

-38600

38650

-15-70.0. 38800

3890Q

39000

-39-400 39200

.29200-

39310

29220

39330

-39 800

39500

32502

39508

29502

39508 — 295443 39515

29520

39525 — 3953a —

39535 — 39537

39580

. —39555

39550

3 9557 ----- 39558

39559—

39560

-39-562 39565

39590-

39591

39600

39700

12-8QQ

39900

-3994 0 ... 80000

-- 804 ao 80200

-—803 oa 80800

-80 50 0 80600

8061-0 80700 - *toaoa 80900

--84000
14 532*

533*

534*

535 * 536 * 537*

530*

539*

540*

541*

542*

543*

544*

545*

54«*

547*

54?*

549*

550*

55 1* 552*

55 3* 554*

555*

556 * 557*

558*

559*

560*

561*

562*

563*

564*

565*

5 66*

567*

5 4 8 * 569*

570*

571*

572*

573*

574*

575*

576 * 577*

578*

579*

580*

58!*

59 2

* 583*

584*

595*

586*

507*

588*

599*

l S I 6 5 GO TO 100

3096 PRINT 926 ( ! 0 A Y ,

! W ( I 0 A

v 3 ) » GO TO 105

96 1 V T V P ( I ) *2000

10TE( 1 J I 0 A Y

41100

4J200

4 1210

4„L220 _

4 1 300

4 l 400

105

VPR ( I

) » 1 .0

If <10UT( 14) ,LT. I ) GO IP .105 __ PRINT 954 (HOL ( 14) , I , 1V»{ IDAY*3) , 1 VTYPI 1 )) ISPEC-0

I S I G 0 00 1 24 I« l , I X 1 0 11*1 JIND(!)«0 „

IP < IDAY.LT. I D T E < I ) ) GO TO 452

41410

4 1 500

4 1 600

-44_ZQ0

41710

41715

4 1720

41725 _

4 1730

J«!VTvP< I) - - -

IP ( J.EQ.O.OR. J.EQ.9999) GO TO 452

IP ( J.EO. 2000, OR, J.EQ, 3000) GO TO 25CT —

IP (J.EQ.3500) GO TO 1046

IP USOAY^GT.S.OR.KHOl.EO-. 1 1 G-0- TO- 452

GO TO 453

4-1 7-4*1 41745 — 44750

4 1760

4J767

1046 I S I G* I 1 GO TO 124 452 J 1 N 0 ( I )

9

C JOB IS NOT YET DISCOVERED

GO TO 123 _ - 453 IP (J.E 0 . 1000 ) GO TO 454

C RELEASE AUXILARY CREWS

Y«VPR

(

1 ) DO 1 1 2 J* 1,6

IP ( I CREW ( I , J) ) 111 , 113 , 1)2

1 1 1 I CREW t I , J ) *0

1 1

2

CONTI NUE

113 K«IW< IDAY + 3 ) cpr

(

i ) « . oooono

1

J*IN 0 X ( I

)

K 1 «0 IWX.lWAfJ)

114 K 1 *K J + I K 2 *IWX/K 0 N(K ) K 2 «<IWX-K 2 *K 0 N{K))/K 0 N(K* 1 ) IP (K 2 .EQ. 0 I GO TO 123

IP (Kl- 2 ) 116 , 117,115

115 IP ( K_1 " 4 ) 118 , 119,119 . 116 I W X « I W B ( J

)

K*IW( I D A Y

2

I c day -iGO TO 1 1

4

117 I WX*J WC ( J)

K I W ( I BAY* l ) ... C DAY -2

GO TO 1 1

4

_

118 IWX»|WD(J 1 K * ! W ( T 0 A Y ) r Day -3GO TO 1 1

4

- .

t 1

9

SUM. 0,0

DO 12 1 Jsl ,6 ----- -

44 7 7 0 - 41780

-44-900- 42000

-42 400- 42200

42300-

42400

-42500 _ 42600

-42700

42800

-44300-

43350

43400

43500

-44600 _ 43700

-4 1800-

.

43900

44QOO

44 100

-44200-

44300

4 4-4Q0

44500

4 4600-- _ 44700

4-4.600- 44900

-45000

45100

45200

45300

45400

45600

4-5700-
page j 15 02377 5 9 0* J 1 » 1 C R E W ( 1 , J ) 45800

0 2400. 5.91* _.IF 4J1.EQ-.0J GO TO .122 . iSiD.CL 02902 592* 121 SUM.suM + PROD ( J 1 1 06000

.02.009 . .593* 122 IF (SUM. LE. 0.0) GO TO 123 - • - .... 9 6100

02906 599* X*TO J ( I

) *SUM 06200

.03 907 595* . . J) *.( Y/X 1 *0,5 - — 96300

029 1 0 596* Y.Y-X 96900

02914

0201 3 -02-94-0 029 15 0794-6 _

59 7-# 598*

599*

600*

60 4_». 029 1 7 602*

0-24-20 607*- —

02921 604*

0242-3 605*

02425 606*

0392-6 -697-*— 02427 608*

-0-2430— - 609*

02433 6 10* -0243 4

614*

02436 6 12* 02490 61 3* 02442 6 14* -02442 -615* 02460 6 16* 02464 617*

02462 6 18* 02463 —-619*.

02463 620*

.02466 621*

02470 622*

02471 — 624*

02472 624*

412973 625*

02474 6 2 6 * 02475 627*

02476 62b*

02500 629*

02502 630*

02503 .631*

02504 632*

02505 6334. __ 02510 634*

02511. 635*

025 1 2 636*

02513 637*

0251 4 638*

025JO . 619* _ 025 1 6 64o*

0-251?-- 64 1 • 02520 642*

02530. 643*

02523 644*

0353 9 .645* 02525 646*

_ .. . .. is. < y.ie.o^oi .-y.*o*o aasjul

I ETC ( I

) 1 OA Y*J 1 46600

I DE L T A ( I ) * I V DL 1 1 1 “ I E TC ( ! ) *447-00 GO TO 129 96900

454 JlND-( I > *1 - 94910

123 lETCm-10000 97300

- 1 DELTA (11*10000 - 47-9QO129 CONTINUE 97500

IF- -HSIS.EQ.O) GO TO l IQ — — 41410

I 1 * I S I G 97520

250 1 SPEC-! 9X510

J-IVTYP(II) 97535

00 -440-JCl-1 * 1X5 - 47440-

K*K1 97550

IF (J»EQ*ITTYP(Kl ) ) GO TO 951 47560

950 CONTINUE 97570

PRINT - 42 7— . — 97571

PRINT 966 ( II ,

I VTYP( I 1) , IVMT( I 1 ) ,VPR u n . f VLC ( n ) t ! VSZ( 111 , 97572

1 1 VNZ l Hl-t-lVM 141

J

J ) j VmAX < l j ) , i VOL (11 > “101514 U , INOXIU M 9 7-527-

I V T Y P ( I 1 1*0 97576

V PR ( | 1 4*0,0 - - - - . -- 97577

951 1NDX(!1)«K 97580

4 10 -00 4 39 --1*4, J X9 - - — 97600

C DAILY INVENTORY IGNORES PERMANENT CREWS INITIALLY 97700

139 .N0ELQlil4*MUU'»IEQN041)*lS50( I ) - 97.8.00. NOE*MULT*NF-.NSF 97900

NDE 1 «MULT*NE 1 -NSE 1 98000

NDE2«MULT*NE2-NSE2 98100

NDE3«MULT*N£3'sNSE3 98200

NDL*MULT*NL-NSL 98300

PAYRO.UiM.UlX* tNF*CF + NL.*CL*NEl *-CEl.+ NE2*CE2.+ NE3*CF3)*8.Q 95305

IF (NDL+NDE 1 *NDE2+NDE3,LE,P ) GO TO

IF (ISPEC.EQ.O) GO TO 106

K* t NOX ( I 1 ) J 1 I CRS ( K 1 J2*ICRN(K)

00 936 J 3 *J. 1 , J2 . . _ . . J*I VTYP ( 1 1

)

J9*IEQS(J3)

JS* I EQN ( J 3 > J9*ILAB(J3>

K1-IE01 ( J3)

K2«IE02( J3) _ ... K3*!E03(J3)

J8*0

00 926 J7« 1 , 1000

C MULTIPLE OF BASIC CREW

L9bJ7*J9

L4«J7*<1 - L2*J7*K2

L3*J7*X3

770 90310 _ . 9 8900

987 1 0 99100

99200

49300.

99350

99900

99500

99510

99520

..... _ 49530.

99590

. - ... 99590

99600 ... 9 9700

997 1 0

... . 9 9.90 Q

50000

50100.
p Ar,r : 1 6 02527 6 ft ft • IP (L9.GT.NDL) GO TO 428 50110

02531 649* IP (LI .LE.NDEl ) GO TO 420 50200

0253 3 650* L 2 = L 2 L

1 -NDE 1 50300

0253m 65 1 « L 1 *NOf 1 50400

02535 652* 420 IP (L2.LE.NDE2) GO TO 422 50500

02537 65 7* L3*L3+L2-N0E2 50600

025MO 6 5 4 • L 2 * N 0 r 2 507 00

0 2 5 M I 655* 422 IP (L3.GT.N0E3) GO TO 428 50800

0 25 M 3 656* DO 424 J 6 a J ft , J 5 50900

02546 657* K4«IE0(J6) ._ .... . _ S1JD00

0 2 5 M 7 65ft* IP ( J7* I NO ( J6 ) , GT , NDEQT ( Kft ) ) GO TO 428 51100

02551 659* 424 CONTINUE 51200

02553 660* 426 J 8 * J 7 51300

02555 66 | • I E R R « 1 0 1 51HQH

02556 66?* GO TO 899 5 1 500

02557 6 6 3* 4 28 X «8 . 0 S 1 600

025^0 664* X 1 *L 1 -K

t

51601

0256 1 665* X2*L 2-K2 _ _ 5 1 602

0256? 666* X 3*L 3-K 3 5 1 603

02563 667* X9«L9-J9 -5i 60.4. 0 2 5 6 4 66ft * IP (J.E0.3000) X«10,0 51610

02566 669* J* I NDX ( I 1 ) . .. . 51615 . . 02567 670* 00 432 4*1,3 5 1700

02572 67(* SLH ( m , J ) *SLH ( M , J ) *X*X9 . 51800

02573 672* SElH{M,J)«5E:iH(N t J)*X*Xl 51900

02574 673* SE2W ( H t J.) «SE2HLH, J)*.X*X2 .52-0.0-0- 07575 674* SE3H(M,j)=sE3H(H,j)*x*X3 52100

02576 675* TCL(M,J)=TCL(M,J)*X*(X9*CL*Xl*CEl * X2 • C E2* X 3 • CE 3 ) _ ... . - 522X10 . 02577 676* OD 430 J 6 a J ft |J5 52300

02602 677* J7«IEQ(J6) -- 5240.0 02603 6 7ft* X6» INO ( J6 ) *J8 524 10 02604 679* E0 h (m,j,J7)*EQH(M.J.J7L*X6¥X . ... . __ 52500 ._

02605 6ftn* 4 30 EQT0T(M,J)«EQT0T(M,J)*X*X6*EQC(J7) 52600

02607 68 1* 432 CONT 1 NUE ... ....... . 52700

026 M 68?* N0L*N0L-J8* J9 52800

026 1 2 683* NSL*NSL+ J8* J9 _ ...... 5 2 8 1

Q

026 13 684* NOE 1 »NOE 1 - JB*K

1

52900

026 14 68*;* NSE 1 r N S P 1 J8*K

1

- . .. 52910

026 1 5 686* NDE2*NOE2-J8*K2 53000

0261 6 6 ft 7 • NSE ?*NSE2* J8*K2 _.. . . ...

' 53010 .... 026 1 7 688* NDF3aN0E3- J8*K3 53 100 02620 689* N5E3«nSE3*J8*K3 .53110. 0262 1 69Q* DO 43ft J6*J4,J5 53200

02624 6 4 1 • J 7 a I F 3 t J6 ) 53300

02625 6 92* ISEQ ( J7 ) * ISEQ ( J7 ) INO ( J6 ) * J8 53310

02626 69 7* 4 34 NOEOT( J7)*M0EQT( J 7 ) - I No ( J6)*J8 _ . ....... _. ........ 53400

02630 694* 436 CONTINUE 53500

0263? 695* V°R ( I 1 ) *0.0 _ . —- .. 53550

02633 696* I VTYP ( I 1 ) *0 53600

Q 2 6 3 4 697* fid Tn 1 05 53610

02635 6 9 ft • 106 I 8*1 53700

02636 699* 177 1*18 ....... 53800

02637 700* C 0 5 T ( 1 ) *0.0 53900

02640 7 C 1 * IP (JlNDlI 1 • E Q * 9 1 GO TO IftO 54000. _

0264? 702* J 8 a 1 54 100

02643 703* 176 J* J8 ... ....... 5420 Q_ 02644 70ft* I EXa J 54300

07645 70c.* IP U-CREWl I . J) .EQ.O-J-. - 6Q- m 1H0-- - - 59-40 CL
page

- s

026*47

-026.50 _ 02652

02653

0265*4 02655.

02657

02.6 40- _ 0266 1 02663

0266*4 0266 5 _

02665

02-667 — 0267n

026-74 02672

02675

02676

0 270-0- - 02702

-02705 - 02707

02 740

027 1 1 -02-74-2

027 1

*4 027 1-5 027 l 6 0274 7 02720

-02 721 —

0272*4 02725

02727

02730-

02732

0.2 233 __ 02736

027 4.1 027*4 1 02744

02747

027 50 —

02750

02 75 3 0275*4 02756

02757

027 60... 0276 1 027 6 2- 02763

02763

0276*4

- 02 7 66 02770

02771 —

17 706*

707*

7 0 fl • 709*

7 10* 711*

712*

713*-

7 1 *4* 715*

716*

71 7 * 7 18*

7 19* 720*

72 H* 722*

7 23*-

72*4* 72 5

A

726*

727*

728*

729*

730*

734-* 73 2*

7 33*

734*

735*

736*

737-* 738*

7 39*

7*40* 74 l * 7*42*

7 43*-

7 *4 *4 • 745*

7*46* 747*

7*48*

7 4 9*-

750*

751#

75 2* 753*

7 5 *4 • 755* . 756*

757*.

75a*

759*

760*

-7 6 1 * 762*

141 J 1 - I CREW ( 1 , J)

. _ _J 7 2. LE ( MJL-.LI.4lLL AB Uj.U jGJ_.UP—U1 K1-IE01 < J1

>

K2-IE021JI ) <3*IE03( Jl 1 IF (K1.LE.NDE1) GO .20.-125 - K2«K2*K 1 -NOE 1

.... K.l_s.ND.jr 1 125 IF (K2.LE.N0E2) GO TO 126

K3«K-3*K2«NJE2

K 2 “ N D p 2 126 IF (K3.GT.N0E3) GO—TO 4-64

C THIS path meanss all personnel are available

54500

.5*1600- 54700

-5-4800

54900

-5500-0- 55100

. 5S20Q

55300

SS4Q0

55500

-55600

55700

ssaoo

J2* I EQ5 ( J l

1

J3»IE0N3J43

00 107 J4«J2,J3

J5*I E04J44

55900

56000

56100

56200-

IF (NOEQT( J5) .LT. INO( J4) ) GO TO 161 .107 -CONJU-N.UE DO 157 J4« J2 , J3

1 F— 4 j N a4344. E-0.54 GO- -TO—1-37 JS*!EQ( J4) _ N D EOT4 J 5-L*NOEQ T4364*LN0 (l44 3

SUM«SUM#IN0(J4)*EQC(J5)

4 57 -CONT4-OUE -- NDL»NOL-ILAB( J1

)

NDE 1 »NOE 1 -K4 NDE2«NDE2«K2

NDE3»N0E3-*K7

COST( 1 )*SUM#C05T( !

)

LF ( ! EX.2) L39 .402 ( 1 42 129 J0-J8+1

IF (J8.LE.61 GO TO -406

140 I 8 I 8 * 1 IF (I 8.LE.IX101- GO TO 177

GO TO 132

16 1 IF (I E-X ’aZ) L30.-L4 6. 146

130 DO 131 1*1 ,1X10

00 1 34- -J«L ,6

56300

-56.400., 56500

56 51 0 56600

-54200

.

56800

-5-6900- 57000 —57 1O0

57200 —52300-

57400

57500

57600

57700

57800

57900

58000

..saiQo.

C RELEASE all CREWS INVENTORY AFTER

131 I CREW ( 1 .J)«0

GO TO 110

132-00 1 3 3 -I *1 «_L)Li-Q- C RANK BY idelta

JRANK ( I l-l 133 JUNK 1 ( 1 ) -IDELTA ( I

)

ISIGbO

CALL RANK —.13 8. 12*1 . 178 I * JR ANK ( 12) - - l EX 2 Y-VPR ( I ) C NONSENSE JOB . _

PERMANENT CHECK Is NEGATIVE

58200

-58300

58400

.58500-

58600

58700.

58800

5890-0- 59000

59010

59015

40 4 00, 60500

60550.

IF ( J I N 0 C I 1 « E 0 . 9

)

IF4 344*04 I ) .4LQ-.44

J * 1 1-5 1-G-m-Q

GO TO 179

-GO—T 0 1 60-

60575

60700

6Q300-

61000

61200
PAGE S 1 8 02772 76 4* 140 I F ( ! VT YP ( ! ) . EQ . 9999 ) 60 TO UO 61250

_0?2M_ 765* IF.tr.L5tP. ) GP„TO J.6.P 61270

02776 766* IP ( T DE L T A <1 ) , GE , 0 * A ND « 1 CELT A ( I ) . NE , i 0000 ) GO TO |60 61300

027 76 7AZ»_....C JOB IS QN. AR AHEAD OF SCHEDULE _ _ 6M00

03000 760* IP ( ICREWl l , 1 ) ,EQ,0) GO TO 162 61500

22002 74_?*_.. 2. AT. LEAST ONE CREW IS. ASSIGNED 61800

03002 770* IF ( ICREW( 1 ,6) .EO.O) GO TO Ml 61900

-Oaflfla 11X3. l 4 4 PRINT .9 6 7 (_H 0JJ.1 9J jJ D AY j_L» J .UlVJYPJ II ,.I E T CJ U i.LvPL LI 1.. LLCBMLLLi !LLj_ MLQ0 0 03004 772* 1 K 1 » 6 ) ) 62100

-03021 772# 60 TO 160 ... _.. 62200

03022 7 7r* M2 DO M3 J2.1.6 62300

-03025 -7.7S* J3aJ2 - 62400

03026 776* IP ( l CREW M , J2 > , EQ . 0 ) GO TO M5 62500

-03030 77.7# M3 C0NI4-NJUE. - 62600

03032 770* 1 45 I CREW ( 1, J3 ) J 1 62700

03022 770* IPUVMlNMl.Gf.O) J VMLN4 I-) •*( 1 02Y#J VM M M L) 62800

03035 780* SUM-0,0 62900

02026 70|* 00-1452 ^12*1 M l 62950

03041 702* J4- ! CREW ( I , J2 ) 63000

-020-42-. 7.84# M44JUEQ-.0 \ SO TO 4-4 5-4 62100.

03044 784* IP(J4.LT.O) J4--J4 63200

-02046- 785* M52 SUM«sUM*PROD ( J4 ) - 63300

03050 706* M5 4 X.SUM*TOJM> 63400

0305.1 707# J2« ( Y/X 1 +0.5 ... .... 63500

03052 780* Y.Y-X 63550

-0.3052 2.0A# If—(-Y-,LE«-CL.02 Yj*0.2 62575

03055 790* 200 ! E TC ( 1 ) 1 0 A Y J 2 63600

03056. 79J* 285 IDELTAM M1VDLMMIETCM) ... - - _.. ...... - 63700

03057 792* IP MEX.LE.3) GO To MS 63800

-03061 794* ICRfKM U23)«0*ILREW4 l , J3) ... - . 63900

03062 794* 1EX-4 64000

-0.32-62 79.5* fi2_Z0—124 . 62.120 03064 796* 146 J-J+l 64200

22065 73

J

• _ IP. 1 1CREWI 1 , J) .EQ.O) GO TO 162 . _ . _ 6.4300 03067 790* J2*J-i 64400

22070- 799* DO 147 J3*l , J2 ..... . 64500

03073 800* IP MCREWM ,J3) ,EQ, ICREW( I , J) ) GO TO 1 46 64600

23275. 82.1* M 7. _C2NTj.MiLE .6.4700 03077 002* GO To M8 64000

23120 . «03* 162 IF . ( IEX.NE.2) GO TO 169 . ... 64900

03102 804* IEX»3 65000

22103 80S* GO TO 180 65100

03104 806* 169 IP (IEX.NE.4) GO TO 165 65200

22424 807* 1ELX«lS 65300

03107 808* 180 L-INOX(I) 65400

2.34-10 8 OR* L1-1CRS1L1 .. . 65500

03111 810* L2» I CRN ( L ) 65600

.034.12 814* L.sCL ............. 65700

03113 812* 00 163 L4.L1.L2 65800

031 16 81 3* L*L*4- 6.5 8.52. 031 17 014* X JUNK ( L )*8,D*HCOST(L4)/(PROO(L4)*TOJ( I ) ) 65900

234.20 8.LS* 163 JUNK 1 (L ML4- . - . - . 6 6 000

03122 816* 00 164 L4«t,L 66300

02125 817* DO-464. L5»L4^1 _. 66400

03130 818* IP (XJUNML4) , L E . X J UNK ( L 5 ) ) GO TO 164 66500

23132 aLas. X*XJUhlK-LL4Ll - - — - 6.6550. 03133 820* XJUNK(L4)*XJUNK(L5) 66575

03J 34 821-*- XJUNIULSMX • 66600-
PAGE! l 9

03 135 822* L3-JUNK 1 (L8

1

66700

0 3 13 6 0 23* JUNKliL<4)«JUNKl (L5) - . — --662.QQ

03137 82*4* JUNK 1 ( L5 ) «L3 67 100

03 1

*4 0 825* 168 CONTINUE 6 7-200 031 <43 826* L I *0 67300

03 1 *4*4 827* 165 Ll-Ll+1 67800

03 1 *45 828* IF (Ll .GT.L) GO TO 168 67500

031*47.. 82 9*_ 00 170 L5-1.6 — . - . . ... - - .... L2A&Q. . 03 152 830* IF 1 ICREW( 1 ,L5) .EQ.O) GO TO 275 67700

03 1 5*4 831 * IF ( ICREWM I .L5) .EQ.JUNK1 (Ll ) > GO TO 1 65 _ 67800

03 156 832* IF ( ICRFVU I ,L5> .EQ.-JUNKi (Ll ) ) GO TO 165 67900

03 160 8 3.4* 170 CONTJ NUE 68000 .

03 162 8 3 u • 275 J 1 * JUNK 1 ( L 1 ) 68100

03 163 835* J2* JUNK 1(1) 68150

03 1 6*4 836* IF ( X JUNK (L 1 ) ,LT . 1 , 15*X JUNK ( 1) ) GO TO 172 66200

03 1 66 837* 1 68 J I NO {!)>)- 68300

03 167 838* IF ( IEX.LE.3) GO TO 160 68800

03J71 839* GO TO 1 7 1 68500

03 172 880* 160 IF ( I E X * G T • 3 ) GO TO 171 68600

031 7*4 88 1 * I2.I2M - -663X10- - 03 175 8 8 2 * IF (12. LE, 1X10) GO TO 178 68800

03177 8 8 3* 179 I F X * <4 68900

03200 88*4* I S I G = 0 69000

0320 1 885* 12*1 — 69100- - 03202 886* 181 I « JRANK ( I 2 ) 69200

03203 887* - IF41VMI6U I > »6T,0) GO TO 171 - - - . . ... . 69-300

03205 888* TF({JVMJN( I )*IETC( I) J.LE.O) GO TO 171 69500

03207 8*49* IF ( JIN0( I ) • ME « 0 ) GO TO 171 69500

032 11 850* J* 1 69600

0321 2 851 * GO TO 188 6 9 700

032 1 3 852* 171 12*12*1 69800

0321*4 853* IF 112.LE-.IX10) GO TO 181 -69 9.00 032 16 8 5 *4 • IF ( IsIG.NE.O) GO TO 179 70000

03216 855* C JOB X I N ITI ALLY**CONVERT TO MAN HOURS 70100

03220 856* DXL»NDL*B 70200

0322 1 857*. DXE 1 *NDE 1 *8 . 7.0300 03222 858* DXF2«nDF2*8 70800

03223 859* DXE3*NDE3*8 zooon

0322« 860* DO 2008 1 *1 , ! X8 70600

03227 86 1* 2008 NDEQT ( I 1 *8*NDEQT ( I ) - , 70610

03231 862* !SlG*n 71300

0323 1 863* c indicates ranking by travel time is not yet done ........ 7 1800

03232 R 6 ** * I 2- 1 71500

03232 8 6 5* . -C DO 1-OOP OVER ALL JOBS TO SPOT EMERGENCIES 74600.

0 3 2 3 3 866* 3006 DPR ( 1 2 ) *0 71700

0323*4 867* Y= I L AB ( 1 ) 74-8 00 - - 0 3 2 3 5 868* X 1 I EO 1 ( 1 ) 7 1 900

03236 869* X 2 * I E 0 2 t 1 ) 7-2000 03237 870* X 3 * I E 0 3 ( 1 ) 72100

032*40 87 1 * I * I 2 . - 72-200

032*4 1 872* J* I VT YP ( I ) 72300

032*42 873* IF ( JIND( I) « E Q » 9 ) GO TO 222 72600

032*4*4 8 7 *4 • IF (J.NE.1000) GO TO 2?2 73000

032*46 875* J* indx

(

i

)

73350

032*47 876* T I MEeVPR ( I ) *SUT ( J

)

73800

03250 877* TIMET = TIME*2*TTJ( I 1 ... - . . _ . ... . 20.400 0325 1 878* IFC IDTE( I 1 .GT.IOAY) GO TO 22 2 73500

03253 - 8 79*- K1»IE0S( 1 )

. _ ... 3-3930
PAGE t 20 03259 880* K2-IEQNU)

03 255 88] • _ PQ .?n&*_.K.3.»KJ ,K2 . 032*0 882* K9«1EQ(K3)

JL22A1 U3» IT LN0E^UJ?HJ_.l.IxI_NQl!«;3)*TlMEj ,60 TO. 203

032*3 esq* 200* continue

032 *5 8 8 5 • _J r (OXL.LT. VTI HE) SO TO 203... 032*7 88** IF ( X 1 •TJME.LE.OXE l ) 60 TO 200

.01211 My JL2«»X2±X1-DIE1

03272 888* XJbDXEI

03273

889* - 200 I F 4 X 2*T-l ME . LE « 0 X£24- jS3 TXL 204 . 03275 890* X3-X3+X2-0XE2

.03273 8 9 4* 32*0X£2

03277 8*2* 20 1 IF ( X 3 • T I ME , 6 T , 0 X E 3 ) 60 TO 203

03301 893* 202 DO- 2.04-0- JM«

I

*3 03309 899* WUA ( M , l

) -WUA < M , 1 ) *T J ME

-033X15 8 9 &* SUH(m, l

) *SlH < M , 1X*T I ME • Y 1 0330* 89** SEIH(M #

1 )»SE1H(M, i )*TIME*XI

03307 a97* SE2H< m , l 1 «SE2H (

M

t 4 ) *T J ME*X2

03310 898* SE3H ( M , l ) *5E3H ( M , i ) *T I ME*X3

03311

015* I C L ) T49X* ( Y* CL *JL1 a£Jl4* X2* CE-2XX 3 *4 L3X+J CJ.1 M « LX- 03312 900* V P R ( J ) 0 •

0

4J3313 90-L*- Jl-NX. I 03319 902* 1 V T YP ( I )»0

333315 903* DO- 2003- U»K1 *142 .. _ . 03320 909* IF ( I N 0 ( N ) , E Q , 0 ) 60 TO 2008

03322

305*- K3J-1EQ1N1

03323 90** EQH(m, 1 ,K3)«EQH{H, l , K 3 ) I N 0 ( N ) • T I M E

03329

907* EQT0TXM-* 14 *JLQ_IOT_( M»1)*IN0(N)*TIME*EQC(K3)

03325 900* NO EOT (K3)*NDEQT ( K3 ) * 1 NO ( N ) *TJMET

0332*_ —90-9* 2008 CO-NUNUE - - _ ....... 03330 910* 2010 CONTINUE

033

32

9 LX* -DJtL9f)XL-3*.T3iI£-T

03333 912* DXE1«DXE1*X1*TIMET

03339 9X3* .. D XE2»0-XE2-X2.* T 1 M£T . 03335 9 J 9 • 0XE3*0XE3-X3*TIMET

.0333* - 9 IS* 6 0 1.0. 2 32

03337 9JA* 203 IF (ISI6.NE.0l GO TO 20*

.01337 ?_L7 * c check t o see if ranking is required .. . 03391 918* ISI6-1

113392 9X9* 00 209 . J1*X»JJLXQ _ 03395 920* JUNKl(Jl)*JI

-0339-4 924* 209- XJUNK4111 *T tJ U 11 - 0339* 922* C ORIGINAL INVENTORY INDEX AND T R A V WL TIM£

03350 929* c Rank on travel time

.03353 920* DOl 203 —J2*XUXX 10 —

0335* 92** J9 JUNK 1 ( J l ) -03357 — 927* J-5bJUnK11 J2) ... 033*0 928* IF (XJUNKI J9) ,LE.XJUNK( J5) ) GO TO 205

033*3 930* JUNKl ( J2)*JUNK ( J1 ) 03389- 93 1 * JUNK 1-1 Ji 1*-J3 033*5 932* 205 CONTINUE

03370- _ 933* 20* 00- 2 13 XlaX-^XXXO __

03370 939* C CHECK FOR CREW

03373 530*- 02 * JUNXX1J-U - — - - - - 03379 93** IF ( JIND< J2> .EQ.9) GO TO 218

0331* -93.7 • DO. -240 J3»l+*_- - _ - -

73980

73990

79000

79010

79020 _ .79100

79200

793.00 79900

-7.9 SQO

79*00

Z9700

79800

7 9 8 9 Q 79850

7 9 8*0. 79870 — 79880

79900

75910

799 1 5 79914

7991 7

7 5920

79930 — 7.9 9 90. 79950

79960

79970

79980

79990

_ 75900

75500

75600

75700

76 100 76200

_ _ 7.6.300 76900

76500

76600

76700

76800

76900

77000

77100

77050

77075

77200

7 7.300. 77500

77700

77900

78600

78700

. ... 78.800 78900

79000
PAGE ; 21 03376

_Q3*l61

03*402 53*405 —

0 3 <4 07

03*412

03*4 1

*4 0 13L6_ - 03*4 1 6 0 3*447—

03*42 1 03*4 22

03*423

0544 23

03*427 05*451 _

03*433

05*13*4

03*436 03*434 - 03*4*4 0

-03*4*4 2 - 03*4*4*4 03*4 36 —

0 3 *4 5 1 03*45 2

03*455

03*4 54

03*460

03*4 62 -

03*463

. 0344544.-.- 03*466

03*4 67 - 03*47 1 0 3*4 72—

03*473

03*4 7*4 03*475

03*477 03502

03503 _ 03505

. 03502 . _ 035 1 0 03512

035 1 7 0351*4 0351 6 03520

.

0352 1 0 3 5 2 *4 03525

03527

03530

03551—

03532

-03533—

938* C AUXILIARY CREW CHECK 79100

9 35* 3*f. 7»53 79200

9*40* IF ( ICREW( J2, J*4 ) ) 207,210,218 79300

231* 207- -4 F 43*4 »-EQ-*64—60 TO—224 --- - 79*400

9*42* DO 208 J5«J*4,5 79500

9*43*- —IF { I CREW LJ2 .494-tE-Q , ICREW ( J2 » J5* 1 ) ) -GO -TO—210 79-AOQ

9 *4*4 • 208 CONTINUE 79700

9*45* 221 _45.«- 4CS.O! 442+464 7 9800

996* C CREW HAS NOT BEEN CHECKED 79900

9. *4 7 * 13-47 X . 6 E . T I NE 1 —&O-T0 2 1 4 — 80003

9*48* J6-IE0SIJ5) 80100

9*49*- 47* I

E

QN4-J54 — — 50200

950* DO 209 J8-J6.J7 80300

951 * 3 9-58— 8-0*100 952* IF ( JE01 J8) ,EQ.2) QO TO 211 80500

-535* 2-0-9—C0N34-N-UE 80600

95*4* GO TO 210 807Q0

_J955* 21 1 _42 (4 ft* 5L3313S 1 *OXU -,4 T . <7.0*T! ME 15—&0-T 0 2 10 - 80800

956* IF ( ( 8 * { IE01 ( J51 + IE021 J5»*IE03( J5) ) 0 X E 1 *0 XE2 + 0 XE 3 1 . GE , T I ME > GO T 80900

- 957 * 1-0—24-9 84000

958* IF ( ( IE01 (J5)*!E02(J5)*IE03(J5) I.LT.t ) GO TO 210 81100 — 959-* 210 C0-N-T1 NllE <4 200

960* 210 CONTINUE 81300

.964.* 00 -54-8 34*4+4X40 84-300 962* J2«JUNK1(J1) 81500

_9-65* — - 00 —2-9-0—X4»4-«-6- 54500

96*4* J *4 K 1 81700

. 965* 21*4 IF 4 ICREW(J2»J«).LE,01 GO TO 318 81800- —

966* IF ( J*4 . EQ « 1 ) GO TO 220 81900

- 967* J6-JM-1 - -82000

968* J5* l 82100

. 9 69 *~ 248-45 31C-R5W5J2-+351*8(3-*4-CREW (32-,4<4 M—

G

O -TO- 31ft 52200

970* J5" J5 1 82300

97i* 1F(J5.6T.J6> GO TO 220 - 52*400

972* GO TO 215 82500

973* 2 20 J5-lC8EW4J2Wn - — - 82600

97*4* J6*IEQS(JS) 82700

.975* J 7 *450134454 ~ ~ - — 82ft00 976* IF (TX.GE.TIME) GO TO 217 ,82900

.9 77* DO 216 4fl*J&» 47 - - - - — 830.00 978* J 9 J 8 83100

979* IF ( JEQ( J9) ,EQ,1 ) GO TO 217 _ ... .8 32QQ

980* 216 CONTINUE 83300

9.8 i* GO..TO 21

B

- 6.3300 982* 217 IF ( (8*1LAB< J51+DXL) ,LT. (2,0*TIME) ) GO TO 290 83500

983* IF. ( ( 8* ( I E04 ( J5 1 1502 ( 45J * J E03 ( J5 ) ) DXEl+DXE2*0X£3)«GE.TIME) GO T .83.600

98*4* 10 2 1 9 83700

985*. 290 .CONTINUE 83800

986* 318 CONTINUE 83900

987* - J PRINT* 110 . 53QJ0Q

988* PRINT 1000 , IPRINT 8*U00

989* 222 12*12*1 — 83300

99p* IF( I2.LE.IX10) GO TO 3006 8*4350 99 1* GO TO 223 - ... - - -63375. 992* 219 X1*T0J( I J-TJME 91*400 -995* OPRj 44 *OPR ( 14*34*gft00 1454— 91500.

994* COST( I )*COST( 1 )»X1*HC0ST(J5) 91600

- 995* IF ( JH rE-Q-,64 GO - TO 21 3 917 0 0
PAGE l 22 03535

03590

.J

-O

fvj

O'

0*1

o*

o* 03592

03593

998*

999*

03599 1 000*

03595 1001*

03596 1 002*

03 552-- 1003*

00 212 J5*J9,5

212 1 CREW( J2. J 5)*ICREW( J2.J5»1

1

213 ! CREW ( J2 , 6 ) *0

T X " T X iXlME * I N 0 ( J 9 4 DXL«0XL*TlME* ILAB ( J5)

DXEi^.XXitJXMEflEjlLL^

DXE2*DXE2*TIME*IE02(JS)

DX E3»DXE3+T1ME*IE03(J5)

03550 l 00 *1 • 03552 1006*

03552 100 7 * 03555 1008*

-01553! 1-QQ9-*—

.

03557 1010*

03 5 5 0 10 l|t—

GO TO 202

223 IS 4 5-0

00 763 1-1 .1X10

_C 00 OVER ALU J5R5 IN 1MVECTOR Y IF ( J I NO ( I 1 ,EQ,9) GO TO 7*3

JaJJ4M-U-4

C TYPE INDEX OF I TH JOB DO 764 1 ,4

03550 1012*

-01543 1-044*- 03569 101<t» 03545 UU5JL

C BASIC CREW LIST OF l TH JOB L*ICRE * ( I i K 1 IF ( L t EQ • 0 ) 60 TO 753

-LX- -LL-«-Ll-»-0-l- L**L

03570 1016*

03574 UU4ML

0357] 10)8*

Z*TOj( I ) JL* ZtPROOUJ03573

03575

1020 * 1-02 1.

1

DAILY PRODUCTION

VPRU ) » VP R < I ) ml TIME«OtO

LE14LPR< 1 1 ) H IB 1120,1130

03577 1022*

03500 1-024* 03601 102m*

03603 1026*

-113605 4-027-*- 03605 1028*

1118 T!ME»*VPR(I)/PROD(L>

VPR ( 4 ) «0 , 0

C PR (I ) *0,0

J 1 N X« I

-JLa_ Z*TO J ( I ) • T 1 ME ZtPROO(L)

GO TO 1122

44-20 CPRM «

03607 1030* GO TO 1122

-01410 10 Hi- L130 C PR( Il»CP Rn )*X

0361 1 1032* 1 122 DO 761 M*l ,3

03 6*1 1033* mA( M , J>»WUA(H t J ) *X . 03615

03616-

1038*

4-035* 03617

-03620-

03621

-016-21-

1036*

lOlXJL

1038*

1.01-9*

SLH(M,J)«SLH(M, J)*ILAB(U*Z

SE2H(M,J>»SE2H<m!jU!E0 2(L>*Z

TCL ( M , J ) "TCL ( M , J ) Z* ( I LAB ( L ) *CL* I EO 1 ( L ) *CE 1 1 E0 2 ( L ) *CE2* I E03

(

1 L ) *CE31

03622 1010* N 1 I EQS ( L

)

03629 —1 U-9_l_* 1012*

NZS1EQN (LJ - . 00 760 N-N1.N2

03627 1093* N3* IFO ( N

)

03630 1099* EQH(m, J,N3)-EQH(M, J,N3)*!N0(N)*Z

03631 --10.95* 7 6 fl EQTQT1M. J ) »EQT0T t H . J ) + I NO ( Ml » ZtEQC 1N31 03633 10R6*

03637 1 0*48* _Q16il2 l-OXiX

0361*1 1050*

0361.6 1051*

761 CONTINUE

DO

IF 650 N l

1 ,1X10

-4- J,M£. INDX1NJ-4-1- GQ TO 650

IF _LX

(CPR(N1),LE.O,O.OR,JIND(N1),EQ,9,OR,!ETC

( T IME.LE.9.n*TT J l N 1 1 GQ TO .6.50 03650

03651

1052*

-4-05.4*- Z»TImE"2*TTJ(N1

)

J4ME-Z

9 1800

_?1 900_

92000

92100

92200

92300

92100

9250 0

9 2 600

811.00 89500

-.8 140-0 81700

-598-0 Q

81900

85000 - _ 85100

8 5200 -

85300

-8 5900

85150

85500 - 85600

8S6Q2- - 85605

-8544-0 85620

85630

85635

.856-90 85700

. 85 Z10

85720

85735

8 5 7 U 0 85750

85800

.1570JJ 86000

86 1 0 0 86200

-86300

86900

8650-0 86600

867Q0

86800

8 6900

87000

-17100

87200 —- 87205 .—

A 87205

. - - 8 07205

(Nl).EO.lOAY) GO TO 650 C 87205

CC4Z205

087205

OA 87205
page:

03*52

0 3 6 5 3-

0365*4 03655

03*60

03*6 1 03**2

03661 „ 03*6*4 03665

0366*

03*67

0 3*70

0367 1 03672

03*73

0 3 6 7 *4 03675 - 03676

03*77-

0370 1 03 7 0 2 03703

0370*4 03705

037 0 6 —

03707

03710 - 0371 3 0371*4 037 15 037 17 0372 1 03723 - 0372*4 03726

03727

03732 - 0373*4 03735

03737

03737

037*40 02 7*41 037*42

037*43

037*4*4 0 3 7 *« 5 037*47 03751

03752

-03753—

0375*4 03756

03757

0376 0 —

03762

03-763

2 3

1 05*4*

. 1055*

1 056*

1 057*

1 050*

1 059*

1 060*

1061*

1 062*

106 3*

1 06*4* 1065*

1066*

. 1 067*

1 068*

106 9 *

l n7o*

- 1 0 7 \ * 1072*

1073*

1 07*4* 1075*

1 076*

1077*

1078*

1079*

X*Z*PR0D ( L > VPR t N 1 .) » VPR-1N1 ) 3.X Z 1 *0,0

IF (VPR (Nil) 65 1,652,653-

651 Z1**VPR(NI )/PR0D(L>

VPR(N1)*0.0 . . C P R ( N 1 )*0,0

1INX.«N1_ , Z»TIME*Z!

time-time^z

X*Z*PR00 (l> GO To 1 12 2 652 C P R ( N 1 1*0.0

J I NX.Nl

TIME.0,0 — 60 T© 1122

653 C P R ( N 1

1 *CPR ( N J )*X

T !ME»0,0 —

GO TO 1122

6 5 0 - C 0 N T | N4)£ DXL*DXL+TIME*ILAB(L)

0 X E l.O XF l* T 1 M-E • J E 0-1-4 L-4 0XE2«DXE2*TINE*IE02(L)

DXE3«03E3*T1ME*IE03(L)

1 CREW ( I ,K ) *0

N 1*1 E 3-514 ) —

D087205

£-32-205

F 87205

5 8 7205

H 87205

I 87205

J 87205

1337 20 5

K 8 7 205

KK87205

L8720S

M .31205-

N 87205

MN 37 2QS

NNN87205

0 37205

P 87205

87210

332 I 3

87220

87225

87230

1 080*

l oa i *

1 082 * 1083*

108*4*

1 085*

1086*

1087*

1 088*

1089*

N2* I EQN ( L

1

00 1 1 26 N»N i ,N2 — - N 3 * I E 0 ( N ) NDEQT(N31* NO EQT4N3)*TIME*IN0( N-)

1 I 26 CONTINUE

.762 CONTJ N-UE — -

763 CONTINUE

JSIG-1 - - - 761! IF (JSIG.EQ.O) GO TO 2003

JSIG.O -

1 090* DO 7610 1*1,1X10

10 9 1*. IF ( CPR ( U , LE--.Q.O.OR , aiND-(-U.*XCU-91 —fiO—T 0-76 1 0- - 1092*

1093*

1 09*4* 1095*

1 096*

1097*

J* 1 CREW ( 1,1)

IF (J.EQ.O) GO TO 7610 -

Z**4*TT J ( 1 ) C MINIMUM TIME acceptable

L • I L A B ( J ) X 1 * I F 0 1 ( J ) _ .

1 098* X2-IE021 J) 1099* X 3 I E03 ( J) -

1 1 00* x-nxu/l

1101* !F( X.LTtZ) GO TO 7610 ...

1 102* IF (X.GT.8.0) X*0.O

J10 3* Y 1 *DXE 1 . .. - .

1 l 0*4* T2-DXE2

1105* _ T 3 *D X E 3

1 106* 7601 IF (X1*X.LT.Y1 ) GO TO 7600

1 107* X2-X2 + X1--Y1

1 108* XI-Yl

1 109* 7600 . I F .-l-X 2-*-X • L T «. Y 2 ) 30—T O—760 2 1110* X3*X3*X2-Y2

113 4* X2-Y7

87250

87260

87270

37230

87290

37.300 87305

A 83705 - -

87305000

87305010

873.05020

87305030

373050*40

87305050

87305060

87305070

87305090

_ 87305100

873051 10 87305120- 87305 1 30

87305 1 *40 87305150

8 7305160

87305170

87305J30

87305190

87305210

37 305220
PAGE! 2

03764 1112*

03766 -I I 1 3* 03767 1114*

017,71 . -1115*

03772 1116*

03773 .J 11 7

• 03774 1118*

03777--ills*... 04000 1 1 20*

JQ-40Q2 -1-1 21*.

04003 1 l 22*

£4005 1-123* -- - 04007 1124*

0.4O1Q- 4125*- - 040 1 1 1 1 26*

04012 --U27«-

040 1 3 11 28*

£4DIE 1X29.4

0401 6 1 1 30*

£4017 1134*

04020 1132*

£40 23 113 4* 04024 1 134*

£4025 -4135-* -

04026 1 136*

J14 0ZJ 1127*

04030 1 I 3fl* 04031- 4139*

04034 1 140*

£-4036 . 414 1 * 04037 1 142*

.£££.40. —LI 43 • 04041 1 1 4*** £4042 . 1145* - 04045 1 146*

£4£46 -1147*

04050 1 140*

-0405j._.J.14.9* 04052 1 1 50*

J34Q53-.-1151*

04054 1152*

0405S- „ J J 5 3_• 04056 1 154*

H4£5 7 -1155*

04060 1166*

0 4Q62 1157* .. ; 04064 1 150*

04067 . 1 159*

0407 1 1 160*

04072 116 1* 04073 1162* 2

(

0 407.5 1 163*

04077 1 164*

04402 4 14 5 *~ - -

04103 1 1 66*

04 1 04 -4467*

04 105 1160* ; 04 107--146.9*

7602 IF (X3*X.LT,Y3) GO TO 7404

Z1-T3/X3 __ 7604 IT (Zl.LT.Z) GO TO 7610

X -Z 1 K I I E Q S ( J ) K2-IEQN( J) DO 7620 K3-K 1 ,K2

M»lNDJ$JJ<3J.

I F ( NDEQT ( K4 ) . GE . I NO ( K3 > *X ) GO TO 7620

X« NDEQT C K4 ) / INO { K3)

IF ( X ilT, Z ) GO TO 76 10 7-620 CONTINUE _ JSIG-1

K • I NOX ( I) _ _ . ... XX«X-2*TTJ( I

)

Z»PBOD I Jl*4X ... IF (Z,LT,VPR{ I) ) GO TO 7622

XX-VPR1 I ) /PROD ( J)

X»XX*Z*7TJ ( I ) ZaVERi II - _ 7622 DO 7624 * 1 , 3 -jrUJUM»K)»WUA(M,Kl*Z . _ SLH(M,K)»SLH(M,K)*L*XX

SEIH ( M |K ) *SE 1H LM ,K ) *X J *XX SE2H{M,K)»SE2H(M,k)*X2*XX

-SE4H «.SE3 H-CN ^ Ki *JL3 * XX. TCL I M ,K )«TCL (H t K ) *XX* (L*CL*X 1 *CE 1 X2*CE2*X3*

DO 7624 - N»Kl*K2 _

IF { INO(N) t EQ.O> GO TO 76?4

-K3*4EQ4N»

EQH(m,K|K3)«EQH(M,K,K3)MN0IN)*XX

£0IQTJM,KJjESTJ3T1M 4 K)*INCUNJ-*XX-*EqC4.JC3)

NDEOT ( < 3 ) N DE Q T ( K 3 ) « X * I NO ( N ) 7624 CONTINUE

VPR( 1 ) » V PR ( 1 J-Z-.OOOOl

IF ( VPR I I ) .GT.0.0 ) GO. TO 7626

C P R ( I )«0.0

LV.T YPLLL) iQ

JINX.

j

. _ . VPRj LJ 0 *_0 7626 DXL«0XL-*L*X _ D X E 1 « D X E I " X 1 • X DXE2«DXE2-X2«X

D_X£3-«£.X£1^X3.*X __

7610 CONTINUE

2001__LF_l jSI.Gt_NE.tOL GO T0.76H

DO 20030 L L * 1 , I X l

0

_1F UDTELLLU tGTaJDAY J GO. TO 20030

J«I NOX ( LL >

y» uc i i , j)j»jAU£ii i.jj-*ypR.iH.i

20030 CONTINUE

1 F 1 ISDAY .6T.5.QR, ID AT »EQ-» NWQL LIHQL44

DO 2002 M. 1 , 3 _ X4L4M4»XJL4N4*£XL - - XJE1 (M).XJEl (M)*0XE1

. XJF?fH)» XJF2 (M)*DXE2

2002 XJE3(M).XJE3<M)*DXE3

7 7 0—Ha I

CE-n

GO— TO- 770

87305230

87305240

87305250

87305260

87305280

87305290

87305300

87305310

87305320

87305330

87305340

£7,305350.

87305360

.87 305.320 87305380 - 87305390

87305400

87305410

87305420

_fi-ZO.Q54.3Q_ 87305440

... 87305450

87305460

87305470

87305480

0-7-205-4 90- 87305500

873055-10

87305520

8 7-30 5 53 0 87305540

8.73 0.5550.. 87305560

87305570

87305580

87305590

87305600

_.8-7_3QL5 6-L0._ 87305615

87305620

87305630

87305640

87305650

17.305.6 6.0- 87305670

87305680

A n 8 7 306

AS 7 3 0 6. 8 7 TO

7

57.3.0-6- 87309

A8J309

87310 - 8-7 320

87330

-HZJ.4JL 87350

-8 7.800
page: 25 09110 l 1 7 D * IFJNHOLnHOU.EO.IDAY) JH 0 L- 1 H 0 L +1 87805

Q

1 ( 2 1 1 74.* . . _ IF. U S D A-Y ^LT . 6« AND .XHOL . ME .44- SO TQ—7X1 87810

0 8 1

1 2 11 72* C OFF DAY 87820

09119 1173* _ IF (TClUtSHlCLl i^Xl+TCl (4 -t-*l»LE»0»04 *0 TO 772 *7*10

0*4116 117m* 771 M«1 87 8 HO

OH 1 1 7 1 175* -- 00 1 1 10 K*2,IX5 - 87860

0H122 1176* 1110 WUP ( 1 ,K ) «WUP ( 1 ,K 1 -WiJA (1 ,K) 87880

0 81 28 1 1 7 7-* — ... _LEJ-LOIJXL 1-2 ).*£ Q.*0 1 -G0._JLfl-77.2 87890

08126 1178* PRINT 970 ( I WE E K , D WE E K ( I S D A Y ) , I D A Y , I * ( I D A Y * 3 ) > 88000

0 H 1 3*4 1 1 79* 773 IF < I P L A N 04 60 TO—1142 8*0*0-

0*4136 1180* DO 1106 K«l,lX5 88070

0 H 1 *i l 11*1* 1106 WUP<1 r*l -aWPt2»Kl 8*0*0

08 1 *43 1 1 82* 1 1 1 2 PRINT 930 fJNVSUM) 88100

08 1*4.6 1183* PRINT 97 1 - 88480

08(50 1188* PRINT 972 88200

08152 -1 185* 1516*5 *8*00

08153 1186* X!«0,0 88810

08) 5« M *7* X 2*0,0 88 820

08155 1188* DO 777 1*1 ,1X5 88500

0*4) 60 - 1 1 89 * X « T.CL <4l»44*E 0 TO T4-M-. I .) *8*00

08161 11 90* X 1 *X 1 +X 88610

0*1 62 119 1* Z»«UC4M-*4-)-*X_ _ **620

0*4 1 63 1 1 92* IF (Z.LE.O.O) GO TO 777 88700

08165 1 1 93* Y«SLHl*rn^*ElH4M-,I-L*S**>l4M»41*SE*W4M lrn ***00

08166 1!9m* X 2 * X 2 * Y 88810

08 167- 4 19s* 4f.414-14.NW-) *0-70—775 5*900

08(71 1196* PRINT 975 89000

08 173 1 197* IS 1**0 8*100

08J78 119e* 775 PRINT 9 7 3 ( I , ! TT YP (| 1 , HT l (!» . HT 2 ( 1 1 , SLH < M , I ) , SE 1 H { M

' I » , SE2H ( M , I ) , SE 89200

0.8)78 —1499* 13H(M,I l,Y,TCL(M t I )., X , «/U*4*, l ) *UA4M r 14 (4L, J44 — 8*300

08218 120o* !S!6«ISIG*1 89800

08745- 120!-* 777- C0NTI444E 8*500

0821 7 1202* X 3 » 0 . 0 89510

08220-4203* X 8*0 » 0 —8*54*

0822 1 1208* X 5 * 0 » 0 895J8

-08222 1205* X6»0.0 *9 516

08?23 1206* X 7 *0 . 0 89518

08228 1207-*- - - DO 1 088 -4*4_*-4X-S- 89520

08227 1206* X3-X3+SLH ( M , ! ) 89525

08230 1209* X8«X8*SE 1 H tM .1 ) *95.10 08231 1210* X5*X5*SE2H (M , t ) 89535

08232 121 1-* .. X6-X6 + SE3H ( M » 1 ) \L 69580

08233 1212* X7*X7*TCL ( M , I ) 89585

418738. 1213* 40.88_ CONT I NUE 89550

08236 12 1 8* K 1 * X 1 + 0 . 5 89555

08237 1215* K2*X2*0.5 69560

08280 1216* K3*X3*0»5 89565

0828 1 1217* K 8*X8*0 • 5 - *9570

08282 1218* K5»X5*0.5 89575

08.283 -1219* <6* X 6 *0.5 *9550

08288 1220* K7*X7+0,5 89585

09-2 85 -4221* PRINT 987 t X 8 , x 5 ,4t4 . < 2 ,K 7 , K44 *9590

0 8 256 1222* X*XJL(M)+XJE1 <M)*-XJE2(M)*XJE3(M) 89600

082 5 7— 1223* Y«CL*XJL<M1-*CEI*XJ£1 1 M4-*CE2 * X4E24M) *CE4*X4e*4*4 -8*640

08260 1228* PRINT 988 ( X JL ( M ) , X JE l ( M ) , X JE2 ( M )

, X JE 3 ( H ) , X , Y ) 89620

-QM770 —4225 * I F (H, E Q.4 ) —-PR4N-T—94M-4-P4YR0U 8 9 625

09278 1226* PRINT 950 89630

0 927 6 1227* P-R 4N-7- 97*
PAGE! 26 03300

03300

03304

0330?-

1226

112JL

1230

1 211

03307

0331 2 1232

1233

03313

0331 4 1233

123*

03317 1236

03323 1238

09328 1239

03336

03337

1230

-1.234- 03331 1232

03335 1233

03351 1236

03 352 12.3 7 03353 1238

03356 1250

03367 1252

-03120 1251

PRINT 980 ( 1EQ! ( 1) , !•! , 1X3 1 C C OLUMN ME APIN GS F OR E Q U IPHENT TY PE S_ ISIG.5

OQ 7 82 !»1 t lXL5

C ROWS OR JOB TYPES

IF. ULSXQLi.M 1 1 ULE-»0jlQ1 GO JO. 782

IF (ISIG.LT.5) G 0 TO 780

J5.IjGjlQ _ PRINT 975

_28L0 DO 7.8414- K.-U1X3

7801 JUNKl (K)-EQH(M,! ,K)*0.5

PR INT 9 82—II TT JP I 1 > ,E QJPT4»,1 L»J JUNKlJIU ,< U 1X3 ) )

I S I G» 1 S I G* 1 -2 52 jCDJNIJNUE DO 785 K 1 -S-UMb Q t 0 1X3 SUMIbO.O

DO 703 1 ! 1 1 XS 783

SUH1bSUM 1*EQT0T(M, I 1

. SUM«lUM*S-flH-LM-+-L»JS-4 JUNK i (K)«SUM*,5

-JUN<2U-)-«5UMi*-»S

785 CONTINUE

-PPLNJ.-48-3—(. JUNX21 1LU-J-DN.K4J K-Lj-K-s4 ,4 X-3.1 ) 772 I 2"

1

LI*4 90030

9..QQ 3 0 - 03371 1253

03375 1254* 09377 12S7 »-- 03901 1258* .09102 L2iS_

774

I F ( IPLAN.EQ. 1 ) GO TO 1028

lf< H»ME-»44 GO

JO 77 3

IF ( ISDAY.EQ.7 ) GO TO 776

-If- 4-1-0A-J-* NE » I YEA.R4 GO -TQ-.X410—

Kl-1

K 2 b 1 0 A Y

JE.X«-

90035

90050-

90060

90070 - 90072

90073

09303 1260

099P 5 1261 03910 1242 1631 09913

.0.19 1

5

1263

1245

IF (I0AY.GT.7) Kl-lDAY-ISOAY+1

-DO LA-34. I * 1 44 X5 RUC (2,1) -RUC (1,1)

-Ma.2 __ _ IF ( I OUT ( 18) • EQ « 0 ) GO TO 7730

P RINT 983(1 PEERj-N-M-UL-Ij-Li-j

90078

.90082—

90083

90050

90098

9.009.9-. 09925

.0.4 9 24. 1266

1247

7730 l REEK » I REEK

1

GO TO 7 7 3- A90099

9D4J1Q

09927

09.431 1248

1249

779

09933

0443 4., 1270.12 71

I F ( N , EQ • 3 ) STOP

1EL _UD-AYjJ.IlLYEA.RJ G O—TJL-7 64 S

Mb3

PR IN T 985

N 0 TE-f S-H Q.R T.YEAJ? 90110-9QJ20

90130

9 0 1.44L 09936

JB.4.9 37 1272127-3 764

GO TO 773

1 1 * 2. 09990 1279 GO TO 700

90150

-90160. 90170

09993

09399

1276*

1 2773 92 ! n STOP

PR I NT 921

92710

_92X_2_Q

09996

03337

1278*

II7ft • 7 9 n STOP

PR T NY 922

92730

527 3JL 09351

03352

1280*

1 28 i • 9230

STOP

PR t NT 923

92750

-92760. _... 03353

0335*

1282*

1287* 9230

STOP PRINT 993

92770

92760 . 09957

04.9.4 a.

1 289*

-1285.9 437.0. STOP PRINT 937 (JUNK(JII)

92790

99800
page 27 04863 1 286* STOP 92810

0.4464 1287* 1.028. 12 ai 935QD

08865 1288* 11*2 93600

JJ4466 . . 1 289* GO TO 700 93600

09967 1290* 899 PRINT 902 (IERR) 93800

04872 1291* STOP _ 13.900 09973 1292* 900 FORMAT (12A6) 99000

09.979 . 1 293* ... 9 Q 1 FORMAT .1.4012.) 99100

09975 1 298* 9n2 FORMAT ( I 9 , 9 ( 1 X , 0 9 ) , 2 I 9 , F 9 . 1 , 2 A 6 > 99200

09876 -1 295* 903 FORMAT (2( I 4, F 5. l , 3 U ,-14 I 2 > ) — 99300

09977 1296* 909 FORMAT (I 3 ,

1 X ,

I 3 , F 3 . 1 , 1 0 « 1 X ,I 3 , F 3 , 1 ) ) 99900

09500 1297* 905 FORMAT (12*251 3) .... 94500

09501 1298* 906 FORMAT ( 2 A 6 , I 3 , 1 X , I 3 , 1 X , F5 . 2 ) 99600

09502 -1 29-9* 907 FORMAT! 14 t I4-*l-X t F6 L,-l-X-,-1 3-,-264-X t l-2- 4-y51L-X ,1 3 ) , 1 X .43! 947 00

09503 1300* 908 FORMAT (219) 99800

04504- 1301* 909 FOR M A T -L 2T-2 -»-7-A-6 1 99810

09505 1302* 920 FORMAT ('ONUMBER OF JOB TVPES EXCEEDS MAXIMUM*) 99820

09506 130-3* 921 FORMAX—M ONUM g ER OE BA510 CREWS-EX£E E D S AU76M 0 M!) -9 9830

09507 1308* 922 FORMAT ( • ONUMBER OF BASIC C*EW EQUIPMENTS EXCEEDS MAXIMUM! ) 99890

0451-0 -1305* 9 23 FORMA T—<-* ONUMBER- -OF- H-l-G-H-WA-VS—fN- ZONE L- fS-T-£ X CE- EOS hAXI-hWMA 9 4850

09511 1306* 928 FORMAT (*ONUMbER OF ZONES JN ZONE LIST EXCEEDS MAXIMUM*) 99860

-095 1-2 1307* 925 FORM A T f *1NVE N TOR T BACKLOGGED *,64, ' 0A45 ON-OAY*14J 94470

0951 3 1308* 926 FORMAT (*WEAThER JOB SKIPPED DAY*,l4,* WE A ThER ' , I 2 . INVENTORY I 99880

09513 1 309* 15 FULL *4 49441

09519 1310* 927 FORMAT (*0 *) 99890

0454 5-1 31 }*- 928 F OR^a4--M-H--2A6^6 t£-7-,24 94 900

09516 13)2* 929 FORMAT (‘ONUMBER OF EQUIPMENT TYPES IN INVENTORY EXCEEDS MAXIMUM!) 94910

04517 131 3* 9 30 F0R-M4T U-H*» H 0X-, *4, I JOBSM— 99920

09520 13 1 8* 93 1 FORMAT ( * 1 M A X I M A 1X4»«,I4,' 1X5-*, 19,* IX5C*»,I9,* IX5E* 94930

0 4420 1 3 1 5 * l * ,1 4 ,

t 1X6 * • ,14 ,

* 1762 *^*- ,pi,. ! J _X8 • , I 4 ,

i I-X9-J , 1 4 1 * U4 0 94534-

04520 1316* 2*’, 14) 94932

04521 1317*- - 9 3 2- FORMAT - 4 TO-H0L1D AYS t-l-XlJi-) 94440

04522 1318* 933 FORMAT ( * 1 * ,

1 0 X , t JOB TYPES AND BASIC CREW DATA*) 94950

04523 1319* 934 FORMAT (', 85 X-,* PAYROLL * F-U.2L 95955

04524 1 320* 935 FORMAT (’ CALCULATED * I 4 , 7 X , I 4 , 2 ( 8 X ,1 4 ) , 7 X , 1 4 , 8 X , I 4 , 2 ( 7X , I 4 ) ) 94960

04525 1324* 936 FORM at 1

* REAO JOBS OUT- OF SEQUENCE LAST JN ON DAY * I3,» CURR£N -95465

04525 132?* IT JOB IS DATED *13) 94966

04526— 1323* - 937 F 0 R M AT - LTQEQUUPMEUI-JJtPE: U. 3., ~*—NQ.T—IN—t-N-VE-ALT-Q 5YJ-) 4 .4.9.70 04527 1324* 950 FORMAT (1H0A6,40I2) 95000

04530 1325* 951 F 0 R M A T M W 0 » 2A 6 ,

I 5 * I 3, 4 ( 2X-, 0 9 ) , 1JC , 2 I 4 *F4 , 1 , I -4 )- .95100

04531 1326* 952 FORMAT (78H0 JOB CREW PROD EOl E02 E03 LAB HR COST EQUIPMEN 95200

04531 1327* IT INDEX AND T YPE-.NUMBER) . £5300

09532 1 328* 953 FORMAT ( I 7 , I 6 , F 7 . 1 , 1 X , 4 I 4 , F 7 , 2 » I 5 , 1 H» I 3 , 3 X , 6 ( 2 X , 2 13) ) 95400

0 45J31- .13 2 9* 9 54 F OR M A T -X.LHJ1A 6, 1_4, lS.^2I-4,-2A,-l.9.1 5J 455QQ

04534 1330* 955 FORMAT (27X,20F5,1) 95600

04535 1 331* . 956 FORMAT ( 1 H 1 , 42 X , 1 4HWE AT HE-R CALENDAR 1 -95700

04536 1332* 957 FORMAT ( 1 HO , 7 X , 3 1 I 3 ) 95800

04537 .1333* 958 FORMAT ( 1 H , A6, 1 X, 11 13) - - - 95900

04540 1334* 959 FORMAT ( « OWE A THER »D A Y DOPL I C ATE * , 3 1 4 ) 96000

0.4543 . 1335* 960 FORMAT ( l H0.4 0 X , 19 H.TRA 4EL-J4.ME_.T0-Z£LNE 1 96100

04542 1336* 961 FORMAT (1M I3,F7,2) 96200

04540- 1337* - 962 FORMAT |9X,20F6,2) — - - 96300

04544 1338* 963 FORMAT (» PERSONNEL INVENTORY NUMBER AVAILABLE AND HOURL* RATE*) 96400

04545 1339* 964 FORMAT ( 3 X , I 3 1 5 , 13 r 2F-7^2) -- — — -96500

04546 1340* 965 FORMAT (34H LAST THREE DAYS OF PRECEDING YEAR 58X.3I3) 96600

04 54.7 1-344 * ... 966 FORMAT < 1 H 1-4 ,4-5-,-J^E 7^,4-24-41 — 9.6X0 0 04550 1342* 967 FORMAT (1H0A6.15I5) 96800

0 455

1

1 34 J* 968—F09M.AT-L30HM AX1M.IJM JOB INV E NTORY EX C EEDED) 96 9 00
page: 28 0M5S2 13MM*

0MS53 13 MS*

0MS53 13M6*

0M5SM L347*

0M5SM 1 3 M g

0MSS5 1 3*49* 0M555 1 350*

0M5.5 6 JL351* OM 5 S 6 1352*

0MS57 1353*

0MS60 1 3 5 M

0MS62

0MS61.

1356*

435X*.

0M5&M 1 35 p

Q M& 6 S 4359*

0M566 1360*

0MS6 7- —

H

64X

0M567 1362*

OM 5 7 1 1 36 M* 0M5-72 4-16**- 0M573 1366*

QMS7.M L3 67A

0M575 1368*

0MS77 1370*

OM*74 1 3 7 1* 0M600 1372*

-0M6O4 13 73 *-- 0M602 1 3 7 M

QM6H3 U3ZS»-

0M60M 1376*

QM605 437 7* 0M606 1378*

JJ4607 LIZ.? • 0M612 1380*

0*61M L3 8l»_

1000 FORMAT!’ COMPUTER GOT TO I 3

)

969 FORM aTJ ’ERROR ,

I RPER(»Lp ER_)-.J_S_Jl.ROj- COMPUTER WILL GO IN AN ENDLESS

l LOOP’)

9JJQ FORMAT ( 1HL*3 U, 19H0AILY RFPORt WEEK 1 3 * 2X » MHOAY A6 , 1 X-, L3^3*-» 7H.WE

I ATHERI2)

971 FORMAT ( i 6H01NDEX_TYPE. NAME 9 X. , 89H* ••*•••••••••• *LA BQR HOURS******

1« »** « LABOR TOTAL W , U , W . U . W.U. ) _ 9 7 2 F 0 R M A TL ( ? 5 X j 9 5 H L A B 0 R.ER S EQ Op _ 1 E Q OP 2 £.0 OP 3 TOTAL £0S

IT COST PLANNED DONE CARRjED ) 573 FORMAT ( IM,I6,l-X,2A6-»5F9.l,Fi£U.2^F9»2,3F9*t)

9 7 M FORMAT < 1 HO , 1 2X ,20 l 6 ) 9 7* FORMAT 1 1-H 2 A 6 t-20-F 6 * l )

- 976 FORMAT ( 1 H 2A6,!M,2J5,F7.2)

9 79 -TORHA-T-- 44HJ3 .48X, 1 8 HE

Q

U4P- ME4JT -S-UM4AR4 _ 4

980 FORMAT ( 1 M H TYPE COSTS, 2315 ) - 982 - F QR-M-A T 1 1 S.F-9,4 , 23 1 5 1 983 FORMAT (7H0T0T*L ,17,2315)

98M FORMAT < Ut 1 , 3 U, 1 9 HAEE K LX REP OR I- WEEK-r 1 1*1-1 .4 X-, 1-8WW 0 R K D-AXS WEAT

1 HE R , 7 1 2

)

98-5- FORM AX—t4-H l_, S4X_^ 1 1H YEARLY- REPORT ) r 986 FORMAT ( 1H1 ,3|X, 18HMEEKLY PLAN WEEK I3,l6,10H WORK DAYS ) —987 F0RMAT44H0* 10X,6HT-0TAES*5X, 519, 110^194 - —

988 FORMAT ( 1H0, 10X, 12HJ0B X LABOR , 5F 9 , 1 , F 1 0 , 2 ) ..— 990 -FORMAT—t 1H ,-2J 3,1-5F6. I ) _

991 FORMAT ( 7 X , 1 5F 6 , 1 ) 993 FORMAT (’THE FOLLOWING JOB IS IN AN INACCESSABLE ZONE. IT HAS BEEN 1SK4RR44M4 - — — —

9 9 M FORMAT ( 1 H 11 9X , ’RECURR ING JOB PROTOTYPES’)

9-9 S -FORMA T ( 1 H 1 l -RX-^ IH4-S-HWA Y S AMO CORSESRQNDX-NS -ZONES*4 - — - —

4

996 FORMAT (’0RECURR1NG JOB TYPE IS UNDEFINED’)

-9-82-8-0-

998 FORMAT ( 1H 2F 1 0 , 2 , 1317)

—999. F-08-MA-T— UMOJSI-71

2022 I PL A N 1 DO 2D2.1 1-1-U-X5

202 1 XJUNK1 ( 1 )*0.0

DXL4.0M 1x1. IX IQ

0M61M 1382* C ACCEPTABLE JOBS WEEKLY

Q M617 4 393* JR4.MJC1J.J-1 -

0 M 620 138M* JUNK1 ( 1)«!VDL( 1 ) 0M621 1385* JI NO ( I )*Q . - - 0 M 6 2 2 1 386* N-lVTYP(l)

0M623 1 387* 1

F

( N . NE , 1 OOP , AND . N .ME ^?9.95,AN-P-.-N*-NE-t41I-.- 0M625 1388* JIND(l)-9

JUNK 1 (-LlxLOOaO . . -

1 390* 1 02M DO 2000 J- 1 , 6 4194* 1 CREW XI »j1 J--Q 1392* 2000 CONTINUE

1 393* CALL RAN*

4LQ _T 0. _1 0.2-4—

0M627

DM632

0 M 6 3 3 0M636

98290

98294

98300 — 9-8-M-00 - 98500

9120 D _

93100

93000

99995 .— 99996

99997

LOJIQCLCL 100100

. 4-00 20 Q .

1 00300

-LOOMOO

100500

-10Q4QO—

100700

- 100705

100710

LQ-0 7 20—

1 00800

0M636

DM637

139M*

1 395*

c GO TO RANKING subroutine

4-0X4- D0-1045 L* 1 , I X-lfl 0M6M2

-046*11 0M6M5

0M6M 6

1 396*

1397*

1 398*

4.14ft*- 0M6M7

OM-ASO

1 MOO*

4X01*—

J2- JRANK ( ! ) LF U I MOi J.24, EJQ_» 94—GO TO 1045

J-INDX( J2)

K5-

I

CRS

(

J ) K-6 *4-C R N ( 4

1

101100

404200-

101225

XOL25CL

101300

1 0 1 MOO 104500
page : 29 tm 5 i .0** 6.5.2 04655

444655 - 04657

04661

04664

Q4664.

0*46 67

0*4674 0*4672

0*46 7 3 0*467*4 0 4-6 7-5 ~

0*4676

0-4637

0 *4 70 2 -0*470*4- 0*4707

-0*4 7-1 l- - 0 *4 7 ! 3 -0*47 1 *4 0*47 1 7 -0**72 1 0*4722

0*4-725- 0*4726

0*47 27

0**73n 0*4737

0 *4 7 3 3 0*4735

0*4737

-044 7*44--

0*47*4*4 -0*47*45 0*47*47

0*4 750-

0*475 1 04 7 5 3 0*4755 0*4756

0*4757

_0il 7 57 _ 0*4762 0*4763

0*4765

0*4766

0*4766

0 4370.

0*4772 0*4773

0*4775 0*4776

0*4777

.050-00 05001

05002

1 *402* 1*403*

1 *404*

.1*4 05*

1 *406*

1 *407* 1*408*

1 4Q9*._

1

*4 1 0*

1*411*

1*412*

1*4 13*

i

*4 1 *4*

1*4 15*

1 * 1 6 * -1*4 17 *

1 *41 8*

1

*44- 9 *

1 *420*

1-44 2 l-»

1 *422*

1 42 X*

1 *424* -4 425*

1 426*

4 427*

1 428*

-4 429*-

1 430*

14 31*

1 432*

1 43 3* 1434*

1 435**

1 436*

1 437*

1 438*

1439*

-

1 440*

14.4 1.*.

1 442*

1441*

1 444*

44.4 5*.

1 446*

1 4 4 7-*

1 448*

1449*

1450*

1451 •

1 452*

1 453*

1 454*

1 455* .

1 456*

4 4 57 •-

1 458*

-4-45-9A_

J 1 =0 DO 1002 K * K.5 » K 6 J 1 J 1 1

101600

4 0.1700

._- X JUNK ( J1 1*8. 0*HC0SI X4UV ( T Qjt JZl«_P_RQOlK U

1 002 JUNK 1 ( J 1 ) *K -00.1003 K 5 * 1 , J1 —

00 1 003 K 6 »K 5 1 J 1 C RANK CREWS ON UNIT COST

! F ( X JUNK (K5 1 ,LE,X JUNK (K6 1 ) GO TO 1003

K3.JUNK 1 ( K5 1 - X-X JUNK ( K5

)

JUNK 1 ( K5 ) -4UNK 14 K6 1 -

X JUNK 1 K5 1 *X JUNK ( K6

)

- JUNK | < K 6 4*4(3

X JUNK ( K 6 ) * X 4003 cont i nue _

IE ( J1 « G T • 6 ) J 1 * 6 00 -1004 K« 1 ,-JJ 1004 ICREW1 J2,K JbJUNKI (K) -.1015 CONT+NUE

J 8 I 0 A Y DO l-|14 K* 1 ,1X5

1114 WUP ( 2 » K ) *0 » 0 20 50 IS 16*0 - 00 1116 K * J ,1X10

. JC4 *4R-AUK-1 K4

J-INO x (K 1 ) _ Na-1 VTYP < K l 1

101750

4-01000-

101900

402200—

102300 _ 1 Q24QD

102500

443260X4- 102700

1Q28-00 - 102900

-403000

103100

403200

103300

103400

103500

1035-05—

103510

4433530

IPIN.EO. 1000, OR. N,EQ,2riOO,OR.N,E(3, 3000) JJNDXKl 1-9

N X a 4 - - -_ —

I F f IOAY.EO, t

) NX.MULT

- - IF -4-| DTE IK 1 4.-GT-. I DAY-*NX-)--J-1-N D < K 1 4a 9- 1116 CONTI NUE

DO 1020 1 = 1 ,4X10 - J. JRANK ( ! ) IF ( JIND1J) ,EQ,9) GO TO 1020

WPR ( j ) o VPR ( J >

! V M T ( J4*.Q - - IF ( I VDL ( J) ,LE. J8 + NX + 2) GO TO 1005

IF ( I VTYP (J) « EQ • 2 ) GO TO 1020 -

T VMT ( J ) = 1 WPR( J ) «VPR I J ) *MULT/ ( I y 0 L 4 J»«J0*4*Q4

1005 DO I 0 1 0 K * 1 , 6 C- OVER. SIX BESI-CRE-WS

L«ICREW(J,K)

IF (L.EQ.O) GO TO. 1020

L1=WPR( J)/(PR0D(L)*T0J(J)

)

IF (L1.EQ.01 L 1 1 C CREW DAY ESTIMATE

103540

-4-0354-5

103560

403565-

103570

403572

103575

1X32577

103570

403500 . 103590

-103600

103700

103000-

103900

-10.4000

1006 4 F (L1*ILABLL1..UEL.NDL4---G0 13-1005

L 1 «NDL/ I L AB ( L

)

1007 IF (LI. EQ. 01 GO TO- 10 10

104100

10 4150-... .104200

104300

104400

L0JL5J2Q 104600

10 4700

104000

4-04 9.00 —

1 05000

1054-00

GO TO 1006

1008 K1 = IE01 <L1*U

K2»IE02(L)*U1

_K3« IE-0 3 I L ) *L 1 L2» I EQS f L

)

1_3 1E-0 N4-L4

105200

105300

105400

ID 5500

105600

105800

-405900
PAGE J 30 05003 1 *460* IF (K 1 .LE.NDEl ) GO TO 1009

05005 1*461* K2«t<2-NDE l *Kj _ 05006 1 *462* K 1 -NDE 1 050 07

_

2.863* 10.09. JF (K2.LE.NDE2)... . GO TO 10 ID 0501 1 1*469* K 3 * if 3 . N D E 2 K 2 05Q1.2_

.

_1865* . * 2 -NOE 2 05013 1 *466* 1010 IF (K3.LE.N0F3) GO TO ion

JL5_g_L5 L.5.5JL* U'LUL . 05016 1 *468* GO TO 1007

235012. _.1.869* _101 1 00 1012 L*I«L2.L3

05022 1 *470* L 6 »L *4 05023 . > *47 1 » L5*IEQ(L*4>

0502*4 1 *472* IF (NDE(3T(L5) ,LT, L 1 • I NO ( L *4 ) 2150.24 18 23* -1012 continue. . 05030 1*47*4* I S I G * l

1 06000

106100

106200 _____ LO 6 300

106*400 106500

106600

1 06 700

106800

. 106900

107000 _ __ 10710-0 GO TO 1026 107200

- 1.0.130 Q. 107305

05011 --1 9.75* Y.UUTOJ(J) - 05032 1*476* x«Y*pROD(L)

..05XL33. 1 *177 * M«2 . 050 3 *4 1 *478* WPR< J)«WPR( J ) - X 05015 18-29 * IF _i 1V.MT (_J )_* NE *01 . GO. TO 101*4 05037 1 *480* I F <WPR( J) .GT.0,0) GO TO 1 0 1 <4 050 *41 1*481*. J I N D ( J ) * 9 ...... 050*42 1 *482* 1 0 1 *4 NDL-NOL-L 1 * ! L AB ( L ) 050*43 1*483* NDE1-NDE1* ... Kl

050***4 1 *48*4* NDE2-NDE2- K2 235085 1.4485-*- _N0E3«MDX3-_ JC3. . 050*46 1 *486* N» 1 NO X ( J 1 _050*i7-.- -188-7* .— - SLHlW.,NJ«SLH(-M t N)*Y*U,AS(L)

05050 1 *480* SE1H(M,N)»SE1H«M,N)*Y*!E01 (L)

107310

1 07*400 107500

107600

1027 QO, 107800

1 Q7.8 1 0 107900

108 00.0 108100

108.20 0 108250

108300

108550

05051 —4-*459*- _.SE2J4(M t.N)t5£2H(M,N)*Y*IE02IU - - - 05052 1*490* SE3H(H,N)*SE3H(P,N)+Y*lE03tL>

.05053 1*454-*— I«U8-1M-^N-1*J4U1R.4J1^R) *X . - - - 0505*4 1 *492* IF (WUP<M»N) .GT.XJUNK1 (N) ) WUP ( M j N 1 *X JUNK 1 ( N ) 215054 18.93* _ TCL.lM ,N1*TCL ( M.»U 1 Y • (I LAB ( L ) *Cl + K 1 «CE 1 + K2*CE?*K3*CE.y)

05057 1*49*4* DO 1016 U*4-L2,L3

.O50A2 1*495*. ... IF .1 1N0 { L*4.U EQ . D ) GO TO 10 16 0506*4 1 *496* 1 5 I E 0 ( L *4 I ,05.0.45. L8.92 • J1D. EJ3.I2. L5J *JN.D EQI2 L5J - Li * I N 0 ( L *4 1 _

05066 1 *498* EQH(M,N,L5)»EQH(M,n,U5)+ IN0(L*4)*Y

050

67

1*4 ?,9*. E.QT0T1M , N 1«.IMQT| M , N ) INO(l‘4)*Y*EQC(L5)

05070 1500* 1016 CONTINUE

0 5072 15 0 121 IF C WPR LJ 1 .GT . 0 » 0 L GO TO 1018

0507*4 1502* GO To 1020

05Q75 1 503* 1 02.6_.L J_"NDJL$m_LS 1/ I N.O l LAl._

05076 150*4* GO TO 1007

.05.027 1.505* 10 10 CONTINUE

05101 1506* 1020 CONTINUE

p!03 1507* IF IlSJGtEQ. 1 ) 60 TO 2050

05105 1508* XJL(M)»N0L*8

06107 1510* XJE2(M)«NDE2*8

_Q5J_L0 151i» _XJE34M)_«M0EL3*.a

051 1 1 1512* 00 309 1 I » 1 *1X10

.051JL8 4SI3S DO. 3 021. .2*1 *8 05117 15U* 3091 ICREW(l,J)-0

.05122 1 S.L5* 1 F LI 0 UT2 16J .EQ*Q ). GO.. TO . 772

0512*4 1516* PRINT 986 ,

1 WEEK , NMULT

051-30 15141* GO Uy 773

ia&600

108700

2.08210 108720

208800

108900

.. 109000

109100

.. 109200

109300

109*400 109500

J 09600

109700

109800

1 09900

.. LI 0000

110100

110200

1 1 0300

110*4.00.

1 10500

... 110600

110710

1 10720

1 10730

110220

1 10750

110800.
page 3 1

05 ! 3 1 1518* END 98300

END or UNIVAC 1108 FORTRAN V COMPILATION. 1 *0IA6N0ST1C* mESSAGE(S)

PHASE 1 TIME e 3 SEC, ... I4

' PHASE 2 TIME « 0 SEC,

PHASE. 1 TIME c 6 SEC * ..... PHASE 9 TImE l SEC,

PHASE 5 T_L M E . » _ M SEC,

PHASE t> TIME a 3 SEC,

TOTAL COMPILATION TIME » 17 SEC
STORAGE

USER

(BLOCK

NAME,

LENGTH)

— o fn >- in <

in o ji>ocrs — — <B Q — — 3 Z X

in <n in n >o n n t

O'O 'O

— r^'Cfs.oo --NfM'OO'OOO O 30— arsirnoo a oooooooa o oooooaoo

ck

——

—

— (T

—

—— Csf\,rvf\cc o ooaooooo O 30000000 o oooooaoo & tn w n — c\l cr a: o o o: n 3- in 'C o o o o O Cl o c o o o o 3 3 0 M O c\or)a:>-zz o:

in n n o. i > « — a. — - MU««“> 2 > ! o o<Nino-©'Co : if) o - t >c n — o o-*Ninin^NON O 00 ^ 0 ^ 00 *^ o oooooaoo o oooooooo

cr

—

— a: I — — - (M (V» N N O N oooooooa o o ooaooooo o3 13 15 U. U U — 3- 3- r* *- _J 3

in >c - n c > — — —.(NO MHlit h

tn ;r cn 3- cj cn— 3-

m

NN -« 3~ 3“ O O — o — — 0^0 o o ^ O OO oro - O D N cocccoccc O OOOOOOOO — Q: —» — — O*^CNOO 04 o oooooooo o o o c c* o c c o o oooooooo

CN o O M O O — Xx

—

—

— O'

—

— 3 rsi rv n o h C'O Nn 3- —

<N 3“ 3 CNO^OOP^

— o — <\fOor^oo3-o o ooocooo— o o ooooooooo i c ooooooooo ; — — ce q: — — — o Csl (N rv o o o ooooooooo ooooooccoo o ooooooooo

15 J 15 U. in D k 3~ 3-r^oa:>-— z

minr^OQrXxOfn — — — OUJ—»— 3Z>~

fsifsir^noo

— n o in

in csi 3-fMC(3oo

— o c — — o o -c cc oc o ooooooo oo c ooooooooo OOOOOOOO OO

cr

———

— a:

——

— OOCVCSfVOO O OOOOOOOOO OOOOOOOO OO o ooooooccoo

(hod-Q-O- q — cm o a o a o o ^3-3-0 — apoa o a o d o o o a o d o a M N N N <M N X X X X X 3! m in in i/) in in

— 2 e o

-.-fnHTTinm'C<(NNNDNr)T 3 oocoooooodooo — — — — — oooooooooooooooooa 0- ooooooooooooooodoo
PAGE : 33 00116 19* ERR-3HSZ

1

nn jt t 2n* GO T 0 -8 .9 9 00120 2]* 1 50 I V N Z ( I ) I V S Z < 1 ) 00121 _22*- K* J VS2 I 1 4 00121 23* C SET travel time to zone

-00422 2 4*

_T.TJ4 n»TT (K ) 00123 25* return

-00424— -26*-

,-C . check to see if job is .for a . 00 124 27* 151 I F ( I VLC ( I ) ,LE. 990 ) GO TO

-0042-8 28* — C JOB APPLIES TO -MANY ZONES AND

SH20 1 000

-SH2Q-L1QCL

SH201300

SH20+400-

SH201500

SH2Q16DQ

SH20 I 700 PART 1£ULAEL HIGHWAY 5H2.0iaaa_

152 SH20J900

NO PARTICULAR HIGHWAY SH202000

00126 29* TTJ(I)«0,0 SH202100

-00+27 JO* ! VSZ< I > *42 - SH202200

00130 3 1 • I V N Z < I ) • *4 2 SH202300

00+44 32* 4VLC (++»Q SH-2-02-4QO00132 33* RETURN SH202500

00+33 34* 152 00 200 J* 1 ,1X6 SH202600

00136 35* J1*J SH202700

0 0 1 37 36* iniVLClIUEQ.lHYIJ)) GO TO 153 - - .

. SH202800

00141 37* 200 CONTINUE SH202900

-00+-4-3 3-fr*~ -P R I-M-T

-*40 r -1 V+C f44-H V 5-2+1 > r-J VNZ T 1 L, X , Y 00143 39* C ERROR-- JOB LOCATION IS NOT ON HIGHWAY LIST SH203000

-00+5 2 RO* - ERR»3H524 — -- - SH 20 34 00- 00153 41* GO TO 099 SH203200

-00 1-54 92* 153 NJ«IHYS< Jl > — — - SH203300

00155 H 3 • N2»IHYN<J1) SH203400

00155 -4p« . C J-0B-4S—POP—A H-L6-HJSLA.Y-._0R P-ORT. ION-OP—A~ HIGHWA Y S.H203S00

00J56 05* I F ( IVSZ( I > .EQ.01 GO TO 171 SH203600

00160 H6* IF U VNZ < l ) . NE 0 ) GO TO 154 --------- SH203700

00)62 47* I VNZ (I ) * I HZ ( N2 ) SH203800

00) 63 4g» 154 DO l 60 J*N l ,N2 ----- - . -- SH204 100

00166 49* N 3 * J SH204200

-004-67 50*-- +F+4-VSZ++ )-»E 0 «- 1 H Z+ J 14 GO T-0 1-62 SH2 0.8-300- 00171 51* 160 CONTINUE SH204400

0 0) 7 4 52* C ERROR-»ST ART I NG ZONE OF JOB IS NOT ON ZONE LIST SH204S00

001 73 53* ERR*3HSZ5

-004-2-4 54* - GO TO 899. . 00175 55* 162 N 1 * N 3 -004 26

__—56* - DO 1 6S-J*N1*.N2 - - - - - 00201 57* N3 * I 0-0202- 58* 1F(IVNZUU£Q.IHZ(J1) GO TO 170

00204 59* 927 FORMAT ('OJOB TYPE IS UNDEFINED-- JOB IS REING IGNORED’ ) 00205- 60*-- 165 CONTINUE

00205 6 1 • C ERROR--END I NG ZONE OF JOB IS NOT ON ZONE LIST

00207 62* E R R * 3 H S Z3. . .. . .. ... . . 00210 63* GO TO 099

-002 LI 6 4* 170 N 2 * N 3 00212 65* 171 X-0.0

-002-14 - 66* DO 1B0 J * N 1 ,N2

002 1 3 67* c FIND ZONE IN WHICH JOB WAS LAST ENDED

n02

1

1. . -68*.- 180 XbX*DL7 ( J ) ......

00220 69* Y*CPR ( I ) / < VPR ( J ) *CPR (!) ) -00221- -— 70»- - — Z-0.0

00222 71* DO 185 J N 1 | N 2 -00225-— 22* N3« J 00226 73* Z-Z+DLZ ( J) -00227 _ 7-4 *

— lF+ (77-X-l .GT.Y4- - 6-0 -TO 4-9-0— - - 00231 75* 185 CONTINUE

-002 3 3 76* - PRINT 910, T-V+4 ( 4+ r41^SZ-+l 1-. 4¥W26l 1 , X-t2-

SH204600

SH204700

SH204800

SH2Q4.9QQ

SH205000

SH205 100

94890

SH205200

SH205300

SH 205.100 SH205500

SH2056Q0

SH205800

SH2059QQ

SH205950

51420.6000

S H 2 0 6 1 0 0 SH20630Q

SH206400

SH206500

SH206600

S H2Q6-ZQOSH206800
PAGE J 3** 00233 77* C ERR0R--MILES Or JOB COMPLETED JS GREATER THAN LENGTH OF HIGHWAY SH206900

002*42 7 B * _ ERR» 3HS Z6 _ . SH207 I0Q

002*43 79* GO TO 899 SH207200

002 HU 80* 190 I VSZ ( I J - I HZ1N 3) SH 207300

002*48 8l* N 3 1 V S Z ( I ) SH20732S

002*46„. 82* TtjUl-TIlUU SH2 0 7 350

002*47 83* IVNZ( I )»IHZ(N2) SH20737S

002-5.0 _ 8*4* RETURN SH.2.QJH.QQ

00261 85* 899 PRINT 900, ERR SH207500

0025 H. _86* TT JT I ) * 1000.0 — - SH2QJL6m

00255 87* RETURN SH2076S0

00256 SB* 900 FORMaTI 12X, ’ERROR AT • ,A3l SH207700

00257 89* 910 FORM AT ( 1 OX , 3 I 5 , 2F 9 . 1 ) OQi&fl— .90* - £N0_. .— — SH2078C10

. END OF UN! VaC HOE FORTIUN_JL_CO-MPIi.AtlQN J 0 tOlAGNOSTJC* MESSA-GE1.EJ_

PHASE 1 TIME > 1 SEC,

PHASE 2 TIME > - 0 SEC-, —

PHASE 3 TIME 0 SEC,

P HASE . *4- TIME a O-SEC.

phase 5 TIME - 0 SEC,

PHASE -Wl.-T.1HE_ * 1 SEX * —

TOTAL COMPILATION TIME 2 SEC
13IT

FOR

RANK,

RANK

UNIVAC

1108

FORTRAN V

LEVEL

2206

0016

F5Q16B

THIS

COMPILATIDN

WAS

DONE

ON

12

FEB

69

AT15J07I53 u < z D h < O <r U D 00 • • • — D CM o c o o o o o o o M z cf> a h

Lj

—

— h2: i z m o-t n ifl e> o o o c

-t a o o &

V) O O P CM -4

in oc o ofl

«f O D o c d

LJO I <t — IM CNf CM CM

a: o o q o a o a o d o o

h- O O CJ c o

<n I 1 o 0 — C I f i ! — cm o a o i/„ r jtociinh — — t>4 (N (\ O' O' O' Kitft ia in

fl Jllfl

O' of O' tn in i/i if

ENP

or

MNIV.aC.. n

ogF.

QRT R

IlN,. V

,CPilPlJ>AUajj.« Q

.T.PUiN P

STK* M

ESStiEtSl

PHASE 1

TIME o0

SEC,

PHASC2

TI

MEm

0-SEC,
PAGES 3 * PHASE 3 TIME

P HASE m tim e phase s time » PHASE A TIME m ..

0 SEC,

__0 SEC*

0 SEC.

_Q S££j

TOTAL COMPILATION TIME • 0 SEC
page 37

Q X 0 T HIWAY

BLANK COMMON > 57*432 1 63777

starting adoress 0 1 *4000 CORE LIMITS 01*4000 03*4*410 100000 125635 1 57*42*4 157*43 1

HIWAY /COPE

0 1Q31QQO-. i 2 *4 2 52

1 01 *4000-027303

ns7o>Y/code

X_. 02730*4-0273 IS

NO-UlS ycoox

0 1 2*425*4- 1 2*4260

4 -0 2731-6-03 0363——

2 1 2*426 1 - 1 2*432 1 ntabs /cooe

0 12*4322-1 2*4527 NE T VS / COPE

1 03036*4-030*406

N! 0 I NS/CODE

1 03 0*4 07 -.030*4 5 3 2 1 2*4530- 1 2*4560 NOT JNS/CODE

1 03.0 44 Si4 -03.0 7 *4 6

2 1 2*456 1 -1 2*4623 NFMTS /CODE

4 03313-417*03 .1- 75 *4 ... 2 1 2*462*4-1 2*47*4*4 niers /code

0 1 2 * 2.«4 5 - 1 2 *1 7 *45

1 031755-032122

2 12*4 7*46-4-253131..

JNER R. S ,/gQPE
page: 38

0 125032-125150

1 0321*3-032362

NI NPTS/CoOE

0 125151-125151

| 032*463-0336 16

2 125152-12520*4

FLOATX

0- _-.12S_2tt5-al&320

NEXPf

X

0 125321-125*405

CONVTX

0 12530 6 -125360

N I N I NS /CO PE

1 0336J7-033752

L25*4Al^L25i3g RANK / COD E

0 125531-125560

L _ 0137 5J-Q33 073

H

Z

ONE /COD E

0 125561-125635

1 033075-033310

END OF ALLOCATION 1103 0033
PERSONNEL

INVENTORY

NUHBER

AVAILABLE

AND

HOURLY

RATE

o

in

no

X

c

o-X

I

I

o

o

in

iK1 O

X

l/)

N

-C

X.

O

.

j

! i cocoooir. ooooocQipoooo *\i yi o* ^ flDOfMiilor^iv<c*o^jr^«incvicJO

in c in in o ry T if) CD m a n i\cn n m -N^J'if'DNcoD-c^N^Tir'DNma'

n n t « ®

rvi n N n y in <o rv cd O' o M n y if. <c h co O'

\n — rsi r ac

I Ui

cl a. a. a: o o o o

as G G G < D Ui Ui J

CL

<r oro: or in k Q. ^ Q* h ^ y cl r ft- or uuromuauD ^ a: h ui uj >gokljz>*-q:-J u; a 5

ir u CL<ouo:a:i/>»“ I a u 5 < o — r: or or < a. k c a. o. c in oq r o or k o c ct z h o 2 _i in m in i

h* a: _j hoo.zyujj< z y ui > 0.0 UJ<QTO Li 3 CL GL l <t QTUi-J-JQ: -ynjicyi * «* rhcouuj^y<

3 5ZJCLKSIi:a:UiCKZ455X®UK GO Z)OinOOx«-*»-0'-JCLD:OCL>O—*o ujKca<i>-u.^iLHUue>h(iiniinir
page: 40JOB TYPES and 8ASJC CREW DATA EMERGENCY 1 000 1 1 111 1 1 1 1 1 1 1

1 1 1 1 1 1 1 1111111 11 1 1 1 1 1 1 1 1 1 1 370 ,0 1 JOB CREW PROD E01 E 0 2 E 0 3 lab hr cost EQUIPMENT INDEX a NQ TYPE-NUMbER

1 1 1 .0 1 0 0 2 8.90 1- 1 2 1 traffic SERV 2 2 111111111 1 1 1 1 1 1 1 1 1 1 u 1 1 1 1 1

1

1 1 1 1 1 1 111 1 370 .0 2 JOB crew PROD E01 E02 E 0 3 lab hr COST EQUIPMENT INDEX *ND type-num&er

2 2 1 .0 1 0 0 2 8,90 2- 2 2 1 light snow 2000 3 000000000 ooooooooo OOOOOOOOO OOOOOOOOO 1 370 .0 3 JOb CREW PROD E 0 1 E 0 2 E03 lab hr cost EQUIPMENT INDEX and type-number

3 3 .1 1 o JL, l _ 3 w 3 2 l 3 4 .0 0 0 0 1 2.00 4 - 4 2 0

3 5 .0 1 0 0 0 2.50 5. 5 . 2 0 SNOW PLOW 3000 4 ooooooooo ooooooooo OOOOOOOOO OOOOOOOOO l 370 .0 4 JOB CREW PROD. E01 E 0 2 E 0 3 LAB MR. COST EQUIPMENT index and type-number

4 b . 1 1 0 0 1 6.90 4- 6 2 1 4 7 .0 1 0 0 .. 0 4.90 7* ... J. .... 2 l 4 8 .0 0 0 1 0 3,25 8» 8 2 0 4 9 . ..0 _ 0 0 0 _l_- IjLflfl 9 - 9 .2 Q snow clean 3500 5 JMOJOQOQOO _QO.CLOO.Cm 0.0. . 0 oao o 0.0 00 00.0 0. 0 0.0 oo. ... _ 1 370 ,0 10 _ JOB CREW PROD E01 E 0 2 E 0 3 LAB HR COST equipment index and .LY.P£- NUMBER

5 10 * 1 1 0 0 0 4.90 10* 10 2 1 5. 1 1 *0. . I Q_. . -0. . a . . 1 0.3 Q . i_L»_Li- — 5 L

5 12 .0 0 0 0 It 22,00 1 2- 12 2 0

5 J3 -.0 0 0 0 1 2.00 1 3* .13 . - - 2 0

3 6 0001 10110 1001 1 0 1 10 tool I 1 1 1 1 1 101 1 i

m

0 364 .5 14 JOB CREW PROD E 0 | E 0 2 EOS LAB HR COST EQUIPMENT index *nd type-number

6 14 .9 2 1 0 3 30.35 14- 16 5 1 2 2 3 1 6 15 1.3 2 2 0 4 45 ^40 17- 19 5 2 2 3 3 1 b 1 6 2.3 4 2 0 4 52.65 20- 24 5 2 2 3 4 1 7 1 3 1

4 7 100100100 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 289 320 1.0 17 JOB CREW PROD E01 E02 E 0 3 LAB HR COST equipment INDEX AND TYPE-NUMBER

7 1 7 5 4 0,0 3 0 0 4 22,70 26- 25

_

__ 2 3

7 1 8 585,0 3 0 0 5 24,70 2 4- 26 2 3

7 1 9 625,0 4 0 0 b 31^60 77- 27 2 4

7 20 415,0 2 0 0 3 15.80 28- 28 2 2

5 8 1 00 1 00 l 00 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 75 104 .5 21 JOB crew PROD EOI E 0 2 E03 LAB HR COST EQUIPMENT INDEX and type-number

8 21 1300,0 2 0 0 Li. SO 2*- 29 2 2

e 22 1690,0 3 0 0 5 24,70 30- 30 2 3

8 23 2050, Q_ 4 0 0 6 31.60 3 1 - 31 2 4 a 24 1150,0 2 0 0 3 15.80 32- 32 2 2
PAGE} Ml

6 9 000100100 100111)11 100111111 llOlUlll 75 287 1.0 25 JOB CREW

9 2S_

PROD E01 E02 E03 LAB HR COST EQUIPMENT INDEX AND TYPE-NUMBER

-- *UJ3 4 1 a a 2.9 1 AS 33- _3S JjQ L U_ _4 2 1

B 1 0 LloJJ Oi LQ___LL1_L10J_L0__ 0 346 26

-P.RJ3J3 EOl E02 E 0 3 LAB HR COST EQUIPMENT INDEX A Np TYPE-NUMBER

, 6 2 0 1 5 36,05 3 6- 37 13 1 2 2 _Q— 1 -6 H0» H 5 30* 39 43 4 2 2-

XQL-12 atHLumjmo l.aainjnoQ tna.ua-iio 1 101 long 1.5 3 3 os JL2_ quipment index aNd.t ypt-n uhrer

18

IB2

2 191 9

12

1 8

1 fi

1

) 1 9 | 18 3 19 1 18 —2

44 04J4li 4- _ 444 44444 4

JAfi __CSEW PJLQ.Q EJU LSl2. £03 LAB H W . jEOSI £lU 1 PMENJ^-im£a_-A.NJL^4J!?E.»tiiitlaER

13 38 2,7 2 0 0 M 22,30 67- 66 IM 1 22 31

13 39 4 ,3 2 0 0 5 26,70 —6 7- *9 4 H l 2 3 3 4

1344

MOHU

5 . M 6,0

005 29,80 70- 72

C a A- -46.70 73. 75 -4412 1H 46.4 2,0 12.

JOB.. ORE# PROD EOl E02_U13_4AB HR _ COST . EQUIPMENT -INDEX -AND TYPE-J4UM-B4R ..

1 M M2 1.0 1 002 9,50 76- 77 14 t 2 1

1 M M3 . . 2*0 2 0 .0 4. _22,3D 78- 8Q 14 l 2 2 3 1

1 M MM M,0 3 007 33.20 8 1 - 8 3 14 1 2 3 3 1 L*L M 5 - . -5-..0 M . 0 0 7 3-8,1 0 BM- 86 IM i 2 M 3 1

1 M M6 10,0 4 1 0 8 53.75 o 1

® !

1 1 2 5 3 1 5 1 103 15 iooi ioi io loot i m i 1 101 1 1

1 1 1 111111111 0 366 .5 M

7

JOB CREW PROD EOl E02 E03 LAB MR COST EQU I PMENT INDEX AND type-number

. .45 ..- -47. - -7,0 2 002 13.80 _il- 94 2 _2

15 MB 14,0 3 1 0 2 29,35 92- 93 2 3 5 1 15 4 9 3,5 6,90 91* 91

4 0 H L6 JOLOO 1001 OQ LOO 4 44U4- 40 0 1 44414 - 14044 414 4 0 366 1 ,0 544

40fi CfiJEJ.

1 6 50

16 51 1,5

2,8

10,65

21,30

95- 95 96- 96

INDE X 6ND..IYP£w.N4Ma£B.
page : 42

105 17 1 00] 00 1 00 l

o

o 100 1 o o 1 00 1 1 0 1 1 0 ]

1 0 110 1 1 0 ..... 0 3 6 6 ,0 52 JOB CREW PROO EOl E 0 2 E 0 3 LAB HR COST EQUIPMENT Index a nd type-number

1 7 52 143,0 1 0 0 1 6.90 97- 97 2 1

1 7 53 200,0 1 0 0 3 10,90 98- 98 2 1

1 7 54 430,0 1 0 0 5 14,90 99- 99 2 1

1 7 55 57 1,0 1 0 0 8 23,30 1 00- 1 00 2 2 106 18 10 CLIP 0 LOO 100111 11 1 LI 0 1 11 1 l L 11 1 HI 1? 1 0 366 ,0 56 JOB CREW PROD EOl E 0 2 E 0 3 LAB HR COST EQUIPMENT I NDEX A ND type-number

_

1 8 56 5.0 t 0 0 1 6,90 lnl-ioi 2 1

1 8 57 7.0 1 0.0 2 8 i 90 lQ2-aP2. 2.1 .

1 8 58 12.0 1 0 0 4 12,90 1 n3- 1 03 2 1 108 |9 000 1 10 1 10 1 1 0 1 1 1 1 1 1 1 1 n 1 1 1 1 1 1 1 1 1 1 1 1 11 1 0 366 ,5 59 JOB CREW PROO EOl E 0 2 E 0 3 LAB HR COST EQUIPMENT INDEX A ND type-number

1 9 59 _ 46, Q. 1 0 0 l 5,80 104-104 16 1

1 9 60 62.0 1 0 0 2 7,80 1 05- 1 05 16 1

1 20 000 100100 1001 1 1 1 1

1

1 On 1 1 1 1 1 1 110111111 153 245 .5 61 JOB CREW PROD EOl E02 E0 3 lab hr cost EQUIPMENT INDEX A ND TYPE-NUMbER

_ - 20 6 1 26,9 6 0 J2_ 7 .5.8,90. 1 Q6-_1_09 .1 1 .... 2 6 3 1 4 1 20 62 17.7 4 0 0 7 49,10 110-113 1 1 2 4 3 1 4 1

7 21 1 00 1 00 1 00 1 00 l 00 l 00 1 00 1 1 0 1 1

0

1 101 101 10 0 366 .5 63 JOB CREW PROO EOl E 0 2 E 0 3 LAB HR COST EQUIPMENT index a nd type-number

2 1 63 67 ,Q 3 1 0 3 3 3.»S5

.

1 14-H6 5 i . 2 2 L2 _L. .... 21 64 1 00 .

0

4 2 0 4 51.40 U7-119 5 2 2 3 12 1 2 1 6 5 67,0 3 ... . 0 L.. 3 34,55 120-121 l 3 1 2 2 _ 2 1 66 100,0 4 1 1 4 52,10 122-124 13 1 5 1 2 3

1 07 22 0001001 00 100111111 I 001 1 1 1 1 1 l 101 111 1 1 92 305 1.0 67 JOB CREW prod EOl E02 E 0 3 LAB HR COST EQUIPMENT INDEX AND type-number

22 67 117,0 1 0 0 2 .8,45 125-126 1 1 1 15 1 . 22 68 83.0 l o n 2 8,90 1 27-1 27 2 1

1 09 23 1 00 l 00 1 00 110100100 100111111 l 101 1 1 1 1 1 0 366 ,0 6 9 JOB crew PROO EOl E02 E 0 3 LAB HR COST equipment index a nd type-number

23 69 __ 4,0 •_1 0 o 2 8,90 128-128 2 1 .... ... . 23 70 6,5 1 0 0 4 12.90 129-129 2 1 23 7 1 4.0 . 1 o o 6 . 19 , 30 130-1 30 2 2 . _ _ . _ .... . 23 72 3.0 1 0 0 1 6.90 131-131 2 1 110 24 100100100 10 0 1 l 0 1 10 1 1 n 1 1 l 1 1 1 l 1 1 1 1 11 1 1 0 366 1,0 73 JOB CREW PROD EOl E02 E 0 3 LAB HR COST EQU I PMENT index A ND type-number

JOB

24

CREW

73

.1.11 PROD

2,0

25 EOl

LOQUOJJJ

1.0

E.P 2 EO

_0

3

. lab1

. UL1

JD

hr

1 LI

9,70

cost

1 i 111111111

1

EQUIPMENT

32- ( 32

111-1 INDEX

17

1 111AND

1

1 TYPE

0 366

-NUMBER

,£... JT4

—

—
page: m3

25 7M 5,0 1001 5.80 133*133

25 75 .7,0 L 13. 0 2 . . . ZjJLQ..._ HAsl 3iL

U t 16 L
page 99 HIGHWAYS AND CORRESPOND ! NG zone's

ZONE 1 301 1 13 3 1 3 1 9 26 39 393 92 51 50 59 67 79 83

l • 6 2.0 2.0 2.1 2,0 2.1 1.0 1 .2 1 • 6 2.2 2.3 2.0 2,0

ZONE z 3*1 1 9 2 1 79 75 76 85 86 89 92 93

.5 8.1 .8 1 .9 1.3 2.1 2.5 2.0

ZONE 3 382 22 31 50 5 l 60 69 70 78 8 86 91 82 »X JZ.9 — . 1 *£_ 1.9 2 7*9 . J .X 1 .6 1 .5 zone 9 202 32 90 7 8 9 1 6 1 7 29 25 33 39 2.9 2.1 1.8 2.0 .9 1.0 2.2 1.2 1 .0 ZONE S 3 9 1 91 6 2jA

ZONE 6 2 1 5 __ 92 92 21

l • 6 ZONE 7 972 93 93 21

_ . ZON£_ „_ _JL ..._9 5j_. 99 96 21 29 28

1 .2 .5 1.2

ZONE 9 7 1 9 97 97 30

. 5 zone _ 19.— . 908 98 50 9 1 92 93

2.1 2.1 2.9

ZONE 1 1 889 51 53 21 22 30 2.6 .7 1.0

ZONE 1 2 SO S 9 60 7 1 2 3 9 5 6 2,9 2.3 1.9 1.9 2.0 2.0 1.9 ZONE 1 3 995 6 1 70 39 37 38 39 30 23 16 9 2 1

1 .5 _ 2 1 0_ . 2,0 . 2_ l0 2,8 2.3 2.0 2.0 1.0 1 »o_. zone 1 9 2 9 5 7 1 71 36

• 8 zone IS 5 72 78 28 39 97 98 57 66 79 2.7 3.0 1 . 1 l .3 JLU 2.^ ,9

ZONE 337 79 80 30 39

1 .5 1.2 zone 1 7 9 81 88 2 1 29 30 31 90 91 92 93

3.1 5 2.1 l . 6 2.1 . 2.0 . 2.i Q

.

_ZON£ LfL_ JiUL _8.?_ 9J 37_ 3J 2J_

2.1 • a t .a
page r *45 ZONE 1 9 2 1 0 92 98 37 *45 5*4 63 71 80 79

1 *.7 .. 2L*IL. _2*Q _ .3 <4.5 ZONE 20 223 99 105 *4 0 *49 <48 56 55 6*4 71 2.1 1 .9 2.1 2.3 1.0 2.2 1.2

Z ONf 21 373 1 06 1 1 1 79 80 81 82 73 7*4 2.1 2.1 _ .*4 _U7 1.3

ZONE Z2 21*4 1 1 2 lJi 1

*4 15 ... 15. - 17 - 18 ... 19 20

1 . 3 1 .9 2.0 1.9 1.9 2.1 2.6 zone 23 596 1 19 123 3 10 17 18 25 2.1

.

7 - 7 1 . 0 l . i . ? ZONE 2*4 *459 1 2*4 .12*4 . 7 2. *4 ZONE 25 637 1 25 125 28

_ZONE 2.6 A3! 126 126 78

.

*4 zone 27 973 127 127 7

- 7 ZONE 28 7 0*1. 126 132 2 2_ _i 8 1*4 . .5 2.2 .5 2.2 1 .*4
I

i

! 1

<M

I l

03-9- 1/1 TT (H T I I

i«n (MVNi/iNirr/Ti/i

i <M 9 Ptf 9| 9 r. 9 ^i 9

9 9 M Ifl'l N 3- 9 •«

-* 990ij 99 f«» 9 "O 9 Nj-Tjj-rsr 4

l T-rj-ir-erj-r

j; ji t

i 9* 9- *

| aj - »

ft

j-o Jn*

!i<l i"

: 9

N1R

IfM

99L/19999CS9

I I : •O — 9- T] r 9 9 9 9- 9 9 9 9* 9-1/19-99

9 -• 9 9t| 9 9 r* IN 9

I 9- — IN Ol’ 9 9 l/l (4 9-

l

:

i

! 9 - n l/il T N l/l 9 9

: i in»II« 9'« 9’ 9'»

9- 9- >0

9! 9 111

i i 9j "O 9* i

3- 4

j: t t

i

Xi X —

?t it m

it y mjTiAKTinsiir^

i°

!o

X X! 9- 9- X X

!

1

i

I — x x xi x x ^ x x -inTT'TTMfl?

j -* evj ' x irj x ® x x x

I ' — ( xin'Oixp^xxx

. n N| T Tl l/l T Ifl T ifl

i

• X- n-.TT|TTlTTT

1 ;

(D bJ - nTTlTTTTN

1 v

i

'

*t+ & TNT T, T T T T T

1 ~ \ >0 O >OTT^TTTTT

LJU

tfl LJ TTlTl/liTT^TT

tfc Q- X iTT TiflTTT^T

! U-

! O

r> iT'OT'C'Tl/ITTT

in

'CM < TTTTJTTTTT

O

i T T T: T T T

A* *

i 1 T T I

1/5 X

ji T N

j"

;

1 9! 9 -o

— Ui 9 9

Ui

i xj £

¥~ O —1 Ui >- D tj <,<w<t« 32 DW

999

I ! 9 9 rfi

at 9 ui

*-i > uj u c u 0 2 0

S Q«I<IN(1Q»N

« « — — — <N l/l 9

0 a 0 a

'O »s OO O'

® CO cm n - - e 9 • • «i ^ *1 * *t

tfl < n a

• m ^ n| • m fM *n> •

•

•® <s CO ffl in ^ rv co

lO 1/1 • (N n ? : 1

ts r4 rv N n t in o ifl n • m x •

4 <

«M X

o| f* t/l • «0

N eo n o •

t

•

X X

i>l n

n o n

n - c

• € -3

d * n • * 9 • IN • •

. r4 r*> K

<• Ml

<B N N fl(

«*1 9 tf! - . . .

Ifl o

j

i n * n a

X *1 m xi

tfl lA «

tfl 'll b- n 1/1 n » •

Ifl 9 «> «l •

• 4 • • 9 91 9 f:9t 9

tfl « s e

s N n< n

tfl tfl 9' tfl

«*! i* ci ci nn d

Cl 91 tfl 4 MS »

: s ;a

1 « « «

• •: * * fNcuoiiMMiiNNiN

NCI»(tfl'<|Nffl*'

It tfl JN N *01040 i

fsi — a o • 1/1 Lft 9

• •4*9 • 4 •

-1 ---- Nn 9| tfl '•SOS
PAGE J 47 RECURRING JOB PROTOTYPES

2 0 -16*0 CL 994 £L 0 1 1 1 i 0

2 8 2 .10 495 0 0 4 7 366 0 1

1

30

1 8 2 .10 495 - 0 0 *L 7 166 -JO- _ 2 30

4 8 2 . 10 495 0 0 4 7 366 0 4 30

.... .*40 4.55 -J0_ -JO- _4__ 7 166 n 9 i

. 30

6 8 2 .10 295 0 0 4 7 366 0 222 30 108 1 4-0 0*00 991

8910tt

1 1

1

102

I I 1 m

.30 301 5.0 0 556-

. 1 0 2 23

--*40 - 371-

26

1

-0—

4 0 79

0

0

12

\ $

1 1 1 10?

33 ,20 50

4*00 959 -

1,00 459

7

? 0

- o

02

1 -1

s 0o

4 20

in ? n 14 102 3 7 0 2 7 7 0 30 20 -15- 102 1 4.04 101— 83 -0- 2

—4

7 0- 10 20 - 101 3 .70 *4 95

* 1-0 -244

38 44- 60

—5

30 —4-

20

-20- 102 3 2,00 202 33 0 2 7 7 0 30 20

101 3 lf> 74 Q_ *4-5 —0- 2 j 60 o 10 0 1113 , 1 0 382 50 0 0 l 5 0 4 20

411-1 - r 1-C) JO

4

4 o_ _ -0- -_L- B o 14 20 . - - 102 3 3.00 3 6 0 2 7 7 0 30 20

24 104 3 3,10 382 0 0 2 3 10 0 180 40 2§ 4 14—1 . , 2n u 3 \ 1— g 0 u 20

26 111 3 ,10 459 7 0 0 1 5 0 4 20

7 7 til l.. ,4 0 IS 1- 7 4- - n 1 5 0 4 20

28 101 3 1.40 5 39 0 2 I 60 0 30 0 .2-9— . 1 11. 1. - *4_0 958 2 1 n 0 j 5 Q_ . 4+ 20

30 1113 .10 337 30 0 0 1 5 0 4 20

31 141 3 - * 10 408 4 1 0 0- 4- 5 41- - 4 20

32 102 3 2.00 5 48 0 2 7 7 0 30 20

11 4 11-1 .10 414 0 20

34 102 3 1,00 414 37 0 2 7 7 0 30 20

-IS— . 101 -1. — .-*_70 704 8- 0 2 l 60 0 30 2 0 36 10 1 3 ,70 337 30 0 2 1 60 0 30 20

34 101 1 .30 373 73^ 0 2 1 _6Q_ .0 30 . 20

38 10 2 26.00 301 0 0 8 30 30 153 40 30

39 40 2 45.90 202 0 0 - 8- . 40 30 451 -.40 10 40 10 2 7.90 3 0 0 8 30 30 153 40 30
I c|

;0 3

o o-

;

o

I cmI

1 10 n

!

I

I

I

1

i o~ r«- k ®

1

cotococpcciiiccaiaitEcocotDcx) CO CO CD £0 O' O- I - NNNIM N OOOOOOOOOOOO-O'O-O' O- l/I ill lil ri

io —

I- i CO CO coi *cO

—» o csr

! « k n « is ionT

\ ‘

; esi 10 0,0

:o oio

» • • c ojo

CD «C| *Q

1 K mi t

-ol ^ t -

i£) \ in O O

m y ^

d n n

bJi K CD 3-

fSI

o|oo|o

c5ooio

«j — O

<vj — im| N NN;N

y y y ’ M\

i£ S» « — _ii fvf x <;

j

j, ^-N«nj-N«oo NT'OttOTCOCiO^sr^

o

K N K O "O 'C n «*> H

h-f-fvf»r<r'isr-if»r»Nrs

IN «N| CN INj «N m

-c -c -o -d e c -C M> -d c'iq*nHc*»ni'»«'*«'»rj

f* *j J

-O >0 O O

ey ry t*i s*i

!

; N K ^ N

1

inininincminininincminis in t\|

^^-<onI in -0-0 0 —

o q m ai - - -

co a N 3 -o o 3 -o-o| fl fl m O O

— Kh-fvNNNMn-rSNN

CD- ©“ O -C

, >© S5 rm m

O CD o N

<o >o ^ PN n O n n

o o o p

m rn m m

© O T ®

O — — —

f4c4coaiyn4-*-4 — —I y y y y y; y y y y

1 y yj

* ^

'O t4

3-nO‘-'OflN©n

rvyjrv ! no- ® t^T

® - N T >J) T O —* —

tvjNnrtnNi/iNy

— y o in

rsi n

<N rsi fsi «si fM y y is y y- yM N - -

yj y

_4 _ _ >Oj 1

s C o! 3-r^r^<q«MN 3--<

ci 3 f» — I I n N

pj N 3. I

31 3 <*I <*1 3-3- 3t I J- » T I -Ol ncirtcicinonn

d o o o cj

IN -«| -€ -II J P( N N

«*i o

o d

o d

• * O Q

co i/t

i/iromin-<NiuiTM «*i r-t -Mmentoon-NN

( IN 3f IN cl «•> 3, 3 «1 Cl JJ N !>, oaooooodoooqoo oooaoooooooaco

OOOOOOOOOOOOOO - 3iOOCIBCOTCI~h 3 -O 3- 3- — 31 3 l/l , IN -t 3 til NMNWNMNMNN

ifiininini/iini/jini/iin

3 4 o- 3J - in in d

Will 3 |J o o o a 0000 • • • 4 c o o o

-o n -~ <i 3 CM — IN

IN IS) IN N fN IN u> 1/1 in iri in i/i

o d in o o o o

o

• y o q o o o o a o o y o o o o

• ••«••«

m m *0 o o

<s -* • ~-

CVi <v$ m -4 o o. o

•

I 'C <1 O Q N N N — O : — D

o o in in

o* a*

! y y OOOO o o — —

•i m m m O <1 OWN

(SJ GO CD

— ivif^y it ® s q d> o — S3

inmiAininmintnin

O" O' O' O ^ ^ ^ ^ O' 3. 3 3' 3 31 3 3l 3 INI

1 :

; 1 ooaoooooo

INCMIN,ININININININ;

co co coj cc a; co co a> ®l

OOOO

o O o d

O CS O 0

O -c — o o a

«n n n o d o o c C) Cl Cl

3

CO 31 CO CO o q o O

CJ Cl Cl c)

I

I CD-,

r-®0-0—-fNC13l/l-O|sC0! 0-0— INCS3 31-0

I'll'll'l 33 33333 3 3|7ini«lftinifl|l(llfl
PAGE 1 9 *

57 102 3 5,00 556 10 3 2 7 7 0 1 8 5 a 111.3 .40 _2 2L3 40 ...9. . 0. - 1 . 5 0. 25

59 111 3 ,10 223 90 5 0 l 9 9 25 60 111 3 ,40 243 90- - 6 0 1 43 8 25

6 1 111 3 . 1 0 373 79 39 0 1 5 0 25

62 111 3 *4 0 311 79 37 0 i 9 .9 2 5 63 111 3 .10 373 79 38 0 l 1

3

8. 25 ,20- 50 - 7 13 _n ...... _4 5. . 0- 25

65 1 1 1 3 ,20 50 7 30 0 1 9 9 25

6 6 1 11 4 - , ?n 50... J 2 3 - 0. l | 1 8 2 5 67 102 3 1,00 859 7 16 2 7 7 0 18

— 72

7379

75

7 A 77

7 8 79*o- 81 A2_ 4-02.- 2

83 1 02 3 84-104

85 1113

84 144 3 87 1113

89 1113

20- 1 J 4 3

91 1113

92-- 444 4

93 1113

29 4-Oil

1 .00 859

1.00 301 — MO 995

.10 219

,40 2M*

,10 219

2.00 202

,30 210 —,4 0.442

.10 382

.10 38 2

95 1113 ,10 958 21 63 0 1 5 0 25 94 14 1 2 ,10 958 24 1 1 0 4 9 9 25

97 111 3 .10 850 21 80 0 1 13 8 25

98 1113 .10 337 20 .79. 0 1 5 0 25

99 Ml 3 ,10 337 30 80 0 i 9 9 25

111 3 .in 337 30 . 8? --0 1 . 1-1 8. 25

101 111 3 .10 908 91 98 0 1 5 0 25 -402- l M- 2 MO 908 84 54 0 1 9 9 25 103 1 I 1 3 .10 908 91 55 0 1 13 8 25

4 0.9 402 2 2-.00 5 9g 69 2 7 7 0 1 8 105 11 1 3 .10 919 37 71 0 1 5 0 25 _104_ J44_J .40 -.942— 37 79- .0 _JL_ _9_ 25

107 111 3 .10 919 37 80 0 1 13 8 25

-443 ft- 102 2 4.00 918. 2 7 84 - 2 —_ 7 7 0 19 109 101 3 ,70 709 8 82 2 i 60 0 1 3

. 4.4 0 - 40 4 3 .70 337 20 73 2i 4 40- 0 1 3 HI 101 3 .30 373 73 79 2 1 60 0 13
om

o o oo a oooo ; !

!3 2:

I • °

* Q

l • uj 3 2

• C

• -

• o

• a

• UJ

3 0- O O

• Q. • O

•• o

• UJ •• tn

! •

! • UJ • K

• o

o o oi o o

Mfl ON N

i» (i o to a

^ n m - a N T 'O T

of o r^S o r4 o « q ^ k

•| • i • • < n -oi in i/i!n m

-•[ «n o0,11) ©jo o

M-! — *l| W i rv m oj -• i

o Q• •

•4

o a

• i

o a

o o

o a

IT 3"

O 0-0- 0 0

• •

cd o — *i *y t qy

c N ffl • • « •

•n i n

— — 4

lil T O -

CM ® N « »

o as a -o • • 4 • CNN® «*i o -4 »

CM

® O CO CM

ill <4 o

a o a o

- • 1 *

i a o J

q o

c*i o ® a- c . c •

l/l O -« 3

in o q 0

3 • 4 • o o cc

CM CO O —

K

1** Ihj CD O' o ai Ii » »! in ;

i

|

taJ IO IZ - “

1

“ !

1

i ; i

1 S

IT

O r

« D

s: -

o o o o o

;

. i j

I 1 j

I

j H o; o o o a - i

i ! '!

i

I

1

o o o o a

j

I

i

I aoooii*4

i

j Jo o o

!

i

-* 0 0 0 3-0

H i ojoa to

i o o cj oqj

i

I I *J. o. ® o o o o o qoaod

!

I

Ml o o o o o

l/| o o q

1

rl

c^ocj

J —1--

J

IM -o O - «

! 1 j Q O O O O

in oi 3

- 3-oo

t-j 3 CM CM 3| in -! • * • 3 q is m N — at

i i

i i oooo o !

o| o d a o

J

a o a 3

<» — 01090 iO

! !

; i it o aj a in

I

! I

i

i

i

’ a o a o !<m “

! I*

; | a o o o ; o

I !

j Oooo 3-

I

|

I OOOO ! 9~

j cjo

I

I

i oooo

I 4

oj o o| o

a o a o

oooo o

qoqo o OOOO i o

Lfl o a o i —

c o o o oq

O *M ^

O' O' CD "*iSS°:

y! 4 o

NBS TECHNICAL PUBLICATIONS

PERIODICALS

' JOURNAL OF RESEARCH reports National

Bureau of Standards research and development in physics, mathematics, chemistry, and engineering.

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.

Published in three 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, $6.00; for- eign, $7.25*. • 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,

$2.25; foreign, $2.75*. • Engineering and Instrumentation

Reporting results of interest chiefly to the engineer

and the applied scientist. This section includes many

of the new developments in instrumentation resulting

from the Bureau’s work in physical measurement,

data processing, and development of test methods.

It will also cover some of the work in acoustics,

applied mechanics, building research, and cryogenic

engineering. Issued quarterly. Annual subscription:

Domestic, $2.75; foreign, $3.50*.

TECHNICAL NEWS BULLETIN

The best single source of information concerning

the Bureau’s 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. Annual subscription: Domestic,

$3.00; foreign, $4.00*.

•Difference in price is due to extra cost of foreign mailing. Order NBS publications from:

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

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

CLEARINGHOUSE

The Clearinghouse for Federal Scientific and

Technical Information, operated by NBS, supplies

unclassified information related to Governmentgenerated science and technology in defense, space,

atomic energy, and other national programs. For

further information on Clearinghouse services, write:

Clearinghouse

U.S. Department of Commerce

Springfield, Virginia .22151

Superintendent of Documents

Government Printing Office

Washington, D.C. 20402