-78- 



C OTP10010 



SOBEOOTIHE O0TP1 OTP 10020 



C OTP10030 

 C***** ************************************************************** **$i**oip 10040 



C OTP10050 



C THIS SOBPROGRAH PRODOCES fiLL OF INVENTS TABLES AND SOHHAFIES OTP10060 



C 0TP10070 



C THE SOBPROGRAH HAS TWO ENTRY POINTS: OOTPI AND 00TP2 OTP10080 



C OTP 10090 



C OOTPI PRODOCES ALL OF THE INDIVIDOAL STRATA OOTPOT OTP10130 



C 00TP2 PRODUCES THE STRATIFIED TOTAL OOTPOT OTP10110 



C 0TP10120 



INTEGER T0TACB,T0TABD,T0TAPL,IDATE(2) ,TOTNTR(35) .TOTPTS 0TP10U0 



INTEGER DBH, TOPANS, HOLT, REGANS, FC(32J OTP10150 



INTEGER SPETIT(35,3) ,TITLE(ia),CLASIZ,SPECIE(32) 0TP10160 



INTEGER HINDBH(32) ,NTR(35) OTP10170 



REAL VARBRD(35) ,VARP0L(35) ,REGC0F(33) ,REGINT(33) ,SEREG(35) OTP10180 



REAL RSQR(33) ,HEANY(35) OTP10190 



REAL TREPAC(<»0,35),TRETOT(35) ,CBT0T(35) ,BDT0T(35) ,HSD OTP10200 



REAL SEC0B(35) ,SEBED(35) ,SEPUL(35) , PLVLSB(<»0 , 35) ,PLTOT(35) OTP10210 



REAL CBVLSH(40,35) ,BDVLSH (40 ,35) ,BASPAC (40, 35) , BASTOT (35) OTP 10220 



DOOBLE PRECISION IFILE,SAHHTD OTP10230 



COMHON/REG/EEGCOF, REGIHT, SPECIE, MI NDBH,SEREG, NT R,RSQR,HEANr OTP 10 240 



1,T0TNTR OTP10250 



COHHON/FORflCL/FC OTP 10260 



COHHON/STO0T/CBTST(35) ,BDTST(35) , CBVLST (40,35) , BD VLST(40,35( OTP10270 



1,STSECB(35) ,STSEBD(35) ,EFDFCB(35) ,EFDFBD(35) ,TACRES OTP10280 



2,PLTST(35) ,PLVLST(40, 35),STSEPL (35) ,EFDFPL(35) OTP 10290 



COBHON/COHUNE/CL AS IZ, TITLE, nOLT,P80BLV,BAF,TOPA US, REGANS, ACRES OTP10300 



1,FRAaE,SA[lMTD,L0GANS,IFILE OTP 10310 



C0HH0N/0UT1/BASPAC, BASrOT,BDTOT,BDVLSH,CBT0T,CBVLSH,TREPAC,TRETor OTP10 320 



1,SECUB,SEBRD,SPNTS,PLVLSn,PLTOT,SEP0L,FINPOP,VARBRD,VARP0L OTP 10330 



DATA ((SPETIT (I,J) ,J=1,3) ,1=1,35) /'WHITE PINE RED PINE ',OTP10343 



1'PITCH PINE HEMLOCK BALSAM FIR «, OTP10350 



2«TAHARACK •, OTP10360 



3'BD-BL-HH SPROCEHORHAY SPROCE SCOTCH PINE CEDAR ', OTP10370 



4'OTHER SOFTWOODSSOGAR HAPLE RED MAPLE WHITE ASH «, OTP 10380 



5'HILLOB ASPEN YELLOW POPLAR •, OTP10390 



6«BLACK CHERRY WHITE BIRCH YELLOW BIRCH SWEEP BIRCH ', 0TP10400 



7«GREY BIRCH BEECH BASSWOOD ', OTP10410 



8«RED OAK WHITE OAK BLACK OAK •, OTP 10420 



9«ELH GOH HICKORY HOPfiOENBEAM ', OTP10430 



1 'OTHER HARDWOODSALL SOFTWOODS ', OTP 10440 



2'ALL HARDWOODS ALL SPECIES '/ OTP10450 



C ACCOMULATE NDMBER OF STRATA SAMPLED OTP10460 



ISTRA=ISTRA*1 OTP 10470 



C ACCOMOLATE TOTAL NUBBER OF POINTS SAHPLED IN ALL STRATA OTP10480 



TOTPTS=TOTPTS + BPNTS OTP 10490 



C OTPIOSOO 



C CALCOLATE T- VALUE FOB THIS STRATA OTP 10510 



C OTP10520 



TVAL=0 OTP10530 



DF=NPNTS-1 OTP 10540 



IF{DF. GE. 1) CALL MDSTI (PROBLV, DF.TVAL) OTP10550 



IPAGE=IPAGE+1 OTP 10560 



C OTP10570 



C******************lf ************** OTP 10580 



C PRINT HEADING ON OOTPOT FILE OTP 10590 



C********************************* OTP 106 00 



C OTP10610 



CALL DATE(IDATE) OTP10620 



REGOSE='ALL' OTP10630 



IF(EEGAMS.EQ.'NO') R EGOSE=' SOME' OTP 10640 



WEITE(3,100) TITLE, IPAGE OTP10650 



OFRAHE=FRAME OTP 10660 



IF (FRAME. EQ. 'PLOT') OFRAHE=' PLOT' OTP10670 



ALPHA=1.0-PROBLV OTP10680 



WRITE (3, 10) IDATE,SAHBTD, BAF,0 FRAME, NPNTS,CLASIZ, rOPANS, LOS ANS, OTP 10690 



1REG0SE,ISTRA,IFILE, ACRES, ALPHA OTP10700 



10 FORflAT(//' INVENT VEH. 3 11/1/78 I. N. E. R. O.N.H-'/ 0TP10710 



l/'ODATE OF RON: ' , 2 A5//' 0' , A9, ' =' , F6. 2 ,28X, ' NOBBER OF ',A5,'S ', OTP10720 



2'SAHPLED =• ,I4/«0DIAMETER CLASS SIZE =',I3,21X OTP10730 



3, 'HEIGHTS BEASORED BY ',A5,' HEIGHT IN ',A4/ 0TP10740 



4«0HEIGHTS OF •,A4,' VOLOBE TREES BEASORED ' ,8X ,' STRATUM #',13/ OTP10750 



5'OINPOT FILE NAME: • ,A1 0,18X, 'ACREAGE OF TRACT =',F7. 1/ OTP10760 



6'OCONFIDENCE LEVEL = ' , F3. 2) OTP10770 



