(6) BLOCK DATA, that establishes values of many variables governing input- 

 output unit assignments, and other constants used throughout the program. Details 

 concerning these subprograms follow. 



READ IN 



Two versions of READIN have been programed: one for felled-tree data and one for 

 dendrometry data. READIN is called in three ways. The value of the variable ISET 

 indicates the way in which READIN has been called. READIN is called once per problem 

 with ISET=1 to perform initialization such as reading in variable formats, once per 

 plot with ISET=-1 to read data needed to initialize the program for plot data, and with 

 ISET=0 to read data for subsequent trees in the plot. 



The task of the READIN is to enter data into the matrices Z and 11. These matrices 

 will have as many rows as there are measured sections in the tree. The columns are 

 defined as follows: 



diameter 



height above ground or piece length 

 W for 1st cull column 



g !1 II II II 



W for 2nd cull column 

 g II II II II 



W for 3rd cull column 

 g II II II II 



Double bark thickness (only if measured on tree) 



Optional use for board-foot defects 

 II II 11 II II II 



II II II II II II 



Shape indicator for 1st cull column 

 II II II 2nd " " 



II II II 3 " " 



Fork indicator 



Optional use for board-foot defects 

 Grade of the piece 



In addition, values should be assigned to the following tree variables: 



ID = tree number 



DBH = tree diameter, outside bark 



lAGE = data to be listed as "age." Use is arbitrary. 



ITYPE = data to be listed as "species." Use is arbitrary. 



In the above list, Z is a matrix of real variables; IZ and IG are alphanumeric 

 variables; ID, lAGE, and ITYPE are integer variables; and DBH is a real variable. 



When the dendrometer version of READIN is used, set IFFP^O, IFHT=1, and IFORKI=+ on 

 PROBLEM OPTION CARD (1) . 



BARKEQ 



This subprogram is called from the DIALEN subprogram. It deducts estimated bark 

 thickness from the diameters in the sequence in which they have been stored by DIALEN. 

 The call to this subprogram is bypassed if IFBK (column 18 on PROBLEM OPTION CARD (1)) 

 is zero. The version of BARKEQ distributed with NETVSL estimates double bark thickness 



Z 



[1,1) 





Z 



(1,2) 





z 



[1,3) 





z 



[1,4) 





z 



[1,5) 





z 



[1,6) 





z 



[1,7) 





z 



[1,8) 





z 



[1,9) 





z 



(1,10) 





z 



[1,11) 





z 



[1,12) 





IZ 



[1,1) 





IZ 



[1,2) 





IZ 



[1,3) 





IZ 



[1,4) 





IZ 



[1,5) 





IG 



(1) 





14 



