178
Appendix A. Computer Program Listing and
Instructions
.30
T>1
Ν
NO
BND(I,1)>
J
PVBAR(I,1)+BIG0S
Κ)
lYES
BND(I,T) -
PVBAR(I,T)+
PVEARN(T0T)+BIG0
G0DBAR(I,J)-PVBAR(I, J)
I « LL,MM
J »
Ι,ΤΜΑΧ
I-KO.SS
i
YES
CALCULATION OF BOUNDS
FOR RESERVOIR I
E.G. IF I« 6
IRA -
6
IRB ·
7
IRE « 8
1
1
J-T,TMAX
1
1
J-T,TMAX
f
< f
GODBAR(lRB,J) « 0·
GODBAR(IRE^) -
0.
<3
Appendix A. Computer Program Listing and
Instructions
.30
T>1
Ν
NO
BND(I,1)>
J
PVBAR(I,1)+BIG0S
Κ)
lYES
BND(I,T) -
PVBAR(I,T)+
PVEARN(T0T)+BIG0
G0DBAR(I,J)-PVBAR(I, J)
I « LL,MM
J »
Ι,ΤΜΑΧ
I-KO.SS
i
YES
CALCULATION OF BOUNDS
FOR RESERVOIR I
E.G. IF I« 6
IRA -
6
IRB ·
7
IRE « 8
1
1
J-T,TMAX
1
1
J-T,TMAX
f
< f
GODBAR(lRB,J) « 0·
GODBAR(IRE^) -
0.
<3