A.6.
A FORTRAN IV Listing of Program
DAMBLD
215
SUBROUTINE SPEDAT
r,
?
(;•••• DIMENSION · COMMON · INTEGER » REAL AND LOGICAL STATEMENTS
G
3
COMMON /UNO/ 1(250)· J(250)t COST(250)f LO(250)« FLOW(250)t PK250
G
4
1)
G
5
COMMON /UNOSA/ HI(300)
G
6
COMMON /CINCO/ OPTIME
G
7
INTEGER HI
G
8
INTEGER FLOW
G
9
LOGICAL OPTIME
G
10
IF
.EQ. 6) GO TO 10
G
11
IF
7) GO TO 30
G
12
IF
.FQ. 8) GO TO 50
G
13
IF
.EQ. 9) GO TO 70
G
14
IF
.EQ. 10) GO TO 90
G
15
IF
.EQ. 11) GO TO 110
G
16
IF
.EQ. 12) GO TO 130
G
17
IF
.EQ. 13) GO TO 150
G
18
IF
.EQ. 14) GO TO 170
G
19
10
IF ( .NOT. OPTIME) GO TO 20
G
20
HII13) =30
G
21
LOU3) =30
G
22
HK47) = 30
G
23
HK57) = 60
G
24
HK101) =30
G
25
HI(111)=30
LO(111)=30
GO TO 190
G
27
20
MK13) =0
G
28
LOU3) =0
G
29
ΗΠ47) =0
G
30
HK57) =0
G
31
HK101) =0
G
32
ΗΠ111) =0
G
33
LO(111)=0
GO TO 190
G
34
30
IF ( .NOT. OPTIME) GO TO 40
G
35
HK13) = 25
G
36
LO(13) =25
G
37
HK47) = 27
G
38
HK57) = 50
G
39
HK101) =27
G
40
HI(111)=25
LO(lll)=25
GO TO 190
G
42
40
HK13) =0
G
43
L0(13) =0
G
44
HK47) =0
G
45
HK57) =0
G
46
HK101) =0
G
47
HKlll)
=0
G
48
LO(111)=0
GO TO 190
G
49
50
IF ( .NOT. OPTIMF) GO TO 60
G
50
LO(13) =20
G
51
HI(13) = 20
G
52
HI(47) =24
G
53
HK57) = 40
G
54
HK101) = 24
G
55