A.6. A FORTRAN IV Listing of Program
DAMBLD
221
C*#»* FINO ANOTHER OUT OF KILTER ARC
J 114
AOK = 0
. J 115
GO TO 20
J 116
200
PRINT 240· A
I 117
PRINT 260· ARCS
J 118
GO TO 220
J 119
210
PRTNT 250· AOK
J 120
220
INFES = .FALSE.
J 121
230
CONTINUE
J 122
RETURN
'J 123
C
J 124
240
FORMAT (//·*
LOWER BOUND IS HIGHER THAN UPPER BOUND FOR ARC *·Ι5
J 125
1)
J 126
250
FORMAT (//**
ARC*tI5*» IS OUT OF KILTER*)
J 127
260
FORMAT (//·* NUMBER OF ARCS < ACCORDING TO NETFLO ) =*I5)
J 128
END
J 129*U*ROUTINE EXTPAT
ς
««««««««««««««««««««««β
F
2
C*«*« DIMENSION . COMMON • INTEGER · REAL AND LOGICAL STATEMENTS
F
3
COMMON /UNO/ 1(2^0)· J(250)» COST(2^0)« LO<250). FLOW(250)* PI(250
F
4
1)
r
5
COMMON /UNOS/ A0PCST(20)
F
6
COMMON /UNOSA/ HI(300)
r
7
COMMON /DOS/ NODFS. ARCS• INFES• IPET
F
*
COMMON /TRES/ DEPT. DFLIM · LL* MM, Ν. ΡΜΑχ, ρ, PI, SS. SUMA. Τ· TM
F
9
1AX. TnT
10
COMMON /CUATRO/ AVCAP(SO)* CAPAC(20). INV(20)« IIFE(20)* MAR(20)»
F
11
1NOMO(20). NRFS(20). PVFARM(50)
F
12
COMMON /CINCO/ OPTIME
Ε
13
COMMON /SEIS/ BNO(?0. 50)· IGOQET(50>* ΡΕΡΡΑΡ(20· 50), PVBAR(20» 5
F
14
10)
F
15
INTEGER SS
F
)6
INTEGER Τ· T ; "AXT TOT
F
17
LOGICAL OPTIME
F
18
C«»*« INITIAL CONDITIONS
F
19
OPTIMA = .TRUE.
Ε
20
IGHRFT(l) =0
F
21
MM
= 14
F
22
Ν = S
F
23
^ = 0·04625
F
24
t>l =
ft.l
^25
SS
=
MM*I
F
26
Τ = 1
F
27
TMAX =50
F
28
CUMOIv/ = 0.
F
29
LL = N*l
F
30
SUMA =0
F
31
C**«« DATA ON EXISTING RESERVOIRS
Ε
32
READ 10· (NRES(K), NONO(K), CAPAC(K). AOPCST(K). Κ = 1· Ν)
F
33
C**** DATA ON POTENTIAL NEW RESERVOIRS
F
34
READ 20· (NRES(K), ΝΟΝΟ(Κ)· CAPAC(K). INV(K)» MAR(K)· AOPCST(K)* L
F
35
1IFF(K)* Κ = LL* MM)
F
36
C««»* FINANCIAL DATA
Ε
37
READ 30· AVCAP(l)
F
38
C«*»« FORMAT STATEMENTS
F
39
RETURN
F
40
C
F
41
10
FORMAT
(2I5.2F10.0)
Ε
42
20
FORMAT
(2I5.F10.0*2I10»F10.0*I5)
F
43
30
FORMAT
(F12.2)
F
44
END
F
45-