A.6. A FORTRAN IV Listing of Program
DAMBLD
213
IF (J ·ΕΟ. T) GO TO 230
C 120
GODBAR(IRA* J) - 0.
C 121
230
CONTINUE
C 122
240
KX = LL
C 123
LM =
>1
C 124
00 250 L = LM. MM
C 125
IF (GOOBAR(KX * TEQ) .LT. GODBAR(L * TEQ)) KX = L
C 126
250
CONTINUE
C 127
BND(I * T) = BND(I• Τ)•GODBAR(KX• TEO)
C 128
DO 260 J = Tl* TMAX
C 129
GOOBAR(KX* J) = 0.
C 130
260
CONTINUE
C 131
TEO = TEQ*1
C 132
IF (TEO .GT. T^AX) GO TO 280
C 133
IF (KX .EQ. 6) GO TO 130
C 134
IF (KX .EQ. 7) GO TO 140
C 135
IF (KX .EQ. 8) GO TO 150
c
136
IF (KX .EQ. 9) GO TO 160
c
137
IF
.EQ. 10) GO TO 170
c
138
IF (KX .EQ. 11) GO TO 180
c
139
IF (KX .EQ. 12) GO TO 190
c
140
IF (KX .EQ. 13) GO TO 200
c
141
IF (KX .EQ. 14) GO TO 210
c
142
270
CONTINUE
c
143
280
IF (I .EQ. SS) GO TO 290
c
144
KO = KOM
c
145
TEO = T*l
c
146
IF (TEQ .GT. TMAX) GO TO 290
GO TO 110
c
147
290
CONTINUE
c
148
RETURN
c
149
END
c
150SUBROUTINE READIN
c
«««««··*·»««·»«»»«««»«»
Β
C#*«* DIMENSION * COMMON • INTEGER * REAL AND LOGICAL STATEMENTS
COMMON /UNO/ 1(250)* J(250)* COST(250)* L0(250)» FLOW(250)* PI(250
1)
COMMON /UNOSA/ HI(300)
COMMON /DOS/ NODES* ARCS* INFES* IRET
INTEGER ARCS* AARCS* COST* FLOW
INTEGER HI
READ 10* NODES* ARCS
(I(M)* J(M)» Μ = 1* ARCS)
(COST(M)* Μ = 1* ARCS)
(hI(M)f Μ a: 1 * ARCS)
1* ARCS)
= 1* ARCS)
READ 20*
READ 30*
READ 30*
READ 30*
READ 30<
(LO(M)* Μ
(FLOW(M)* Μ
C**>«*
10
20
30
FORMAT STATEMENTS
RETURN
FORMAT
FORMAT
FORMAT
END
(215)
(8(16*14))
(8110)
D
2
D
3
η
4
D
5
D
6
D
7
D
8
D
9
D
10
0
11
D
12
D
13
D
14
D
15
D
16
D
17
D
18
D
19
D
20
D
21
D
22-