-76- 



C VLTT0013 



SOBEOOTINE VOLTOT (DBH, HEIviHT.ISPEC.COBVOL, BDVOL) VLTT0020 



C VLTT0030 



C ******************************************************** ************«**VLTT0O(tO 



C VLTT0050 



C THIS SOBPBOGBAH COHPOTES THE HEECHANTftBLE COBIC AND BOABD FOOT VLTTOOeO 



C VOLOHES OF INDIVIDUAL TE EES. THE INPDT PAEABETEES ARE DBH, VLTTOOTO 



C TDTAL HEIGHT, AND SPECIES. VLTTOOaO 



C VLTT0090 



C ALL OF THE EQUATIONS OSED ABE FEOM HONEB, T. G. 1967. STANDAED VOLOBE VLTT0100 



C TABLES AND BEECHANTABLE CONVEBSIOH FACTOES FOE THE COHBEECIAL TREE VLTTOIIO 



C SPECIES OF CENTEAL AND EASTEBN CANADA. FHB-X-5, FBI, OTTAWA, CANADA VLTT0120 



C VLrT0130 



C**** ******************************************************* ************VLrTO lltO 



C VLTT0150 



INTEGEE GBP(32) ,DBH VLTTOieO 



REAL C0BINr(16) ,C0BSLP(16) ,ASDBCF(3) ,ASDBBF(3) ,BEDT0P(2) .COBTOP {2 ) VLTTO 170 



C VLTT0180 



C DEFINE VOLOBE EQOATION GBOOPING FOB THE TBEE SPECIES VLTT0 190 



C VLTT0200 



DATA (GBP (I), 1=1, 32) /I, 2, 2, 6, a, 2, 3, 3, 2, 5, 2, 10, 10, 16, 15,7, 10, 1 3 VLTT0210 



1,8,9,8,8, 12, 11, 3*16, H», 16,16,15,15/ VLTT0220 



c vLrro230 



C DEFINE THE INTEBCEPTS FOB THE TOTAL COBIC FT VOL EQOATIOH VLTT0240 



C VLTT0250 



DATA {CO BINT (I) , 1= 1, 16) /- 691 , . 710, 1.226,2. 139 ,4. 167, 1. 112,-. 3 12 VLTT0260 



1,2.222,1.««9,1-0i»6, .9H8,.959,-033,.63i»,1.877,1.512/ VLrT0270 



C VLrT0280 



C DEFINE THE SLOPES FOB THE TOTAL COBIC FT VOL EQUATION VLTT0290 



C VLTT0300 



DATA (COBSLP(I) , 1= 1, 16) /363- 676,355.623 ,315. 832,30 1. 63U, 2au. 9 06 VLTT0310 



1,350.09 2,iJ36.683,300-373, 3ai*.754,383-972,<»01.i»56,33i».829 VLTT0320 



2, 393. 366, 4i»0.<»96, 332. 585, 336-509/ VLTT0330 



C VLrT03i»0 



C DEFINE STOMP HEIGHT AND BEECH TOPS VLTT0350 



C VLTT0 350 



DATA STOBP/0. 5/ VLTT0370 



DATA (CaBTOP(I) ,I=1,2)/a.0,U.0/ VLTT0380 



DATA (BEDTOP(I) ,1=1,2) /6.0, 8.0/ VLrT0390 



C VLTTOUOO 



C DEFINE ADJUSTED SQED DIA EATIO COBIC FT VOL CONVERSION COEFFICIENTS VLTTOIIO 



C VLTT0420 



DATA (ASDECF(I) ,1=1, 3)/.960«,-. 1660, -.7868/ VLTT0H30 



C VLTTOUUO 



C DEFINE ADJUSTED SQBD DIA EATIO BOAE D FT VOL CONVERSION COEFFICIENTS VLTTOttSO 



C VLTT0460 



DATA (ASDSBF(I) ,1=1, 3)/5.«332,- 1.6281,-4.4710/ VLTT0470 



C VLTTOUSO 



C DETERMINE SB OB HW TYPE VLTT0490 



C VLTT0500 



IF(ISPEC.LE.II) ITIPE=1 VLTTOSIO 



IF(ISPEC. GE. 12) ITYPE=2 VLTr0520 



c vLrro530 



C COBPOTE TOTAL COBIC FOOT VOLOBE VLrT0540 



C VLTTOSSO 



TCBVOL=DBH**2/(C0BINT(GBP(ISPEC)) ♦COBSLP (GBP (ISPEC) ) /HEISHT) VLTT0560 



C VLrr0570 



C COBPOTE BEECH COBIC AND BOABD FT VOLUMES VLTT0580 



C VLTr0590 



XCUB=( (CUBTOP(ITYPE) /DBH) **2) * (1. O+STOMP/HEIGHT) VLrT0600 



XBE&= ((BEDrOP(ITYPE)/DBH) **2) *( 1. + STOMP/HEI3HT) VLTT0610 



C0BVOL=TCBVOL*(ASDRCF(1)+ASDECF(2) *XCOB+ASDECF (3) *XC0B**2) VLTT0620 



BDVOL =TCBV0L*(ASDBBF(1) ♦ASDEBF (2) •XBED+ASDRBF (3) »XBBD**2) VLrT0630 



IF(COBVOL.LT. 0) C0BVOL=0 VLTT0640 



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



BETOBN VLTT0660 



END VLrT0670 



