-72- 



C IF 



C 



c 

 c 



c 



CHECK DBH TO SEE IF HITHIH LEGAL LIHITS 

 90 IF(DBH-LT-CLASIZ) DBH=CLRSIZ 



IF (DBH- GT. 40) DBB=aO 

 T&LLT TBEES FOB EACH SPECIES 



ISPEC=I 



T8ECNT (DBH,ISPEC)=TEECNT(DBH, ISPEC) ♦IBEP 

 CHECK TO SEE IF DIAHETER IS ABOVE aiHIMOM LIBIT 



IF(DBH.LT.HIND6H(ISPEq . AND. PEGANS. EQ. • NO • ) GO 

 aCCOHOLATE HOHBEE OF HOH-COLL TBEES ABOVE BIN DBH S 



TOTHrE(ISPEq=TOTNTB(ISPEC) +IBEP 



IF (ISPEC. LE- 11) TOTNTE(33) =TOTHTE(33) -HEEP 



IF (ISP EC. GE. 12) TOTNTE(3a)=TOTlITE(3a)+IBEP 



T0TNTE(35)=T0rNTE(35) +IBEP 

 HEIGHT HAS NOT HEASUBED GENEBATE HEIGHT FEOH BEG 



IF(HEIGHT.EQ.O. AND. REGANS. EQ.« NO' ) HEIGHr=BEGI 



IF (HEIGHT. EQ.O) GOTO 50 

 COHPOTE VOLOHES 

 CHECK TO SEE IF TREE A COLL 



IF(HEIGHT.EQ.999) GOTO 50 



HEIGHT= HEIGHT *HULT 

 CHECK HEIGHT TO SEE IF BITHIN LEGAL LIHITS 



IF(HEIGHT. LT. 0) HEIGHT=0 



IF (BOLT. EO. 1. AND.HEIGHT.GT. 200) HEIGHT=200. 



IF(flOLT.EQ. 16. AND. HEIGHT. GT. 128) HEIGHT=128 



IF (TOPANS.EQ. TOTAL') CALL VOLTOT (DBH, HEIGHT, I 



IF(TOPANS-EQ. 'BERCH') CALL VOLHER(DBH, HEIGHT, I 



IF(TOPANS„EQ.'BIXED'. AND. ISPEC- GT. 11) CALL 



1ISPEC,C0BVOL, BDVOL) 



IF (TOPANS. EQ. ' flIXED • . AND. ISPEC. L£. 1 1 ) 

 1 1S PEC, CO BVOL, BDVOL) 



POLVOL=0 

 CHECK TO SEE IF % SAHLOG OPTION OSED 



IF(PBOD. NE. 'X') GOTO 100 

 CHECK PCTSAW TO SEE IF WITHIN LEGAL LIHITS 



IF(PCTSAH.LT-O) PCTSAH=0.0 



IF (PCTSAW. GT. 1.0) PCTSAW=1-0 



BDVOL =PCTSAW*BDVOL 



P0LVOL= (1. -PCTSAW) ♦COBVOL 



C0BV0L=PCTSAW*C0BVOL 



GOTO 110 

 CHECK TO SEE IF TBEE IS POLPWOOD 

 100 IF(PBOD. NE. 'P') GOTO 110 



P0LVOL=C0BVOL;C0BVOL=0:BDVOL=0 

 110 CBVLSHiDBH,ISPEC)=CBVLSfl(DBH,ISPEC)+C0BVOL*IEEP 



BDVLSH(DBH, ISPEC) =BDVLSH(DBH, ISPEC) +BDVOL*IEEP 



PLVLSa(DBH, ISPEC) =PLVLSB(DBH, ISPEC) +PDLVOL*IBEP 



TO 50 

 ABPLED 



BESSION 



NI (I)>BEGCOF 



SPEC, COB VOL, 



SPEC, COBVOL, 



VOLHER(DBH, 



CALL VOLTOT (DBH, 



ACCOBOLATE SOUS FOB VOLOBE STANDAED ERRORS 



CHECK TO SEE IF DATA IS 

 IF (POINT. EQ. -9) GOTO 50 



IN SOHHAEY FOEB 



IF(FBABE-EQ. 'PLOT') FACTOB= 1.0/BAF 



IF (FRABE. EQ. ' POINT' ) FACTOE=BAF/(. 005a5a*DBH** 



COBPT (ISPEC) =C0BPT (ISPEC) +C0BVOL*IEEP*FACTOE 



BRDPT(ISPEC)=BBDPT(ISPEC) ♦BDVOL ♦IEEP*FACTOB 



POLPT(ISPEC)=P0LPT(ISPEC)+PULVOL»IEEP*FACTOB 



IF(ISPEC„LE.11) ITYPE=33 



IF(ISPEC.GT.II) IT?PE=Jl» 



COBPT (ITrPE) = COBPT(ITTPE) +C0BVOL*IBEP*FACT0R 



BBDPT(ITTPE)=BBDPT(ITYPE) +BDVOL«IEEP*FACTOE 



PDLPT(ITJPE)=POLPT(ITYPE) ♦P0LVOL*IEEP*FACTOE 



COBPT (35) =C0BPr (35) ♦C0BVOL*IEEP*FACTOR 



BBDPT(35) =BRDPT(35) ♦BDVOL*IEEP»FACTOE 



POLPT (35) =POLPr (35) ♦P0LVOL*IEEP*FACTOR 



2) 



GOTO 50 

 120 CONTINOE 

 IF IN SOHHART BODE DON'T ACCOHOLATE 



IF (POINT. EQ. -9) GOTO 1U0 

 TALLY NOHBER OF POINTS SABPLED 



NPNTS=HPNrS+1 



VOLOHES OB INCREBENT NPNTS 



G0TS0790 



Gorsosoo 



GOTS081Q 

 GDTS0820 

 GDTS0830 

 GOTSOBItO 

 G0TS0850 

 GOTSQBSa 

 GOTS0870 

 G0TS0880 

 60TS0890 

 60TS0900 

 GnTS0910 

 GOTS0920 

 (I)/DBHG0rS0930 

 SOTS09li0 

 G0rS0950 

 GOIS0960 

 G0rS0970 

 GOTS0980 

 GOrS0990 

 G0TS1000 

 GOTS1010 

 G0TS1020 

 BDVOL) aOTS1030 

 BDVOL) GOTS10H0 

 HEIGHT, GOTS1050 

 GOTS1060 

 HEIGHT, GOTS 1070 

 G0TS1080 

 GOTS1090 

 G0TS1100 

 GUTS1110 

 GOTS1120 

 G0TS1130 



GOTsma 



GOTS1150 

 GQTSIIBO 

 G0rS1170 

 GOTS1130 

 G0TS1190 

 S0TS1200 

 GOTS1210 

 G0TS1220 

 GOrS1230 

 GOrS12U0 

 G0TS1250 

 GDTS1260 

 G0rS1270 

 GaTS1280 

 G0TS1290 



sorsi300 



GOTS1310 

 G0TS1320 

 GOTS1330 

 G0TS1340 

 G0TS1350 



GOTsneo 



G0TS1370 

 GDTS1330 

 G0TS1390 

 5UTS1400 

 GOTSiaiO 

 G0TS1U20 

 GOTS1U30 

 GOIS1440 

 GOTS1450 

 50151460 



Gorsia70 



G0TS1430 

 G0TS1490 

 GOTS1500 



