A.4.
Block Diagrams for the Important
Routines
A.4.6.
Subroutine
OLERSEN
TAR
INITIALIZE THE
NODE IR VALVES
PI(M) - 0
Μ « 1, NODES
(
CALL
\
NEFTLO /
IRET « 0
AARCS - ARCS-1
0 Μ * 1,ARCS
IRET
IRET(FLOW(M)*COST(M)* 10000.)!