190 CONTINUE 



C 



C READ CARD 13» PRODUCT PRICES 

 WRITE (61 »51 ) 

 WRITE (61 »52) 

 00 197 M=1.MX 



READ ( 60 » 53) (PR(KtM) ,CPR(K,M) »K=1»KX) 

 WRITE(61»54) (PR(K,M) iCPR{K,M) ,K=1,KX) 



197 CONTINUE 

 200 CONTINUE 



C 



C BEGIN PROCESSING DATA. 



C 



RATE(l)sRINT(l) 

 DO ?10 I=2»100 



IF (RATE ( I-l) -RINT (3) ) 202»203.203 



202 RATE(I)=RATE(I-1)*RINT(2) 

 GO TO 210 



203 LENGTH=I-1 



IF (LENGTH- (LENGTH/2) ♦2) 204,205,204 



204 LLNGTHs (LENGTH ♦l)/2 

 GO TO 215 



205 LLNGTHsLENGTH/2 

 GO TO 215 



210 CONTINUE 



215 00 216 1=1, LENGTH 



216 RTL06(I)=1.*RATE(I) 



C 



C DO COMPUTATIONS 



C 



IF (KX)218.2I8,217 



217 DO 600 M«1,MX 



218 00 300 L«1»LX 



00 300 1=1, LENGTH 

 KCXAsKCX (L) 

 K1XA=K1X(L) 

 K2XA=K?X (L ) 

 K3XA=K3X(L) 

 OAN=DCAN«0 . 

 DKC= 0,0 

 DK1=OK2=DK3=0.0 

 RTLOI=RTLOG ( I ) 

 LYL= LY(L) 

 DISrO=RTLOI«*LYL 



C 



C COMPUTE DISCOUNTED PERIODIC COSTS AND INCOMES 

 C 



IF (KCXX) 226,226,220 



220 IF (KCXA)226,226,221 



221 DO 225 KC=1,KCXA 

 KXLY=NC (L,KC) 

 DISC»RTLOI «• KXLY 



225 DKC=0KC*PECO (L,KC) /DISC 



C 



C COMPUTE DISCOUNTED ANNUAL COSTS AND INCOMES 

 C 



226 IF (JXX) 240,240,230 



230 IF (JX (L) )240,240,231 



231 JXL=JX(L) 



00 240 12=1, JXL 

 NTL= (NT (L, 12) -NI (L»I2) ) 

 NIL= NI (L, 12) 

 IF(AN(L,I2) )232,240,232 



232 SISC0= RTLOI»*NTL 

 FISCOs RTLOI««NIL 



BBN= ( AN (L, 12) ♦ (SISCO-1 . ) ) / (RATE ( I ) »SISCO) 

 IF (NIL. GT.O) 233,234 



233 8AN= (BBN/ (RATE ( I) »FISCO) ) 

 GO TO 235 



234 BAN= BBN 



235 OAN= DAN ♦ BAN 

 IF{CAN(L,I2) ) 236,240,236 



236 CCAN=(CAN(L,I2)»AN(L«I2)»(SISC0-NTL • RATE(I) 



INV2140 

 INV2150 

 INV2160 

 INV2170 

 INV2180 

 INV2190 

 INV2200 

 INV2210 

 INV2220 

 INV2230 

 1NV2240 

 INV2250 

 INV2260 

 INV2270 

 INV2280 

 INV2290 

 INV2300 



INV2310 

 INV2320 

 INV2330 

 INV2340 

 INV2350 

 INV2360 

 INV2370 

 INV2380 

 INV2390 

 INV2400 

 INV2410 

 INV2420 

 INV2430 

 INV2440 

 INV2450 

 INV2460 

 INV2470 

 INV2480 

 INV2490 

 INV2500 

 INV2510 

 INV2520 

 INV2530 

 INV2540 

 INV2550 

 INV2560 

 INV2570 

 INV2580 

 INV2590 

 INV2600 

 INV2610 

 INV2620 

 INV2630 

 INV2640 

 INV2650 

 INV2660 

 INV2b70 

 INV2680 

 INV2690 

 INV2700 

 INV2710 

 INV2720 

 INV2730 

 INV2740 

 INV2750 

 INV2760 

 INV2770 

 INV2780 

 INV2790 

 INV2800 

 INV2810 

 INV2820 

 INV2830 

 INV2840 

 INV2850 



] . ))/ (RATE ( I ) ••2«SISC0 INV2860 



72 



