A.6. A FORTRAN IV Listing of Program
DAMBLD
211
SUBROUTINE BOUND
Q
«««*»»««»««««*««««»«
0
2
C«*««
DIMENSION t COMMON t INTEGER t REAL AND LOGICAL STATEMENTS
C
3
DIMENSION GOO8AR(20t50)t ISUPGO(50)t MS(20)
C
4
COMMON /TRES/ DEBTt DELIMt LLt MMt Nt PMAXt Rt Rlt SSt SUMAt Tt TM
C
1 AX t TOT
C
6
COMMON /CUATRO/ AVCAP(50)t CAPAC(20). INV(20)t HFE(20)t MAR(20)t
C
7
1NONO(20). NRES<20>« PVEARN(50)
C
8
COMMON /SEIS/ BND(?0t 50). !GORET(50)t PERBAR(201 50), PVBAR(20f 5
C
9
10)
C
10
COMMON /SIETE/ M(?0t 50)
C
11
COMMON /NUEVE/ YOt IST(20t 50)
C
12
INTEGER SS
C
13
INTEGER Tf TMAX
C
14
INTEGER Tit TEOt TOT
C
15
LOGICAL YO
C
16
KO = LL
C
17
TFO = T*l
C
18
Tl = T*l
C
19
C**** CALCULATE THE RETURN FROM OPERATING THE PRESENT SYSTEM TO THE END
C
20
C«*«» OF THE PLANNING HORIZON
C
21
DO 10 I = LLf MM
C
22
MS(1) = 0
C
23
10
CONTINUE
C
24
IF ( .NOT. YO) GO TO 30
C
25
DO 20 I = LL· MM
C
26
00 20 J = It Τ
C
27
IF (M(I. J) ·ΕΟ· 1) MSU) =1
C
28
20
CONTINUE
C
29
GO TO 50
C
30
30
DO 40 I = LLt MM
C
31
DO 40 J = It Τ
C
32
IF (iSTUt J) .ΕΟ· 1) MSU) =1
C
33
40
CONTINUE
C
34
50
ISUPGO(TOT) = IGORFT(TOT)
C
35
ISUPFR=7350000
DO 60 I = LLt MM
C
37
IF (MSU) .EQ. 1) ISUPER = ISUPER*MAR(I)
C
38
60
CONTINUE
C
39
ISUPGO(TOT) = MAXOUSUPGO(TOT) t ISUPER)
C
40
AA = l/((1*R)««(T-1))
C
41
AB = l/((1*R)«»50)
C
42
AC = AA-AB
C
43
AD = ISUPGO(TOT)*AC
C
44
AF=ISUPEP*AC
BIGO = AD/R
C
46
BIGOS = AF/R
C
47
C«*»» INITIALIZE THE BOUND VARIABLES
C
48
DO 100 I = LLt SS
C
49
IF (I .EQ. SS .AND. Τ .EQ. 1) GO TO «0
C
50
IF (I .EQ. SS .AND. Τ .GT. 1) GO TO 90
C
51
IF (PvBARUt T) .LT · 0.1) BND (11 T) = 0.0
C
52
IF (PVBAR(It T) .LT. 0.1) GO TO 100
C
53
IF (T .GT. 1) GO TO 70
C
54
BND(It 1) = PVBAR(It 1)•BIGOS
C
55
GO TO 100
C
56
70
BND(It T) = PVBAR(It Τ)+PVEARN(TOT)*BIGO
C
57
GO TO 100
C
58
80
BND(SSt T) = BIGOS
C
59