-74- 



CALCULATE TOTALS FOB SOFTWOODS ARD HARDWOODS 

 ^^^^^^*m*************************** ********** 



200 DO 230 ITIPE=33,34 



DO 220 DBH=CLASIZ,UO,CLASIZ 



DO 210 ISPEC=ISTABT(ITYPE-32| ,ISTOP 



BASPAC(DBH,ITyPE) =BASPAC( DBH, ITYP 



TBEPAC(DBB, ITYPE)=TEEPAC(DBH,ITIP 



CBVLSH(DBH, ITSPE) =CBVLSH ( DBH, ITYP 



BDVLSH(DBH,ITyPE)=BDVLSIl(DBH,ITYP 



210 PLVLSH(DBH, ITtPE) =PLVLSH (DBH, ITYP 



BASTOT(ITYPE)=BASTOT{ITYPE) ♦BASPACC 



TEETOT(ITYPE)=TRETOT(ITYPE) +TEEPAC( 



CBTOT (ITYPE) =CBTOT (ITYPE) -t-CBVLSH (DB 



BDTOT(ITYPE)=BDTOT(ITYPE)+BDVLSH(DB 



223 PLTOT (ITYPE) =PLTOT( ITYPE) ♦PLVLSa{DB 



(ITYPE-32) 



E) +BASPAC(DBH, ISPEC) 



E) ♦TREPaC(DBH, ISPEC) 



E) ♦CBVLSH(DBH, ISPEC) 



E) +BDVLSa(DBH, ISPEC) 



E)+PLVLSa(DBH,ISPEC) 



DBH, ITYPE) 



DBH, ITYPE) 



H, ITYPE) 



H, ITYPE) 



H, ITYPE) 



230 CONTINOE 



*4t««4i* «*«*««*««*«««*»****«* ****** 



CALCULATE TOTALS FOE ALL SPECIES 

 ********************************* 



DO 2«0 DBH=CLASIZ,40,CLASIZ 



BASPAC(DBH,35)=BASPAC (DBH, 33) ♦BASPiC (DBH, 34) 

 TBEPAC(DBH, 35)=TBEPAC(DBH, 33) +TEEPAC (DB H, 34) 

 CBVLSa(DBH,35)=CBVLSH(DBH,33) +CBVLSH (DBH, 34) 

 BDVLSH(DBH, 35)=BDVLSH(DBH, 33) +BDVLSH (DBH, 34) 

 PLVLSa(DBH,35)=PLVLSH(DBH,33)*PLVLSB(DBH,34) 

 240 CONTINUE 



BASTOT(35) =BASTOT (33) ♦BASTOT(34 ) 



TBETOT (35) =TEErOT (33) +TBETOT (34) 



CBTOT(35) =CBT0T(33) +CBTOT(34) 



BDTOT(35)=BDT0T (33) ♦BDT0T(34) 



PLT0T(35) =PLT0T{33) +PLT0T (34) 



*************************** 



CALCULATE STANDARD ERRORS 

 *************************** 



FINPOP=1.0 



IF(FRAHE.EQ.' PLOT') FINPOP= ( (ACRES/BAF) -NPNTS) /( ACEES/BAF) 

 IF(FINPOP. LT. 0.0) FINPOP=0.0 

 CHECK TO SEE IF DATA IS IN SUMHAEY FOEB 

 IF(POINT. EQ. -9) GOTO 270 

 DO 260 ISPEC=1,35 



IF(TRETOT(ISPEC) .Eg.O) GOTO 260 

 IF(FBAHE. EQ. • PLOT') GOTO 250 



PCTCEZ=100*NPNTS*BASTOT(ISPEC) /TRET OT (ISPEC) /ACEES/BAF 

 IF(PCTCBZ-GT. 100.0) PCTCRZ = 100.0 

 FINPOP= (100-PCTCRZ) /100 

 250 VAECnB= (CUBSQ (ISPEC) -NPNTS* (CBTOT (ISPEC) **2) ) /(NPNTS-I) 



VAEBBD(ISPEC) = (BEDSQ(ISPEC)-NPNTS* (BDTOT (ISPEC) **2) ) /(HPNTS-1) 

 VAEPUL (ISPEC) = (PULSQ (IS PEC) -NPNTS *1PLT0T (ISPEC) •*2) )/(NPNTS-1) 

 SECOB(ISPEC) =SQBT((VAECUB/BPNTS)»FINPOP) 

 SEBED(ISPEC)=SQET((VAEBBD(ISPEC) /NPNTS) *FINPOP) 

 260 SEPUL(ISPEC) =SQRT ( (VARPOL(ISPEC) /NPNTS) *PINPOP) 

 CHECK TO SEE IF REGRESSION ROUTINE USED 

 270 IF(EEGANS.EQ. 'YES') RETURN 

 DO 280 ISPEC=1,35 



IF(rOTNTE(ISPEC) . EQ.O) GOTO 280 



EEGHGT = PLOAT(TOTNTR (ISPEC) -NTR(IS PEC) ) /FLOAT (TOTNTR (ISPEC) ) 

 SECUB(ISPEC)=SQRT(SEC0B(ISPEC)»*2 * 

 1 REGHGT»(SEBEG (ISPEC) »CBTOT(ISPEC) /100.) **2) 



SEBRD(ISPEC) =SQRT(SEBRD(ISPEC)**2 ♦ 

 1 REGWGT* (SEEEG(ISPEC) *BDTOT( ISPEC) /I 00.) **2) 



SEPOL (ISPEC) =SQRT(SEPUL(ISPEC) **2 * 

 1 EEGWGT*(SEREG(ISPEC)*PLTOT(ISPEC)/100.) ♦♦2) 

 280 CONTINUE 

 RETURN 

 END 



GUTS2310 

 GBTS2320 

 GUrS2330 

 GUTS2340 

 G0rS2350 

 GaTS2360 

 GUr32370 

 GnTS2330 

 GUrS2390 

 GUTS2400 

 GOTS2410 

 GUrS2420 

 GUTS2430 

 GnTS2440 

 G0rS2450 

 GUTS24S0 

 GnTS2470 

 GUTS24B0 

 GUTS2490 

 GUTS2530 

 GUrS2510 

 GUTS2520 

 GUTS2530 

 G0TS2540 

 GOrS2553 

 GOTS2560 

 GUTS2570 

 G0rS2580 

 GnTS2590 

 GUTS2600 

 GUTS2610 

 GUTS2620 

 GOrS2630 

 GUTS2640 

 GUrS2650 

 GUrS2660 

 GUrS2670 

 G0TS2680 

 GUTS2690 

 Gnrs2700 

 GUTS2710 

 GUrS2720 

 GUTS2730 

 GnTS2740 

 G0TS2750 

 GUTS2760 

 GnTS2770 

 GUrS2780 

 GUTS2790 

 GUT528a0 

 GUTS2810 

 GOTS2820 

 G0rS2830 

 G0TS2840 

 GOTS2850 

 GUTS2860 

 SOrS2870 

 GnTS2880 

 GnTS2890 

 GUTS2900 

 GOTS2910 

 GUTS2920 

 G0TS2930 

 G0TS2940 

 G0TS2950 

 G0rS2960 

 GUrS2970 

 GOrS2980 

 GUTS2990 

 GOTS3030 

 GUTS3010 

 GUTS3020 



