-71- 



c 



c* 



c 



c 



c 



c 



c 



c 



c 



c 



c 



c* 



SOBBOOTIHE GOTS 

 THIS SOBPBOGBAH IS THE 'GOTS' OF INVEST. 



GOTS PEBFOBaS THE FOLLOWING: 



1. INPUTS PLOT AND TREE DATi 



2. CALCOLATES BASAL AREA, TREES PER ACRE AND ALL VOLOHES 



3. CALCULATES VABIAHCES AND STAHDABD ERRORS 



**«««***««**«4< **•*«*«*********«*«** 4i**4i***4i*********4<«* ********** 



DOUBLE PRECISION SAatlTD.IPILE 



INTEGER REGANS, ISTART (2), IST0P(2) , DBH.SPEC, TOTNTB (35) 



INTEGER SPECIE (32) , POINT, TREES, TBECNT (UO, 32) 



INTEGER CLASIZ,TITLE(14) .MOLT.TOPANS.HINDBH (32) .NrR(35) 



REAL VABBRD(35) ,VABP0L(35) ,SEREG(35) ,BSQR (33) ,HEAN¥(35) 



REAL BEGINT(33) ,REGCOF(33) ,SECDB(35) ,SEBRD(35) 



REAL C0BPT(35) ,BRDPT(35) ,P0LPT(35) ,C0BSQ(35) , BRDSQ(35) 



REAL BASPAC(U0,35) , BASTOT(35) , rREPAC(«»0,35) ,TBETOT(35) 



REAL CBVLSa(l»0,35) ,CBTOT(35) ,BDVLSM (40 , 35) , BDTOT (35) , HEIGHT 



REAL SEP0L(35) , P0LSQ(35) , PLVLSH (40, 35) ,PLT0T(35) 



CO HHON/COaUNE/CLASIZ, TITLE, HOLT, PR0BLV,BAF,T3PANS, BEG ANS,A:RE 



1,FEAHE, SAHHTD, LOGANS, IPILE 

 C0HH0N/REG/REGC0F,BEGINT, SPECIE,HINDBH,SEREG,NTR,RSCB,HEAHf 



I.TOTNTR 

 COBHON/OOTVBASPAC, BASrOT,BDTOT,BDVLSa,CBTOT,CBVLSa,TREPAC,TR 



1,SECnB,SEBBD,lJPHTS,PLVLSB,PLTOT,SEP0L,FINP0P, VARBRD,VABPIJL 

 DATA (SPECIE(I) , 1=1, 32) /• HP' , • BP* , ' PP* » ' Ha« , ' BF« , 'TA* , 'SP' , • 



1,«SC«,«CE','0S« ,«SM«,«Ba«, 'HA', 'HI'.'AS'j'YP', 'BC, 'HB' 



2,'lfB','SB', 'GB' ,'BE«, 'BH* ,'R0«, 'HO' ,'BO','EL', 'GO' 



3,'HI','HH', 'OH'/ 

 DATA ISTART(I) /1/,ISTART(2) /12/,IST0P(1) /1 1/,IST0P(2| /32/ 



ZERO ALL ACCOaULATORS 



DO 10 ISPEC=1,35 



BASTOT(ISPEC)=0:TBET0T(ISPEC) =0; CBTOT (ISPEC) =0; BDTOT (ISPEC) 



PLTOT(ISPEC) =0:TOTHTR(ISPEC) =0 



COBSQ(ISPEC) =0 ; BRDSQ (ISPEC) =0 ; POLSQ (ISPEC) =0 



SECUB(ISPEC)=0:SEBED(ISPEC) =0 ; SEP OL (ISPEC) =0 



DO 10 DBH=CLASIZ,40,CLASIZ 



TREPAC(DBH, ISPEC) =0; BASP AC ( DBH, ISPEC) =0 

 CBVLSB(DBH, ISPEC) =0;BDVLSH(DBH, IS PEq=0 

 PLVLSB(DBH, ISPEC) =0 



IF (IS PEC. LT- 33) TRECNT (DBH.ISPEC) =0 

 10 CONTINUE 

 NP»TS=0 



O***** ******* *****«**************#******4>* 

 BEAD IN ALL TREE DATA AND ACCUBULATE SUBS 

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



INPUT POINT OR PLOT INFOBMATION 



NS 



20 READ(21,30,END=140) POINT, TREES 

 30 FORHAT (12,13) 

 CHECK TO SEE IF DATA IS IN SOHBARY FORB 

 IF (POINT- NE- -9) GOTO 40 

 NPNTS=TREES 

 TREES=1000000 

 INPUT INDIVIDUAL TREE DATA 

 40 LOOP=0 

 50 IF (LOOP. GE. TREES) GOTO 120 



BEAD(21,60,END=120) S PEC, DEH, PROD, HEIGHT, IREP, PCTS AW 

 60 FORHAT(A2,X,I2,A1,F3. 0, I2,F3-2) 

 IF(IREP.EQ.O) IREP=1 

 LOOP=LOOP*IEEP 

 DECODE SPECIE CODES 

 DO 70 1=1,32 

 70 IP(SPEC.EQ.SPECIE(I)) GOTO 90 



PRINT EBBOB HESSAGE 



WRITE(5,80) SPEC, POINT 

 80 FORBAT('0***EBROB«** ILLEGAL SPECIE CODE: •,A2,' AT POINT: 

 V'ODATA FOR THIS THEE IGNORED! EXECUTION CONTINUES.') 

 GOTO 50 



GUTS0010 

 SUTS0020 

 GUTS0030 



***»*aOIS0040 

 G0TS0050 

 GOTS0060 

 GOTS0070 

 G0TS0080 

 GUTS0090 

 GUTS0100 

 GUIS0110 

 GnTS0120 

 G0TS0130 



*****GUTS0140 

 GOrS0150 

 GUTSOI^O 

 GOTS0170 

 GOTSOISO 

 GUTS0 190 

 GUTS0200 

 GnTS0210 

 GUTS0220 

 G0TS0230 

 GaTS0240 



S GOTS0250 

 GUTS0260 

 GUTS0270 

 GnTS0280 



ETOI GUTS0290 

 GUIS0300 

 GOTS0310 

 GUTS0320 

 GOTS0330 

 GOTS0340 

 G0TS0350 

 GaTS03S0 

 GUTS0 37O 

 GUTS0330 

 GUTS0390 

 GOIS0400 

 GnTS0410 

 G0TS0420 

 SnTS0430 

 GOTS0440 

 GUTS0450 

 GUTS0460 

 GUTS0470 

 SnTS0480 

 G0TS0490 

 SUTS0500 

 GUTS0510 

 GUIS0520 

 GOrS0530 

 G0rS0540 

 GUTS0550 

 GnTS0560 

 30IS0570 

 G0TS0580 

 GOTS0590 

 GUIS0600 

 SUTSOeiO 

 GnTS0620 

 GUTS0630 



soTsoeuo 



GOrS0650 

 SOTS0660 

 GUTS0670 

 GnTS0680 

 GUTS069a 

 SUTS07aO 

 G0TS0710 

 GOTS0720 

 GOTS0730 

 GUrS07l»0 

 G0TS0750 

 GUTS0760 

 GOrS0770 

 GUTS0780 



=0 



.12, 



