-66- 



c 

 c* 



c 



c 

 c 

 c 

 c 

 c 

 c 

 c* 



PROGBAH INVERT 

 INVENT VEB. 3 1/1/79 DAVID S. LINDEN I. N. E. R. O.N. H. 



THIS IS THE HAIN PBOGRAH OF INVENT 



IT PROVIDES THO HAT OSER COHflDNICATION AND SOBBOOTINE CONTROL 



DOOBLE PBECISION IFILE, SAHHTD, REPEAT 

 INTEGER LOG ANS, TOP ANS.CLASIZ, REGANS, TITLE (14) 



COHHON/COHONE/CLASI Z, TITLE, HO LT,PBOBLV,BAF, TOP ANS.BEGANS, ACRE 

 1, FRAllE,SAnHTD, LOGANS, IFILE 

 DATA PHOBLV/.05/ 

 OPEN OOTPOT FILE 



OPEN (0NIT=3 , ACCESS= • SEQOOT* , FILE=« INVENT. LPT' ) 



OSER COHBONICATION PORTION 

 ****** ********* •#««****«•****** 



ASK OSER IF HE WANTS TO OSE ALTERNATE F.C. •$ 

 10 »RITE(5,20) 



20 FOBHAT(*0DO ¥00 WANT TO READ IN ALTERNATE FORM CLASSES •, 

 1'FROa DISK?*) 

 READ(5,270) FBHANS 

 IF(FRHANS.BQ. 'YES') CALL FRllCLS 

 IF<FBHANS.NE. 'NO*. AND.FRBANS.NE.'IES') GOTO 10 

 HAVE OSER SPECIFY DBH CLASS SIZE 

 WRITE(5,30) 

 30 FORHAT(«0 ENTER DIAHETER CLASS SIZE') 

 READ(5,*) CLASIZ 

 HAVE OSER SPECIFY NOBBEB OF STRATA 

 NRITE(5,i(0) 

 40 FORHATCO ENTER NOHBER OF STRATA') 

 READ(5,*) ISTRAT 

 ASK OSER FOR NEW VALDE OF ALPHA IF DESIRED 

 50 HBITE(5,60) 



60 FOHMATCOINVENT OSES THE 95X CONFIDENCE LEVEL AS A DEPAOLT. ' / 

 1' DO YOO WISH TO OSE A DIFFERENT LEVEL?') 

 READ(5,270) ALPHCH 



IF(ALPHCH.NE. ' YES*. AND. ALPHCH. NE. 'NO') GOTO 50 

 IF (ALPHCH. Eft. 'NO') GOTO 90 

 70 HRITE(5,80) 



eo FORHATC ENTER CONFIDENCE LEVEL AS A DECIHAL IN THE RANGE ', 

 1'.65 TO .99') 

 READ(5,*) ALPHA 



IF (ALPHA.GT. 0.99. OB.ALPHA.lt. 0.65) GOTO 70 

 PROBLV=1.0- ALPHA 

 90 CONTINOE 



BEGIN PROGBAB CONTROL LOOP 



DO 310 111=1, ISTRAT 



HAVE OSER SPECIFY INPOT FILE 



WRITE(5,100) III 

 100 FORBATCO ENTER INPOT FILE NABE FOB STRATOB • *,I3) 



READ(5,110) IFILE 

 110 FORBAT(AIO) 

 OPEN INPOT FILE 



0PEN(0NIT=21,ACCESS='SEQIN',FILE=IFILE) 

 BEAD INVENTORY TITLE FROB FILE 



HEAD(21,120) TITLE 

 120 FORBAT(14A5) 

 WRITE TITLE ON TEBBINAL 



WRITE (5, 130) TITLE 

 130 FORBATCO', 14A5/) 



SVFRAH=FRAaE 

 HAVE OSER SPECIFY SAHPLING HETHOD 



IF(III.GT. 1) BEPEAT=' OR SABE' 

 140 WRITE(5,150) REPEAT 

 150 FOBBATCOSPECIFY SABPLING HETHOD'/' TYPE POINT OR PL0T',A8) 



READ(5,240) FBABE 



IF(FRAHE. EQ.' SABE'. AND. III. GT.1) 160 , 170 



BAINOOIO 

 BAINa02a 

 IIAIN0030 



♦♦♦♦•BAINOOHO 

 HAIN0050 

 HAIN0060 

 BAIN0070 

 HAIH0080 

 HAIN0090 

 HAINOIOO 

 HAIH0110 



♦•***BAIN0120 

 BAIN0130 

 HAIN0149 

 HAlei0150 

 BAIN0160 

 HAIH0170 

 HAIH0180 

 BAIN0190 

 HAIN0230 

 HAIN0210 

 BAIN9220 

 HAIN0230 

 BAIH0240 

 HAIN0250 

 HAIN0260 

 NAIN0270 

 HAIN0280 

 BAIN0230 

 aAIN0300 

 BAIN0310 

 BAtN032Q 

 HAIN0330 

 HAIN03II0 

 HAIN0350 

 BAIN0360 

 HAIN0370 

 aAIN0380 

 aAIN0390 

 HAIN0400 

 BAIN3419 

 BAIN0420 

 BAIN0430 

 BAIN044Q 

 HAIN0450 

 BAIN04&0 

 BAIN0470 

 BAINa43Q 

 aAIN0490 

 BAIN0500 

 BAINQ510 

 HAIN0520 

 BAIN0530 

 HAIN0540 

 BAIN0550 

 aAIN0560 

 HAIN0570 

 aAIN0580 

 aAIN05)Q 

 BAIN0600 

 BAIN0610 

 HAIN0620 

 NAIN0630 

 NAINOenO 

 aAIH0650 

 HAIN0660 

 BAIN0670 

 BAIN0680 

 BAIN063O 

 HAIN0700 

 BAIN0710 

 HAIH0720 

 HAIN0730 

 aAIN0740 

 BAIN0750 

 BAIN0760 

 BAINa770 

 HAIN0780 



