-79- 



C«** ********** **«**«****•***•****«•«» ****««*«**«««« OTP10780 



C PRINT BEGBESSION ANRLYSIS SOMMAEY OTP 10790 



Q:^^^^^**^^^t ************************* ************** OT PI 0800 



C 0TP10810 



IP(REGANS.EQ. 'lES') GOTO 90 OTP10820 



IPiGE=IPAGE*1 OTP10830 



HBITE(3,100) TITLE, IPAGE 0TP108U0 



BBITE(3,20) OTP10850 



20 FORaAT('0«,99(«*')/' *',97X,'*V' ♦' ,28X, • AHALJSIS OF THE HEIGHT' , OTP 10860 



1* - DBH EELiriONSHIP',2eX,'*V' *',97X,«*V' *' ,35X, « MODEL: HEX • , OTP10870 



2«GHT = BO ♦ B1/DBH',3l»X, '*•/' *',97X,'*V' ', 99 (•*•)/' 0« ,99 ('-« ) OTP108B0 



3/« '.ISX,': •,5X,«B0« ,<«X,' :• ,5X,'B1' ,i»X,«:« ,5X,'R' ,5X,': STABDAE', OTP10890 



IJ'D : AVEEAGE : VOLOHE : HEIGHT'/' SPECIES : I NTEBC • ,orP1 0930 



5'EPT : SLOPE : SQOAEED : ERROR % : HEIGHT : TREES ',OTP10910 



6' : TREES'/' ',99('-')/' ') OTP10920 



IFLAG=0 OTP10930 



DO 50 ISPEC=1,32 OTP1091J0 



IF(TOTNTE(ISPEC)- EQ.O) GOTO 50 OTP10950 



IF(STB(ISPEC) .LT. 3.AND. NTB(ISPEC)-LT. TOTNTR(ISPEC) ) IFLAG=1 OTP 10960 



IF(NrB(ISPEC) .GE.3) HBITE(3,30) (SPETIT (ISPEC, J) , J= 1 , 3) OTP10970 



1 ,EEGINT(ISPEC) ,B2GC0F(ISPEC) ,aSttE(ISPEC) ,SEBEG(ISPEC) , OTP10980 



2 IJEAHY(ISPEC) ,TOTNTa(ISPEC),NTE(ISPEC) OTP10990 

 30 FOEMATC ' , 3 (A5) , 2( ' : ' , F9. 3, 2X) , 3 (' : ' ,F8. 1 ,3X) ,2 (• : ' ,18 ,3 X) > OTP11000 



IF(NTR(ISPEC) .LT. 3.AND.BTE(ISPEC) . EQ. TOrNrB (ISPEC) ) OTP11010 



1 HRITE(3,60) (SPETIT(ISPEC,J) ,J=1,3) ,SEBEG(ISPEC) , 0TP11020 



2 flEABY (ISPEC) , TorNTR(ISPEC) , NTE (ISPEC) OTP11030 

 IF (BTR( ISPEC) .LT-3.ABD. HTE(ISPEC).LT. TorNrR(ISPEC) ) OTP 11 040 



1 HRITE(3,«0) (SPETIT(ISPEC,J) ,J=1,3) ,SEREG (ISPEC) , OTP11050 



2 MEAHY (ISPEC) ,TOTHTR(ISPEC) ,BTB(ISPEC) OTP11060 

 »0 FOEMATC ',3A5,':',10X,'*** HAENIBG ***',10X, 0TP11070 



