A.4. Block Diagrams for the Important
Routines
AAA.
Program
DAMBLD
START
INITIALIZE THE
TIMING MATRIX
M(KX,T)=0
KX=LL,MM
T=l ,ΤΜΑΧ
J >
INITIALIZE
IZ.YO
CALCUL/
PVBAR
I=LL,f
T= I, 1
VTE
(1,0)
ΓΜΑΧ
1
CREATE A PERMANENT
RECORD OF PVBAR
PEPBAR(I,J)=PVBAR(I,J)
I=LL,MM
T= I,ΤΜΑΧ
T0TPR1 = .TRUE
T=1,TMAX
1
Tl = Τ
TOT = Τ
>
+1
-1
CALCULATE THE TOTAL
ANNUAL OPERATING
COSTS
TAOPCS = TAOPCS +
AOPCT(K)
Κ = LL.MM
OPTIME = .TRUE.
SWA = LRET
CHOOSE THE LARGEST
BOUND
BND(KX,T)
AMAXI(BND(I,T),1>LL,MM)