SUBROUTINE H TS T ( 1 b P , 1 h A b , U , H , DO , D2 , H2 ) 

 C ISP IS SPECIES SUBSCRIPT 



C IHA8 IS HABITAT SUBSCRIPT 



C D IS D I A ME TE R 



C H I S HF IGHT 



C DO I S 10- YEAR PAST UbH GROWTH 



C 2 IS THE NE w DiAMtTER 



C H 2 IS THE NE W HE1 GHT 



DIMENSION ASPE ( lUi »AH Ab I L Q ) tBHAB(lO) » C HAB ( 10 ) , BKRl 1U ) 



C 



DEFINIT I ON 



c 



SPEC IF S SUB SCR IP T 





c 



I 



*H1TL PINE 



c 



2 



WtSTtRN LARCH 



c 



3 



DOUGLAS FIR 



c 





v^RANU FI R 



c 



5 



rtt STERN HFMLOCK 



c 



6 



CEDAR 



c 



7 



LODGtPOLF 



c 



8 



SPRUCE 



c 



9 



SUbALPlNE FIR 



c 



10 



PONULROSA PINE 



□ A TA A SPE /-O. 2608.il, -0. 531 32 2 ,-0.5 36 742,-0.423059, 

 I -0.5 6 9264,-0. 7622 72 rO. <t 8 5*3 9 , -0 . 625 377 , -0 . 7 17423, -0. 18 5745/ 



C 



C HABITAT SUBSCRIPT DEFINITION 



C I PSLUDOTSUGA / PHYSOCARPUS 



C 2 PSLUDOTSUGA / SY MPHORI CARPOS 



C 3 PSLUDOTSUGA / CALMAGROSTIS 



C 4 ABItS GRANDIS / PACHISTIMA 



C 5 AbltS LASIOCARPA / PACHISTIMA 



C 6 AB1LS LASICCARPA / X EROPHY LLUM 



C 7 AditS LASIOCARPA / MENZIESIA 



C 8 AbiES LASICCARPA / VACCINIUM 



C 9 THUJA / PACHISTIMA 



C LO TSUGA HE TE ROPHY LL A / PACHISTIMA 



DATA A HAB/ 3- 2 82 70, 2. 962 02, 2. 53 33 9 ,4. 7 65? ,4.45741, 

 1 2.9 7625,2.25931 ,3.34*00,3.59483,3.85106/ 



DATA BHAB/ .1 1127472,. 96 58621 , .6188 3491 , .44919991, .61660659, 

 I .05 59213 53,. 482 I *196,. 75* 576 98 ,.2 7 09992 5, .4090 76 45/ 



DATA C HAB /. 002 77 89 97* ,-0. 31 462 08 5 , -0 . 56538*03 , -0 .35626*83t 

 1 -0.47227 514,. 049378771 ,.21*72478 ,-0.370 78756,-0.2315979, 

 1 -0.22855937/ 



DATA 0SP/-0. 1955*013/ 



DATA BKR /10* 1.09/ 



02 = SQRT(D**2 *■ DO * (2. * D - DDI * BKR(ISP) / 10.) 

 H2 = H ♦ E XP( A SPE ( ISPJ ♦ AHA6UHAB) + BHAB { IHAB ) * ALOGIDD + 0.05) 

 1 ♦ CHABI I HAB) * ALUSiD) *■ DSP * A LOG ( H ) ) * 0.109693 

 RE TURN 

 END 



20 



if U.S. GOVERNMENT PRINTING OFFICE: 1974 _ 677-092 / 30 REGION NO. 8 



