﻿Figure 
  9. 
  — 
  EDP 
  program 
  for 
  investment 
  analysis, 
  No. 
  2, 
  adapted 
  from 
  Clark 
  Row 
  program. 
  

  

  3200 
  FORTRAN 
  (2.0) 
  09/12/67 
  

  

  PROGRAM 
  INVEST2 
  

   C 
  INVESTMENT 
  ANALYSIS 
  PROGRAM 
  

  

  C 
  CLARK 
  ROW 
  * 
  SOUTHERN 
  FOREST 
  EXP. 
  STA. 
  1963 
  

  

  C 
  ROW 
  — 
  USFS 
  RESEARCH 
  PAPER 
  SO-6 
  

  

  C 
  REVISED 
  MARTY 
  1966— 
  

  

  C 
  MABTY— 
  USOA 
  HANDBOOK 
  304 
  

  

  C 
  REVISED 
  INTERMOUNTAIN 
  STA. 
  ( 
  WIKSTROM) 
  — 
  1967 
  

  

  DIMENSION 
  ANC(IO) 
  *CANC 
  < 
  10 
  > 
  »NC 
  (3 
  ♦ 
  100 
  > 
  *PECO(3*l00) 
  »N1 
  (3»100) 
  *JLDl 
  (3* 
  

   1 
  50) 
  ♦ 
  JUAL1 
  (3» 
  50) 
  »N2(3»100) 
  » 
  JUAL20* 
  50) 
  »N3 
  (3* 
  100) 
  i 
  JLD3 
  (3* 
  50) 
  ♦ 
  JUA 
  

   2L3(3» 
  50) 
  »PR(3»10) 
  *CPR(3*10) 
  »FVAL(25) 
  *RATE<100) 
  »RTLOG(100) 
  *VALIN( 
  

   33»100> 
  «LY(3) 
  »KCX(3) 
  »KlX(3) 
  *K2X(3) 
  »K3X<3) 
  »A(12) 
  »LI 
  (3) 
  »JLD2<3» 
  5o) 
  

  

  DIMENSION 
  RINT(3) 
  »NAME(20) 
  

  

  C 
  

  

  1 
  READ 
  (60*10) 
  ( 
  NAME 
  ( 
  I 
  ) 
  ♦ 
  I 
  = 
  1 
  * 
  8 
  ) 
  

  

  10 
  FORMAT 
  (8A4) 
  

  

  WRITE 
  (61*9) 
  (NAME 
  ( 
  I 
  ) 
  * 
  1 
  = 
  1 
  »8) 
  

   9 
  FORMAT 
  (19H1NATI0NAL 
  FOREST 
  - 
  *8A4) 
  

  

  READ 
  (60* 
  10) 
  (NAME 
  ( 
  I 
  ) 
  * 
  1 
  = 
  1 
  »8> 
  

  

  WRITE 
  (61*8) 
  (NAME 
  ( 
  I 
  ) 
  » 
  1=1 
  »8) 
  

   8 
  FORMAT 
  ( 
  8H0UNIT 
  - 
  *8A4) 
  

  

  READ 
  (60*10) 
  (NAME(I) 
  *I=1»8) 
  

  

  WRITE 
  (61*7) 
  (NAME 
  ( 
  I 
  ) 
  » 
  1=1 
  »8) 
  

   7 
  FORMAT 
  (13H0ATTENTI0N 
  - 
  *8A4/1H-) 
  

  

  WRITE(61»20) 
  

  

  20 
  FORMAT 
  ( 
  lHo»4lX34H 
  IN 
  VESTMENT 
  ANALYSIS 
  PROGRAM 
  NO. 
  2) 
  

   C 
  READ 
  CARD 
  5* 
  PROBLEM 
  TITLE 
  

  

  142 
  READ(6 
  0 
  *l5) 
  (NAME(I) 
  »t*l*20) 
  

   15 
  FORMAT 
  (20A4) 
  

  

  GO 
  TO 
  (410»143)EOFCKF(60) 
  

  

  143 
  IF 
  (NAME 
  (1) 
  .EQ.4HNEW 
  ) 
  1*144 
  

  

  144 
  WRI 
  TE 
  (61 
  »21 
  ) 
  (NAME 
  (I) 
  »I=1*20) 
  

  

  21 
  FORMAT 
  (14H0 
  PROBLEM 
  NO 
  *20A4) 
  

  

  C 
  READ 
  CARD 
  1* 
  RATE 
  AND 
  OUTPUT 
  OPTIONS 
  

   READ 
  (60* 
  17000) 
  (RINT 
  ( 
  I 
  ) 
  ♦ 
  1=1 
  *3) 
  *IOUT 
  

  

  17000 
  FORMAT 
  (3F4.3»I2) 
  

  

  WRITE 
  (61* 
  1800) 
  (RINT(I) 
  ♦ 
  1=1*3) 
  *IOUT 
  

   1800 
  FORMAT 
  (17H0CONTROL 
  CARD 
  5 
  » 
  3F5.3*I4) 
  

   RATE(1)=RINT(1) 
  

   DO 
  17001 
  1=2*200 
  

  

  IF 
  (RATE(I-D-RINTO) 
  ) 
  17002*17003*17003 
  

  

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

   GO 
  TO 
  17001 
  

  

  17003 
  LENGTH=I-1 
  

  

  IF 
  (LENGTH- 
  (LENGTH/2) 
  *2) 
  17004* 
  17005. 
  17004 
  

  

  17004 
  LLNGTH= 
  (LENGTH* 
  1 
  ) 
  /2 
  

   GO 
  TO 
  137 
  

  

  17005 
  LLNGTH=LENGTH/2 
  

   GO 
  TO 
  137 
  

  

  17001 
  CONTINUE 
  

  

  137 
  DO 
  138 
  1=1, 
  LENGTH 
  

   138 
  RTLOG(I)*l.*RATE(I) 
  

  

  C 
  

  

  C 
  READ 
  CARDS 
  6-7, 
  PROBLEM 
  DESCRIPTION 
  AND 
  SCHEDULE 
  LABELS 
  

  

  READ 
  (60*11 
  )LZ*LX* 
  (LI 
  (L) 
  »L=1*3) 
  ♦ 
  (LY(L) 
  *L*1 
  *3) 
  »KX*KCXX» 
  (KCX(L) 
  *L=1»3 
  

   1) 
  *JX»MX*NZ*NX 
  

  

  11 
  FORMAT 
  (212* 
  313* 
  9X, 
  313 
  *9X» 
  12*41 
  3 
  *9X*4I2) 
  

   WRITE(61*99) 
  

  

  99 
  FORMAT 
  (1H016X,2HLZ,2X,2HLX» 
  3 
  ( 
  3X*2HLI 
  ) 
  *3(3X»2HLY) 
  »2X.2HKX, 
  1X*4HKCXX 
  

   1*3(2X»3HKCX) 
  ,2X,2HJX»2X,2HMX»2X»2HNZ»2X»2HNX) 
  

  

  WRITE(61*55)LZ*LX» 
  (LI 
  (L) 
  *L=1»3) 
  » 
  (LY(L) 
  *L=1»3) 
  »KX.KCXX* 
  (KCX(L) 
  *L*1* 
  

   13) 
  * 
  JX*MX*NZ*NX 
  

  

  55 
  TtiKMMf* 
  I 
  ThMCCWTROL 
  CARD 
  6 
  > 
  I2*ZX, 
  12*6 
  12X* 
  13 
  J 
  »2A» 
  1?*4\2X, 
  iSi 
  *4 
  (EX 
  

   1*12) 
  ) 
  

  

  READ 
  (60* 
  88 
  )K1 
  XX* 
  (KlX 
  (L) 
  »L*1 
  *3) 
  *K2XX* 
  (K2X(D 
  *L=1»3) 
  *K3XX* 
  (K3X(L) 
  * 
  

  

  34 
  

  

  