-27- 



(4) Confidence level. 



(5) Input file name. 



(6) Sampling method and sampling frame. 



(7) Method of height measurement. 



(8) Acreage of strata. 



(9) Title of combined strata output (if more than one strata) . 

 INVENT opens the output file on unit 3 (LPT on DEC-10) naming it 



INVENT. LPT. INVENT also sets the default confidence level to 95 percent. 



The following subroutine calls are made in INVENT: FRMCLS, LINREG, 

 GUTS, OUTPl, 0UTP2, STRAT, and STRAT2. 



Common Area Used: COMUNE. 



Other 



Variables Type Dimension Description 



ALPHA Real — Confidence level as a decimal 



ALPHCH Real(C*3) — Confidence level change flag 



FRMANS Real(C*3) — Form class change flag 



III Int — Loop counter for strata number 



ISTRAT Int — Number of strata 



REPEAT D.P.(C*8) ~ User message 



SVFRAM Real(C*5) — Saves the contents of FRAME 



Subroutine FRMCLS 



FRMCLS is called by INVENT if the user specifies that he wishes to use 

 alternate form classes. FRMCLS interactively asks the user to specify the 

 name of the file where the alternate form classes are stored. This file is 

 read from unit 1 (disk on DEC-10). As in INVENT, unit 5 is used to communicate 

 with the user. The user is given the option to list the new form classes after 

 they are read from the file. 



Common Areas Used: FORMCL and REG. 



Other 



Variables Type Dimension Description 



FCFILE D.P.(C*10) — Input file name 



I Int — Implied do loop index 



LSTANS Int — Form class list option flag 



Subroutine LINREG 

 LINREG is called by INVENT if the user specifies that only the heights 

 of a subsample of the volume trees were measured. LINREG then reads through 



