214
Appendix A. Computer Program Listing and
Instructions
SUBROUTINE PRINTEX
c
·«**««*«»·»«««««*»«««««
e
2
C*>*>«» DIMENSION t COMMON · INTEGER · REAL AND LOGICAL STATEMENTS
Ε
3
COMMON /UNO/ 1(350)· J(250)t COST(250)· L0<250)t FLOW(250)t PI(250
Ε
4
1)
Ε
5
COMMON /UNOSA/ HI(300)
Ε
6
COMMON /DOS/ NODES* APCSt INFESt IRET
Ε
7
COMMON /ONCE/ TOTPPI
Ε
8
INTEGER ARCS, AARCSt COSTt FLOW
Ε
9
INTEGER HI
Ε
10
LOGICAL TOTPRI
Ε
11
IF < #ΝΟΤ· TOTPRI) GO TO 10
Ε
12
PRINT 30· NODES* ARCS* (M* KM)* J(M)» COST(M)f HKM)t LO(M)t Μ =
Ε
13
11· APCS)
Ε
14
GO TO 20
Ε
15
10
PPINT 40* NOOES* ARCS* (Mt KM)* J(M)* COST(M)* HI(M)* LO(M)* FLOW
Ε
16
1(Μ)t Μ = 1t ARCS)
Ε
17
PRTNT 60
Ε
18
PPTNT 50t (Mt Μ = It 14)
Ε
19
PRINT 70t (PI(M), Μ = 1, 14)
Ε
20
PRINT 50t (Mt Μ s 15t 28)
Ε
21
PRINT 70t (PKM)t Μ = 15t 28)
Ε
22
PRINT 50t (Mt Μ = 29t 42)
Ε
23
PRINT 70t (PKM)t Μ = 29t 42)
Ε
24
PRTNT 50t (Mt Μ = 43t 56)
Ε
25
PRINT 70t (PKM) t Μ = 43t 56)
Ε
26
PRINT 50t (Mt Μ s 57t 70)
Ε
27
PRINT 70t (PKM), Μ r 57t 70)
Ε
28
PRINT 50t (Mt Μ = 71t 84)
Ε
29
PRINT 70t (PKM), Μ = 71t 84)
Ε
30
PRINT 50t (Mt Μ * 85t 98)
Ε
31
PPINT 70t (PKM)t Μ = 85t 98)
Ε
32
PRINT 50t (Μ, Μ s 99t 112)
Ε
33
PRINT 70t (PKM)t Μ = 99t 112)
Ε
34
PRINT 50t (Mt Μ = 113t 126)
Ε
35
PRINT 70t (PKM) t Μ = 113, 126)
Ε
36
PRINT 50, (Mt Μ = 127t 131)
Ε
37
PRINT 70t (PKM), Μ = 127, 131)
Ε
38
C*#«« FORMAT STATEMENTS
Ε
39
20
RETURN
Ε
40
C
Ε 41
30
FORMAT (14Xt«NUMRER OF NODES = *tl4t/*14Xt "NUMBER OF ARCS
=«,I5t
Ε
42
13/t21Xt»M«t5Xt«I*t5Xt*J*tllXt«COST»t
9Xt«HI*t1lXt«LO«,//,(16X,3(2X
Ε
43
2tI4)t3(3X,I10)))
Ε
44
40
FORMAT (14X,«NUMRER OF NODES * *,I4,/,14X, ^NUMBER OF ARCS
=»*Ι5,
Ε
45
13/,13Xt»M»,5X,»I»,5X,»J»,llX,»COST*, 9Xt»Hl»,10X,»LO»,10X,»FLOW«,/
Ε
46
2/t(8X,3(2XtI4),4(3X*I10)))
Ε
47
50
FORMAT (13Χ,·
Μ
14(14))
Ε
48
60
FORMAT (8/)
Ε
49
70
FORMAT (2/tl4X,»PYE(M)»,14(14),4/)
Ε
50
END
Ε 51-