202
Appendix A. Computer Program Listing and
Instructions
A.5.4. Variables That Occur Only in Subroutine
NETFLO
Variable
Significance
Units
AOK
The out-of-kilter arc currently under review
C
Total cost to the system consumer and distributor
$/acre-ft
of transporting one unit through the arc under
review [corresponds to q%j of Eq. (3.16)]
COK
Value of C for the out-of-kilter arc currently under
$/acre-ft
review
DEL
Amount by which the values of η (for % 6 X)
are changed
Ε
= +1, a "forward" arc is out of kilter
= — 1, a "reverse" arc is out of kilter
EPS
Amount by which the flow in each arc in the flow- acre-ft.
augmenting path is modified when breakthrough
occurs
LAB
= 0, no new node has been labeled
= 1, at least one new node has been labeled
NA(N)
Indicates from which node node Ν is labeled
NB(N)
Indicates though which arc node Ν is labeled
SNK
Subscript, indicates sink node
SRC
Subscript, indicates source node
Appendix A. Computer Program Listing and
Instructions
A.5.4. Variables That Occur Only in Subroutine
NETFLO
Variable
Significance
Units
AOK
The out-of-kilter arc currently under review
C
Total cost to the system consumer and distributor
$/acre-ft
of transporting one unit through the arc under
review [corresponds to q%j of Eq. (3.16)]
COK
Value of C for the out-of-kilter arc currently under
$/acre-ft
review
DEL
Amount by which the values of η (for % 6 X)
are changed
Ε
= +1, a "forward" arc is out of kilter
= — 1, a "reverse" arc is out of kilter
EPS
Amount by which the flow in each arc in the flow- acre-ft.
augmenting path is modified when breakthrough
occurs
LAB
= 0, no new node has been labeled
= 1, at least one new node has been labeled
NA(N)
Indicates from which node node Ν is labeled
NB(N)
Indicates though which arc node Ν is labeled
SNK
Subscript, indicates sink node
SRC
Subscript, indicates source node
