-82- 



Q**^t* ************************ ******************************************* 



c 



C OOTPOT TABLES FOE STRATIFIED TOTAL 



C 



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



C 



ENTRY O0rP2 

 WRITE(5,3«0) 

 3U0 FOEHAT(«0HHAT DO 100 WANT TO TITLE THE COHBINED STRATA OOTPOT?') 



BEAD(5,350) TITLE 

 350 F0EHAT(1<JA5) 

 IPAGE=IPAGE+1 

 WRITE(3,100) TITLE, IPAGE 

 C PRINT HEADING ON OOTPOT FILE 

 OFRAME=FRAaE 



IF(FRAHE. EQ. 'PLOT') OFBAHE=» PLOT* 



WRITE (3,360) IDATE.CLASIZ, ISTEA,TACRES,OFRAHE ,TOTPTS, ALPS A 

 360 FORaAT(//' INVENT VER. 3 11/1/78 I. N. E. R. O.N.H. •// 



VODATE OF RON: '.aAS// 



2«0DIAMETER CLASS SIZE = • ,13 ,21X , • NOHBEB OF STRATA SAMPLED =• 

 3,I3/«0TOTAL ACEEAGE SAHPLED =• ,F9. 1 , 13X,« TOTAL •,A5 

 l»,'S SAMPLED =«,I5/«0CONFIDENCE LEVEL = ',F3.2) 



C 



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



C OOTPOT DIAMETER CLASS VOLOHE TABLES 



c 



DO U50 ISPEC=1,35 



IF(CBTST{ISPEC) .EQ.O. AHD.PLTST(ISPEC) .EQ.O) GOTO 1*50 

 IPAGE=IPAGE+1 

 WRITE(3,100) TITLE, IPAGE 

 C 



C THE FOLLOWING SECTION CONTROLS FOEB CLASS PRINTING AS PREVIOOSLY 

 C DESCRIBED. THE INPOTS OF THE LAST STRATOH ANALYSED CONTROLS WHAT 

 C IS PRINTED IN THE STRATIFIED TOTAL OOTPOT. 

 C 



AFCTIT=' • : AFCNOa=« • 

 IF(ISPEC.GE. 33) GOTO 370 

 IF(TOPANS.EQ. "TOTAL') GOTO 370 



IF(TOPANS.EQ."HIXED'. AND.ISPEC.LE. 11) GOTO 370 

 AFCTIT=«FC = ' 

 C ENCODE WRITES THE INTEGER VALOE OF FC INTO AFCNOM AS ASCII CHARACTERS 

 ENCODE(2,110, AFCNOH) FC(ISPEC) 

 370 WRITE(3,380) (SPETIT(ISPEC, J) ,J=1 ,3) , AFCTIT, AFCNOH 

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

 *',39X,3(A5) ,35X,A5,A2,X,'*'/ 

 • •,97X,'»'/' ', 99 C*')/'©', 99 {•-')/ 



DI AHETEH' , 1»X,2 ( • : • , 1 1X, 'SAWLDG • , 1 1X) , • : • , 1 OX , ' POLPWOOD' / 

 CLASS i',6X,'C0BIC FOOT VOLOME • ,5X, ':' ,6X, ' BOARD' , 



FOOT VOLOME', 5X, ':• ,6X,'C0BIC FOOT VOLOHE'/ 

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

 DO UOO DBH=CLaSIZ,UO,CLASIZ 



IF(CBVLST (DBH, ISPEC) . EQ- 0. AND- PLVLST(DBH, ISPEC) .EQ.O) 



GOTO 400 

 ICBVST=CBVLST (DBH, ISPEC) +. 5 

 IBDVST=BDVLST(DBH,ISPEC)+.5 

 IPLVST=PLVLST (DBH, ISPEC) +.5 

 WRITE (3,390) DBH,ICBVST,IBDVST,IPLVST 

 390 FORHATC ',I8,7X,3(':',I17, 11X)) 



HOO CONTINOE 



ICBrST=CBTST (ISPEC) ♦. 5 



IPLTST=PLTST (ISPEC) +. 5 



C CALCOLATE ERROR AS A PERCENT 



IERCOB=0;IERBBD=0:IEBPOL=0;TVAL=0 



IF(CBTST(ISPEC)-EQ,0) GOTO 410 



IF(EFDFCB (ISPEC) .GE-1)CALL MDSTI (PEOBLV,EFDFCB(ISPEC) ,TVAL) 



IERCOB= (STSECB(ISPEC) *TVAL*100*TACEES/CBTST (ISPEC) ) *.S 



IF(BDTST(ISPEC) .EQ.O) GOTO 420 



TVAL=0 



IF(EFDFBD (ISPEC) . GE- 1 ) CALL MDSTI (PEOBLV, EFDFBD(ISPEC) , TVAL) 



IERBRD= (STSEBD(ISPEC) *TVAL* 100*TACEES/BDTST (ISPEC) ) +.5 



IF (PLTST (ISPEC). EQ.O) GOTO 430 



TVAL=0 



IF(EFDFPL(ISPEC).6E. 1) CALL MDSTI (PEOBLV, EFDFPL( ISPEC) ,TVAL) 



IERPOL= (STSEPL (ISPEC) *TVAL*100*TACRES/PLrST (ISPEC) ) +. 5 



WRITE (3,440) ICBTST, lERCOB ,IBDTSr,IEBBRD,IPLTSr,IERPOL 



FORM AT ('0', 99 ('-' ) /'O ', 4X, 'TOTAL ',6X 



1 ,3(':',I17,' +',I3,'X',5X)/'+*,15X,3(19X,'_',9X)/ 



2 '0',99('-')) 



1* 

 2' 

 3' 

 U' 

 5' 

 6' 



1 



IBDTST=BDTST (ISPEC) +. 5 



410 



420 



430 



440 



450 CONTINOE 



OTP12910 

 DTP 12920 

 OTP12930 

 OTP12940 

 OTP 12950 

 OTP12960 

 OTP 12970 

 OTP12930 

 OTP 12990 

 OTP13000 

 OTP13010 

 OTP13020 

 OTP13030 

 OTP 13040 

 OTP13050 

 OTP13060 

 OTP 13070 

 OTP13080 

 OTP13090 

 OTP13100 

 OTP13110 

 0TP13120 

 OTP13130 

 0TP13140 

 0TP13 150 

 OTP13160 

 0TP13170 

 OTP13iaO 

 0TP13190 

 OTP13200 

 0TP13210 

 OTP13220 

 OTP 13230 

 OTP13240 

 OTP13250 

 OTP 13260 

 OTP13270 

 OTP 13280 

 OTP13290 

 OTP13300 

 OTP13310 

 OTP13320 

 0TP13330 

 OTP13340 

 OTP13350 

 OTP13360 

 OTP13370 

 OTP 13380 

 OTP13390 

 OTP13400 

 OTP 13410 

 OTP13420 

 OTP 13430 

 OTP13440 

 OTP 13450 

 OTP13460 

 OTP 13470 

 OTP13480 

 OTP 13490 

 OTP13500 

 OTP13510 

 OTP 13520 

 OTP13530 

 OTP 13540 

 OTP13550 

 OTP13560 

 0TP13570 

 OTP13580 

 OTP 13590 

 OTP13600 

 OTP13610 

 OTP13620 

 OTP13630 

 OTP 13640 

 OTP13650 

 OTP13660 

 OTP 13670 

 OTP13680 

 OTP 13690 

 OTP13700 

 OTP13710 



