A.6.
A FORTRAN IV Listing of Program
DAMBLD
209
c«««« ION ADDED IN YEAR Τ AND SUBSEQUENT YEARS
B
60
80
IF ( .NOT. SIMPLE) 60 TO 120
Β
61
90
IS = 0
R
62
DO 100 I = LL« MM
Β
63
IF (ISTdt TU) ·ΕΟ· 0) GO TO 100
Ρ
64
IF (iSTdt TU) .FO. 1) IS = I
Β
65
IST(I, TU) = 0
Β
66
100
CONTINUE
Ρ
67
IF (IS .EO. 0) GO TO 110
Β
68
OPTIME = .FALSE.
Β
*9
CALL SPEOAT
(IS)
Β
70
RETURN KNOCKED OUT PARTS TO THEIR FORMER POTENCY
Β
71
OPTIME = .TRUE.
Β
72
CALL KNOKIN
(IS)
Β
73
110
TU = TUd
Β
74
IF (TU .LE. TMAX) GO TO 90
Β
75
SIMPLE = .FALSE.
Β
76
£«««« CALCULATE RETURN BEFORE NEW PARTS ARE ADDED AND MODIFY SOME ARCS
Β
77
120
H (52) = 15*2«(T-1)
Β
78
HK54) -
35*2»
79
IF (HI(5?) .GT. 27) HK52) = 30
Β
80
IF (HK54)
.GT. 55) HK54) = 60
Β
81
IF (T .GE. 20) GO TO 130
Β
82
CALL OLERSEN
Β
83
130
SUMA = IRET
Β
84
C
ADDITION OF NEW PARTS
Β
85
IF (KX .EQ. SS) GO TO 160
Β
86
IF
(HMD( X· Τ)
.LT.
0.1)
GO TO
160
Β
87
OPTIME = .TRUE.
Β
88
CALL SPEOAT
Β
39
CALL OLERSEN
Β
90
£«««« CRITERION FOR ADDING
(WE THINK) TFMPORARILY
Β
91
IF (IRET .LE. SUMA) GO TO 150
Β
92
140 IS = 1· SS
Β
93
IF (IS .EQ.
ISTdSt T) = 1
Β
94
IF (IS ·ΝΕ·
ISTUS* Τ) = 0
Β
95
140
CONTINUE
Β
96
HND
.
T)
=
0.
Β
97
IF (T .EQ. 1) PVEARN(l) = (IPET-TAOPCS)/((1*R)*»T)-INV
)/((1*R)*
Β
98
1*T)
Β
99
PVFARN(T) =
PVFAPN(TOT)*IRET/((1*R)·»Τ)-TAOPCS/((1*R)»«T)-INV(KX)/
Β 100
1((]*R)«*T)
Β 101
£«««« CALCULATION OF BUDGETARY CONSTRAINT
Β 102
AVCAP(Tl) = AVCAP(T)4((IRET-TAOPCS)/((1*R)»*T))-INV(KX)
Β 103
OPTIME = .FALSE.
Β 104
CALL KNOKIN (KX)
Β 105
TO 180
Β 106
<:•·•* REVERTING TO OLD SCENE
Β 107
c*««« NO CHANGE IN 1ST
Β 108
ISO
OPTIMF = .FA! SE.
Θ 109
CALL SPEOAT (KX)
Β 110
160
170 IS = 1· SS
Ρ 111
ISTUS* T) = 0
Ρ 112
170
CONTINUE
Ρ 113
RND(
·
T)
=
0·
Β 114
RET = SUMA
Η 115
IF (T .EQ. 1) PVEARN(l) =
(IRET-TAOPCS)/((1*R)»»T)
Β 116
PVEARN(T) =
PVEARN(TOT)•IRFT/i(1*R)*»T)-TAOPCS/((1*R)««T)
Β 117
c«««« CALCULATION OF BUDGETARY CONSTRAINT
Β 118
AVCAP(Tl) =
AVCAP(T)*((IRFT-TAOPCS)/((l*R)»*T))
Β 119
A FORTRAN IV Listing of Program
DAMBLD
209
c«««« ION ADDED IN YEAR Τ AND SUBSEQUENT YEARS
B
60
80
IF ( .NOT. SIMPLE) 60 TO 120
Β
61
90
IS = 0
R
62
DO 100 I = LL« MM
Β
63
IF (ISTdt TU) ·ΕΟ· 0) GO TO 100
Ρ
64
IF (iSTdt TU) .FO. 1) IS = I
Β
65
IST(I, TU) = 0
Β
66
100
CONTINUE
Ρ
67
IF (IS .EO. 0) GO TO 110
Β
68
OPTIME = .FALSE.
Β
*9
CALL SPEOAT
(IS)
Β
70
RETURN KNOCKED OUT PARTS TO THEIR FORMER POTENCY
Β
71
OPTIME = .TRUE.
Β
72
CALL KNOKIN
(IS)
Β
73
110
TU = TUd
Β
74
IF (TU .LE. TMAX) GO TO 90
Β
75
SIMPLE = .FALSE.
Β
76
£«««« CALCULATE RETURN BEFORE NEW PARTS ARE ADDED AND MODIFY SOME ARCS
Β
77
120
H (52) = 15*2«(T-1)
Β
78
HK54) -
35*2»
79
IF (HI(5?) .GT. 27) HK52) = 30
Β
80
IF (HK54)
.GT. 55) HK54) = 60
Β
81
IF (T .GE. 20) GO TO 130
Β
82
CALL OLERSEN
Β
83
130
SUMA = IRET
Β
84
C
ADDITION OF NEW PARTS
Β
85
IF (KX .EQ. SS) GO TO 160
Β
86
IF
(HMD( X· Τ)
.LT.
0.1)
GO TO
160
Β
87
OPTIME = .TRUE.
Β
88
CALL SPEOAT
Β
39
CALL OLERSEN
Β
90
£«««« CRITERION FOR ADDING
(WE THINK) TFMPORARILY
Β
91
IF (IRET .LE. SUMA) GO TO 150
Β
92
140 IS = 1· SS
Β
93
IF (IS .EQ.
ISTdSt T) = 1
Β
94
IF (IS ·ΝΕ·
ISTUS* Τ) = 0
Β
95
140
CONTINUE
Β
96
HND
.
T)
=
0.
Β
97
IF (T .EQ. 1) PVEARN(l) = (IPET-TAOPCS)/((1*R)*»T)-INV
)/((1*R)*
Β
98
1*T)
Β
99
PVFARN(T) =
PVFAPN(TOT)*IRET/((1*R)·»Τ)-TAOPCS/((1*R)»«T)-INV(KX)/
Β 100
1((]*R)«*T)
Β 101
£«««« CALCULATION OF BUDGETARY CONSTRAINT
Β 102
AVCAP(Tl) = AVCAP(T)4((IRET-TAOPCS)/((1*R)»*T))-INV(KX)
Β 103
OPTIME = .FALSE.
Β 104
CALL KNOKIN (KX)
Β 105
TO 180
Β 106
<:•·•* REVERTING TO OLD SCENE
Β 107
c*««« NO CHANGE IN 1ST
Β 108
ISO
OPTIMF = .FA! SE.
Θ 109
CALL SPEOAT (KX)
Β 110
160
170 IS = 1· SS
Ρ 111
ISTUS* T) = 0
Ρ 112
170
CONTINUE
Ρ 113
RND(
·
T)
=
0·
Β 114
RET = SUMA
Η 115
IF (T .EQ. 1) PVEARN(l) =
(IRET-TAOPCS)/((1*R)»»T)
Β 116
PVEARN(T) =
PVEARN(TOT)•IRFT/i(1*R)*»T)-TAOPCS/((1*R)««T)
Β 117
c«««« CALCULATION OF BUDGETARY CONSTRAINT
Β 118
AVCAP(Tl) =
AVCAP(T)*((IRFT-TAOPCS)/((l*R)»*T))
Β 119