212
Appendix A* Computer Program Listing and
Instructions
GO TO 100
C
60
90
BND C
61
100
CONTINUE
C
62
110
DO 120 I = LL*
C
61
DO 120 J = It 50
C
64
120
GODBARCIt J) = PVBARUt J)
C
65
(;••·« CALCULATION OF BOUNDS FOR ALL VARIABLES
C
66
DO 270 I - KOt SS
C
67
IF (I .EQ. SS) GO TO 240
C
6β
IF (RN0U* T) .LT. 0·1) GO TO 280
C
69
IF (I .EQ. 6) GO TO 130
C
70
IF (I .EQ. 7) GO TO 140
C
71
IF (I .EQ. 8) GO TO 150
C
72
IF (I .EO. 9) GO TO 160
C
73
IF (I .EQ. 10) GO TO 170
C
74
IF (I .EQ. 11) GO TO 180
C
75
IF (I .EQ. 12) GO TO 190
C
76
IF (I .EQ. 13) GO TO 200
C
77
IF (I .EQ. 14) GO TO 210
C
78
130
IRft r 6
C
79
I
= 7
C 80
IRF = «
C 81
GO TO 220
C 82
140
IRA r 7
C 83
IRB r 8
C
84
IRF = 6
C
85
GO TO 220
C
86
150
IRA s 8
C
87
IRR =
C
88
IRF = 7
C
89
GO TO 220
C
90
160
IPA r 9
C
91
IRR =10
C
92
IRE = 11
C
93
GO TO 220
C
94
170
IRA =10
C
95
IRB = 11
C
96
IRE = 9
C
97
GO TO 220
C
98
180
IRA =11
C
99
IRB =9
C 100
IRE =10
C 101
GO TO 220
C 102
190
IPA =12
C 103
IRB =13
C 104
IRE =14
C 105
GO TO 220
C 106
200
IRA =13
C 107
IRR =14
C 108
IRF = 12
C 109
GO TO 220
c
*1°
210
IRA =14
c
*1 χ
IRR =12
c
112
IRE = 13
c
n3
GO TO 220
c
114
C#*** MAKING THE RETURN EQUAL TO ZERO FOR I (AND ALL PROJECTS EXCLUSIVE
C 115
(;**>•• TO I) AND FOR ALL YEARS AFTER YEAR Τ
C 116
220
DO 230 J » Tt 50
c
117
GODBAR(IRBt J) = 0·
C 118
GODBAR (IREt J) = 0.
c
Π9