186
Appendix A. Computer
Program Listing and
Instructions
A.4.9. Subroutine
KNOKIN(KX)
TART
L - TF50
MODIFY THE PVBAR(I,J)
MATRIX ACCORDING TO
WHETHER PROJECT KX IS
TEMPORARILY ACCEPTED
OR REJECTED,
E.G. FOR KX » 6
IRA - 6
IRB - 7
IRE - 8
YES
S
PROJECT 6^SNO
N^ACCEPTEDr/
PVBAR(IRA.L) -
PVBAR(IRB,L) -
PVBAR(IRE,L) -
PERBAR(IRA,L)
PERBAR(IRA.L)
PERBAR(IRA.L)
PVBAR(IRA.L) " 0.
PVBAR(IRB,L) - 0.
PVBAR(IRE,L) - 0.
f
t