170
Appendix A. Computer Program Listing and
Instructions
0
1
BND(KX,T) * 0.
1 f
OPTIME • .FALSE.
/CALL \
SPEDAT
\(KX)/
PVEARN(T) = PVEARN(TOT)+(IRET-TAOPCS)/((I+R)**T)
AVCAP(Tl) = AVCAP(T)+(IRET-TAOPCS)/((I+R)**T)
IRET = SUMA
BND(SS.T) = 0.
1
PVEARN(T) * PVEARN(TOT)+(IRET-TAOPCS)/((I+R)**T)
AVCAP(Tl) = AVCAP(T)+(IRET-TAOPCS)/((I+R)**T)