194
Appendix A. Computer
Program Listing and
Instructions
EPS = INF
NI * SRC
NJ « IABS(NA(NI))
A * IABS(NB(NI))
COST(A) + PI(NI)-PI(NJ)
NO
YES
IF (C .GT. 0 .AND. FLOW(A) .LT.
LO(A)) EPS « MINO(EPS,LO(A)FLOW(A)); IF (C .LE. 0 ·.AND.
FLOW(A) .LT. HI(A)) EPS *
MINO(EPS,HI(A)-FLOW(A))
IF (C .LT. 0 .AND. FLOW (A) .GT,
HI(A)) EPS « MINO(EPS,FLOW(A)
-HI(A)); IF(C «GE. 0 .AND.
FLOW(A) .GT. LO(A)) EPS =
MINO(EPS,FLOW(A)-LO(A))