-81- 



1 



230 

 240 

 250 



HBITE(3,230) (SPETIT (ISPEC,J) , J= 1 ,3) , BASCOM .TRECOH, 



CO BCOM, BDCOH, POLCOM 

 FORHATC ',3 (AS) , ': ' ,2 (3X,F7. 2, 5X, • ; • ) . 2 (UX, F7. 2, 6X, • : ' ) 

 ,UX,F7. 2) 



IF{ISPEC.EQ.32) HRITE(3,250) 

 WRITE(3,250) 



FOBOATCO', 99 (•-•)/' ') 

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

 IF(BDTOT(35). EQ.-999) BDTOT(35)=0 

 IF(PLTOT{35).EQ--999) PI.TOT(35) =0 



C 



C ««***««***«'*• *****4'<)>«** ************************* ********** 



C OUTPUT VOLUHE TOTALS FOR ALL SPECIES 



C*** ***************************************** ************** 



C 



IPAGE=IPAGE+1 

 WRITE (3,100) TITLE.IPAGE 

 «RITE(3,260J 

 260 FORHAT(«0', 99 {•*•)/• *',97X,'*V 



1' *«,30X, 'VOLUHE TOTALS FOR ALL S PECIES • , 38X, • *•/ 

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

 3« • ,15X,2(' :«,11X,'SAHL0G',11X) ,•: ', 10X, • PULP WOOD'/ 

 Ui SPECIES : sex, 'CUBIC FOOT VOLUHE • ,5X, •:', 6X, • BOARD' , 



5' FOOT V0L[JBE',5X,':' ,6X, 'CUBIC FOOT VOLUHE'/ 

 6' ',15X,2(': •,10X,'PER ACRE', 10X) ,'C',10X, 'PER ACRE'/ 

 7' ',99('-')/' ') 

 DO 290 ISPEC=1,35 



EQ. 0. AMD. ISPEC. LT. 33) 



IF (CBTOT (ISPEC) .EQ.O.AND. PLTOT (ISPEC) 

 1 GOTO 280 



HRITE(3,270) (SPETIT (ISPEC, J( , J= 1 , J) ,CBTOT{ISPEC) ,BDTOT (ISPEC) , 

 1 PLTOT(ISPEC) 



270 FORHATC ' ,3 (A5) , 3( ': ', F17. 1, 1 1X) ) 



280 IF(ISPEC.EQ.32.0R.ISPEC.EQ-31».OR.ISPEC. EQ.35) HBITE(3,250) 

 290 CONTINUE 

 C 

 C ***************************************************** 



C OUTPUT VOLUME TOTALS EXPANDED BY ACREAGE 



C 



IPAGE=IPAGE+1 

 WBITE(3,100) TITLE.IPAGE 

 HRITE(3,300) 

 300 FOBHAT('0',99('*')/' *',97X,'*'/ 



1' *' ,30X,'VOLOHE TOTALS EXPANDED BY ACREAGE' ,3«X, • *•/ 

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

 3* ',15X,2(«:',11X,'SAHLOG',11X) ,': ' , 10X , ' PULPWOOD ' / 

 «• SPECIES :',6X, 'CUBIC FOOT VOLUME ', 5X ,':' ,6X, • BOARD' , 



5' FOOT VOLUME', 5X, •:' ,6X, 'CUBIC FOOT VOLUHE'/ 

 6' ',99('-')/' ') 

 DO 330 ISPEC=1,35 



IF (CBTOT (ISPEC) . EQ.O.AND. PLTOT (ISPEC) , EQ. 0. AND. ISPEC. LT. 33) 

 1 GOTO 320 



TOTACB=CBTOT(ISPEC) *ACRES+.5 

 TOTABD=BDTOT (ISPEQ *ACRES*.5 

 TOTAPL=PLT0T (ISPEC) *ACRES+.5 



WRITE(3,310) (SPETIT (ISPEC, J) ,J=1,3) , TOTACB ,T0TABD,T0TAPL 

 310 FORHATC ' ,3 ( A5) ,3 ( «: ' ,1 17, 1 1 X) ) 



320 IF(ISPEC. EQ.32.OR.ISPEC.EQ.3U.0R.ISPEC.EQ.35) BBITE(3,250| 

 330 CONTINUE 

 RETURN 



OTP12310 

 OTP12320 

 OTP 12330 

 OTP123U0 

 OTP12350 

 OTP12360 

 OTP12370 

 OTP123B0 

 0TP12390 

 OTP12'»00 

 OTP12mO 

 OTP12II20 

 OTP12430 

 0TP12HH0 

 OTP12l*50 

 OTP 121160 

 OTP12U70 

 0TP12tt80 

 OTP12l»90 

 OTP12500 

 0TP12510 

 OTP12520 

 OTP 12530 

 OTP125a0 

 OTP12550 

 OTP 12560 

 OTP12570 

 OTP 12580 

 OTP12590 

 OTP12600 

 0TP12610 

 OTP12620 

 OTP 12630 

 OTP12640 

 OTP12650 

 OTP 12660 

 OTP12670 

 OTP 12680 

 OTP12690 

 0TP12700 

 OTP 127 10 

 OTP12720 

 OTP 12730 

 OTP127aO 

 3TP12750 

 OTP 12760 

 Orpi2770 

 OTP 12780 

 OTP12790 

 OTP12800 

 0TP12810 

 OTP12820 

 OTP12830 

 OTP12840 

 OTP 12850 

 OTP12860 

 OTP12870 

 OTP12880 

 OTP12890 

 OTP 12900 



