A.6.
A FORTRAN IV Listing of Program
DAMBLD
205
IF (T .GT. 1) GO TO 120
* 120
PVEARNd) - IRET/((1*P)»*T)-TAOPCS/<(1*R)·*Τ)-IMV(KX)/((1^P)««T)
A 121
GO TO 130
Δ 122
120
PVFARN(T) = PVEARN(TOT)•IRET/((1*R)«*T)-TAOPCS/((1*R>««T)-INV(KX)/
A 123
1<(1ΦΡ)··Τ)
A
I?
4
CALCULATION OF ANNUAL PUDGETARY CONSTRAINT
A 125
130
AVCAP(Tl) = AVCAP(T)*((IRET-TAOPCS)/((1>R)*»T))-INV(KX)
A 126
GO TO 180
A 127
U0
OPTIME = .FALSE.
A 128
CALL SPEOAT (KX)
A 129
150
IPET = SUMA
A 130
BNO(SSt T) = 0.
A 131
IF (T .GT. 1) GO TO 160
A 132
PVTARN(l) = IRET/< (l*R)"T)-TAOPCS/((l*R)**T)
A 133
GO TO 170
A 134
160
PVFARN(T) * PVEARN(TOT)•IRFT/((1*P)»»T)-TAOPCS/((1*R)»»T)
A 135
C«#»« CALCULATION OF ANNUAL BUOGFTARY CONSTRAINT
A 136
170
AVCAP(Tl) = AVCAP(T)*((IRET-TAOPCS)/((1*R)*»T))
A 137
1R0
Τ = T*l
A 138
TOT = T-l
A 139
IGORET(TOT) = IRET
A 140
HI(5?) = HI(52)*2
A 141
HK54) = HK54)*?
A 142
IF (Τ .EQ. 2) KICKS = MK54)
A 143
IF (HK52) .GT. ?7) HK52) =30
A 144
IF (HI(54) .GT. 55) HI(54) =60
A 145
IF (T .GT. TMAX) GO TO 190
A 146
GO TO 50
A 147
190
CONTINUE
A 148
PMAX = PVEARN(TMAX)
A 149
PRINT 450
A 150
PRINT 350
A 151
PRINT 360
A 152
PRINT 370· I?
A 153
PRINT 380
A 154
00 200 J s It TMAX
A 155
00 200 I = LLt
A 156
IF (M(It J) .FQ. J) PRINT 440t It J
A 157
200
CONTINUE
A 158
PRINT 670· PVFARN(TMAX)
A 159
PRINT 450
A 160
PRINT 660
A 161
PRINT 500
A 162
PRINT 390
A
163
PRINT 650· (((BND(It J))t I = LLt SS)t J = It 50)
A 164
PRINT 450
A
l6S
CALL BAKTRAK
A
166
£#··• SUMMARY OF OUTPUT RESULTS
A
167
PRINT 450
A
168
PPINT 400
A
169
PRINT 510
A
J™
PRINT 710
A
171
PRINT 510
A
\l\
PRINT 450
A
173
PRINT 660
A
17 *
PRINT 500
A
175
PRINT 390
A
176
PPINT 650t (((RNOUt J) ) t I = LLt SS)t J = It 50)
A 177
PRINT 620
A
\H
PRINT 450
A
179