176
Appendix A. Computer Program Listing and
Instructions
A.4.3. Subroutine
BOUND
START
•
KO = LL
TEQ * T+l
Tl » T+l
INITIALIZE THE
CONSTRUCTION VECTOR
MS = 0
I = LL,MM
ISUPGO(TOT)«IGORET(TOT)
ISUPER * 7350000.