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,COST,DELAY 



5 FORAIAT (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=n 

 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 FORMA.T (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 FORMA T(68X , 2H 1) 

 DO 30 IXXX= 5,40, 5 

 SLOPE=IXXX 

 XLGPC=XXGPC 



DO 35 IX=4,16,2 



LGPMBF=IX 



XLGPC=XLGPC-rCLC 



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



25 XLGPC=16. 



26 CONTINUE 

 J=J+1 



XGPMBF=LGPMBF 

 XBFPA=MBFPA 



35 CPMBFO)= ((XGPMBF*XBFPA*(RC-KSC*SLOPE)-KDC*DISTKXLC*XLGPC)) 

 1*(1.+DELAY)/ 



2XLGPC-hSETUP)*COST+RDLG*(13.58/((. 185*SLOPE**2)-(21 . 155*SLOPE) 

 3+715. 045)))/XBFPA 



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

 PUNCH 32, DIST,SL0PE,(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 



