-75- 



C VLMROOIO 



SOBBOOTINE VOLHEB (DBH, HEIGHT, ISPEC, COBVOL.BDVOL) VLHR0020 



C VLHR0030 



C VLBB9050 



C THIS SOBPEOGBAM COHPOTES THE HERCHANTABLE COBIC AND BOARD F30r VLHR0060 



C VOLOHES OF INDIVIDOAL TREES. THE INPOT PARAHETEES ABE DBH, VLME0070 



C MERCHANTABLE HEIGHT, AND SPECIES. VLMBOOSO 



C VLHB0090 

 C THE COBIC FOOT EQUATIONS ARE FROM BAENABD, JOSEPH E. ET AL. 1973. VLHE0100 



C FOBEST SOEVET COBIC-FOOT VOLOHE EQUATIONS. OSDA FOBEST SEBV. VLHB0110 



C NE. FOREST EXP. STA. RESEARCH NOTE NE-66. VLnR0120 



C VL8R0130 

 C THE BOARD FOOT EQUATIONS ABE FBOH WIANT, H.V. AND CASTENADA, P. 1977 VLHEOIUO 

 C MESAVAGE AND GIRAED'S VOLUME TABLES FORMULATED. BESOURCE INVENTOBJ VLME0150 



C NOTES, USDI, BLB, DENVEE, COLO. VLMR0160 



C VLHB0170 

 C«*«* ♦♦*♦♦»*♦♦♦♦*****♦***♦****♦***♦*»*****♦♦****♦***♦*♦♦*♦♦****♦♦♦♦**♦♦» VLB EO 180 



C VLHE0190 



REAL HEIGHT, C0BIBT(17) ,C0BSLP(17) ,BDHT VLMEO2D0 



INTEGEB DBH,GBP(32) ,D,FC(32) VLMR0210 



COBBON/FOEBCL/FC VLaR0220 



C VLBR0230 



C DEFINE FORB CLASS FOE THE SPECIES VLBE02U3 



C VLMR0250 



DATA (FC(I) ,I=1,32)/3*76,70,7*76,21*7«»/ VLHE0260 



C VLBB0270 



C DEFINE VOLUME EQUATION GBOUPING FOB THE SPECIES VLaB0280 



C VLBB0290 



DATA (GEP(I) , 1= 1,32) /I, 1, 5, U, 3, 5, 2, 5, 5, 6, 1,7, 8, 9, 17,9,8,10 VLBR0 300 



1,4*11,12,13,14, 15,14, 15,1 a, 16, 2*17/ VLMB0310 



C VLaB0320 



C DEFINE THE INTEBCEPTS FOE THE COBIC VOLOBE EQUATIONS VLSB0330 



C VLBB0340 



DATA (CUBINT(I) ,1=1 , 1 7) /3. 5142,2. 1998 , 1 . 4793, 2. 4784,-. 0496, 1.5817 VLSR0 350 



1,1.6823,1. 1763,1.0067,1.1809, 1. 1339, 1-2 851 ,. 8976, 1 .2027,1 . 0009 VLBR0 35 3 



2, 1.4438.. 8591/ VLHR0370 



C VLBR0380 



C DEFINE THE SLOPES FOR THE COBIC VOLOBE EQUATIONS VLMR0390 



C VLBR34DD 



DATA (COBSLP(I) ,1=1 ,1 7) /236 , 257 , 272, 242,3 03, 259, 310, 310,293 ,2 92 VLBR0410 



1,281,326,349,3 01,300,316,309/ VLaR0420 



C VLBB0433 



C FONCTION TO COBPOTE BOARD FOOT VOLOBES FOR G. F. C 78 VLaR0440 



C VLBR0450 



HIANT(DBH,BDHT)=(-13.35212*9.58615»BDHT+1.52968*BDHT**2)+ VLaR0460 



1 (1. 79620-2. 59995*BDHT-.27465*BDHT**2)*DBH+ VLHR0470 



2 (.04482+.45997*BDHT-.00961*BDHT**2) *DBH**2 VLBB0480 

 C VLaE0490 



C DETERBINE BOABD FOOT HEIGHT TO THE HALF-LOG VLMB0530 



C VLBEOSIO 



BDHT=HEIGHT/16-0 VLBE0520 



CBHT=HEIGHT VLaE0530 



C VLBB0540 



C CALCULATE CUBIC AND BOARD FOOT VOLUBE VLBR0550 



C VLMR0560 

 C0BVOL=COBINT(GEP(ISPEC)) +. 0000 1 ♦COBS LP (GBP (ISPEC) ) ♦CBHr*DBR**2 VLMR0570 



BDVOL=HIANr(DBH, BDHT)*(((FC(ISPEC)-78)*.03)+1) VLaR0580 



IF(BDHT.LT. 0.5) BDVOL=0 VLMR0590 



IF{CUBVOL-LT.O) C0BVOL=0 VLaR0600 



IF(BDVOL. LT.O) BDVOL=0 VLBE0610 



HETOBN VLBB0620 



EUO VLaB0630 



