1) 



IF(NIL.6T.0) 237t238 



237 BCANa(CCAN/(RATE(I)«FISCO) ) 

 GO TO 239 



238 BCANx CCAN 



239 DCAN= DCAN ♦ BCAN 



240 CONTINUE 



COMPUTE DISCOUNTED PRODUCT VALUES 



250 

 251 



255 

 260 

 261 



265 

 270 

 271 



275 



IF (KX)280»280«250 

 IF (KIXA) 260,260,251 

 DO 255 K1=1,K1XA 

 KXLY=N1 (L,K1 ) 

 QUALl=JUALl (L,K1 ) • ,01 

 OISCaRTLOI KXLY 

 YLD1=JLD1 (L,K1) • ,1 



DKlsOKl* ( YL01»PR ( 1 »M) »QUAL1« ( 1 .♦CPR ( 1 , M ) 'N 1< L , K 1 ) ) /D I SC ) 



IF (K2XA)270,270,261 



DO 265 K2«1,K2XA 



KXLY=N2(L,K2) 



DISC«RTLOI KXLY 



0UAl2=JUAL2 (L,K2) • .01 



YLD2aJLD2(L,K2) • ,1 



0K2=0K2* ( YL02»PR (2»M) «QUAL2« ( 1 .♦CPR (2, M) •N2(L,K2> ) /DISC) 



IF (K3XA) 280,280,271 



DO 275 K3=1,K3XA 



KXLYaN3 (L,K3) 



DISC=RTLOI «• KXLY 



QUAL3=JUAL3 (L,K3) • .01 



YLD3=JLD3(L,K3) « .1 



0K3=DK3* ( YLD3*PR (3»M> *QUAL3* « 1 .♦CPR (3, M) «N3(L,K3) ) /DISC) 



C 

 C 

 C 



SUMMARIZE (FILL VALIN ARRAY) 



2fl0 

 290 

 292 



295 



300 



IF (NZZ)295,295,290 

 IF (NZ(L) )295,295,292 

 TDVAL=nKl ♦DK2^DK3^ DAN^ 

 VAL IN (I . I) =IDVAL 

 GO TO 300 



TDVAL=DK1 ♦0K2^DK3^ DAN. 

 VALIN (L , I ) =TDVAL* ( !.♦ 

 CONTINUE 



OCAN+ DKC 



DCAN^DKC 

 1. /(DISCO- 



1.) ) 



C 

 C 

 C 



IF (JPR-2) 303,302,301 



301 GO TO 400 



302 GO TO 350 



303 CONTINUE 



COMPLETE OUTPUT FOR GENERAL OPTION 



WRITE(61»65) (NAME ( I ) , 1 = 1 , 19) 



DO 304 1=1, LENGTH 



RATE (I)a RATE(I)«100.0 



304 CONTINUE 



00 320 L=1,LX 



DO 310 1=1, LENGTH 



IF (VALIN(L, I) .GT. 0.0) 310,305 



305 IF (VALIN(L, I ) .EQ. 0.0) 308,306 



306 IF (I. EQ.D 311,307 



307 WRirE(61,66)LI(L) ,RATF(I-1) ,RATt(I) , VAL IN (L, I- 

 GO TO 320 



308 WRITE(61,68) LI(L)»RATE(I) 

 GO TO 320 



310 CONTINUE 



311 WRITE(61,67) LKL) 



320 CONTINUE 

 XRI TE (61 ,69) 



WRITE (61 ,55) (I I (L) ,L = 1 ,6) 

 WRITE(61,70) (LY (L) ♦L=l ,6) 

 DO 321 1 = 1, LENGTH 



«(RITE(61,72)RATE(I) , ( V AL IN ( L , I ) , L= 1 ,LX ) 



321 CONTINUE 



D »VALIN(L,I) 



INV2870 

 INV2880 

 INV2890 

 INV2900 

 INV2910 

 INV2920 

 INV2930 

 INV2940 

 INV2950 

 INV2960 

 INV2970 

 INv29eo 

 INV2990 

 INV3000 

 INV3010 

 INV3020 

 INV3030 

 INV3040 

 INV3050 

 INV3060 

 INV3070 

 INV3080 

 INV3090 

 INV3100 

 INV3110 

 INV3120 

 INV3130 

 INV3140 

 INV3150 

 INV3160 

 INV3170 

 1NV3180 

 INV3190 

 INV3200 

 INV3210 

 INV3220 

 INV3230 

 INV3240 

 1NV3250 

 INV3260 

 INV3270 

 INV3280 

 INV3290 

 INV3300 

 INV3310 

 INV3320 

 INV3330 

 INV3340 

 INV3350 

 INV3360 

 INV3370 

 INV3380 

 INV3390 

 INV3400 

 INV3410 

 INV3420 

 INV3430 

 INV3440 

 INV3450 

 INV3460 

 INV3470 

 INV3480 

 INV3490 

 INV3500 

 INV3510 

 INV3520 

 INV3530 

 INV3540 

 INV3550 

 INV3560 

 INV3570 

 INV3580 

 INV3590 



73 



