KFORK Number of forks (equals unity for single-boled 



trees) 



HT(I) Height above ground 



DIA(I) Diameter in inches 



Z(I,10), Z(I,11), Board-foot cull dimensions at the Ith section 

 Z(l,12) 



IZ[I,5) Shape code for board-foot cull calculations 



(For the above variables, I ranges from IBOTM(J) to 1T0P(J).3 



NOS 



BHT(K) 



BDIA(K) 



BFLN(K) 



BBARK(K) 



BFVS(K) 



BFVI(K) 



BCLVS(K) 



BCLVI (K) 



Number of logs (plus one for the base of each 



fork) in the tree 



Height above ground of log top 



Diameter at top of the log 



Length of log 



Bark thickness 



Board-foot volume (Scribner) 



■' " " (International) 



" " " in cull (Scribner) 



" " " " " (International) 



(For the above variables, K ranges from 1 to NOS.) 



BLOCK DATA 



Input-output variables are preset in BLOCK DATA to correspond to the system con- 

 figuration at particular computer centers. The logical units used for 1/0 are defined 

 by the following self-explanatory variable names: NREAD, NWRITE, and NPUNCH. The 

 number of lines per printed page is set to 60 as the value for the variable LINEC. 



Cull codes of C, R, E, P, and A are established in the vector ICLC. The length 

 of ICLC is given by the value of NCODE . The sequence of cull codes should correspond 

 to the sequence implied in the computed GO TO statement in subprogram CUAREA. 



16 



