COMPUTER PROGRAM 



DIMENSION (T(48),CPMBF(20) 

 13 CONTINUE 

 J=0 



READ 1,(T(I),I=1,12) 



1 FORMAT (12A4) 



2 FORMAT (1H1,12A4) 



READ 5,K,RC,SC,DC,XLC,C0ST,DELAY 



5 FORMAT (I10,4F8.6,2F5.2) 

 IF(K-l) 3,4,4 



3 GO TO 50 



4 CONTINUE 



READ 10,L,M,N,XXGPC,XETUP,CLC 

 10 FORMAT (9F8.2) 



20 DO30n= 5,60,5 MBFPA=II 

 PRINT 2,(T(I),I=1,12) 

 PUNCH 8,(T(I),I=1,12) 



8 FORMAT (12A4,20X,2H *) 

 PRINT 40, MBFPA 



40 FORMAT (/F10.0,29H THOUSAND BOARD FEET PER ACRE) 

 PUNCH 6, MBFPA 



6 FORMAT (F10.0,29H THOUSAND BOARD FEET PER ACRE,29X,2H 1) 

 PRINT 41 



41 FORMAT(//5X,48H DIST SLOPE LOGS PER THOUSAND BOARD FEET) 

 PUNCH 9 



9 FORMAT( 5X,48H DIST SLOPE LOGS PER THOUSAND BOARD FEET, 

 115X,2H 2) 



PRINT 42 



42 FORMAT (25X,43H 4 6 8 10 12 14 16 //) 

 PUNCH 7 



7 FORMAT (25X,45H 4 6 8 10 12 14 16 2) 

 DO 30 IXX=L,M,N 



DIST=IXX 



RDLG=20000./DIST 

 SETUP=XETUP/DIST 

 PRINT 51 

 51 FORMAT(/) 

 PUNCH 21 



21 FORMAT(68X , 2H 1) 

 DO 30 IXXX= 5,40, 5 

 SLOPE=IXXX 

 XLGPC=XXGPC 



DO 35 LX=4,16,2 



lgpmbf=ix 

 xlgpc=xlgpc-k:lc 



IF (XLGPC-16.) 26,26,25 



25 XLGPC=16. 



26 CONTINUE 

 J=J+l 



xgpmbf=lgpmbf 

 xbfpa=mbfpa 



35 cpmbfu)= ((xgpmbf*xbfpa*(rc+(sc*slope)-kdc*dist)+xlc*xlgpc)) 



1*(1.+DELAY)/ 



2XLGPC-fSETUP)*COST+RDLG*(13.58/((. 185*SLOPE**2)-(21.155*SLOPE) 

 3+715. 045)))/XBFPA 



PRINT 32, DIST,SLOPE,(CPMBFUJ),JJ= 1,J) 

 PUNCH 32, DIST, SLOPE, (CPMBF(JJ),JJ=1, J) 

 32 FORMAT(F10.0,F7.0,6X,7F6.2) 

 J=0 



30 CONTINUE 



GO to 13 

 50 CALL EXIT 



END 



14 



