00 412 1=1. LENGTH INV4330 



WRITE(6l»72) RATE (I) » (VALIN(L. I) »L=1 «LX» INV4340 



412 CONTINUE INV4350 

 W«ITE(61»65) (NAME(I) »I=1»19) INV4360 

 XRrTE(61t78) INV4370 

 00 413 L-ltLX INV4380 

 00 413 I»ltLENGTH INV4390 



413 VALIN(L.I)»VALIN(L»I)-FCR0P(L,I) INV4400 

 WRITE (61 »55) (LI (L) »L«1.6) INV4410 

 WRITE(61,70) (LY (L) •L=l .6) 1NV4420 

 00 415 I«ltLENGTH INV4430 

 »<RITE(61»72) RATE(I) » (VALIN(L»I) tL=l»LX) INV4440 



415 CONTINUE INV4450 



60 TO 600 INV4460 



600 CONTINUE INV4470 



VALIN (L» I ) "CO SFCROP (L» I ) =0.0 INV4480 



MRITE (61 «610) INV4490 



REAO CARD 12»EnO OF PROBLEM INV4500 



READ(60»27) lENO INV4510 



IF { IEND-98)900»100»910 INV4520 



900 »i*RITE 161 »99) INV4530 



910 STOP INV4540 



END INV4550 



3200 FORTRAN DIAGNOSTIC RESULTS - FOR INVEST6 



75 



