-70- 



C COnPOTE ACCOHOLATED SOHS FOB INDIVIDOAL SPECIE 



ITYPE=33 



IF(ISPEC. GE. 12) ITYPE=3IJ 



DO 120 ID0HMY=1 ,IREP 

 X(ISPEC) = 1.0/DBH 

 T(ISPEC) =HEIGHT 

 NTB(ISPEC)=NTB(ISPEq +1 

 BTB(ITYPE) =NTR(ITyPE) +1 

 NTB{ 35 )=NTE( 35 ) +1 

 XSOJ!(ISPEC) =XSOH(ISPEC) *t (ISPEC) 

 TSO H (IS PEC) = Y SO H ( IS PEC) ♦Y ( ISP EC) 

 YSDH(ITyPE) =YSOH{ITYPE)*Y (ISPEC) 

 ¥SOa( 35 )=YSOH( 35 )+Y(ISPEC) 

 XSOMSQ (ISPEC) =XSOMSQ (ISPEC) +X (ISPEC) **2 

 YSOHSQ(ISPEC) =YSOaSQ(ISPEC) ^Y (ISPEC)**2 

 XYSOM(ISPEC)=XYSOa(ISPEC) +X(ISPEC) *Y(ISPEC) 



120 



130 



COHTINOE 

 GOTO 70 

 CONTINUE 



COUPOTE REGRESSION PABAHETEBS FOR ALL SPECIES 



DO 170 ISPEC=1,32 

 JTYPE=1 



IF(ISPEC-GE.12) JTYPE=2 

 IF(NTR(ISPEC) .LT. 1) GOTO 170 

 flEaNY(ISPEC) =YSOH (ISPEC) /HTR(ISPEC) 

 C CHECK TO SEE IF ENOOGH TREES EXIST FDR REGRESSION 



IF(NTR(ISPEC) .GE.3) GOTO 140 

 C CALOLATE CORRECTION SOHS FOR SPECIES WHERE NO REGRESSION HAS BUN 

 HHYCOR (jrYPE) =BNYCOB (JTYPE) +YSOM (ISPEC) 

 NTHCOR(JTYPE) =NTRCOR (JTYPE) +NTR (ISPEC) 

 GOTO 170 

 1«0 NOaREG (JTYPE) =N0aBEG (JTYPE) +1 



aEANX (ISPEC) =XS0a (ISPEC) /NTB(ISPEC) 

 VARX (ISPEC) = ( XSOaSQ (ISPEC) - 



(XSOa{ISPEC) **2/NTB (ISPEC) )) /(NTB (ISPEC) -1) 

 VARY (ISPEC)=(YSOBSQ(ISPEC) - 



(YSOa(ISPEC) ♦♦2/HTB (ISPEC) ))/(NTB (ISPEC) -1) 

 COVXY (ISPEC) = (XYSOB (ISPEC) - 



XS OH (ISPEC) *YS0a (ISPEC) /NTH (ISPEC) ) /(NT R (IS PEC) -1) 

 TO SEE IF VARIANCE IS ZERO 



IF (VARX (ISPEC) -GT. 0.00000 LAND. VARY (ISPEC). GT.O.OOOOOI) 

 GOTO 150 



REG INT (ISPEC) =HEANY (ISPEC) 

 GOTO 160 

 150 REGCOF(ISPEC)=COVXY (ISPEC) /VARX (ISPEC) 



REGINT(ISPEC) =MEANY (ISPEC) -REGCOF (ISPEC) *H£ANX (ISPEC) 

 160 IF(VABY (ISPEC). LT. 0.0000001) GOTO 170 



SSE = YSOHSe (ISPEC) -REGINT (ISPEC) ♦YSOa(ISPEq - 

 1 BEGCOF(ISPEC) *XYS0H (ISPEC) 



TYPSSE(jrYPE) =TYPSSE(JTYPE) ♦SSE 

 aSE=SSE/(NTB(ISPEC)-2) 



SEBEG(ISPEC)=SQBT(HSE/NTB(ISPEC) ) * 100/HEANY (I SPEC) 

 RSQR (ISPEC) =100* (COVXY (ISPEC) *»2) / (VA RX (ISPEC) ♦VABY (ISPEC)) 

 CONTINUE 



1 



1 



CHECK 



1 



170 



COHPOTE STANDARD ERROR FOB SOFTWOOD, HAR DHOOD, ALL SPECIES 



NTRC0B(3) =NTRC0B(1) +NTBC0B(2) 

 HNYC0E{3) =aNYC0B(1) +aHYC0E(2) 

 TYPSSE(3) =TYPSSE(1) ■••TYPSSE(2) 

 NUHREG(3)=N0HREG(1) +N0HBEG(2) 

 DO 180 JTYPE=1,3 



ISPEC=JTYPE+32 



IF (NTR (ISPEC) .LE.O) GOTO 180 



HEANY (ISPEC) =YSOa(ISPEC) /NTR(ISPEC) 



CORNTB=NTR(ISPEC) -NTBCOE (JTYPE) 



IF(COBNTB.LE. 0) GOTO 180 



COBHN¥= (YSOH(ISPEC) -HNYCOB (JTYPE) ) /CORNTB 



HSE=rYPSSE(JrYPE) /(CORNTB- 2*N0aEEG(JTYPE) ) 



SEREG (ISPEC) =SQRT(aSE/CORNTB) ♦lOO/CORBNY 

 180 CONTINUE 



CLOSE (0BIT=21) 



0PEN(UNIT=21,ACCESS=« SEQIH* ,FILE=IFILE) 



SKIP RECORD 21 



RETURN 



END 



LNRG0770 

 LNBG0780 

 LNBG0790 

 LNBG0800 

 LKRGOSIO 

 LNRG0820 

 LNBG0B3a 

 LNBG08U0 

 LNBG0850 

 LNRG0860 

 LNRG0870 

 LNRG0880 

 LNRG0890 

 LNRG0900 

 LNRG0910 

 LNRG0920 

 LNR60930 

 LKBG09l«0 

 LNRG0950 

 LNRG0960 

 LNRG0970 

 LNRG0990 

 LNRG0990 

 LNRG1030 

 LNRG1010 

 LNBG1020 

 LNRG1030 

 LNRGIOHO 

 LNRG10S0 

 LNRG1060 

 LNRG1070 

 LHRG1080 

 LHRG1090 

 LNRG1100 

 LNRG1110 

 LNRG1120 

 LKRG1130 

 LNRGIIitO 

 LNRG1150 

 LNRG1160 

 LNRG1170 

 LNRG1130 

 LtlRG1190 

 LNRG1200 

 LKRG1210 

 LUeG1220 

 LNBG1230 

 LNRG12U0 

 LNEG1250 

 LNBG1260 

 LNRG1270 

 LNRG1230 

 LNRG1290 

 LNRG1300 

 LNRG1310 

 LNBG1320 

 LNBG1330 

 LNRG1340 

 LNBG1350 

 LNRG1360 

 LNfiG1370 

 LNRG1380 

 LNBG1390 

 LNRGItOO 

 LNRGIltIO 

 LNBG1420 

 LNRG1(t30 

 LNRGIUaO 

 LNRG1450 

 LNBG1460 

 LNRG1470 

 LNRGIdSO 

 LNRG1<(90 

 LNRGISOO 

 LNRG1510 

 LNRal520 

 LNRG1530 

 LNRG1540 



