-73- 



ACCOHOLATE SOHS OP SQOAEES FOB VOLOHES 

 DO 130 ISPEC=1,35 



COBSQ(ISPEC) =COBSQ(ISPEC) -fCOBPT (ISPEC) **2 

 BEDSQ(ISPEC) =BRDSQ{ISPEC) +BEDPT (ISPEC) **2 

 POLSQ(ISPEC) =POLSQ(ISPEC) +POLPT (ISPEC)**2 

 COBPT (ISPEC) =0 

 POI.PT(ISPEC) =0 

 130 BBDPT (ISPEC) =0 



GOTO 20 

 1U0 CONTINOE 



IF ONLY ONE POI HT SAHPLED, SET IN SOHHARY BODE 

 IP(HPNTS. EQ. 1) P0INT=-9 



DETEBMINE SAHPLING METHOD 

 ***««******«***«*«« ««>*• ******* 



IF(FRAHE-EQ.'PLOT«) GOTO 170 



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

 POINT SAHPLING 



CALCULATE PER ACRE ESTIMATES FOR IHDIVIDOAL SPECIES 

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



DO 160 ISPEC=1,32 



DO 150 DBH=CLASIZ,l»0,CLASIZ 

 C CHECK TO SEE IF ANY TREES TALLIED 



IF (TEECNICDBH, ISPEC) .EQ.O) GOTO 150 

 C BASAL AREA CALCULATIONS 



BASPAC(DBH, ISPEC) =TRECNT (DBH, ISPEC) 'BAF/NPNTS 

 BASrOT (ISPEC) =BASTOT( ISPEC) +BASP AC (DB H, ISPEC) 

 C TREES PEB ACRE CALCULATIONS 



TREPAC(DBH, ISPEC) =BASPAC (DBH, ISPEC) /(. 005l*5a*DBH**2) 

 TBETOT (I SPEC) =TRETOT (ISPEC) +TREPAC (DBH, ISPEC) 

 C CUBIC VOLUME CALCULATIONS 



CBVLSH (DBH, ISPEC) =CBVLSM (DBH, ISPEC) *BAF/ 

 1 (NPNTS*.005«5<»*DBH**2) 



CBTOT (ISPEC) =CBTOT( ISPEC) +CBVLSM (DBH, ISPEC) 

 C BOARD FOOT VOLUME CALCULATIONS 



BDVLSM(DBH, ISPEC) =BDVLSa (DBH, ISPEC) ♦BAF/ 

 1 (NPNTS*.005«54*DBH**2) 



BDTOT (ISPEC) =BDTOT (ISPEC) +BDVLSH (DBH, ISPEC) 

 C PULPWOOD CALCULATIONS 



PLVLSM(DBH, ISPEC) =PLVLSfl(DBH, ISPEC) *BAF/ 

 1 (NPNTS*.005a5tt*DBH**2) 



PLTOT (I SPEC) =PLTOT (ISPEC) ♦PLVLSM (DBH, ISPEC) 

 150 CONTINOE 

 160 CONTINOE 

 GOTO 200 



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

 PLOT SAMPLING 



CALCULATE PER ACRE ESTIMATES FOR INDIVIDUAL SPECIES 

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



170 PLTSIZ=BAF 



NPLOTS=NPNTS 



DO 190 ISPEC=1,32 



DO 180 DBH=CLASIZ,l»0,CLASIZ 



CHECK TO SEE IF ANY TBEES TALLIED 

 IF(TRECNr (DBH, ISPEC). EQ-0) 



TREES PEB ACRE CALCULATIONS 



TBEPAC(DBH, ISPEC) =TRECNT(DB 

 TRETOT (ISPEC) =TRETOT(ISPEC) 



BASAL AREA CALCULATIONS 



BASPAC(DBH, ISPEQ =TEEPAC(DB 

 BASTOT (ISPEC) =BASTOT(ISPEC) 



CUBIC VOLUME CALCULATIONS 



CBVLSM(DBH, ISPEC) =CBVLSH(DB 

 CBTOT (I SPEC) =CBTOT (ISPEC) +C 



BOARD FOOT VOLUME CALCULATIONS 



BDVLSH(DBH, ISPEC) =BDVLSM(DB 

 BDTOT (ISPEC) =BDTOT( ISPEC) +B 



PULPHOOD CALCULATIONS 



PLVLSM (DBH, ISPEC) =PLVLSM (DB 

 PLTOT (I SPEC) =PLTOT (ISPEC) +P 



183 CONTINOE 



190 CONTINUE 



GOTO 180 



H,ISPEC) /PLTSIZ/NPLOTS 

 +TREPAC (DBH, ISPEC) 



H, ISPEC) *.0054 5'»*DBH*»2 

 +BASPAC(DBH, ISPEC) 



H, ISPEC) /PLTSIZ/NPLOTS 

 BVLSH(DBH, ISPEC) 



H, ISPEC) /PLTSIZ/NPLOTS 

 DVLSM(DBH,ISPEC) 



H, ISPEC) /PLTSIZ/NPLOTS 

 LVLSM(DBH, ISPEC) 



GOTS1510 

 GUTS1520 

 GUTS1530 



Gursisuo 



GUTS1550 

 G0TS1560 

 G0TS1570 

 GUTSISBO 

 G0TS1590 

 GOTS1600 



Gursieio 



G0rS1620 

 GOTS1630 

 G0rS16l»0 

 GOrS1650 



Guisieeo 



G0TS1670 

 GUrsi680 

 G0TS1690 

 GOrS1700 

 G0rS1710 

 GOrS1720 

 G0TS1730 

 GUrS17l»0 

 GUTS1750 

 GUrS1760 

 GUrS1770 

 G0rS1780 

 GOrS1790 

 GOTS1800 

 G0TS1810 

 GOTS1820 

 GUrS1830 

 GOTS18U0 

 GOTS1850 

 G0rS1860 

 G0TS1870 

 G0TS1880 

 GUTS1890 

 G0TS1900 

 G0TS1910 

 GUTS1920 

 GUTS1930 

 GOrS19U0 

 GUTS1950 

 GUrS1960 

 G0rS1970 

 GUrS1980 

 GUTS1990 

 GUTS2000 

 GUTS2010 

 6UrS2020 

 GUTS2030 

 GniS20lt0 

 G0rS2050 

 G0TS2060 

 GUTS2070 

 G0IS2080 

 GUTS2090 

 GUrS2100 

 GUTS2110 

 GUTS2120 

 GOTS2130 



Gors2no 



G0TS2150 

 GUTS2160 

 GUrS2170 

 GUTS2180 

 GOTS2190 

 GOTS2200 

 GUTS2210 

 G0TS2220 

 GOrS2230 

 G0TS22a0 

 GUTS2250 

 G0rS2260 

 GUTS2270 

 GUrS2280 

 3UTS2290 

 GUIS2300 



