Figure 21. — Investment Analysis Program No. 6. 



31/32/3300 FORTRAN (2.1)/mS0S 02/0P/68 



PROGRAM INVFSTh 

 C INVESTMENT ANALYSIS PROGRAM — DECEMBER 19ft7 



C 



C J. H. wIKSTROM 



C INTERMOUNTAIN FOREST AND RANGE EXPERIMENT STATION 

 C 



C THIS PROGRAM IS AN ADAPTATION OF CLARK ROWfS INVfST PROGRAM 

 C IT CAN BE USED WITH OR WITHOUT PRODUCT VALUES 



C IT HANDLES BOTH PERIODIC AND ANNUAL COSTS AND INCOMES I 

 C EXTRA CONTROL CARDS ARE NEEDED FOR PRODUCT RETURNS 

 C FINAL VALUE IS HANDLED AS A PERIODIC INCOME 

 C 



C PROGRAM CONTAINS 3 OPTIONS 



C GENERAL OPTION FOR INTERNAL RATE OF RETURN-PRESENT WORTH 



C OPTION FOR STAND REPLACEMENT PRIORITIES 



C OPTION TO EVALUATE TIMBER STAND IMPROVEMENT ALTERNATIVES 



C 



C RE-ROW — USES RESEARCH PAPER SO-6 

 C RE-MARTY, ETAL — USDA HANDBOOK 304 

 C 

 C 



DIMENSION AN (6,4) tCAN (6*4) tNC (6, 100) ,PECO(6«l00) ^Nl (6f 100) tJLDl (6, 

 150) ♦ JUALl (6»50) »N2 (6, 100) « JLD2(6,5o) » JUAL2 (6*50) tN3(6,l00)»JLD3(6» 

 250) . JUAL3<6,50) »PR (3»3) tCPR (3»3) ,FVAL (6» I ), RATE 1 100) tRTLOG ( 100) » 

 3VAL IN (6*100) »FCR0P(6» 100) »LY(6)»KCX(6),K1X(6),K2X(6)»K3X(6)»NZ(6) 



DIMENSION NI(6«4)»NT(6»4)»A(12)»LI(6)«JX(6fl0)«RINT(3) , NAME (20) 



DIMENSION IDEN(20) 



C 



C FORMATS USED 

 C 



10 FORMAT (8A4) 



11 FORMAT ( 19H1NAT lONAL EOREST »8AA) 



12 FORMAT (BHOUNIT - ,8A4) 



13 FORMAT ( 13H0ATTENTI0N - ,8A4/1H-) 



14 FORMAT ( 1H0»38X ,44HINVESTMENT ANALYSIS PROGRAM NO. 6, INT. STA.,/) 



15 FORMAT ( 19A4,2X, 12) 



16 FORMAT ( 15H0PR0BLEM NO. , i 9 A4 , 4X , 4HI 0= ♦I2,/1H-) 



17 FORMAT (20A4) 



18 FORMAT (1H04X,20A4) 



19 FORMAT (3F4. 3, 12) 



20 FORMAT ( 1H0»44X,34HGENERAL EVALUATION OF ALTERNATIVES) 



21 FORMAT ( 1H0.40x,42hEVALUATION OF STAND REPLACEMENT PRIORITIES) 



22 FORMAT ( lH0t38x,47HEVALUATION OF TIMBER STAND IMPROVEMENT PROGRAMS) 



23 FORMAT ( IHO, 16X,3 (2X4HRINT) . 1X,3HJPR) 



24 FORMAT ( 17H0C0NTR0L CARD 6 . 3 ( F6 . 3) . 2X » 1 2) 



25 FORMAT (37H0CONTROL CARDS FOR FUTURE STANDS«**»») 



26 FORMAT (38H0CONTROL CARDS FOR FIRST TSI PLAN»«»»») 



27 FORMAT (7I2»6I3»24I2) 



28 FORMAT ( 1H016X,2HLX,6 (2X»2HLI ) ,6 ( 3X,2HLY) ♦ 2X , 2HKX , 1 X , 4HKCXX » 6 ( 1 X ♦ 

 13HKCX) ) 



?9 FORMAT ( 17HMC0NTR0L CARD 7 , 1 2 • <> < 2X , 1 2 ) , 6 ( 2X , I 3) t 2X , 1 2 1 3X » 1 2 ♦ 6 ( 2X ♦ 



112)) 



30 FORMAT ( 1H015X,3HJXX»6 (2X,2HJX) « 1X,3HNZZ.6 (2X»2HNZ) , 1 X , 3HI ST ♦ 2X , 

 12HMX ) 



31 FORMAT (17HMC0NTR0L CARD 7 . I2» 15 (2X, 12) ) 



32 FORMAT (1HO»49X,24HROTATION LENGTH IN YEARS) 



33 FORMAT (8X,I3,5(17X,I3) ) 



34 FORMAT (?7HoPERIOOIC COSTS AND INCOMES . /2X , 6 ( 1 4HYEAR COST.ftX)) 



35 FORMAT (6( I3«F9. 2) ) 



36 FORmAT (2X,ft(i4,lX»F9.2.6X) ) 



37 FORMAT (4 (?n,F8.2,F6. 3) 1 



38 FORMAT ( 39H0ANNUAL COSTS AND RETURNS — ALT. OR PLAN, 14) 



39 FORMAT ( i0X,8HiST YE AR , i X I 3 ,2^ • 8HEN0 YE AR , 1 X , I 3 » 2X , 1 H$ ,F9 . 2 , 2X , 6HCH 

 1 ANGE ,F7.3) 



40 FORMAT (AIHONO ANNUAL COSTS OR RETURNS — ALT, OR PLAN,U) 



41 F0RMAT(21I2) 



42 FORMAT(1H017X,4HK1XX,6(2X»3HK1X) ) 



43 FORMAT (17HMC0NTR0L CARD U ,12<2X,I3)) 



INV 



1 



I I'* V 



?(1 



T M W 



J yj 



T NW 

 1 V 



4 n 



T 



1 1I V 



so 



1 V 





I NV 



70 



I NV 



u 





90 



T KIV/ 

 1 ni V 





T KJU 

 1 ni V 



1 1 u 



1 I'f V 





T NV 



1 "t V 



1 30 



INV 



140 



I NV 



1 50 



INV 



160 



I NV 



1 70 



I NV 



1 80 



I NV 



190 



T NV 



200 



I NV 



210 



INV 



220 



I NV 



230 



I NV 



240 



T NU 



PS n 



T NW 



1 •'I V 



cD u 



T N V 

 I m V 



C 1 V 



T Nu 

 1 Pi V 



c u 



T NU 

 1 n V 



?9n 



1 n V 



J U U 



1 I'l V 



1 





J c u 





J JO 



INV 



1 A n 



I IN V 





T NV 



1 1, V 



360 



T NV 

 A r# V 



T70 



T NV 



380 



I NV 



390 



INV 



400 



I NV 



410 



INV 



420 



I NV 



430 



INV 



440 



I NV 



450 



INV 



460 



I NV 





I NV 



480 



INV 



490 



T NU 





T NV 



5 1 



T NV 





T NU 

 1 ni V 



J u 



T Klu 



S A A 



T NU 





1 NV 



L> U 



I NV 



570 



INV 



580 



INV 



590 



INV 



600 



INV_ 



f^in 



INV 



620 



INV 



630 



INV 



640 



INV 



650 



INV 



660 



INV 



670 



INV 



680 



69 



