A.4. Block Diagrams for the Important
Routines
ΑΛΛΟ. Subroutine
NETFLO
^START^
<3
INFES = .TRUE.
A = 1,ARCS
LO(A)
HI (A)
YES
INF « 99999
AOK « 0
A « l.ARCS
NO
IA » 1(A)
JA * J(A),C « COST
+ PI(IA) -PI(JA)