A.6.
A FORTRAN IV Listing of Program DAMBLD
203
A.6. A FORTRAN IV Listing of Program DAMBLD
PROGRAM 0AMBL0(INPUT•OUTPUT)
£
A
?
<;•#•• DIMENSION • COMMON t INTEGER « REAL ANO LOGICAL STATEMENTS
A
3
COMMON /UNOS/ AOPCST(20)
A
4
COMMON /UNOSA/ HI(300)
A
5
COMMON /DOS/ NODES* ARCSf INFESt IRFT
Α
β
COMMON /IRES/
DEBT· DELIM* LL * MM« Ν* ΡΜΑΧ» R* Plf SSt SUMA* Τ * TM A
7
1AX* TOT
Α
β
COMMON /CUATRO/ AVCAP(50)* CAPAC(20)* INV(20)* LlFE(20)* MAR(20)*
A
9.
1NONO(20)* NRES(20)* PVEARN(SO)
A
10
COMMON /CINCO/ OPTIME
A
11
COMMON /SEIS/ BNO(20* S0)t IGORET(50)* PERRAR(20* 50)» PVBAR(20f 5
A
12
10)
A
13
COMMON /SIETF/ M(20* 50)
A
14
COMMON /OCHO/ 17» TAOPCS
A
15
COMMON /NUEVE/ YO* IST(20* 50)
A
16
COMMON /ONCE/ TOTPPI
A
17
INTEGER HI
A
18
INTFGE* SS
A
19
INTEGER SUMA
A
20
INTEGER Τ* Τ Μ Λ X» ΤΙ* TOT
A
21
LOGICAL OPT IMF
A
22
LOGICAL TOTPRI
A
23
LOGICAL YO
A
24
CALL EXTDAT
A
25
17 = 1
A
26
YO = ·TRUE·
A
27
TOT =1
A
2R
C«*«* PRINTING OUTPUT HEADINGS
A
?9
PRINT 450
A
30
PRINT 260
A
31
PRINT 470
A
32
PRINT 540
A
33
PRINT 470
A
34
PRINT 4*0
A
35
PRINT S50
A
36
PRIN'T 490
A
37
PRINT 560
A
38
PRINT 570·
(NRFS(K), NQNO(K)* CAPAC(K), AOPCST(K)* Κ = 1, N)
A
39
PRINT 580
A
40
PR TUT 490
A
41
PRINT 59P
A
42
PRINT 600* (NPES(K)* NONOOO* CAPAC(K)* INV(K), AOPCST(K)* MAR(K) ·
A
43
1 LTFF(K)* Κ •=• LL* MM)
A
44
CALL
FADIN
A
45
C**»« INITIALISING THE TIMING MATRIX
A
46
00 10 Τ = 1· 50
A
47
UO 10 KX = LL* MM
A
48
10
Μ(Κ Χ F Τ) = 0
A
49
C«**« CALCULATION OF PPFSENT VALUF FOR EACH PROJECT AND YEAR
A
50
PRINT 450
A
51
PRINT 270
A
52
PRINT 2H0
A
53
PRINT 290
A
54
PRINT 300
A 55
no 30 Τ = It 50
A
56
00 20 I = LL* MM
A 57
AA = 1/(U*P)«*T)
A 58
AB = 1/((1*R)«»(T*LIFE(I)))
A 59