-80- 



DO 150 DBH=CLASIZ,aO,CLRSIZ 



IF{TREPAC(DBH,ISPEC).EQ.O.O) GOTO 150 



HRITE(3,140) DBH, BASPAC{DBH, ISPEC) ,TEEPAC (DBH.ISPEC) 

 1 ,CBVLSH(DBH,ISPEC) , BDVLSH( DBH, ISPEC) , PLVLSM (DBH, ISP 



1IJ0 FOEMATC •,i»X,I2,aX,' :• ,F10.1,'JX,': ',?10. 1,«Z,' : SFIO 



1 2(9X,':', F10. 1)) 



150 CONTINOE 



IF (PLTOT (ISPEC). EQ.O) IEEPaL=0 



IF(PLTOT(ISPEC) .NE.0)IEEPOL=(SEPUL (ISPEC) ♦TVAL*100/PLTOT (IS 

 1.5 

 IF (CBTOT (ISPEC) .EQ.O) IEECtrB=0 



IF {CBTOT( ISPEC) -HE.O) IEECOB= (SECUB (ISPEC) *TVAL* 100/CBTOT ( IS 

 1.5 

 IF(BDTOT(ISPEC) -EQ.O) IERBBD=0 



IF (BDTOT (ISPEC) -HE. 0) IERBED= (SEBED (ISPEC) ♦TV AL* 100/BDTOT ( IS 

 1.5 



WRITE(3,160) BASTOT (ISPEC) ,TEETOr (ISPEC) .CBFOT (ISPEC) .lEECB 

 IBDTOT(ISPEC) ,IEEBBD,PLTOT(ISPEC) ,IEEPOL 

 160 PO RMAT('0', 99 ('-M/'O'rax, 'TOTAL', 2X,':',3X,F7. 1, <»X , • : • , 3X, 

 1,<»X,':',F10.1,' +',I3,'X',2(3X,':',F10.1,« +',13,'%')/ 

 2' + ',52X,'_',2(19X,'_')/'0',99('-')) 

 C CALCOLATE AND OOTPOT HSD AND C. V. 



BSD=SQET( BASTOT (ISPEC) /TEETOT (ISPEC) /-005U54) 

 IBDCV=0 : IPLCV=0 



IF(BDTOr (ISPEC) -NE.O) IBDC?=SQET (VAE BR D (ISPEC) )*100/BDTOT( 

 1.5 



IF (PLTOT (ISPEC) 

 1.5 

 HRITE(3,170) HSD.IBDCV 

 170 FOEHAT('0'/'0',5X,«nEAN STAND DIAHETEE =■. 

 1,9X,'B0AED FOOT COEFFICIENT OF VAEIATIOH 

 C CALCULATE AND OUTPOT MERCHANTABLE USD 

 RBSTOT=BASTOT (ISPEC) 

 ETRTOT=TRETOT(ISPEC) 

 DO 180 DBH=CLASIZ,7,CLASIZ 



RBSTOT=RBSTOT-BASPAC (DBH, ISPEC) 

 180 ETflTOT=RrETOT-TREP AC (DBH, ISPEC) 

 IF(RTRT0T.LT„0-01) RHSD=0 



IF(BTETOT.GE.0.01) EMSD=SQET (R BSTOT/BTRTOT/. 0051»5«) 

 WEITE(3,190) RHSD,IPLCV 

 190 FOEHAT('0'/'0' ,5X,' HERCHANTABLE H.S.D. = '.FH.I 



1,9X,' POLP-WOOD COEFFICIENT OF VARIATION =',Ii»,'%'l 

 C 

 C CALCOLATE AND OOTPOT (ESTIHATED) % CROISE 



IF(FRRHE.EQ.'PLOT') PCTCHZ=100 ♦( 1 .0-FINPOP) 



IF( FRAME. EQ. 'POINT') PCTCRZ=- 5«5<»*NPNTS*MSD*HSD/ACRES/BAF 

 WRITE (3,200) PCTCRZ 

 200 FORMAT('0'/'0' ,5X, 'PERCENT CROISE =',F5-1,'X') 

 210 CONTINOE 

 C 

 C «*«**4i«i*«««**4i**4[** «******• **4i****4i ************ **4i** 



C CALCOLATE AND OOTPOT SPECIES COMPOSITION PERCENTAGES 



C 



IPAGE=IPAGE+1 

 HRITE(3,100) riTLE,IPAGE 

 WRITE(3,220) 

 220 FORMAT('0',99(' *')/• *',97X,'*'/ 



1,' *',30X, 'SPECIES COMPOSITION B? PERCENT' , 37X, •*• / 



2' *',97X,'*'/' ',99('*')/'0',99(«-')/ 



3* ',3(15X,':'), 2(5X,'SAWLOG',6X,':'),l»X,'P0LP»OOD'/ 



.NE.O) IPLCV=SQRT (VARPUL(ISPEC) ) *100/PLrOT( 



' , F4 . 1 

 =',ia,'X') 



1' •,3(15X,':') ,3X,«C0BIC FOOT', 4X , ' : ' , ' 

 5,<»X,': ',3X,'CaBIC FOOT'/ 

 6' ',I»X, 'SPECIES', «X,':',' BASAL AREA 

 73(': ',5X,'V0L0ME«,6X)/' ',99('-')/' ') 

 IF(CBTOr (35). EQ. 0) CBTOT (35)=-999 



BOARD FOOT' 



:',5X, 'TREES 



IF(BDrOT (35)-EQ.O) 

 IF(PLTOT(35)-EQ.O) 

 DO 21*0 ISPEC=1,3a 

 IF (TEETOT (ISPEC) 



BDTOT (35) =-999 

 PLTOT (35) =-999 



EQ.0.0) GOTO 2U0 

 BASCOH=BASTOT (ISPEC) ♦lOO/BASTOT (35) 

 TRECOM=TRET0r (ISPEC) • 100/TRETOT (35) 

 C0BCOM=CBTOT(ISPEC) •100/CBTOT (35) 

 BDCOM=BDror (ISPEC) ♦100/BDTOT (35) 

 P0LCOM=PLTOT (ISPEC) ♦100/PLTOT (35) 



