204
Appendix A. Computer
Program Listing and
Instructions
AC = AA-AB
A 60
AD = MAR(I)»AC
A 61
AD = AD/P
A 62
AE = INV(I)»AA
A 63
PVBAR A 64
IF (PVBARU* T) .Qr.
1.0) GO TO 20
A 65
PVQAPII, Τ) = 0.0
A 66
20
CONTINUE
A 67
30
CONTINUE
A 68
DO 40 J = If 50
A 69
DO 40 I = LL* MM
A 70
PERBAR(I· J) = PVBAR(I· J)
A 71
40
CONTINUE
A 72
PRINT 640· (UPVRARU* J))t I - LLt Μ Μ ) · J = It FMAX)
A 73
PRINT 450
A 74
PRINT 310
A 75
PRINT 320
A 76
TOTPRI * .TRUF·
A 77
CALL PRINTEX
A 78
Τ = 1
A 79
50
IF (T.LE.TMAX) GO TO 60
PRINT 450
A 81
PRINT 610· Τ
A 82
PRINT 490
A 83
P^INT 630· AVCAP(T)
A 84
60
Tl = TO
A 85
£«··« FINDING CURRENT OPERATING COSTS
A 86
TAOPCS =0·
A 87
OO 70 Κ s LI* MM
A 88
TAOPCS = TA0PCS*A0PC5TCK)
A 89
70
CONTINUE
A 90
OPTIMF = .TRUE.
A 91
C*««» CALLING THE NETWORK ALGORITHM
A 92
IF (T .GE. 30) GO TO 80
A 93
CALL OLERSEN
A 94
IF (Τ ·ΝΕ· 1) GO TO 80
A 95
PRINT 450
A 96
PRINT 330
A' 97
PRINT 340
A 98
TOTPRI * .FALSE.
A 99
CALL PRINTEX
A 100
PRINT 450
A 101
80
SUMA = IRET
A 102
CALL BOUND
A 103
90
KX = LL
A 104
LM = KX*1
A 105
DO 100 I = LM, MM
A 106
IF (BNDCKXt T) .LT. BND(I· T)) KX = I
A 107
100
CONTINUE
A 108
IF (BND(KX• T) .LT. 0.1) GO TO 150
A 109
IF A 110
IF (INV(KX) .GT. AVCAP(T)) BND(KX9 T) = 0.
A 111
GO TO 90
A 112
110
CALL SPEOAT (KX)
A 113
CALL OLERSEN
A 114
IF (IRET .LE. SUMA) GO TO 140
A 115
M(KX. Τ) β 1
a 116
BND(KX· T) - 0.
A 117
OPTIMF * .FALSE.
A 118
CALL KNOKIN (KX)
A 119