206
Appendix A. Computer Program Listing and
Instructions
PRINT 460
A 180
PRINT 530
A 181
00 210 J « It TMAX
A 182
00 210 I = LL* MM
A 183
IF (M(It J) .FQ. 1) PRINT 440» I» J
A 184
210
CONTINUE
A 185
PRINT 680
A 186
PRINT 520
A 187
PRINT 690» PMAX
A 188
PRINT 700» TMAX
A 189
PRINT 450
PRINT 410
A 190
PRINT 420
A 101
220
DO 230 Τ = 1* TMAX
A 192
DO 230 I R LLt MM
A 193
IF (Μ(Ιι Τ) ·ΝΕ. 1.) GO TO 230
A 194
IF <Μ<ι· Τ) .FO. 1) IS = I
A 195
Μ(Τ » Τ) = 0
A 196
GO TO 240
A 197
230
CONTINUE
A
198
GO TO 250
A 199
240
OPTIME = .TRUE.
A 200
CALL SPEOAT
(IS)
A 201
GO TO 220
A
202
250
CALL OLERSEN
A
203
TOTPPT = .FALSE·
A 204
CALL PRINTEX
A 205
PRINT 450
A 206
PRTNT 430* Rt KICKS
A 207
RFTURN
A 209
c*«** FORMAT STATEMENTS
A 208
c
A 210
260
FORMAT
(10/)
A 211
270
FORMAT <
58X**THF PVRAR MATRIX*)
A 212
2*0
FORMAT
<55X*20(lH*))
A 213
290
FORMAT (2/*lCX** COLUMNS CORRESPOND TO NEW RESERV0IRS<6 TO 14)*)
A 214
300
FORMAT (10X** ROWS CORRESPOND TO YEAPS <1 TO 50)**2/)
A 215
310
FOPMAT (5/*29X**THE INITIAL NETWORK rf)NFIGURATION*)
A 216
320
FORMAT
(26X*39(lH*)»2/)
A 217
330
FORMAT (5/*l6X**TME OPFRATING POLICY FOR THE ORIGINAL NETWORK CONF
A 218
1IGURATION*)
A 219
340
FORMAT <13X*64(lH») »//)
A 220
350
FORMAT (2/»l9X»*INTERME0IATE RFSULTS*)
A 221
360
FORMAT
(19X»26(1H»))
A 222
370
FORMAT <4/»l6X»*FEASIRLE SOLUTION NUMBER**I4)
A 223
380
FORMAT
(13X*35(lH*)*2/)
A 224
390
FORMAT (2/*lCX**COLUMNS(l TO
9) CORRESPOND TO MEW RESERV0IRS(6 TO
A 225
I 14)*./*10X**COLUMN 10 CORRESPONDS TO NO NEW RESERVOIR**/*10X»*ROW
A 226
2S CORRESPOND TO YEARS <1 TO 50)**?/)
A 227
400
FOPMAT
(26/)
A 228
410
FORMAT (4/*28X**THC FINAL NETWORK CONFIGURATION*)
A 229
420
FORMAT
(25X*37(1H»)*2/)
A 230
430
FORMAT (2X**INTERF^T RATE =**F12.6»2x**HI(54) FOR (T =2)
=**I7)
A 231
440
FORMAT
(13X**0AM«»13»* WAS CONSTRUCTED AND BEGAN OPERATION IN YE
A 232
1AR*»I3)
A 233
450
FORMAT
(1H1)
A 234
460
FORMAT
(5/»?9X»*TIMlNG OF CONSTRUCTION OF DAMc«)
A 235
470
FORMAT
(45X»44(1H*))
A
236
480
FORMAT
(5/)
A 237
490
FORMAT
(7X*25<1M»))
A 238