325 



00 325 I« 

 RATE (I)= 

 CONTINUE 

 60 TO 600 



1«LENGTH 

 RATE(I)/100.0 



CONTINUE WITH PROGRAM OPTION 2 



350 

 351 



355 



356 



357 



358 



360 



361 



362 



363 



♦ 00 



.LX) 



IF(IST.EQ.1)351,360 

 DO 355 L»1»LX 

 00 355 I«ltLENGTH 

 FCROP{L.I)''VALlN(LtI) 

 VALIN (L» I ) =0.0 



WRITE(61»65) (NAME(I) tl=l»19) 

 WHITE(61»58) 

 DO 356 I=lfLENGTH 

 RATE (1)=RATE(I)«100.0 

 WRITE (61 .55) (LI (L) »L=1 »6) 

 WRITE(6l»70) (LY(L) »L=1 »6) 

 DO 357 I*1.LENGTH 



WRITE (6l»72) RATE(I) » (FCROP(L»I) «L=1 

 CONTINUE 



DO 358 I«1»LENGTH 



RATE (l)= RATE ( I ) /lOO.O 



CONTINUE 



WRITE (61 15<9) 



GO TO 1000 



DO 361 L«1»LX 



DO 361 I«lfLENGTH 



LYL=LY (L) 



OISCO=RTLOG ( I ) •«LYL 



VALIN(L«I)=VALIN(L»I) ♦ ( FCROP(L«I) /DISCO) 

 CONTINUE 



WHITE(61»65) (NAME(I) 

 WRITE (61 »60) 

 DO 362 1=1. LENGTH 

 RATE (DERATE (I)»100 

 CONTINUE 



WRITE (61 .55) (LI (L) .L = l 

 WRITE (61 .70) tLY (L) .L=l 

 DO 363 I«1»LENGTH 



WRITE (6 1.72) RATE (I) . (VALIN (L.I) .L=1.LX) 



CONTINUE 

 GO TO 600 

 CONTINUE 



1=1,19) 



.6) 

 .6) 



C 

 C 

 C 



CONTINUE WITH PROGRAM OPTION 3 



IE ( 1ST .EQ. 1 ) -^01 .410 



401 DO 402 L=1.LX 



DO 402 1=1. LENGTH 



402 FCROP(L.I)»VALlN(L.I> 

 VALIN (L . I ) =0.0 



WRITE(61.65) (NAME ( I ) . 1=1 . 19) 



WRI TE (61 .75) 



DO 403 I»l. LENGTH 



403 RATE ( I ) aRATE ( I ) »100.0 

 WRITE (6 1.55) (LI (L) .L = l .6) 

 WRITE(6l.70) (LY(L) .L»1.6) 

 00 404 I«l. LENGTH 



WRITE (61 .72) RATE(I) . (FCROP(L.I) .L=1.LX) 



404 CONTINUE 



00 405 1=1. LENGTH 

 RATE{I)=RATE(I)/100.0 



405 CONTINUE 

 WRITE(61.76) 

 GO TO 1000 



410 CONTINUE 



WRITE(61.65) (NAME(I) .1=1.19) 



WRITE (61 .77) 



00 411 I=1.LEN6TH 



411 RATE ( I ) sRATE ( I ) 'lOO.O 

 WRITE(61.55) (Ll (L) .L=l .6) 

 WRITE(61t70) (LY(L) .L=1.6) 



INV3600 

 INV3610 

 INV3620 

 INV3630 

 INV3640 

 INV3650 

 INV3660 

 INV3670 

 INV3680 

 INV3690 

 INV3700 

 INV3710 

 INV3720 

 INV3730 

 INV3740 

 INV3750 

 INV3760 

 INV3770 

 INV3780 

 INV3790 

 INV3800 

 INV3810 

 INV3820 

 INV3830 

 INV3840 

 INV3850 

 INV3860 

 INV3870 

 INV38e0 

 INV3890 

 INV3900 

 INV3910 

 INV3920 

 INV3930 

 TNV3940 

 INV3950 

 TNV3960 

 INV3970 

 INV3980 

 INV3990 

 INV4000 

 INV4010 

 INV4020 

 INV4030 

 INV4040 

 INV4050 

 INV4060 

 INV4070 

 INV4080 

 INV4090 

 INV4100 

 INV41 10 

 INV4120 

 INV4130 

 INV4140 

 INV4150 

 INV4160 

 INV4170 

 INV4180 

 INV4190 

 INV4200 

 INV4210 

 INV4220 

 INV4230 

 INV4240 

 INV4250 

 INV4260 

 INV4270 

 INV4280 

 INV4290 

 INV4300 

 INV4310 

 INV4320 



74 



