10
20
30
40
50
60
SUBROUTINE KNOKIN(KX)
·«««*·«««**#««*«***««««
COMMON /TRES/ DEBT, DELlMt LLt MMt Nt PMAXt Rt Pit SSt SUMAt Tt TM
lAXt TOT
COMMON /CINCO/ OPTIME
COMMON /SEIS/ BND(201 50)t IGORET(50)t PERBAR(201 50)t PVEAR(20* 5
10)
LOGICAL OPTIME
INTEGER Tt TMAXt Tit TOT
Tl = T*l
DO 60 L = Tt 50
IF(KX.EQ. 6) GO TO 10
IF(KX.EQ. 7) GO TO 10
8) GO TO 10
9) GO TO 20
10) GO TO 20
GO TO 20
GO TO 30
GO TO 30
GO TO 30
11)
12)
13)
14)
IF (KX .EQ.
IF (KX .EQ.
IF (KX .EQ.
IF (KX .EQ.
IF (KX .EQ.
IF (KX .EQ.
IF (KX *EQ.
IPA = 6
IPB = 7
IRF = 8
GO TO 40
IPA = 9
IRB = 10
IRE = 11
GO TO 40
IRA = 12
IRB = 13
IRF = 14
GO TO 40
IF ( .NOT. OPTIME) GO TO 50
PVBAR(IRAt L)
PVBAR(IRBt L)
PVRAR(IREt L)
GO TO 60
PVBAR(IRAt L)
PVBAR(IRBt L)
PVBAR(IREt L)
CONTINUE
RETURN
END
PERBAR(IRAt L)
PERBAR(IRB« L)
PERBAPdRE. L)
0.
0.
0.
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43SUBROUTINE OLERSEN
c
«.,«»«.*».*«*«**«·.«*·«»
I
2
C«««« DIMENSION t COMMON * INTEGER · REAL AND LOGICAL STATEMENTS
I
3
COMMON /UNO/ 1(250)· J(250)t COST(250)t L0(250)t FLOW(250)t PK250
I
4
1)
I
5
COMMON /UNOSA/ HI(300)
I
*
COMMON /DOS/ NODESt ARCSt INFESt IRET
I
7
COMMON /TRES/ DEBTt DELlMt LLt MMt Nt PMAXt Rt Pit SSt SUMAt Tt TM
I
8
lAXt TOT
I
9
INTEGER ARCSt AARCSt COST, FLOW
I
10
INTEGER HI
I
Π
LOGICAL INFES
I
12
DO 10
= It NODES
I
13
10
PKM) =0
I
14
CALL NETFLO
I
15
AARCS = ARCS-1
I
17
IRFT =0
I
18
DO 20
= It AARCS
I
19
IRFT = IRET-(FLOW
)«COST
)»10000
I
20
20
CONTINUE
I
21
RETURN
I
23
END
I
26-