A.6. A FORTRAN IV Listing of Program DAMBLD
207
500
FORMAT
<55Χ·22(1Η*))
A 239
510
FORMAT ( C34X·23(1 Η*))
A 240
520
FORMAT
<35Xt20(1H»))
A 241
530
FORMAT
<29X>36(1H*>t2/>
A 242
540
FORMAT
<5lXt*0PTIMISATI0N OF THE EXPANSION OF**/*50X »*AN EXISTIN
A 243
16 WATEP RESOURCES SYSTEM*)
A 244
550
FORMAT
C10Xt*EXISTING RESERVOIRS*)
A 245
560
FORMAT
<29Xt*RESERV0IR
REPRESENTED
CAPACITY
A 246
1
ANNUAL*·/32X·*NUMBER
BY
NODE
(ACR
A 247
2E-FT.)
OPERATING COSTS*)
A 248
570
FORMAT
(32XfI5f14XtI5f09XfF10.0t12XfF10.0)
A 249
580
FORMAT
(4/*15X**NEW RESERVOIRS*)
A 250
590
FORMAT
( lXt*RFSERVOIR
REPRESENTED
CAPACITY
A 251
1
REQUIRED
ANNUAL
MAX*ANNUAL
A 252
2
USEFUL**/* 3Xt*NUMBER
BY
NODE
(A
A 253
3CRF-FT.)
INVESTMENT
OPERATING COSTS
R
A 254
4ETURN
LIFE A 255
600
FORMAT
( 1X*I5*15X*I5*14X*F10.0*10X*I10*10X*F10.0*13X*I10*13X*I
A 256
15)
A 257
610
FORMAT
<2/*7X**FINANCIAL DATA FOR YEAR*.13)
A 258
1
AXIS*)
A 259
620
FORMAT
<2/·4Xt*SINCE ALL THE ELEMENTS ARE EQUAL TO ZERO·WE THUS
A 260
1 HAVE SEARCHED THROUGH EVERY BRANCH OF THE TREE*)
A 261
630
FORMAT
(/·4Χ·*AVAILABLE CAPITAL =*«F10.0t*DOLLARS*)
A 262
640
FORMAT (1X*8 A 263
650
FORMAT (1X·9 A 264
660
FORMAT (3/»58X#*THF BOUND MATRIX*)
A 265
670
FORMAT (2/tllXf*THE TOTAL PRESENT VALUE OF EARNINGS =*tF10.0.*DOLL
A 266
1ARS*)
A 267
680
FORMAT
<5/·38Χ.*TOTAL EARNINGS*)
A 268
690
FORMAT
<2/*18Χ·*ΤΗΕ TOTAL PRESENT VALUE OF NETT EARNINGS =*.F10.0
A 269
l«*OOLLARS*>
A 270
700
FORMAT
<2/«18Xt*THE SYSTFM WAS OPFOATED FOR**I3»*YEARS*)
A 271
710
FORMAT C (37Xt*FlNAL RESULTS*)
A 272
END
A 273-