SiJPROUTINF ASPSIT( AtH,S ) 

 DIMENSION X(10> ,P(10) 



DATA P /- 8. 7810*^4,-50 1 8 2 456 , -4 0. ? ^08 5 » 1 o «5 8oC 4, T a 345 S^^-^^P- 1 I , -Oo 1 64 

 1 5482 0F-6,-l, 1 64764E 1 , 1 . c).?3 54F- 4 , 3o 03 1 07qc _i 5 , -t „ 842 568 -^F-l / 



s=r.o 



= A 

 P=H 



P7-p*p 



PFC0=100.0/Q 



02=0*0 



Q?=0*Q? 



OLN=ALOG(0) 



X(1)=RFCQ-1.?5 



X( ?)=0LN-4, 382027 



X( 3)=P*( OLN/O-C. 5477533 E-1 ) 



X(4)=P«X(1) 



X( 5 )=P*( 02*03-32768. 0F5 ) 

 X( 6)=P*( 03-512,CF3) 



X(7)=P*(((1.0E3/FXO(0/?,n) )**2 8048 51P-2^ > 



X(8)=P2*(S0RT(0)-Po 9442 72 > 

 X( 9J =P*X( 5 ) 



X( in) =P2*( 1, OF 4/02- lo 56 25) 

 DO 1 I =1 ,1 

 \ S=S + B( I)*X( I ) 

 S=S+P 

 RETURN 

 ^ND 



Figure 12. — A site index estimation program for quaking aspen. 



21 



