60 TO 180
D
120
180
Τ = T*l
* 121
IF (Τ .GT. 50) GO TO 190
u
122
PREPARE FOR THE FOLLOWING YEAR
R 123
TOT = T-l
« 124
IGORET(TOT) = IRET
« 125
CALL BOUND
« 126
GO TO 20
Β 127
C«*«* TEST TO SEE IF NEW PVEARN(TMAX) IS GREATER THAN PMAX
Β 128
190
IF (PVEARN(TMAX) .LE. PMAX) GO TO 210
Β 129
IF (PVEARN(TMAX) .GT. PMAX) PMAX = PVEARN(TMAX)
Β 130
IZ = IZ*1
θ 131
PRINT 270· IΖ
Β 132
PRINT 280
Β 133
DO 200 J = It TMAX
Β 134
DO 200 I s LLt
R 135
M(It J) = ISTCIt J)
R 136
IF (M(I. J) .FQ. 0) GO TO ?00
β 137
PRINT 290t It J
θ 138
200
COMTINUE
Β 139
PRINT 300t PVEARN(TMAX)
Β 140
ΜΝΠ(κχΐ* TEX) =0.
Η 141
Τ = T-l
R 142
TU = Τ
Β 143
ΤΕ Χ = Τ
Β 144
TOT = T-l
R 145
SIMPLE * .TRUE.
Β 146
GO TO 20
Β 147
C*»«* WHAT HAPPENS WHEN PVEARN(TMAX) IS LESS THAN PMAX
Β 148
210
«NO(KXlt TEX) =0.
Β 149
ΚΟΡΕ = ΚΟΡΕΟΙ
Β 150
Τ = T-l
Β 151
TU = Τ
Β 152
TFX s Τ
Β 153
TOT = T-l
Β 154
SIMPLE = ·TPUE.
Β 155
GO ΤΟ 20
Β 156
220
TEX = ΤΕΧ-1
Β 157
Τ = TFX
Ρ 158
TU = Τ
Β 159
TOT = Τ-1
Β 160
SIMPLE = .TRUF.
Β 161
IF (TEX .EQ. 1) GO TO 230
Β 162
GO TO 20
163
c
MAKING THE FINAL NETWORK CONFIGURATION CORRESPOND TO THE OPTIMUM C
Β 164
c
ONFIGURATION
Β 165
230
DO 240 Τ = It TMAX
Β 166
00 240 I = LLt MM
Η 167
IF (ISTUt Τ) .NE. 1) GO TO 240
Β 168
IF (ISTU. T) .EO. 1) IS = I
Β 169
1ST(I. T) = 0
Β 170
GO TO 250
Β 171
240
COMTINUE
172
GO TO 260
Β 173
250
OPTIME = .FALSE.
174
CALL S p EDAT
(IS)
Β 175
GO TO 230
176
260
CONTINUE
Β 177
RETURN
Β 178
FORMAT STATEMENTS
c
Β 179
270
FORMAT (4/tl6Xt«FEASIBLE SOLUTION NUMBER*»14)
Β 180
280
FORMAT
(13Xt35(lH«)t2/)
Β 181
290
FORMAT
(13Xt«DAM»tI3t» WAS CONSTRUCTED AND BEGAN OPERATION IN YE
Β 182
!AR*tI3)
Β 183
300
FORMAT (2/tl3Xt»THE TOTAL PRESENT VALUE OF EARNINGS =*tF10.0.»DOLL
Β 184
1ARS*)
Β 185
END
186·
210