1 2{';',F8. 1,3X),2( •: ',I8,3X) ) OTP11030 



50 COBTIBOE OTP 11090 



WEITE(3,250) OTP11100 



DO 70 ISPEC=33,35 OTP11110 



WRITE (3, 60) (SPETIT(ISPEC,J),J=1,3) ,SEBEG (ISPEC) , MEAN J (IS PEC( OTP11120 



1 ,TOTNTR(ISPEC) ,NTE(ISPEC) OTP11130 



60 FOBHATC ' , 3A5 ,' : ' ,35X,2 (' : ' ,F8. 1 , 3X) ,2 (' : ' ,18, 3X) ) 0TP11140 



70 IF(ISPEC. EQ. 34.0E.ISPEC. EQ. 35) BBITE(3,250) OTP11150 



IF(IFLAG.EQ.I) WEITE(3,80) OTP11160 



80 FOEHAT('0'/'0*** WAENING ♦*♦ INSOFFICIEBT HDMBER OF HEIGHT TB«,0TP11170 



1'EES HEASOBED FOE THIS SPECIES!') OTP11180 



C OTP11190 



C ***************************************** OTP11200 



C OOTPOT STAND AND STOCK TABLES OTP11210 



C ***************************************** OTP 11 220 



C OTP11230 



90 DO 210 ISPEC=1,35 OTP11240 



IF(TEEror (ISPEC). EQ.O. 0) GOTO 210 OTP11250 



IPAGE=IPAGE+1 0TP11260 



HBITE(3,100) TITLE, IPAGE OTP11270 



100 FORMAT('1',14A5,26X,I3/'0') DTP11280 



C OTP11290 



C THE FOLLOWING SECTION COBTBOLS THE OOTPOT OF THE SPECIES FORM CLASS OTP11300 



C PEIBTED IB THE STABD TABLE HEADING. THE FOEM CLASS IS NOT PRINTED OTP 11310 



C ONDEE THE FOLLOWING CONDITIONS: OTP11320 



C 1. STAND TABLES FOB SOFTWOOD, HARDWOOD, OB ALL SPECIES OTP 11330 



C ( ISPEC >= 33 ) OTP113U0 



C 2. TREES MEASORED BY TOTAL HEIGHT ( TOPANS = "TOTAL" ) 0TP11350 



C 3. STAND TABLES FOE SOFTWOODS WHEN "MIXED" HEIGHTS OSED OTP11360 



C ( TOPANS = "MIXED" AND ISPEC <= 11 ) OTP11370 



C 0TP11380 



AFcriT=' • ; AFCNOn=' • OTP11390 



IF(ISPEC.GE.33) GOTO 120 OTP11400 



IF(TOPANS.EQ. 'TOTAL') GOTO 120 OTP11410 



IF(T0PAHS.EQ. 'MIXED'. AND.ISPECLE. 11) GOTO 120 OrP11420 



AFCTIT='FC = ' OTP 11 430 



C ENCODE WEITES THE INTEGEB VALOE OF FC INTO AFCBOP AS ASCII CHARACTERS OTP11440 



EBCODE(2,110,AFCN01I) FC(ISPEC) 0TP11450 



110 FORMAT (12) OTP11460 



120 WEITE(3,130) (SPETIT (ISPEC, J) , J= 1 ,3) , AFCTIT, AFCNOM OTP11470 



130 FOEHAT (•0',99(' *')/' ','*', 97X, '*' / OTP11480 



1,' *',39X,3(A5) ,35X,A5,A2,X,'*'/' ♦',97X,'*'/ 0TP11490 



2' ',99 (•*')/'0',99('-')/' ',10X,': BASAL ABBA :', 0TP11500 



3' TEEES : SAWLOG : SAWLOG :', OTP11510 



4' PULPWOOD'/' DIAMETER : '6X , 'PEE' , 5X , ' : ' ,6X, • PER* , 5X,' : • , 0TP11520 



5' CUBIC FOOT VOLUME : BOARD FOOT VOLUME : CUBIC FOOT VOLUME'/ OTP11530 



6' ',' CLASS', 3X, ': ',5X,'ACEE',5X, OTP11540 



7':',5X,'ACRE' ,5X,3(':',5X,'PEE ACEE',6X)/' ',99('-')/' ') 0TP11550 



