1      SUBROUTINE INITHK(IBUGIN)
2C
3C     PURPOSE--THIS IS SUBROUTING INITHK.
4C              (THE   HK    AT THE END OF    INITHK   STANDS FOR   HOUSEKE
5C              THIS SUBROUTINE INITIALIZES HOUSEKEEPING VARIABLES AND PARAMETERS
6C     WRITTEN BY--JAMES J. FILLIBEN
7C                 STATISTICAL ENGINEERING DIVISION
8C                 INFORMATION TECHNOLOGY LABORATORY
9C                 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY
10C                 GAITHERSBURG, MD 20899
11C                 PHONE--301-975-2855
12C     NOTE--DATAPLOT IS A REGISTERED TRADEMARK
13C           OF THE NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY.
14C     LANGUAGE--ANSI FORTRAN (1977)
15C     VERSION NUMBER--82/7
16C     ORIGINAL VERSION--NOVEMBER  1980.
17C     UPDATED         --JUNE      1981.
18C     UPDATED         --AUGUST    1981.
19C     UPDATED         --NOVEMBER  1981.
20C     UPDATED         --MARCH     1982.
21C     UPDATED         --MAY       1982.
22C     UPDATED         --FEBRUARY  1989.  SOFT-CODE SETTINGS (ALAN)
23C     UPDATED         --NOVEMBER  1999.  VARIABLE AND ROW LABELS
24C     UPDATED         --JANUARY   2004.  INITIALIZE GROUP LABELS
25C     UPDATED         --APRIL     2009.  VALUE OF MAXWID
26C     UPDATED         --AUGUST    2015.  FUNCTION BLOCK SWITCHES
27C     UPDATED         --AUGUST    2016.  STATISTIC BLOCK SWITCHES
28C
29C-----CHARACTER STATEMENTS FOR NON-COMMON VARIABLES-------------------
30C
31      CHARACTER*4 IBUGIN
32C
33      CHARACTER*4 IBLANK
34C
35C-----COMMON----------------------------------------------------------
36C
37      INCLUDE 'DPCOPA.INC'
38      INCLUDE 'DPCOMC.INC'
39      INCLUDE 'DPCOHK.INC'
40      INCLUDE 'DPCOHO.INC'
41      INCLUDE 'DPCOCO.INC'
42      INCLUDE 'DPCOFB.INC'
43      INCLUDE 'DPCOSB.INC'
44C
45C-----COMMON VARIABLES (GENERAL)--------------------------------------
46C
47      INCLUDE 'DPCOP2.INC'
48C
49C-----START POINT-----------------------------------------------------
50C
51      IBLANK=' '
52      IZERO=0
53      ZERO=0.0
54C
55      IF(IBUGIN.EQ.'ON')THEN
56        WRITE(ICOUT,90)
57   90   FORMAT(1X)
58        CALL DPWRST('XXX','BUG ')
59        WRITE(ICOUT,95)
60   95   FORMAT('***** AT THE BEGINNING OF INITHK--')
61        CALL DPWRST('XXX','BUG ')
62      ENDIF
63C
64C               ***********************************************
65C               **  INITIALIZE THE ANSWER VECTOR             **
66C               **  (THE VECTOR WHERE THE ANALYST'S ENTERED  **
67C               **  COMMAND LINE IS PLACED)                  **
68C               ***********************************************
69C
70CCCCC CAUTION--DATAPLOT COMMAND LINES ARE LIMITED TO 80 CHARACTERS
71CCCCC          EVEN WHEN READING FROM A FILE.
72CCCCC          SETTING MAXWID GREATER THAN 80
73CCCCC          CAN CAUSE STRING OVERWRITES (IN DPRELI, DPFILE, DPTYPE).
74CCCCC
75CCCCC          4/2009: THE ABOVE ROUTINES HAVE BEEN ADJUSTED, SO
76CCCCC                  SET MAXWID BACK TO MIN(255,MAXSTR).
77C
78CCCCC MAXWID=200
79      MAXWID=MAXSTR
80CCCCC MAXWID=80
81CCCCC MAXWID=MIN(MAXSTR,255)
82C
83      IWIDTH=0
84C
85      DO100I=1,MAXWID
86        IANS(I)=IBLANK
87        IANSLC(I)=IBLANK
88  100 CONTINUE
89C
90C               ***********************************************
91C               **  INITIALIZE THE SAVED ANSWER VECTOR       **
92C               **  (THE VECTOR WHERE THE ANALYST'S          **
93C               **  BUFFERED REMAINING ANSWERS ARE PLACED    **
94C               **  WHEN MULTIPLE COMMANDS PER LINE ARE      **
95C               **  GIVEN.  THIS MAKES USE OF THE            **
96C               **  SEPARATOR CHARACTOR FEATURE.             **
97C               ***********************************************
98C
99      MAXWSV=MAXWID
100      IWIDSV=IWIDTH
101C
102      DO200I=1,MAXWID
103        IANSV(I)=IBLANK
104  200 CONTINUE
105C
106C               **********************************************************
107C               **  INITIALIZE THE ARGUMENT VECTORS                     **
108C               **  (THE VECTORS WHERE THE ARGUMENTS OF THE DECOMPOSED  **
109C               **  COMMAND LINE ARE PLACED)                            **
110C               **********************************************************
111C
112      ICOM=IBLANK
113      ICOM2=IBLANK
114      ICOMLC=IBLANK
115      ICOML2=IBLANK
116C
117CCCCC MAXARG DEFINED IN DPCOPA.INC
118CCCCC MAXARG=200
119      NUMARG=0
120C
121      DO300I=1,MAXARG
122        IHARG(I)=IBLANK
123        IHARG2(I)=IBLANK
124        IARGT(I)=IBLANK
125        IARG(I)=IZERO
126        ARG(I)=ZERO
127        IHARLC(I)=IBLANK
128        IHARL2(I)=IBLANK
129  300 CONTINUE
130C
131C               ***********************************************
132C               **  INITIALIZE THE NAME VECTORS              **
133C               **  (THE VECTORS WHERE THE ANALYST'S         **
134C               **  PARAMETER, VARIABLE, AND FUNCTION NAMES  **
135C               **  ARE PLACED).                             **
136C               ***********************************************
137C
138CCCCC OCTOBER 1993.  DEFINE MAXNAM AS A PARAMETER FROM DPCOPA.INC
139CCCCC MAXNAM=200
140      MAXNAM=MAXNME
141      NUMNAM=0
142C
143      DO400I=1,MAXNAM
144        IHNAME(I)=IBLANK
145        IHNAM2(I)=IBLANK
146        IUSE(I)=IBLANK
147        IVSTAR(I)=IZERO
148        IVSTOP(I)=IZERO
149        IN(I)=IZERO
150        IVALUE(I)=IZERO
151        IVALU2(I)=IZERO
152        VALUE(I)=ZERO
153CCCCC   ADD FOLLOWING LINE.   NOVEMBER 1999
154        IVARLB(I)=' '
155  400 CONTINUE
156C
157CCCCC ADD FOLLOWING SECTION.   NOVEMBER 1999.
158      DO410I=1,MAXOBV
159        IROWLB(I)=' '
160  410 CONTINUE
161C
162CCCCC ADD FOLLOWING SECTION.   JANUARY 2004.
163      DO420J=1,MAXGRP
164        IGRPVN(J)='        '
165        DO425I=1,MAXGLA
166          IGRPLA(I,J)=' '
167  425   CONTINUE
168  420 CONTINUE
169C
170C               *******************************************************
171C               **  DEFINE THE MACRO SWITCH                          **
172C               **  (WHICH WILL BE ON WHEN A MACRO IS BEING FORMED,  **
173C               **  AND OFF OTHERWISE).                              **
174C               *******************************************************
175C
176C     THIS INITIALIZATION IS NOW DONE IN MAIN.
177CCCCC IMACRO='OFF'
178C
179C               ********************************************
180C               **  TREAT THE ALTERNATE PLOT FILE STATUS  **
181C               **  (FOR CALCOMP, VERSATEC, ZETA, ETC.)   **
182C               ********************************************
183C
184      IPLOTF='-999'
185CCCCC IF(IPL1ST.EQ.'OPFI')IPLOTF='ON'
186CCCCC IF(IPL1ST.EQ.'OPSF')IPLOTF='ON'
187C
188C
189C               **************************************
190C               **  TREAT THE DEFAULT COMMAND CASE  **
191C               **************************************
192C
193      IDEFCM='NO'
194      IWIDDC=0
195C
196C
197C               **************************************
198C               **  TREAT THE FUNCTION BLOCK CASE   **
199C               **************************************
200C
201      IFBLSW='OFF'
202      IFBNA1=' '
203      IFBNA2=' '
204      IFBNA3=' '
205      IFBAN1=' '
206      IFBAN2=' '
207      IFBAN3=' '
208      DO510I=1,MAXFBP
209        IFBPL1(I)=' '
210        IFBPL2(I)=' '
211        IFBPL3(I)=' '
212  510 CONTINUE
213      DO520I=1,MAXFBL
214        IFBLI1(I)=' '
215        IFBLI2(I)=' '
216        IFBLI3(I)=' '
217  520 CONTINUE
218      IFBCN1=0
219      IFBCN2=0
220      IFBCN3=0
221C
222C               **************************************
223C               **  TREAT THE STATISTIC BLOCK CASE  **
224C               **************************************
225C
226      ISBLSW='OFF'
227      ISBNA1=' '
228      ISBNA2=' '
229      ISBNA3=' '
230      ISBAN1=' '
231      ISBAN2=' '
232      ISBAN3=' '
233      DO560I=1,MAXSBP
234        ISBPL1(I)=' '
235        ISBPL2(I)=' '
236        ISBPL3(I)=' '
237  560 CONTINUE
238      DO570I=1,MAXSBL
239        ISBLI1(I)=' '
240        ISBLI2(I)=' '
241        ISBLI3(I)=' '
242  570 CONTINUE
243      ISBCN1=0
244      ISBCN2=0
245      ISBCN3=0
246C
247C               *******************************
248C               **  EXIT AND RETURN TO MAIN  **
249C               *******************************
250C
251      IF(IBUGIN.EQ.'ON')THEN
252        WRITE(ICOUT,999)
253  999   FORMAT(1X)
254        CALL DPWRST('XXX','BUG ')
255        WRITE(ICOUT,9011)
256 9011   FORMAT('***** AT THE END       OF INITHK--')
257        CALL DPWRST('XXX','BUG ')
258        WRITE(ICOUT,9041)MAXNAM,NUMNAM
259 9041   FORMAT('MAXNAM,NUMNAM = ',2I8)
260        CALL DPWRST('XXX','BUG ')
261      ENDIF
262C
263      RETURN
264      END
265      SUBROUTINE DPINFI(IFILE,IEXIST,IOPEN,IACC,ISUBN0,IBUGS2,
266     1                  ISUBRO,IERRFI)
267C
268C     PURPOSE--INQUIRE ABOUT THE EXISTENCE OF A FILE
269C              (BUT THERE MAY BE SOME SMALL DIFFERENCES
270C              IN HOW THAT IS DONE FOR DIFFERENT COMPUTERS).
271C
272C     WRITTEN BY--JAMES J. FILLIBEN
273C     LANGUAGE--ANSI FORTRAN (1977)
274C     ORIGINAL VERSION--NOVEMBER  1986.
275C     UPDATED         --NOVEMBER  1987. (FORM LOWER AND UPPER CASE NAMES)
276C     UPDATED         --FEBRUARY  1989. CYBER/CDC CASE (ALAN)
277C     UPDATED         --NOVEMBER  1989. IERROR TO IERRFI (NELSON)
278C     UPDATED         --APRIL     1997. DUMMY DIMENSION FOR IFILE
279C     UPDATED         --AUGUST    2016. ADD "OPEN" AND "ACTION" CLAUSE
280C
281C------------------------------------------------------------------------------
282C
283CCCCC FIX FOLLOWING LINE  APRIL 1997
284C
285CCCCC CHARACTER*80 IFILE
286      CHARACTER (LEN=*) :: IFILE
287      CHARACTER*4 IEXIST
288      CHARACTER*4 IOPEN
289      CHARACTER*10 IACC2
290      CHARACTER*8 IACC
291      CHARACTER*4 ISUBN0
292C
293      CHARACTER*4 IBUGS2
294      CHARACTER*4 ISUBRO
295      CHARACTER*4 IERRFI
296C
297      INCLUDE 'DPCOPA.INC'
298C
299CCCCC CHARACTER*80 IFILE2
300      CHARACTER (LEN=MAXFNC) :: IFILE2
301C
302      CHARACTER*4 ISUBN1
303      CHARACTER*4 ISUBN2
304      CHARACTER*4 ISTEPN
305C
306      LOGICAL LEXIST
307      LOGICAL LOPEN
308C
309C-----COMMON------------------------------------------------
310C
311      INCLUDE 'DPCOHO.INC'
312      INCLUDE 'DPCOF2.INC'
313C
314C-----COMMON VARIABLES (GENERAL)--------------------------------------
315C
316      INCLUDE 'DPCOP2.INC'
317C
318C-----START POINT-----------------------------------------------------
319C
320      ISUBN1='DPIN'
321      ISUBN2='FI  '
322      IERRFI='NO'
323C
324      IF(IBUGS2.EQ.'ON'.OR.ISUBRO.EQ.'INFI')THEN
325        WRITE(ICOUT,999)
326  999   FORMAT(1X)
327        CALL DPWRST('XXX','BUG ')
328        WRITE(ICOUT,51)
329   51   FORMAT('*****AT THE BEGINNING OF DPINFI--')
330        CALL DPWRST('XXX','BUG ')
331        WRITE(ICOUT,52)IFILE(1:255)
332   52   FORMAT('IFILE(1:80) = ',A255)
333        CALL DPWRST('XXX','BUG ')
334        WRITE(ICOUT,55)ISUBN0,IHOST1
335   55   FORMAT('ISUBN0,IHOST1 = ',A4,2X,A4)
336        CALL DPWRST('XXX','BUG ')
337      ENDIF
338C
339C               ********************************************************
340C               **  STEP 1--                                          **
341C               **  INQUIRE ABOUT THE EXISTENCE OF A FILE.            **
342C               ********************************************************
343C
344      ISTEPN='1'
345      IF(IBUGS2.EQ.'ON'.OR.ISUBRO.EQ.'INFI')
346     1CALL TRACE2(ISTEPN,ISUBN1,ISUBN2)
347C
348      IF(IHOST1.EQ.'VAX')THEN
349C
350C               **********************************
351C               **  STEP 11--                   **
352C               **  TREAT THE VAX CASE          **
353C               **********************************
354C
355        INQUIRE(FILE=IFILE,EXIST=LEXIST)
356        IEXIST='NO'
357        IF(LEXIST)IEXIST='YES'
358      ELSEIF(IHOST1.EQ.'CDC' .OR. IHOST1.EQ.'CYBE' .OR.
359     1       IHOST1.EQ.'205' .OR. IHOST1.EQ.'NVE')THEN
360C
361C               *************************************
362C               **  STEP 21--                      **
363C               **  TREAT THE CYBER/CDC CASE--     **
364C               **  STRIP OFF THE TRAILING PERIOD  **
365C               **  (ELSE THE INQUIRE WILL FAIL)   **
366C               *************************************
367C
368        IFILE2=IFILE
369        DO 2150 I=MAXFNC,1,-1
370          IF(IFILE2(I:I).EQ.' ')GOTO 2150
371          IF(IFILE2(I:I).EQ.IFCHAR) IFILE2(I:I)=' '
372          GOTO 2160
373 2150   CONTINUE
374 2160   CONTINUE
375        INQUIRE(FILE=IFILE2,EXIST=LEXIST)
376        IEXIST='NO'
377        IF(LEXIST)IEXIST='YES'
378      ELSE
379C
380C               **********************************
381C               **  STEP 12--                   **
382C               **  TREAT THE GENERAL CASE      **
383C               **  (MODIFY AS APPROPRIATE      **
384C               **  FOR YOUR COMPUTER)          **
385C               **********************************
386C
387        IEXIST='NO'
388        IOPEN='NO'
389        IACC='UNDEFINE'
390C
391C       1. INQUIRE WITH THE FILE NAME LITERALLY AS GIVEN
392C
393        INQUIRE(FILE=IFILE,EXIST=LEXIST,OPENED=LOPEN,ACTION=IACC2)
394        IF(LEXIST)IEXIST='YES'
395        IF(LOPEN)IOPEN='YES'
396        IACC=IACC2(1:8)
397        IF(IEXIST.EQ.'YES')GOTO9000
398C
399C       2. IF NOT FOUND WITH THE FILE NAME LITERALLY AS GIVEN,
400C          THEN CONVERT THE FILE NAME TO LOWER CASE (E.G., UNIX) AND INQUIRE
401C
402        IFILE2=IFILE
403CCCCC   THE FOLLOWING LINE WAS CORRECTED NOVEMBER 1989
404CCCCC   (BUG UNCOVERED BY NELSON HSU)
405CCCCC   CALL DPLO80(IFILE2,IFILE2,IBUGS2,IERROR)
406CCCCC   NMAX=80
407        NMAX=MAXFNC
408        CALL DPLO80(IFILE2,IFILE2,NMAX,IBUGS2,IERRFI)
409        INQUIRE(FILE=IFILE2,EXIST=LEXIST,OPENED=LOPEN,ACTION=IACC2)
410        IF(LEXIST)IEXIST='YES'
411        IF(LOPEN)IOPEN='YES'
412        IACC=IACC2(1:8)
413        IF(IEXIST.EQ.'YES')GOTO9000
414C
415C       3. IF NOT FOUND WITH THE FILE NAME LITERALLY AS GIVEN,
416C          AND IF NOT FOUND WITH THE FILE NAME AS LOWER CASE,
417C          THEN CONVERT THE FILE NAME TO UPPER CASE AND INQUIRE
418C
419        IFILE2=IFILE
420CCCCC   THE FOLLOWING LINE WAS CORRECTED NOVEMBER 1989
421CCCCC   (BUG UNCOVERED BY NELSON HSU)
422CCCCC   CALL DPUP80(IFILE2,IFILE2,IBUGS2,IERROR)
423CCCCC   NMAX=80
424        NMAX=MAXFNC
425        CALL DPUP80(IFILE2,IFILE2,NMAX,IBUGS2,IERRFI)
426        INQUIRE(FILE=IFILE2,EXIST=LEXIST,OPENED=LOPEN,ACTION=IACC2)
427        IF(LEXIST)IEXIST='YES'
428        IF(LOPEN)IOPEN='YES'
429        IACC=IACC2(1:8)
430        IF(IEXIST.EQ.'YES')GOTO9000
431      ENDIF
432C
433C               *****************
434C               **  STEP 90--  **
435C               **  EXIT       **
436C               *****************
437C
438 9000 CONTINUE
439      IF(IBUGS2.EQ.'ON'.OR.ISUBRO.EQ.'INFI')THEN
440        WRITE(ICOUT,999)
441        CALL DPWRST('XXX','BUG ')
442        WRITE(ICOUT,9011)
443 9011   FORMAT('*****AT THE END       OF DPINFI--')
444        CALL DPWRST('XXX','BUG ')
445        WRITE(ICOUT,9014)IEXIST,IOPEN,IACC,IERRFI
446 9014   FORMAT('IEXIST,IOPEN,IACC,IERRFI = ',2(A4,2X),A8,2X,A4)
447        CALL DPWRST('XXX','BUG ')
448        WRITE(ICOUT,9022)IFILE2(1:255)
449 9022   FORMAT('IFILE2(1:80) = ',A255)
450        CALL DPWRST('XXX','BUG ')
451      ENDIF
452      RETURN
453      END
454      SUBROUTINE DPINF3(IFILE,FTEMP,IEXIST,
455     1                  ISUBN0,IERRFI,IBUGS2,ISUBRO,IERROR)
456C
457C     PURPOSE--INQUIRE ABOUT THE EXISTENCE OF A FILE.  THIS
458C              IS A VARIANT OF DPINFI.  THE DIFFERENCES ARE:
459C
460C                 1) IMAGE FILES ARE OPENED BY THE GD LIBRARY.
461C                    INSTEAD OF DPOPFI.  HOWEVER,  WE WANT TO
462C                    SEARCH THE FILE AS DPOPFI DOES (SPECIFICALLY,
463C                    CHECK FOR ALL UPPER CASE, ALL LOWER CASE,
464C                    AND SEARCH THE DATAPLOT DIRECTORIES).
465C
466C                 2) RETURN THE FILE THAT IS ACTUALLY FOUND
467C                    (IN FTEMP).
468C     WRITTEN BY--JAMES J. FILLIBEN
469C     LANGUAGE--ANSI FORTRAN (1977)
470C     UPDATED         --AUGUST    1996.  FIX TO SUB-DIRECTORIES
471C---------------------------------------------------------------------
472C
473      INCLUDE 'DPCOPA.INC'
474C
475CCCCC CHARACTER*80 IFILE
476      CHARACTER (LEN=*) :: IFILE
477      CHARACTER*4 IEXIST
478      CHARACTER*4 ISUBN0
479      CHARACTER*4 IERRFI
480C
481CCCCC CHARACTER*80 IFILEL
482CCCCC CHARACTER*80 IFILEU
483CCCCC CHARACTER*80 IFILE2
484CCCCC CHARACTER*80 FTEMP
485      CHARACTER (LEN=MAXFNC) :: IFILEL
486      CHARACTER (LEN=MAXFNC) :: IFILEU
487      CHARACTER (LEN=MAXFNC) :: IFILE2
488      CHARACTER (LEN=MAXFNC) :: FTEMP
489C
490      CHARACTER*4 IBUGS2
491      CHARACTER*4 ISUBRO
492      CHARACTER*4 IERROR
493C
494      CHARACTER*4 ISUBN1
495      CHARACTER*4 ISUBN2
496      CHARACTER*4 ISTEPN
497      CHARACTER*4 IBSLC
498C
499      LOGICAL LEXIST
500C
501CCCCC PARAMETER (MAXLEN=80)
502C
503C-----COMMON------------------------------------------------
504C
505      INCLUDE 'DPCOHO.INC'
506      INCLUDE 'DPCOF2.INC'
507C
508C-----COMMON VARIABLES (GENERAL)--------------------------------------
509C
510      INCLUDE 'DPCOP2.INC'
511C
512C-----START POINT-----------------------------------------------------
513C
514      ISUBN1='DPIN'
515      ISUBN2='F3  '
516C
517      NC1=0
518      NC2=0
519      NC3=0
520      NC4=0
521      NMAX=MAXFNC
522C
523      IF(IBUGS2.EQ.'ON'.OR.ISUBRO.EQ.'INF3')THEN
524        WRITE(ICOUT,999)
525  999   FORMAT(1X)
526        CALL DPWRST('XXX','BUG ')
527        WRITE(ICOUT,51)
528   51   FORMAT('***** AT THE BEGINNING OF DPINF3--')
529        CALL DPWRST('XXX','BUG ')
530        WRITE(ICOUT,52)IBUGS2,ISUBRO,ISUBN0,IERROR,IERRFI,IHOST1
531   52   FORMAT('IBUGS2,ISUBRO,ISUBN0,IERROR,IERRFI,IHOST1 = ',
532     1         5(A4,2X),A4)
533        CALL DPWRST('XXX','BUG ')
534        WRITE(ICOUT,62)IFILE(1:80)
535   62   FORMAT('IFILE  = ',A80)
536        CALL DPWRST('XXX','BUG ')
537       ENDIF
538C
539      IF(IHOST1.EQ.'IBM-')THEN
540        CALL DPCONA(92,IBSLC)
541      ELSEIF(IOPSY1.EQ.'UNIX')THEN
542        CALL DPCONA(47,IBSLC)
543      ELSE
544        IBSLC=' '
545      ENDIF
546C
547C               *********************************************
548C               **  STEP 1--                               **
549C               **  INQUIRE ABOUT THE EXISTENCE OF A FILE  **
550C               *********************************************
551C
552      ISTEPN='1'
553      IF(IBUGS2.EQ.'ON'.OR.ISUBRO.EQ.'INF3')
554     1CALL TRACE2(ISTEPN,ISUBN1,ISUBN2)
555C
556C     NOTE: EVEN THOUGH UNIX IS CURRENTLY ONLY SUPPORTED OPERATING
557C           SYSTEM THAT IS CASE SENSITIVE, GO THROUGH SAME PROGESSION
558C           FOR ALL SYSTEMS (I.E., CHECK FOR FILE WITH CASE AS GIVEN,
559C           THEN CHECK WHEN CONVERTED TO ALL LOWER CASE, AND FINALLY
560C           CHECK WHEN CONVERTED TO ALL UPPER CASE).
561C
562C-----TREAT THE GENERAL CASE (E.G., UNIX)-------------------------------
563C
564C  IF FILE DOES NOT EXIST, STRIP OFF TRAILING PERIOD (IF FILE NAME ENDS
565C  WITH PERIOD) AND TRY TO OPEN.
566C
567C     1. SEE IF FILE EXISTS WITH THE NAME LITERALLY AS GIVEN
568C
569      FTEMP=IFILE
570C
571      IF(IFILE(1:1).EQ.'"')THEN
572        DO1102I=2,NMAX
573          IF(IFILE(I:I).EQ.'"')THEN
574            FTEMP=' '
575            FTEMP(1:I-2)=IFILE(2:I-1)
576            GOTO1103
577          ENDIF
578 1102   CONTINUE
579 1103   CONTINUE
580      ENDIF
581C
582      IFLAG=0
583 1110 CONTINUE
584        IEXIST='NO'
585        INQUIRE(FILE=FTEMP,EXIST=LEXIST)
586        IF(LEXIST)IEXIST='YES'
587        IF(IEXIST.EQ.'NO')GOTO1120
588        GOTO1190
589C
590C     2. IF CANNOT OPEN THE FILE WITH NAME LITERALLY AS GIVEN,
591C        THEN CONVERT THE FILE NAME TO LOWER CASE (E.G., UNIX)
592C        AND SEE IF CAN OPEN THAT
593C
594 1120 CONTINUE
595        IFILEL=FTEMP
596        CALL DPLO80(IFILEL,IFILEL,NMAX,IBUGS2,IERROR)
597        IEXIST='NO'
598        INQUIRE(FILE=IFILEL,EXIST=LEXIST)
599        IF(LEXIST)IEXIST='YES'
600        IF(IEXIST.EQ.'NO')GOTO1130
601        FTEMP=IFILEL
602        GOTO1190
603C
604C     3. IF CANNOT OPEN THE FILE WITH NAME LITERALLY AS GIVEN, AND IF
605C        CANNOT OPEN THE FILE WITH NAME CONVERTED TO LOWER CASE, THEN
606C        CONVERT THE FILE NAME TO UPPER CASE AND SEE IF CAN OPEN THAT
607C
608 1130 CONTINUE
609        IFILEU=FTEMP
610        CALL DPUP80(IFILEU,IFILEU,NMAX,IBUGS2,IERROR)
611        IEXIST='NO'
612        INQUIRE(FILE=IFILEU,EXIST=LEXIST)
613        IF(LEXIST)IEXIST='YES'
614        IF(IEXIST.EQ.'NO')GOTO1140
615        FTEMP=IFILEU
616        GOTO1190
617C
618C     4. IF STILL CANNOT OPEN THE FILE, THEN PERHAPS THE ANALYST IS
619C        TRYING TO OPEN A FILE NOT IN HIS OWN DIRECTORY, BUT A FILE
620C        RESIDING IN DATAPLOT'S DIRECTORY (E.G., ONE OF DATAPLOT'S
621C        REFRENCE, DATA, MAP, FRACTAL, MACRO, ETC. FILES).  TO CHECK
622C        THIS CONTINGENCY, INSERT THE NAME OF DATAPLOT'S DIRECTORY IN
623C        FRONT OF THE SPECIFIED FILE NAME, AND TRY TO OPEN THAT
624C        BY REPEATING THE ABOVE 3 STEPS.
625C
626 1140 CONTINUE
627C
628C     4A. CHECK FOR FILE NAME AS IS
629C
630      IF(IOPSY1.EQ.'UNIX') THEN
631        IFILE2(1:IUNXNC)=UNIXPN(1:IUNXNC)
632        NC1=IUNXNC+1
633        NC2=NMAX
634        NC3=1
635        NC4=NMAX-IUNXNC
636        NCHECK=10
637      ELSEIF(IHOST1.EQ.'VAX')THEN
638        IFILE2(10:80)=IFILE(1:71)
639        IFILE2(1:9)='DATAPLO$:'
640        NCHECK=1
641      ELSEIF(IHOST1.EQ.'IBM-')THEN
642        NC1=NCPATH+1
643        NC2=NMAX
644        NC3=1
645        NC4=NMAX-NCPATH
646        IFILE2(1:NCPATH)=PATH(1:NCPATH)
647        NCHECK=10
648      ELSE
649        NCHECK=0
650      ENDIF
651C
652      IF(NCHECK.GT.0)THEN
653        DO1141K=1,NCHECK
654           IF(K.EQ.1)THEN
655              IFILE2(NC1:NC2)=IFILE(1:NC4)
656           ELSE IF(K.EQ.2)THEN
657              NC5=NC1
658              NC6=NC5+4
659              IFILE2(NC5:NC6)='help '
660              IFILE2(NC6:NC6)=IBSLC
661              NC7=NC6+1
662              NC8=80-NC6
663              IFILE2(NC7:NC2)=IFILE(NC3:NC8)
664           ELSE IF(K.EQ.3)THEN
665              NC5=NC1
666              NC6=NC5+4
667              IFILE2(NC5:NC6)='data '
668              IFILE2(NC6:NC6)=IBSLC
669              NC7=NC6+1
670              NC8=80-NC6
671              IFILE2(NC7:NC2)=IFILE(NC3:NC8)
672           ELSE IF(K.EQ.4)THEN
673              NC5=NC1
674              NC6=NC5+3
675              IFILE2(NC5:NC6)='dex '
676              IFILE2(NC6:NC6)=IBSLC
677              NC7=NC6+1
678              NC8=80-NC6
679              IFILE2(NC7:NC2)=IFILE(NC3:NC8)
680           ELSE IF(K.EQ.5)THEN
681              NC5=NC1
682              NC6=NC5+6
683              IFILE2(NC5:NC6)='macros '
684              IFILE2(NC6:NC6)=IBSLC
685              NC7=NC6+1
686              NC8=80-NC6
687              IFILE2(NC7:NC2)=IFILE(NC3:NC8)
688           ELSE IF(K.EQ.6)THEN
689              NC5=NC1
690              NC6=NC5+8
691              IFILE2(NC5:NC6)='programs '
692              IFILE2(NC6:NC6)=IBSLC
693              NC7=NC6+1
694              NC8=80-NC6
695              IFILE2(NC7:NC2)=IFILE(NC3:NC8)
696           ELSE IF(K.EQ.7)THEN
697              NC5=NC1
698              NC6=NC5+4
699              IFILE2(NC5:NC6)='text '
700              IFILE2(NC6:NC6)=IBSLC
701              NC7=NC6+1
702              NC8=80-NC6
703              IFILE2(NC7:NC2)=IFILE(NC3:NC8)
704           ELSE IF(K.EQ.8)THEN
705              NC5=NC1
706              NC6=NC5+4
707              IFILE2(NC5:NC6)='menu '
708              IFILE2(NC6:NC6)=IBSLC
709              NC7=NC6+1
710              NC8=80-NC6
711              IFILE2(NC7:NC2)=IFILE(NC3:NC8)
712           ELSE IF(K.EQ.9)THEN
713              NC5=NC1
714              NC6=NC5+2
715              IFILE2(NC5:NC6)='ps '
716              IFILE2(NC6:NC6)=IBSLC
717              NC7=NC6+1
718              NC8=80-NC6
719              IFILE2(NC7:NC2)=IFILE(NC3:NC8)
720           ELSE IF(K.EQ.10)THEN
721              NC5=NC1
722              NC6=NC5+3
723              IFILE2(NC5:NC6)='tek '
724              IFILE2(NC6:NC6)=IBSLC
725              NC7=NC6+1
726              NC8=80-NC6
727              IFILE2(NC7:NC2)=IFILE(NC3:NC8)
728           END IF
729C
730           IEXIST='NO'
731           INQUIRE(FILE=IFILE2,EXIST=LEXIST)
732           IF(LEXIST)IEXIST='YES'
733           IF(IEXIST.EQ.'NO')GOTO1141
734           FTEMP=IFILE2
735           GOTO1190
736C
737 1141   CONTINUE
738C
739        DO1151K=1,NCHECK
740           IF(K.EQ.1)THEN
741              IFILE2(NC1:NC2)=IFILEU(1:NC4)
742           ELSE IF(K.EQ.2)THEN
743              NC5=NC1
744              NC6=NC5+4
745              IFILE2(NC5:NC6)='help '
746              IFILE2(NC6:NC6)=IBSLC
747              NC7=NC6+1
748              NC8=80-NC6
749              IFILE2(NC7:NC2)=IFILEU(NC3:NC8)
750           ELSE IF(K.EQ.3)THEN
751              NC5=NC1
752              NC6=NC5+4
753              IFILE2(NC5:NC6)='data '
754              IFILE2(NC6:NC6)=IBSLC
755              NC7=NC6+1
756              NC8=80-NC6
757              IFILE2(NC7:NC2)=IFILEU(NC3:NC8)
758           ELSE IF(K.EQ.4)THEN
759              NC5=NC1
760              NC6=NC5+3
761              IFILE2(NC5:NC6)='dex '
762              IFILE2(NC6:NC6)=IBSLC
763              NC7=NC6+1
764              NC8=80-NC6
765              IFILE2(NC7:NC2)=IFILEU(NC3:NC8)
766           ELSE IF(K.EQ.5)THEN
767              NC5=NC1
768              NC6=NC5+6
769              IFILE2(NC5:NC6)='macros '
770              IFILE2(NC6:NC6)=IBSLC
771              NC7=NC6+1
772              NC8=80-NC6
773              IFILE2(NC7:NC2)=IFILEU(NC3:NC8)
774           ELSE IF(K.EQ.6)THEN
775              NC5=NC1
776              NC6=NC5+8
777              IFILE2(NC5:NC6)='programs '
778              IFILE2(NC6:NC6)=IBSLC
779              NC7=NC6+1
780              NC8=80-NC6
781              IFILE2(NC7:NC2)=IFILEU(NC3:NC8)
782           ELSE IF(K.EQ.7)THEN
783              NC5=NC1
784              NC6=NC5+4
785              IFILE2(NC5:NC6)='text '
786              IFILE2(NC6:NC6)=IBSLC
787              NC7=NC6+1
788              NC8=80-NC6
789              IFILE2(NC7:NC2)=IFILEU(NC3:NC8)
790           ELSE IF(K.EQ.8)THEN
791              NC5=NC1
792              NC6=NC5+4
793              IFILE2(NC5:NC6)='menu '
794              IFILE2(NC6:NC6)=IBSLC
795              NC7=NC6+1
796              NC8=80-NC6
797              IFILE2(NC7:NC2)=IFILEU(NC3:NC8)
798           ELSE IF(K.EQ.9)THEN
799              NC5=NC1
800              NC6=NC5+2
801              IFILE2(NC5:NC6)='ps '
802              IFILE2(NC6:NC6)=IBSLC
803              NC7=NC6+1
804              NC8=80-NC6
805              IFILE2(NC7:NC2)=IFILEU(NC3:NC8)
806           ELSE IF(K.EQ.10)THEN
807              NC5=NC1
808              NC6=NC5+3
809              IFILE2(NC5:NC6)='tek '
810              IFILE2(NC6:NC6)=IBSLC
811              NC7=NC6+1
812              NC8=80-NC6
813              IFILE2(NC7:NC2)=IFILEU(NC3:NC8)
814           END IF
815C
816           IEXIST='NO'
817           INQUIRE(FILE=IFILE2,EXIST=LEXIST)
818           IF(LEXIST)IEXIST='YES'
819           IF(IEXIST.EQ.'NO')GOTO1151
820           FTEMP=IFILE2
821           GOTO1190
822C
823 1151   CONTINUE
824C
825        DO1161K=1,NCHECK
826           IF(K.EQ.1)THEN
827              IFILE2(NC1:NC2)=IFILEL(1:NC4)
828           ELSE IF(K.EQ.2)THEN
829              NC5=NC1
830              NC6=NC5+4
831              IFILE2(NC5:NC6)='help '
832              IFILE2(NC6:NC6)=IBSLC
833              NC7=NC6+1
834              NC8=80-NC6
835              IFILE2(NC7:NC2)=IFILEL(NC3:NC8)
836           ELSE IF(K.EQ.3)THEN
837              NC5=NC1
838              NC6=NC5+4
839              IFILE2(NC5:NC6)='data '
840              IFILE2(NC6:NC6)=IBSLC
841              NC7=NC6+1
842              NC8=80-NC6
843              IFILE2(NC7:NC2)=IFILEL(NC3:NC8)
844           ELSE IF(K.EQ.4)THEN
845              NC5=NC1
846              NC6=NC5+3
847              IFILE2(NC5:NC6)='dex '
848              IFILE2(NC6:NC6)=IBSLC
849              NC7=NC6+1
850              NC8=80-NC6
851              IFILE2(NC7:NC2)=IFILEL(NC3:NC8)
852           ELSE IF(K.EQ.5)THEN
853              NC5=NC1
854              NC6=NC5+6
855              IFILE2(NC5:NC6)='macros '
856              IFILE2(NC6:NC6)=IBSLC
857              NC7=NC6+1
858              NC8=80-NC6
859              IFILE2(NC7:NC2)=IFILEL(NC3:NC8)
860           ELSE IF(K.EQ.6)THEN
861              NC5=NC1
862              NC6=NC5+8
863              IFILE2(NC5:NC6)='programs '
864              IFILE2(NC6:NC6)=IBSLC
865              NC7=NC6+1
866              NC8=80-NC6
867              IFILE2(NC7:NC2)=IFILEL(NC3:NC8)
868           ELSE IF(K.EQ.7)THEN
869              NC5=NC1
870              NC6=NC5+4
871              IFILE2(NC5:NC6)='text '
872              IFILE2(NC6:NC6)=IBSLC
873              NC7=NC6+1
874              NC8=80-NC6
875              IFILE2(NC7:NC2)=IFILEL(NC3:NC8)
876           ELSE IF(K.EQ.8)THEN
877              NC5=NC1
878              NC6=NC5+4
879              IFILE2(NC5:NC6)='menu '
880              IFILE2(NC6:NC6)=IBSLC
881              NC7=NC6+1
882              NC8=80-NC6
883              IFILE2(NC7:NC2)=IFILEL(NC3:NC8)
884           ELSE IF(K.EQ.9)THEN
885              NC5=NC1
886              NC6=NC5+2
887              IFILE2(NC5:NC6)='ps '
888              IFILE2(NC6:NC6)=IBSLC
889              NC7=NC6+1
890              NC8=80-NC6
891              IFILE2(NC7:NC2)=IFILEL(NC3:NC8)
892           ELSE IF(K.EQ.10)THEN
893              NC5=NC1
894              NC6=NC5+3
895              IFILE2(NC5:NC6)='tek '
896              IFILE2(NC6:NC6)=IBSLC
897              NC7=NC6+1
898              NC8=80-NC6
899              IFILE2(NC7:NC2)=IFILEL(NC3:NC8)
900           END IF
901C
902           IEXIST='NO'
903           INQUIRE(FILE=IFILE2,EXIST=LEXIST)
904           IF(LEXIST)IEXIST='YES'
905           IF(IEXIST.EQ.'NO')GOTO1161
906           FTEMP=IFILE2
907           GOTO1190
908C
909 1161   CONTINUE
910C
911      ENDIF
912C
913C     CHECK IF FILE ENDS WITH PERIOD (OR THE FILE CHARACTER).  IF
914C     SO, STRIP IT OFF AND REPEAT THE ABOVE SEQUENCE OF OPEN COMMANDS.
915C
916      IFLAG=IFLAG+1
917      IF(IFLAG.GT.1)GOTO1190
918      FTEMP=IFILE
919      DO1175I=80,1,-1
920        IF(FTEMP(I:I).EQ.' ')GOTO1175
921        IF(FTEMP(I:I).EQ.IFCHAR)FTEMP(I:I)=' '
922        GOTO1179
923 1175 CONTINUE
924 1179 CONTINUE
925      GOTO1110
926C
927C     THE IEXIST PARAMETER SPECIFIES WHETHER FILE FOUND OR NOT.
928C     DO NOT PRINT ANY ERROR OR WARNING MESSAGE HERE (LET CALLING
929C     ROUTINE PRINT AN APPROPRIATE MESSAGE).
930C
931 1190 CONTINUE
932      GOTO9000
933C
934C               *****************
935C               **  STEP 90--  **
936C               **  EXIT       **
937C               *****************
938C
939 9000 CONTINUE
940      IF(IBUGS2.EQ.'ON'.OR.ISUBRO.EQ.'INF3')THEN
941        WRITE(ICOUT,999)
942        CALL DPWRST('XXX','BUG ')
943        WRITE(ICOUT,9011)
944 9011   FORMAT('***** AT THE END       OF DPINF3--')
945        CALL DPWRST('XXX','BUG ')
946        WRITE(ICOUT,9012)IBUGS2,ISUBRO,ISUBN0,IERROR,IERRFI
947 9012   FORMAT('IBUGS2,ISUBRO,ISUBN0,IERROR,IERRFI = ',4(A4,2X),A4)
948        CALL DPWRST('XXX','BUG ')
949        WRITE(ICOUT,9022)IFILE(1:80)
950 9022   FORMAT('IFILE  = ',A80)
951        CALL DPWRST('XXX','BUG ')
952        WRITE(ICOUT,9041)IFILEL(1:80)
953 9041   FORMAT('IFILEL  = ',A80)
954        CALL DPWRST('XXX','BUG ')
955        WRITE(ICOUT,9042)IFILEU(1:80)
956 9042   FORMAT('IFILEU  = ',A80)
957        CALL DPWRST('XXX','BUG ')
958        WRITE(ICOUT,9043)IFILE2(1:80)
959 9043   FORMAT('IFILE2  = ',A80)
960        CALL DPWRST('XXX','BUG ')
961        WRITE(ICOUT,9044)FTEMP(1:80)
962 9044   FORMAT('FTEMP  = ',A80)
963        CALL DPWRST('XXX','BUG ')
964      ENDIF
965C
966      RETURN
967      END
968      SUBROUTINE DPCLFI(IOUNIT,IFILE,ISTAT,IFORM,IACCES,IPROT,ICURST,
969     1IENDFI,IREWIN,ISUBN0,IERRFI,IBUGS2,ISUBRO,IERROR)
970C
971C     PURPOSE--CLOSE A FILE
972C              (BUT THERE MAY BE SOME SMALL DIFFERENCES
973C              IN HOW THAT IS DONE FOR DIFFERENT COMPUTERS).
974C
975C     WRITTEN BY--JAMES J. FILLIBEN
976C     LANGUAGE--ANSI FORTRAN (1977)
977C     ORIGINAL VERSION--NOVEMBER 1985.
978C
979C------------------------------------------------------------------------------
980C
981      INCLUDE 'DPCOPA.INC'
982C
983CCCCC CHARACTER*80 IFILE
984      CHARACTER(LEN=*) :: IFILE
985      CHARACTER*12 ISTAT
986      CHARACTER*12 IFORM
987      CHARACTER*12 IACCES
988      CHARACTER*12 IPROT
989      CHARACTER*12 ICURST
990      CHARACTER*4 IENDFI
991      CHARACTER*4 IREWIN
992      CHARACTER*4 ISUBN0
993      CHARACTER*4 IERRFI
994C
995      CHARACTER*4 IBUGS2
996      CHARACTER*4 ISUBRO
997      CHARACTER*4 IERROR
998C
999      CHARACTER*4 ISUBN1
1000      CHARACTER*4 ISUBN2
1001      CHARACTER*4 ISTEPN
1002C
1003C-----COMMON------------------------------------------------
1004C
1005      INCLUDE 'DPCOHO.INC'
1006C
1007C-----COMMON VARIABLES (GENERAL)--------------------------------------
1008C
1009      INCLUDE 'DPCOP2.INC'
1010C
1011C-----START POINT-----------------------------------------------------
1012C
1013      ISUBN1='DPCL'
1014      ISUBN2='FI  '
1015C
1016      IF(IBUGS2.EQ.'ON'.OR.ISUBRO.EQ.'CLFI')THEN
1017        WRITE(ICOUT,999)
1018  999   FORMAT(1X)
1019        CALL DPWRST('XXX','BUG ')
1020        WRITE(ICOUT,51)
1021   51   FORMAT('***** AT THE BEGINNING OF DPCLFI--')
1022        CALL DPWRST('XXX','BUG ')
1023        WRITE(ICOUT,52)IBUGS2,ISUBRO,IERROR,IOUNIT
1024   52   FORMAT('IBUGS2,ISUBRO,IERROR,IOUNT = ',3(A4,2X),I5)
1025        CALL DPWRST('XXX','BUG ')
1026        WRITE(ICOUT,62)IFILE(1:80)
1027   62   FORMAT('IFILE  = ',A80)
1028        CALL DPWRST('XXX','BUG ')
1029        WRITE(ICOUT,63)ISTAT,IFORM,IACCES
1030   63   FORMAT('ISTAT,IFORM,IACCES  = ',2(A12,2X),A12)
1031        CALL DPWRST('XXX','BUG ')
1032        WRITE(ICOUT,66)IPROT,ICURST
1033   66   FORMAT('IPROT,ICURST  = ',A12,2X,A12)
1034        CALL DPWRST('XXX','BUG ')
1035        WRITE(ICOUT,68)IENDFI,IREWIN,ISUBN0,IERRFI,IHOST1
1036   68   FORMAT('IENDFI,IREWIN,ISUBN0,IERRFI,IHOST1 = ',4(A4,2X),A4)
1037        CALL DPWRST('XXX','BUG ')
1038      ENDIF
1039C
1040C               *******************
1041C               **  STEP 1--     **
1042C               **  CLOSE A FILE **
1043C               *******************
1044C
1045      ISTEPN='1'
1046      IF(IBUGS2.EQ.'ON'.OR.ISUBRO.EQ.'CLFI')
1047     1CALL TRACE2(ISTEPN,ISUBN1,ISUBN2)
1048C
1049      IF(ICURST.NE.'CLOSED')THEN
1050C
1051C-------ENDFILE REQUIRED FOR THE UNIVAC  CASE--------------------------
1052C
1053        IF(IHOST1.EQ.'UNIV')THEN
1054          IF(IENDFI.EQ.'ON')ENDFILE IOUNIT
1055        ENDIF
1056C
1057        IF(IREWIN.EQ.'ON')REWIND IOUNIT
1058        CLOSE(IOUNIT)
1059      ENDIF
1060C
1061      ICURST='CLOSED'
1062      IERRFI='NO'
1063      IERROR='NO'
1064      GOTO9000
1065C
1066C               ************************************
1067C               **  STEP 80--                     **
1068C               **  GENERATE AN ERROR MESSAGE     **
1069C               **  IF THE FILE CANNOT BE OPENED  **
1070C               ************************************
1071C
1072      IERRFI='YES'
1073      IERROR='YES'
1074      WRITE(ICOUT,999)
1075      CALL DPWRST('XXX','BUG ')
1076      WRITE(ICOUT,8011)
1077 8011 FORMAT('***** ERROR IN CLOSE FILE (DPCLFI)--')
1078      CALL DPWRST('XXX','BUG ')
1079      WRITE(ICOUT,8012)
1080 8012 FORMAT('      ERROR IN ATTEMPTING TO CLOSE A FILE.')
1081      CALL DPWRST('XXX','BUG ')
1082      WRITE(ICOUT,8021)IOUNIT
1083 8021 FORMAT('I/O UNIT    = ',I8)
1084      CALL DPWRST('XXX','BUG ')
1085      WRITE(ICOUT,8022)IFILE(1:255)
1086 8022 FORMAT('FILE NAME   = ',A255)
1087      CALL DPWRST('XXX','BUG ')
1088      WRITE(ICOUT,8023)ISTAT
1089 8023 FORMAT('FILE STATUS = ',A12)
1090      CALL DPWRST('XXX','BUG ')
1091      WRITE(ICOUT,8024)IFORM
1092 8024 FORMAT('FILE FORMAT = ',A12)
1093      CALL DPWRST('XXX','BUG ')
1094      WRITE(ICOUT,8025)IACCES
1095 8025 FORMAT('FILE ACCESS = ',A12)
1096      CALL DPWRST('XXX','BUG ')
1097      WRITE(ICOUT,8026)IPROT
1098 8026 FORMAT('FILE PROTECTION         = ',A12)
1099      CALL DPWRST('XXX','BUG ')
1100      WRITE(ICOUT,8027)ICURST
1101 8027 FORMAT('FILE CURRENT STATUS     = ',A12)
1102      CALL DPWRST('XXX','BUG ')
1103      WRITE(ICOUT,8028)ISUBN0
1104 8028 FORMAT('PREVIOUS (= CALLING) SUBROUTINE = ',A4)
1105      CALL DPWRST('XXX','BUG ')
1106      WRITE(ICOUT,8029)IERRFI
1107 8029 FORMAT('FILE-FINDING ERROR FLAG = ',A4)
1108      CALL DPWRST('XXX','BUG ')
1109      WRITE(ICOUT,8031)IHOST1
1110 8031 FORMAT('HOST COMPUTER           = ',A4)
1111      CALL DPWRST('XXX','BUG ')
1112      GOTO9000
1113C
1114C               *****************
1115C               **  STEP 90--  **
1116C               **  EXIT.      **
1117C               *****************
1118C
1119 9000 CONTINUE
1120      IF(IBUGS2.EQ.'ON'.OR.ISUBRO.EQ.'CLFI')THEN
1121        WRITE(ICOUT,999)
1122        CALL DPWRST('XXX','BUG ')
1123        WRITE(ICOUT,9011)
1124 9011   FORMAT('*****AT THE END       OF DPCLFI--')
1125        CALL DPWRST('XXX','BUG ')
1126        WRITE(ICOUT,9023)ISTAT,ICURST,IERROR,IENDFI,IREWIN,IERRFI
1127 9023   FORMAT('ISTAT,ICURST,IERROR,IENDFI,IREWIN,IERRFI  = ',
1128     1         2(A12,2X),3(A4,2X),A4)
1129        CALL DPWRST('XXX','BUG ')
1130      ENDIF
1131C
1132      RETURN
1133      END
1134      SUBROUTINE DPREFI(IOUNIT,IFILE,ISTAT,IFORM,IACCES,IPROT,ICURST,
1135     1                  IA,NUMCHA,
1136     1                  ISUBN0,IERRFI,IBUGS2,ISUBRO,IERROR)
1137C
1138C     PURPOSE--READ FROM A FILE
1139C              (BUT THERE MAY BE SOME SMALL DIFFERENCES
1140C              IN HOW THAT IS DONE FOR DIFFERENT COMPUTERS).
1141C
1142C     WRITTEN BY--JAMES J. FILLIBEN
1143C     LANGUAGE--ANSI FORTRAN (1977)
1144C     ORIGINAL VERSION--NOVEMBER 1985.
1145C     UPDATED         --FEBRUARY 2003. IF NUMCHA > 0, THEN ADD CAPABILITY
1146C                                      TO READ LINES LONGER THAN 132
1147C                                      COLUMNS.
1148C
1149C------------------------------------------------------------------------------
1150C
1151      INCLUDE 'DPCOPA.INC'
1152C
1153CCCCC CHARACTER*80 IFILE
1154      CHARACTER (LEN=*) :: IFILE
1155      CHARACTER*12 ISTAT
1156      CHARACTER*12 IFORM
1157      CHARACTER*12 IACCES
1158      CHARACTER*12 IPROT
1159      CHARACTER*12 ICURST
1160      CHARACTER*4 IA
1161C
1162      CHARACTER*4 ISUBN0
1163      CHARACTER*4 IERRFI
1164      CHARACTER*4 IBUGS2
1165      CHARACTER*4 ISUBRO
1166      CHARACTER*4 IERROR
1167C
1168      CHARACTER*4 ISUBN1
1169      CHARACTER*4 ISUBN2
1170      CHARACTER*4 ISTEPN
1171C
1172      CHARACTER*9 IFORMT
1173C
1174      DIMENSION IA(*)
1175C
1176C-----COMMON------------------------------------------------
1177C
1178      INCLUDE 'DPCOHO.INC'
1179C
1180C-----COMMON VARIABLES (GENERAL)--------------------------------------
1181C
1182      INCLUDE 'DPCOP2.INC'
1183C
1184C-----START POINT-----------------------------------------------------
1185C
1186      ISUBN1='DPRE'
1187      ISUBN2='FI  '
1188C
1189      IF(IBUGS2.EQ.'ON'.OR.ISUBRO.EQ.'REFI')THEN
1190        WRITE(ICOUT,999)
1191  999   FORMAT(1X)
1192        CALL DPWRST('XXX','BUG ')
1193        WRITE(ICOUT,51)
1194   51   FORMAT('***** AT THE BEGINNING OF DPREFI--')
1195        CALL DPWRST('XXX','BUG ')
1196        WRITE(ICOUT,52)IBUGS2,ISUBRO,IERROR,NUMCHAR,IOUNIT
1197   52   FORMAT('IBUGS2,ISUBRO,IERROR,NUMCHAR,IOUNIT = ',3(A4,2X),2I8)
1198        CALL DPWRST('XXX','BUG ')
1199        WRITE(ICOUT,62)IFILE(1:80)
1200   62   FORMAT('IFILE  = ',A80)
1201        CALL DPWRST('XXX','BUG ')
1202        WRITE(ICOUT,63)ISTAT,IFORM,IACCES,IPROT,ICURST
1203   63   FORMAT('ISTAT,IFORM,IACCES,IPROT,ICURST = ',4(A12,1X),A12)
1204        CALL DPWRST('XXX','BUG ')
1205        WRITE(ICOUT,81)ISUBN0,IERRFI,IHOST1
1206   81   FORMAT('ISUBN0,IERRFI,IHOST1 = ',2(A4,2X),A4)
1207        CALL DPWRST('XXX','BUG ')
1208      ENDIF
1209C
1210C               ************************
1211C               **  STEP 1--          **
1212C               **  READ FROM A FILE  **
1213C               ************************
1214C
1215      ISTEPN='1'
1216      IF(IBUGS2.EQ.'ON'.OR.ISUBRO.EQ.'REFI')
1217     1CALL TRACE2(ISTEPN,ISUBN1,ISUBN2)
1218C
1219C-----TREAT THE GENERAL CASE------------------------------------------
1220C
1221      ISTEPN='11'
1222      IF(IBUGS2.EQ.'ON'.OR.ISUBRO.EQ.'REFI')
1223     1CALL TRACE2(ISTEPN,ISUBN1,ISUBN2)
1224C
1225      IERRFI='NO'
1226      IERROR='NO'
1227      NUMCH2=NUMCHA
1228C
1229CCCCC FEBRUARY 2003: ADD CAPABILITY TO READ LINES LONGER THAN 132
1230CCCCC CHARACTERS.
1231C
1232      IF(NUMCHA.LT.0 .OR. IOUNIT.EQ.IRD)THEN
1233        NUMCH2=255
1234        READ(IOUNIT,1111,END=1118,IOSTAT=IOS,ERR=8000)(IA(I),I=1,NUMCH2)
1235 1111   FORMAT(255A1)
1236      ELSE
1237        IFORMT=' '
1238        IFORMT(1:9)='(     A1)'
1239        IF(NUMCHA.LE.9)THEN
1240          WRITE(IFORMT(6:6),'(I1)')NUMCHA
1241        ELSEIF(NUMCHA.LE.99)THEN
1242          WRITE(IFORMT(5:6),'(I2)')NUMCHA
1243        ELSEIF(NUMCHA.LE.999)THEN
1244          WRITE(IFORMT(4:6),'(I3)')NUMCHA
1245        ELSEIF(NUMCHA.LE.9999)THEN
1246          WRITE(IFORMT(3:6),'(I4)')NUMCHA
1247        ELSE
1248          WRITE(IFORMT(2:6),'(I5)')NUMCHA
1249        ENDIF
1250        READ(IOUNIT,IFORMT,END=1118,IOSTAT=IOS,ERR=8000)
1251     1      (IA(I),I=1,NUMCHA)
1252      ENDIF
1253C
1254      GOTO9000
1255C
1256 1118 CONTINUE
1257      NUMCHA=3
1258      IA(1)='E'
1259      IA(2)='O'
1260      IA(3)='F'
1261      GOTO9000
1262C
1263C               ************************************
1264C               **  STEP 80--                     **
1265C               **  GENERATE AN ERROR MESSAGE     **
1266C               **  IF THE FILE CANNOT BE READ    **
1267C               ************************************
1268C
1269 8000 CONTINUE
1270      IERRFI='YES'
1271      IERROR='YES'
1272      WRITE(ICOUT,999)
1273      CALL DPWRST('XXX','BUG ')
1274      WRITE(ICOUT,8011)
1275 8011 FORMAT('***** ERROR IN DPREFI--')
1276      CALL DPWRST('XXX','BUG ')
1277      WRITE(ICOUT,8012)
1278 8012 FORMAT('      ERROR IN ATTEMPTING TO READ FROM A FILE')
1279      CALL DPWRST('XXX','BUG ')
1280      WRITE(ICOUT,8021)IOUNIT
1281 8021 FORMAT('I/O UNIT    = ',I8)
1282      CALL DPWRST('XXX','BUG ')
1283      WRITE(ICOUT,8022)IFILE(1:255)
1284 8022 FORMAT('FILE NAME   = ',A255)
1285      CALL DPWRST('XXX','BUG ')
1286      WRITE(ICOUT,8023)ISTAT
1287 8023 FORMAT('FILE STATUS = ',A12)
1288      CALL DPWRST('XXX','BUG ')
1289      WRITE(ICOUT,8024)IFORM
1290 8024 FORMAT('FILE FORMAT = ',A12)
1291      CALL DPWRST('XXX','BUG ')
1292      WRITE(ICOUT,8025)IACCES
1293 8025 FORMAT('FILE ACCESS = ',A12)
1294      CALL DPWRST('XXX','BUG ')
1295      WRITE(ICOUT,8026)IPROT
1296 8026 FORMAT('FILE PROTECTION         = ',A12)
1297      CALL DPWRST('XXX','BUG ')
1298      WRITE(ICOUT,8027)ICURST
1299 8027 FORMAT('FILE CURRENT STATUS     = ',A12)
1300      CALL DPWRST('XXX','BUG ')
1301      WRITE(ICOUT,8028)ISUBN0
1302 8028 FORMAT('PREVIOUS (= CALLING) SUBROUTINE = ',A4)
1303      CALL DPWRST('XXX','BUG ')
1304      WRITE(ICOUT,8029)IERRFI
1305 8029 FORMAT('FILE-FINDING ERROR FLAG = ',A4)
1306      CALL DPWRST('XXX','BUG ')
1307      WRITE(ICOUT,8030)IOS
1308 8030 FORMAT('IO STATUS NUMBER        = ',I8)
1309      CALL DPWRST('XXX','BUG ')
1310      WRITE(ICOUT,8031)IHOST1
1311 8031 FORMAT('HOST COMPUTER           = ',A4)
1312      CALL DPWRST('XXX','BUG ')
1313      GOTO9000
1314C
1315C               *****************
1316C               **  STEP 90--  **
1317C               **  EXIT       **
1318C               *****************
1319C
1320 9000 CONTINUE
1321      IF(IBUGS2.EQ.'ON'.OR.ISUBRO.EQ.'REFI')THEN
1322        WRITE(ICOUT,999)
1323        CALL DPWRST('XXX','BUG ')
1324        WRITE(ICOUT,9011)
1325 9011   FORMAT('***** AT THE END       OF DPREFI--')
1326        CALL DPWRST('XXX','BUG ')
1327        WRITE(ICOUT,9012)IBUGS2,ISUBRO,IERROR,NUMCHA,NUMCH2
1328 9012   FORMAT('IBUGS2,ISUBRO,IERROR,NUMCHA,NUMCH2 = ',3(A4,2X),2I8)
1329        CALL DPWRST('XXX','BUG ')
1330        IF(NUMCHA.GE.1)THEN
1331          WRITE(ICOUT,9032)(IA(I)(1:1),I=1,MIN(100,NUMCHA))
1332 9032     FORMAT('(IA(I),I=1,NUMCHA) = ',100A1)
1333          CALL DPWRST('XXX','BUG ')
1334        ENDIF
1335      ENDIF
1336C
1337      RETURN
1338      END
1339      SUBROUTINE DPCOAN(IC,IX)
1340C
1341C     PURPOSE--CONVERT IC = ONE OF THE 128 ASCII CHARACTERS
1342C                INTO ITS CORRESPONDING NUMERIC
1343C              EQUIVALENT (0 TO 127).
1344C              FOR EXAMPLE, NULL         MAPS INTO 0
1345C                           ESCAPE       MAPS INTO 27
1346C                           1            MAPS INTO 49
1347C                           UPPER CASE A MAPS INTO 65
1348C                           LOWER CASE A MAPS INTO 97
1349C                           DT           MAPS INTO 127
1350C
1351C     NOTE--THIS SUBROUTINE MIMICS THE USUAL   ICHAR(.)
1352C           FUNCTION ON MOST COMPUTERS.
1353C     NOTE--SOME COMPUTERS (E.G., IBM EBCDIC, CDC NOS-2, AND
1354C           PRIME) YIELD DIFFERENT VALUES FROM THE USUAL
1355C           PRIME) HAVE    ICHAR(.)   FUNCTIONS WHICH
1356C           YIELD DIFFERENCT VALUES FROM THE USUAL 0 TO 127.
1357C           IN SUCH CASE (AND IN ALL CASES),
1358C           THIS SUBROUTINE WILL NEVERTHELESS YIELD VALUES
1359C           YIELD VALUES WHICH ARE IN THE 0 TO 127 RANGE.
1360C           THUS EVEN FOR IBM EBCDIC COMPUTERS (FOR EXAMPLE),
1361C           IF THIS SUBROUTINE RECEIVES AN    UPPER CASE A    AS INPUT,
1362C           IT WILL RETURN A    65   AS OUTPUT.
1363C
1364C     WRITTEN BY--JAMES J. FILLIBEN
1365C     LANGUAGE--ANSI FORTRAN (1977)
1366C     ORIGINAL VERSION--NOVEMBER  1986.
1367C     UPDATED         --JANUARY   1989.  DATA STMT. BEFORE COMMON STMT. (ALAN)
1368C     UPDATED         --JULY      1993.  AVOID CALL DO DPWRST() &
1369C                                        AND CHANGE ICOUT BACK TO IPR
1370C                                        TO AVOID INFINITE LOOP RECURSION
1371C                                        BETWEEN DPWRST AND DPCOAN
1372C
1373C------------------------------------------------------------------------------
1374C
1375      CHARACTER*1 IC
1376C
1377      CHARACTER*4 IBUGCO
1378      CHARACTER*4 ISUBRO
1379      CHARACTER*4 IERROR
1380C
1381      CHARACTER*4 ISUBN1
1382      CHARACTER*4 ISUBN2
1383C
1384C
1385C-----COMMON------------------------------------------------
1386C
1387      INCLUDE 'DPCOHO.INC'
1388C
1389C-----COMMON VARIABLES (GENERAL)--------------------------------------
1390C
1391      INCLUDE 'DPCOP2.INC'
1392C
1393      DIMENSION IBMTAB(256)
1394      DIMENSION ICYTAB(64)
1395C
1396C-----DATA STATEMENTS-------------------------------------------------
1397C
1398C     DATA STATEMENTS FOR IBM EBCDIC COMPUTERS
1399C
1400      DATA IBMTAB(  1) /  1/
1401      DATA IBMTAB(  2) /  2/
1402      DATA IBMTAB(  3) /  3/
1403      DATA IBMTAB(  4) /-99/
1404      DATA IBMTAB(  5) /  9/
1405      DATA IBMTAB(  6) /-99/
1406      DATA IBMTAB(  7) /-99/
1407      DATA IBMTAB(  8) /-99/
1408      DATA IBMTAB(  9) /-99/
1409      DATA IBMTAB( 10) /-99/
1410      DATA IBMTAB( 11) / 11/
1411      DATA IBMTAB( 12) / 12/
1412      DATA IBMTAB( 13) / 13/
1413      DATA IBMTAB( 14) / 14/
1414      DATA IBMTAB( 15) / 15/
1415      DATA IBMTAB( 16) / 16/
1416      DATA IBMTAB( 17) / 17/
1417      DATA IBMTAB( 18) / 18/
1418      DATA IBMTAB( 19) / 19/
1419      DATA IBMTAB( 20) /-99/
1420      DATA IBMTAB( 21) /-99/
1421      DATA IBMTAB( 22) /  8/
1422      DATA IBMTAB( 23) /-99/
1423      DATA IBMTAB( 24) / 24/
1424      DATA IBMTAB( 25) / 25/
1425      DATA IBMTAB( 26) /-99/
1426      DATA IBMTAB( 27) /-99/
1427      DATA IBMTAB( 28) / 28/
1428      DATA IBMTAB( 29) / 29/
1429      DATA IBMTAB( 30) / 30/
1430      DATA IBMTAB( 31) / 31/
1431      DATA IBMTAB( 32) /-99/
1432      DATA IBMTAB( 33) /-99/
1433      DATA IBMTAB( 34) /-99/
1434      DATA IBMTAB( 35) /-99/
1435      DATA IBMTAB( 36) /-99/
1436      DATA IBMTAB( 37) / 10/
1437      DATA IBMTAB( 38) / 23/
1438      DATA IBMTAB( 39) / 27/
1439      DATA IBMTAB( 40) /-99/
1440      DATA IBMTAB( 41) /-99/
1441      DATA IBMTAB( 42) /-99/
1442      DATA IBMTAB( 43) /-99/
1443      DATA IBMTAB( 44) /-99/
1444      DATA IBMTAB( 45) /  5/
1445      DATA IBMTAB( 46) /  6/
1446      DATA IBMTAB( 47) /  7/
1447      DATA IBMTAB( 48) /-99/
1448      DATA IBMTAB( 49) /-99/
1449      DATA IBMTAB( 50) / 22/
1450      DATA IBMTAB( 51) /-99/
1451      DATA IBMTAB( 52) /-99/
1452      DATA IBMTAB( 53) /-99/
1453      DATA IBMTAB( 54) /-99/
1454      DATA IBMTAB( 55) /  4/
1455      DATA IBMTAB( 56) /-99/
1456      DATA IBMTAB( 57) /-99/
1457      DATA IBMTAB( 58) /-99/
1458      DATA IBMTAB( 59) /-99/
1459      DATA IBMTAB( 60) / 20/
1460      DATA IBMTAB( 61) / 21/
1461      DATA IBMTAB( 62) /-99/
1462      DATA IBMTAB( 63) / 26/
1463      DATA IBMTAB( 64) / 32/
1464      DATA IBMTAB( 65) /-99/
1465      DATA IBMTAB( 66) /-99/
1466      DATA IBMTAB( 67) /-99/
1467      DATA IBMTAB( 68) /-99/
1468      DATA IBMTAB( 69) /-99/
1469      DATA IBMTAB( 70) /-99/
1470      DATA IBMTAB( 71) /-99/
1471      DATA IBMTAB( 72) /-99/
1472      DATA IBMTAB( 73) /-99/
1473      DATA IBMTAB( 74) /-99/
1474      DATA IBMTAB( 75) / 46/
1475      DATA IBMTAB( 76) / 60/
1476      DATA IBMTAB( 77) / 40/
1477      DATA IBMTAB( 78) / 43/
1478      DATA IBMTAB( 79) /124/
1479      DATA IBMTAB( 80) / 38/
1480      DATA IBMTAB( 81) /-99/
1481      DATA IBMTAB( 82) /-99/
1482      DATA IBMTAB( 83) /-99/
1483      DATA IBMTAB( 84) /-99/
1484      DATA IBMTAB( 85) /-99/
1485      DATA IBMTAB( 86) /-99/
1486      DATA IBMTAB( 87) /-99/
1487      DATA IBMTAB( 88) /-99/
1488      DATA IBMTAB( 89) /-99/
1489      DATA IBMTAB( 90) / 33/
1490      DATA IBMTAB( 91) / 36/
1491      DATA IBMTAB( 92) / 42/
1492      DATA IBMTAB( 93) / 41/
1493      DATA IBMTAB( 94) / 59/
1494      DATA IBMTAB( 95) / 94/
1495      DATA IBMTAB( 96) / 45/
1496      DATA IBMTAB( 97) / 47/
1497      DATA IBMTAB( 98) /-99/
1498      DATA IBMTAB( 99) /-99/
1499      DATA IBMTAB(100) /-99/
1500      DATA IBMTAB(101) /-99/
1501      DATA IBMTAB(102) /-99/
1502      DATA IBMTAB(103) /-99/
1503      DATA IBMTAB(104) /-99/
1504      DATA IBMTAB(105) /-99/
1505      DATA IBMTAB(106) /-99/
1506      DATA IBMTAB(107) / 44/
1507      DATA IBMTAB(108) / 37/
1508      DATA IBMTAB(109) / 95/
1509      DATA IBMTAB(110) / 62/
1510      DATA IBMTAB(111) / 63/
1511      DATA IBMTAB(112) /-99/
1512      DATA IBMTAB(113) /-99/
1513      DATA IBMTAB(114) /-99/
1514      DATA IBMTAB(115) /-99/
1515      DATA IBMTAB(116) /-99/
1516      DATA IBMTAB(117) /-99/
1517      DATA IBMTAB(118) /-99/
1518      DATA IBMTAB(119) /-99/
1519      DATA IBMTAB(120) /-99/
1520      DATA IBMTAB(121) / 96/
1521      DATA IBMTAB(122) / 58/
1522      DATA IBMTAB(123) / 35/
1523      DATA IBMTAB(124) / 64/
1524      DATA IBMTAB(125) / 39/
1525      DATA IBMTAB(126) / 61/
1526      DATA IBMTAB(127) / 34/
1527      DATA IBMTAB(128) /-99/
1528      DATA IBMTAB(129) / 97/
1529      DATA IBMTAB(130) / 98/
1530      DATA IBMTAB(131) / 99/
1531      DATA IBMTAB(132) /100/
1532      DATA IBMTAB(133) /101/
1533      DATA IBMTAB(134) /102/
1534      DATA IBMTAB(135) /103/
1535      DATA IBMTAB(136) /104/
1536      DATA IBMTAB(137) /105/
1537      DATA IBMTAB(138) /-99/
1538      DATA IBMTAB(139) /-99/
1539      DATA IBMTAB(140) /-99/
1540      DATA IBMTAB(141) /-99/
1541      DATA IBMTAB(142) /-99/
1542      DATA IBMTAB(143) /-99/
1543      DATA IBMTAB(144) /-99/
1544      DATA IBMTAB(145) /106/
1545      DATA IBMTAB(146) /107/
1546      DATA IBMTAB(147) /108/
1547      DATA IBMTAB(148) /109/
1548      DATA IBMTAB(149) /110/
1549      DATA IBMTAB(150) /111/
1550      DATA IBMTAB(151) /112/
1551      DATA IBMTAB(152) /113/
1552      DATA IBMTAB(153) /114/
1553      DATA IBMTAB(154) /-99/
1554      DATA IBMTAB(155) /-99/
1555      DATA IBMTAB(156) /-99/
1556      DATA IBMTAB(157) /-99/
1557      DATA IBMTAB(158) /-99/
1558      DATA IBMTAB(159) /-99/
1559      DATA IBMTAB(160) /-99/
1560      DATA IBMTAB(161) /-99/
1561      DATA IBMTAB(162) /115/
1562      DATA IBMTAB(163) /116/
1563      DATA IBMTAB(164) /117/
1564      DATA IBMTAB(165) /118/
1565      DATA IBMTAB(166) /119/
1566      DATA IBMTAB(167) /120/
1567      DATA IBMTAB(168) /121/
1568      DATA IBMTAB(169) /122/
1569      DATA IBMTAB(170) /-99/
1570      DATA IBMTAB(171) /-99/
1571      DATA IBMTAB(172) /-99/
1572      DATA IBMTAB(173) /-99/
1573      DATA IBMTAB(174) /-99/
1574      DATA IBMTAB(175) /-99/
1575      DATA IBMTAB(176) /-99/
1576      DATA IBMTAB(177) /-99/
1577      DATA IBMTAB(178) /-99/
1578      DATA IBMTAB(179) /-99/
1579      DATA IBMTAB(180) /-99/
1580      DATA IBMTAB(181) /-99/
1581      DATA IBMTAB(182) /-99/
1582      DATA IBMTAB(183) /-99/
1583      DATA IBMTAB(184) /-99/
1584      DATA IBMTAB(185) /-99/
1585      DATA IBMTAB(186) /-99/
1586      DATA IBMTAB(187) /-99/
1587      DATA IBMTAB(188) /-99/
1588      DATA IBMTAB(189) /-99/
1589      DATA IBMTAB(190) /-99/
1590      DATA IBMTAB(191) /-99/
1591      DATA IBMTAB(192) /-99/
1592      DATA IBMTAB(193) / 65/
1593      DATA IBMTAB(194) / 66/
1594      DATA IBMTAB(195) / 67/
1595      DATA IBMTAB(196) / 68/
1596      DATA IBMTAB(197) / 69/
1597      DATA IBMTAB(198) / 70/
1598      DATA IBMTAB(199) / 71/
1599      DATA IBMTAB(200) / 72/
1600      DATA IBMTAB(201) / 73/
1601      DATA IBMTAB(202) /-99/
1602      DATA IBMTAB(203) /-99/
1603      DATA IBMTAB(204) /-99/
1604      DATA IBMTAB(205) /-99/
1605      DATA IBMTAB(206) /-99/
1606      DATA IBMTAB(207) /-99/
1607      DATA IBMTAB(208) /-99/
1608      DATA IBMTAB(209) / 74/
1609      DATA IBMTAB(210) / 75/
1610      DATA IBMTAB(211) / 76/
1611      DATA IBMTAB(212) / 77/
1612      DATA IBMTAB(213) / 78/
1613      DATA IBMTAB(214) / 79/
1614      DATA IBMTAB(215) / 80/
1615      DATA IBMTAB(216) / 81/
1616      DATA IBMTAB(217) / 82/
1617      DATA IBMTAB(218) /-99/
1618      DATA IBMTAB(219) /-99/
1619      DATA IBMTAB(220) /-99/
1620      DATA IBMTAB(221) /-99/
1621      DATA IBMTAB(222) /-99/
1622      DATA IBMTAB(223) /-99/
1623      DATA IBMTAB(224) / 92/
1624      DATA IBMTAB(225) /-99/
1625      DATA IBMTAB(226) / 83/
1626      DATA IBMTAB(227) / 84/
1627      DATA IBMTAB(228) / 85/
1628      DATA IBMTAB(229) / 86/
1629      DATA IBMTAB(230) / 87/
1630      DATA IBMTAB(231) / 88/
1631      DATA IBMTAB(232) / 89/
1632      DATA IBMTAB(233) / 90/
1633      DATA IBMTAB(234) /-99/
1634      DATA IBMTAB(235) /-99/
1635      DATA IBMTAB(236) /-99/
1636      DATA IBMTAB(237) /-99/
1637      DATA IBMTAB(238) /-99/
1638      DATA IBMTAB(239) /-99/
1639      DATA IBMTAB(240) / 48/
1640      DATA IBMTAB(241) / 49/
1641      DATA IBMTAB(242) / 50/
1642      DATA IBMTAB(243) / 51/
1643      DATA IBMTAB(244) / 52/
1644      DATA IBMTAB(245) / 53/
1645      DATA IBMTAB(246) / 54/
1646      DATA IBMTAB(247) / 55/
1647      DATA IBMTAB(248) / 56/
1648      DATA IBMTAB(249) / 57/
1649      DATA IBMTAB(250) /-99/
1650      DATA IBMTAB(251) /-99/
1651      DATA IBMTAB(252) /-99/
1652      DATA IBMTAB(253) /-99/
1653      DATA IBMTAB(254) /-99/
1654      DATA IBMTAB(255) /-99/
1655      DATA IBMTAB(256) /  0/
1656C
1657C     DATA STATEMENTS FOR CDC NOS-2 COMPUTERS
1658C     REFERENCE--FORTRAN 5 REFERENCE MANUAL, PAGE 7-31
1659C
1660      DATA ICYTAB(  1) / 33/
1661      DATA ICYTAB(  2) / 34/
1662      DATA ICYTAB(  3) / 35/
1663      DATA ICYTAB(  4) / 36/
1664      DATA ICYTAB(  5) / 37/
1665      DATA ICYTAB(  6) / 38/
1666      DATA ICYTAB(  7) / 39/
1667      DATA ICYTAB(  8) / 40/
1668      DATA ICYTAB(  9) / 41/
1669      DATA ICYTAB( 10) / 42/
1670      DATA ICYTAB( 11) / 43/
1671      DATA ICYTAB( 12) / 44/
1672      DATA ICYTAB( 13) / 45/
1673      DATA ICYTAB( 14) / 46/
1674      DATA ICYTAB( 15) / 47/
1675      DATA ICYTAB( 16) / 48/
1676      DATA ICYTAB( 17) / 49/
1677      DATA ICYTAB( 18) / 50/
1678      DATA ICYTAB( 19) / 51/
1679      DATA ICYTAB( 20) / 52/
1680      DATA ICYTAB( 21) / 53/
1681      DATA ICYTAB( 22) / 54/
1682      DATA ICYTAB( 23) / 55/
1683      DATA ICYTAB( 24) / 56/
1684      DATA ICYTAB( 25) / 57/
1685      DATA ICYTAB( 26) / 58/
1686      DATA ICYTAB( 27) / 59/
1687      DATA ICYTAB( 28) / 60/
1688      DATA ICYTAB( 29) / 61/
1689      DATA ICYTAB( 30) / 62/
1690      DATA ICYTAB( 31) / 63/
1691      DATA ICYTAB( 32) / 64/
1692      DATA ICYTAB( 33) / 65/
1693      DATA ICYTAB( 34) / 66/
1694      DATA ICYTAB( 35) / 67/
1695      DATA ICYTAB( 36) / 68/
1696      DATA ICYTAB( 37) / 69/
1697      DATA ICYTAB( 38) / 70/
1698      DATA ICYTAB( 39) / 71/
1699      DATA ICYTAB( 40) / 72/
1700      DATA ICYTAB( 41) / 73/
1701      DATA ICYTAB( 42) / 74/
1702      DATA ICYTAB( 43) / 75/
1703      DATA ICYTAB( 44) / 76/
1704      DATA ICYTAB( 45) / 77/
1705      DATA ICYTAB( 46) / 78/
1706      DATA ICYTAB( 47) / 79/
1707      DATA ICYTAB( 48) / 80/
1708      DATA ICYTAB( 49) / 81/
1709      DATA ICYTAB( 50) / 82/
1710      DATA ICYTAB( 51) / 83/
1711      DATA ICYTAB( 52) / 84/
1712      DATA ICYTAB( 53) / 85/
1713      DATA ICYTAB( 54) / 86/
1714      DATA ICYTAB( 55) / 87/
1715      DATA ICYTAB( 56) / 88/
1716      DATA ICYTAB( 57) / 89/
1717      DATA ICYTAB( 58) / 90/
1718      DATA ICYTAB( 59) / 91/
1719      DATA ICYTAB( 60) / 92/
1720      DATA ICYTAB( 61) / 93/
1721      DATA ICYTAB( 62) / 94/
1722      DATA ICYTAB( 63) / 95/
1723      DATA ICYTAB( 64) / 32/
1724C
1725C-----START POINT-----------------------------------------------------
1726C
1727      IBUGCO='OFF'
1728      ISUBRO='JUNK'
1729      IERROR='NO'
1730C
1731      ISUBN1='DPCO'
1732      ISUBN2='AN  '
1733C
1734      IXTEMP=(-999)
1735      IX=(-999)
1736C
1737      IF(IBUGCO.EQ.'OFF'.AND.ISUBRO.NE.'COAN')GOTO90
1738      WRITE(IPR,999)
1739  999 FORMAT(1X)
1740CCCCC CALL DPWRST('XXX','BUG ')
1741      WRITE(IPR,51)
1742   51 FORMAT('***** AT THE BEGINNING OF DPCOAN--')
1743CCCCC CALL DPWRST('XXX','BUG ')
1744      WRITE(IPR,52)IBUGCO,ISUBRO,IERROR
1745   52 FORMAT('IBUGCO,ISUBRO,IERROR = ',A4,2X,A4,2X,A4)
1746CCCCC CALL DPWRST('XXX','BUG ')
1747      WRITE(IPR,53)IHOST1
1748   53 FORMAT('IHOST1 = ',A4)
1749CCCCC CALL DPWRST('XXX','BUG ')
1750      WRITE(IPR,54)IC,IXTEMP,IX
1751   54 FORMAT('IC,IXTEMP,IX = ',A1,I8,I8)
1752CCCCC CALL DPWRST('XXX','BUG ')
1753   90 CONTINUE
1754C
1755C               **************************
1756C               **  STEP 10--           **
1757C               **  BRANCH TO THE       **
1758C               **  APPROPRIATE CASE    **
1759C               **************************
1760C
1761C     NOTE--IF YOU ARE RUNNING ON A NON-PRIME, NON-IBM-EBCDIC,
1762C           AND A NON-CDC-NOS-2, THEN THE FOLLOWING 4 BRANCH
1763C           LINES MAY BE COMMENTED OUT
1764C           SO AS TO SPEED UP EXECUTION.
1765C
1766      IF(IHOST1.EQ.'PRIM')GOTO1200
1767      IF(IHOST1.EQ.'IBM')GOTO1300
1768      IF(IHOST1.EQ.'CDC')GOTO1400
1769      GOTO1100
1770C
1771C-----TREAT THE GENERAL CASE------------------------------------------
1772C
1773 1100 CONTINUE
1774      IXTEMP=ICHAR(IC)
1775      IX=IXTEMP
1776      GOTO9000
1777C
1778C-----TREAT THE PRIME CASE------------------------------------------
1779C
1780 1200 CONTINUE
1781      IXTEMP=ICHAR(IC)
1782      IX=IXTEMP-128
1783      GOTO9000
1784C
1785C-----TREAT THE IBM EBCDIC CASE------------------------------------------
1786C
1787 1300 CONTINUE
1788      IXTEMP=ICHAR(IC)
1789      IF(IXTEMP.EQ.0)IXTEMP=256
1790      IF(IXTEMP.LT.1)GOTO8000
1791      IF(IXTEMP.GT.256)GOTO8000
1792      IX=IBMTAB(IXTEMP)
1793      GOTO9000
1794C
1795C-----TREAT THE CDC NOS-2 CASE------------------------------------------
1796C
1797 1400 CONTINUE
1798      IXTEMP=ICHAR(IC)
1799      IF(IXTEMP.EQ.0)IXTEMP=64
1800      IF(IXTEMP.LT.1)GOTO8000
1801      IF(IXTEMP.GT.64)GOTO8000
1802      IX=ICYTAB(IXTEMP)
1803      GOTO9000
1804C
1805C               *****************************
1806C               **  STEP 80--              **
1807C               **  IF AN ERROR EXISTS,    **
1808C               **  WRITE AN ERROR MESSAGE **
1809C               *****************************
1810C
1811 8000 CONTINUE
1812C
1813      WRITE(IPR,999)
1814CCCCC CALL DPWRST('XXX','BUG ')
1815      WRITE(IPR,8011)
1816 8011 FORMAT('***** ERROR IN DPCOAN--')
1817CCCCC CALL DPWRST('XXX','BUG ')
1818      WRITE(IPR,8012)
1819 8012 FORMAT('      ILLEGAL NUMERIC OUTPUT ARGUMENT')
1820CCCCC CALL DPWRST('XXX','BUG ')
1821      WRITE(IPR,8013)
1822 8013 FORMAT('      FROM    ICHAR(.)   FUNCTION')
1823CCCCC CALL DPWRST('XXX','BUG ')
1824      WRITE(IPR,8014)IXTEMP
1825 8014 FORMAT('      THE ARGUMENT IXTEMP = ',I8)
1826CCCCC CALL DPWRST('XXX','BUG ')
1827      WRITE(IPR,8015)IC
1828 8015 FORMAT('IC = ',A1)
1829CCCCC CALL DPWRST('XXX','BUG ')
1830      WRITE(IPR,8016)IHOST1
1831 8016 FORMAT('IHOST1 = ',A4)
1832CCCCC CALL DPWRST('XXX','BUG ')
1833      IERROR='YES'
1834      GOTO9000
1835C
1836C               *****************
1837C               **  STEP 90--  **
1838C               **  EXIT       **
1839C               *****************
1840C
1841 9000 CONTINUE
1842      IF(IBUGCO.EQ.'OFF'.AND.ISUBRO.NE.'COAN')GOTO9090
1843      WRITE(IPR,999)
1844CCCCC CALL DPWRST('XXX','BUG ')
1845      WRITE(IPR,9011)
1846 9011 FORMAT('***** AT THE END       OF DPCOAN--')
1847CCCCC CALL DPWRST('XXX','BUG ')
1848      WRITE(IPR,9012)IBUGCO,ISUBRO,IERROR
1849 9012 FORMAT('IBUGCO,ISUBRO,IERROR = ',A4,2X,A4,2X,A4)
1850CCCCC CALL DPWRST('XXX','BUG ')
1851      WRITE(IPR,9013)IHOST1
1852 9013 FORMAT('IHOST1 = ',A4)
1853CCCCC CALL DPWRST('XXX','BUG ')
1854      WRITE(IPR,9014)IC,IXTEMP,IX
1855 9014 FORMAT('IC,IXTEMP,IX = ',A1,I8,I8)
1856CCCCC CALL DPWRST('XXX','BUG ')
1857 9090 CONTINUE
1858C
1859      RETURN
1860      END
1861      SUBROUTINE DPCONA(IX,IC)
1862C
1863C     PURPOSE--CONVERT IX = 0 TO 127 INTO
1864C              THE CORRESPONDING ASCII CHARACTER.
1865C              FOR EXAMPLE, 0            MAPS INTO NULL
1866C                           27           MAPS INTO ESCAPE
1867C                           49           MAPS INTO 1
1868C                           65           MAPS INTO UPPER CASE A
1869C                           97           MAPS INTO LOWER CASE A
1870C                           127          MAPS INTO DT
1871C
1872C     NOTE--THIS SUBROUTINE MIMICS THE USUAL   CHAR(.)
1873C           FUNCTION ON MOST COMPUTERS.
1874C     NOTE--SOME COMPUTERS (E.G., IBM EBCDIC, CDC NOS-2, AND
1875C           PRIME) HAVE    CHAR(.)   FUNCTIONS WHICH
1876C           HAVE DIFFERENT INPUT VALUES FROM THE USUAL 0 TO 127.
1877C           IN SUCH CASE (AND IN ALL CASES),
1878C           THIS SUBROUTINE WILL NEVERTHELESS YIELD CHARACTERS
1879C           CORRESPONDING TO THE 0 TO 127 RANGE.
1880C           THUS EVEN FOR IBM EBCDIC COMPUTERS (FOR EXAMPLE),
1881C           IF THIS SUBROUTINE RECEIVES A    65    AS INPUT,
1882C           IT WILL RETURN AN    UPPER CASE A   AS OUTPUT.
1883C
1884C     WRITTEN BY--JAMES J. FILLIBEN
1885C     LANGUAGE--ANSI FORTRAN (1977)
1886C     ORIGINAL VERSION--NOVEMBER  1986.
1887C     UPDATED         --JANUARY   1989.  DATA STMT. BEFORE COMMON STMT. (ALAN)
1888C
1889C------------------------------------------------------------------------------
1890C
1891      CHARACTER*1 IC
1892C
1893      CHARACTER*4 IBUGCO
1894      CHARACTER*4 ISUBRO
1895      CHARACTER*4 IERROR
1896C
1897      CHARACTER*4 ISUBN1
1898      CHARACTER*4 ISUBN2
1899C
1900C-----COMMON------------------------------------------------
1901C
1902      INCLUDE 'DPCOHO.INC'
1903C
1904C-----COMMON VARIABLES (GENERAL)--------------------------------------
1905C
1906      INCLUDE 'DPCOP2.INC'
1907C
1908      DIMENSION IBMTAB(128)
1909      DIMENSION ICYTAB(128)
1910C
1911C-----DATA STATEMENTS-------------------------------------------------
1912C
1913C     DATA STATEMENTS FOR IBM EBCDIC COMPUTERS
1914C
1915      DATA IBMTAB(  1) /  1/
1916      DATA IBMTAB(  2) /  2/
1917      DATA IBMTAB(  3) /  3/
1918      DATA IBMTAB(  4) / 55/
1919      DATA IBMTAB(  5) / 45/
1920      DATA IBMTAB(  6) / 46/
1921      DATA IBMTAB(  7) / 47/
1922      DATA IBMTAB(  8) / 22/
1923      DATA IBMTAB(  9) /  5/
1924      DATA IBMTAB( 10) / 37/
1925      DATA IBMTAB( 11) / 11/
1926      DATA IBMTAB( 12) / 12/
1927      DATA IBMTAB( 13) / 13/
1928      DATA IBMTAB( 14) / 14/
1929      DATA IBMTAB( 15) / 15/
1930      DATA IBMTAB( 16) / 16/
1931      DATA IBMTAB( 17) / 17/
1932      DATA IBMTAB( 18) / 18/
1933      DATA IBMTAB( 19) / 19/
1934      DATA IBMTAB( 20) / 60/
1935      DATA IBMTAB( 21) / 61/
1936      DATA IBMTAB( 22) / 50/
1937      DATA IBMTAB( 23) / 38/
1938      DATA IBMTAB( 24) / 24/
1939      DATA IBMTAB( 25) / 25/
1940      DATA IBMTAB( 26) / 63/
1941      DATA IBMTAB( 27) / 39/
1942      DATA IBMTAB( 28) / 28/
1943      DATA IBMTAB( 29) / 29/
1944      DATA IBMTAB( 30) / 30/
1945      DATA IBMTAB( 31) / 31/
1946      DATA IBMTAB( 32) / 64/
1947      DATA IBMTAB( 33) / 90/
1948      DATA IBMTAB( 34) /127/
1949      DATA IBMTAB( 35) /123/
1950      DATA IBMTAB( 36) / 91/
1951      DATA IBMTAB( 37) /108/
1952      DATA IBMTAB( 38) / 80/
1953      DATA IBMTAB( 39) /125/
1954      DATA IBMTAB( 40) / 77/
1955      DATA IBMTAB( 41) / 93/
1956      DATA IBMTAB( 42) / 92/
1957      DATA IBMTAB( 43) / 78/
1958      DATA IBMTAB( 44) /107/
1959      DATA IBMTAB( 45) / 96/
1960      DATA IBMTAB( 46) / 75/
1961      DATA IBMTAB( 47) / 97/
1962      DATA IBMTAB( 48) /240/
1963      DATA IBMTAB( 49) /241/
1964      DATA IBMTAB( 50) /242/
1965      DATA IBMTAB( 51) /243/
1966      DATA IBMTAB( 52) /244/
1967      DATA IBMTAB( 53) /245/
1968      DATA IBMTAB( 54) /246/
1969      DATA IBMTAB( 55) /247/
1970      DATA IBMTAB( 56) /248/
1971      DATA IBMTAB( 57) /249/
1972      DATA IBMTAB( 58) /122/
1973      DATA IBMTAB( 59) / 94/
1974      DATA IBMTAB( 60) / 76/
1975      DATA IBMTAB( 61) /126/
1976      DATA IBMTAB( 62) /110/
1977      DATA IBMTAB( 63) /111/
1978      DATA IBMTAB( 64) /124/
1979      DATA IBMTAB( 65) /193/
1980      DATA IBMTAB( 66) /194/
1981      DATA IBMTAB( 67) /195/
1982      DATA IBMTAB( 68) /196/
1983      DATA IBMTAB( 69) /197/
1984      DATA IBMTAB( 70) /198/
1985      DATA IBMTAB( 71) /199/
1986      DATA IBMTAB( 72) /200/
1987      DATA IBMTAB( 73) /201/
1988      DATA IBMTAB( 74) /209/
1989      DATA IBMTAB( 75) /210/
1990      DATA IBMTAB( 76) /211/
1991      DATA IBMTAB( 77) /212/
1992      DATA IBMTAB( 78) /213/
1993      DATA IBMTAB( 79) /214/
1994      DATA IBMTAB( 80) /215/
1995      DATA IBMTAB( 81) /216/
1996      DATA IBMTAB( 82) /217/
1997      DATA IBMTAB( 83) /226/
1998      DATA IBMTAB( 84) /227/
1999      DATA IBMTAB( 85) /228/
2000      DATA IBMTAB( 86) /229/
2001      DATA IBMTAB( 87) /230/
2002      DATA IBMTAB( 88) /231/
2003      DATA IBMTAB( 89) /232/
2004      DATA IBMTAB( 90) /233/
2005      DATA IBMTAB( 91) /-99/
2006      DATA IBMTAB( 92) /224/
2007      DATA IBMTAB( 93) /-99/
2008      DATA IBMTAB( 94) / 95/
2009      DATA IBMTAB( 95) /109/
2010      DATA IBMTAB( 96) /121/
2011      DATA IBMTAB( 97) /129/
2012      DATA IBMTAB( 98) /130/
2013      DATA IBMTAB( 99) /131/
2014      DATA IBMTAB(100) /132/
2015      DATA IBMTAB(101) /133/
2016      DATA IBMTAB(102) /134/
2017      DATA IBMTAB(103) /135/
2018      DATA IBMTAB(104) /136/
2019      DATA IBMTAB(105) /137/
2020      DATA IBMTAB(106) /145/
2021      DATA IBMTAB(107) /146/
2022      DATA IBMTAB(108) /147/
2023      DATA IBMTAB(109) /148/
2024      DATA IBMTAB(110) /149/
2025      DATA IBMTAB(111) /150/
2026      DATA IBMTAB(112) /151/
2027      DATA IBMTAB(113) /152/
2028      DATA IBMTAB(114) /153/
2029      DATA IBMTAB(115) /162/
2030      DATA IBMTAB(116) /163/
2031      DATA IBMTAB(117) /164/
2032      DATA IBMTAB(118) /165/
2033      DATA IBMTAB(119) /166/
2034      DATA IBMTAB(120) /167/
2035      DATA IBMTAB(121) /168/
2036      DATA IBMTAB(122) /169/
2037      DATA IBMTAB(123) /-99/
2038      DATA IBMTAB(124) / 79/
2039      DATA IBMTAB(125) /-99/
2040      DATA IBMTAB(126) /-99/
2041      DATA IBMTAB(127) /-99/
2042      DATA IBMTAB(128) /  0/
2043C
2044C     DATA STATEMENTS FOR CDC NOS-2 COMPUTERS
2045C     REFERENCE--FORTRAN 5 REFERENCE MANUAL, PAGE 7-31
2046C
2047      DATA ICYTAB(  1) /-99/
2048      DATA ICYTAB(  2) /-99/
2049      DATA ICYTAB(  3) /-99/
2050      DATA ICYTAB(  4) /-99/
2051      DATA ICYTAB(  5) /-99/
2052      DATA ICYTAB(  6) /-99/
2053      DATA ICYTAB(  7) /-99/
2054      DATA ICYTAB(  8) /-99/
2055      DATA ICYTAB(  9) /-99/
2056      DATA ICYTAB( 10) /-99/
2057      DATA ICYTAB( 11) /-99/
2058      DATA ICYTAB( 12) /-99/
2059      DATA ICYTAB( 13) /-99/
2060      DATA ICYTAB( 14) /-99/
2061      DATA ICYTAB( 15) /-99/
2062      DATA ICYTAB( 16) /-99/
2063      DATA ICYTAB( 17) /-99/
2064      DATA ICYTAB( 18) /-99/
2065      DATA ICYTAB( 19) /-99/
2066      DATA ICYTAB( 20) /-99/
2067      DATA ICYTAB( 21) /-99/
2068      DATA ICYTAB( 22) /-99/
2069      DATA ICYTAB( 23) /-99/
2070      DATA ICYTAB( 24) /-99/
2071      DATA ICYTAB( 25) /-99/
2072      DATA ICYTAB( 26) /-99/
2073      DATA ICYTAB( 27) /-99/
2074      DATA ICYTAB( 28) /-99/
2075      DATA ICYTAB( 29) /-99/
2076      DATA ICYTAB( 30) /-99/
2077      DATA ICYTAB( 31) /-99/
2078      DATA ICYTAB( 32) /  0/
2079      DATA ICYTAB( 33) /  1/
2080      DATA ICYTAB( 34) /  2/
2081      DATA ICYTAB( 35) /  3/
2082      DATA ICYTAB( 36) /  4/
2083      DATA ICYTAB( 37) /  5/
2084      DATA ICYTAB( 38) /  6/
2085      DATA ICYTAB( 39) /  7/
2086      DATA ICYTAB( 40) /  8/
2087      DATA ICYTAB( 41) /  9/
2088      DATA ICYTAB( 42) / 10/
2089      DATA ICYTAB( 43) / 11/
2090      DATA ICYTAB( 44) / 12/
2091      DATA ICYTAB( 45) / 13/
2092      DATA ICYTAB( 46) / 14/
2093      DATA ICYTAB( 47) / 15/
2094      DATA ICYTAB( 48) / 16/
2095      DATA ICYTAB( 49) / 17/
2096      DATA ICYTAB( 50) / 18/
2097      DATA ICYTAB( 51) / 19/
2098      DATA ICYTAB( 52) / 20/
2099      DATA ICYTAB( 53) / 21/
2100      DATA ICYTAB( 54) / 22/
2101      DATA ICYTAB( 55) / 23/
2102      DATA ICYTAB( 56) / 24/
2103      DATA ICYTAB( 57) / 25/
2104      DATA ICYTAB( 58) / 26/
2105      DATA ICYTAB( 59) / 27/
2106      DATA ICYTAB( 60) / 28/
2107      DATA ICYTAB( 61) / 29/
2108      DATA ICYTAB( 62) / 30/
2109      DATA ICYTAB( 63) / 31/
2110      DATA ICYTAB( 64) / 32/
2111      DATA ICYTAB( 65) / 33/
2112      DATA ICYTAB( 66) / 34/
2113      DATA ICYTAB( 67) / 35/
2114      DATA ICYTAB( 68) / 36/
2115      DATA ICYTAB( 69) / 37/
2116      DATA ICYTAB( 70) / 38/
2117      DATA ICYTAB( 71) / 39/
2118      DATA ICYTAB( 72) / 40/
2119      DATA ICYTAB( 73) / 41/
2120      DATA ICYTAB( 74) / 42/
2121      DATA ICYTAB( 75) / 43/
2122      DATA ICYTAB( 76) / 44/
2123      DATA ICYTAB( 77) / 45/
2124      DATA ICYTAB( 78) / 46/
2125      DATA ICYTAB( 79) / 47/
2126      DATA ICYTAB( 80) / 48/
2127      DATA ICYTAB( 81) / 49/
2128      DATA ICYTAB( 82) / 50/
2129      DATA ICYTAB( 83) / 51/
2130      DATA ICYTAB( 84) / 52/
2131      DATA ICYTAB( 85) / 53/
2132      DATA ICYTAB( 86) / 54/
2133      DATA ICYTAB( 87) / 55/
2134      DATA ICYTAB( 88) / 56/
2135      DATA ICYTAB( 89) / 57/
2136      DATA ICYTAB( 90) / 58/
2137      DATA ICYTAB( 91) / 59/
2138      DATA ICYTAB( 92) / 60/
2139      DATA ICYTAB( 93) / 61/
2140      DATA ICYTAB( 94) / 62/
2141      DATA ICYTAB( 95) / 63/
2142      DATA ICYTAB( 96) /-99/
2143      DATA ICYTAB( 97) /-99/
2144      DATA ICYTAB( 98) /-99/
2145      DATA ICYTAB( 99) /-99/
2146      DATA ICYTAB(100) /-99/
2147      DATA ICYTAB(101) /-99/
2148      DATA ICYTAB(102) /-99/
2149      DATA ICYTAB(103) /-99/
2150      DATA ICYTAB(104) /-99/
2151      DATA ICYTAB(105) /-99/
2152      DATA ICYTAB(106) /-99/
2153      DATA ICYTAB(107) /-99/
2154      DATA ICYTAB(108) /-99/
2155      DATA ICYTAB(109) /-99/
2156      DATA ICYTAB(110) /-99/
2157      DATA ICYTAB(111) /-99/
2158      DATA ICYTAB(112) /-99/
2159      DATA ICYTAB(113) /-99/
2160      DATA ICYTAB(114) /-99/
2161      DATA ICYTAB(115) /-99/
2162      DATA ICYTAB(116) /-99/
2163      DATA ICYTAB(117) /-99/
2164      DATA ICYTAB(118) /-99/
2165      DATA ICYTAB(119) /-99/
2166      DATA ICYTAB(120) /-99/
2167      DATA ICYTAB(121) /-99/
2168      DATA ICYTAB(122) /-99/
2169      DATA ICYTAB(123) /-99/
2170      DATA ICYTAB(124) /-99/
2171      DATA ICYTAB(125) /-99/
2172      DATA ICYTAB(126) /-99/
2173      DATA ICYTAB(127) /-99/
2174      DATA ICYTAB(128) /-99/
2175C
2176C-----START POINT-----------------------------------------------------
2177C
2178      IBUGCO='OFF'
2179      ISUBRO='JUNK'
2180      IERROR='NO'
2181C
2182      ISUBN1='DPCO'
2183      ISUBN2='NA  '
2184C
2185      IXTEMP=(-999)
2186      IXTEM2=(-999)
2187      IC='Z'
2188C
2189      IF(IBUGCO.EQ.'OFF'.AND.ISUBRO.NE.'CONA')GOTO90
2190      WRITE(ICOUT,999)
2191  999 FORMAT(1X)
2192      CALL DPWRST('XXX','BUG ')
2193      WRITE(ICOUT,51)
2194   51 FORMAT('***** AT THE BEGINNING OF DPCONA--')
2195      CALL DPWRST('XXX','BUG ')
2196      WRITE(ICOUT,52)IBUGCO,ISUBRO,IERROR
2197   52 FORMAT('IBUGCO,ISUBRO,IERROR = ',A4,2X,A4,2X,A4)
2198      CALL DPWRST('XXX','BUG ')
2199      WRITE(ICOUT,53)IHOST1
2200   53 FORMAT('IHOST1 = ',A4)
2201      CALL DPWRST('XXX','BUG ')
2202      WRITE(ICOUT,54)IX,IXTEMP,IXTEM2,IC
2203   54 FORMAT('IX,IXTEMP,IXTEM2,IC = ',3I8,2X,A1)
2204      CALL DPWRST('XXX','BUG ')
2205   90 CONTINUE
2206C
2207C               **************************
2208C               **  STEP 10--           **
2209C               **  BRANCH TO THE       **
2210C               **  APPROPRIATE CASE    **
2211C               **************************
2212C
2213C     NOTE--IF YOU ARE RUNNING ON A NON-PRIME, NON-IBM-EBCDIC,
2214C           AND A NON-CDC-NOS-2, THEN THE FOLLOWING 4 BRANCH
2215C           LINES MAY BE COMMENTED OUT
2216C           SO AS TO SPEED UP EXECUTION.
2217C
2218      IF(IHOST1.EQ.'PRIM')GOTO1200
2219      IF(IHOST1.EQ.'IBM')GOTO1300
2220      IF(IHOST1.EQ.'CDC')GOTO1400
2221      GOTO1100
2222C
2223C-----TREAT THE GENERAL CASE------------------------------------------
2224C
2225 1100 CONTINUE
2226      IXTEM2=IX
2227      IF(IXTEM2.LT.0)GOTO8000
2228      IF(IXTEM2.GT.127)GOTO8000
2229      IC=CHAR(IXTEM2)
2230      GOTO9000
2231C
2232C-----TREAT THE PRIME CASE------------------------------------------
2233C
2234 1200 CONTINUE
2235      IXTEM2=IX+128
2236      IF(IXTEM2.LT.0)GOTO8000
2237      IF(IXTEM2.GT.255)GOTO8000
2238      IC=CHAR(IXTEM2)
2239      GOTO9000
2240C
2241C-----TREAT THE IBM EBCDIC CASE------------------------------------------
2242C
2243 1300 CONTINUE
2244      IXTEMP=IX
2245      IF(IXTEMP.EQ.0)IXTEMP=128
2246      IXTEM2=IBMTAB(IXTEMP)
2247      IF(IXTEM2.LT.0)GOTO8000
2248      IF(IXTEM2.GT.255)GOTO8000
2249      IC=CHAR(IXTEM2)
2250      GOTO9000
2251C
2252C-----TREAT THE CDC NOS-2 CASE------------------------------------------
2253C     (NOTE THAT THE INCOMING IX SHOULD BE BETWEEN 32 AND 90)
2254C
2255 1400 CONTINUE
2256      IXTEMP=IX
2257      IF(IXTEMP.EQ.0)IXTEMP=128
2258      IXTEM2=ICYTAB(IXTEMP)
2259      IF(IXTEM2.LT.0)GOTO8000
2260      IF(IXTEM2.GT.63)GOTO8000
2261      IC=CHAR(IXTEM2)
2262      GOTO9000
2263C
2264C               *****************************
2265C               **  STEP 80--              **
2266C               **  IF AN ERROR EXISTS,    **
2267C               **  WRITE AN ERROR MESSAGE **
2268C               *****************************
2269C
2270 8000 CONTINUE
2271C
2272      WRITE(ICOUT,999)
2273      CALL DPWRST('XXX','BUG ')
2274      WRITE(ICOUT,8011)
2275 8011 FORMAT('***** ERROR IN DPCONA--')
2276      CALL DPWRST('XXX','BUG ')
2277      WRITE(ICOUT,8012)
2278 8012 FORMAT('      ILLEGAL NUMERIC INPUT ARGUMENT')
2279      CALL DPWRST('XXX','BUG ')
2280      WRITE(ICOUT,8013)
2281 8013 FORMAT('      FOR    CHAR(.)   FUNCTION')
2282      CALL DPWRST('XXX','BUG ')
2283      WRITE(ICOUT,8014)IXTEM2
2284 8014 FORMAT('      THE ARGUMENT IXTEM2 = ',I8)
2285      CALL DPWRST('XXX','BUG ')
2286      WRITE(ICOUT,8015)IX,IXTEMP
2287 8015 FORMAT('IX,IXTEMP = ',2I8)
2288      CALL DPWRST('XXX','BUG ')
2289      WRITE(ICOUT,8016)IHOST1
2290 8016 FORMAT('IHOST1 = ',A4)
2291      CALL DPWRST('XXX','BUG ')
2292      IERROR='YES'
2293      GOTO9000
2294C
2295C               *****************
2296C               **  STEP 90--  **
2297C               **  EXIT       **
2298C               *****************
2299C
2300 9000 CONTINUE
2301      IF(IBUGCO.EQ.'OFF'.AND.ISUBRO.NE.'CONA')GOTO9090
2302      WRITE(ICOUT,999)
2303      CALL DPWRST('XXX','BUG ')
2304      WRITE(ICOUT,9011)
2305 9011 FORMAT('***** AT THE END       OF DPCONA--')
2306      CALL DPWRST('XXX','BUG ')
2307      WRITE(ICOUT,9012)IBUGCO,ISUBRO,IERROR
2308 9012 FORMAT('IBUGCO,ISUBRO,IERROR = ',A4,2X,A4,2X,A4)
2309      CALL DPWRST('XXX','BUG ')
2310      WRITE(ICOUT,9013)IHOST1
2311 9013 FORMAT('IHOST1 = ',A4)
2312      CALL DPWRST('XXX','BUG ')
2313      WRITE(ICOUT,9014)IX,IXTEMP,IXTEM2,IC
2314 9014 FORMAT('IX,IXTEMP,IXTEM2,IC = ',3I8,2X,A1)
2315      CALL DPWRST('XXX','BUG ')
2316 9090 CONTINUE
2317C
2318      RETURN
2319      END
2320      SUBROUTINE DPCOPL(NPLOTV,NPLOTP,NS,ICASPL,IAND1,IAND2,
2321     1                  IANGLU,MAXNPP,
2322     1                  IBUGG2,IBUGG3,IBUGQ,ISUBRO,IFOUND,IERROR)
2323C
2324C     PURPOSE--FORM A CONTOUR PLOT.
2325C
2326C     EXAMPLE--CONTOUR PLOT Z X Y Z0
2327C     WRITTEN BY--JAMES J. FILLIBEN
2328C                 STATISTICAL ENGINEERING DIVISION
2329C                 INFORMATION TECHNOLOGY LABORATORY
2330C                 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY
2331C                 GAITHERSBURG, MD 20899-8980
2332C                 PHONE--301-975-2855
2333C     NOTE--DATAPLOT IS A REGISTERED TRADEMARK
2334C           OF THE NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY.
2335C     LANGUAGE--ANSI FORTRAN (1977)
2336C     VERSION NUMBER--87/5
2337C     ORIGINAL VERSION--MAY       1987.
2338C     UPDATED         --JANUARY   1989.  MORE CHANGES TO STANDARD FORTRAN 77--
2339C                                        BYTE TO CHARACTER*1,
2340C     UPDATED         --JULY      1989.  CORRECT BACKWARDS PLOT
2341C     UPDATED         --JUNE      1990. TEMPORARY ARRAYS TO GARBAGE COMMON
2342C     UPDATED         --JULY      1990. COLR ARRAY MADE INTEGER
2343C     UPDATED         --APRIL     1992. DEFINE MINN2
2344C     UPDATED         --FEBRUARY  2011. USE DPPARS, DPPAR5
2345C
2346C-----CHARACTER STATEMENTS FOR NON-COMMON VARIABLES-------------------
2347C
2348      CHARACTER*4 ICASPL
2349      CHARACTER*4 IAND1
2350      CHARACTER*4 IAND2
2351      CHARACTER*4 IANGLU
2352      CHARACTER*4 IBUGG2
2353      CHARACTER*4 IBUGG3
2354      CHARACTER*4 IBUGQ
2355      CHARACTER*4 ISUBRO
2356      CHARACTER*4 IFOUND
2357      CHARACTER*4 IERROR
2358C
2359      CHARACTER*4 IWRITE
2360C
2361      CHARACTER*4 ISUBN1
2362      CHARACTER*4 ISUBN2
2363      CHARACTER*4 ISTEPN
2364C
2365      CHARACTER*4 ICASE
2366      CHARACTER*40 INAME
2367      PARAMETER (MAXSPN=30)
2368      CHARACTER*4 IVARN1(MAXSPN)
2369      CHARACTER*4 IVARN2(MAXSPN)
2370      CHARACTER*4 IVARTY(MAXSPN)
2371      REAL PVAR(MAXSPN)
2372      INTEGER ILIS(MAXSPN)
2373      INTEGER NRIGHT(MAXSPN)
2374      INTEGER ICOLR(MAXSPN)
2375C
2376C-----COMMON----------------------------------------------------------
2377C
2378      INCLUDE 'DPCOPA.INC'
2379      INCLUDE 'DPCOCP.INC'
2380      INCLUDE 'DPCOHK.INC'
2381      INCLUDE 'DPCODA.INC'
2382C
2383C---------------------------------------------------------------------
2384C
2385CCCCC THE FOLLOWING LINE WAS ADDED JULY 1990
2386      INTEGER COLR
2387C
2388C  JANUARY, 1989: MAKE BOX A CHARACTER VARIABLE
2389CCCCC BYTE BOX                           JANUARY 1989
2390      CHARACTER*1 BOX
2391C
2392      DIMENSION ZMAT(MAXIMX,MAXJMX)
2393CCCCC DIMENSION X(MAXIMX)
2394CCCCC DIMENSION Y(MAXJMX)
2395CCCCC DIMENSION CNV(MAXNCN)
2396      DIMENSION BOX(4,MAXIMX,MAXJMX)
2397      DIMENSION WLN(MAXNCN)
2398      DIMENSION IDSH(MAXNCN)
2399      DIMENSION COLR(MAXNCN+1)
2400      DIMENSION LBL(MAXNCN)
2401C
2402      DIMENSION Y1(MAXOBV)
2403      DIMENSION Y2(MAXOBV)
2404      DIMENSION Y3(MAXOBV)
2405      DIMENSION Y4(MAXOBV)
2406      DIMENSION XD(MAXOBV)
2407      DIMENSION YD(MAXOBV)
2408CCCCC FOLLOWING LINES ADDED JUNE, 1990
2409      INCLUDE 'DPCOZZ.INC'
2410      EQUIVALENCE (GARBAG(IGARB1),Y1(1))
2411      EQUIVALENCE (GARBAG(IGARB2),Y2(1))
2412      EQUIVALENCE (GARBAG(IGARB3),Y3(1))
2413      EQUIVALENCE (GARBAG(IGARB4),Y4(1))
2414      EQUIVALENCE (GARBAG(IGARB5),XD(1))
2415      EQUIVALENCE (GARBAG(IGARB6),YD(1))
2416      EQUIVALENCE (GARBAG(IGARB7),ZMAT(1,1))
2417      EQUIVALENCE (GARBAG(IGARB8),BOX(1,1,1))
2418      EQUIVALENCE (GARBAG(IGARB9),WLN(1))
2419      EQUIVALENCE (GARBAG(IGARB9+MAXNCN),COLR(1))
2420CCCCC END CHANGE
2421C
2422C-----COMMON VARIABLES (GENERAL)--------------------------------------
2423C
2424      INCLUDE 'DPCOP2.INC'
2425C
2426C-----START POINT-----------------------------------------------------
2427C
2428      ISUBN1='DPCO'
2429      ISUBN2='PL  '
2430C
2431      IFOUND='NO'
2432      IERROR='NO'
2433C
2434      MAXCP1=MAXCOL+1
2435      MAXCP2=MAXCOL+2
2436      MAXCP3=MAXCOL+3
2437      MAXCP4=MAXCOL+4
2438      MAXCP5=MAXCOL+5
2439      MAXCP6=MAXCOL+6
2440C
2441      IF(IBUGG2.EQ.'ON'.OR.ISUBRO.EQ.'COPL')THEN
2442        WRITE(ICOUT,999)
2443  999   FORMAT(1X)
2444        CALL DPWRST('XXX','BUG ')
2445        WRITE(ICOUT,51)
2446   51   FORMAT('***** AT THE BEGINNING OF DPCOPL--')
2447        CALL DPWRST('XXX','BUG ')
2448        WRITE(ICOUT,52)NPLOTV,NPLOTP,NS
2449   52   FORMAT('NPLOTV,NPLOTP,NS = ',3I8)
2450        CALL DPWRST('XXX','BUG ')
2451        WRITE(ICOUT,53)ICASPL,IAND1,IAND2
2452   53   FORMAT('ICASPL,IAND1,IAND2 = ',A4,2X,A4,2X,A4)
2453        CALL DPWRST('XXX','BUG ')
2454        WRITE(ICOUT,54)IANGLU,IBUGG2,IBUGG3,IBUGQ
2455   54   FORMAT('IANGLU,IBUGG2,IBUGG3,IBUGQ = ',3(A4,2X),A4)
2456        CALL DPWRST('XXX','BUG ')
2457        WRITE(ICOUT,56)ICASPL,MAXN,MAXNPP
2458   56   FORMAT('ICASPL,MAXN,MAXNPP = ',A4,2I8)
2459        CALL DPWRST('XXX','BUG ')
2460        WRITE(ICOUT,57)IFOUND,IERROR
2461   57   FORMAT('IFOUND,IERROR = ',A4,2X,A4)
2462        CALL DPWRST('XXX','BUG ')
2463      ENDIF
2464C
2465C               ***********************************
2466C               **  TREAT THE CONTOUR PLOT CASE  **
2467C               ***********************************
2468C
2469      IFOUND='YES'
2470      ICASPL='CONT'
2471C
2472C               ****************************************
2473C               **  STEP 2--                          **
2474C               **  EXTRACT THE VARIABLE LIST         **
2475C               ****************************************
2476C
2477      ISTEPN='2'
2478      IF(IBUGG2.EQ.'ON'.OR.ISUBRO.EQ.'COPL')
2479     1CALL TRACE2(ISTEPN,ISUBN1,ISUBN2)
2480C
2481      INAME='CONTOUR PLOT'
2482      MINNA=4
2483      MAXNA=100
2484      MINN2=2
2485      IFLAGE=99
2486      IFLAGM=0
2487      IFLAGP=0
2488      JMIN=2
2489      JMAX=NUMARG
2490      MINNVA=4
2491      MAXNVA=4
2492C
2493      CALL DPPARS(IHARG,IHARG2,IARGT,ARG,NUMARG,IANS,IWIDTH,
2494     1            IHNAME,IHNAM2,IUSE,NUMNAM,IN,IVALUE,VALUE,
2495     1            JMIN,JMAX,
2496     1            MINN2,MINNA,MAXNA,MAXSPN,IFLAGE,INAME,
2497     1            IVARN1,IVARN2,IVARTY,PVAR,
2498     1            ILIS,NRIGHT,ICOLR,ISUB,NQ,ILOCQ,NUMVAR,
2499     1            MINNVA,MAXNVA,
2500     1            IFLAGM,IFLAGP,
2501     1            IBUGG3,IBUGQ,ISUBRO,IFOUND,IERROR)
2502      IF(IERROR.EQ.'YES')GOTO9000
2503C
2504      IF(IBUGG2.EQ.'ON'.OR.ISUBRO.EQ.'COPL')THEN
2505        WRITE(ICOUT,999)
2506        CALL DPWRST('XXX','BUG ')
2507        WRITE(ICOUT,281)
2508  281   FORMAT('***** AFTER CALL DPPARS--')
2509        CALL DPWRST('XXX','BUG ')
2510        WRITE(ICOUT,282)NQ,NUMVAR
2511  282   FORMAT('NQ,NUMVAR = ',2I8)
2512        CALL DPWRST('XXX','BUG ')
2513        IF(NUMVAR.GT.0)THEN
2514          DO285I=1,NUMVAR
2515            WRITE(ICOUT,287)I,IVARN1(I),IVARN2(I),ILIS(I),NRIGHT(I),
2516     1                      ICOLR(I),IVARTY(I)
2517  287       FORMAT('I,IVARN1(I),IVARN2(I),ILIS(I),NRIGHT(I),',
2518     1             'ICOLR(I),IVARTY(I) = ',I8,2X,A4,A4,2X,3I8,2X,A4)
2519            CALL DPWRST('XXX','BUG ')
2520  285     CONTINUE
2521        ENDIF
2522      ENDIF
2523C
2524C               **********************************************
2525C               **  STEP 33--                               **
2526C               **  FORM THE SUBSETTED VARIABLES            **
2527C               **       Y1(.)                              **
2528C               **       Y2(.)                              **
2529C               **       Y3(.)                              **
2530C               **  CONTAINING                              **
2531C               **       THE RESPONSE Z VARIABLE            **
2532C               **       THE HORIZONTAL AXIS VARIABLE       **
2533C               **       THE VERTICAL AXIS VARIABLE         **
2534C               **  RESPECTIVELY.                           **
2535C               **********************************************
2536C
2537      ISTEPN='33'
2538      IF(IBUGG2.EQ.'ON'.OR.ISUBRO.EQ.'COPL')
2539     1CALL TRACE2(ISTEPN,ISUBN1,ISUBN2)
2540C
2541      ICOL=1
2542      NUMVA2=3
2543      CALL DPPAR5(ICOL,IVALUE,IVALU2,IN,MAXN,MAXOBV,
2544     1            INAME,IVARN1,IVARN2,IVARTY,
2545     1            ILIS,NRIGHT,ICOLR,ISUB,NQ,NUMVA2,
2546     1            MAXCOL,MAXCP1,MAXCP2,MAXCP3,
2547     1            MAXCP4,MAXCP5,MAXCP6,
2548     1            V,PRED,RES,YPLOT,XPLOT,X2PLOT,TAGPLO,
2549     1            Y1,Y2,Y3,Y3,Y3,Y3,Y3,NS,
2550     1            IBUGG3,ISUBRO,IFOUND,IERROR)
2551      IF(IERROR.EQ.'YES')GOTO9000
2552C
2553C               **********************************************
2554C               **  STEP 34--                               **
2555C               **  FORM THE FULL VARIABLE                  **
2556C               **       Y4(.)                              **
2557C               **  CONTAINING THE VALUES                   **
2558C               **  OF THE RESPONSE VARIABLE                **
2559C               **  WHERE IT IS DESIRED THAT                **
2560C               **  CONTOUR CURVES BE DETERMINED.           **
2561C               **********************************************
2562C
2563      ISTEPN='34'
2564      IF(IBUGG2.EQ.'ON'.OR.ISUBRO.EQ.'COPL')
2565     1CALL TRACE2(ISTEPN,ISUBN1,ISUBN2)
2566C
2567      ICOL=4
2568      NUMVA2=1
2569      NQ=NRIGHT(4)
2570      DO3410I=1,NQ
2571        ISUB(I)=1
2572 3410 CONTINUE
2573C
2574      CALL DPPAR3(ICOL,IVALUE,IVALU2,IN,MAXN,MAXOBV,
2575     1            INAME,IVARN1,IVARN2,IVARTY,
2576     1            ILIS,NRIGHT,ICOLR,ISUB,NQ,NUMVA2,
2577     1            MAXCOL,MAXCP1,MAXCP2,MAXCP3,
2578     1            MAXCP4,MAXCP5,MAXCP6,
2579     1            V,PRED,RES,YPLOT,XPLOT,X2PLOT,TAGPLO,
2580     1            Y4,Y4,Y4,N4,NLOCA2,NLOCA3,ICASE,
2581     1            IBUGG3,ISUBRO,IFOUND,IERROR)
2582        IF(IERROR.EQ.'YES')GOTO9000
2583C
2584C               ******************************************************
2585C               **  STEP 41--                                        *
2586C               **  FORM THE VERTICAL AND HORIZONTAL AXIS            *
2587C               **  VARIABLES (Y(.) AND X(.), RESPECTIVELY) FOR THE  *
2588C               **  PLOT.  FORM THE CURVE DESIGNATION VARIABLE D(.). *
2589C               **  THIS WILL BE BOTH ONES FOR BOTH CASES            *
2590C               **  DEFINE THE NUMBER OF PLOT POINTS    (NPLOTP).    *
2591C               **  DEFINE THE NUMBER OF PLOT VARIABLES (NPLOTV).    *
2592C               ******************************************************
2593C
2594      ISTEPN='41'
2595      IF(IBUGG2.EQ.'ON'.OR.ISUBRO.EQ.'COPL')
2596     1CALL TRACE2(ISTEPN,ISUBN1,ISUBN2)
2597C
2598      IWRITE='OFF'
2599      CALL DISTIN(Y2,NS,IWRITE,XD,NXD,IBUGG3,IERROR)
2600      CALL DISTIN(Y3,NS,IWRITE,YD,NYD,IBUGG3,IERROR)
2601C
2602      K=0
2603CCCCC THE FOLLOWING 2 LINES WERE FIXED           JULY 1989
2604CCCCC TO FIX BACKWARDS AXES PROBLEM              JULY 1989
2605CCCCC DO4100I=1,NXD
2606CCCCC DO4200J=1,NYD
2607      DO4100J=1,NYD
2608      DO4200I=1,NXD
2609        K=K+1
2610        ZMAT(I,J)=Y1(K)
2611 4200 CONTINUE
2612 4100 CONTINUE
2613C
2614      XMN=0.0
2615      YMN=0.0
2616C
2617      XSCL=1.0
2618      YSCL=1.0
2619C
2620      DO4300I=1,MAXNCN
2621        WLN(I)=1.0
2622        IDSH(I)=0
2623        COLR(I)=1
2624        LBL(I)=1
2625 4300 CONTINUE
2626C
2627C
2628      LDEC=2
2629      SZL=10.0
2630      DLMM=1.0
2631C
2632      CALL DPCOP2(ZMAT,XD,YD,NXD,NYD,Y4,N4,
2633     1            BOX,
2634     1            XMN,YMN,XSCL,YSCL,
2635     1            WLN,IDSH,COLR,LBL,
2636     1            LDEC,SZL,DLMM,
2637     1            Y,X,D,NPLOTP,NPLOTV,
2638     1            IBUGG3,ISUBRO,IERROR)
2639C
2640C               *****************
2641C               **  STEP 90--  **
2642C               **  EXIT       **
2643C               *****************
2644C
2645 9000 CONTINUE
2646      IF(IBUGG2.EQ.'ON'.OR.ISUBRO.EQ.'COPL')THEN
2647        WRITE(ICOUT,999)
2648        CALL DPWRST('XXX','BUG ')
2649        WRITE(ICOUT,9011)
2650 9011   FORMAT('***** AT THE END       OF DPCOPL--')
2651        CALL DPWRST('XXX','BUG ')
2652        WRITE(ICOUT,9012)IFOUND,IERROR
2653 9012   FORMAT('IFOUND,IERROR = ',A4,2X,A4)
2654        CALL DPWRST('XXX','BUG ')
2655        WRITE(ICOUT,9013)NPLOTV,NPLOTP,NS,ICASPL,IAND1,IAND2
2656 9013   FORMAT('NPLOTV,NPLOTP,NS,ICASPL,IAND1,IAND2 = ',
2657     1         3I8,2X,2(A4,2X),A4)
2658        CALL DPWRST('XXX','BUG ')
2659        WRITE(ICOUT,9016)NLOCAL,NQ,MINN2
2660 9016   FORMAT('NLOCAL,NQ,MINN2 = ',3I8)
2661        CALL DPWRST('XXX','BUG ')
2662        IF(NPLOTP.GE.1)THEN
2663          DO9020I=1,NPLOTP
2664            WRITE(ICOUT,9021)I,Y(I),X(I),D(I)
2665 9021       FORMAT('I,Y(I),X(I),D(I) = ',I8,3F12.5)
2666            CALL DPWRST('XXX','BUG ')
2667 9020     CONTINUE
2668        ENDIF
2669      ENDIF
2670C
2671      RETURN
2672      END
2673      SUBROUTINE DPCOP2(A,X,Y,IMX,JMX,CNV,NCNN,
2674     1                  BOX,
2675     1                  XMN,YMN,XSCL,YSCL,
2676     1                  WLN,IDSH,COLR,LBL,
2677     1                  LDEC,SZL,DLMM,
2678     1                  YTEMP,XTEMP,TATEMP,NTEMP,NTRACE,
2679     1                  IBUGG3,ISUBRO,IERROR)
2680C
2681C     PURPOSE--GENERATE A CONTOUR PLOT
2682C
2683C     WRITTEN BY--DAVID W. BEHRINGER NOAA/AOML (MIAMI).
2684C                 AS PART OF NOAA'S CONCX V.3   MARCH 1988.
2685C     ORIGINAL VERSION (IN DATAPLOT)--AUGUST    1988.
2686C
2687C     NOTE--CALLING SEQUENCE--
2688C           DPCOPL
2689C               DPCOP2 (= CONCX)
2690C                     BNDRY.
2691C                     START1(2).
2692C                     START2.
2693C                     START3.
2694C                     START4.
2695C                     CHASE(5).
2696C                     INOUT.
2697C                     SIDEDI(8).
2698C                     DRWFIL
2699C                           PLYSRT
2700C                                 STRSWP(6).
2701C                                 SIDEDI(2).
2702C                                 INOUT(3).
2703C                                 CONINSRT(3)
2704C                                       STRSWP(3).
2705C                           RSURF...
2706C                           GWICOL...
2707C                           DRAW0
2708C                                 GDASH...
2709C                                 GVECT...
2710C                           DRAWL
2711C                                  GCHARJ(2)...
2712C                                  GCHAR(2)...
2713C                                  GCHARA...
2714C                                  DRAW0(6)
2715C                                        GDASH...
2716C                                        GVECT...
2717C
2718C     NOTE--RECOMMENDED DIMENSIONS--
2719C           A(IMX,JMX)
2720C           X(IMX)
2721C           Y(JMX)
2722C           XC(NMX,3)
2723C           YC(NMX,3)
2724C           DST(NDX)
2725C           IB(NMX)
2726C           JB(NMX)
2727C           NEES(2,NSGX,3)
2728C           CNV(NCNN)
2729C           LBL(NCNN)
2730C           WLN(NCNN)
2731C           IDSH(NCNN)
2732C           BOX(4,IMX,JMX)
2733C
2734C     ORIGINAL VERSION (IN DATAPLOT)--AUGUST    1988.
2735C                               MODIFICATIONS INCLUDE--
2736C                                  NO TABS
2737C                                  NO LOWER CASE
2738C                                  NO UNDERSCORES
2739C                                  NO ENTRY POINTS
2740C                                  NO LONG NAMES
2741C                                  REMOVE UNDERLYING GRAPHICS "SET" SUBROUT.--
2742C                                         GWICOL, GDASH, GCHARJ, GCHARA
2743C                                  INSERT BUG AND TRACE SWITCHES
2744C                                  MULTI-RETURNS TO ONE RETURN?
2745C                                  SPLIT DIMENSIONS--ONE PER LINE
2746C                                  CHAR/INT BEFORE DIMENSION STATEMENTS
2747C                                  SPLIT INTEGER DECLARATIONS AND DIMENSIONS
2748C                                  NO CARRYING DIMENSIONS VIA ARGUMENTS
2749C
2750C     UPDATED         --JANUARY   1989.  MORE CHANGES TO STANDARD FORTRAN 77--
2751C                                        VAX BYTE TO CHARACTER*1,
2752C                                        DO WHILE/END DO (ALAN HECKERT).
2753C     UPDATED          --JULY     1990.  999.999 TO ANINE
2754C     UPDATED          --JULY     1990.  REWRITE IF/THEN/ELSE DUE TO
2755C                                        IBM-PC COMPILER ERROR
2756C     UPDATED          --JULY     1990.  REWRITE IF/THEN/ELSE DUE TO
2757C                                        I & J = 0
2758C     UPDATED          --JULY     1990.  PRMTR DEF. WITH I & J = 0
2759C
2760C-----COMMON----------------------------------------------------------
2761C
2762      INCLUDE 'DPCOCP.INC'
2763C
2764C---------------------------------------------------------------------
2765C
2766CCCCC PARAMETER NMX=9000,NSGX=100,NDX=MAX0(NMX,6*NSGX)   AUGUST 1988
2767CCCCC INTEGER NPTS(NSGX,3),SNSE(NSGX,3),CLSD(NSGX,3),NSEG(3),
2768CCCCC1 COLR(NCNN+1)
2769CCCCC BYTE BOX(4,IMX,JMX)                JANUARY 1989
2770CCCCC DIMENSION A(IMX,JMX),X(IMX),Y(JMX)
2771CCCCC DIMENSION XC(NMX,3),YC(NMX,3),DST(NDX),IB(NMX),JB(NMX),
2772CCCCC1 NEES(2,NSGX,3),CNV(NCNN),LBL(NCNN),WLN(NCNN),IDSH(NCNN)
2773C
2774      DIMENSION X(*)
2775      DIMENSION Y(*)
2776      DIMENSION XTEMP(*)
2777      DIMENSION YTEMP(*)
2778      DIMENSION TATEMP(*)
2779      DIMENSION WLN(MAXNCN)
2780      DIMENSION CNV(MAXNCN)
2781      DIMENSION BOX(4,MAXIMX,MAXJMX)
2782      DIMENSION A(IMX,JMX)
2783      DIMENSION LBL(MAXNCN)
2784      DIMENSION IDSH(MAXNCN)
2785C
2786      INTEGER NPTS
2787      INTEGER SNSE
2788      INTEGER CLSD
2789      INTEGER NSEG
2790      INTEGER COLR
2791C
2792CCCCC BYTE BOX                           JANUARY 1989
2793      CHARACTER*1 BOX
2794C
2795      CHARACTER*4 IBUGG3
2796      CHARACTER*4 ISUBRO
2797      CHARACTER*4 IERROR
2798C
2799      DIMENSION NPTS(MAXNSG,3)
2800      DIMENSION SNSE(MAXNSG,3)
2801      DIMENSION CLSD(MAXNSG,3)
2802      DIMENSION NSEG(3)
2803      DIMENSION COLR(*)
2804C
2805      INCLUDE 'DPCOPA.INC'
2806      INCLUDE 'DPCOZZ.INC'
2807      INCLUDE 'DPCOZI.INC'
2808C
2809      DIMENSION XC(MAXNMX,3)
2810      DIMENSION YC(MAXNMX,3)
2811      DIMENSION DST(MAXNMX)
2812      DIMENSION IB(MAXNMX)
2813      DIMENSION JB(MAXNMX)
2814      DIMENSION NEES(2,MAXNSG,3)
2815C
2816      EQUIVALENCE (GARBAG(JGAR12),XC(1,1))
2817      EQUIVALENCE (GARBAG(JGAR13),YC(1,1))
2818      EQUIVALENCE (GARBAG(JGAR14),DST(1))
2819      EQUIVALENCE (IGARBG(IIGAR1),IB(1))
2820      EQUIVALENCE (IGARBG(IIGAR2),JB(1))
2821      EQUIVALENCE (IGARBG(IIGAR3),NEES(1,1,1))
2822C
2823C---------------------------------------------------------------------
2824C
2825      INCLUDE 'DPCOP2.INC'
2826C
2827C-----START POINT-----------------------------------------------------
2828C
2829      NTEMP=0
2830      NTRACE=0
2831C
2832      IF(IBUGG3.EQ.'OFF'.AND.ISUBRO.NE.'COP2')GOTO90
2833      WRITE(ICOUT,999)
2834  999 FORMAT(1X)
2835      CALL DPWRST('XXX','BUG ')
2836      WRITE(ICOUT,51)
2837   51 FORMAT('***** AT THE BEGINNING OF DPCOP2--')
2838      CALL DPWRST('XXX','BUG ')
2839      WRITE(ICOUT,52)IBUGG3,ISUBRO
2840   52 FORMAT('IBUGG3,ISUBRO = ',A4,2X,A4)
2841      CALL DPWRST('XXX','BUG ')
2842      WRITE(ICOUT,53)IMX,JMX,NCNN
2843   53 FORMAT('IMX,JMX,NCNN = ',3I8)
2844      CALL DPWRST('XXX','BUG ')
2845      DO55I=1,IMX
2846      WRITE(ICOUT,56)I,X(I)
2847   56 FORMAT('I,X(I) = ',I8,E15.7)
2848      CALL DPWRST('XXX','BUG ')
2849   55 CONTINUE
2850      DO60I=1,JMX
2851      WRITE(ICOUT,61)I,Y(I)
2852   61 FORMAT('I,Y(I) = ',I8,E15.7)
2853      CALL DPWRST('XXX','BUG ')
2854   60 CONTINUE
2855      DO65I=1,IMX
2856      DO66J=1,JMX
2857      WRITE(ICOUT,67)I,J,A(I,J)
2858   67 FORMAT('I,J,A(I,J) = ',I8,I8,E15.7)
2859      CALL DPWRST('XXX','BUG ')
2860   66 CONTINUE
2861   65 CONTINUE
2862      DO70I=1,NCNN
2863      WRITE(ICOUT,71)I,CNV(I)
2864   71 FORMAT('I,CNV(I) = ',I8,E15.7)
2865      CALL DPWRST('XXX','BUG ')
2866   70 CONTINUE
2867   90 CONTINUE
2868C
2869C   ADJUST CONTOUR LIMITS TO AVOID LATER ATTEMPTS TO USE NONEXISTENT CONTOURS
2870C    EXCLUDE NON-CONTOURABLE PARTS OF THE FIELD FROM THE SEARCH FOR AMIN/AMAX
2871C
2872CCCCC THE FOLLOWING LINE WAS ADDED JULY 1990
2873CCCCC AND ALL SUBSEQUENT OCCURRANCES OF HARD-CODED 999.999'S  JULY 1990
2874CCCCC WERE CHANGE TO SOFT-CODED ANINE       JULY 1990
2875      ANINE=999.999
2876C
2877CCCCC THE FOLLOWING 2 LINES WERE CHANGED JULY 1990
2878CCCCC AMIN=999.999
2879CCCCC AMAX=999.999
2880      AMIN=ANINE
2881      AMAX=ANINE
2882C
2883CCCCC THE FOLLOWING SECTION WAS REPLACED     JULY 1990
2884CCCCC DUE TO A IBM-PC COMPILER ERROR          JULY 1990
2885CCCCC DO1000J=1,JMX
2886CCCCC   DO1010I=1,IMX
2887CCCCC THE FOLLOWING 5 LINES WERE CHANGED JULY 1990
2888CCCCC     IF (A(I,J).NE.999.999.AND.
2889CCCCC1     ((I.GT.1.AND.A(I-1,J).NE.999.999).OR.
2890CCCCC2       (I.LT.IMX.AND.A(I+1,J).NE.999.999)).AND.
2891CCCCC3       ((J.GT.1.AND.A(I,J-1).NE.999.999).OR.
2892CCCCC4         (J.LT.JMX.AND.A(I,J+1).NE.999.999))) THEN
2893CCCCC     IF (A(I,J).NE.ANINE.AND.
2894CCCCC1     ((I.GT.1.AND.A(I-1,J).NE.ANINE).OR.
2895CCCCC2       (I.LT.IMX.AND.A(I+1,J).NE.ANINE)).AND.
2896CCCCC3       ((J.GT.1.AND.A(I,J-1).NE.ANINE).OR.
2897CCCCC4         (J.LT.JMX.AND.A(I,J+1).NE.ANINE))) THEN
2898CCCCC THE FOLLOWING LINE WAS CHANGED JULY 1990
2899CCCCC       IF (AMIN.NE.999.999) THEN
2900CCCCC       IF (AMIN.NE.ANINE) THEN
2901CCCCC         AMIN=AMIN1(AMIN,A(I,J))
2902CCCCC       ELSE
2903CCCCC         AMIN=A(I,J)
2904CCCCC       END IF
2905CCCCC THE FOLLOWING LINE WAS CHANGED JULY 1990
2906CCCCC       IF (AMAX.NE.999.999) THEN
2907CCCCC       IF (AMAX.NE.ANINE) THEN
2908CCCCC         AMAX=AMAX1(AMAX,A(I,J))
2909CCCCC       ELSE
2910CCCCC         AMAX=A(I,J)
2911CCCCC       END IF
2912CCCCC     END IF
2913C1010   CONTINUE
2914C1000 CONTINUE
2915C
2916CCCCC THE FOLLOWING SECTION REPLACES THE ABOVE SECTION  JULY 1990
2917      DO1000J=1,JMX
2918        DO1010I=1,IMX
2919          AM0=ANINE
2920          A0M=ANINE
2921          A00=ANINE
2922          A0P=ANINE
2923          AP0=ANINE
2924          IF(I.GT.1.AND.J.GT.0)AM0=A(I-1,J)
2925          IF(I.GT.0.AND.J.GT.1)A0M=A(I,J-1)
2926          IF(I.GT.0.AND.J.GT.0)A00=A(I,J)
2927          IF(I.GT.0.AND.J.LT.JMX)A0P=A(I,J+1)
2928          IF(I.LT.IMX.AND.J.GT.0)AP0=A(I+1,J)
2929          IF (A00.NE.ANINE.AND.
2930     1     ((AM0.NE.ANINE).OR.
2931     2       (AP0.NE.ANINE)).AND.
2932     3       ((A0M.NE.ANINE).OR.
2933     4         (A0P.NE.ANINE))) THEN
2934C
2935            IF (AMIN.NE.ANINE) THEN
2936              AMIN=AMIN1(AMIN,A(I,J))
2937            ELSE
2938              AMIN=A(I,J)
2939            END IF
2940C
2941            IF (AMAX.NE.ANINE) THEN
2942              AMAX=AMAX1(AMAX,A(I,J))
2943            ELSE
2944              AMAX=A(I,J)
2945            END IF
2946C
2947          END IF
2948 1010   CONTINUE
2949 1000 CONTINUE
2950C
2951C     WRITE(9,'('' AMIN/AMAX: '',2F10.3)') AMIN,AMAX
2952      N=1
2953 1100 CONTINUE
2954      IF(CNV(N).GE.AMIN)GOTO1199
2955CCCCC DO WHILE (CNV(N).LT.AMIN)          JANUARY 1989
2956        N=N+1
2957        IF (N.GT.NCNN) GOTO9000
2958CCCCC END DO                             JANUARY 1989
2959      GOTO1100
2960 1199 CONTINUE
2961      NCOFF=N
2962      N=NCNN
2963CCCCC DO WHILE (CNV(N).GT.AMAX)          JANUARY 1989
2964 1200 CONTINUE
2965      IF(CNV(N).LE.AMAX)GOTO1299
2966        N=N-1
2967        IF (N.LT.1) GOTO9000
2968CCCCC END DO                             JANUARY 1989
2969      GOTO1200
2970 1299 CONTINUE
2971      NCN=N+1-NCOFF
2972C   CONVERT X & Y FROM USER UNITS TO DEVICE UNITS (MM OR WHATEVER)
2973      DO1300I=1,IMX
2974        X(I)=(X(I)-XMN)*XSCL
2975 1300 CONTINUE
2976      DO1310J=1,JMX
2977        Y(J)=(Y(J)-YMN)*YSCL
2978 1310 CONTINUE
2979C   SET UP IB, JB & BOX ARRAYS TO CONTROL CONTOURING NEAR BOUNDARIES
2980C   DATA VOIDS CONNECTED TO PERIMETER ARE ALLOWED, BUT NO ISOLATED VOIDS
2981C
2982      CALL BNDRY(A,BOX,IMX,JMX,IB,JB,NBX)
2983      NBM=NBX-1
2984C     WRITE(9,'('' A'')')
2985C     CALL PRTMTX(9,A,IMX,JMX,1)
2986C     WRITE(9,'('' BOUNDARY: '',I6)') NBX
2987C     DO NB=1,NBX
2988C     I=IB(NB)
2989C     J=JB(NB)
2990C     WRITE(9,'(1X,I5,5X,2I5,5X,2F9.2)') NB,I,J,X(I),Y(J)
2991CCCCC END DO                             JANUARY 1989
2992C
2993C   SET UP PRMTR
2994      I=IB(1)
2995      J=JB(1)
2996      PRMTR=0.
2997      DO1400NB=2,NBX
2998        IM=I
2999        JM=J
3000        I=IB(NB)
3001        J=JB(NB)
3002        IF (I.EQ.IM) THEN
3003CCCCC THE FOLLOWING LINE WAS REPLACED BY SUBSEQUENT 2 LINES JULY 1990
3004CCCCC     PRMTR=PRMTR+ABS(Y(J)-Y(JM))
3005          IF(J.GE.1.AND.J.LE.JMX.AND.JM.GE.1.AND.JM.LE.JMX)
3006     1    PRMTR=PRMTR+ABS(Y(J)-Y(JM))
3007        ELSE
3008CCCCC THE FOLLOWING LINE WAS REPLACED BY SUBSEQUENT 2 LINES JULY 1990
3009CCCCC     PRMTR=PRMTR+ABS(X(I)-X(IM))
3010          IF(I.GE.1.AND.I.LE.IMX.AND.IM.GE.1.AND.IM.LE.IMX)
3011     1    PRMTR=PRMTR+ABS(X(I)-X(IM))
3012        END IF
3013 1400 CONTINUE
3014C   BEGIN MAIN LOOP -> SEARCH FOR STARTING POINTS OF CONTOURS
3015      DO1500NC=0,NCN
3016        NCC=NC+NCOFF
3017        IF (NC.LT.NCN) THEN
3018          CN=CNV(NCC)
3019C   RESET 'BOX' WHICH DOES BOOKEEPING FOR CONTOUR-CHASES
3020          DO1510J=1,JMX
3021            DO1520I=1,IMX
3022              DO1530L=1,4
3023                IF (BOX(L,I,J).EQ.'1') BOX(L,I,J)='0'
3024                IF (BOX(L,I,J).EQ.'3') BOX(L,I,J)='2'
3025 1530         CONTINUE
3026 1520       CONTINUE
3027 1510     CONTINUE
3028          NSG=0
3029          NP=1
3030          N=1
3031C   SEARCH PERIMETER OF AREA FOR CONTOUR-STARTS
3032          DO1540NB=1,NBM
3033            IF (IB(NB).EQ.IB(NB+1)) THEN
3034              I=IB(NB)
3035              IF (JB(NB).LT.JB(NB+1)) THEN
3036                JS=JB(NB)
3037                JE=JB(NB+1)-1
3038                DO1550J=JS,JE
3039                  IF (BOX(1,I,J).EQ.'2') THEN
3040                    NS=1
3041                    CALL START1(A(I,J),X(I),Y(J),
3042     1                          NS,CN,XC(NP,2),YC(NP,2))
3043                    IF (NS.GT.0) THEN
3044C          ->  CONTOUR-START FOUND, BEGIN CHASE
3045                      II=I
3046                      JJ=J
3047                      CALL CHASE(A,X,Y,IMX,JMX,II,JJ,
3048     1                           NS,CN,XC(NP,2),YC(NP,2),NMX,N,BOX)
3049                      IF (N.GT.1) THEN
3050                        NSG=NSG+1
3051                        NPTS(NSG,2)=N
3052                        IF (A(I,J).LT.A(I,J+1)) THEN
3053                          SNSE(NSG,2)=1
3054                        ELSE
3055                          SNSE(NSG,2)=-1
3056                        END IF
3057                        CLSD(NSG,2)=0
3058C     WRITE(9,'('' CN='',F7.2,''    SNSE='',I3)') CN,SNSE(NSG,2)
3059C     CALL SIDEDI(XC(NP,2),YC(NP,2),NSS,DDD,IB,JB,X,Y)
3060C     WRITE(9,'('' 1'',2F10.3,I6)')XC(NP,2),YC(NP,2),NSS
3061C     CALL SIDEDI(XC(NP+N-1,2),YC(NP+N-1,2),NSS,DDD,IB,JB,X,Y)
3062C     WRITE(9,'('' 1'',2F10.3,I6)')XC(NP+N-1,2),YC(NP+N-1,2),NSS
3063C     CALL PRT_STR(9,XC(NP,2),YC(NP,2),1,N)
3064                        NP=NP+N
3065                        N=1
3066                      END IF
3067                    END IF
3068                  END IF
3069 1550           CONTINUE
3070              ELSE
3071                JS=JB(NB)-1
3072                JE=JB(NB+1)
3073                DO1560J=JS,JE,-1
3074                  IF (BOX(3,I-1,J).EQ.'2') THEN
3075                    NS=3
3076                    CALL START3(A(I,J),X(I),Y(J),
3077     1                          NS,CN,XC(NP,2),YC(NP,2))
3078                    IF (NS.GT.0) THEN
3079C          ->  CONTOUR-START FOUND, BEGIN CHASE
3080                      II=I-1
3081                      JJ=J
3082                      CALL CHASE(A,X,Y,IMX,JMX,II,JJ,
3083     1                        NS,CN,XC(NP,2),YC(NP,2),NMX,N,BOX)
3084                      IF (N.GT.1) THEN
3085                        NSG=NSG+1
3086                        NPTS(NSG,2)=N
3087                        IF (A(I,J+1).LT.A(I,J)) THEN
3088                          SNSE(NSG,2)=1
3089                        ELSE
3090                          SNSE(NSG,2)=-1
3091                        END IF
3092                        CLSD(NSG,2)=0
3093C     WRITE(9,'('' CN='',F7.2,''    SNSE='',I3)') CN,SNSE(NSG,2)
3094C     CALL SIDEDI(XC(NP,2),YC(NP,2),NSS,DDD,IB,JB,X,Y)
3095C     WRITE(9,'('' 3'',2F10.3,I6)')XC(NP,2),YC(NP,2),NSS
3096C     CALL SIDEDI(XC(NP+N-1,2),YC(NP+N-1,2),NSS,DDD,IB,JB,X,Y)
3097C     WRITE(9,'('' 3'',2F10.3,I6)')XC(NP+N-1,2),YC(NP+N-1,2),NSS
3098C     CALL PRT_STR(9,XC(NP,2),YC(NP,2),1,N)
3099                        NP=NP+N
3100                        N=1
3101                      END IF
3102                    END IF
3103                  END IF
3104 1560         CONTINUE
3105            END IF
3106          ELSE
3107            J=JB(NB)
3108            IF(IB(NB).LT.IB(NB+1)) THEN
3109              IS=IB(NB)
3110              IE=IB(NB+1)-1
3111              DO1570I=IS,IE
3112                IF (BOX(2,I,J-1).EQ.'2') THEN
3113                  NS=2
3114                  CALL START2(A(I,J),X(I),Y(J),
3115     1                        NS,CN,XC(NP,2),YC(NP,2))
3116                  IF (NS.GT.0) THEN
3117C          ->  CONTOUR-START FOUND, BEGIN CHASE
3118                    II=I
3119                    JJ=J-1
3120                    CALL CHASE(A,X,Y,IMX,JMX,II,JJ,
3121     1                        NS,CN,XC(NP,2),YC(NP,2),NMX,N,BOX)
3122                    IF (N.GT.1) THEN
3123                      NSG=NSG+1
3124                      NPTS(NSG,2)=N
3125                      IF (A(I,J).LT.A(I+1,J)) THEN
3126                        SNSE(NSG,2)=1
3127                      ELSE
3128                        SNSE(NSG,2)=-1
3129                      END IF
3130                      CLSD(NSG,2)=0
3131C     WRITE(9,'('' CN='',F7.2,''    SNSE='',I3)') CN,SNSE(NSG,2)
3132C     CALL SIDEDI(XC(NP,2),YC(NP,2),NSS,DDD,IB,JB,X,Y)
3133C     WRITE(9,'('' 2'',2F10.3,I6)')XC(NP,2),YC(NP,2),NSS
3134C     CALL SIDEDI(XC(NP+N-1,2),YC(NP+N-1,2),NSS,DDD,IB,JB,X,Y)
3135C     WRITE(9,'('' 2'',2F10.3,I6)')XC(NP+N-1,2),YC(NP+N-1,2),NSS
3136C     CALL PRT_STR(9,XC(NP,2),YC(NP,2),1,N)
3137                      NP=NP+N
3138                      N=1
3139                    END IF
3140                  END IF
3141                END IF
3142 1570         CONTINUE
3143            ELSE
3144              IS=IB(NB)-1
3145              IE=IB(NB+1)
3146              DO1580I=IS,IE,-1
3147                IF (BOX(4,I,J).EQ.'2') THEN
3148                  NS=4
3149                  CALL START4(A(I,J),X(I),Y(J),
3150     1                        NS,CN,XC(NP,2),YC(NP,2))
3151                  IF (NS.GT.0) THEN
3152C          ->  CONTOUR-START FOUND, BEGIN CHASE
3153                    II=I
3154                    JJ=J
3155                    CALL CHASE(A,X,Y,IMX,JMX,II,JJ,
3156     1                        NS,CN,XC(NP,2),YC(NP,2),NMX,N,BOX)
3157                    IF (N.GT.1) THEN
3158                      NSG=NSG+1
3159                      NPTS(NSG,2)=N
3160                      IF (A(I+1,J).LT.A(I,J)) THEN
3161                        SNSE(NSG,2)=1
3162                      ELSE
3163                        SNSE(NSG,2)=-1
3164                      END IF
3165                      CLSD(NSG,2)=0
3166C     WRITE(9,'('' CN='',F7.2,''    SNSE='',I3)') CN,SNSE(NSG,2)
3167C     CALL SIDEDI(XC(NP,2),YC(NP,2),NSS,DDD,IB,JB,X,Y)
3168C     WRITE(9,'('' 4'',2F10.3,I6)')XC(NP,2),YC(NP,2),NSS
3169C     CALL SIDEDI(XC(NP+N-1,2),YC(NP+N-1,2),NSS,DDD,IB,JB,X,Y)
3170C     WRITE(9,'('' 4'',2F10.3,I6)')XC(NP+N-1,2),YC(NP+N-1,2),NSS
3171C     CALL PRT_STR(9,XC(NP,2),YC(NP,2),1,N)
3172                      NP=NP+N
3173                      N=1
3174                    END IF
3175                  END IF
3176                END IF
3177 1580         CONTINUE
3178            END IF
3179          END IF
3180 1540   CONTINUE
3181C   SEARCH INTERIOR FOR CONTOUR-STARTS OF CLOSED CONTOURS
3182        DO1800I=2,IMX-1
3183          DO1810J=JMX-1,1,-1
3184            IF (BOX(1,I,J).EQ.'0') THEN
3185              NS=1
3186              CALL START1(A(I,J),X(I),Y(J),
3187     1                 NS,CN,XC(NP,2),YC(NP,2))
3188              IF (NS.GT.0) THEN
3189C           ->  CONTOUR-START FOUND, BEGIN CHASE
3190                II=I
3191                JJ=J
3192                CALL CHASE(A,X,Y,IMX,JMX,II,JJ,
3193     1                   NS,CN,XC(NP,2),YC(NP,2),NMX,N,BOX)
3194                IF (N.GT.1) THEN
3195                  IF (A(I,J).NE.CN) THEN
3196                    JIO=J
3197                  ELSE
3198                    JIO=J+1
3199                  END IF
3200                  CALL INOUT(X(I),Y(JIO),XC(NP,2),YC(NP,2),N,IO)
3201                  NSG=NSG+1
3202                  NPTS(NSG,2)=N
3203                  IF (A(I,J).LT.A(I,J+1)) THEN
3204                    SNSE(NSG,2)=1
3205                  ELSE
3206                    SNSE(NSG,2)=-1
3207                  END IF
3208                  IF (IO.EQ.1) THEN
3209                    IF (A(I,JIO).GT.CN) THEN
3210                      CLSD(NSG,2)=1
3211                    ELSE
3212                      CLSD(NSG,2)=-1
3213                    END IF
3214                  ELSE
3215                    IF (A(I,JIO).LT.CN) THEN
3216                      CLSD(NSG,2)=1
3217                    ELSE
3218                      CLSD(NSG,2)=-1
3219                    END IF
3220                  END IF
3221C     NSS=0
3222C     WRITE(9,'('' I CN='',F7.2,''    SNSE='',I3)') CN,SNSE(NSG,2)
3223C     WRITE(9,'('' 1'',2F10.3,I6)')XC(NP,2),YC(NP,2),NSS
3224C     WRITE(9,'('' 1'',2F10.3,I6)')XC(NP+N-1,2),YC(NP+N-1,2),NSS
3225C     CALL PRT_STR(9,XC(NP,2),YC(NP,2),1,N)
3226                  NP=NP+N
3227                  N=1
3228                END IF
3229              END IF
3230            END IF
3231 1810     CONTINUE
3232 1800   CONTINUE
3233C   END SEARCH FOR CONTOUR STARTS
3234        NSEG(2)=NSG
3235      ELSE
3236        NSEG(2)=0
3237      END IF
3238C   DRAW CONTOURS; FILL BETWEEN THEM IF DESIRED
3239        IF (NC.EQ.0) THEN
3240CCCCC THE FOLLOWING LINE WAS CHANGED JULY 1990
3241CCCCC     WLN1=999.999
3242          WLN1=ANINE
3243          IDSH1=999
3244          LBL1=999
3245CCCCC THE FOLLOWING LINE WAS CHANGED JULY 1990
3246CCCCC     CN1=999.999
3247          CN1=ANINE
3248        ELSE
3249          NC1=NCC-1
3250          WLN1=WLN(NC1)
3251          IDSH1=IDSH(NC1)
3252          LBL1=LBL(NC1)
3253          CN1=CNV(NC1)
3254CCCCC THE FOLLOWING LINE WAS CHANGED JULY 1990
3255CCCCC     IF (IDSH1.LT.0) CN1=999.999
3256          IF (IDSH1.LT.0) CN1=ANINE
3257C     WRITE(9,'('' NP='',I6)') NP
3258        END IF
3259        CALL DRWFIL(XC,YC,NMX,NSEG,NPTS,SNSE,CLSD,NSGX,X,Y,IMX,JMX,
3260     1   IB,JB,NBX,PRMTR,NEES,DST,CN1,WLN1,IDSH1,COLR(NCC),LBL1,
3261     2   LDEC,SZL,DLMM,
3262     1XTEMP,YTEMP,TATEMP,NTEMP,NTRACE,
3263     1IBUGG3,ISUBRO,IERROR)
3264 1500 CONTINUE
3265C   MAIN LOOP COMPLETE -> RETURN TO CALLING PROGRAM AFTER
3266C    CONVERTING X & Y BACK TO USER UNITS
3267      DO1900I=1,IMX
3268        X(I)=XMN+X(I)/XSCL
3269 1900 CONTINUE
3270      DO1910J=1,JMX
3271        Y(J)=YMN+Y(J)/YSCL
3272 1910 CONTINUE
3273      GOTO9000
3274C
3275C               *****************
3276C               **  STEP 90--  **
3277C               **  EXIT       **
3278C               *****************
3279C
3280 9000 CONTINUE
3281      IF(IBUGG3.EQ.'OFF'.AND.ISUBRO.NE.'COP2')GOTO9090
3282      WRITE(ICOUT,999)
3283      CALL DPWRST('XXX','BUG ')
3284      WRITE(ICOUT,9011)
3285 9011 FORMAT('***** AT THE END       OF DPCOP2--')
3286      CALL DPWRST('XXX','BUG ')
3287      WRITE(ICOUT,9012)IBUGG3,ISUBRO
3288 9012 FORMAT('IBUGG3,ISUBRO = ',A4,2X,A4)
3289      CALL DPWRST('XXX','BUG ')
3290      WRITE(ICOUT,9013)NTEMP,NTRACE
3291 9013 FORMAT('NTEMP,NTRACE = ',2I8)
3292      CALL DPWRST('XXX','BUG ')
3293      DO9015I=1,NTEMP
3294      WRITE(ICOUT,9016)I,YTEMP(I),XTEMP(I),TATEMP(I)
3295 9016 FORMAT('I,YTEMP(I),XTEMP(I),TATEMP(I) = ',I8,3F10.5)
3296      CALL DPWRST('XXX','BUG ')
3297 9015 CONTINUE
3298 9090 CONTINUE
3299C
3300      RETURN
3301      END
3302      SUBROUTINE DPCOP3(Z,NX,NY,Z0,
3303     1X2,Y2,TAG,N,NTRACE,
3304     1IBUGG3,ISUBRO,IERROR)
3305C
3306C     PURPOSE--OPERATE ON THE MATRIX Z(.,.)
3307C              FOR A FIXED VALUE OF Z (Z0),
3308C              EXTRACT ALL CONTOUR LINES.
3309C              FILL THE ARRAYS Y2(.), X2(.) AND TAG(.)
3310C              ACCORDINGLY.
3311C
3312C     NOTE--Z0     = THE TARGET Z VALUE FOR WHICH A CONTOUR LINE
3313C                    IS DESIRED.
3314C           K      = THE CURRENT INDEX OF THE Y2(.), X2(.),
3315C                    AND TAG(.) VARIABLES.
3316C                    (K IS SET TO 0 AT THE BEGINNING
3317C                    OF THIS SUBROUTINE).
3318C           ITRACE = THE CURRENT TRACE BEING FORMED.
3319C                    (ITRACE IS SET TO 0 AT THE BEGINNING
3320C                    OF THIS SUBROUTINE).
3321C
3322C---------------------------------------------------------------------
3323C
3324      CHARACTER*4 IBUGG3
3325      CHARACTER*4 ISUBRO
3326      CHARACTER*4 IERROR
3327C
3328      CHARACTER*4 IDONEH
3329      CHARACTER*4 IDONEV
3330C
3331      DIMENSION Z(100,100)
3332      DIMENSION X2(*)
3333      DIMENSION Y2(*)
3334      DIMENSION TAG(*)
3335C
3336      DIMENSION IDONEH(20,20,20)
3337      DIMENSION IDONEV(20,20,20)
3338C
3339      DIMENSION IXSAVE(400)
3340      DIMENSION IYSAVE(400)
3341      DIMENSION KSAVE(400)
3342C
3343C-----COMMON VARIABLES (GENERAL)-----------------------------------------------
3344C
3345      INCLUDE 'DPCOP2.INC'
3346C
3347C-----START POINT-----------------------------------------------------
3348C
3349      IF(IBUGG3.EQ.'OFF'.AND.ISUBRO.NE.'COP3')GOTO90
3350      WRITE(ICOUT,999)
3351  999 FORMAT(1X)
3352      CALL DPWRST('XXX','BUG ')
3353      WRITE(ICOUT,51)
3354   51 FORMAT('***** AT THE BEGINNING OF DPCOP3--')
3355      CALL DPWRST('XXX','BUG ')
3356      WRITE(ICOUT,52)IBUGG3,ISUBRO,IERROR
3357   52 FORMAT('IBUGG3,ISUBRO,IERROR = ',A4,2X,A4,2X,A4)
3358      CALL DPWRST('XXX','BUG ')
3359      WRITE(ICOUT,53)Z0
3360   53 FORMAT('Z0 = ',E15.7)
3361      CALL DPWRST('XXX','BUG ')
3362      WRITE(ICOUT,54)NX,NY
3363   54 FORMAT('NX,NY = ',2I8)
3364      CALL DPWRST('XXX','BUG ')
3365      DO55IY=1,NY
3366      DO56IX=1,NX
3367      WRITE(ICOUT,57)IX,IY,Z(IX,IY)
3368   57 FORMAT('IX,IY,Z(IX,IY) = ',2I8,E15.7)
3369      CALL DPWRST('XXX','BUG ')
3370   56 CONTINUE
3371   55 CONTINUE
3372C
3373   90 CONTINUE
3374C
3375      NXP1=NX+1
3376      NYP1=NY+1
3377C
3378      DO1110IX1=1,NX
3379      DO1120IX2=1,NX
3380      DO1130IY1=1,NY
3381      IDONEH(IX1,IX2,IY1)='NO'
3382 1130 CONTINUE
3383 1120 CONTINUE
3384 1110 CONTINUE
3385C
3386      DO1210IY1=1,NY
3387      DO1220IY2=1,NY
3388      DO1230IX1=1,NX
3389      IDONEV(IY1,IY2,IX1)='NO'
3390 1230 CONTINUE
3391 1220 CONTINUE
3392 1210 CONTINUE
3393C
3394      K=0
3395      ITRACE=0
3396      ISAVE=0
3397C
3398      NYM1=NY-1
3399      NXM1=NX-1
3400C
3401C               *********************************************
3402C               *********************************************
3403C               **  STEP 21--                              **
3404C               **  SCAN THE MATRIX--FOR EACH ROW,         **
3405C               **  SCAN ACROSS THE COLUMNS AND            **
3406C               **  SEARCH FOR Z VALUES WHICH BRACKET THE  **
3407C               **  TARGET Z0 CONTOUR VALUE.               **
3408C               *********************************************
3409C               *********************************************
3410C
3411      DO2100IY1=1,NYM1
3412      IY2=IY1+1
3413      AIY1=IY1
3414      AIY2=IY2
3415C
3416      DO2200IX1=1,NXM1
3417      IX2=IX1+1
3418      AIX1=IX1
3419      AIX2=IX2
3420C
3421      IF(IDONEH(IX1,IX2,IY1).EQ.'YES')GOTO2200
3422CCCCC WRITE(ICOUT,2201)IX1,IY1,Z(IX1,IY1)
3423C2201 FORMAT('IX1,IY1,Z(IX1,IY1) = ',2I8,E15.7)
3424CCCCC CALL DPWRST('XXX','BUG ')
3425CCCCC WRITE(ICOUT,2202)IDONEH(IX1,IX2,IY1),IDONEV(IY1,IY2,IX1)
3426C2202 FORMAT('IDONEH(IX1,IX2,IY1),IDONEV(IY1,IY2,IX1) = ',2A4)
3427CCCCC CALL DPWRST('XXX','BUG ')
3428      IF(Z(IX1,IY1).LE.Z0.AND.Z0.LE.Z(IX2,IY1))GOTO2210
3429      IF(Z(IX2,IY1).LE.Z0.AND.Z0.LE.Z(IX1,IY1))GOTO2210
3430      GOTO2200
3431C
3432 2210 CONTINUE
3433      ITRACE=ITRACE+1
3434      K=K+1
3435      ANUM=Z0-Z(IX1,IY1)
3436      ADEN=Z(IX2,IY1)-Z(IX1,IY1)
3437      P=ANUM/ADEN
3438      X2(K)=AIX1+P*(AIX2-AIX1)
3439      Y2(K)=IY1
3440      TAG(K)=ITRACE
3441      IDONEH(IX1,IX2,IY1)='YES'
3442C
3443C               ********************************************
3444C               ********************************************
3445C               **  STEP 22--                             **
3446C               **  A HIT HAS BEEN FOUND.                 **
3447C               **  THEREFORE, FOLLOW THE TRACE THROUGH   **
3448C               **  THE MATRIX UNTIL THE TRACE FINISHES.  **
3449C               ********************************************
3450C               ********************************************
3451C
3452      ISAVE=ISAVE+1
3453      IXSAVE(ISAVE)=IX1
3454      IYSAVE(ISAVE)=IY1
3455      KSAVE(ISAVE)=K
3456      WRITE(ICOUT,999)
3457      CALL DPWRST('XXX','BUG ')
3458CCCCC WRITE(ICOUT,2355)ISAVE,IXSAVE(ISAVE),IYSAVE(ISAVE),KSAVE(ISAVE)
3459C2355 FORMAT('ISAVE,IXSAVE(ISAVE),IYSAVE(ISAVE),KSAVE(ISAVE)= ',4I8)
3460CCCCC CALL DPWRST('XXX','BUG ')
3461CCCCC WRITE(ICOUT,2356)X2(K),Y2(K)
3462C2356 FORMAT('X2(K),Y2(K) = ',2E15.7)
3463CCCCC CALL DPWRST('XXX','BUG ')
3464C
3465      IX3=IX1
3466      IY3=IY2
3467      ISIDE1=2
3468      DO2300I=1,10000
3469      IF(IY3.LE.1)GOTO2370
3470      IF(IY3.GE.NYP1)GOTO2370
3471      IF(IX3.LE.0)GOTO2370
3472      IF(IX3.GE.NX)GOTO2370
3473      CALL DPCOP4(IX3,IY3,ISIDE1,ITRACE,Z0,
3474     1Z,IDONEH,IDONEV,
3475     1X2,Y2,TAG,K,ISIDE2,
3476     1IBUGG3,ISUBRO,IERROR)
3477      IF(IERROR.EQ.'YES')GOTO9000
3478      IF(ISIDE2.EQ.0)GOTO2370
3479      IF(ISIDE2.EQ.1)IY3=IY3+1
3480      IF(ISIDE2.EQ.2)IY3=IY3-1
3481      IF(ISIDE2.EQ.3)IX3=IX3-1
3482      IF(ISIDE2.EQ.4)IX3=IX3+1
3483      IF(ISIDE2.EQ.1)ISIDE1=2
3484      IF(ISIDE2.EQ.2)ISIDE1=1
3485      IF(ISIDE2.EQ.3)ISIDE1=4
3486      IF(ISIDE2.EQ.4)ISIDE1=3
3487 2300 CONTINUE
3488 2370 CONTINUE
3489      IF(ISAVE.LE.0)GOTO2390
3490      DO2375I=1,ISAVE
3491      I2=I
3492      IF(IX3.EQ.IXSAVE(I2).AND.IY3.EQ.IYSAVE(I2))GOTO2380
3493 2375 CONTINUE
3494      GOTO2390
3495 2380 CONTINUE
3496      K=K+1
3497      KS=KSAVE(I2)
3498      X2(K)=X2(KS)
3499      Y2(K)=Y2(KS)
3500CCCCC TAG(K)=TAG(KS)
3501      TAG(K)=ITRACE
3502      GOTO2390
3503 2390 CONTINUE
3504C
3505 2200 CONTINUE
3506 2100 CONTINUE
3507C
3508C               *********************************************
3509C               *********************************************
3510C               **  STEP 31--                              **
3511C               **  SCAN THE MATRIX--FOR EACH COLUMN,      **
3512C               **  SCAN DOWN   THE ROWS AND               **
3513C               **  SEARCH FOR Z VALUES WHICH BRACKET THE  **
3514C               **  TARGET Z0 CONTOUR VALUE.               **
3515C               *********************************************
3516C               *********************************************
3517C
3518      DO3100IX1=1,NXM1
3519      IX2=IX1+1
3520      AIX1=IX1
3521      AIX2=IX2
3522C
3523      DO3200IY1=1,NYM1
3524      IY2=IY1+1
3525      AIY1=IY1
3526      AIY2=IY2
3527C
3528      IF(IDONEV(IY1,IY2,IX1).EQ.'YES')GOTO3200
3529CCCCC WRITE(ICOUT,3201)IX1,IY1,Z(IX1,IY1)
3530C3201 FORMAT('IX1,IY1,Z(IX1,IY1) = ',2I8,E15.7)
3531CCCCC CALL DPWRST('XXX','BUG ')
3532CCCCC WRITE(ICOUT,3202)IDONEH(IX1,IX2,IY1),IDONEV(IY1,IY2,IX1)
3533C3202 FORMAT('IDONEH(IX1,IX2,IY1),IDONEV(IY1,IY2,IX1) = ',2A4)
3534CCCCC CALL DPWRST('XXX','BUG ')
3535      IF(Z(IX1,IY1).LE.Z0.AND.Z0.LE.Z(IX1,IY2))GOTO3210
3536      IF(Z(IX1,IY2).LE.Z0.AND.Z0.LE.Z(IX1,IY1))GOTO3210
3537      GOTO3200
3538C
3539 3210 CONTINUE
3540      ITRACE=ITRACE+1
3541CCCCC IF(ITRACE.EQ.5)
3542CCCCC1WRITE(ICOUT,3222)IY1,IY2,IX1,IDONEV(IY1,IY2,IX1)
3543C3222 FORMAT('IY1,IY2,IX1,IDONEV(IY1,IY2,IX1) = ',3I8,2X,A4)
3544CCCCC IF(ITRACE.EQ.5)
3545CCCCC1CALL DPWRST('XXX','BUG ')
3546      K=K+1
3547      ANUM=Z0-Z(IX1,IY1)
3548      ADEN=Z(IX1,IY2)-Z(IX1,IY1)
3549      P=ANUM/ADEN
3550      Y2(K)=AIY1+P*(AIY2-AIY1)
3551      X2(K)=IX1
3552      TAG(K)=ITRACE
3553      IDONEV(IY1,IY2,IX1)='YES'
3554C
3555C               ********************************************
3556C               ********************************************
3557C               **  STEP 32--                             **
3558C               **  A HIT HAS BEEN FOUND.                 **
3559C               **  THEREFORE, FOLLOW THE TRACE THROUGH   **
3560C               **  THE MATRIX UNTIL THE TRACE FINISHES.  **
3561C               ********************************************
3562C               ********************************************
3563C
3564      ISAVE=ISAVE+1
3565      IXSAVE(ISAVE)=IX1
3566      IYSAVE(ISAVE)=IY2
3567      KSAVE(ISAVE)=K
3568      WRITE(ICOUT,999)
3569      CALL DPWRST('XXX','BUG ')
3570CCCCC WRITE(ICOUT,3355)ISAVE,IXSAVE(ISAVE),IYSAVE(ISAVE),KSAVE(ISAVE)
3571C3355 FORMAT('ISAVE,IXSAVE(ISAVE),IYSAVE(ISAVE),KSAVE(ISAVE)= ',4I8)
3572CCCCC CALL DPWRST('XXX','BUG ')
3573CCCCC WRITE(ICOUT,3356)X2(K),Y2(K)
3574C3356 FORMAT('X2(K),Y2(K) = ',2E15.7)
3575CCCCC CALL DPWRST('XXX','BUG ')
3576C
3577      IX3=IX1
3578      IY3=IY2
3579      ISIDE1=3
3580      DO3300I=1,10000
3581      IF(IY3.LE.1)GOTO3370
3582      IF(IY3.GE.NYP1)GOTO3370
3583      IF(IX3.LE.0)GOTO3370
3584      IF(IX3.GE.NX)GOTO3370
3585      CALL DPCOP4(IX3,IY3,ISIDE1,ITRACE,Z0,
3586     1Z,IDONEH,IDONEV,
3587     1X2,Y2,TAG,K,ISIDE2,
3588     1IBUGG3,ISUBRO,IERROR)
3589      IF(IERROR.EQ.'YES')GOTO9000
3590      IF(ISIDE2.EQ.0)GOTO3370
3591      IF(ISIDE2.EQ.1)IY3=IY3+1
3592      IF(ISIDE2.EQ.2)IY3=IY3-1
3593      IF(ISIDE2.EQ.3)IX3=IX3-1
3594      IF(ISIDE2.EQ.4)IX3=IX3+1
3595      IF(ISIDE2.EQ.1)ISIDE1=2
3596      IF(ISIDE2.EQ.2)ISIDE1=1
3597      IF(ISIDE2.EQ.3)ISIDE1=4
3598      IF(ISIDE2.EQ.4)ISIDE1=3
3599 3300 CONTINUE
3600 3370 CONTINUE
3601      IF(ISAVE.LE.0)GOTO3390
3602      DO3375I=1,ISAVE
3603      I2=I
3604CCCCC WRITE(ICOUT,3376)I2,IX3,IY3,IXSAVE(I2),IYSAVE(I2)
3605C3376 FORMAT('I2,IX3,IY3,IXSAVE(I2),IYSAVE(I2) = ',5I8)
3606CCCCC CALL DPWRST('XXX','BUG ')
3607      IF(IX3.EQ.IXSAVE(I2).AND.IY3.EQ.IYSAVE(I2))GOTO3380
3608 3375 CONTINUE
3609      GOTO3390
3610 3380 CONTINUE
3611      K=K+1
3612      KS=KSAVE(I2)
3613      X2(K)=X2(KS)
3614      Y2(K)=Y2(KS)
3615CCCCC TAG(K)=TAG(KS)
3616      TAG(K)=ITRACE
3617CCCCC WRITE(ICOUT,3381)K,KS,X2(KS),Y2(KS),TAG(KS)
3618C3381 FORMAT('K,KS,X2(KS),Y2(KS),TAG(KS) = ',2I8,3E15.7)
3619CCCCC CALL DPWRST('XXX','BUG ')
3620      GOTO3390
3621 3390 CONTINUE
3622C
3623 3200 CONTINUE
3624 3100 CONTINUE
3625C
3626      N=K
3627      NTRACE=ITRACE
3628C
3629C               *****************
3630C               *****************
3631C               **  STEP 90--  **
3632C               **  EXIT       **
3633C               *****************
3634C               *****************
3635C
3636 9000 CONTINUE
3637      IF(IBUGG3.EQ.'OFF'.AND.ISUBRO.NE.'COP3')GOTO9090
3638      WRITE(ICOUT,999)
3639      CALL DPWRST('XXX','BUG ')
3640      WRITE(ICOUT,9011)
3641 9011 FORMAT('***** AT THE END       OF DPCOP3--')
3642      CALL DPWRST('XXX','BUG ')
3643      WRITE(ICOUT,9012)IBUGG3,ISUBRO,IERROR
3644 9012 FORMAT('IBUGG3,ISUBRO,IERROR = ',A4,2X,A4,2X,A4)
3645      CALL DPWRST('XXX','BUG ')
3646      WRITE(ICOUT,9013)Z0
3647 9013 FORMAT('Z0 = ',E15.7)
3648      CALL DPWRST('XXX','BUG ')
3649      WRITE(ICOUT,9014)NX,NY
3650 9014 FORMAT('NX,NY = ',2I8)
3651      CALL DPWRST('XXX','BUG ')
3652      DO9015IY=1,NY
3653      DO9016IX=1,NX
3654      WRITE(ICOUT,9017)IX,IY,Z(IX,IY)
3655 9017 FORMAT('IX,IY,Z(IX,IY) = ',2I8,E15.7)
3656      CALL DPWRST('XXX','BUG ')
3657 9016 CONTINUE
3658 9015 CONTINUE
3659C
3660 9090 CONTINUE
3661C
3662      RETURN
3663      END
3664      SUBROUTINE DPCOP4(IX3,IY3,ISIDE1,ITRACE,Z0,
3665     1Z,IDONEH,IDONEV,
3666     1X2,Y2,TAG,K,ISIDE2,
3667     1IBUGG3,ISUBRO,IERROR)
3668C
3669C     PURPOSE--EXAMINE THE BOX WITH LOWER LEFT CORNER
3670C              AT (IX3,IY3) AND WITH TRACE ENTRY SIDE
3671C              GIVEN BY ISIDE1--
3672C                 ISIDE1 = 1 IMPLIES ENTRY FROM BOTTOM
3673C                 ISIDE1 = 2 IMPLIES ENTRY FROM TOP
3674C                 ISIDE1 = 3 IMPLIES ENTRY FROM LEFT
3675C                 ISIDE1 = 4 IMPLIES ENTRY FROM RIGHT
3676C              DETERMINE IF THE TRACE EXITS ANYWHERE
3677C              FROM THE BOX--THAT IS, IN ANY OF THE
3678C              3 REMAINING SIDES OF THE BOX.
3679C              IF AN EXIT IS FOUND, RECORD WHICH SIDE
3680C              THE EXIT WAS MADE FROM,
3681C              INTERPOLATE TO GET AN X AND Y VALUE
3682C              FROM THAT SIDE SO THAT Z(.,.) = Z0,
3683C              AND UPDATE THE ARRAYS Y2(.), X2(.), AND TAG(.)
3684C              ACCORDINGLY.
3685C     NOTE--THIS SUBROUTINE USED TO BE CALLED   NEXT
3686C
3687C---------------------------------------------------------------------
3688C
3689      CHARACTER*4 IDONEH
3690      CHARACTER*4 IDONEV
3691C
3692      CHARACTER*4 IBUGG3
3693      CHARACTER*4 ISUBRO
3694      CHARACTER*4 IERROR
3695C
3696      DIMENSION Z(100,100)
3697      DIMENSION IDONEH(20,20,20)
3698      DIMENSION IDONEV(20,20,20)
3699C
3700      DIMENSION X2(1)
3701      DIMENSION Y2(1)
3702      DIMENSION TAG(1)
3703C
3704C-----COMMON VARIABLES (GENERAL)-----------------------------------------------
3705C
3706      INCLUDE 'DPCOP2.INC'
3707C
3708C-----START POINT-----------------------------------------------------
3709C
3710CCCCC IF(K.EQ.52.OR.K.EQ.53)IBUGG3='ON'
3711CCCCC IBUGG3='OFF'
3712CCCCC IF(ITRACE.EQ.3)IBUGG3='ON'
3713C
3714      IF(IBUGG3.EQ.'OFF'.AND.ISUBRO.NE.'COP4')GOTO90
3715      WRITE(ICOUT,999)
3716  999 FORMAT(1X)
3717      CALL DPWRST('XXX','BUG ')
3718      WRITE(ICOUT,51)
3719   51 FORMAT('***** AT THE BEGINNING OF DPNEXT--')
3720      CALL DPWRST('XXX','BUG ')
3721      WRITE(ICOUT,52)IBUGG3,ISUBRO,IERROR
3722   52 FORMAT('IBUGG3,ISUBRO,IERROR = ',A4,2X,A4,2X,A4)
3723      CALL DPWRST('XXX','BUG ')
3724      WRITE(ICOUT,53)IX3,IY3
3725   53 FORMAT('IX3,IY3 = ',2I8)
3726      CALL DPWRST('XXX','BUG ')
3727      WRITE(ICOUT,54)ISIDE1
3728   54 FORMAT('ISIDE1 = ',I8)
3729      CALL DPWRST('XXX','BUG ')
3730      WRITE(ICOUT,55)ITRACE
3731   55 FORMAT('ITRACE = ',I8)
3732      CALL DPWRST('XXX','BUG ')
3733      WRITE(ICOUT,56)Z0
3734   56 FORMAT('Z0 = ',E15.7)
3735      CALL DPWRST('XXX','BUG ')
3736   90 CONTINUE
3737C
3738      IX1=IX3
3739      IY1=IY3
3740      IX2=IX3+1
3741      IY2=IY3-1
3742      AIX1=IX1
3743      AIY1=IY1
3744      AIX2=IX2
3745      AIY2=IY2
3746C
3747      ISIDE2=0
3748      DO1000I=1,4
3749      IF(I.EQ.ISIDE1)GOTO1000
3750      IF(I.EQ.1)GOTO1100
3751      IF(I.EQ.2)GOTO1200
3752      IF(I.EQ.3)GOTO1300
3753      IF(I.EQ.4)GOTO1400
3754C
3755C               ***************************************
3756C               ***************************************
3757C               **  STEP 11--                        **
3758C               **  CHECK TO SEE IF THE TRACE EXITS  **
3759C               **  ON THE BOTTOM.                   **
3760C               ***************************************
3761C               ***************************************
3762C
3763 1100 CONTINUE
3764      IF(IBUGG3.EQ.'OFF'.AND.ISUBRO.NE.'COP4')GOTO1109
3765      WRITE(ICOUT,999)
3766      CALL DPWRST('XXX','BUG ')
3767      WRITE(ICOUT,1101)
3768 1101 FORMAT('CHECK FOR EXIT VIA SIDE 1 (BOTTOM)--')
3769      CALL DPWRST('XXX','BUG ')
3770      WRITE(ICOUT,1102)IX1,IX2,IY2,IDONEH(IX1,IX2,IY1)
3771 1102 FORMAT('IX1,IX2,IY2,IDONEH(IX1,IX2,IY1) = ',3I8,2X,A4)
3772      CALL DPWRST('XXX','BUG ')
3773      WRITE(ICOUT,1103)Z(IX1,IY1),Z0,Z(IX2,IY1)
3774 1103 FORMAT('Z(IX1,IY1),Z0,Z(IX2,IY1) = ',3E15.7)
3775      CALL DPWRST('XXX','BUG ')
3776 1109 CONTINUE
3777      IF(IDONEH(IX1,IX2,IY1).EQ.'YES')GOTO1000
3778      IF(Z(IX1,IY1).LE.Z0.AND.Z0.LE.Z(IX2,IY1))GOTO1110
3779      IF(Z(IX2,IY1).LE.Z0.AND.Z0.LE.Z(IX1,IY1))GOTO1110
3780      GOTO1000
3781C
3782 1110 CONTINUE
3783      K=K+1
3784      ANUM=Z0-Z(IX1,IY1)
3785      ADEN=Z(IX2,IY1)-Z(IX1,IY1)
3786      P=ANUM/ADEN
3787      X2(K)=AIX1+P*(AIX2-AIX1)
3788      Y2(K)=IY1
3789      TAG(K)=ITRACE
3790      IDONEH(IX1,IX2,IY1)='YES'
3791      ISIDE2=1
3792      GOTO9000
3793C
3794C               ***************************************
3795C               ***************************************
3796C               **  STEP 12--                        **
3797C               **  CHECK TO SEE IF THE TRACE EXITS  **
3798C               **  ON THE TOP.                      **
3799C               ***************************************
3800C               ***************************************
3801C
3802 1200 CONTINUE
3803      IF(IBUGG3.EQ.'OFF'.AND.ISUBRO.NE.'COP4')GOTO1209
3804      WRITE(ICOUT,999)
3805      CALL DPWRST('XXX','BUG ')
3806      WRITE(ICOUT,1201)
3807 1201 FORMAT('CHECK FOR EXIT VIA SIDE 2 (TOP)--')
3808      CALL DPWRST('XXX','BUG ')
3809      WRITE(ICOUT,1202)IX1,IX2,IY2,IDONEH(IX1,IX2,IY2)
3810 1202 FORMAT('IX1,IX2,IY2,IDONEH(IX1,IX2,IY2) = ',3I8,2X,A4)
3811      CALL DPWRST('XXX','BUG ')
3812      WRITE(ICOUT,1203)Z(IX1,IY2),Z0,Z(IX2,IY2)
3813 1203 FORMAT('Z(IX1,IY2),Z0,Z(IX2,IY2) = ',3E15.7)
3814      CALL DPWRST('XXX','BUG ')
3815 1209 CONTINUE
3816      IF(IDONEH(IX1,IX2,IY2).EQ.'YES')GOTO1000
3817      IF(Z(IX1,IY2).LE.Z0.AND.Z0.LE.Z(IX2,IY2))GOTO1210
3818      IF(Z(IX2,IY2).LE.Z0.AND.Z0.LE.Z(IX1,IY2))GOTO1210
3819      GOTO1000
3820C
3821 1210 CONTINUE
3822      K=K+1
3823      ANUM=Z0-Z(IX1,IY2)
3824      ADEN=Z(IX2,IY2)-Z(IX1,IY2)
3825      P=ANUM/ADEN
3826      X2(K)=AIX1+P*(AIX2-AIX1)
3827      Y2(K)=IY2
3828      TAG(K)=ITRACE
3829      IDONEH(IX1,IX2,IY2)='YES'
3830      ISIDE2=2
3831      GOTO9000
3832C
3833C               ***************************************
3834C               ***************************************
3835C               **  STEP 13--                        **
3836C               **  CHECK TO SEE IF THE TRACE EXITS  **
3837C               **  ON THE LEFT.                     **
3838C               ***************************************
3839C               ***************************************
3840C
3841 1300 CONTINUE
3842      IF(IBUGG3.EQ.'OFF'.AND.ISUBRO.NE.'COP4')GOTO1309
3843      WRITE(ICOUT,999)
3844      CALL DPWRST('XXX','BUG ')
3845      WRITE(ICOUT,1301)
3846 1301 FORMAT('CHECK FOR EXIT VIA SIDE 3 (LEFT)--')
3847      CALL DPWRST('XXX','BUG ')
3848      WRITE(ICOUT,1302)IY2,IY1,IX1,IDONEV(IY2,IY1,IX1)
3849 1302 FORMAT('IY2,IY1,IX1,IDONEV(IY2,IY1,IX1) = ',3I8,2X,A4)
3850      CALL DPWRST('XXX','BUG ')
3851      WRITE(ICOUT,1303)Z(IX1,IY1),Z0,Z(IX1,IY2)
3852 1303 FORMAT('Z(IX1,IY1),Z0,Z(IX1,IY2) = ',3E15.7)
3853      CALL DPWRST('XXX','BUG ')
3854 1309 CONTINUE
3855      IF(IDONEV(IY2,IY1,IX1).EQ.'YES')GOTO1000
3856      IF(Z(IX1,IY1).LE.Z0.AND.Z0.LE.Z(IX1,IY2))GOTO1310
3857      IF(Z(IX1,IY2).LE.Z0.AND.Z0.LE.Z(IX1,IY1))GOTO1310
3858      GOTO1000
3859C
3860 1310 CONTINUE
3861      K=K+1
3862      ANUM=Z0-Z(IX1,IY1)
3863      ADEN=Z(IX1,IY2)-Z(IX1,IY1)
3864      P=ANUM/ADEN
3865      Y2(K)=AIY1+P*(AIY2-AIY1)
3866      X2(K)=IX1
3867      TAG(K)=ITRACE
3868      IDONEV(IY2,IY1,IX1)='YES'
3869      ISIDE2=3
3870      GOTO9000
3871C
3872C               ***************************************
3873C               ***************************************
3874C               **  STEP 14--                        **
3875C               **  CHECK TO SEE IF THE TRACE EXITS  **
3876C               **  ON THE RIGHT.                    **
3877C               ***************************************
3878C               ***************************************
3879C
3880 1400 CONTINUE
3881      IF(IBUGG3.EQ.'OFF'.AND.ISUBRO.NE.'COP4')GOTO1409
3882      WRITE(ICOUT,999)
3883      CALL DPWRST('XXX','BUG ')
3884      WRITE(ICOUT,1401)
3885 1401 FORMAT('CHECK FOR EXIT VIA SIDE 4 (RIGHT)--')
3886      CALL DPWRST('XXX','BUG ')
3887      WRITE(ICOUT,1402)IY2,IY1,IX2,IDONEV(IY2,IY1,IX2)
3888 1402 FORMAT('IY2,IY1,IX2,IDONEV(IY2,IY1,IX2) = ',3I8,2X,A4)
3889      CALL DPWRST('XXX','BUG ')
3890      WRITE(ICOUT,1403)Z(IX2,IY1),Z0,Z(IX2,IY2)
3891 1403 FORMAT('Z(IX2,IY1),Z0,Z(IX2,IY2) = ',3E15.7)
3892      CALL DPWRST('XXX','BUG ')
3893 1409 CONTINUE
3894      IF(IDONEV(IY2,IY1,IX2).EQ.'YES')GOTO1000
3895      IF(Z(IX2,IY1).LE.Z0.AND.Z0.LE.Z(IX2,IY2))GOTO1410
3896      IF(Z(IX2,IY2).LE.Z0.AND.Z0.LE.Z(IX2,IY1))GOTO1410
3897      GOTO1000
3898C
3899 1410 CONTINUE
3900      K=K+1
3901      ANUM=Z0-Z(IX2,IY1)
3902      ADEN=Z(IX2,IY2)-Z(IX2,IY1)
3903      P=ANUM/ADEN
3904      Y2(K)=AIY1+P*(AIY2-AIY1)
3905      X2(K)=IX2
3906      TAG(K)=ITRACE
3907      IDONEV(IY2,IY1,IX2)='YES'
3908      ISIDE2=4
3909      GOTO9000
3910C
3911 1000 CONTINUE
3912C
3913C               *****************
3914C               *****************
3915C               **  STEP 90--  **
3916C               **  EXIT       **
3917C               *****************
3918C               *****************
3919C
3920 9000 CONTINUE
3921      IF(IBUGG3.EQ.'OFF'.AND.ISUBRO.NE.'COP4')GOTO9090
3922      WRITE(ICOUT,999)
3923      CALL DPWRST('XXX','BUG ')
3924      WRITE(ICOUT,9011)
3925 9011 FORMAT('***** AT THE END       OF DPNEXT--')
3926      CALL DPWRST('XXX','BUG ')
3927      WRITE(ICOUT,9012)IBUGG3,ISUBRO,IERROR
3928 9012 FORMAT('IBUGG3,ISUBRO,IERROR = ',A4,2X,A4,2X,A4)
3929      CALL DPWRST('XXX','BUG ')
3930      WRITE(ICOUT,9013)IX3,IY3
3931 9013 FORMAT('IX3,IY3 = ',2I8)
3932      CALL DPWRST('XXX','BUG ')
3933      WRITE(ICOUT,9014)ISIDE1
3934 9014 FORMAT('ISIDE1 = ',I8)
3935      CALL DPWRST('XXX','BUG ')
3936      WRITE(ICOUT,9015)ITRACE
3937 9015 FORMAT('ITRACE = ',I8)
3938      CALL DPWRST('XXX','BUG ')
3939      WRITE(ICOUT,9016)Z0
3940 9016 FORMAT('Z0 = ',E15.7)
3941      CALL DPWRST('XXX','BUG ')
3942      WRITE(ICOUT,9021)ISIDE2
3943 9021 FORMAT('ISIDE2 = ',I8)
3944      CALL DPWRST('XXX','BUG ')
3945      WRITE(ICOUT,9022)K
3946 9022 FORMAT('K = ',I8)
3947      CALL DPWRST('XXX','BUG ')
3948      DO9023I=1,K
3949CCCCC WRITE(ICOUT,9024)I,X2(I),Y2(I),TAG(I)
3950C9024 FORMAT('I,X2(I),Y2(I),TAG(I) = ',I8,3E15.7)
3951CCCCC CALL DPWRST('XXX','BUG ')
3952 9023 CONTINUE
3953 9090 CONTINUE
3954C
3955      RETURN
3956      END
3957      SUBROUTINE DPCORU(ICOM,IHARG,NUMARG,
3958     1IFOUND,IERROR)
3959C
3960C     PURPOSE--WRITE OUT A COLUMN RULER (1 TO 132)
3961C              TO ALLOW THE USER TO ASSESS WHAT COLUMN LIMITS
3962C              ARE APPROPRIATE IN READING FROM A FILE.
3963C     INPUT  ARGUMENTS--ICOM
3964C                     --IHARG
3965C                     --NUMARG
3966C     OUTPUT ARGUMENTS--IFOUND ('YES' OR 'NO')
3967C                     --IERROR ('YES' OR 'NO' )
3968C     WRITTEN BY--JAMES J. FILLIBEN
3969C                 STATISTICAL ENGINEERING DIVISION
3970C                 INFORMATION TECHNOLOGY LABORATORY
3971C                 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY
3972C                 GAITHERSBURG, MD 20899
3973C                 PHONE--301-975-2855
3974C     NOTE--DATAPLOT IS A REGISTERED TRADEMARK
3975C           OF THE NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY.
3976C           THIS SUBROUTINE MAY NOT BE COPIED, EXTRACTED,
3977C           MODIFIED, OR OTHERWISE USED IN A CONTEXT
3978C           OUTSIDE OF THE DATAPLOT LANGUAGE/SYSTEM.
3979C     LANGUAGE--ANSI FORTRAN (1977)
3980C     VERSION NUMBER--89/12
3981C     ORIGINAL VERSION--NOVEMBER 1989.
3982C
3983C-----CHARACTER STATEMENTS FOR NON-COMMON VARIABLES-------------------
3984C
3985      CHARACTER*4 ICOM
3986      CHARACTER*4 IHARG
3987C
3988      CHARACTER*4 IFOUND
3989      CHARACTER*4 IERROR
3990C
3991C---------------------------------------------------------------------
3992C
3993      DIMENSION IHARG(*)
3994C
3995C---------------------------------------------------------------------
3996C
3997      INCLUDE 'DPCOP2.INC'
3998C
3999C-----START POINT-----------------------------------------------------
4000C
4001      IFOUND='YES'
4002      IERROR='NO'
4003C
4004      IF(NUMARG.GE.1.AND.IHARG(1).EQ.'RULE')GOTO1110
4005      IF(ICOM.EQ.'RULE')GOTO1110
4006C
4007      GOTO1120
4008C
4009 1110 CONTINUE
4010      WRITE(ICOUT,1111)
4011 1111 FORMAT('123456789.123456789.123456789.123456789.123456789.',
4012     1'123456789.123456789.123456789.')
4013      CALL DPWRST('XXX','BUG ')
4014      WRITE(ICOUT,1112)
4015 1112 FORMAT('         10        20        30        40        5',
4016     1'0        60        70     ')
4017      CALL DPWRST('XXX','BUG ')
4018      GOTO9000
4019C
4020 1120 CONTINUE
4021      WRITE(ICOUT,1121)
4022 1121 FORMAT('          123456789.123456789.123456789.123456789.',
4023     1'123456789.123456789.123456789.')
4024      CALL DPWRST('XXX','BUG ')
4025      WRITE(ICOUT,1122)
4026 1122 FORMAT('                   10        20        30        4',
4027     1'0        50        60     ')
4028      CALL DPWRST('XXX','BUG ')
4029      GOTO9000
4030C
4031C               *****************
4032C               **  STEP 90--  **
4033C               **  EXIT       **
4034C               *****************
4035C
4036 9000 CONTINUE
4037      RETURN
4038      END
4039      SUBROUTINE GRKICR
4040CC
4041CC     PURPOSE--KILL (SUPPRESS) THE CARRIAGE RETURN AFTER FUTURE WRITES
4042CC              ON A GENERAL GRAPHICS DEVICE
4043CC              THIS IS NEEDED FOR SOME DEVICES IN ORDER TO
4044CC              READ THE CROSS-HAIR POSITION FROM THE SCREEN.
4045CC     NOTE--THIS SUBROUTINE IS NON-STANDARD FORTRAN
4046CC           AND WILL VARY FROM SITE TO SITE.
4047CC           THE BODY OF THIS SUBROUTINE MUST BE
4048CC           CHANGED BY THE IMPLEMENTOR.
4049CC           THIS SUBROUTINE IS FOR UNIVAC 1100/82.
4050CC           THE PURPOSE OF    GRKICH  IS TO SUPPRESS THE CARRIAGE RETURN
4051CC           AT THE END OF A WRITE STATEMENT BECAUSE IT
4052CC           "GETS IN THE WAY"  DURING THE
4053CC           READING OF THE CROSS-HAIR.
4054CC     WRITTEN BY--MICHAEL VOGT
4055CC                 COMPUTER SERVICES DIVISION
4056CC                 INFORMATION TECHNOLOGY LABORATORY
4057CC                 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY
4058CC                 GAITHERSBURG, MD 20899
4059CC     LANGUAGE--ANSI FORTRAN (1977)
4060CC     VERSION NUMBER--82.6
4061CC     ORIGINAL VERSION--APRIL     1978.
4062CC     UPDATED         --APRIL     1982.
4063CC     UPDATED         --MAY       1982.
4064CC
4065CC---------------------------------------------------------------------
4066CC
4067C      CHARACTER*80 ISTRIN
4068CC
4069C      DIMENSION ISPKT(8)
4070CC
4071C-----COMMON----------------------------------------------------------
4072C
4073C     INCLUDE 'DPCOHO.INC'
4074C
4075C-----COMMON VARIABLES (GENERAL)--------------------------------------
4076CC
4077      INCLUDE 'DPCOP2.INC'
4078CC
4079CC-----START POINT-----------------------------------------------------
4080CC
4081C      INCLUDE FIOP
4082CC
4083CC     THE FOLLOWING IS FOR THE UNIVAC--
4084CC
4085C      IF(IHOST1.EQ.'UNIV')GOTO510
4086C      GOTO520
4087C  510 CONTINUE
4088C      GOTO1000
4089CC
4090CC     THE FOLLOWING IS FOR THE VAX--
4091CC     THE FOLLOWING IS FOR THE IBM--
4092CC     THE FOLLOWING IS FOR THE PERKIN-ELMER--
4093CC     THE FOLLOWING IS FOR THE INTERDATA--
4094CC     THE FOLLOWING IS FOR ALL NON-UNIVAC--
4095CC
4096C  520 CONTINUE
4097C      GOTO9000
4098CC
4099C 1000 CONTINUE
4100C      DO1100I=1,8
4101C      ISPKT(I)=0
4102C 1100 CONTINUE
4103CC
4104C      ISPKT(1)=14
4105C      IFUNC(ISPKT)=FSM
4106C      IMODE(ISPKT)=IASC
4107C      IIMGAD(ISPKT)=LOC(ISTRIN)
4108C      ISTRIN='D,@@TTY A,2'
4109C      ICHCT(ISPKT)=TRMLEN(ISTRIN)
4110C      CALL FSYMB(ISPKT)
4111CC
4112CC               *****************
4113CC               **  STEP 90--  **
4114CC               **  EXIT       **
4115CC               *****************
4116CC
4117C 9000 CONTINUE
4118       RETURN
4119       END
4120      SUBROUTINE GRRECR
4121CC
4122CC     PURPOSE--REVIVE THE CARRIAGE RETURN FOR FUTURE WRITES
4123CC              THIS IS NEEDED FOR SOME DEVICES AFTER
4124CC              READING THE CROSS-HAIR POSITION FROM THE SCREEN.
4125CC     NOTE--THIS SUBROUTINE IS NON-STANDARD FORTRAN
4126CC           AND WILL VARY FROM SITE TO SITE.
4127CC           THE BODY OF THIS SUBROUTINE MUST BE
4128CC           CHANGED BY THE IMPLEMENTOR.
4129CC           THIS SUBROUTINE IS FOR UNIVAC 1100/82.
4130CC           THE PURPOSE OF    GRKICH  IS TO REVIVE THE CARRIAGE RETURN
4131CC           AT THE END OF A WRITE STATEMENT.
4132CC           THE REASON THAT THE CARRIAGE RETURN WOULD HAVE BEEN
4133CC           KILLED (SUPPRESSED) IS THAT IT (FOR EXAMPLE)
4134CC           "GETS IN THE WAY"  DURING THE
4135CC           READING OF THE CROSS-HAIR.
4136CC     WRITTEN BY--MICHAEL VOGT
4137CC                 COMPUTER SERVICES DIVISION
4138CC                 INFORMATION TECHNOLOGY LABORATORY
4139CC                 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY
4140CC                 GAITHERSBURG, MD 20899
4141CC     LANGUAGE--ANSI FORTRAN (1977)
4142CC     VERSION NUMBER--82.6
4143CC     ORIGINAL VERSION--APRIL     1978.
4144CC     UPDATED         --APRIL     1982.
4145CC     UPDATED         --MAY       1982.
4146CC
4147CC---------------------------------------------------------------------
4148CC
4149C      CHARACTER*80 ISTRIN
4150CC
4151C      DIMENSION ISPKT(8)
4152CC
4153C-----COMMON----------------------------------------------------------
4154C
4155C     INCLUDE 'DPCOHO.INC'
4156C
4157C-----COMMON VARIABLES (GENERAL)--------------------------------------
4158C
4159      INCLUDE 'DPCOP2.INC'
4160C
4161C------START POINT-----------------------------------------------------
4162C
4163C      INCLUDE FIOP
4164C
4165C      THE FOLLOWING IS FOR THE UNIVAC--
4166C
4167C      IF(IHOST1.EQ.'UNIV')GOTO510
4168C      GOTO520
4169C  510 CONTINUE
4170C      GOTO1000
4171CC
4172CC     THE FOLLOWING IS FOR THE VAX--
4173CC     THE FOLLOWING IS FOR THE IBM--
4174CC     THE FOLLOWING IS FOR THE PERKIN-ELMER--
4175CC     THE FOLLOWING IS FOR THE INTERDATA--
4176CC     THE FOLLOWING IS FOR ALL NON-UNIVAC--
4177CC
4178C  520 CONTINUE
4179C      GOTO9000
4180CC
4181C 1000 CONTINUE
4182C      DO1100I=1,8
4183C      ISPKT(I)=0
4184C 1100 CONTINUE
4185CC
4186C      ISPKT(1)=14
4187C      IFUNC(ISPKT)=FSM
4188C      IMODE(ISPKT)=IASC
4189C      IIMGAD(ISPKT)=LOC(ISTRIN)
4190C      ISTRIN='D,@@TTY A,0'
4191C      ICHCT(ISPKT)=TRMLEN(ISTRIN)
4192C      CALL FSYMB(ISPKT)
4193CC
4194CC               *****************
4195CC               **  STEP 90--  **
4196CC               **  EXIT       **
4197CC               *****************
4198CC
4199C 9000 CONTINUE
4200      RETURN
4201      END
4202      SUBROUTINE UNIRAN(N,ISEED,X)
4203C
4204C     PURPOSE--THIS SUBROUTINE GENERATES A RANDOM SAMPLE OF SIZE N
4205C              FROM THE UNIFORM (RECTANGULAR)
4206C              DISTRIBUTION ON THE UNIT INTERVAL (0,1).
4207C              THIS DISTRIBUTION HAS MEAN = 0.5
4208C              AND STANDARD DEVIATION = SQRT(1/12) = 0.28867513.
4209C              THIS DISTRIBUTION HAS THE PROBABILITY
4210C              DENSITY FUNCTION F(X) = 1.
4211C
4212C     INPUT  ARGUMENTS--N      = THE DESIRED INTEGER NUMBER
4213C                                OF RANDOM NUMBERS TO BE
4214C                                GENERATED.
4215C                     --ISEED  = AN INTEGER ISEED VALUE
4216C     OUTPUT ARGUMENTS--X      = A SINGLE PRECISION VECTOR
4217C                                (OF DIMENSION AT LEAST N)
4218C                                INTO WHICH THE GENERATED
4219C                                RANDOM SAMPLE WILL BE PLACED.
4220C     OUTPUT--A RANDOM SAMPLE OF SIZE N
4221C             FROM THE RECTANGULAR DISTRIBUTION ON (0,1).
4222C     PRINTING--NONE UNLESS AN INPUT ARGUMENT ERROR CONDITION EXISTS.
4223C     RESTRICTIONS--THERE IS NO RESTRICTION ON THE MAXIMUM VALUE
4224C                   OF N FOR THIS SUBROUTINE.
4225C     OTHER           SUBROUTINES NEEDED--NONE.
4226C     FORTRAN LIBRARY SUBROUTINES NEEDED--NONE.
4227C     MODE OF INTERNAL OPERATIONS--SINGLE PRECISION.
4228C     LANGUAGE--ANSI FORTRAN (1977)
4229C
4230C     ALGORITHM--FIBONACCI GENERATOR
4231C                AS DEFINED BY GEORGE MARSAGLIA.
4232C
4233C     NOTE--THIS GENERATOR IS TRANSPORTABLE.
4234C           IT IS NOT MACHINE-INDEPENDENT
4235C           IN THE SENSE THAT FOR A GIVEN VALUE
4236C           OF THE INPUT SEED ISEED AND FOR A GIVEN VALUE
4237C           OF MDIG (TO BE DEFINED BELOW),
4238C           THE SAME SEQUENCE OF UNIRFORM RANDOM
4239C           NUMBERS WILL RESULT ON DIFFERENT COMPUTERS
4240C           (VAX, PRIME, PERKIN-ELMER, IBM, UNIVAC, HONEYWELL, ETC.)
4241C
4242C     NOTE--IF MDIG = 32 AND IF ISEED = 305,
4243C           THEN THE OUTPUT FROM THIS GENERATOR SHOULD BE AS FOLLOWS--
4244C           THE FIRST      NUMBER TO RESULT IS .4771580...
4245C           THE SECOND     NUMBER TO RESULT IS .4219293...
4246C           THE THIRD      NUMBER TO RESULT IS .6646181...
4247C           ...
4248C           THE THOUSANDTH NUMBER TO RESULT IS .2036834...
4249C
4250C     NOTE--IF MDIG = 16 AND IF ISEED = 305,
4251C           THEN THE OUTPUT FROM THIS GENERATOR SHOULD BE AS FOLLOWS--
4252C           THE FIRST      NUMBER TO RESULT IS .027832881...
4253C           THE SECOND     NUMBER TO RESULT IS .56102176...
4254C           THE THIRD      NUMBER TO RESULT IS .41456343...
4255C           ...
4256C           THE THOUSANDTH NUMBER TO RESULT IS .19797357...
4257C
4258C     NOTE--IT IS RECOMMENDED THAT UPON
4259C           IMPLEMENTATION OF DATAPLOT, THE OUTPUT
4260C           FROM UNIRAN BE CHECKED FOR AGREEMENT
4261C           WITH THE ABOVE SAMPLE OUTPUT.
4262C           ALSO, THERE ARE MANY ANALYSIS AND DIAGNOSTIC
4263C           TOOLS IN DATAPLOT THAT WILL ALLOW THE
4264C           TESTING OF THE RANDOMNESS AND UNIFORMITY
4265C           OF THIS GENERATOR.
4266C           SUCH CHECKING IS ESPECIALLY IMPORTANT
4267C           IN LIGHT OF THE FACT THAT OTHER DATAPLOT RANDOM
4268C           NUMBER GENERATOR SUBROUTINES (NORRAN--NORMAL,
4269C           LOGRAN--LOGISTIC, ETC.) ALL MAKE USE OF INTERMEDIATE
4270C           OUTPUT FROM UNIRAN.
4271C
4272C     NOTE--THE OUTPUT FROM THIS SUBROUTINE DEPENDS
4273C           ON THE INPUT SEED (ISEED) AND ON THE
4274C           VALUE OF MDIG.
4275C           MDIG MAY NOT BE SMALLER THAN 16.
4276C           MDIG MAY NOT BE LARGER THAN MAX INTEGER ON YOUR COMPUTER.
4277C
4278C     NOTE--BECAUSE OF THE PREPONDERANCE OF MAINFRAMES
4279C           WHICH HAVE WORDS OF 32 BITS AND LARGER
4280C           (E.G, VAX (= 32 BITS), UNIVAC (= 36 BITS), CDC (= 60 BITS), ETC.)
4281C           MDIG HAS BEEN SET TO 32.
4282C           THUS THE SAME SEQUENCE OF RANDOM NUMBERS SHOULD RESULT
4283C           ON ALL OF THESE COMPUTERS.
4284C
4285C     NOTE--FOR SMALLER WORD SIZE COMPUTERS (E.G., 24-BIT AND 16-BIT),
4286C           THE VALUE OF MDIG SHOULD BE CHANGED TO 24 OR 16.
4287C           IN SUCH CASE, THE OUTPUT WILL NOT BE IDENTICAL TO
4288C           THE OUTPUT WHEN MDIG = 32.
4289C
4290C     NOTE--THE CYCLE OF THE RANDOM NUMBERS DEPENDS ON MDIG.
4291C           THE CYCLE FROM MDIG = 32 IS LONG ENOUGH FOR MOST
4292C           PRACTICAL APPLICATIONS.
4293C           IF A LONGER CYCLE IS DESIRED, THEN INCREASE MDIG.
4294C
4295C     NOTE--THE SEED MAY BE ANY POSITIVE INTEGER.
4296C           NO APPRECIABLE DIFFERENCE IN THE QUALITY
4297C           OF THE RANDOM NUMBERS HAS BEEN NOTED
4298C           BY THE CHOICE OF THE SEED.  THERE IS NO
4299C           NEED TO USE PRIMES, NOR TO USE EXCEPTIONALLY
4300C           LARGE NUMBERS, ETC.
4301C
4302C     REFERENCES--MARSAGLIA G., "COMMENTS ON THE PERFECT UNIFORM RANDOM
4303C                 NUMBER GENERATOR", UNPUBLISHED NOTES, WASH S. U.
4304C               --JOHNSON AND KOTZ, CONTINUOUS UNIVARIATE
4305C                 DISTRIBUTIONS--2, 1970, PAGES 57-74.
4306C     WRITTEN BY--JAMES BLUE
4307C                 SCIENTIFIC COMPUTING DIVISION
4308C                 INFORMATION TECHNOLOGY LABORATORY
4309C                 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY
4310C                 GAITHERSBURG, MD 20899
4311C               --DAVID KAHANER
4312C                 SCIENTIFIC COMPUTING DIVISION
4313C                 INFORMATION TECHNOLOGY LABORATORY
4314C                 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY
4315C               --GEORGE MARSAGLIA
4316C                 COMPUTER SCIENCE DEPARTMENT
4317C                 WASHINGTON STATE UNIVERSITY
4318C               --JAMES J. FILLIBEN
4319C                 STATISTICAL ENGINEERING DIVISION
4320C                 INFORMATION TECHNOLOGY LABORATORY
4321C                 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY
4322C
4323C     LANGUAGE--ANSI FORTRAN (1977)
4324C     ORIGINAL VERSION--JUNE      1972.
4325C     UPDATED         --AUGUST    1974.
4326C     UPDATED         --SEPTEMBER 1975.
4327C     UPDATED         --NOVEMBER  1975.
4328C     UPDATED         --NOVEMBER  1981.
4329C     UPDATED         --MAY       1982.
4330C     UPDATED         --MARCH     1984.
4331C     UPDATED         --MAY       2002. ADD SUPPORT FOR ADDITIONAL
4332C                                       RANDOM NUMBER GENERATORS.
4333C                                       INITIAL LIST INCLUDES:
4334C                                       RUNIF = LINEAR CONGRUENTIAL
4335C                                       SUNIF = MULTIPLICATIVE
4336C                                               CONGRUENTIAL
4337C                                       NOTE THAT DEFAULT GENERATOR
4338C                                       IS EQUIVALENT TO CMLIB
4339C                                       ROUTINE "UNI" (SO WE DO NOT
4340C                                       INCLUDE THAT ONE).
4341C                                       GENERALIZED FEEDBACK SHIFT
4342C                                       REGISTER (GFSR) OF PAYNE AND
4343C                                       LEWIS (AS IMPLEMENTED BY
4344C                                       MONOHAN).
4345C                                       GENERALIZED FEEDBACK SHIFT
4346C                                       REGISTER (GFSR) OF FUSHIMI AND
4347C                                       TEZUKA (AS IMPLEMENTED BY
4348C                                       MONOHAN).
4349C                                       APPLIED STATISTICS 183 (SUM
4350C                                       OF 3 MULTIPLICATIVE
4351C                                       CONGRUENTIAL GENERATORS)
4352C     UPDATED         --APRIL     2003. ADD ALAN GENZ GENERATOR
4353C     UPDATED         --MAY       2003. ADD R250 AND RANLUX
4354C                                       GENERATORS
4355C     UPDATED         --NOVEMBER  2003. ADD MERSENNE TWISTER
4356C                                       ALGORITHM
4357C     UPDATED         --DECEMBER  2003. SEPARATE SEED VALUES FOR
4358C                                       DIFFERENT GENERATORS
4359C     UPDATED         --OCTOBER   2009. SAVE ISED1 - ISED11 IN COMMON
4360C                                       (SO CALLING ROUTINES CAN
4361C                                       "RE-INITIALIZE" SEED IF SO
4362C                                       DESIRED)
4363C
4364C-----CHARACTER STATEMENTS FOR NON-COMMON VARIABLES-------------------
4365C
4366C---------------------------------------------------------------------
4367C
4368      DIMENSION X(*)
4369C
4370      DIMENSION M(17)
4371      DIMENSION T(33)
4372C
4373      EXTERNAL UNI
4374      DOUBLE PRECISION UNI
4375CCCCC DOUBLE PRECISION GRND
4376C
4377C---------------------------------------------------------------------
4378C
4379      INCLUDE 'DPCOST.INC'
4380      INCLUDE 'DPCOP2.INC'
4381C
4382C-----SAVE STATEMENTS-------------------------------------------------
4383C
4384      COMMON/ISED/ISED1,ISED2,ISED3,ISED4,ISED5,ISED6,
4385     1            ISED7,ISED8,ISED9,ISED10,ISED11
4386C
4387      SAVE I,J,M,M1,M2
4388CCCCC SAVE ISED1,ISED2,ISED3,ISED4,ISED5,ISED6
4389CCCCC SAVE ISED7,ISED8,ISED9,ISED10,ISED11
4390      SAVE ISDSAV
4391      SAVE T
4392C
4393C-----DATA STATEMENTS-------------------------------------------------
4394C
4395      DATA M(1),M(2),M(3),M(4),M(5),M(6),M(7),M(8),M(9),M(10),M(11),
4396     1     M(12),M(13),M(14),M(15),M(16),M(17)
4397     1/    30788,23052,2053,19346,10646,19427,23975,
4398     1     19049,10949,19693,29746,26748,2796,23890,
4399     1     29168,31924,16499/
4400      DATA M1,M2,I,J / 32767,256,5,17 /
4401      DATA ISED1 /0/
4402      DATA ISED2 /0/
4403      DATA ISED3 /0/
4404      DATA ISED4 /0/
4405      DATA ISED5 /0/
4406      DATA ISED6 /0/
4407      DATA ISED7 /0/
4408      DATA ISED8 /0/
4409      DATA ISED9 /0/
4410      DATA ISED10 /0/
4411      DATA ISED11 /0/
4412      DATA ISDSAV /305/
4413C
4414C-----START POINT-----------------------------------------------------
4415C
4416C               ********************************************
4417C               **  STEP 1--                              **
4418C               **  CHECK THE INPUT ARGUMENTS FOR ERRORS  **
4419C               ********************************************
4420C
4421      IF(N.LT.1)THEN
4422        WRITE(ICOUT,999)
4423  999   FORMAT(1X)
4424        CALL DPWRST('XXX','BUG ')
4425        WRITE(ICOUT,51)
4426   51   FORMAT('***** ERROR IN UNIRAN--')
4427        CALL DPWRST('XXX','BUG ')
4428        WRITE(ICOUT,52)
4429   52   FORMAT('      THE INPUT NUMBER OF OBSERVATIONS IS ',
4430     1         'NON-POSITIVE.')
4431        CALL DPWRST('XXX','BUG ')
4432        WRITE(ICOUT,53)N
4433   53   FORMAT('      N = ',I8)
4434        CALL DPWRST('XXX','BUG ')
4435        GOTO9000
4436      ENDIF
4437C
4438      IF(IRANAL.EQ.'FIBO')GOTO1000
4439      IF(IRANAL.EQ.'FIBC')GOTO1500
4440      IF(IRANAL.EQ.'LINE')GOTO2000
4441      IF(IRANAL.EQ.'MULT')GOTO3000
4442      IF(IRANAL.EQ.'GFSR')GOTO4000
4443      IF(IRANAL.EQ.'GFS2')GOTO5000
4444      IF(IRANAL.EQ.'183 ')GOTO6000
4445      IF(IRANAL.EQ.'GENZ')GOTO7000
4446      IF(IRANAL.EQ.'R250')GOTO8000
4447      IF(IRANAL.EQ.'LUXU')GOTO8500
4448      IF(IRANAL.EQ.'MERT')GOTO8600
4449C
4450 1000 CONTINUE
4451C
4452C               *******************************************************
4453C               **  STEP 2--                                         **
4454C               **  IF A POSITIVE INPUT SEED HAS BEEN GIVEN,         **
4455C               **  THEN THIS INDICATES THAT THE GENERATOR           **
4456C               **  SHOULD HAVE ITS INTERNAL M(.) ARRAY REDEFINED--  **
4457C               **  DO SO IN THIS SECTION.                           **
4458C               **  IF A NON-POSITIVE INPUT SEED HAS BEEN GIVEN,     **
4459C               **  THEN THIS INDICATES THAT THE GENERATOR           **
4460C               **  SHOULD CONTINUE ON FROM WHERE IT LEFT OFF,       **
4461C               **  AND THEREFORE THIS SECTION IS SKIPPED.           **
4462C               *******************************************************
4463C
4464CCCCC IF(ISEED.LE.0)GOTO290
4465C
4466C  INITIALIZE IF NECESSARY
4467C
4468      IF(ISED1.EQ.0)THEN
4469        ISED1=-1
4470        IF(ISEED.GT.0)THEN
4471          ISDSAV=ISEED
4472        ELSE
4473          ISEED=ISDSAV
4474        ENDIF
4475      ELSE
4476        IF(ISEED.LE.0)GOTO290
4477        ISDSAV=ISEED
4478      ENDIF
4479C
4480C  END OF INITIALIZATION
4481C
4482C
4483CCCCC MDIG=16
4484      MDIG=32
4485C
4486      M1=2**(MDIG-2)+(2**(MDIG-2)-1)
4487      M2=2**(MDIG/2)
4488CCCCC ISEED3=MIN0(IABS(ISEED),M1)
4489      ISEED3=IABS(ISEED)
4490      IF(M1.LT.IABS(ISEED))ISEED3=M1
4491      IF(MOD(ISEED3,2).EQ.0)ISEED3=ISEED3-1
4492      K0=MOD(9069,M2)
4493      K1=9069/M2
4494      J0=MOD(ISEED3,M2)
4495      J1=ISEED3/M2
4496C
4497      DO200I=1,17
4498      ISEED3=J0*K0
4499      J1=MOD(ISEED3/M2+J0*K1+J1*K0,M2/2)
4500      J0=MOD(ISEED3,M2)
4501      M(I)=J0+M2*J1
4502  200 CONTINUE
4503C
4504      I=5
4505      J=17
4506C
4507  290 CONTINUE
4508C
4509C               *************************************
4510C               **  STEP 3--                       **
4511C               **  GENERATE THE N RANDOM NUMBERS  **
4512C               *************************************
4513C
4514      DO300L=1,N
4515        K=M(I)-M(J)
4516        IF(K.LT.0)K=K+M1
4517        M(J)=K
4518        I=I-1
4519        IF(I.EQ.0)I=17
4520        J=J-1
4521        IF(J.EQ.0)J=17
4522        AK=K
4523        AM1=M1
4524        X(L)=AK/AM1
4525  300 CONTINUE
4526C
4527C               *****************************************************
4528C               **  STEP 4--                                       **
4529C               **  REGARDLESS OF THE VALUE OF THE INPUT SEED,     **
4530C               **  REDEFINE THE VALUE OF ISEED UPON EXIT HERE     **
4531C               **  TO -1 WITH THE NET EFFECT THAT                 **
4532C               **  IF THE USER DOES NOT REDEFINE THE SEED         **
4533C               **  VALUE BEFORE THE NEXT CALL TO THIS GENERATOR,  **
4534C               **  THEN THIS GENERATOR WILL PICK UP               **
4535C               **  WHERE IT LEFT OFF.                             **
4536C               *****************************************************
4537C
4538      ISEED=(-1)
4539      GOTO9000
4540C
4541C               *****************************************
4542C               **  STEP 1500--                        **
4543C               **  GENERATE THE N RANDOM NUMBERS      **
4544C               **  USING THE COMBINED FIBONACCI/      **
4545C               **  CONGUENTIAL GENERATOR OF           **
4546C               **  KAHANER AND MARSAGALIA GIVEN       **
4547C               **  IN "NUMERICAL METHODS AND SOFTWARE"**
4548C               **  BY KAHANER, MOLER, AND NASH.       **
4549C               *****************************************
4550C
4551 1500 CONTINUE
4552C
4553C  INITIALIZE IF NECESSARY
4554C
4555      IF(ISED2.EQ.0)THEN
4556        IF(ISEED.GT.0)THEN
4557          ISDSAV=ISEED
4558          USEED=USTART(ISEED)
4559          ISEED=(-1)
4560        ELSE
4561          USEED=USTART(ISDSAV)
4562        ENDIF
4563        ISED2=-1
4564      ELSE
4565        IF(ISEED.GT.0)THEN
4566          ISDSAV=ISEED
4567          USEED=USTART(ISEED)
4568          ISEED=(-1)
4569        ENDIF
4570      ENDIF
4571C
4572C  END OF INITIALIZATION
4573C
4574      DO1510L=1,N
4575        X(L)=UNIKMN()
4576 1510 CONTINUE
4577      GOTO9000
4578C
4579C               *************************************
4580C               **  STEP 2000--                    **
4581C               **  GENERATE THE N RANDOM NUMBERS  **
4582C               **  USING THE LINEAR CONGRUENTIAL  **
4583C               **  GENERATOR RUNIF (FROM CMLIB).  **
4584C               *************************************
4585C
4586C     NOTE: THIS GENERATOR DOES NOT HAVE A SEED VALUE.  SO DON'T
4587C           CHECK FOR THE SEED.
4588C
4589 2000 CONTINUE
4590      NSIZE=32
4591      NSTRT=1
4592C
4593C  INITIALIZE IF NECESSARY
4594C
4595CCCCC IF(ISED3.EQ.0)THEN
4596CCCCC   NSTRT=2
4597CCCCC   IF(ISEED.GT.0)THEN
4598CCCCC     ISDSAV=ISEED
4599CCCCC     X(1)=RUNIF(T,NSIZE)
4600CCCCC     ISEED=(-1)
4601CCCCC   ELSE
4602CCCCC     X(1)=RUNIF(T,NSIZE)
4603CCCCC   ENDIF
4604CCCCC   ISED3=-1
4605CCCCC ELSE
4606CCCCC   IF(ISEED.GT.0)THEN
4607CCCCC     ISDSAV=ISEED
4608CCCCC     X(1)=RUNIF(T,NSIZE)
4609CCCCC     ISEED=(-1)
4610CCCCC     NSTRT=2
4611CCCCC   ENDIF
4612CCCCC ENDIF
4613C
4614      IF(ISED3.EQ.0)THEN
4615        NSTRT=2
4616        ISED3=-1
4617      ELSE
4618        NSTRT=1
4619      ENDIF
4620C
4621C  END OF INITIALIZATION
4622C
4623      IF(NSTRT.EQ.2)THEN
4624        X(1)=RUNIF(T,NSIZE)
4625      ENDIF
4626C
4627      IF(NSTRT.LE.N)THEN
4628        DO2020L=NSTRT,N
4629          X(L)=RUNIF(T,NSIZE)
4630 2020   CONTINUE
4631      ENDIF
4632CCCCC ISEED=(-1)
4633      GOTO9000
4634C
4635C               **********************************************
4636C               **  STEP 3000--                             **
4637C               **  GENERATE THE N RANDOM NUMBERS           **
4638C               **  USING THE MULTIPLICATIVE CONGRUENTIAL   **
4639C               **  GENERATOR SUNIF (FROM ACM 599).         **
4640C               **********************************************
4641C
4642 3000 CONTINUE
4643C
4644C  INITIALIZE IF NECESSARY
4645C
4646C  ISED3 = 0   - THIS GENERATOR HAS NOT BEEN INITIALIZED YET
4647C  ISEED > 0   - A NEW INITIALIZATION IS BEING REQUESTED
4648C
4649C  FOR THIS GENERATOR, THE SEED SHOULD BE OF THE FORM  4*K + 1
4650C
4651      NSTRT=1
4652C
4653C  CASE WHERE GENERATOR HAS NOT BEEN INITIALIZED.  IF ISEED IS -1 (I.E.,
4654C  ANOTHER GENERATOR HAS BEEN CALLED), THEN RESET DEFAULT SEED.
4655C
4656      IF(ISED3.EQ.0)THEN
4657        NSTRT=2
4658        IF(ISEED.GT.0)THEN
4659          ISDSAV=ISEED
4660          IREM=MOD(ISEED,4)
4661          IF(IREM.EQ.0)ISEED2=ISEED+1
4662          IF(IREM.EQ.1)ISEED2=ISEED
4663          IF(IREM.EQ.2)ISEED2=ISEED+3
4664          IF(IREM.EQ.3)ISEED2=ISEED+2
4665          X(1)=SUNIF(ISEED2)
4666          ISEED=ISEED2
4667        ELSE
4668          ISEED2=ISDSAV
4669          IREM=MOD(ISEED2,4)
4670          IF(IREM.EQ.0)ISEED2=ISEED2+1
4671          IF(IREM.EQ.1)ISEED2=ISEED2
4672          IF(IREM.EQ.2)ISEED2=ISEED2+3
4673          IF(IREM.EQ.3)ISEED2=ISEED2+2
4674          X(1)=SUNIF(ISEED2)
4675          ISEED=ISEED2
4676        ENDIF
4677        ISED3=-1
4678C
4679C  CASE WHERE GENERATOR HAS BEEN PREVIOUSLY INITIALIZED.  IF ISEED > 0,
4680C  THIS IMPLIES A NEW INITIALIZATION IS BEING REQUESTED.
4681C
4682      ELSE
4683        IF(ISEED.GT.0)THEN
4684          ISDSAV=ISEED
4685          IREM=MOD(ISEED,4)
4686          IF(IREM.EQ.0)ISEED2=ISEED+1
4687          IF(IREM.EQ.1)ISEED2=ISEED
4688          IF(IREM.EQ.2)ISEED2=ISEED+3
4689          IF(IREM.EQ.3)ISEED2=ISEED+2
4690          X(1)=SUNIF(ISEED2)
4691          ISEED=(-1)
4692          NSTRT=2
4693        ELSE
4694          NSTRT=1
4695        ENDIF
4696      ENDIF
4697C
4698C  END OF INITIALIZATION
4699C
4700      IF(NSTRT.LE.N)THEN
4701        DO3020L=NSTRT,N
4702          X(L)=SUNIF(ISEED)
4703 3020   CONTINUE
4704        ISEED=(-1)
4705      ENDIF
4706      GOTO9000
4707C
4708C               **********************************************
4709C               **  STEP 4000--                             **
4710C               **  GENERATE THE N RANDOM NUMBERS           **
4711C               **  USING THE GENERALIZED FEEDACK SHIFT     **
4712C               **  REGISTER (GFSR) GENERATOR RANLP (FROM   **
4713C               **  MONOHAM, 2001).                         **
4714C               **********************************************
4715C
4716C     2019/11: ALTHOUGH THIS METHOD DOES NOT UTILIZED A SEED,
4717C              DO ALLOW IT TO BE RESET (THIS CAN BE USEFUL FOR
4718C              TESTING PURPOSES).
4719C
4720 4000 CONTINUE
4721C
4722      IRESET=0
4723      IF(ISED4.EQ.0)THEN
4724        ISED4=-1
4725        ISDSAV=ISEED
4726      ELSE
4727        IF(ISEED.GT.0 .AND. ISDSAV.NE.ISEED)THEN
4728          IRESET=1
4729          ISDSAV=ISEED
4730        ENDIF
4731      ENDIF
4732C
4733      DO4020L=1,N
4734CCCCC   X(L)=RANLP(L,IRESET)
4735        X(L)=RANLP(IRESET)
4736        IRESET=0
4737 4020 CONTINUE
4738      GOTO9000
4739C
4740C               **********************************************
4741C               **  STEP 5000--                             **
4742C               **  GENERATE THE N RANDOM NUMBERS           **
4743C               **  USING THE GENERALIZED FEEDACK SHIFT     **
4744C               **  REGISTER (GFSR) GENERATOR RANFT (FROM   **
4745C               **  MONOHAM, 2001).                         **
4746C               **********************************************
4747C
4748C     2019/11: ALTHOUGH THIS METHOD DOES NOT UTILIZED A SEED,
4749C              DO ALLOW IT TO BE RESET (THIS CAN BE USEFUL FOR
4750C              TESTING PURPOSES).
4751C
4752 5000 CONTINUE
4753      IRESET=0
4754      IF(ISED5.EQ.0)THEN
4755        ISED5=-1
4756        ISDSAV=ISEED
4757      ELSE
4758        IF(ISEED.GT.0 .AND. ISDSAV.NE.ISEED)THEN
4759          IRESET=1
4760          ISDSAV=ISEED
4761        ENDIF
4762      ENDIF
4763C
4764      DO5020L=1,N
4765CCCCC   X(L)=RANFT(L,IRESET)
4766        X(L)=RANFT(IRESET)
4767        IRESET=0
4768 5020 CONTINUE
4769      GOTO9000
4770C
4771C               **********************************************
4772C               **  STEP 6000--                             **
4773C               **  GENERATE THE N RANDOM NUMBERS           **
4774C               **  USING APPLIED STATISTICS ALGORITHM 183. **
4775C               **  NOTE: GENERATE 3 RANDOM NUMBERS BEFORE  **
4776C               **  CALLING RAN183.                         **
4777C               **********************************************
4778C
4779 6000 CONTINUE
4780C
4781C  INITIALIZE IF NECESSARY
4782C
4783      IF(ISED6.EQ.0)THEN
4784        IF(ISEED.GT.0)THEN
4785          ISDSAV=ISEED
4786        ELSE
4787          ISEED=ISDSAV
4788        ENDIF
4789        IREM=MOD(ISEED,4)
4790        IF(IREM.EQ.0)ISEED2=ISEED+1
4791        IF(IREM.EQ.1)ISEED2=ISEED
4792        IF(IREM.EQ.2)ISEED2=ISEED+3
4793        IF(IREM.EQ.3)ISEED2=ISEED+2
4794        XTEMP=SUNIF(ISEED2)
4795        IX=INT(30000.*XTEMP)
4796        XTEMP=SUNIF(ISEED2)
4797        IY=INT(30000.*XTEMP)
4798        XTEMP=SUNIF(ISEED2)
4799        IZ=INT(30000.*XTEMP)
4800        ISED6=-1
4801        ISEED=(-1)
4802      ELSE
4803        IF(ISEED.GT.0)THEN
4804          ISDSAV=ISEED
4805          IREM=MOD(ISEED,4)
4806          IF(IREM.EQ.0)ISEED2=ISEED+1
4807          IF(IREM.EQ.1)ISEED2=ISEED
4808          IF(IREM.EQ.2)ISEED2=ISEED+3
4809          IF(IREM.EQ.3)ISEED2=ISEED+2
4810          XTEMP=SUNIF(ISEED2)
4811          IX=INT(30000.*XTEMP)
4812          XTEMP=SUNIF(ISEED2)
4813          IY=INT(30000.*XTEMP)
4814          XTEMP=SUNIF(ISEED2)
4815          IZ=INT(30000.*XTEMP)
4816          ISEED=(-1)
4817        ELSE
4818          XTEMP=SUNIF(ISEED)
4819          IX=INT(30000.*XTEMP)
4820          XTEMP=SUNIF(ISEED)
4821          IY=INT(30000.*XTEMP)
4822          XTEMP=SUNIF(ISEED)
4823          IZ=INT(30000.*XTEMP)
4824        ENDIF
4825      ENDIF
4826C
4827C  END OF INITIALIZATION
4828C
4829C
4830      DO6020L=1,N
4831        X(L)=RAN183(IX,IY,IZ)
4832 6020 CONTINUE
4833      GOTO9000
4834C
4835C               **********************************************
4836C               **  STEP 7000--                             **
4837C               **  GENERATE THE N RANDOM NUMBERS           **
4838C               **  USING ALGORITHM FROM ALAN GENZ.  BASED  **
4839C               **  ON: L'Ecuyer, Pierre (1996).  "Combined **
4840C               **  Multiple Recursive Random Number        **
4841C               **  Generator", Operations Research 44,     **
4842C               **  pp. 816-822.                            **
4843C               **********************************************
4844C
4845 7000 CONTINUE
4846C
4847C     2019/11: ALTHOUGH THIS METHOD DOES NOT UTILIZED A SEED,
4848C              DO ALLOW IT TO BE RESET (THIS CAN BE USEFUL FOR
4849C              TESTING PURPOSES).
4850C
4851      IRESET=0
4852      IF(ISED7.EQ.0)THEN
4853        ISED7=-1
4854        ISDSAV=ISEED
4855      ELSE
4856        IF(ISEED.GT.0 .AND. ISDSAV.NE.ISEED)THEN
4857          IRESET=1
4858          ISDSAV=ISEED
4859        ENDIF
4860      ENDIF
4861C
4862      DO7020L=1,N
4863        X(L)=REAL(UNI(IRESET))
4864        IRESET=0
4865 7020 CONTINUE
4866      GOTO9000
4867C               **********************************************
4868C               **  STEP 8000--                             **
4869C               **  GENERATE THE N RANDOM NUMBERS           **
4870C               **  USING R250 ALGORITHM.                   **
4871C               **  BASED ON KIRKPATRICK AND STOLL          **
4872C               **  FAST SHOFT-REGISTER SEQUENCE GENERATOR. **
4873C               **********************************************
4874C
4875 8000 CONTINUE
4876C
4877      WRITE(ICOUT,999)
4878      CALL DPWRST('XXX','BUG ')
4879      WRITE(ICOUT,8051)
4880 8051 FORMAT('***** WARNING FROM UNIRAN--')
4881      CALL DPWRST('XXX','BUG ')
4882      WRITE(ICOUT,8053)
4883 8053 FORMAT('      THE R250 GENERATOR IS NOT CURRENTLY WORKING.')
4884      CALL DPWRST('XXX','BUG ')
4885      WRITE(ICOUT,8055)
4886 8055 FORMAT('      THE RESULTS FROM THIS GENERATOR ARE NOT VALID.')
4887      CALL DPWRST('XXX','BUG ')
4888C
4889C
4890C  INITIALIZE IF NECESSARY
4891C
4892CCCCC IF(ISED8.EQ.0)THEN
4893CCCCC   IF(ISEED.GT.0)THEN
4894CCCCC     ISDSAV=ISEED
4895CCCCC     CALL R250IN(ISEED)
4896CCCCC     ISEED=(-1)
4897CCCCC   ELSE
4898CCCCC     CALL R250IN(ISDSAV)
4899CCCCC   ENDIF
4900CCCCC   ISED8=-1
4901CCCCC ELSE
4902CCCCC   IF(ISEED.GT.0)THEN
4903CCCCC     ISDSAV=ISEED
4904CCCCC     CALL R250IN(ISEED)
4905CCCCC     ISEED=(-1)
4906CCCCC   ENDIF
4907CCCCC ENDIF
4908C
4909C  END OF INITIALIZATION
4910C
4911CCCCC DO8050L=1,N
4912CCCCC   X(L)=RND250()
4913C8050 CONTINUE
4914      GOTO9000
4915C               **********************************************
4916C               **  STEP 8500--                             **
4917C               **  GENERATE THE N RANDOM NUMBERS           **
4918C               **  USING LUXURY GENERATOR OF F. JAMES.     **
4919C               **  THIS IS A MODIFICATION OF MARSAGLIA AND **
4920C               **  ZAMAN RCARRY GENERATOR.                 **
4921C               **  RANLUX KEEPS TRACK OF INITIALIZATION    **
4922C               **********************************************
4923C
4924 8500 CONTINUE
4925C
4926      CALL RANLUX(X,N)
4927      GOTO9000
4928C
4929C               **********************************************
4930C               **  STEP 8600--                             **
4931C               **  GENERATE THE N RANDOM NUMBERS           **
4932C               **  USING MERSENNE TWISTER GENERATOR.       **
4933C               **  THIS IS A FORTRAN IMPLEMENTATION        **
4934C               **  PROVIDED BY HIROSHI TAKANO.             **
4935C               **********************************************
4936C
4937CCCCC MARCH 2009: COMMENT OUT THIS GENERATOR FOR NOW
4938 8600 CONTINUE
4939C
4940C
4941C  INITIALIZE IF NECESSARY
4942C
4943CCCCC IF(ISED10.EQ.0)THEN
4944CCCCC   IF(ISEED.GT.0)THEN
4945CCCCC     ISDSAV=ISEED
4946CCCCC     CALL SGRND(ISEED)
4947CCCCC     ISEED=(-1)
4948CCCCC   ELSE
4949CCCCC     ISEED=ISDSAV
4950CCCCC     CALL SGRND(ISEED)
4951CCCCC   ENDIF
4952CCCCC   ISED10=-1
4953CCCCC ELSE
4954CCCCC   IF(ISEED.GT.0)THEN
4955CCCCC     ISDSAV=ISEED
4956CCCCC     CALL SGRND(ISEED)
4957CCCCC     ISEED=(-1)
4958CCCCC   ENDIF
4959CCCCC ENDIF
4960C
4961C  END OF INITIALIZATION
4962C
4963CCCCC DO8610I=1,N
4964CCCCC   X(I)=REAL(GRND())
4965C8610 CONTINUE
4966C
4967      GOTO9000
4968C
4969C
4970C               *****************
4971C               **  STEP 90--  **
4972C               **  EXIT       **
4973C               *****************
4974C
4975 9000 CONTINUE
4976      RETURN
4977CCCCC DEBUG TRACE,INIT
4978CCCCC AT 90
4979CCCCC TRACE ON
4980      END
4981      SUBROUTINE DPTRAN(IHARG,IHARG2,NUMARG,
4982     1                  ICTRA1,NCTRA1,ICTRA2,NCTRA2,NUMTRA,
4983     1                  IBUGS2,ISUBRO,IFOUND,IERROR)
4984C
4985C     PURPOSE--CREATE USER-DEFINED STRING TRANSLATIONS
4986C              WHICH WILL ALLOW EVERY SUB-STRING THAT COMES OUT
4987C              OF SUBROUTINE    GRWRST   TO BE TRANSLATED
4988C              IF SO DESIRED.
4989C     EXAMPLE OF USE--THE UNIVERSITY OF MARYLAND GANDOLPH
4990C                     COMMUNICATIONS BOX EATSD UP ESCAPES
4991C                     (NOT ONLY FROM THE TERMINAL) BUT ALSO
4992C                     FROM THE HOSST--THUS AN ESCAPE FORMFEED
4993C                     FROM THE HOST TO CLEAR THE SCREEN RESULTS
4994C                     IN ONLY A FORMFEED (AND THUS THERE IS NO
4995C                     HOST-GENERATED WAY TO CLEAR THE SCREEN).
4996C                     THIS PROBLEM CAN NOW BE SOLVED VIA THE
4997C                     TRANSLATE COMMAND BY TELLING DATAPLOT
4998C                     TRANSLATE ESC FF TO ESC ESC FF
4999C                     AND THUS THE SECOND ESC WILL GET THROUGH
5000C                     AND THE SCREEN WILL BE CLEARED.
5001C      INPUT  ARGUMENTS--IHARG   (A CHARACTER VECTOR)
5002C                      --IHARG2  (A CHARACTER VECTOR)
5003C                      --NUMARG
5004C      OUTPUT ARGUMENTS--ICTRA1
5005C                        NCTRA1
5006C                        ICTRA2
5007C                        NCTRA2
5008C                        NUMTRA
5009C                        IFOUND
5010C                        IERROR
5011C     WRITTEN BY--JAMES J. FILLIBEN
5012C                 STATISTICAL ENGINEERING DIVISION
5013C                 INFORMATION TECHNOLOGY LABORATORY
5014C                 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY
5015C                 GAITHERSBURG, MD 20899
5016C                 PHONE--301-975-2855
5017C     NOTE--DATAPLOT IS A REGISTERED TRADEMARK
5018C           OF THE NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY.
5019C     LANGUAGE--ANSI FORTRAN (1977)
5020C     VERSION NUMBER--86/6
5021C     ORIGINAL VERSION--FEBRUARY  1986.
5022C     UPDATED         --JANUARY   1989.  BUG FIX FROM JJF NOTES (ALAN)
5023C
5024C-----NON-COMMON VARIABLES----------------------------------------
5025C
5026      CHARACTER*4 IHARG
5027      CHARACTER*4 IHARG2
5028C
5029      CHARACTER*30 ICTRA1
5030      CHARACTER*30 ICTRA2
5031C
5032      CHARACTER*1 IC1
5033      CHARACTER*4 IC4
5034      CHARACTER*30 ISTRIN
5035C
5036      CHARACTER*4 IBUGS2
5037      CHARACTER*4 ISUBRO
5038      CHARACTER*4 IFOUND
5039      CHARACTER*4 IERROR
5040C
5041      CHARACTER*4 ISUBN1
5042      CHARACTER*4 ISUBN2
5043C
5044      DIMENSION IHARG(*)
5045      DIMENSION IHARG2(*)
5046C
5047      DIMENSION ICTRA1(*)
5048      DIMENSION NCTRA1(*)
5049      DIMENSION ICTRA2(*)
5050      DIMENSION NCTRA2(*)
5051C
5052C-----COMMON----------------------------------------------------------
5053C
5054      INCLUDE 'DPCONP.INC'
5055C
5056C-----COMMON VARIABLES (GENERAL)--------------------------------------
5057C
5058      INCLUDE 'DPCOP2.INC'
5059C
5060C-----START POINT-----------------------------------------------------
5061C
5062      ISUBN1='DPTR'
5063      ISUBN2='AN  '
5064      IFOUND='YES'
5065      IERROR='NO'
5066C
5067      IF(IBUGS2.EQ.'ON' .OR. ISUBRO.EQ.'DEFI')THEN
5068        WRITE(ICOUT,999)
5069  999   FORMAT(1X)
5070        CALL DPWRST('XXX','BUG ')
5071        WRITE(ICOUT,51)
5072   51   FORMAT('AT THE BEGINNING OF DPTRAN--')
5073        CALL DPWRST('XXX','BUG ')
5074        WRITE(ICOUT,53)IBUGS2,ISUBRO,IFOUND,IERROR,NUMARG,NUMTRA
5075   53   FORMAT('IBUGS2,ISUBRO,IFOUND,IERROR,NUMARG,NUMTRA = ',
5076     1         4(A4,2X),2I8)
5077        CALL DPWRST('XXX','BUG ')
5078        IF(NUMARG.GE.1)THEN
5079          DO56I=1,NUMARG
5080            WRITE(ICOUT,57)I,IHARG(I),IHARG2(I)
5081   57       FORMAT('I,IHARG(I),IHARG2(I) = ',I8,2(2X,A4))
5082            CALL DPWRST('XXX','BUG ')
5083   56     CONTINUE
5084        ENDIF
5085        IF(NUMTRA.GE.1)THEN
5086          DO62I=1,NUMTRA
5087            WRITE(ICOUT,63)I,ICTRA1(I),NCTRA1(I)
5088   63       FORMAT('I,ICTRA1(I),NCTRA1(I) = ',I8,2X,A30,I8)
5089            CALL DPWRST('XXX','BUG ')
5090            WRITE(ICOUT,64)I,ICTRA2(I),NCTRA2(I)
5091   64       FORMAT('I,ICTRA2(I),NCTRA2(I) = ',I8,2X,A30,I8)
5092            CALL DPWRST('XXX','BUG ')
5093   62     CONTINUE
5094        ENDIF
5095      ENDIF
5096C
5097C               ************************************************
5098C               **  STEP 11--                                 **
5099C               **  LOCATE THE LOCATION IN THE ARGUMENT LIST  **
5100C               **  OF THE WORD    TO     .                   **
5101C               ************************************************
5102C
5103      ILOCTO=0
5104      IF(NUMARG.LE.0)GOTO1120
5105      DO1100I=1,NUMARG
5106        ILOCTO=I
5107        IF(IHARG(I).EQ.'TO  ')GOTO1190
5108 1100 CONTINUE
5109C
5110      WRITE(ICOUT,999)
5111      CALL DPWRST('XXX','BUG ')
5112      WRITE(ICOUT,1111)
5113 1111 FORMAT('***** ERROR IN SUBROUTINE DPTRAN--')
5114      CALL DPWRST('XXX','BUG ')
5115      WRITE(ICOUT,1112)
5116 1112 FORMAT('      WHEN USING THE TRANSLATE COMMAND, YOU MUST ',
5117     1       'USE   TO')
5118      CALL DPWRST('XXX','BUG ')
5119      WRITE(ICOUT,1114)
5120 1114 FORMAT('      TO SEPARATE THE OLD STRING FROM THE NEW STRING, ',
5121     1       'AS IN')
5122      CALL DPWRST('XXX','BUG ')
5123      WRITE(ICOUT,1116)
5124 1116 FORMAT('         TRANSLATE ESC FF TO ESC ESC FF')
5125      CALL DPWRST('XXX','BUG ')
5126      WRITE(ICOUT,1117)
5127 1117 FORMAT('      PROBLEM--   TO   WAS NOT FOUND.')
5128      CALL DPWRST('XXX','BUG ')
5129      IERROR='YES'
5130      GOTO9000
5131C
5132 1120 CONTINUE
5133      WRITE(ICOUT,999)
5134      CALL DPWRST('XXX','BUG ')
5135      WRITE(ICOUT,1121)
5136 1121 FORMAT('***** ERROR IN SUBROUTINE DPTRAN--')
5137      CALL DPWRST('XXX','BUG ')
5138      WRITE(ICOUT,1122)
5139 1122 FORMAT('      NO ARGUMENTS FOUND AFTER THE WORD   ',
5140     1       'TRANSLATE')
5141      CALL DPWRST('XXX','BUG ')
5142      WRITE(ICOUT,1124)NUMARG
5143 1124 FORMAT('NUMARG = ',I8)
5144      CALL DPWRST('XXX','BUG ')
5145      IERROR='YES'
5146      GOTO9000
5147C
5148 1190 CONTINUE
5149C
5150C               ***************************************************
5151C               **  STEP 12--                                    **
5152C               **  DETERMINE THE ELEMENT NUMBER FOR THE STRING  **
5153C               ***************************************************
5154C
5155      I2=NUMTRA+1
5156      IF(I2.LE.100)GOTO1290
5157C
5158      WRITE(ICOUT,999)
5159      CALL DPWRST('XXX','BUG ')
5160      WRITE(ICOUT,1211)
5161 1211 FORMAT('***** ERROR IN SUBROUTINE DPTRAN--')
5162      CALL DPWRST('XXX','BUG ')
5163      WRITE(ICOUT,1212)
5164 1212 FORMAT('      WHEN USING THE TRANSLATE COMMAND, YOU CAN HAVE')
5165      CALL DPWRST('XXX','BUG ')
5166      WRITE(ICOUT,1214)
5167 1214 FORMAT('      AT MOST 100 SEQUENCES TO TRANSLATE;')
5168      CALL DPWRST('XXX','BUG ')
5169      WRITE(ICOUT,1215)
5170 1215 FORMAT('      YOU HAVE JUST EXCEEDED 100.')
5171      CALL DPWRST('XXX','BUG ')
5172      WRITE(ICOUT,1216)I2
5173 1216 FORMAT('      I2 = ',I8)
5174      CALL DPWRST('XXX','BUG ')
5175      IERROR='YES'
5176      GOTO9000
5177C
5178 1290 CONTINUE
5179C
5180C               ***************************************************
5181C               **  STEP 21--                                    **
5182C               **  EXTRACT THE INPUT SEQUENCE.                   **
5183C               ***************************************************
5184C
5185      ISTRIN(1:30)='                              '
5186      ICTRA1(I2)=ISTRIN(1:30)
5187      NCTRA1(I2)=0
5188C
5189      J=0
5190      IMAX=ILOCTO-1
5191      IF(IMAX.LE.0)GOTO2180
5192      DO2100I=1,IMAX
5193      J=J+1
5194      IC4=IHARG(I)
5195C
5196      IC1=IC4(1:1)
5197      IF(IC4(1:3).EQ.'NUL')IC1=INULC
5198      IF(IC4(1:3).EQ.'SOH')IC1=ISOHC
5199      IF(IC4(1:3).EQ.'STX')IC1=ISTXC
5200      IF(IC4(1:3).EQ.'ETX')IC1=IETXC
5201      IF(IC4(1:3).EQ.'EOT')IC1=IEOTC
5202      IF(IC4(1:3).EQ.'ENQ')IC1=IENQC
5203      IF(IC4(1:3).EQ.'ACK')IC1=IACKC
5204      IF(IC4(1:3).EQ.'BEL')IC1=IBELC
5205      IF(IC4(1:2).EQ.'BS')IC1=IBSC
5206      IF(IC4(1:3).EQ.'HTX')IC1=IHTC
5207      IF(IC4(1:2).EQ.'LF')IC1=ILFC
5208      IF(IC4(1:2).EQ.'VT')IC1=IVTC
5209      IF(IC4(1:2).EQ.'FF')IC1=IFFC
5210      IF(IC4(1:2).EQ.'CR')IC1=ICRC
5211      IF(IC4(1:2).EQ.'SO')IC1=ISOC
5212      IF(IC4(1:2).EQ.'SI')IC1=ISIC
5213      IF(IC4(1:3).EQ.'DLE')IC1=IDLEC
5214      IF(IC4(1:3).EQ.'DC1')IC1=IDC1C
5215      IF(IC4(1:3).EQ.'DC2')IC1=IDC2C
5216      IF(IC4(1:3).EQ.'DC3')IC1=IDC3C
5217      IF(IC4(1:3).EQ.'DC4')IC1=IDC4C
5218      IF(IC4(1:3).EQ.'NAK')IC1=INAKC
5219      IF(IC4(1:3).EQ.'SYN')IC1=ISYNC
5220      IF(IC4(1:3).EQ.'ETB')IC1=IETBC
5221      IF(IC4(1:3).EQ.'CAN')IC1=ICANC
5222      IF(IC4(1:2).EQ.'EM')IC1=IEMC
5223      IF(IC4(1:3).EQ.'SUB')IC1=ISUBC
5224      IF(IC4(1:3).EQ.'ESC')IC1=IESCC
5225      IF(IC4(1:2).EQ.'FS')IC1=IFSC
5226      IF(IC4(1:2).EQ.'GS')IC1=IGSC
5227      IF(IC4(1:2).EQ.'RS')IC1=IRSC
5228      IF(IC4(1:2).EQ.'US')IC1=IUSC
5229      IF(IC4(1:2).EQ.'BL')IC1=' '
5230      IF(IC4(1:3).EQ.'BLA')IC1=' '
5231      IF(IC4(1:4).EQ.'BLAN')IC1=' '
5232      IF(IC4(1:2).EQ.'SP')IC1=' '
5233      IF(IC4(1:3).EQ.'SPA')IC1=' '
5234      IF(IC4(1:4).EQ.'SPAC')IC1=' '
5235      IF(IC4(1:4).EQ.'SEMI')IC1=';'
5236C
5237      ISTRIN(J:J)=IC1
5238 2100 CONTINUE
5239      GOTO2190
5240C
5241 2180 CONTINUE
5242      WRITE(ICOUT,999)
5243      CALL DPWRST('XXX','BUG ')
5244      WRITE(ICOUT,2181)
5245 2181 FORMAT('***** ERROR IN SUBROUTINE DPTRAN--')
5246      CALL DPWRST('XXX','BUG ')
5247      WRITE(ICOUT,2182)
5248 2182 FORMAT('      WHEN USING THE TRANSLATE COMMAND,')
5249      CALL DPWRST('XXX','BUG ')
5250      WRITE(ICOUT,2183)
5251 2183 FORMAT('      YOU CANNOT HAVE THE WORD   TO')
5252      CALL DPWRST('XXX','BUG ')
5253      WRITE(ICOUT,2184)
5254 2184 FORMAT('      AS THE FIRST ARGUMENT AFTER   TRANSLATE')
5255      CALL DPWRST('XXX','BUG ')
5256      WRITE(ICOUT,2185)
5257 2185 FORMAT('      (YOU WOULD BE ATTEMPTING TO TRANSLATE ')
5258      CALL DPWRST('XXX','BUG ')
5259      WRITE(ICOUT,2186)
5260 2186 FORMAT('      NOTHING TO SOMETHING).')
5261      CALL DPWRST('XXX','BUG ')
5262      IERROR='YES'
5263      GOTO9000
5264C
5265 2190 CONTINUE
5266      ICTRA1(I2)=ISTRIN(1:30)
5267      NCTRA1(I2)=J
5268C
5269C               ***************************************************
5270C               **  STEP 22--                                    **
5271C               **  EXTRACT THE OUTPUT SEQUENCE.                  **
5272C               ***************************************************
5273C
5274      ISTRIN(1:30)='                              '
5275      ICTRA2(I2)=ISTRIN(1:30)
5276      NCTRA2(I2)=0
5277C
5278      J=0
5279      ILOCTP=ILOCTO+1
5280      IF(ILOCTP.GT.NUMARG)GOTO2290
5281      DO2200I=ILOCTP,NUMARG
5282      J=J+1
5283      IC4=IHARG(I)
5284C
5285      IC1=IC4(1:1)
5286      IF(IC4(1:3).EQ.'NUL')IC1=INULC
5287      IF(IC4(1:3).EQ.'SOH')IC1=ISOHC
5288      IF(IC4(1:3).EQ.'STX')IC1=ISTXC
5289      IF(IC4(1:3).EQ.'ETX')IC1=IETXC
5290      IF(IC4(1:3).EQ.'EOT')IC1=IEOTC
5291      IF(IC4(1:3).EQ.'ENQ')IC1=IENQC
5292      IF(IC4(1:3).EQ.'ACK')IC1=IACKC
5293      IF(IC4(1:3).EQ.'BEL')IC1=IBELC
5294      IF(IC4(1:2).EQ.'BS')IC1=IBSC
5295      IF(IC4(1:3).EQ.'HTX')IC1=IHTC
5296      IF(IC4(1:2).EQ.'LF')IC1=ILFC
5297      IF(IC4(1:2).EQ.'VT')IC1=IVTC
5298      IF(IC4(1:2).EQ.'FF')IC1=IFFC
5299      IF(IC4(1:2).EQ.'CR')IC1=ICRC
5300      IF(IC4(1:2).EQ.'SO')IC1=ISOC
5301      IF(IC4(1:2).EQ.'SI')IC1=ISIC
5302      IF(IC4(1:3).EQ.'DLE')IC1=IDLEC
5303      IF(IC4(1:3).EQ.'DC1')IC1=IDC1C
5304      IF(IC4(1:3).EQ.'DC2')IC1=IDC2C
5305      IF(IC4(1:3).EQ.'DC3')IC1=IDC3C
5306      IF(IC4(1:3).EQ.'DC4')IC1=IDC4C
5307      IF(IC4(1:3).EQ.'NAK')IC1=INAKC
5308      IF(IC4(1:3).EQ.'SYN')IC1=ISYNC
5309      IF(IC4(1:3).EQ.'ETB')IC1=IETBC
5310      IF(IC4(1:3).EQ.'CAN')IC1=ICANC
5311      IF(IC4(1:2).EQ.'EM')IC1=IEMC
5312      IF(IC4(1:3).EQ.'SUB')IC1=ISUBC
5313      IF(IC4(1:3).EQ.'ESC')IC1=IESCC
5314      IF(IC4(1:2).EQ.'FS')IC1=IFSC
5315      IF(IC4(1:2).EQ.'GS')IC1=IGSC
5316      IF(IC4(1:2).EQ.'RS')IC1=IRSC
5317      IF(IC4(1:2).EQ.'US')IC1=IUSC
5318      IF(IC4(1:2).EQ.'BL')IC1=' '
5319      IF(IC4(1:3).EQ.'BLA')IC1=' '
5320      IF(IC4(1:4).EQ.'BLAN')IC1=' '
5321      IF(IC4(1:2).EQ.'SP')IC1=' '
5322      IF(IC4(1:3).EQ.'SPA')IC1=' '
5323      IF(IC4(1:4).EQ.'SPAC')IC1=' '
5324      IF(IC4(1:4).EQ.'SEMI')IC1=';'
5325C
5326      ISTRIN(J:J)=IC1
5327 2200 CONTINUE
5328C
5329 2290 CONTINUE
5330      ICTRA2(I2)=ISTRIN(1:30)
5331      NCTRA2(I2)=J
5332      IF(I2.GT.NUMTRA)NUMTRA=I2
5333C
5334C               *****************
5335C               **  STEP 90--  **
5336C               **  EXIT       **
5337C               *****************
5338C
5339 9000 CONTINUE
5340      IF(IBUGS2.EQ.'ON' .OR. ISUBRO.EQ.'DEFI')THEN
5341        WRITE(ICOUT,999)
5342        CALL DPWRST('XXX','BUG ')
5343        WRITE(ICOUT,9011)
5344 9011   FORMAT('AT THE END       OF DPTRAN--')
5345        CALL DPWRST('XXX','BUG ')
5346        WRITE(ICOUT,9021)I2,NUMTRA
5347 9021   FORMAT('I2,NUMTRA = ',2I8)
5348        CALL DPWRST('XXX','BUG ')
5349        IF(NUMTRA.GE.1)THEN
5350          DO9022I=1,NUMTRA
5351            WRITE(ICOUT,9023)I,ICTRA1(I),NCTRA1(I)
5352 9023       FORMAT('I,ICTRA1(I),NCTRA1(I) = ',I8,2X,A30,I8)
5353            CALL DPWRST('XXX','BUG ')
5354            WRITE(ICOUT,9024)I,ICTRA2(I),NCTRA2(I)
5355 9024       FORMAT('I,ICTRA2(I),NCTRA2(I) = ',I8,2X,A30,I8)
5356            CALL DPWRST('XXX','BUG ')
5357 9022     CONTINUE
5358        ENDIF
5359        WRITE(ICOUT,9051)IFOUND,IERROR
5360 9051   FORMAT('IFOUND,IERROR = ',A4,2X,A4)
5361        CALL DPWRST('XXX','BUG ')
5362      ENDIF
5363C
5364      RETURN
5365      END
5366      SUBROUTINE DPOPMS(IANS,IWIDTH,IBUGS2,ISUBRO,IFOUND,IERROR)
5367C
5368C     PURPOSE--SEND A MESSAGE TO THE HOST CONSOLE OPERATOR.
5369C     WRITTEN BY--JAMES J. FILLIBEN
5370C                 STATISTICAL ENGINEERING DIVISION
5371C                 INFORMATION TECHNOLOGY LABORATORY
5372C                 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY
5373C                 GAITHERSBURG, MD 20899
5374C                 PHONE--301-975-2855
5375C     NOTE--DATAPLOT IS A REGISTERED TRADEMARK
5376C           OF THE NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY.
5377C     LANGUAGE--ANSI FORTRAN (1977)
5378C     VERSION NUMBER--86/1
5379C     ORIGINAL VERSION--NOVEMBER  1980.
5380C     UPDATED         --MAY       1982.
5381C     UPDATED         --JANUARY   1986.
5382C
5383C-----CHARACTER STATEMENTS FOR NON-COMMON VARIABLES-------------------
5384C
5385      CHARACTER*4 IANS
5386      CHARACTER*4 IBUGS2
5387      CHARACTER*4 ISUBRO
5388      CHARACTER*4 IFOUND
5389      CHARACTER*4 IERROR
5390C
5391      CHARACTER*4 ISUBN1
5392      CHARACTER*4 ISUBN2
5393      CHARACTER*4 ISTEPN
5394C
5395      CHARACTER*4 ISTAT
5396C
5397      CHARACTER*80 ICANS
5398      CHARACTER*80 ISTRIN
5399C
5400      DIMENSION IANS(*)
5401C
5402C-----COMMON----------------------------------------------------------
5403C
5404      INCLUDE 'DPCOPA.INC'
5405      INCLUDE 'DPCOF2.INC'
5406C
5407C-----COMMON VARIABLES (GENERAL)--------------------------------------
5408C
5409      INCLUDE 'DPCOP2.INC'
5410C
5411C-----START POINT-----------------------------------------------------
5412C
5413      ISUBN1='DPOP'
5414      ISUBN2='MS  '
5415      IFOUND='YES'
5416      IERROR='NO'
5417C
5418      IF(IBUGS2.EQ.'ON' .OR. ISUBRO.EQ.'OPMS')THEN
5419        WRITE(ICOUT,999)
5420  999   FORMAT(1X)
5421        CALL DPWRST('XXX','BUG ')
5422        WRITE(ICOUT,51)
5423   51   FORMAT('***** AT THE BEGINNING OF DPOPMS--')
5424        CALL DPWRST('XXX','BUG ')
5425        WRITE(ICOUT,53)IBUGS2,ISUBRO,IERROR,IWIDTH
5426   53   FORMAT('IBUGS2,ISUBRO,IERROR,IWIDTH = ',3(A4,2X),I8)
5427        CALL DPWRST('XXX','BUG ')
5428        IF(IWIDTH.GE.1)THEN
5429          WRITE(ICOUT,55)(IANS(I),I=1,MIN(80,IWIDTH))
5430   55     FORMAT('(IANS(I),I=1,IWIDTH) = ',80A1)
5431          CALL DPWRST('XXX','BUG ')
5432        ENDIF
5433      ENDIF
5434C
5435C               ****************************
5436C               **  STEP 13--             **
5437C               **  EXTRACT THE MESSAGE   **
5438C               ****************************
5439C
5440      ISTEPN='13'
5441      IF(IBUGS2.EQ.'ON'.OR.ISUBRO.EQ.'MAIL')
5442     1CALL TRACE2(ISTEPN,ISUBN1,ISUBN2)
5443C
5444      DO1310I=1,80
5445      ICANS(I:I)=IANS(I)
5446 1310 CONTINUE
5447C
5448      ISTART=1
5449      ISTOP=IWIDTH
5450      IWORD=2
5451      CALL DPEXWO(ICANS,ISTART,ISTOP,IWORD,
5452     1ICOL1,ICOL2,ISTRIN,NCSTRI,
5453     1IBUGS2,ISUBRO,IERROR)
5454      IF(IERROR.EQ.'YES')GOTO9000
5455C
5456      J=0
5457      IF(ICOL1.GT.IWIDTH)GOTO1339
5458      DO1330I=ICOL1,IWIDTH
5459      J=J+1
5460      ISTRIN(J:J)=ICANS(I:I)
5461 1330 CONTINUE
5462      NCSTRI=J
5463 1339 CONTINUE
5464C
5465      NMAX=80
5466      CALL DPDB80(ISTRIN,JMAX,NMAX,IBUGS2,ISUBRO,IERROR)
5467      IF(IERROR.EQ.'YES')GOTO9000
5468      NCSTRI=JMAX
5469C
5470      IF(NCSTRI.GE.1)GOTO1349
5471      IERROR='YES'
5472      WRITE(ICOUT,999)
5473      CALL DPWRST('XXX','BUG ')
5474      WRITE(ICOUT,1341)
5475 1341 FORMAT('***** ERROR IN DPOPMS--')
5476      CALL DPWRST('XXX','BUG ')
5477      WRITE(ICOUT,1342)
5478 1342 FORMAT('      A MESSAGE IS REQUIRED')
5479      CALL DPWRST('XXX','BUG ')
5480      WRITE(ICOUT,1343)
5481 1343 FORMAT('      IN THE OPERATOR COMMAND')
5482      CALL DPWRST('XXX','BUG ')
5483      WRITE(ICOUT,1344)
5484 1344 FORMAT('      (FOR EXAMPLE,    OPERATOR HOW DO I GENERATE ',
5485     1'3-D PLOTS?)')
5486      CALL DPWRST('XXX','BUG ')
5487      WRITE(ICOUT,1346)
5488 1346 FORMAT('      THE ENTERED COMMAND LINE WAS AS FOLLOWS--')
5489      CALL DPWRST('XXX','BUG ')
5490      IF(IWIDTH.GE.1)WRITE(ICOUT,1347)(IANS(I),I=1,IWIDTH)
5491 1347 FORMAT('      ',80A1)
5492      IF(IWIDTH.GE.1)CALL DPWRST('XXX','BUG ')
5493      IF(IWIDTH.LE.0)WRITE(ICOUT,999)
5494      IF(IWIDTH.LE.0)CALL DPWRST('XXX','BUG ')
5495      GOTO9000
5496 1349 CONTINUE
5497C
5498C               **********************************************
5499C               **  STEP 14--                               **
5500C               **  IF THE NEEDED SYSTEM CALL               **
5501C               **  EXISTS AT THIS COMPUTER INSTALLATION,   **
5502C               **  THEN HAVE THE DATAPLOT IMPLEMENTOR      **
5503C               **  ENTER THE CODE FOR SUCH A CALL.         **
5504C               **  IF THE NEEDED SYSTEM CALL               **
5505C               **  DOES NOT EXIST (THE DEFAULT) AT THIS    **
5506C               **  COMPUTER INSTALLATION,                  **
5507C               **  THEN WRITE OUT AN ERROR MESSAGE.        **
5508C               **********************************************
5509C
5510      ISTEPN='12'
5511      IF(IBUGS2.EQ.'ON'.OR.ISUBRO.EQ.'OPMS')
5512     1CALL TRACE2(ISTEPN,ISUBN1,ISUBN2)
5513C
5514      ISTAT='NONE'
5515C
5516      IF(ISTAT.EQ.'NONE')GOTO1200
5517      GOTO1290
5518 1200 CONTINUE
5519      IERROR='YES'
5520      WRITE(ICOUT,999)
5521      CALL DPWRST('XXX','BUG ')
5522      WRITE(ICOUT,1211)
5523 1211 FORMAT('***** ERROR IN DPOPMS--')
5524      CALL DPWRST('XXX','BUG ')
5525      WRITE(ICOUT,1212)
5526 1212 FORMAT('      THE ENTERED MESSAGE TO THE OPERATOR')
5527      CALL DPWRST('XXX','BUG ')
5528      WRITE(ICOUT,1213)
5529 1213 FORMAT('      CANNOT BE SENT BECAUSE')
5530      CALL DPWRST('XXX','BUG ')
5531      WRITE(ICOUT,1214)
5532 1214 FORMAT('      THE REQUIRED CALL TO A SYSTEM-DEPENDENT')
5533      CALL DPWRST('XXX','BUG ')
5534      WRITE(ICOUT,1215)
5535 1215 FORMAT('      ROUTINE TO SEND SUCH MESSAGES')
5536      CALL DPWRST('XXX','BUG ')
5537      WRITE(ICOUT,1216)
5538 1216 FORMAT('      HAS NOT BEEN IMPLEMENTED')
5539      CALL DPWRST('XXX','BUG ')
5540      WRITE(ICOUT,1217)
5541 1217 FORMAT('      AT THIS INSTALLATION.')
5542      CALL DPWRST('XXX','BUG ')
5543      WRITE(ICOUT,1218)ISTAT
5544 1218 FORMAT('      ISTAT = ',A12)
5545      CALL DPWRST('XXX','BUG ')
5546      WRITE(ICOUT,1221)
5547 1221 FORMAT('      PLEASE REQUEST THE IMPLEMENTOR')
5548      CALL DPWRST('XXX','BUG ')
5549      WRITE(ICOUT,1222)
5550 1222 FORMAT('      TO ENTER THE CODE INTO THIS SUBROUTINE')
5551      CALL DPWRST('XXX','BUG ')
5552      WRITE(ICOUT,1223)
5553 1223 FORMAT('      (DPOPMS) TO CALL SUCH A SYSTEM-DEPENDENT')
5554      CALL DPWRST('XXX','BUG ')
5555      WRITE(ICOUT,1224)
5556 1224 FORMAT('      ROUTINE.')
5557      CALL DPWRST('XXX','BUG ')
5558      GOTO9000
5559 1290 CONTINUE
5560C
5561CCCCC CALL XXX(ISTRIN,NCSTRI)
5562C
5563C               ****************
5564C               **  STEP 90-- **
5565C               **  EXIT.     **
5566C               ****************
5567C
5568 9000 CONTINUE
5569      IF(IBUGS2.EQ.'ON' .OR. ISUBRO.EQ.'OPMS')THEN
5570        WRITE(ICOUT,999)
5571        CALL DPWRST('XXX','BUG ')
5572        WRITE(ICOUT,9011)
5573 9011   FORMAT('***** AT THE END       OF DPOPMS--')
5574        CALL DPWRST('XXX','BUG ')
5575        IF(IWIDTH.GE.1)THEN
5576          WRITE(ICOUT,9042)(IANS(I),I=1,MIN(80,IWIDTH))
5577 9042     FORMAT('(IANS(I),I=1,IWIDTH) = ',80A1)
5578          CALL DPWRST('XXX','BUG ')
5579        ENDIF
5580        WRITE(ICOUT,9043)IERROR,NCSTRI
5581 9043   FORMAT('IERROR,NCSTRI = ',A4,2X,I8)
5582        CALL DPWRST('XXX','BUG ')
5583        IF(NCSTRI.GE.1)THEN
5584          WRITE(ICOUT,9044)(ISTRIN(I:I),I=1,NCSTRI)
5585 9044     FORMAT('(ISTRIN(I:I),I=1,NCSTRI) = ',80A1)
5586          CALL DPWRST('XXX','BUG ')
5587        ENDIF
5588      ENDIF
5589C
5590      RETURN
5591      END
5592      SUBROUTINE DPUPPE(IA,IWIDTH,IB,IBUGMA,IERROR)
5593C
5594C     PURPOSE--CONVERT LOWER CASE ALPHABETIC (A TO Z) ASCII CHARACTERS
5595C              TO UPPER CASE ASCII CHARACTERS.
5596C              DO SO FOR EACH OF THE    IWIDTH    CHARACTERS
5597C              IN THE CHARACTER ARRAY IA(.).
5598C              IT IS ASSUMED THAT IA IS CHARACTER*4
5599C              AND HAS 1 CHARACTER (LEFT-JUSTIFIED) PER WORD.
5600C
5601C     INPUT  ARGUMENTS--IA     = HOLLERITH ARRAY WITH 1 CHARACTER PER WORD
5602C                       IWIDTH = INTEGER NUMBER OF WORDS IN IA.
5603C                       IBUGMA = HOLLERITH BUG (= TRACE) VARIABLE
5604C                       IERROR = HOLLERITH VARIABLE
5605C     OUTPUT ARGUMENTS--IB     = HOLLERITH ARRAY WITH 1 CHARACTER PER WORD
5606C
5607C     NOTE--IF SO DESIRED, THE CALLING SEQUENCE FOR DPUPPE
5608C           MAY HAVE IB(.) IDENTICAL TO IA(.).
5609C     WRITTEN BY--JAMES J. FILLIBEN
5610C                 STATISTICAL ENGINEERING DIVISION
5611C                 INFORMATION TECHNOLOGY LABORATORY
5612C                 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY
5613C                 GAITHERSBURG, MD 20899
5614C                 PHONE--301-975-2855
5615C     NOTE--DATAPLOT IS A REGISTERED TRADEMARK
5616C           OF THE NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY.
5617C     LANGUAGE--ANSI FORTRAN (1977)
5618C     VERSION NUMBER--82/7
5619C     ORIGINAL VERSION--JANUARY 1981.
5620C     UPDATED         --MAY       1982.
5621C     UPDATED         --OCTOBER   1991. ONLY FIRST CHARACTER WAS
5622C                                       BEING CONVERTED. FIX.
5623C                                       EXTENSIVELY MODIFIED.  ALAN
5624C
5625C-----CHARACTER STATEMENTS FOR NON-COMMON VARIABLES-------------------
5626C
5627      CHARACTER*4 IA
5628      CHARACTER*4 IB
5629C
5630      CHARACTER*1 IA1
5631      CHARACTER*1 IB1
5632C
5633      CHARACTER*4 IBUGMA
5634      CHARACTER*4 IERROR
5635C
5636CCCCC CHARACTER*4 IA4
5637C
5638C---------------------------------------------------------------------
5639C
5640      DIMENSION IA(*)
5641      DIMENSION IB(*)
5642C
5643C---------------------------------------------------------------------
5644C
5645      INCLUDE 'DPCOP2.INC'
5646C
5647C-----START POINT-----------------------------------------------------
5648C
5649      IF(IBUGMA.EQ.'ON')THEN
5650        WRITE(ICOUT,999)
5651  999   FORMAT(1X)
5652        CALL DPWRST('XXX','BUG ')
5653        WRITE(ICOUT,51)
5654   51   FORMAT('***** AT THE BEGINNING OF DPUPPE--')
5655        CALL DPWRST('XXX','BUG ')
5656        WRITE(ICOUT,52)IWIDTH,IBUGMA,IERROR
5657   52   FORMAT('IWIDTH,IBUGMA,IERROR = ',I8,2X,A4,2X,A4)
5658        CALL DPWRST('XXX','BUG ')
5659        WRITE(ICOUT,53)(IA(I),I=1,MIN(100,IWIDTH))
5660   53   FORMAT('(IA(I),I=1,IWIDTH) = ',100A1)
5661        CALL DPWRST('XXX','BUG ')
5662        WRITE(ICOUT,54)(IB(I),I=1,MIN(100,IWIDTH))
5663   54   FORMAT('(IB(I),I=1,IWIDTH) = ',100A1)
5664        CALL DPWRST('XXX','BUG ')
5665      ENDIF
5666C
5667C               *******************************************************
5668C               **  THE FOLLOWING CODE WILL CARRY OUT THE LOWER CASE **
5669C               **  TO UPPER CASE CONVERSION FOR ALL COMPUTERS WITH  **
5670C               **  AN ANSI 77 FORTRAN COMPILER--IT MAKES USE OF THE **
5671C               **  ANSI FORTRAN 77 INTRINSIC FUNCTIONS              **
5672C               **     1) ICHAR (FOR ASCII CHARACTER TO ASCII NUMERIC**
5673C               **        CONVERSION                                 **
5674C               **     2) CHAR  (FOR ASCII NUMERIC TO ASCII CHARACTER**
5675C               **        CONVERSION                                 **
5676C               *******************************************************
5677C
5678C
5679      IF(IWIDTH.LE.0)GOTO9000
5680      DO100I=1,IWIDTH
5681C
5682C  OCTOBER, 1991.  ADD INNER LOOP (I.E., J LOOP)
5683        DO200J=1,4
5684          IA1=IA(I)(J:J)
5685          CALL DPCOAN(IA1,IVALUE)
5686          IF(97.LE.IVALUE.AND.IVALUE.LE.122)THEN
5687            IVAM32=IVALUE-32
5688            CALL DPCONA(IVAM32,IB1)
5689            IB(I)(J:J)=IB1
5690            GOTO200
5691          ELSE
5692            IB(I)(J:J)=IA(I)(J:J)
5693            GOTO200
5694          ENDIF
5695C
5696  200   CONTINUE
5697  100 CONTINUE
5698C
5699      GOTO9000
5700C
5701C               *******************************************************
5702C               **  CONVERSION TO UPPER CASE FOR THE UNIVAC 1100     **
5703C               **  SERIES. FTN COM                                  **
5704C               *******************************************************
5705C
5706CCCCC IF(IWIDTH.LE.0)GOTO1190
5707CCCCC DO1100I=1,IWIDTH
5708CCCCC IA4=IA(I)
5709CCCCC IB(I)=UPPERC(IA4)
5710C1100 CONTINUE
5711C1190 CONTINUE
5712CCCCC GOTO9000
5713C
5714C               *****************
5715C               **  STEP 90--  **
5716C               **  EXIT.      **
5717C               *****************
5718C
5719 9000 CONTINUE
5720      IF(IBUGMA.EQ.'ON')THEN
5721        WRITE(ICOUT,999)
5722        CALL DPWRST('XXX','BUG ')
5723        WRITE(ICOUT,9011)
5724 9011   FORMAT('***** AT THE END       OF DPUPPE--')
5725        CALL DPWRST('XXX','BUG ')
5726        WRITE(ICOUT,9012)IWIDTH,IBUGMA,IERROR
5727 9012   FORMAT('IWIDTH,IBUGMA,IERROR = ',I8,2X,A4,2X,A4)
5728        CALL DPWRST('XXX','BUG ')
5729        WRITE(ICOUT,9013)(IA(I),I=1,MIN(100,IWIDTH))
5730 9013   FORMAT('(IA(I),I=1,IWIDTH) = ',100A1)
5731        CALL DPWRST('XXX','BUG ')
5732        WRITE(ICOUT,9014)(IB(I),I=1,MIN(100,IWIDTH))
5733 9014   FORMAT('(IB(I),I=1,IWIDTH) = ',100A1)
5734        CALL DPWRST('XXX','BUG ')
5735      ENDIF
5736C
5737      RETURN
5738      END
5739      SUBROUTINE DPUPP2(IA,IWIDTH,IB,IWIDT2,IBUGMA,IERROR)
5740C
5741C     PURPOSE--CONVERT LOWER CASE ALPHABETIC (A TO Z) ASCII CHARACTERS
5742C              TO UPPER CASE ASCII CHARACTERS.
5743C              DO SO FOR EACH OF THE    IWIDTH    CHARACTERS
5744C              IN THE CHARACTER SRING IA.
5745C
5746C              ALSO STRIP OUT LEADING SPACES AND REPLICATED SPACES.
5747C
5748C     INPUT  ARGUMENTS--IA     = CHARACTER STRING
5749C                       IWIDTH = INTEGER NUMBER OF WORDS IN IA.
5750C                       IBUGMA = CHARACTER VARIABLE (= TRACE) VARIABLE
5751C                       IERROR = CHARACTER VARIABLE
5752C     OUTPUT ARGUMENTS--IB     = CHARACTER STRING
5753C
5754C     NOTE--IF SO DESIRED, THE CALLING SEQUENCE FOR DPUPP2
5755C           MAY HAVE IB IDENTICAL TO IA.
5756C     WRITTEN BY--ALAN HECKERT
5757C                 STATISTICAL ENGINEERING DIVISION
5758C                 INFORMATION TECHNOLOGY LABORTORY
5759C                 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY
5760C                 GAITHERSBURG, MD 20899-8980
5761C                 PHONE--301-975-2899
5762C     NOTE--DATAPLOT IS A REGISTERED TRADEMARK
5763C           OF THE NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY.
5764C     LANGUAGE--ANSI FORTRAN (1977)
5765C     VERSION NUMBER--2014/11
5766C     ORIGINAL VERSION--NOVEMBER  2014.
5767C
5768C-----CHARACTER STATEMENTS FOR NON-COMMON VARIABLES-------------------
5769C
5770      CHARACTER*(*) IA
5771      CHARACTER*(*) IB
5772C
5773      CHARACTER*1 IA1
5774      CHARACTER*1 IB1
5775C
5776      CHARACTER*4 IBUGMA
5777      CHARACTER*4 IERROR
5778C
5779C---------------------------------------------------------------------
5780C
5781      INCLUDE 'DPCOP2.INC'
5782C
5783C-----START POINT-----------------------------------------------------
5784C
5785      IF(IBUGMA.EQ.'ON')THEN
5786        WRITE(ICOUT,999)
5787  999   FORMAT(1X)
5788        CALL DPWRST('XXX','BUG ')
5789        WRITE(ICOUT,51)
5790   51   FORMAT('***** AT THE BEGINNING OF DPUPP2--')
5791        CALL DPWRST('XXX','BUG ')
5792        WRITE(ICOUT,52)IWIDTH,IBUGMA,IERROR
5793   52   FORMAT('IWIDTH,IBUGMA,IERROR = ',I8,2X,A4,2X,A4)
5794        CALL DPWRST('XXX','BUG ')
5795        WRITE(ICOUT,53)(IA(I:I),I=1,MIN(100,IWIDTH))
5796   53   FORMAT('(IA(I),I=1,IWIDTH) = ',100A1)
5797        CALL DPWRST('XXX','BUG ')
5798      ENDIF
5799C
5800C               *******************************************************
5801C               **  THE FOLLOWING CODE WILL CARRY OUT THE LOWER CASE **
5802C               **  TO UPPER CASE CONVERSION FOR ALL COMPUTERS WITH  **
5803C               **  AN ANSI 77 FORTRAN COMPILER--IT MAKES USE OF THE **
5804C               **  ANSI FORTRAN 77 INTRINSIC FUNCTIONS              **
5805C               **     1) ICHAR (FOR ASCII CHARACTER TO ASCII NUMERIC**
5806C               **        CONVERSION                                 **
5807C               **     2) CHAR  (FOR ASCII NUMERIC TO ASCII CHARACTER**
5808C               **        CONVERSION                                 **
5809C               *******************************************************
5810C
5811C
5812      IF(IWIDTH.GE.1)THEN
5813        IWIDT2=IWIDT2+1
5814        NBLANK=0
5815        NLEAD=0
5816        DO100I=1,IWIDTH
5817          IA1=IA(I:I)
5818          IF(IA1.EQ.' ')THEN
5819            IF(NLEAD.EQ.0)GOTO100
5820            IF(NBLANK.EQ.0)THEN
5821              IWIDT2=IWIDT2+1
5822              IB(IWIDT2:IWIDT2)=IA1
5823              NBLANK=NBLANK+1
5824            ENDIF
5825          ELSE
5826            NLEAD=1
5827            CALL DPCOAN(IA1,IVALUE)
5828            IF(97.LE.IVALUE.AND.IVALUE.LE.122)THEN
5829              IVAM32=IVALUE-32
5830              CALL DPCONA(IVAM32,IB1)
5831              IWIDT2=IWIDT2+1
5832              IB(IWIDT2:IWIDT2)=IB1
5833            ENDIF
5834          ENDIF
5835  100   CONTINUE
5836      ENDIF
5837C
5838C               *****************
5839C               **  STEP 90--  **
5840C               **  EXIT.      **
5841C               *****************
5842C
5843      IF(IBUGMA.EQ.'ON')THEN
5844        WRITE(ICOUT,999)
5845        CALL DPWRST('XXX','BUG ')
5846        WRITE(ICOUT,9011)
5847 9011   FORMAT('***** AT THE END       OF DPUPP2--')
5848        CALL DPWRST('XXX','BUG ')
5849        WRITE(ICOUT,9012)IWIDTH,IWIDT2,IERROR
5850 9012   FORMAT('IWIDTH,IWIDT2,IERROR = ',2I8,2X,A4)
5851        CALL DPWRST('XXX','BUG ')
5852        WRITE(ICOUT,9014)(IB(I:I),I=1,MIN(100,IWIDT2))
5853 9014   FORMAT('(IB(I:I),I=1,IWIDT2) = ',100A1)
5854        CALL DPWRST('XXX','BUG ')
5855      ENDIF
5856C
5857      RETURN
5858      END
5859      SUBROUTINE DPNONP(IA,IWIDTH,IB,IBUGMA,ISUBRO,IERROR)
5860C
5861C     PURPOSE--CONVERT NON-PRINTING CHARACTERS TO SPACES
5862C     INPUT  ARGUMENTS--IA     = HOLLERITH ARRAY WITH 1 CHARACTER PER WORD
5863C                       IWIDTH = INTEGER NUMBER OF WORDS IN IA.
5864C                       IBUGMA = HOLLERITH BUG (= TRACE) VARIABLE
5865C                       IERROR = HOLLERITH VARIABLE
5866C     OUTPUT ARGUMENTS--IB     = HOLLERITH ARRAY WITH 1 CHARACTER PER WORD
5867C
5868C     NOTE--IF SO DESIRED, THE CALLING SEQUENCE FOR DPNONP
5869C           MAY HAVE IB(.) IDENTICAL TO IA(.).
5870C     WRITTEN BY--JAMES J. FILLIBEN
5871C                 STATISTICAL ENGINEERING DIVISION
5872C                 INFORMATION TECHNOLOGY LABORATORY
5873C                 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY
5874C                 GAITHERSBURG, MD 20899
5875C                 PHONE--301-975-2855
5876C     NOTE--DATAPLOT IS A REGISTERED TRADEMARK
5877C           OF THE NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY.
5878C     LANGUAGE--ANSI FORTRAN (1977)
5879C     VERSION NUMBER--93/10
5880C     ORIGINAL VERSION--OCTOBER   1993
5881C     UPDATED         --FEBRUARY  2019 OPTION TO SPECIFY HOW MANY SPACES
5882C                                      TABS WILL BE CONVERTED TO
5883C     UPDATED         --MARCH     2019 ADD ISUBRO TO CALL LIST
5884C
5885C-----CHARACTER STATEMENTS FOR NON-COMMON VARIABLES-------------------
5886C
5887      CHARACTER*4 IA(*)
5888      CHARACTER*4 IB(*)
5889C
5890      INCLUDE 'DPCOPA.INC'
5891C
5892CCCCC CHARACTER*4 IC(255)
5893      CHARACTER*4 IC(MAXSTR)
5894      CHARACTER*1 IA1
5895      CHARACTER*4 IBUGMA
5896      CHARACTER*4 ISUBRO
5897      CHARACTER*4 IERROR
5898      CHARACTER*4 IFLAG
5899C
5900C---------------------------------------------------------------------
5901C
5902      INCLUDE 'DPCOST.INC'
5903C
5904C---------------------------------------------------------------------
5905C
5906      INCLUDE 'DPCOP2.INC'
5907C
5908C-----START POINT-----------------------------------------------------
5909C
5910      IF(IBUGMA.EQ.'ON' .OR. ISUBRO.EQ.'NONP')THEN
5911        WRITE(ICOUT,999)
5912  999   FORMAT(1X)
5913        CALL DPWRST('XXX','BUG ')
5914        WRITE(ICOUT,51)
5915   51   FORMAT('***** AT THE BEGINNING OF DPNONP--')
5916        CALL DPWRST('XXX','BUG ')
5917        WRITE(ICOUT,52)IBUGMA,IERROR,IWIDTH,ITABNC
5918   52   FORMAT('IBUGMA,IERROR,IWIDTH,ITABNC = ',2(A4,2X),2I8)
5919        CALL DPWRST('XXX','BUG ')
5920        DO55I=1,IWIDTH
5921          WRITE(ICOUT,53)I,IA(I)
5922   53     FORMAT('I,IA(I) = ',I5,2X,A4)
5923          CALL DPWRST('XXX','BUG ')
5924   55   CONTINUE
5925      ENDIF
5926C
5927      MAXWID=IWIDTH
5928      DO60II=IWIDTH,1,-1
5929        IF(IA(II).NE.'    ')THEN
5930          IWIDTH=II
5931          GOTO69
5932        ENDIF
5933   60 CONTINUE
5934      IWIDTH=0
5935   69 CONTINUE
5936C
5937C               ******************************************************
5938C               **  THE FOLLOWING CODE WILL CONVERT NON_PRINTING    **
5939C               **  CHARACTERS TO SPACES.                           **
5940C               ******************************************************
5941C
5942      IF(IWIDTH.GE.1)THEN
5943        IFLAG='ON'
5944        DO90II=1,MAXWID
5945          IC(II)='   '
5946   90   CONTINUE
5947C
5948C       CHECK FOR:
5949C
5950C          1. CHARACTERS ENCLOSED WITHIN SINGLE OR DOUBLE QUOTES ARE
5951C             NOT REPLACED.
5952C
5953C          2. FOR TAB CHARACTERS:
5954C
5955C               ITABNC = 0  => LEAVE TAB CHARACTER IN
5956C               ITABNC = 1  => REPLACE TAB WITH SINGLE SPACE
5957C               ITABNC > 1  => REPLACE TAB WITH ITABNC SPACES
5958C
5959C           3. IF NOT IN QUOTES, REPLACE ANY NON-TAB NON-PRINTING
5960C              CHARACTERS WITH A SINGLE SPACE.
5961C
5962        IWIDT2=0
5963        DO100I=1,IWIDTH
5964          IA1=IA(I)(1:1)
5965          CALL DPCOAN(IA1,IVALUE)
5966C
5967          IF(IBUGMA.EQ.'ON' .OR. ISUBRO.EQ.'NONP')THEN
5968            WRITE(ICOUT,101)I,IVALUE,IA1,IFLAG
5969  101       FORMAT('AT 100: I,IVALUE,IA1 = ',2I5,2X,A1,2X,A4)
5970            CALL DPWRST('XXX','BUG ')
5971          ENDIF
5972C
5973          IF(IFLAG.EQ.'ON')THEN
5974            IF(IVALUE.EQ.34.OR.IVALUE.EQ.39)THEN
5975              IFLAG='OFF'
5976              IF(IWIDT2.GE.MIN(MAXWID,MAXSTR))GOTO199
5977              IWIDT2=IWIDT2+1
5978              IC(IWIDT2)=IA(I)
5979            ELSEIF(IVALUE.EQ.9)THEN
5980C
5981              IF(IBUGMA.EQ.'ON' .OR. ISUBRO.EQ.'NONP')THEN
5982                WRITE(ICOUT,103)ITABNC,MAXWID
5983  103           FORMAT('AT TAB CASE: ITABNC,MAXWID = ',2I6)
5984                CALL DPWRST('XXX','BUG ')
5985              ENDIF
5986C
5987              IF(ITABNC.LE.0)THEN
5988                IF(IWIDT2.GE.MIN(MAXWID,MAXSTR))GOTO199
5989                IWIDT2=IWIDT2+1
5990                IC(IWIDT2)=IA(I)
5991              ELSEIF(ITABNC.GE.1)THEN
5992                DO110II=1,ITABNC
5993                  IF(IWIDT2.GE.MIN(MAXWID,MAXSTR))GOTO199
5994                  IWIDT2=IWIDT2+1
5995                  IC(IWIDT2)='    '
5996  110           CONTINUE
5997              ENDIF
5998            ELSEIF(IVALUE.LE.31.OR.IVALUE.GE.128)THEN
5999              IF(IWIDT2.GE.MIN(MAXWID,MAXSTR))GOTO199
6000              IWIDT2=IWIDT2+1
6001              IC(IWIDT2)='    '
6002            ELSE
6003              IF(IWIDT2.GE.MIN(MAXWID,MAXSTR))GOTO199
6004              IWIDT2=IWIDT2+1
6005              IC(IWIDT2)=IA(I)
6006            ENDIF
6007          ELSEIF(IFLAG.EQ.'OFF')THEN
6008            IF(IVALUE.EQ.34.OR.IVALUE.EQ.39)THEN
6009              IFLAG='ON'
6010            ENDIF
6011            IF(IWIDT2.GE.MIN(MAXWID,MAXSTR))GOTO199
6012            IWIDT2=IWIDT2+1
6013            IC(IWIDT2)=IA(I)
6014          ENDIF
6015  100   CONTINUE
6016  199   CONTINUE
6017        IWIDTH=IWIDT2
6018        IF(IWIDT2.GE.1)THEN
6019          DO210II=1,IWIDT2
6020            IB(II)=IC(II)
6021  210     CONTINUE
6022        ENDIF
6023      ENDIF
6024C
6025C               *****************
6026C               **  STEP 90--  **
6027C               **  EXIT.      **
6028C               *****************
6029C
6030      IF(IBUGMA.EQ.'ON' .OR. ISUBRO.EQ.'NONP')THEN
6031        WRITE(ICOUT,999)
6032        CALL DPWRST('XXX','BUG ')
6033        WRITE(ICOUT,9011)
6034 9011   FORMAT('***** AT THE END       OF DPNONP--')
6035        CALL DPWRST('XXX','BUG ')
6036        WRITE(ICOUT,9012)IERROR,IWIDTH
6037 9012   FORMAT('IERROR,IWIDTH = ',A4,2X,I5)
6038        CALL DPWRST('XXX','BUG ')
6039        DO9015II=1,IWIDTH
6040          WRITE(ICOUT,9014)II,IB(II)
6041 9014     FORMAT('II,IB(II) = ',I5,2X,A4)
6042          CALL DPWRST('XXX','BUG ')
6043 9015   CONTINUE
6044      ENDIF
6045C
6046      RETURN
6047      END
6048      SUBROUTINE DPUPP4(IA4,IB4,IBUGMA,IERROR)
6049C
6050C     PURPOSE--CONVERT 4-CHARACTER LOWER CASE ALPHABETIC (A TO Z)
6051C              ASCII WORD IA4
6052C              TO UPPER CASE ASCII WORD IB4.
6053C     NOTE--IA4 AND IB4 ARE ASSUMED TO BE CHARACTER*4
6054C     NOTE--IA4 AND IB4 MAY BE THE SAME VARIABLE IN THE CALLING ROUTINE.
6055C     WRITTEN BY--JAMES J. FILLIBEN
6056C     LANGUAGE--ANSI FORTRAN (1977)
6057C     VERSION NUMBER--86/9
6058C     ORIGINAL VERSION--AUGUST 1986.
6059C
6060C---------------------------------------------------------------------
6061C
6062      CHARACTER*4 IA4
6063      CHARACTER*4 IB4
6064      CHARACTER*4 IBUGMA
6065      CHARACTER*4 IERROR
6066C
6067      CHARACTER*1 IA1
6068      CHARACTER*1 IB1
6069C
6070C---------------------------------------------------------------------
6071C
6072      INCLUDE 'DPCOP2.INC'
6073C
6074C-----START POINT-----------------------------------------------------
6075C
6076      IF(IBUGMA.EQ.'OFF')GOTO90
6077      WRITE(ICOUT,999)
6078  999 FORMAT(1X)
6079      CALL DPWRST('XXX','BUG ')
6080      WRITE(ICOUT,51)
6081   51 FORMAT('***** AT THE BEGINNING OF DPUPP4--')
6082      CALL DPWRST('XXX','BUG ')
6083      WRITE(ICOUT,52)IA4
6084   52 FORMAT('IA4 = ',A4)
6085      CALL DPWRST('XXX','BUG ')
6086      WRITE(ICOUT,53)IBUGMA,IERROR
6087   53 FORMAT('IBUGMA,IERROR = ',A4,2X,A4)
6088      CALL DPWRST('XXX','BUG ')
6089   90 CONTINUE
6090C
6091C               ********************************************************
6092C               **  STEP 11--
6093C               **  THE FOLLOWING CODE WILL CARRY OUT THE LOWER CASE
6094C               **  TO UPPER CASE CONVERSION FOR ALL COMPUTERS
6095C               **  WITH AN ANSI 77 FORTRAN COMPILER--IT MAKES
6096C               **  USE OF THE ANSI FORTRAN 77 INTRINSIC FUNCTIONS
6097C               **     1) ICHAR (FOR ASCII CHARACTER TO ASCII NUMERIC CO
6098C               **     2) CHAR  (FOR ASCII NUMERIC TO ASCII CHARACTER CO
6099C               ********************************************************
6100C
6101      IB4=IA4
6102C
6103      IA1=' '
6104      IB1=' '
6105C
6106      DO1100I=1,4
6107C
6108      IA1=IA4(I:I)
6109      IVALUE=ICHAR(IA1)
6110      IF(97.LE.IVALUE.AND.IVALUE.LE.122)GOTO1110
6111      GOTO1100
6112C
6113 1110 CONTINUE
6114      IVAM32=IVALUE-32
6115      IB1=CHAR(IVAM32)
6116      IB4(I:I)=IB1
6117      GOTO1100
6118C
6119 1100 CONTINUE
6120C
6121      GOTO9000
6122C
6123C               *****************
6124C               **  STEP 90--  **
6125C               **  EXIT.      **
6126C               *****************
6127C
6128 9000 CONTINUE
6129      IF(IBUGMA.EQ.'OFF')GOTO9090
6130      WRITE(ICOUT,999)
6131      CALL DPWRST('XXX','BUG ')
6132      WRITE(ICOUT,9011)
6133 9011 FORMAT('***** AT THE END       OF DPUPP4--')
6134      CALL DPWRST('XXX','BUG ')
6135      WRITE(ICOUT,9012)IA4,IA1,IB1,IB4
6136 9012 FORMAT('IA4,IA1,IB1,IB4 = ',A4,2X,A1,2X,A1,2X,A4)
6137      CALL DPWRST('XXX','BUG ')
6138      WRITE(ICOUT,9013)IBUGMA,IERROR
6139 9013 FORMAT('IBUGMA,IERROR = ',A4,2X,A4)
6140      CALL DPWRST('XXX','BUG ')
6141 9090 CONTINUE
6142C
6143      RETURN
6144      END
6145      SUBROUTINE DPUPNT(IHNAME,IHNAM2,IUSE,IVALUE,VALUE,IN,
6146     1IVSTAR,IVSTOP,MAXNAM,NUMNAM,V,MAXN,MAXCOL,NUMCOL,
6147     1IBUGS2,IERROR)
6148C
6149C     PURPOSE--HANDLE THE CASE IN WHICH ARBITRARY ENTRIES HAVE
6150C              BEEN EARMARKED FOR DELETION IN THE NAME TABLE
6151C              (BY IN(.) BEING SET TO NON-POSITIVE)
6152C              AND SO ENTIRES
6153C              MUST BE SHIFTED TO AVOID HOLES IN THE TABLE.
6154C              UPDATE HOUSEKEEPING TABLES ACCORDINGLY.
6155C     WRITTEN BY--JAMES J. FILLIBEN
6156C                 STATISTICAL ENGINEERING DIVISION
6157C                 INFORMATION TECHNOLOGY LABORATORY
6158C                 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY
6159C                 GAITHERSBURG, MD 20899
6160C                 PHONE--301-975-2855
6161C     NOTE--DATAPLOT IS A REGISTERED TRADEMARK
6162C           OF THE NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY.
6163C           THIS SUBROUTINE MAY NOT BE COPIED, EXTRACTED,
6164C           MODIFIED, OR OTHERWISE USED IN A CONTEXT
6165C           OUTSIDE OF THE DATAPLOT LANGUAGE/SYSTEM.
6166C     LANGUAGE--ANSI FORTRAN (1977)
6167C     VERSION NUMBER--89/1
6168C     ORIGINAL VERSION--DECEMBER  1988.
6169C     UPDATED         --NOVEMBER  1998. BUG FIX.  ONLY DELETE IF
6170C                                       IN(.) IS NEGATIVE
6171C
6172C-----CHARACTER STATEMENTS FOR NON-COMMON VARIABLES-------------------
6173C
6174      CHARACTER*4 IHNAME
6175      CHARACTER*4 IHNAM2
6176      CHARACTER*4 IUSE
6177      CHARACTER*4 IBUGS2
6178      CHARACTER*4 IERROR
6179C
6180      CHARACTER*4 ISUBN1
6181      CHARACTER*4 ISUBN2
6182      CHARACTER*4 ISTEPN
6183C
6184C---------------------------------------------------------------------
6185C
6186      DIMENSION IHNAME(*)
6187      DIMENSION IHNAM2(*)
6188      DIMENSION IUSE(*)
6189      DIMENSION IVALUE(*)
6190      DIMENSION VALUE(*)
6191      DIMENSION IN(*)
6192      DIMENSION IVSTAR(*)
6193      DIMENSION IVSTOP(*)
6194C
6195      DIMENSION V(*)
6196C
6197C---------------------------------------------------------------------
6198C
6199      INCLUDE 'DPCOP2.INC'
6200C
6201C-----START POINT-----------------------------------------------------
6202C
6203      ISUBN1='DPUP'
6204      ISUBN2='NT  '
6205C
6206      IERROR='NO'
6207C
6208      IF(IBUGS2.EQ.'OFF')GOTO90
6209      WRITE(ICOUT,999)
6210  999 FORMAT(1X)
6211      CALL DPWRST('XXX','BUG ')
6212      WRITE(ICOUT,51)
6213   51 FORMAT('***** AT THE BEGINNING OF DPUPNT--')
6214      CALL DPWRST('XXX','BUG ')
6215      WRITE(ICOUT,52)IBUGS2,IERROR
6216   52 FORMAT('IBUGS2,IERROR = ',A4,2X,A4)
6217      CALL DPWRST('XXX','BUG ')
6218      WRITE(ICOUT,53)MAXNAM,NUMNAM
6219   53 FORMAT('MAXNAM,NUMNAM = ',2I8)
6220      CALL DPWRST('XXX','BUG ')
6221      WRITE(ICOUT,54)MAXN,MAXCOL,NUMCOL
6222   54 FORMAT('MAXN,MAXCOL,NUMCOL = ',3I8)
6223      CALL DPWRST('XXX','BUG ')
6224      DO60I=1,NUMNAM
6225      WRITE(ICOUT,61)I,IHNAME(I),IHNAM2(I),IUSE(I),IVALUE(I),VALUE(I)
6226   61 FORMAT('I,IHNAME(I),IHNAM2(I),IUSE(I),IVALUE(I),VALUE(I) = ',
6227     1I8,2X,A4,A4,2X,A4,I8,E15.7)
6228      CALL DPWRST('XXX','BUG ')
6229      WRITE(ICOUT,62)I,IHNAME(I),IHNAM2(I),IN(I),IVSTAR(I),IVSTOP(I)
6230   62 FORMAT('I,IHNAME(I),IHNAM2(I),IN(I),IVSTAR(I),IVSTOP(I)  = ',
6231     1I8,2X,A4,A4,6X,I8,I8,I8)
6232      CALL DPWRST('XXX','BUG ')
6233   60 CONTINUE
6234      WRITE(ICOUT,999)
6235      CALL DPWRST('XXX','BUG ')
6236      DO70J=1,NUMCOL
6237      IJ=MAXN*(J-1)+1
6238      WRITE(ICOUT,71)J,MAXN,IJ,V(IJ)
6239   71 FORMAT('J,MAXN,IJ,V(IJ) = ',I8,I8,I8,E15.7)
6240      CALL DPWRST('XXX','BUG ')
6241   70 CONTINUE
6242   90 CONTINUE
6243C
6244C               *********************************************
6245C               **  STEP 1--                               **
6246C               **  UPDATE THE HOUSEKEEPING TABLES.        **
6247C               **  ELIMINATE ANY ENTRIES IN THESE TABLES  **
6248C               **  WHICH HAVE LENGTH OF VARIABLE = NON-POSITIVE;   **
6249C               **  THAT IS, WHICH HAVE IN(.) = NON-POSITIVE.         **
6250C               *********************************************
6251C
6252      ISTEPN='1'
6253      IF(IBUGS2.EQ.'ON')CALL TRACE2(ISTEPN,ISUBN1,ISUBN2)
6254C
6255      IF(NUMNAM.LE.0)GOTO1129
6256      J=0
6257 1101 CONTINUE
6258      J=J+1
6259      IF(J.GT.NUMNAM)GOTO1129
6260      IF(IHNAME(J).EQ.'PRED'.AND.IHNAM2(J).EQ.'    ')GOTO1100
6261      IF(IHNAME(J).EQ.'RES '.AND.IHNAM2(J).EQ.'    ')GOTO1100
6262      IF(IHNAME(J).EQ.'YPLO'.AND.IHNAM2(J).EQ.'T   ')GOTO1100
6263      IF(IHNAME(J).EQ.'XPLO'.AND.IHNAM2(J).EQ.'T   ')GOTO1100
6264      IF(IHNAME(J).EQ.'X2PL'.AND.IHNAM2(J).EQ.'OT  ')GOTO1100
6265      IF(IHNAME(J).EQ.'TAGP'.AND.IHNAM2(J).EQ.'LOT ')GOTO1100
6266CCCCC BUG FIX.  ONLY DELETE IF NEGATIVE.  STRINGS AND PARAMETERS
6267CCCCC ARE ZERO BY DEFAULT, DON'T NECCESSARILY WANT TO DELETE.  11/98.
6268CCCCC IF(IN(J).LE.0)GOTO1109
6269      IF(IN(J).LT.0)GOTO1109
6270      GOTO1100
6271 1109 CONTINUE
6272C
6273      JP1=J+1
6274      IF(JP1.GT.NUMNAM)GOTO1119
6275      DO1110K=JP1,NUMNAM
6276      KM1=K-1
6277      IHNAME(KM1)=IHNAME(K)
6278      IHNAM2(KM1)=IHNAM2(K)
6279      IUSE(KM1)=IUSE(K)
6280      IVALUE(KM1)=IVALUE(K)
6281      VALUE(KM1)=VALUE(K)
6282      IN(KM1)=IN(K)
6283      IVSTAR(KM1)=IVSTAR(K)
6284      IVSTOP(KM1)=IVSTOP(K)
6285 1110 CONTINUE
6286 1119 CONTINUE
6287      NUMNAM=NUMNAM-1
6288      J=J-1
6289C
6290 1100 CONTINUE
6291      GOTO1101
6292 1129 CONTINUE
6293C
6294C               ************************************************
6295C               **  STEP 2--                                  **
6296C               **  DETERMINE THE LARGEST COLUMN REFERENCED.  **
6297C               ************************************************
6298C
6299      ISTEPN='2'
6300      IF(IBUGS2.EQ.'ON')CALL TRACE2(ISTEPN,ISUBN1,ISUBN2)
6301C
6302      ICOLMX=0
6303      IF(NUMNAM.LE.0)GOTO2159
6304      DO2150J=1,NUMNAM
6305      IF(IHNAME(J).EQ.'PRED'.AND.IHNAM2(J).EQ.'    ')GOTO2150
6306      IF(IHNAME(J).EQ.'RES '.AND.IHNAM2(J).EQ.'    ')GOTO2150
6307      IF(IHNAME(J).EQ.'YPLO'.AND.IHNAM2(J).EQ.'T   ')GOTO2150
6308      IF(IHNAME(J).EQ.'XPLO'.AND.IHNAM2(J).EQ.'T   ')GOTO2150
6309      IF(IHNAME(J).EQ.'X2PL'.AND.IHNAM2(J).EQ.'OT  ')GOTO2150
6310      IF(IHNAME(J).EQ.'TAGP'.AND.IHNAM2(J).EQ.'LOT ')GOTO2150
6311      IF(IUSE(J).EQ.'V'.AND.IVALUE(J).GT.ICOLMX)ICOLMX=IVALUE(J)
6312 2150 CONTINUE
6313 2159 CONTINUE
6314C
6315C               *******************************************************
6316C               **  STEP 3--                                         **
6317C               **  TREAT THE CASE WHERE THERE IS AT LEAST           **
6318C               **  1 VARIABLE IN THE DATA ARRAY WHICH MAY           **
6319C               **  (AT LEAST POTENTIALLY) BE SHIFTED (COMPRESSED).  **
6320C               *******************************************************
6321C
6322      ISTEPN='3'
6323      IF(IBUGS2.EQ.'ON')CALL TRACE2(ISTEPN,ISUBN1,ISUBN2)
6324C
6325      ICODE=0
6326      NUMCO2=NUMCOL
6327      IF(ICOLMX.LE.0)GOTO3900
6328      DO3300ICOL=1,ICOLMX
6329C
6330      IPASS=0
6331      IF(NUMNAM.LE.0)GOTO3900
6332      DO3400J=1,NUMNAM
6333      IF(IHNAME(J).EQ.'PRED'.AND.IHNAM2(J).EQ.'    ')GOTO3400
6334      IF(IHNAME(J).EQ.'RES '.AND.IHNAM2(J).EQ.'    ')GOTO3400
6335      IF(IHNAME(J).EQ.'YPLO'.AND.IHNAM2(J).EQ.'T   ')GOTO3400
6336      IF(IHNAME(J).EQ.'XPLO'.AND.IHNAM2(J).EQ.'T   ')GOTO3400
6337      IF(IHNAME(J).EQ.'X2PL'.AND.IHNAM2(J).EQ.'OT  ')GOTO3400
6338      IF(IHNAME(J).EQ.'TAGP'.AND.IHNAM2(J).EQ.'LOT ')GOTO3400
6339      IF(IUSE(J).EQ.'V'.AND.IVALUE(J).EQ.ICOL)GOTO3450
6340      GOTO3400
6341C
6342 3450 CONTINUE
6343      IPASS=IPASS+1
6344      IF(IPASS.EQ.1)ICODE=ICODE+1
6345      IF(IPASS.EQ.1)GOTO3460
6346      GOTO3470
6347C
6348 3460 CONTINUE
6349      IF(IVALUE(J).EQ.ICODE)GOTO3490
6350      ICOLOL=IVALUE(J)
6351C
6352      IMAX=MAXN
6353      DO3461I=1,IMAX
6354      IJ=MAXN*(ICODE-1)+I
6355      V(IJ)=CPUMIN
6356 3461 CONTINUE
6357C
6358      IMAX=IN(J)
6359      DO3462I=1,IMAX
6360      IJ=MAXN*(ICODE-1)+I
6361      IJOL=MAXN*(ICOLOL-1)+I
6362      V(IJ)=V(IJOL)
6363 3462 CONTINUE
6364C
6365      IMAX=MAXN
6366      DO3463I=1,IMAX
6367      IJOL=MAXN*(ICOLOL-1)+I
6368      V(IJOL)=CPUMIN
6369 3463 CONTINUE
6370C
6371      GOTO3470
6372C
6373 3470 CONTINUE
6374      IVALUE(J)=ICODE
6375      VALUE(J)=IVALUE(J)
6376      IVSTAR(J)=MAXN*(ICODE-1)+1
6377      IVSTOP(J)=MAXN*(ICODE-1)+IN(J)
6378C
6379 3490 CONTINUE
6380 3400 CONTINUE
6381 3300 CONTINUE
6382 3900 CONTINUE
6383      NUMCOL=ICODE
6384C
6385C               *****************************************
6386C               **  STEP 4--                           **
6387C               **  TREAT THE CASE WHERE NO VARIABLES  **
6388C               **  REMAIN IN THE DATA ARRAY.          **
6389C               *****************************************
6390C
6391      ISTEPN='4'
6392      IF(IBUGS2.EQ.'ON')CALL TRACE2(ISTEPN,ISUBN1,ISUBN2)
6393C
6394      IF(ICOLMX.LE.0)GOTO4100
6395      GOTO4900
6396 4100 CONTINUE
6397      IF(NUMCO2.LE.0)GOTO4900
6398      DO4200J=1,NUMCO2
6399      DO4300I=1,MAXN
6400      IJ=MAXN*(J-1)+I
6401      V(IJ)=CPUMIN
6402 4300 CONTINUE
6403 4200 CONTINUE
6404 4900 CONTINUE
6405C
6406C               *****************
6407C               **  STEP 90--  **
6408C               **  EXIT.      **
6409C               *****************
6410C
6411      IF(IBUGS2.EQ.'ON')THEN
6412        WRITE(ICOUT,999)
6413        CALL DPWRST('XXX','BUG ')
6414        WRITE(ICOUT,9011)
6415 9011   FORMAT('***** AT THE END       OF DPUPNT--')
6416        CALL DPWRST('XXX','BUG ')
6417        WRITE(ICOUT,9014)MAXN,MAXCOL,NUMCOL,NUMNAM,IERROR
6418 9014   FORMAT('MAXN,MAXCOL,NUMCOL,NUMNAM,IERROR = ',4I8,2X,A4)
6419        CALL DPWRST('XXX','BUG ')
6420        DO9020I=1,NUMNAM
6421          WRITE(ICOUT,9021)I,IHNAME(I),IHNAM2(I),IUSE(I),IVALUE(I),
6422     1                     VALUE(I)
6423 9021     FORMAT('I,IHNAME(I),IHNAM2(I),IUSE(I),IVALUE(I),VALUE(I) = ',
6424     1           I8,2X,2A4,2X,A4,I8,G15.7)
6425         CALL DPWRST('XXX','BUG ')
6426         WRITE(ICOUT,9022)I,IHNAME(I),IHNAM2(I),IN(I),
6427     1                      IVSTAR(I),IVSTOP(I)
6428 9022    FORMAT('I,IHNAME(I),IHNAM2(I),IN(I),IVSTAR(I),IVSTOP(I)  = ',
6429     1          I8,2X,2A4,6X,3I8)
6430         CALL DPWRST('XXX','BUG ')
6431 9020   CONTINUE
6432        WRITE(ICOUT,999)
6433        CALL DPWRST('XXX','BUG ')
6434        DO9030J=1,NUMCOL
6435          IJ=MAXN*(J-1)+1
6436          WRITE(ICOUT,9031)J,MAXN,IJ,V(IJ)
6437 9031     FORMAT('J,MAXN,IJ,V(IJ) = ',I8,I8,I8,E15.7)
6438          CALL DPWRST('XXX','BUG ')
6439 9030   CONTINUE
6440      ENDIF
6441C
6442      RETURN
6443      END
6444      SUBROUTINE DPUP80(IA,IB,NMAX,IBUGS2,IERROR)
6445C
6446C     PURPOSE--FOR THE CHARACTER*80 VARIABLE IA,
6447C              CONVERT LOWER CASE ALPHABETIC (A TO Z) ASCII CHARACTERS
6448C              TO UPPER CASE ASCII CHARACTERS.
6449C              DO SO FOR ALL    80    CHARACTERS.
6450C              DO SO FOR STRLEZ(IA)
6451C
6452C     INPUT  ARGUMENTS--IA     = CHARACTER*80 VARIABLE
6453C                       IBUGS2 = HOLLERITH BUG (= TRACE) VARIABLE
6454C                       IERROR = HOLLERITH VARIABLE
6455C     OUTPUT ARGUMENTS--IB     = CHARACTER*80 VARIABLE
6456C     NOTE--IT IS PERMISSIBLE FOR IB TO BE THE SAME AS IA
6457C
6458C     NOTE--IF SO DESIRED, THE CALLING SEQUENCE FOR DPUP80
6459C           MAY HAVE IB IDENTICAL TO IA.
6460C     WRITTEN BY--JAMES J. FILLIBEN
6461C                 STATISTICAL ENGINEERING DIVISION
6462C                 INFORMATION TECHNOLOGY LABORATORY
6463C                 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY
6464C                 GAITHERSBURG, MD 20899
6465C                 PHONE--301-975-2855
6466C     NOTE--DATAPLOT IS A REGISTERED TRADEMARK
6467C           OF THE NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY.
6468C     LANGUAGE--ANSI FORTRAN (1977)
6469C     VERSION NUMBER--87/11
6470C     ORIGINAL VERSION--OCTOBER 1987.
6471C     UPDATED         --MARCH   1992. OTG COMPILER ERROR
6472C     UPDATED         --APRIL   2018. ADD NMAX ARGUMENT SO CAN
6473C                                     BE USED FOR STRINGS WITH
6474C                                     LENGTH OTHER THAN 80
6475C
6476C-----CHARACTER STATEMENTS FOR NON-COMMON VARIABLES-------------------
6477C
6478      CHARACTER (LEN=*) :: IA
6479      CHARACTER (LEN=*) :: IB
6480C
6481      CHARACTER*1 IA1
6482      CHARACTER*1 IB1
6483C
6484      CHARACTER*4 IBUGS2
6485      CHARACTER*4 IERROR
6486C
6487C---------------------------------------------------------------------
6488C
6489      INCLUDE 'DPCOP2.INC'
6490C
6491C-----START POINT-----------------------------------------------------
6492C
6493CCCCC THE FOLLOWING LINE WAS FIXED    MARCH 1992
6494CCCCC IWIDTH=80
6495      CALL STRLEZ(IA,NMAX,IWIDTH)
6496C
6497      IF(IBUGS2.EQ.'ON')THEN
6498        WRITE(ICOUT,999)
6499  999   FORMAT(1X)
6500        CALL DPWRST('XXX','BUG ')
6501        WRITE(ICOUT,51)
6502   51   FORMAT('***** AT THE BEGINNING OF DPUP80--')
6503        CALL DPWRST('XXX','BUG ')
6504        CALL STRLEZ(IA,NMAX,NIA)
6505        CALL STRLEZ(IB,NMAX,NIB)
6506        WRITE(ICOUT,52)IBUGS2,IERROR,NIA,NIB,NMAX,IWIDTH
6507   52   FORMAT('IBUGS2,IERROR,NIA,NIB,NMAX,IWIDTH = ',2(A4,2X),4I5)
6508        CALL DPWRST('XXX','BUG ')
6509        WRITE(ICOUT,53)IA(1:MIN(80,NMAX))
6510   53   FORMAT('IA = ',A80)
6511        CALL DPWRST('XXX','BUG ')
6512        WRITE(ICOUT,54)IB(1:MIN(80,NMAX))
6513   54   FORMAT('IB = ',A80)
6514        CALL DPWRST('XXX','BUG ')
6515      ENDIF
6516C
6517C               ****************************************************************
6518C               **  THE FOLLOWING CODE WILL CARRY OUT THE LOWER CASE
6519C               **  TO UPPER CASE CONVERSION FOR ALL COMPUTERS
6520C               **  WITH AN ANSI 77 FORTRAN COMPILER--IT MAKES
6521C               **  USE OF THE ANSI FORTRAN 77 INTRINSIC FUNCTIONS
6522C               **     1) ICHAR (FOR ASCII CHARACTER TO ASCII NUMERIC CONVERSION
6523C               **     2) CHAR  (FOR ASCII NUMERIC TO ASCII CHARACTER CONVERSIO
6524C               ****************************************************************
6525C
6526      DO100I=1,IWIDTH
6527C
6528        IA1=IA(I:I)
6529        CALL DPCOAN(IA1,IVALUE)
6530        IF(97.LE.IVALUE.AND.IVALUE.LE.122)THEN
6531          IVAM32=IVALUE-32
6532          CALL DPCONA(IVAM32,IB1)
6533          IB(I:I)=IB1
6534          GOTO100
6535        ENDIF
6536C
6537        IF(IBUGS2.EQ.'ON')THEN
6538          WRITE(ICOUT,777)I,IA1,IB(I:I)
6539  777     FORMAT('I,IA1,IB(I:I) = ',I8,2(2X,A1))
6540          CALL DPWRST('XXX','BUG ')
6541        ENDIF
6542C
6543        IB(I:I)=IA1
6544  100 CONTINUE
6545C
6546C               *****************
6547C               **  STEP 90--  **
6548C               **  EXIT.      **
6549C               *****************
6550C
6551      IF(IBUGS2.EQ.'ON')THEN
6552        WRITE(ICOUT,999)
6553        CALL DPWRST('XXX','BUG ')
6554        WRITE(ICOUT,9011)
6555 9011   FORMAT('***** AT THE END       OF DPUP80--')
6556        CALL DPWRST('XXX','BUG ')
6557        WRITE(ICOUT,9012)IERROR
6558 9012   FORMAT('IERROR = ',A4)
6559        CALL DPWRST('XXX','BUG ')
6560        WRITE(ICOUT,54)IB(1:MIN(80,NMAX))
6561        CALL DPWRST('XXX','BUG ')
6562      ENDIF
6563C
6564      RETURN
6565      END
6566      SUBROUTINE DPLO80(IA,IB,NMAX,IBUGS2,IERROR)
6567C
6568C     PURPOSE--FOR THE CHARACTER*80 VARIABLE IA, CONVERT UPPER CASE
6569C              ALPHABETIC (A TO Z) ASCII CHARACTERS TO LOWER CASE ASCII
6570C              CHARACTERS.  DO SO FOR ALL    80    CHARACTERS.
6571C
6572C     INPUT  ARGUMENTS--IA     = CHARACTER*80 VARIABLE
6573C                       IBUGS2 = HOLLERITH BUG (= TRACE) VARIABLE
6574C                       IERROR = HOLLERITH VARIABLE
6575C     OUTPUT ARGUMENTS--IA     = CHARACTER*80 VARIABLE
6576C
6577C     NOTE--IF SO DESIRED, THE CALLING SEQUENCE FOR DPLO80
6578C           MAY HAVE IB IDENTICAL TO IA.
6579C     WRITTEN BY--JAMES J. FILLIBEN
6580C                 STATISTICAL ENGINEERING DIVISION
6581C                 INFORMATION TECHNOLOGY LABORATORY
6582C                 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY
6583C                 GAITHERSBURG, MD 20899
6584C                 PHONE--301-975-2855
6585C     NOTE--DATAPLOT IS A REGISTERED TRADEMARK
6586C           OF THE NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY.
6587C     LANGUAGE--ANSI FORTRAN (1977)
6588C     VERSION NUMBER--87/11
6589C     ORIGINAL VERSION--OCTOBER  1987.
6590C     UPDATED         --JANUARY  1988. MISSING COMMON IN FORMAT 52
6591C     UPDATED         --APRIL    1989. CORRECTED RANGE FOR UPPER CASE
6592C     UPDATED         --AUGUST   1990. OTG COMPILER ERROR?
6593C     UPDATED         --APRIL    2018. ADD NMAX ARGUMENT SO CAN
6594C                                      BE USED FOR STRINGS WITH
6595C                                      LENGTH OTHER THAN 80
6596C
6597C-----CHARACTER STATEMENTS FOR NON-COMMON VARIABLES-------------------
6598C
6599CCCCC CHARACTER*80 IA
6600CCCCC CHARACTER*80 IB
6601      CHARACTER (LEN=*) :: IA
6602      CHARACTER (LEN=*) :: IB
6603C
6604      CHARACTER*1 IA1
6605      CHARACTER*1 IB1
6606C
6607      CHARACTER*4 IBUGS2
6608      CHARACTER*4 IERROR
6609C
6610C---------------------------------------------------------------------
6611C
6612      INCLUDE 'DPCOP2.INC'
6613C
6614C-----START POINT-----------------------------------------------------
6615C
6616CCCCC THE FOLLOWING LINE WAS FIXED    MARCH 1992
6617CCCCC IWIDTH=80
6618      CALL STRLEZ(IA,NMAX,IWIDTH)
6619C
6620      IF(IBUGS2.EQ.'ON')THEN
6621        WRITE(ICOUT,999)
6622  999   FORMAT(1X)
6623        CALL DPWRST('XXX','BUG ')
6624        WRITE(ICOUT,51)
6625   51   FORMAT('***** AT THE BEGINNING OF DPLO80--')
6626        CALL DPWRST('XXX','BUG ')
6627        CALL STRLEZ(IA,NMAX,NIA)
6628        CALL STRLEZ(IB,NMAX,NIB)
6629        WRITE(ICOUT,52)IBUGS2,IERROR,NIA,NIB,NMAXIWIDTH
6630   52   FORMAT('IBUGS2,IERROR,NIA,NIB,NMAX,IWIDTH = ',2(A4,2X),4I8)
6631        CALL DPWRST('XXX','BUG ')
6632        WRITE(ICOUT,53)IA(1:MIN(80,NMAX))
6633   53   FORMAT('IA = ',A80)
6634        CALL DPWRST('XXX','BUG ')
6635        WRITE(ICOUT,54)IB(1:MIN(80,NMAX))
6636   54   FORMAT('IB = ',A80)
6637        CALL DPWRST('XXX','BUG ')
6638      ENDIF
6639C
6640C               ****************************************************************
6641C               **  THE FOLLOWING CODE WILL CARRY OUT THE UPPER CASE
6642C               **  TO LOWER CASE CONVERSION FOR ALL COMPUTERS
6643C               **  WITH AN ANSI 77 FORTRAN COMPILER--IT MAKES
6644C               **  USE OF THE ANSI FORTRAN 77 INTRINSIC FUNCTIONS
6645C               **     1) ICHAR (FOR ASCII CHARACTER TO ASCII NUMERIC CONVERSION
6646C               **     2) CHAR  (FOR ASCII NUMERIC TO ASCII CHARACTER CONVERSIO
6647C               ****************************************************************
6648C
6649      DO100I=1,IWIDTH
6650C
6651        IA1=IA(I:I)
6652        CALL DPCOAN(IA1,IVALUE)
6653        IF(65.LE.IVALUE.AND.IVALUE.LE.90)THEN
6654          IVAP32=IVALUE+32
6655          CALL DPCONA(IVAP32,IB1)
6656          IB(I:I)=IB1
6657          GOTO100
6658        ENDIF
6659C
6660        IB(I:I)=IA1
6661C
6662  100 CONTINUE
6663C
6664C               *****************
6665C               **  STEP 90--  **
6666C               **  EXIT.      **
6667C               *****************
6668C
6669      IF(IBUGS2.EQ.'ON')THEN
6670        WRITE(ICOUT,999)
6671        CALL DPWRST('XXX','BUG ')
6672        WRITE(ICOUT,9011)
6673 9011   FORMAT('***** AT THE END       OF DPLO80--')
6674        CALL DPWRST('XXX','BUG ')
6675        WRITE(ICOUT,9012)IERROR
6676 9012   FORMAT('IERROR = ',A4)
6677        CALL DPWRST('XXX','BUG ')
6678        WRITE(ICOUT,53)IA(1:MIN(80,NMAX))
6679        CALL DPWRST('XXX','BUG ')
6680        WRITE(ICOUT,54)IB(1:MIN(80,NMAX))
6681        CALL DPWRST('XXX','BUG ')
6682      ENDIF
6683C
6684      RETURN
6685      END
6686      SUBROUTINE DPSET(ILISMX,IREPCH,IOSW,
6687     1                 IPPDE1,IPPDE2,
6688     1                 IBUGUG,IBUGU2,IBUGU3,IBUGU4,ISUBRO,
6689     1                 IBUGEX,IBUGE2,IBUGHE,IBUGH2,IBUGLO,
6690     1                 IHELMX,IFTEXP,IFTORD,
6691     1                 IFORSW,ICREAF,NCREAF,ICWRIF,NCWRIF,
6692     1                 IREARW,IWRIRW,NPLOTP,IPRITY,
6693     1                 IUNFOF,IUNFNR,IUNFMC,
6694     1                 IFOUND,IERROR)
6695C
6696CCCCC AUGUST 1995.    ADD IFTORD
6697CCCCC APRIL 1992.     ADD NPLOTP
6698CCCCC FEBRUARY 1993.  ADD IPRITY
6699CCCCC APRIL 1995.     ADD IUNFOF, IUNFNR, IUNFMC
6700C
6701C
6702C     PURPOSE--SET AND WRITE OUT THE VALUE
6703C              OF CERTAIN FORTRAN VARIABLES IN COMMON.
6704C     NOTE--THIS CAPABILITY IS USEFUL FOR IMPLEMENTATION AND DEBUGGING.
6705C     INPUT  ARGUMENTS--NONE
6706C     OUTPUT ARGUMENTS--IFOUND ('YES' OR 'NO' )
6707C                     --IERROR ('YES' OR 'NO' )
6708C     WRITTEN BY--JAMES J. FILLIBEN
6709C                 STATISTICAL ENGINEERING DIVISION
6710C                 INFORMATION TECHNOLOGY LABORATORY
6711C                 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY
6712C                 GAITHERSBURG, MD 20899
6713C                 PHONE--301-975-2855
6714C     NOTE--DATAPLOT IS A REGISTERED TRADEMARK
6715C           OF THE NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY.
6716C     LANGUAGE--ANSI FORTRAN (1977)
6717C     VERSION NUMBER--82/7
6718C     ORIGINAL VERSION--OCTOBER   1981.
6719C     UPDATED         --NOVEMBER  1981.
6720C     UPDATED         --MAY       1982.
6721C     UPDATED         --FEBRUARY  1986.
6722C     UPDATED         --SEPTEMBER 1986.  (SET HELP LINES)
6723C     UPDATED         --SEPTEMBER 1986.  (SET FOURIER EXPONENT)
6724C     UPDATED         --OCTOBER   1986.  (SET WRITE DECIMALS SWITCH)
6725C     UPDATED         --NOVEMBER  1987.  (WRITE DEPENDS ON FEEDBACK)
6726C     UPDATED         --JANUARY   1988.  (SET GENERAL JUSTIFICATION)
6727C                                        (SET GENERAL REGION FILL)
6728C                                        (SET GENERAL PEN WIDTH)
6729C                                        (SET GENERAL PEN THICKNESS)
6730C     UPDATED         --MARCH     1988.  (SET READ FORMAT)
6731C     UPDATED         --MAY       1988.  (SET QMS/QUIC FONT)
6732C                                        (SET QMS/QUIC LANDSCAPE MARGINS)
6733C                                        (SET QMS/QUIC PORTRAIT MARGINS)
6734C                                        (SET QMS/QUIC PPI)
6735C     UPDATED         --AUGUST    1988   (SET POSTSCRIPT FONT)
6736C                                        (SET POSTSCRIPT LANDSCAPE MARGINS)
6737C                                        (SET POSTSCRIPT PORTRAIT  MARGINS)
6738C                                        (SET POSTSCRIPT PPI)
6739C                                        (SET CALCOMP COLORS)
6740C                                        (SET CALCOMP WIDTH)
6741C                                        (SET ZETA COLORS)
6742C                                        (SET ZETA WIDTH)
6743C     UPDATED         --DECEMBER  1988.  (SET WRITE FORMAT)
6744C     UPDATED         --DECEMBER  1988.  (SET READ  REWIND)
6745C     UPDATED         --DECEMBER  1988.  (CORRECTED READ FORMAT IF SPACES)
6746C     UPDATED         --DECEMBER  1988.  (SET WRITE REWIND)
6747C     UPDATED         --APRIL     1989.  SOFT-CODE BACKSLASH FOR UNIX
6748C     UPDATED         --MAY       1989.  ALLOW SPELLED-OUT POSTSCRIPT FONTS
6749C     UPDATED         --AUGUST    1989.  SET READ REWIND   FIXED
6750C     UPDATED         --MARCH     1990.  X11 COMMANDS
6751C                                        (SET X11 FONT)
6752C                                        (SET X11 CAP)
6753C                                        (SET X11 JOIN)
6754C                                        (SET X11 PIXMAP)
6755C                                        (SET X11 PAUSE)
6756C                                        (SET X11 DISPLAY NAME)
6757C     UPDATED         --JULY      1990.  (LIST LINES FROM 24 TO 20)
6758C     UPDATED         --AUGUST    1990.  IBUGWI (FOR WINDOWS)
6759C     UPDATED         --AUGUST    1990.  ISUBWI (FOR WINDOWS)
6760C     UPDATED         --AUGUST    1990.  WINDOW SYSTEMS COMMON
6761C     UPDATED         --OCTOBER   1991.  "SET POSTSCRIPT SPACE <ON/OFF>"
6762C                                        ADDITIONAL POSTSCRIPT FONTS
6763C     UPDATED         --OCTOBER   1991.  BUG FIX FOR HELP, LIST LINES
6764C     UPDATED         --APRIL     1992.  ADD NPLOTP TO INPUT ARGS
6765C     UPDATED         --MAY        1992.  IPL1CS, IPL2CS
6766C     UPDATED         --MAY        1992.  IPSTBP, IPSTPN
6767C     UPDATED         --MAY        1992.  IHV12
6768C     UPDATED         --MAY        1992.  IX11DN: 20 TO 80
6769C     UPDATED         --MAY        1992.  IBUGG4=IBUGU2,IBUGU2=IBUGG4
6770C     UPDATED         --APRIL      1993.  MAX LIST LINES: 50=>MAXLIS
6771C     UPDATED         --MAY        1993.  MINMAX FOR EV1/EV2/WEIBULL
6772C     UPDATED         --NOVEMBER   1993.  SET PATH
6773C     UPDATED         --DECEMBER   1993.  FIX MINMAX FOR EV1/EV2/WEIBULL
6774C     UPDATED         --DECEMBER   1993.  FIX   SET PATH   AGAIN
6775C     UPDATED         --JANUARY    1994.  WEIB MINMAX TO DPCOS2.INC
6776C     UPDATED         --JUNE       1994.  IX11FS, IPSTFS
6777C     UPDATED         --APRIL      1995.  IUNFOF, IUNFNR, IUNFMC
6778C     UPDATED         --JULY       1995.  FIT ITER., SD, ADDITIVE CONST.
6779C     UPDATED         --FEBRUARY   1996.  SET MENU PATH
6780C     UPDATED         --MARCH      1996.  IRHSTG
6781C     UPDATED         --JULY       1996.  LAHEY DEVICE DRIVER SWITCHES
6782C     UPDATED         --NOVEMBER   1996.  MICROSOFT QUICK-WIN SWITCHES
6783C     UPDATED         --APRIL      1997.  SET CONTROL CHART <DATA/PRIOR>
6784C     UPDATED         --APRIL      1997.  SET NETSCAPE <OLD/NEW>
6785C     UPDATED         --APRIL      1997.  SET BROWSER <string>
6786C     UPDATED         --APRIL      1997.  SET DATAPLOT URL <string>
6787C     UPDATED         --APRIL      1997.  SET CONTROL CHART WEIGHTING <CENT/RIGH>
6788C     UPDATED         --APRIL      1997.  SET URL <string>
6789C     UPDATED         --OCTOBER    1997.  SET X11 WINDOW ID <string>
6790C     UPDATED         --DECEMBER   1997.  SET GENERAL FACTOR
6791C     UPDATED         --FEBRUARY   1998.  SET PRINTER
6792C     UPDATED         --MAY        1998.  SET KAPLAN-MEIER
6793C     UPDATED         --MAY        1998.  SET CENSORING
6794C     UPDATED         --JUNE       1998.  SET MATRIX SCALE
6795C     UPDATED         --JULY       1998.  SET QWIN TEXT BACKGROUND COLOR <0/1/2/../15>
6796C     UPDATED         --JULY       1998.  SET QWIN TEXT FOREGROUND COLOR <0/1/2/../15>
6797C     UPDATED         --SEPTEMBER  1998.  SET PERCENT POINT PLOT
6798C                                         <BINNED/UNBINNED/INTERPOLATED>
6799C     UPDATED         --SEPTEMBER  1998.  SET QUANTILE-QUANTILE PLOT
6800C                                         <BINNED/UNBINNED/INTERPOLATED>
6801C     UPDATED         --NOVEMBER   1998.  IRHSTG TO DPCOST.INC
6802C     UPDATED         --MARCH      1999.  SET HANDBOOK URL <URL>
6803C     UPDATED         --JULY       1999.  SET AUTOCORRELATION BAND
6804C                                                <WHITE NOISE/BOX-JENK>
6805C     UPDATED         --SEPTEMBER  1999.  SET SCATTER PLOT MATRIX
6806C     UPDATED         --SEPTEMBER  1999.  SET CONDITIONING PLOT
6807C     UPDATED         --SEPTEMBER  1999.  SET FACTOR PLOT
6808C     UPDATED         --JANUARY    2000.  SET CROSS TABULATE DIMENSION
6809C     UPDATED         --JANUARY    2000.  SET SORT DIRECTION
6810C     UPDATED         --FEBRUARY   2000.  SET DEX CONTOUR PLOT
6811C     UPDATED         --OCTOBER    2000.  SET MANDEL PAULE
6812C     UPDATED         --FEBRUARY   2001.  SET LAHEY WINTERACTOR
6813C     UPDATED         --MARCH      2001.  SET LOCATION STATISTIC
6814C     UPDATED         --MARCH      2001.  SET SCALE STATISTIC
6815C     UPDATED         --MARCH      2001.  SET SUPERSCRIPT <HORI/VERT>
6816C                                             SCALE
6817C     UPDATED         --APRIL      2001.  SET ORTHOGNAL DISTANCE
6818C                                             TRUST REGION RADIUS
6819C     UPDATED         --APRIL      2001.  SET ORTHOGNAL DISTANCE
6820C                                             STOP TOLERANCE
6821C     UPDATED         --APRIL      2001.  SET ORTHOGNAL DISTANCE
6822C                                             PARAMETER TOLERANCE
6823C     UPDATED         --APRIL      2001.  SET ORTHOGNAL DISTANCE
6824C                                             PRINT OPTION
6825C     UPDATED         --MARCH      2002.  SVG COMMANDS
6826C                                         (SET SVG COORDINATE SYSTEM)
6827C                                         (SET SVG FONT NAME)
6828C                                         (SET SVG FONT WEIGHT)
6829C                                         (SET SVG FONT STYLE)
6830C                                         (SET SVG CAP)
6831C                                         (SET SVG JOIN)
6832C                                         (SET SVG FOREGROUND COLOR)
6833C                                         (SET SVG HARDWARE FILL)
6834C                                         (SET SVG STYLE SHEET)
6835C                                         (SET SVG STYLE SHEET NAME)
6836C     UPDATED         --MARCH      2002.  SET BOX PLOT WIDTH
6837C                                                <VARIABLE/FIXED>
6838C     UPDATED         --MARCH      2002.  SET 4-PLOT MULTIPLOT
6839C     UPDATED         --MARCH      2002.  SET 6-PLOT MULTIPLOT
6840C     UPDATED         --MAY        2002.  SET RANDOM NUMBER GENERATOR
6841C     UPDATED         --JUNE       2002.  SET NUMBER OF CP
6842C     UPDATED         --JUNE       2002.  SET CAPTURE LINES
6843C     UPDATED         --JUNE       2002.  SET CAPTURE BOX
6844C     UPDATED         --JUNE       2002.  SET CAPTURE NUMBER
6845C     UPDATED         --JULY       2002.  SET QUANTILE METHOD
6846C     UPDATED         --JULY       2002.  SET QUANTILE METHOD STAN ERROR
6847C     UPDATED         --JULY       2002.  SET COVARIANCE TYPE
6848C     UPDATED         --JULY       2002.  SET CORRELATION TYPE
6849C     UPDATED         --JULY       2002.  SET FILE NAME QUOTE
6850C     UPDATED         --JULY       2002.  SET BOOTSTRAP FIT METHOD
6851C     UPDATED         --NOVEMBER   2002.  SET QWIN SYSTEM
6852C     UPDATED         --NOVEMBER   2002.  SET GHOSTSCRIPT PRINTER
6853C     UPDATED         --NOVEMBER   2002.  SET GHOSTVIEW PATH
6854C     UPDATED         --JANUARY    2003.  SET GHOSTSCRIPT PATH
6855C     UPDATED         --JANUARY    2003.  SET POSTSCRIPT BOUNDING BOX
6856C     UPDATED         --JANUARY    2003.  SET POSTSCRIPT CONVERT
6857C     UPDATED         --JANUARY    2003.  SET HTML HEADER FILE
6858C     UPDATED         --JANUARY    2003.  SET HTML FOOTER FILE
6859C     UPDATED         --FEBRUARY   2003.  SET AUTOCORRELATION ZERO
6860C     UPDATED         --MARCH      2003.  SET PARALLEL COORDINATES
6861C                                         STANDARDIZE
6862C     UPDATED         --MARCH      2003.  SET BOOTSTRAP GROUPS
6863C     UPDATED         --MAY        2003.  SET MULTIVARIATE NORMAL
6864C     UPDATED         --SEPTEMBER  2003.  SET TABLE TITLE
6865C     UPDATED         --SEPTEMBER  2003.  SET TABLE BORDER
6866C     UPDATED         --SEPTEMBER  2003.  SET TABLE SPACING
6867C     UPDATED         --SEPTEMBER  2003.  SET TABLE WIDTH
6868C     UPDATED         --SEPTEMBER  2003.  SET TABLE HEIGHT
6869C     UPDATED         --SEPTEMBER  2003.  SET LATEX HEADER FILE
6870C     UPDATED         --SEPTEMBER  2003.  SET LATEX FOOTER FILE
6871C     UPDATED         --JANUARY    2004.  SET READ VARIABLE LABEL
6872C     UPDATED         --JANUARY    2004.  SET CONVERT CHARACTER
6873C     UPDATED         --JANUARY    2004.  SET READ DELIMITER
6874C     UPDATED         --JANUARY    2004.  SET READ MISSING VALUE
6875C     UPDATED         --MARCH      2004.  SET GEOMETRIC DEFINITION
6876C     UPDATED         --MARCH      2004.  SET HYPERGEOMETRIC MAXI LIKE
6877C     UPDATED         --MAY        2004.  SET PPCC PLOT
6878C     UPDATED         --MAY        2004.  SET PPCC FORMAT
6879C     UPDATED         --JUNE       2004.  SET DEFAULT POSTSCRIPT COLOR
6880C     UPDATED         --JUNE       2004.  SET ASYMMETRIC LAPLACE
6881C                                         DEFINITION
6882C     UPDATED         --JUNE       2004.  SET GENERALIZED PARETO
6883C                                         DEFINITION
6884C     UPDATED         --JULY       2004.  SET GOMPERTZ-MAKEHAM
6885C                                         DEFINITION
6886C     UPDATED         --AUGUST     2004.  FOR SET COMMANDS THAT ACCEPT
6887C                                         FILE NAMES, ALLOW QUOTING TO
6888C                                         HANDLE SPACES AND HYPHENS IN
6889C                                         FILE NAME
6890C     UPDATED         --SEPTEMBER  2004.  SET BESSEL I FUNCTION
6891C                                         DEFINITION
6892C     UPDATED         --SEPTEMBER  2004.  SET BESSEL K FUNCTION
6893C                                         DEFINITION
6894C     UPDATED         --SEPTEMBER  2004.  SET PROBABILITY PLOT DATA
6895C                                         POINTS
6896C     UPDATED         --SEPTEMBER  2004.  SET PPCC PLOT DATA POINTS
6897C     UPDATED         --SEPTEMBER  2004.  SET PPCC PLOT AXIS POINTS
6898C     UPDATED         --SEPTEMBER  2004.  SET PPCC PLOT AXIS POINTS
6899C     UPDATED         --SEPTEMBER  2004.  SET PPCC PLOT AXIS ORDER
6900C     UPDATED         --SEPTEMBER  2004.  SET HISTOGRAM CLASS WIDTH
6901C     UPDATED         --OCTOBER    2004.  SET READ SUBSET
6902C     UPDATED         --OCTOBER    2004.  SET READ PAD MISSING COLUMNS
6903C     UPDATED         --OCTOBER    2004.  SET CENSORED PROB PLOT
6904C     UPDATED         --OCTOBER    2004.  SET CENSORED PPCC PLOT
6905C     UPDATED         --OCTOBER    2004.  SET MAXIMUM LIKELIHOOD
6906C                                             PERCENTILES
6907C     UPDATED         --OCTOBER    2004.  SET EXPONENTIAL BIAS CORRECTED
6908C     UPDATED         --NOVEMBER   2004.  SET WEIBULL BIAS CORRECTED
6909C     UPDATED         --NOVEMBER   2004.  SET GUMBEL BIAS CORRECTED
6910C     UPDATED         --NOVEMBER   2004.  SET MATRIX CORRELATION DIRECTION
6911C     UPDATED         --NOVEMBER   2004.  SET MATRIX COVARIANCE DIRECTION
6912C     UPDATED         --DECEMBER   2004.  SET GUI
6913C     UPDATED         --FEBRUARY   2005.  SET DISTRIBUTIONAL BOOTSTRAP
6914C     UPDATED         --FEBRUARY   2005.  SET PARAMETER EXPAND DIGIT
6915C     UPDATED         --FEBRUARY   2005.  SET RTF FIXED FONT
6916C     UPDATED         --FEBRUARY   2005.  SET RTF PROPORTIONAL FONT
6917C     UPDATED         --MARCH      2005.  SET LINE PRINTER COLUMNS
6918C     UPDATED         --MARCH      2005.  SET LINE PRINTER COLUMNS
6919C     UPDATED         --MARCH      2005.  SET AQUA FONT NAME
6920C     UPDATED         --MARCH      2005.  SET AQUA CAP STYLE
6921C     UPDATED         --MARCH      2005.  SET AQUA JOIN STYLE
6922C     UPDATED         --MARCH      2005.  SET AQUA HARDWARE FILL
6923C     UPDATED         --APRIL      2005.  SET DECIMAL POINT
6924C     UPDATED         --APRIL      2005.  SET PEAKS OVER THRESHOLD
6925C                                             METHOD
6926C     UPDATED         --APRIL      2005.  SET PEAKS OVER THRESHOLD
6927C                                             ITERATIONS
6928C     UPDATED         --APRIL      2005.  SET PEAKS OVER THRESHOLD
6929C                                             INITIAL POINTS
6930C     UPDATED         --APRIL      2005.  SET PEAKS OVER THRESHOLD
6931C                                             INITIAL THRESHOLD
6932C     UPDATED         --APRIL      2005.  SET PEAKS OVER THRESHOLD
6933C                                             INCREMENT
6934C     UPDATED         --APRIL      2005.  SET PEAKS OVER THRESHOLD
6935C                                             PERIOD
6936C     UPDATED         --APRIL      2005.  SET PEAKS OVER THRESHOLD
6937C                                             TOLERANCE
6938C     UPDATED         --APRIL      2005.  SET PEAKS OVER THRESHOLD
6939C                                             LOAD FACTOR
6940C     UPDATED         --APRIL      2005.  SET PEAKS OVER THRESHOLD
6941C                                             X AXIS
6942C     UPDATED         --MAY        2005.  SET FRECHET BIAS CORRECTION
6943C     UPDATED         --MAY        2005.  SET GRUBBS ONE SIDED
6944C     UPDATED         --JULY       2005.  SET LOG GAMMA DEFINITION
6945C     UPDATED         --JULY       2005.  SET SKEW NORMAL DEFINITION
6946C     UPDATED         --OCTOBER    2005.  SET GENERALIZED PARETO
6947C                                         MLE STARTING VALUES
6948C     UPDATED         --FEBRUARY   2006.  SET IBUGLO
6949C     UPDATED         --FEBRUARY   2006.  SET LATEX COLOR <ON/OFF>
6950C     UPDATED         --FEBRUARY   2006.  SET LATEX LINE THICK
6951C                                             <HARDWARE/SOFTWARE>
6952C     UPDATED         --FEBRUARY   2006.  SET LATEX FILL SWITCH
6953C                                             <HARDWARE/SOFTWARE>
6954C     UPDATED         --FEBRUARY   2006.  SET GENERALIZED TUKEY
6955C                                             LAMBDA DEFINITION
6956C     UPDATED         --MARCH      2006.  SET TEMPORARY FILE
6957C     UPDATED         --MAY        2006.  SET PPCC PLOT LOCA SCALE
6958C     UPDATED         --MAY        2006.  SET BETA GEOMETRIC
6959C                                             DEFINITION
6960C     UPDATED         --JUNE       2006.  SET FORTRAN FORMAT CONTROL
6961C     UPDATED         --JUNE       2006.  SET MANDEL PAULE
6962C     UPDATED         --JUNE       2006.  SET MODIFIED MANDEL PAULE
6963C     UPDATED         --JUNE       2006.  SET VANGEL RUHKIN
6964C     UPDATED         --JUNE       2006.  SET BOB
6965C     UPDATED         --JUNE       2006.  SET SCHILLER EBERHARDT
6966C     UPDATED         --JUNE       2006.  SET METHOD OF MEANS
6967C     UPDATED         --JUNE       2006.  SET GRAYBILL DEAL
6968C     UPDATED         --JUNE       2006.  SET GRAND MEAN
6969C     UPDATED         --JUNE       2006.  SET GENERALIZED CONF INTE
6970C     UPDATED         --JUNE       2006.  SET DERSIMONIAN LAIRD
6971C     UPDATED         --JUNE       2006.  SET FAIRWEATHER
6972C     UPDATED         --JUNE       2006.  SET BAYESIAN CONSENSUS
6973C                                             PROCEDURE
6974C     UPDATED         --JULY       2006.  SET GEETA DEFINITION
6975C     UPDATED         --JULY       2006.  SET CHISQUARE LIMIT
6976C     UPDATED         --AUGUST     2006.  SET CONSUL DEFINITION
6977C     UPDATED         --OCTOBER    2006.  SET 4PLOT DISTRIBUTION
6978C     UPDATED         --OCTOBER    2006.  SET MAXWELL LOCATION
6979C     UPDATED         --JANUARY    2007.  SET GOMPERTZ DEFINITION
6980C     UPDATED         --JANUARY    2007.  SET KATZ DEFINITION
6981C     UPDATED         --FEBRUARY   2007.  SET BINOMIAL CONTINUITY
6982C                                             CORRECTION
6983C     UPDATED         --FEBRUARY   2007.  SET BINOMIAL NORMAL
6984C                                             APPROXIMATION THRESHOLD
6985C     UPDATED         --MARCH      2007.  SET FISHER EXACT EXPECT
6986C                                             MINIMUM
6987C     UPDATED         --MARCH      2007.  SET FISHER EXACT EXPECT
6988C     UPDATED         --MARCH      2007.  SET FISHER EXACT PERCENT
6989C     UPDATED         --APRIL      2007.  SET FATAL ERROR
6990C     UPDATED         --MAY        2007.  SET BINARY TABULATION
6991C                                             PLOT GROUP NAME
6992C     UPDATED         --MAY        2007.  SET POISSON PLOT LEVEL
6993C     UPDATED         --FEBRUARY   2008.  SET FILE NAME QUOTE NOFILE
6994C     UPDATED         --MARCH      2008.  SET GD FONT NAME
6995C     UPDATED         --MARCH      2008.  SET GD COLOR
6996C     UPDATED         --APRIL      2008.  SET CROSS TABULATE MISSING
6997C                                             VALUE
6998C     UPDATED         --APRIL      2008.  SET CROSS TABULATE MISSING
6999C     UPDATED         --APRIL      2008.  SET BINOMIAL TAIL
7000C     UPDATED         --APRIL      2008.  SET FIT METHOD
7001C     UPDATED         --MAY        2008.  SET GUI FEEDBACK
7002C     UPDATED         --MAY        2008.  SET FLUCUATION PLOT FLOOR
7003C     UPDATED         --MAY        2008.  SET FLUCUATION PLOT CEILING
7004C     UPDATED         --MAY        2008.  SET FLUCUATION PLOT WIDTH
7005C     UPDATED         --JULY       2008.  SET GENERALIZED INVERSE
7006C                                             GAUSSIAN DEFINITION
7007C     UPDATED         --AUGUST     2008.  SET MERGE MATCH VARIABLES
7008C     UPDATED         --AUGUST     2008.  SET MERGE CARRY VARIABLES
7009C     UPDATED         --OCTOBER    2008.  SET STRIP PLOT INCREMENT
7010C     UPDATED         --NOVEMBER   2008.  SET STRIP PLOT STYLE
7011C     UPDATED         --FEBRUARY   2009.  SET LET CROSS TABULATE
7012C     UPDATED         --FEBRUARY   2009.  SET STRING SPACE
7013C     UPDATED         --MARCH      2009.  SET STATISTIC PLOT FORMAT
7014C     UPDATED         --MARCH      2009.  SET STATISTIC PLOT SUMMARY
7015C     UPDATED         --APRIL      2009.  SET BIPLOT SCALE
7016C     UPDATED         --APRIL      2009.  SET BIPLOT COEFFICIENT
7017C     UPDATED         --APRIL      2009.  SET DATA MISSING VALUE
7018C     UPDATED         --APRIL      2009.  SET READ LINE
7019C     UPDATED         --APRIL      2009.  SET LIBPLOT VALUES
7020C     UPDATED         --JUNE       2009.  SET CODE CROSS TABULATE OFFSET
7021C     UPDATED         --JUNE       2009.  SET CODE CROSS TABULATE
7022C                                             GROUP SIZE <1/2/3/4/5/6>
7023C     UPDATED         --JULY       2009.  SET PROMPT ADVANCE
7024C     UPDATED         --SEPTEMBER  2009.  SET KOLM SMIR CRITICAL VALUE
7025C     UPDATED         --SEPTEMBER  2009.  SET ANDE DARL CRITICAL VALUE
7026C     UPDATED         --SEPTEMBER  2009.  SET FLUCTUATION PLOT
7027C                                             UNCERTAINTY INTERVAL
7028C     UPDATED         --SEPTEMBER  2009.  SET CONTROL CHART WECO
7029C     UPDATED         --SEPTEMBER  2009.  SET TABULATION PLOT
7030C                                             X INCREMENT
7031C     UPDATED         --SEPTEMBER  2009.  SET TABULATION PLOT
7032C                                             Y INCREMENT
7033C     UPDATED         --SEPTEMBER  2009.  SET TABULATION PLOT
7034C                                             DIRECTION
7035C     UPDATED         --OCTOBER    2009.  SET GOODNESS OF FIT FULLY
7036C                                             SPECIFIED
7037C     UPDATED         --DECEMBER   2009.  SET TABULATION PLOT
7038C                                             UNCERTAINTY INTERVAL
7039C     UPDATED         --DECEMBER   2009.  SET TABULATION PLOT NUMBER OF
7040C                                             UNCERTAINTY INTERVALS
7041C     UPDATED         --JANUARY    2010.  SET READ NON-PRINTING
7042C                                             CHARACTERS
7043C     UPDATED         --JANUARY    2010.  SET FLUCTUATION PLOT CODED
7044C     UPDATED         --JANUARY    2010.  SET TABULATION PLOT CODED
7045C     UPDATED         --APRIL      2010.  SET LOD OUTPUT FILES
7046C     UPDATED         --APRIL      2010.  SET FLUCTUATION CONTOUR
7047C                                             BINOMIAL PROPORTION
7048C     UPDATED         --JUNE       2010.  SET TABULATION PLOT SORTED
7049C     UPDATED         --JUNE       2010.  SET TABULATION PLOT ROW
7050C                                             SORT DIRECTION
7051C     UPDATED         --JUNE       2010.  SET TABULATION PLOT COLUMN
7052C                                             SORT DIRECTION
7053C     UPDATED         --JUNE       2010.  SET FLUCTUATION PLOT SORTED
7054C     UPDATED         --JUNE       2010.  SET FLUCTUATION PLOT ROW
7055C                                             SORT DIRECTION
7056C     UPDATED         --JUNE       2010.  SET FLUCTUATION PLOT COLUMN
7057C                                             SORT DIRECTION
7058C     UPDATED         --JUNE       2010.  SET TABULATION PLOT ROW
7059C                                             MINMAX
7060C     UPDATED         --JUNE       2010.  SET TABULATION PLOT COLUMN
7061C                                             MINMAX
7062C     UPDATED         --JULY       2010.  SET TABLE HEADER
7063C     UPDATED         --SEPTEMBER  2010.  SET PAUSE LINES
7064C     UPDATED         --SEPTEMBER  2010.  SET BOOTSTRAP PERCENTILE
7065C     UPDATED         --SEPTEMBER  2010.  SET DISTRIBUTIONAL FIT TYPE
7066C     UPDATED         --SEPTEMBER  2010.  SET BRITTLE FIBER WEIBULL
7067C                                             LENGTH
7068C     UPDATED         --OCTOBER    2010.  FOR FILE NAMES CAN BE UP TO 80
7069C                                         CHARACTERS, BUT NEED TO SEARCH
7070C                                         MORE THAN 80 CHARACTERS ON COMMAND
7071C                                         LINE TO ACCOMODATE 80 CHARACTERS
7072C                                         FOR FILE NAME
7073C     UPDATED         --OCTOBER    2010.  SET MOVING DIRECTION
7074C     UPDATED         --OCTOBER    2010.  SET MOVING END POINT
7075C     UPDATED         --OCTOBER    2010.  SET BRITTLE FIBER WEIBULL L
7076C     UPDATED         --OCTOBER    2010.  SET END EFFECTS WEIBULL L
7077C     UPDATED         --NOVEMBER   2010.  SET MATRIX TO VARIABLE
7078C     UPDATED         --NOVEMBER   2010.  SET VARIABLE TO MATRIX
7079C     UPDATED         --DECEMBER   2010.  SET HOMOSCEDASTICITY PLOT LOCATION
7080C     UPDATED         --DECEMBER   2010.  SET HOMOSCEDASTICITY PLOT SCALE
7081C     UPDATED         --DECEMBER   2010.  SET HOMOSCEDASTICITY PLOT CIRCLE
7082C                                             TECHNIQUE
7083C     UPDATED         --FEBRUARY   2011.  SET BEST FIT CRIITERION
7084C     UPDATED         --FEBRUARY   2011.  SET BEST FIT METHOD
7085C     UPDATED         --FEBRUARY   2011.  SET LEVENE GROUP STATISTICS
7086C     UPDATED         --FEBRUARY   2011.  SET KRUSKAL-WALLIS GROUP
7087C                                         STATISTICS
7088C     UPDATED         --APRIL      2011.  SET T TEST VARIANCE
7089C     UPDATED         --MAY        2011.  SET GOODNESS OF FIT FIT METHOD
7090C     UPDATED         --JUNE       2011.  SET MEDIAN TEST QUANTILE
7091C     UPDATED         --AUGUST     2011.  SET BOOTSTRAP DISTRIBUTIONAL
7092C                                             PERCENTILE
7093C     UPDATED         --OCTOBER    2011.  SET CONSENSUS MEAN PLOT
7094C                                             SORTED
7095C     UPDATED         --OCTOBER    2011.  SET CONSENSUS MEAN PLOT
7096C                                             DATA
7097C     UPDATED         --OCTOBER    2011.  SET CONSENSUS MEAN PLOT
7098C                                             ERROR
7099C     UPDATED         --OCTOBER    2011.  SET DERS LAIRD BOOTSTRAP
7100C     UPDATED         --OCTOBER    2011.  SET DERS LAIRD HHD
7101C     UPDATED         --OCTOBER    2011.  SET DERS LAIRD MINMAX
7102C     UPDATED         --OCTOBER    2011.  SET VANGEL RUKHIN BOOTSTRAP
7103C     UPDATED         --OCTOBER    2011.  SET BOOTSTRAP SMOOTH
7104C     UPDATED         --OCTOBER    2011.  SET BOOTSTRAP SMOOTH STANDARD
7105C                                             DEVIATION
7106C     UPDATED         --OCTOBER    2011.  SET BOOTSTRAP CONFIDENCE
7107C                                             INTERVAL
7108C     UPDATED         --OCTOBER    2011.  SET BOOTSTRAP T PERCENTILE
7109C                                             STANDARD DEVIATION
7110C     UPDATED         --DECEMBER   2011.  SET CHARACTER AUTOMATIC
7111C                                             OFFSET
7112C     UPDATED         --FEBRUARY   2012.  SET PIE CHART
7113C     UPDATED         --FEBRUARY   2012.  SET KRUSKAL WALLIS MULTIPLE
7114C                                             COMPARISONS
7115C     UPDATED         --FEBRUARY   2012.  SET ISO 13528 PLOT STATISTIC
7116C     UPDATED         --FEBRUARY   2012.  SET ISO 13528 PLOT
7117C     UPDATED         --FEBRUARY   2012.  SET RLP PLOT LABELS
7118C     UPDATED         --APRIL      2012.  SET BLOCK PLOT FILTER
7119C     UPDATED         --APRIL      2012.  SET BLOCK PLOT WIDTH
7120C     UPDATED         --APRIL      2012.  SET BLOCK PLOT LABEL
7121C     UPDATED         --APRIL      2012.  SET CAPTURE FLUSH ERASE
7122C     UPDATED         --JUNE       2012.  SET CHARACTER AUTOMATIC DYNAMIC
7123C     UPDATED         --JUNE       2012.  SET CHARACTER REPEAT OFFSET
7124C     UPDATED         --JULY       2012.  SET LOD SUMMARY TABLE
7125C     UPDATED         --JULY       2012.  SET LOD TABLE
7126C     UPDATED         --AUGUST     2012.  SET LOD PRINT CRITICAL VALUE
7127C     UPDATED         --SEPTEMBER  2012.  SET FIELD <ICOL> TYPE
7128C     UPDATED         --OCTOBER    2012.  ADD ROUND OPTION TO
7129C                                         SET PARAMETER EXPANSION
7130C     UPDATED         --DECEMBER   2012.  SET BLOCK PLOT BACKGROUND
7131C     UPDATED         --DECEMBER   2012.  SET TOLERANCE LIMITS DEGREES
7132C                                             OF FREEDOM
7133C     UPDATED         --JANUARY    2013.  SET BEST FIT FONG
7134C     UPDATED         --MARCH      2013.  SET KENDALL TAU CRITICAL VALUES
7135C     UPDATED         --MARCH      2013.  SET RANK CORRELATION CRITICAL
7136C                                             VALUES
7137C     UPDATED         --MARCH      2013.  SET WEIBULL GAUGE LENGTH
7138C     UPDATED         --MARCH      2013.  SET CUMULATIVE STATISTIC
7139C                                             START
7140C     UPDATED         --APRIL      2013.  SET SKEWNESS DEFINITION
7141C     UPDATED         --APRIL      2013.  SET WEIBULL MAXIMUM LIKELIHOOD
7142C     UPDATED         --APRIL      2013.  SET WEIBULL MODIFIED MOMENTS
7143C     UPDATED         --APRIL      2013.  SET WEIBULL MOMENTS
7144C     UPDATED         --APRIL      2013.  SET FLUCTUATION PLOT BAR
7145C                                             DIRECTION
7146C     UPDATED         --JUNE       2013.  SET BEST FIT LOWER LIMIT
7147C     UPDATED         --JUNE       2013.  SET BEST FIT UPPER LIMIT
7148C     UPDATED         --JUNE       2013.  SET CONSENSUS MEAN TABLE ONE
7149C     UPDATED         --JUNE       2013.  SET CONSENSUS MEAN TABLE TWO
7150C     UPDATED         --JUNE       2013.  SET CONSENSUS MEAN TABLE THREE
7151C     UPDATED         --JUNE       2013.  SET CONSENSUS MEAN TABLE FOUR
7152C     UPDATED         --JUNE       2013.  SET CONSENSUS MEAN DETAILED TABLE
7153C     UPDATED         --JULY       2013.  SET BEST FIT FONG TYPE
7154C     UPDATED         --JULY       2013.  SET BEST FIT FONG XVALUE
7155C     UPDATED         --JULY       2013.  SET DISTRIBUTIONAL PERCENTILE
7156C     UPDATED         --AUGUST     2013.  SET RGB MAXIMUM VALUE
7157C     UPDATED         --AUGUST     2013.  SET MCCOOL WEIBULL LOCATION
7158C                                             TEST R1
7159C     UPDATED         --DECEMBER   2013.  SET GHOSTSCRIPT VERSION
7160C     UPDATED         --JANUARY    2014.  SET CAIRO
7161C     UPDATED         --MARCH      2014.  SET BINOMIAL METHOD
7162C     UPDATED         --MARCH      2014.  SET WEIBULL MAXIMUM
7163C                                             LIKELIHOOD METHOD
7164C     UPDATED         --MARCH      2014.  SET WEIBULL MAXIMUM
7165C                                             LIKELIHOOD MINIMUM
7166C     UPDATED         --MARCH      2014.  SET CONSENSUS MEAN TYPE B
7167C     UPDATED         --APRIL      2014.  SET LOGNORMAL MAXIMUM
7168C                                             LIKELIHOOD METHOD
7169C     UPDATED         --APRIL      2014.  SET LOGNORMAL MAXIMUM
7170C                                             LIKELIHOOD MINIMUM
7171C     UPDATED         --APRIL      2014.  SET GAMMA MAXIMUM
7172C                                             LIKELIHOOD METHOD
7173C     UPDATED         --APRIL      2014.  SET GAMMA MAXIMUM
7174C                                             LIKELIHOOD MINIMUM
7175C     UPDATED         --APRIL      2014.  SET INVERSE GAUSSIAN DEFINITION
7176C     UPDATED         --APRIL      2014.  SET INVERSE GAUSSIAN
7177C                                             CONFIDENCE LIMIT METHOD
7178C     UPDATED         --JUNE       2014.  SET FIT AUXILLARY FILES
7179C     UPDATED         --JULY       2014.  SET NORMAL PLOT AXES
7180C     UPDATED         --AUGUST     2014.  SET LATEX RESIZE
7181C     UPDATED         --SEPTEMBER  2014.  SET CIRCLE CORRECTION
7182C     UPDATED         --SEPTEMBER  2014.  SET WEIBULL ELEMENTAL
7183C                                             PERCENTILES
7184C     UPDATED         --SEPTEMBER  2014.  SET WEIBULL L MOMENTS
7185C     UPDATED         --OCTOBER    2014.  SET GEV MAXIMUM LIKELIHOOD
7186C     UPDATED         --OCTOBER    2014.  SET AUTOMATIC VARIABLE BASE
7187C                                             NAME
7188C     UPDATED         --OCTOBER    2014.  SET VARIABLE NAME
7189C     UPDATED         --OCTOBER    2014.  SET SEARCH DIRECTORY
7190C     UPDATED         --NOVEMBER   2014.  SET CLIPBOARD SKIP
7191C     UPDATED         --NOVEMBER   2014.  SET CLIPBOARD DELAY
7192C     UPDATED         --NOVEMBER   2014.  SET CLIPBOARD LOOP LINES
7193C     UPDATED         --DECEMBER   2014.  SET X11 CLIPBOARD
7194C     UPDATED         --FEBRUARY   2015.  SET E691 TEST RESULTS TABLE
7195C     UPDATED         --FEBRUARY   2015.  SET E691 H CONSISTENCY TABLE
7196C     UPDATED         --FEBRUARY   2015.  SET E691 K CONSISTENCY TABLE
7197C     UPDATED         --FEBRUARY   2015.  SET E691 PRECISION STATISTICS TABLE
7198C     UPDATED         --MARCH      2015.  SET SCATTER PLOT MAXTRIX X1LABEL
7199C     UPDATED         --MARCH      2015.  SET SCATTER PLOT MAXTRIX
7200C                                             SHADED DIAGONAL
7201C     UPDATED         --APRIL      2015.  SET CNPK DEFINITION
7202C     UPDATED         --APRIL      2015.  SET E691 DATA SUMMARY TABLE
7203C     UPDATED         --APRIL      2015.  SET E691 MATERIAL ID GROUP
7204C                                             LABEL
7205C     UPDATED         --APRIL      2015.  SET STATISTIC PLOT REFERENCE
7206C                                             LINE
7207C     UPDATED         --MAY        2015.  SET H CONSISTENCY PLOT TYPE
7208C     UPDATED         --MAY        2015.  SET H CONSISTENCY PLOT GAP
7209C     UPDATED         --MAY        2015.  SET H CONSISTENCY PLOT
7210C                                             MATERIAL FIRST
7211C     UPDATED         --MAY        2015.  SET H CONSISTENCY PLOT
7212C                                             MATERIAL LAST
7213C     UPDATED         --MAY        2015.  SET H CONSISTENCY PLOT
7214C                                             LABORATORY FIRST
7215C     UPDATED         --MAY        2015.  SET H CONSISTENCY PLOT
7216C                                             LABORATORY LAST
7217C     UPDATED         --MAY        2015.  SET H CONSISTENCY PLOT
7218C     UPDATED         --MAY        2015.  SET H CONSISTENCY PLOT
7219C     UPDATED         --MAY        2015.  SET MOVING STAT PLOT GROUPS
7220C     UPDATED         --JUNE       2015.  SET TWO WAY PLOT Y AXIS
7221C     UPDATED         --JUNE       2015.  SET TWO WAY PLOT FIT TABLE
7222C     UPDATED         --JUNE       2015.  SET TWO WAY PLOT AVERAGES TABLE
7223C     UPDATED         --JUNE       2015.  SET TWO WAY PLOT ANOVA TABLE
7224C     UPDATED         --JUNE       2015.  SET TWO WAY PLOT FACTOR LABEL
7225C     UPDATED         --JUNE       2015.  SET TWO WAY PLOT FACTOR DECIMALS
7226C     UPDATED         --JUNE       2015.  SET TWO WAY PLOT ANOVA TABLE
7227C                                             DECIMALS
7228C     UPDATED         --JUNE       2015.  SET TWO FACTOR PLOT TYPE
7229C     UPDATED         --JUNE       2015.  SET TWO FACTOR PLOT GAP
7230C     UPDATED         --JUNE       2015.  SET TWO FACTOR PLOT
7231C                                             MATERIAL FIRST
7232C     UPDATED         --JUNE       2015.  SET TWO FACTOR PLOT
7233C                                             MATERIAL LAST
7234C     UPDATED         --JUNE       2015.  SET TWO FACTOR PLOT
7235C                                             LABORATORY FIRST
7236C     UPDATED         --JUNE       2015.  SET TWO FACTOR PLOT
7237C                                             LABORATORY LAST
7238C     UPDATED         --JUNE       2015.  SET TWO FACTOR PLOT
7239C     UPDATED         --SEPTEMBER  2015.  SET OPTIMIZATION
7240C     UPDATED         --OCTOBER    2015.  SET WARNING ERROR
7241C     UPDATED         --OCTOBER    2015.  SET JSCORE REPLICATION
7242C     UPDATED         --OCTOBER    2015.  SET LOOP SUBSTITUTION
7243C     UPDATED         --NOVEMBER   2015.  SET PERCENTILE DIGITS
7244C     UPDATED         --NOVEMBER   2015.  SET SEARCH ENGINE
7245C     UPDATED         --NOVEMBER   2015.  SET DEVICE 3
7246C     UPDATED         --DECEMBER   2015.  SET FRAME LIMIT OFFSET
7247C     UPDATED         --DECEMBER   2015.  SET DEVICE 2 SPLIT
7248C     UPDATED         --DECEMBER   2015.  SET DEVICE 3 NAME COUNTER
7249C     UPDATED         --DECEMBER   2015.  SET CAPTURE SPLIT
7250C     UPDATED         --DECEMBER   2015.  SET CAPTURE CUMULATIVE
7251C     UPDATED         --DECEMBER   2015.  SET STANDARD INPUT
7252C     UPDATED         --DECEMBER   2015.  SET DELAY STANDARD INPUT
7253C     UPDATED         --DECEMBER   2015.  SET MAXIMUM COUNTER STANDARD INPUT
7254C     UPDATED         --MAY        2016.  SET MACRO QUOTES STRIP
7255C     UPDATED         --JUNE       2016.  SET STATUS DISTINCT
7256C     UPDATED         --JUNE       2016.  SET CHECK NAME OUTPUT
7257C     UPDATED         --JUNE       2016.  SET HISTOGRAM MAXIMUM CLASSES
7258C     UPDATED         --JUNE       2016.  SET HISTOGRAM OUTLIER POINTS
7259C     UPDATED         --JUNE       2016.  SET BOX PLOT EXTREME
7260C                                             PERCENTILES
7261C     UPDATED         --JUNE       2016.  SET STREAM READ SIZE
7262C     UPDATED         --JUNE       2016.  SET DATE DELIMITER
7263C     UPDATED         --JUNE       2016.  SET TIME DELIMITER
7264C     UPDATED         --JUNE       2016.  SET READ IP ADDRESSES
7265C     UPDATED         --JUNE       2016.  SET QUANTILE QUANTILE PLOT
7266C                                             NUMBER OF EXTREMES
7267C     UPDATED         --JUNE       2016.  SET TWO SAMPLE TESTS
7268C                                             NUMBER OF EXTREMES
7269C     UPDATED         --JUNE       2016.  SET LET CROSS TABULATE GROUPS
7270C     UPDATED         --JUNE       2016.  SET QUANTILE QUANTILE PLOT
7271C                                             BOOTSTRAP
7272C     UPDATED         --JUNE       2016.  SET STREAM READ NUMBER OF
7273C                                             PERCENTILES
7274C     UPDATED         --JULY       2016.  SET STREAM READ GROUP VARIABLE
7275C     UPDATED         --JULY       2016.  SET WRITE HEADER FILE
7276C     UPDATED         --JULY       2016.  SET STREAM READ RESPONSE
7277C                                             VARIABLE ONE
7278C     UPDATED         --JULY       2016.  SET STREAM READ RESPONSE
7279C                                             VARIABLE TWO
7280C     UPDATED         --JULY       2016.  SET STREAM READ RESPONSE
7281C                                             VARIABLE THREE
7282C     UPDATED         --AUGUST     2016.  CALL LIST TO DPINFI
7283C     UPDATED         --AUGUST     2016.  ADD OPTION TO SET SYSTEM QWIN
7284C     UPDATED         --SEPTEMBER  2016.  SET CORRELATION DIGITS
7285C     UPDATED         --SEPTEMBER  2016.  SET CORRELATION ABSOLUTE VALUE
7286C     UPDATED         --SEPTEMBER  2016.  SET CORRELATION PERCENTAGE VALUE
7287C     UPDATED         --OCTOBER    2016.  SET PSVIEW FILE CLOSE
7288C     UPDATED         --NOVEMBER   2016.  SET BLOCK PLOT JITTER
7289C     UPDATED         --NOVEMBER   2016.  SET CONSENSUS MEAN PLOT
7290C                                             OMIT LABS
7291C     UPDATED         --NOVEMBER   2016.  SET CAPTURE SCRIPT LOOP
7292C                                             SUBSTITUTION
7293C     UPDATED         --DECEMBER   2016.  SET COEFFICIENT OF VARIATION
7294C                                             CONFIDENCE LIMIT METHOD
7295C     UPDATED         --JANUARY    2017.  SET HYPHEN WORD SEPARATOR
7296C     UPDATED         --JANUARY    2017.  SET WELCH SATTERTHWAITE
7297C     UPDATED         --MARCH      2017.  SET HUBER MEAN OF MEANS
7298C                                             CONSENSUS MEAN
7299C     UPDATED         --MARCH      2017.  SET K MEANS INITIAL
7300C     UPDATED         --MARCH      2017.  SET K MEANS SILHOUETTE
7301C     UPDATED         --MARCH      2017.  SET K MEANS SCALE
7302C     UPDATED         --APRIL      2017.  SET CONSENSUS MEAN PLOT
7303C                                             OMIT METHOD
7304C     UPDATED         --APRIL      2017.  SET NORMAL MIXTURE CLUSTER SCALE
7305C     UPDATED         --APRIL      2017.  SET NORMAL MIXTURE CLUSTER
7306C                                             TITLE
7307C     UPDATED         --APRIL      2017.  SET NORMAL MIXTURE CLUSTER
7308C                                             ROW LABEL
7309C     UPDATED         --APRIL      2017.  SET CHARACTER FIELD COMMA
7310C                                             DELIMITER
7311C     UPDATED         --APRIL      2017.  SET READ DOLLAR SIGN IGNORE
7312C     UPDATED         --APRIL      2017.  SET READ TRAILING PLUS MINUS
7313C                                             IGNORE
7314C     UPDATED         --APRIL      2017.  SET READ COMMA IGNORE
7315C     UPDATED         --APRIL      2017.  SET READ CHARACTER MISSING
7316C                                             VALUE
7317C     UPDATED         --JUNE       2017.  SET TWO SAMPLE COEFFICIENT
7318C                                             OF VARIATION TEST
7319C     UPDATED         --JULY       2017.  SET BLAND ALTMAN PLOT STATISTIC
7320C     UPDATED         --JULY       2017.  SET BLAND ALTMAN PLOT BOOTSTRAP
7321C     UPDATED         --JULY       2017.  SET BLAND ALTMAN PLOT
7322C                                             CONFIDENCE INTERVAL
7323C     UPDATED         --JULY       2017.  SET BLAND ALTMAN PLOT
7324C     UPDATED         --JULY       2017.  SET POINCARE PLOT LAG
7325C     UPDATED         --JULY       2017.  SET NORMAL KERNEL DENSITY
7326C                                             MIXTURE PLOT EXPANSION
7327C                                             FACTOR
7328C     UPDATED         --AUGUST     2017.  SET SAMPLE RANDOM PERMUTATION
7329C                                             DISTINCT
7330C     UPDATED         --AUGUST     2017.  SET K MEDOID CLUSTER SCALE
7331C     UPDATED         --AUGUST     2017.  SET K MEDOID CLUSTER DISTANCE
7332C     UPDATED         --AUGUST     2017.  SET K MEDOID CLUSTER PRINT
7333C     UPDATED         --AUGUST     2017.  SET K MEDOID CLUSTER SAMPLE
7334C                                             SIZE
7335C     UPDATED         --AUGUST     2017.  SET K MEDOID CLUSTER NUMBER
7336C                                             OF SAMPLES
7337C     UPDATED         --AUGUST     2017.  SET K MEDOID CLUSTER PAM
7338C                                             MAXIMUM SIZE
7339C     UPDATED         --AUGUST     2017.  SET K MEDOID CLUSTER RAND
7340C                                             NUMBER GENERATOR
7341C     UPDATED         --AUGUST     2017.  SET K MEDOID CLUSTER TYPE
7342C     UPDATED         --AUGUST     2017.  SET AGNES CLUSTER SCALE
7343C     UPDATED         --AUGUST     2017.  SET AGNES CLUSTER DISTANCE
7344C     UPDATED         --AUGUST     2017.  SET AGNES CLUSTER PRINT
7345C     UPDATED         --AUGUST     2017.  SET AGNES CLUSTER TYPE
7346C     UPDATED         --AUGUST     2017.  SET AGNES CLUSTER METHOD
7347C     UPDATED         --AUGUST     2017.  SET AGNES CLUSTER MAXIMUM SIZE
7348C     UPDATED         --AUGUST     2017.  SET AGNES CLUSTER BANNER PLOT
7349C     UPDATED         --AUGUST     2017.  SET FANNY CLUSTER SCALE
7350C     UPDATED         --AUGUST     2017.  SET FANNY CLUSTER DISTANCE
7351C     UPDATED         --AUGUST     2017.  SET FANNY CLUSTER PRINT
7352C     UPDATED         --AUGUST     2017.  SET FANNY CLUSTER TYPE
7353C     UPDATED         --AUGUST     2017.  SET FANNY CLUSTER MAXIMUM SIZE
7354C     UPDATED         --OCTOBER    2017.  SET CAIRO BLANK PAGE
7355C     UPDATED         --OCTOBER    2017.  SET CAIRO POINTS PER INCH
7356C     UPDATED         --NOVEMBER   2017.  SET DIFFERENCE OF BINOMIAL
7357C                                             METHOD
7358C     UPDATED         --DECEMBER   2017.  SET BONETT STANDARD DEVIATION
7359C                                             CONFIDENCE LIMIT ADJUSTED
7360C     UPDATED         --DECEMBER   2017.  SET BONETT STANDARD DEVIATION
7361C                                             CONFIDENCE LIMIT
7362C     UPDATED         --JANUARY    2018.  SET DEX PARETO PLOT ORDER
7363C     UPDATED         --JANUARY    2018.  SET DEX ORDERED PLOT
7364C                                             IDENTIFICATION
7365C     UPDATED         --FEBRUARY   2018.  SET DEX ORDERED PLOT
7366C                                             UNCERTAINTY
7367C     UPDATED         --FEBRUARY   2018.  SET CHECK LENGTH OUTPUT
7368C     UPDATED         --FEBRUARY   2018.  SET SCATTER PLOT MATRIX XTIC
7369C     UPDATED         --FEBRUARY   2018.  SET SCATTER PLOT MATRIX XTIC
7370C                                             LABEL
7371C     UPDATED         --FEBRUARY   2018.  SET SCATTER PLOT MATRIX YTIC
7372C     UPDATED         --FEBRUARY   2018.  SET SCATTER PLOT MATRIX YTIC
7373C                                             LABEL
7374C     UPDATED         --APRIL      2018.  SET WEB SEARCH DATAPLOT
7375C     UPDATED         --APRIL      2018.  SET COMMAND LINE EXECUTE WAIT
7376C     UPDATED         --APRIL      2018.  SET LINUX SYSTEM
7377C     UPDATED         --APRIL      2018.  SET HYPHEN COMMAND LINE
7378C     UPDATED         --APRIL      2018.  SET COMMA COMMAND LINE
7379C     UPDATED         --APRIL      2018.  SET EQUAL COMMAND LINE
7380C     UPDATED         --MAY        2018.  SET GUENTHER CORRECTION
7381C     UPDATED         --MAY        2018.  SET TOLERANCE LIMITS METHOD
7382C     UPDATED         --MAY        2018.  SET TOLERANCE LIMITS ONE SIDED
7383C                                             METHOD
7384C     UPDATED         --JUNE       2018.  SET DISTRIBUTIONAL FIT PLOT
7385C                                             SORT
7386C     UPDATED         --JUNE       2018.  SET DISTRIBUTIONAL FIT PLOT
7387C                                             TYPE
7388C     UPDATED         --JUNE       2018.  SET ROW LABEL COLUMN
7389C     UPDATED         --JULY       2018.  SET KERNEL DENSITY
7390C                                             PROBABILITY FUNCTION
7391C     UPDATED         --JULY       2018.  SET KERNEL DENSITY
7392C                                             RANDOM NUMBERS
7393C     UPDATED         --JULY       2018.  SET STREAM READ CROSS
7394C                                             TABULATE NAME
7395C     UPDATED         --JULY       2018.  SET STREAM READ GROUP LABELS
7396C     UPDATED         --JULY       2018.  SET STREAM READ VARIABLE TYPE
7397C     UPDATED         --AUGUST     2018.  CHANGE DEFAULT VALUE FOR
7398C                                         READ DELIMITER TO A SPACE
7399C                                         RATHER THAN A COMMA
7400C     UPDATED         --SEPTEMBER  2018.  SET WRITE FEEDBACK
7401C     UPDATED         --SEPTEMBER  2018.  SET WORD DELIMITER
7402C     UPDATED         --SEPTEMBER  2018.  SET COMMAND SUBSTITUTION
7403C     UPDATED         --JANUARY    2019.  SET PYTHON PATH
7404C     UPDATED         --JANUARY    2019.  SET PYTHON VERSION
7405C     UPDATED         --JANUARY    2019.  SET SUBSTITUTION FORMAT
7406C     UPDATED         --JANUARY    2019.  SET STRING JUST CHAR
7407C     UPDATED         --FEBRUARY   2019.  SET TAB <COLOR/FONT/JUST/
7408C                                             UNITS/SIZE/WIDHT/
7409C                                             HORIZONTAL POSITION/
7410C                                             VERTICAL POSITION>
7411C     UPDATED         --FEBRUARY   2019.  SET CARRIAGE RETURN GAP
7412C     UPDATED         --FEBRUARY   2019.  SET CLIPBOARD RUN CLEAR
7413C     UPDATED         --FEBRUARY   2019.  SET DEX STAT PLOT INTERACTION
7414C     UPDATED         --MARCH      2019.  SET SYSTEM PERSIST
7415C     UPDATED         --MARCH      2019.  SET SYSTEM HIDDEN
7416C     UPDATED         --MARCH      2019.  SET EDITOR
7417C     UPDATED         --APRIL      2019.  SET AUXILLARY FILES DECIMAL
7418C                                             POINTS
7419C     UPDATED         --APRIL      2019.  SET READ ASTERISK IGNORE
7420C     UPDATED         --MAY        2019.  ADD LEFT/RIGHT OPTIONS TO
7421C                                         SET CONSENSUS MEAN PLOT DATA
7422C     UPDATED         --JULY       2019.  SET BOXPLOT SKEWNESS
7423C     UPDATED         --AUGUST     2019.  SET ONE SAMPLE PROFICIENCY
7424C                                             TEST IDENTIFY LAB
7425C     UPDATED         --SEPTEMBER  2019.  SET GREP CASE
7426C     UPDATED         --SEPTEMBER  2019.  SET GREP RECURSIVE
7427C     UPDATED         --SEPTEMBER  2019.  SET GREP LINE NUMBERS
7428C     UPDATED         --SEPTEMBER  2019.  SET GREP EXACT MATCH
7429C     UPDATED         --SEPTEMBER  2019.  SET GREP NO MATCH
7430C     UPDATED         --SEPTEMBER  2019.  SET GREP FILE NAME ONLY
7431C     UPDATED         --SEPTEMBER  2019.  SET CAT MORE
7432C     UPDATED         --SEPTEMBER  2019.  SET DIR RECURSIVE
7433C     UPDATED         --SEPTEMBER  2019.  SET DIR PAUSE
7434C     UPDATED         --SEPTEMBER  2019.  SET DIR LONG LISTING
7435C     UPDATED         --SEPTEMBER  2019.  SET DIR SORT
7436C     UPDATED         --SEPTEMBER  2019.  SET CAT MORE
7437C     UPDATED         --SEPTEMBER  2019.  SET STRING VARIABLE
7438C     UPDATED         --SEPTEMBER  2019.  SET STRING COMBINE
7439C                                               SEPARATOR
7440C     UPDATED         --SEPTEMBER  2019.  SET RATIO OF MEANS METHOD
7441C     UPDATED         --OCTOBER    2019.  SET DAVID TEST CRITICAL VALUES
7442C     UPDATED         --OCTOBER    2019.  SET SKEW OUTLIER TEST CRITICAL
7443C                                             VALUES
7444C     UPDATED         --OCTOBER    2019.  SET KURTOSIS OUTLIER TEST
7445C                                             CRITICAL VALUES
7446C     UPDATED         --OCTOBER    2019.  SET READ PERCENT SIGN IGNORE
7447C     UPDATED         --OCTOBER    2019.  SET HEAD LINES
7448C     UPDATED         --OCTOBER    2019.  SET TAIL LINES
7449C     UPDATED         --OCTOBER    2019.  SET GRUBB TEST STANDARD
7450C                                             DEVIATION
7451C     UPDATED         --OCTOBER    2019.  SET GRUBB TEST DEGREES
7452C                                             OF FREEDOM
7453C     UPDATED         --OCTOBER    2019.  SET GRUBB TEST CRITICAL VALUES
7454C     UPDATED         --NOVEMBER   2019.  SET RANLUX LEVEL
7455C     UPDATED         --NOVEMBER   2019.  SET OUTPUT LINE NUNBERS
7456C     UPDATED         --NOVEMBER   2019.  SET R PATH
7457C     UPDATED         --NOVEMBER   2019.  SET BROWSER HEIGHT
7458C     UPDATED         --NOVEMBER   2019.  SET BROWSER WIDTH
7459C     UPDATED         --NOVEMBER   2019.  SET LIST VIEWER
7460C     UPDATED         --NOVEMBER   2019.  SET LIST NEW WINDOW
7461C     UPDATED         --NOVEMBER   2019.  SET HELP NEW WINDOW
7462C     UPDATED         --NOVEMBER   2019.  SET EXCEL VIEWER
7463C     UPDATED         --NOVEMBER   2019.  SET WORD VIEWER
7464C     UPDATED         --NOVEMBER   2019.  SET POWER POINT VIEWER
7465C     UPDATED         --DECEMBER   2019.  SET PDF VIEWER
7466C     UPDATED         --DECEMBER   2019.  SET IMAGE VIEWER
7467C     UPDATED         --DECEMBER   2019.  SET BACKUP VIEWER
7468C     UPDATED         --DECEMBER   2019.  SET HOME PATH
7469C     UPDATED         --JANUARY    2020.  SET IPLOT JITTER
7470C     UPDATED         --FEBRUARY   2020.  SET IZCHNA
7471C     UPDATED         --FEBRUARY   2020.  SET WRITE CSV
7472C     UPDATED         --FEBRUARY   2020.  SET INSERT OVERWRITE
7473C     UPDATED         --MARCH      2020.  SET SEARCH2 DIRECTORY
7474C     UPDATED         --MARCH      2020.  SET SEARCH3 DIRECTORY
7475C     UPDATED         --APRIL      2020.  SET BEST FIT <DIST>
7476C     UPDATED         --MARCH      2020.  SET SEARCH4 DIRECTORY
7477C     UPDATED         --MARCH      2020.  SET SEARCH5 DIRECTORY
7478C     UPDATED         --MARCH      2020.  SET SEARCH6 DIRECTORY
7479C
7480C-----CHARACTER STATEMENTS FOR NON-COMMON VARIABLES-------------------
7481C
7482      CHARACTER*1 IREPCH
7483C
7484      CHARACTER*4 IOSW
7485      CHARACTER*4 IPPDE1
7486      CHARACTER*4 IPPDE2
7487C
7488      CHARACTER*4 IBUGUG
7489      CHARACTER*4 IBUGU2
7490      CHARACTER*4 IBUGU3
7491      CHARACTER*4 IBUGU4
7492      CHARACTER*4 IBUGEX
7493      CHARACTER*4 IBUGE2
7494      CHARACTER*4 IBUGHE
7495      CHARACTER*4 IBUGH2
7496      CHARACTER*4 IBUGLO
7497      CHARACTER*4 ISUBRO
7498C
7499      CHARACTER*4 IFTEXP
7500CCCCC AUGUST 1995.  ADD FOLLOWING LINE
7501      CHARACTER*4 IFTORD
7502C
7503      CHARACTER*4 IFORSW
7504      CHARACTER*4 IFILQZ
7505C
7506CCCCC MARCH 1996.  ADD FOLLOWING LINE
7507CCCCC NOVEMBER 1998.  MOVE TO DPCOST
7508CCCCC CHARACTER*4 IRHSTG
7509C
7510      CHARACTER*4 IFILQS
7511C
7512      CHARACTER*80 ICREAF
7513      CHARACTER*80 ICWRIF
7514      CHARACTER*80 ITEMP
7515C
7516      CHARACTER*4 IREARW
7517      CHARACTER*4 IWRIRW
7518C
7519CCCCC THE FOLLOWING LINE WAS ADDED FEBRUARY 1993
7520      CHARACTER*4 IPRITY
7521CCCCC THE FOLLOWING LINE WAS ADDED       JULY 1995
7522CCCCC CHARACTER*4 IFITAC
7523C
7524      CHARACTER*4 IFOUND
7525      CHARACTER*4 IERROR
7526C
7527      CHARACTER*4 ICASPR
7528      CHARACTER*4 IHV
7529      CHARACTER*4 IHV2
7530CCCCC THE FOLLOWING LINE WAS ADDED   MAY 1992 (JJF)
7531      CHARACTER*12 IHV12
7532      CHARACTER*4 IPART1
7533      CHARACTER*4 IPART2
7534      CHARACTER*4 IPART3
7535      CHARACTER*4 IPART4
7536      CHARACTER*4 IPART5
7537      CHARACTER*4 IPART6
7538      CHARACTER*4 IPART7
7539      CHARACTER*4 IPART8
7540      CHARACTER*4 IPART9
7541      CHARACTER*4 IHWUSE
7542      CHARACTER*4 MESSAG
7543      CHARACTER*8 ICTEMP
7544C
7545      CHARACTER*256 ICANS
7546      CHARACTER*256 ISTRIN
7547      CHARACTER*256 ISTRIZ
7548      CHARACTER*80  ICMDTI
7549      CHARACTER*4   ICASEZ
7550C
7551      CHARACTER*4 IEXIST
7552      CHARACTER*4 IOPEN
7553      CHARACTER*8 IACC
7554      CHARACTER*4 ISUBN0
7555      CHARACTER*4 ISUBN1
7556      CHARACTER*4 ISUBN2
7557      CHARACTER*4 ISTEPN
7558C
7559C-----COMMON----------------------------------------------------------
7560C
7561      INCLUDE 'DPCOPA.INC'
7562      INCLUDE 'DPCOMC.INC'
7563      INCLUDE 'DPCODB.INC'
7564      INCLUDE 'DPCOHK.INC'
7565      INCLUDE 'DPCOPC.INC'
7566      INCLUDE 'DPCODG.INC'
7567      INCLUDE 'DPCOSU.INC'
7568CCCCC THE FOLLOWING LINE (FOR WEIBULL MINMAX) WAS ADDED JANUARY 1994
7569      INCLUDE 'DPCOS2.INC'
7570      INCLUDE 'DPCODA.INC'
7571      INCLUDE 'DPCOTR.INC'
7572      INCLUDE 'DPCOBE.INC'
7573      INCLUDE 'DPCOF2.INC'
7574      INCLUDE 'DPCOST.INC'
7575      INCLUDE 'DPCODV.INC'
7576CCCCC THE FOLLOWING COMMON FOR NON-PRINTING CHAR. WAS ADDED APRIL 1989
7577      INCLUDE 'DPCONP.INC'
7578CCCCC THE FOLLOWING COMMON FOR WINDOW SYSTEMS WAS ADDED AUGUST 1990
7579      INCLUDE 'DPCOWI.INC'
7580CCCCC THE FOLLOWING LINE WAS ADDED APRIL 1997
7581      INCLUDE 'DPCOHO.INC'
7582C
7583C-----COMMON VARIABLES (GENERAL)--------------------------------------
7584C
7585      INCLUDE 'DPCOP2.INC'
7586C
7587C-----START POINT-----------------------------------------------------
7588C
7589      IFOUND='NO'
7590      IERROR='NO'
7591      ISUBN1='DPSE'
7592      ISUBN2='T   '
7593      ICASPR='    '
7594      IFILQZ=IFILQU
7595      IFILQU='ON'
7596C
7597      IF(ISUBRO.EQ.'PSET')THEN
7598        WRITE(ICOUT,11)
7599   11   FORMAT('****** AT THE BEGINNING OF DPSET')
7600        CALL DPWRST('XXX','BUG ')
7601        WRITE(ICOUT,13)IFOUND,IERROR
7602   13   FORMAT('IFOUND,IERROR = ',A4,2X,A4)
7603        CALL DPWRST('XXX','BUG ')
7604      ENDIF
7605C
7606C     2016/10: IF LAST ARGUMENT IS A PARAMETER OR STRING
7607C              NAME, THEN PLACE CONTENTS INTO IHV, IHV2
7608C
7609      IHV=IHARG(NUMARG)
7610      IHV2=IHARG2(NUMARG)
7611      IHWUSE='P'
7612      MESSAG='NO'
7613      CALL CHECKN(IHV,IHV2,IHWUSE,
7614     1            IHNAME,IHNAM2,IUSE,IN,IVALUE,VALUE,NUMNAM,MAXNAM,
7615     1            ISUBN1,ISUBN2,MESSAG,IANS,IWIDTH,ILOCV,IERROR)
7616      IF(IERROR.EQ.'NO')THEN
7617        AV=VALUE(ILOCV)
7618        IF(AV.GE.0.0)THEN
7619          IV=INT(AV+0.5)
7620        ELSE
7621          IV=INT(AV-0.5)
7622        ENDIF
7623        ICTEMP=' '
7624        WRITE(ICTEMP,'(I8)')IV
7625        ICTEMP=ADJUSTL(ICTEMP)
7626        IHV=ICTEMP(1:4)
7627        IHV2=ICTEMP(5:8)
7628      ELSEIF(IERROR.EQ.'YES')THEN
7629C
7630C       NOW CHECK TO SEE IF THE NAME IS A STRING
7631C
7632        IHWUSE='F'
7633        MESSAG='NO'
7634        CALL CHECKN(IHV,IHV2,IHWUSE,
7635     1              IHNAME,IHNAM2,IUSE,IN,IVALUE,VALUE,NUMNAM,MAXNAM,
7636     1              ISUBN1,ISUBN2,MESSAG,IANS,IWIDTH,ILOCV,IERROR)
7637        IF(IERROR.EQ.'NO')THEN
7638          ISTART=IVSTAR(ILOCV)
7639          ISTOP=IVSTOP(ILOCV)
7640          NLEN=ISTOP-ISTART+1
7641          IF(NLEN.GT.8)NLEN=8
7642          ISTOP=ISTART+NLEN-1
7643          ICNT=0
7644          ICTEMP=' '
7645          DO1011J=ISTART,ISTOP
7646            ICNT=ICNT+1
7647            ICTEMP(ICNT:ICNT)=IFUNC(J)(1:1)
7648 1011     CONTINUE
7649          IHV=ICTEMP(1:4)
7650          IHV2=ICTEMP(5:8)
7651        ENDIF
7652      ENDIF
7653      IERROR='NO'
7654C
7655C               ***************************************
7656C               **  STEP 11--                        **
7657C               **  TREAT THE PREPLOT/POSTPLOT CASE  **
7658C               ***************************************
7659C
7660      IF(NUMARG.GE.1)THEN
7661        IF(IHARG(1).EQ.'PRE' .OR. IHARG(1).EQ.'PREP' .OR.
7662     1    (IHARG(1).EQ.'POST' .AND. IHARG2(1).NE.'SCRI' .AND.
7663     1     IHARG(2).NE.'CONV'))THEN
7664          CALL DPPRPO(ICOM,IHARG,IHARG2,IARG,ARG,IARGT,NUMARG,
7665     1                IPPDE1,IPPDE2,
7666     1                IBUGS2,IFOUND,IERROR)
7667          GOTO9000
7668        ENDIF
7669      ENDIF
7670C
7671C               *********************************************
7672C               **  STEP 12--                              **
7673C               **  TREAT THE    SET READ FORMAT    CASE   **
7674C               *********************************************
7675C
7676      IF(NUMARG.GE.2.AND.IHARG(1).EQ.'READ'.AND.
7677     1   IHARG(2).EQ.'FORM')THEN
7678        ICREAF(1:40)='                                        '
7679        ICREAF(41:80)='                                        '
7680        NCREAF=0
7681        IF(NUMARG.LE.2 .OR. IHARG(NUMARG).EQ.'OFF' .OR.
7682     1     IHARG(NUMARG).EQ.'AUTO')THEN
7683          NCSTRI=0
7684          IFOUND='YES'
7685          IF(IFEEDB.EQ.'ON')THEN
7686            WRITE(ICOUT,999)
7687            CALL DPWRST('XXX','BUG ')
7688            WRITE(ICOUT,1251)
7689 1251       FORMAT('THE (FORTRAN-LIKE) READ FORMAT HAS JUST BEEN ',
7690     1             'TURNED OFF;')
7691            CALL DPWRST('XXX','BUG ')
7692            WRITE(ICOUT,1252)
7693 1252       FORMAT('THUS SUBSEQUENT READS WILL BE FREE-FORMAT.')
7694            CALL DPWRST('XXX','BUG ')
7695          ENDIF
7696          GOTO9000
7697        ENDIF
7698C
7699        ICANS=' '
7700        DO1230I=1,MIN(IWIDTH,130)
7701          ICANS(I:I)=IANS(I)
7702 1230   CONTINUE
7703C
7704        ISTART=1
7705        ISTOP=IWIDTH
7706        IWORD=NUMARG+1
7707        CALL DPEXWO(ICANS,ISTART,ISTOP,IWORD,
7708     1              ICOL1,ICOL2,ISTRIN,NCSTRI,
7709     1              IBUGS2,ISUBRO,IERROR)
7710C
7711        IF(NCSTRI.GE.1)THEN
7712          NCREAF=NCSTRI
7713          NCP2=NCREAF+2
7714          IF(NCP2.GT.80)NCP2=80
7715          ICREAF(2:80)=ISTRIN(1:79)
7716          ICREAF(1:1)='('
7717          ICREAF(NCP2:NCP2)=')'
7718          NCREAF=NCP2
7719          IFOUND='YES'
7720          IF(IFEEDB.EQ.'ON')THEN
7721            WRITE(ICOUT,999)
7722            CALL DPWRST('XXX','BUG ')
7723            WRITE(ICOUT,1241)
7724 1241       FORMAT('THE (FORTRAN-LIKE) READ FORMAT HAS JUST BEEN ',
7725     1             'SET TO')
7726            CALL DPWRST('XXX','BUG ')
7727            WRITE(ICOUT,1242)(ICREAF(I:I),I=1,NCREAF)
7728 1242       FORMAT(80A1)
7729            CALL DPWRST('XXX','BUG ')
7730          ENDIF
7731          GOTO9000
7732        ELSE
7733          NCSTRI=0
7734          IFOUND='YES'
7735          IF(IFEEDB.EQ.'ON')THEN
7736            WRITE(ICOUT,999)
7737            CALL DPWRST('XXX','BUG ')
7738            WRITE(ICOUT,1251)
7739            CALL DPWRST('XXX','BUG ')
7740            WRITE(ICOUT,1252)
7741            CALL DPWRST('XXX','BUG ')
7742          ENDIF
7743          GOTO9000
7744        ENDIF
7745      ENDIF
7746C
7747C               *********************************************
7748C               **  STEP 13--                              **
7749C               **  TREAT THE    SET WRITE FORMAT   CASE   **
7750C               *********************************************
7751C
7752      IF(NUMARG.GE.2 .AND.
7753     1  (IHARG(1).EQ.'WRIT' .OR. IHARG(1).EQ.'PRIN') .AND.
7754     1   IHARG(2).EQ.'FORM')THEN
7755        ICWRIF(1:40)='                                        '
7756        ICWRIF(41:80)='                                        '
7757        NCWRIF=0
7758        IF(NUMARG.LE.2)GOTO1350
7759        IF(IHARG(NUMARG).EQ.'OFF')GOTO1350
7760        IF(IHARG(NUMARG).EQ.'AUTO')GOTO1350
7761C
7762        DO1330I=1,80
7763          ICANS(I:I)=IANS(I)
7764 1330   CONTINUE
7765C
7766        ISTART=1
7767        ISTOP=IWIDTH
7768        IWORD=4
7769        CALL DPEXWO(ICANS,ISTART,ISTOP,IWORD,
7770     1              ICOL1,ICOL2,ISTRIN,NCSTRI,
7771     1              IBUGS2,ISUBRO,IERROR)
7772C
7773        ISTART=1
7774        ISTOP=IWIDTH
7775        IWORD=NUMARG+1
7776        CALL DPEXWO(ICANS,ISTART,ISTOP,IWORD,
7777     1              ICOL3,ICOL4,ISTRIN,NCSTRI,
7778     1              IBUGS2,ISUBRO,IERROR)
7779C
7780        NCSTRI=ICOL4-ICOL1+1
7781        IF(NCSTRI.GE.1)THEN
7782          NCWRIF=NCSTRI
7783          NCP2=NCWRIF+2
7784          IF(NCP2.GT.80)NCP2=80
7785          DO1341I=2,80
7786            J=ICOL1-2+I
7787            IF(J.LE.ICOL4)ICWRIF(I:I)=ICANS(J:J)
7788            IF(J.GT.ICOL4)ICWRIF(I:I)=' '
7789 1341     CONTINUE
7790          ICWRIF(1:1)='('
7791          ICWRIF(NCP2:NCP2)=')'
7792          NCWRIF=NCP2
7793          IFOUND='YES'
7794          IF(IFEEDB.EQ.'ON')THEN
7795            WRITE(ICOUT,999)
7796            CALL DPWRST('XXX','BUG ')
7797            WRITE(ICOUT,1342)
7798 1342       FORMAT('THE (FORTRAN-LIKE) WRITE FORMAT HAS JUST BEEN ',
7799     1             'SET TO')
7800            CALL DPWRST('XXX','BUG ')
7801            WRITE(ICOUT,1343)(ICWRIF(I:I),I=1,NCWRIF)
7802 1343       FORMAT(80A1)
7803            CALL DPWRST('XXX','BUG ')
7804          ENDIF
7805          GOTO9000
7806        ENDIF
7807C
7808 1350   CONTINUE
7809        NCSTRI=0
7810        IFOUND='YES'
7811        IF(IFEEDB.EQ.'ON')THEN
7812          WRITE(ICOUT,999)
7813          CALL DPWRST('XXX','BUG ')
7814          WRITE(ICOUT,1351)
7815 1351     FORMAT('THE (FORTRAN-LIKE) WRITE FORMAT HAS JUST BEEN',
7816     1           'TURNED OFF;')
7817          CALL DPWRST('XXX','BUG ')
7818          WRITE(ICOUT,1352)
7819 1352     FORMAT('THUS SUBSEQUENT WRITES WILL BE FREE-FORMAT.')
7820          CALL DPWRST('XXX','BUG ')
7821        ENDIF
7822        GOTO9000
7823      ENDIF
7824C
7825C               *********************************************
7826C               **  STEP 14--                              **
7827C               **  TREAT THE    SET READ REWIND    CASE   **
7828C               *********************************************
7829C
7830      IF(NUMARG.GE.2 .AND. IHARG(1).EQ.'READ' .AND.
7831     1   IHARG(2).EQ.'REWI')THEN
7832        IREARW='ON'
7833        IF(NUMARG.GE.3.AND.IHARG(3).EQ.'OFF')IREARW='OFF'
7834        IF(NUMARG.GE.3.AND.IHARG(3).EQ.'AUTO')IREARW='OFF'
7835        IF(NUMARG.GE.3.AND.IHARG(3).EQ.'DEFA')IREARW='OFF'
7836        IFOUND='YES'
7837        IF(IFEEDB.EQ.'ON')THEN
7838          WRITE(ICOUT,999)
7839          CALL DPWRST('XXX','BUG ')
7840          WRITE(ICOUT,1421)IREARW
7841 1421     FORMAT('THE     READ REWIND    SWITCH HAS JUST BEEN SET TO ',
7842     1           A4)
7843          CALL DPWRST('XXX','BUG ')
7844        ENDIF
7845        GOTO9000
7846      ENDIF
7847C
7848C               *********************************************
7849C               **  STEP 15--                              **
7850C               **  TREAT THE    SET WRITE REWIND    CASE  **
7851C               *********************************************
7852C
7853      IF(NUMARG.GE.2 .AND.
7854     1  (IHARG(1).EQ.'WRIT' .OR. IHARG(1).EQ.'PRIN') .AND.
7855     1   IHARG(2).EQ.'REWI')THEN
7856        IWRIRW='ON'
7857        IF(NUMARG.GE.3.AND.IHARG(3).EQ.'OFF')IWRIRW='OFF'
7858        IF(NUMARG.GE.3.AND.IHARG(3).EQ.'AUTO')IWRIRW='OFF'
7859        IF(NUMARG.GE.3.AND.IHARG(3).EQ.'DEFA')IWRIRW='OFF'
7860        IFOUND='YES'
7861        IF(IFEEDB.EQ.'ON')THEN
7862          WRITE(ICOUT,999)
7863          CALL DPWRST('XXX','BUG ')
7864          WRITE(ICOUT,1521)IWRIRW
7865 1521     FORMAT('THE    WRITE REWIND    SWITCH HAS JUST BEEN SET TO ',
7866     1           A4)
7867          CALL DPWRST('XXX','BUG ')
7868        ENDIF
7869        GOTO9000
7870      ENDIF
7871C
7872C               *********************************************
7873C               **  STEP 15--                              **
7874C               **  TREAT THE    SET WRITE DECIMALS  CASE  **
7875C               *********************************************
7876C
7877      IF(NUMARG.GE.2 .AND.
7878     1  (IHARG(1).EQ.'WRIT' .OR. IHARG(1).EQ.'PRIN') .AND.
7879     1   IHARG(2).EQ.'DECI')THEN
7880        IPART1='WRIT'
7881        IPART2='DECI'
7882        IF(NUMARG.EQ.2)THEN
7883          IFORSW='E'
7884        ELSE
7885          IFORSW=IHV
7886          IHV=IFORSW
7887          IHV2='    '
7888        ENDIF
7889        GOTO5160
7890      ENDIF
7891C
7892CCCCC THE FOLLOWING SECTION WAS ADDED FEBRUARY 1993
7893C               *********************************************
7894C               **  STEP 16--                              **
7895C               **  TREAT THE    SET PRINTER TYPE    CASE  **
7896C               *********************************************
7897C
7898      IF(NUMARG.GE.2 .AND. IHARG(1).EQ.'PRIN' .AND.
7899     1   IHARG(2).EQ.'TYPE')THEN
7900        IPRITY='POST'
7901        IF(NUMARG.GE.3.AND.IHARG(3).EQ.'POST')IPRITY='POST'
7902        IF(NUMARG.GE.3.AND.IHARG(3).EQ.'PS')IPRITY='POST'
7903        IF(NUMARG.GE.3.AND.IHARG(3).EQ.'EPS')IPRITY='POST'
7904        IF(NUMARG.GE.3.AND.IHARG(3).EQ.'ASCI')IPRITY='ASCI'
7905        IF(NUMARG.GE.3.AND.IHARG(3).EQ.'PCL')IPRITY='ASCI'
7906        IF(NUMARG.GE.3.AND.IHARG(3).EQ.'AUTO')IPRITY='POST'
7907        IF(NUMARG.GE.3.AND.IHARG(3).EQ.'DEFA')IPRITY='POST'
7908        IFOUND='YES'
7909        IF(IFEEDB.EQ.'ON')THEN
7910          WRITE(ICOUT,999)
7911          CALL DPWRST('XXX','BUG ')
7912          WRITE(ICOUT,1621)IPRITY
7913 1621     FORMAT('THE    PRINT TYPE    SWITCH HAS JUST BEEN SET TO ',A4)
7914          CALL DPWRST('XXX','BUG ')
7915        ENDIF
7916        GOTO9000
7917      ENDIF
7918C
7919C               ********************************************
7920C               **  STEP 18--                             **
7921C               **  EXTRACT THE SECOND ARGUMENT STRING    **
7922C               ********************************************
7923C
7924      ISTEPN='18'
7925      IF(IBUGS2.EQ.'ON'.OR.ISUBRO.EQ.'SET')
7926     1CALL TRACE2(ISTEPN,ISUBN1,ISUBN2)
7927C
7928C     DEFINE MAXIMUM NUMBER OF CHARACTERS FOR COMMAND LINE FOR THOSE
7929C     SET COMMANDS THAT EXTRACT PATH OR FILE NAMES
7930C
7931      MAXTMP=256
7932      ICMDTI=' '
7933      ISTRIZ=' '
7934C
7935      IV=(-999)
7936      AV=(-999.0)
7937      IHV='-999'
7938      IHV2='-999'
7939      IF(NUMARG.GT.1)THEN
7940        IV=IARG(NUMARG)
7941        AV=ARG(NUMARG)
7942        IHV=IHARG(NUMARG)
7943        IHV2=IHARG2(NUMARG)
7944        IHV12=' '
7945        IHV12(1:4)=IHV
7946        IHV12(5:8)=IHV2
7947        IHV12(9:12)='    '
7948      ENDIF
7949C
7950CCCCC OCTOBER 2002.  FILE NAMES FOR UNIX ARE CASE SENSITIVE, SO USE
7951CCCCC LOWER CASE CHARACTERS (FOR ISTRIN).
7952C
7953      DO1830I=1,MAXTMP
7954CCCCC   ICANS(I:I)=IANS(I)
7955        ICANS(I:I)=IANSLC(I)
7956 1830 CONTINUE
7957C
7958      ISTART=1
7959      ISTOP=IWIDTH
7960      IWORD=3
7961      IF(NUMARG.LE.1)IWORD=2
7962      CALL DPEXWO(ICANS,ISTART,ISTOP,IWORD,
7963     1            ICOL1,ICOL2,ISTRIN,NCSTRI,
7964     1            IBUGS2,ISUBRO,IERROR)
7965C
7966CCCCC IF(NCSTRI.LT.1)THEN
7967CCCCC   IERROR='YES'
7968CCCCC   WRITE(ICOUT,999)
7969CCCCC   CALL DPWRST('XXX','BUG ')
7970CCCCC   WRITE(ICOUT,1841)
7971C1841   FORMAT('***** ERROR IN DPSET--')
7972CCCCC   CALL DPWRST('XXX','BUG ')
7973CCCCC   WRITE(ICOUT,1842)
7974C1842   FORMAT('      THE SET COMMAND REQUIRES AT LEAST TWO ARGUMENTS.')
7975CCCCC   CALL DPWRST('XXX','BUG ')
7976CCCCC   WRITE(ICOUT,1844)
7977C1844   FORMAT('      (FOR EXAMPLE,    SET IPL1NA DPPL1F.TEX)')
7978CCCCC   CALL DPWRST('XXX','BUG ')
7979CCCCC   WRITE(ICOUT,1845)
7980C1845   FORMAT('      BUT NO SECOND ARGUMENT EXISTED HERE .')
7981CCCCC   CALL DPWRST('XXX','BUG ')
7982CCCCC   WRITE(ICOUT,1846)
7983C1846   FORMAT('      THE ENTERED COMMAND LINE WAS AS FOLLOWS--')
7984CCCCC   CALL DPWRST('XXX','BUG ')
7985CCCCC   IF(IWIDTH.GE.1)THEN
7986CCCCC     WRITE(ICOUT,1847)(IANS(I),I=1,MIN(80,IWIDTH))
7987C1847     FORMAT('      ',80A1)
7988CCCCC     CALL DPWRST('XXX','BUG ')
7989CCCCC   ELSE
7990CCCCC     WRITE(ICOUT,999)
7991CCCCC     CALL DPWRST('XXX','BUG ')
7992CCCCC   ENDIF
7993CCCCC   GOTO9000
7994CCCCC ENDIF
7995CCCCC THE FOLLOWING SECTION WAS ADDED    NOVEMBER 1993
7996C
7997C               ***********************************
7998C               **  STEP 19--                    **
7999C               **  CHECK FOR SET PATH           **
8000C               ***********************************
8001C
8002CCCCC THE FOLLOWING 3 LINES WERE ADDED     DECEMBER 1993
8003C
8004      ISTEPN='19'
8005      IF(IBUGS2.EQ.'ON'.OR.ISUBRO.EQ.'SET')
8006     1CALL TRACE2(ISTEPN,ISUBN1,ISUBN2)
8007C
8008      IPART1='PATH'
8009      IF(NUMARG.GE.1.AND.IHARG(1).EQ.IPART1)THEN
8010         IWORD=3
8011         IF(IHARG(2).EQ.'=   ')IWORD=4
8012         ICASEZ='PATH'
8013         ICMDTI='THE PATH FOR THE DATAPLOT DIRECTORY ='
8014         CALL DPEXFN(IANS,IANSLC,ICANS,MAXTMP,IWIDTH,NUMARG,
8015     1               ISTRIN,IWORD,ICMDTI,ITEMP,
8016     1               ICASEZ,PATH,NCPATH,
8017     1               IBUGS2,ISUBRO,IFOUND,IERROR)
8018C
8019C        2015/12: FOR UNIX SYSTEMS, SET UNIXPN AS WELL
8020C
8021         IF(IOPSY1.EQ.'UNIX' .AND. NCPATH.GE.1)THEN
8022           UNIXPN=' '
8023           UNIXPN(1:NCPATH)=PATH(1:NCPATH)
8024           IUNXNC=NCPATH
8025         ENDIF
8026         GOTO9000
8027      ENDIF
8028C
8029CCCCC THE FOLLOWING SECTION WAS ADDED     FEBRUARY 1996
8030C               ***********************************
8031C               **  STEP 19.X--                  **
8032C               **  CHECK FOR MENU PATH          **
8033C               ***********************************
8034C
8035      ISTEPN='20'
8036      IF(IBUGS2.EQ.'ON'.OR.ISUBRO.EQ.'SET')
8037     1CALL TRACE2(ISTEPN,ISUBN1,ISUBN2)
8038C
8039      IPART1='MENU'
8040      IPART2='PATH'
8041      IF(NUMARG.GE.2.AND.IHARG(1).EQ.IPART1.AND.
8042     1   IHARG(2).EQ.IPART2)THEN
8043C
8044         IWORD=4
8045         IF(IHARG(3).EQ.'=   ')IWORD=5
8046         ICASEZ='MPAT'
8047         ICMDTI='THE PATH FOR THE DATAPLOT MENU ='
8048         CALL DPEXFN(IANS,IANSLC,ICANS,MAXTMP,IWIDTH,NUMARG,
8049     1               ISTRIN,IWORD,ICMDTI,ITEMP,
8050     1               ICASEZ,MPATH,NCMPAT,
8051     1               IBUGS2,ISUBRO,IFOUND,IERROR)
8052         GOTO9000
8053      ENDIF
8054C
8055C               ***************************************
8056C               **  CHECK FOR SET POSTSCRIPT VIEWER  **
8057C               ***************************************
8058C
8059      IPART1='POST'
8060      IPART2='VIEW'
8061      IF(NUMARG.GE.2.AND.IHARG(1).EQ.IPART1.AND.
8062     1   IHARG(2).EQ.IPART2)THEN
8063C
8064         IWORD=4
8065         IF(IHARG(3).EQ.'=   ')IWORD=5
8066         ICASEZ='PSVW'
8067         ICMDTI='THE PATH FOR THE POSTSCRIPT VIEWER ='
8068         CALL DPEXFN(IANS,IANSLC,ICANS,MAXTMP,IWIDTH,NUMARG,
8069     1               ISTRIN,IWORD,ICMDTI,ITEMP,
8070     1               ICASEZ,IPSTVW,NCPSVW,
8071     1               IBUGS2,ISUBRO,IFOUND,IERROR)
8072         GOTO9000
8073      ENDIF
8074C
8075C               ***************************************
8076C               **  CHECK FOR SET PDF        VIEWER  **
8077C               ***************************************
8078C
8079      IPART1='PDF '
8080      IPART2='VIEW'
8081      IF(NUMARG.GE.2.AND.IHARG(1).EQ.IPART1.AND.
8082     1   IHARG(2).EQ.IPART2)THEN
8083C
8084         IWORD=4
8085         IF(IHARG(3).EQ.'=   ')IWORD=5
8086         ICASEZ='PDVW'
8087         ICMDTI='THE PATH FOR THE PDF VIEWER ='
8088         CALL DPEXFN(IANS,IANSLC,ICANS,MAXTMP,IWIDTH,NUMARG,
8089     1               ISTRIN,IWORD,ICMDTI,ITEMP,
8090     1               ICASEZ,IPDFVW,NCPDVW,
8091     1               IBUGS2,ISUBRO,IFOUND,IERROR)
8092         GOTO9000
8093      ENDIF
8094C
8095C               ***************************************
8096C               **  CHECK FOR SET IMAGE      VIEWER  **
8097C               ***************************************
8098C
8099      IPART1='IMAG'
8100      IPART2='VIEW'
8101      IF(NUMARG.GE.2.AND.IHARG(1).EQ.IPART1.AND.
8102     1   IHARG(2).EQ.IPART2)THEN
8103C
8104         IWORD=4
8105         IF(IHARG(3).EQ.'=   ')IWORD=5
8106         ICASEZ='IMVW'
8107         ICMDTI='THE PATH FOR THE IMAGE VIEWER ='
8108         CALL DPEXFN(IANS,IANSLC,ICANS,MAXTMP,IWIDTH,NUMARG,
8109     1               ISTRIN,IWORD,ICMDTI,ITEMP,
8110     1               ICASEZ,IIMAVW,NCIMVW,
8111     1               IBUGS2,ISUBRO,IFOUND,IERROR)
8112         GOTO9000
8113      ENDIF
8114C
8115C               ***************************************
8116C               **  CHECK FOR SET BACKUP     VIEWER  **
8117C               ***************************************
8118C
8119      IPART1='BACK'
8120      IPART2='VIEW'
8121      IF(NUMARG.GE.2.AND.IHARG(1).EQ.IPART1.AND.
8122     1   IHARG(2).EQ.IPART2)THEN
8123C
8124         IWORD=4
8125         IF(IHARG(3).EQ.'=   ')IWORD=5
8126         ICASEZ='BKVW'
8127         ICMDTI='THE PATH FOR THE POSTSCRIPT VIEWER ='
8128         CALL DPEXFN(IANS,IANSLC,ICANS,MAXTMP,IWIDTH,NUMARG,
8129     1               ISTRIN,IWORD,ICMDTI,ITEMP,
8130     1               ICASEZ,IBCKVW,NCBKVW,
8131     1               IBUGS2,ISUBRO,IFOUND,IERROR)
8132         GOTO9000
8133      ENDIF
8134C
8135C               ***************************************
8136C               **  CHECK FOR SET LIST       VIEWER  **
8137C               ***************************************
8138C
8139      IPART1='LIST'
8140      IPART2='VIEW'
8141      IF(NUMARG.GE.2.AND.IHARG(1).EQ.IPART1.AND.
8142     1   IHARG(2).EQ.IPART2)THEN
8143C
8144         IWORD=4
8145         IF(IHARG(3).EQ.'=   ')IWORD=5
8146         ICASEZ='LSVW'
8147         ICMDTI='THE PATH FOR THE LIST VIEWER ='
8148         CALL DPEXFN(IANS,IANSLC,ICANS,MAXTMP,IWIDTH,NUMARG,
8149     1               ISTRIN,IWORD,ICMDTI,ITEMP,
8150     1               ICASEZ,ILSTVW,NCLSVW,
8151     1               IBUGS2,ISUBRO,IFOUND,IERROR)
8152         GOTO9000
8153      ENDIF
8154C
8155C               ***************************************
8156C               **  CHECK FOR SET EXCEL      VIEWER  **
8157C               ***************************************
8158C
8159      IPART1='EXCE'
8160      IPART2='VIEW'
8161      IF(NUMARG.GE.2.AND.IHARG(1).EQ.IPART1.AND.
8162     1   IHARG(2).EQ.IPART2)THEN
8163C
8164         IWORD=4
8165         IF(IHARG(3).EQ.'=   ')IWORD=5
8166         ICASEZ='EXVW'
8167         ICMDTI='THE PATH FOR THE EXCEL VIEWER ='
8168         CALL DPEXFN(IANS,IANSLC,ICANS,MAXTMP,IWIDTH,NUMARG,
8169     1               ISTRIN,IWORD,ICMDTI,ITEMP,
8170     1               ICASEZ,IEXCVW,NCEXVW,
8171     1               IBUGS2,ISUBRO,IFOUND,IERROR)
8172         GOTO9000
8173      ENDIF
8174C
8175C               ***************************************
8176C               **  CHECK FOR SET WORD       VIEWER  **
8177C               ***************************************
8178C
8179      IPART1='WORD'
8180      IPART2='VIEW'
8181      IF(NUMARG.GE.2.AND.IHARG(1).EQ.IPART1.AND.
8182     1   IHARG(2).EQ.IPART2)THEN
8183C
8184         IWORD=4
8185         IF(IHARG(3).EQ.'=   ')IWORD=5
8186         ICASEZ='WOVW'
8187         ICMDTI='THE PATH FOR THE WORD VIEWER ='
8188         CALL DPEXFN(IANS,IANSLC,ICANS,MAXTMP,IWIDTH,NUMARG,
8189     1               ISTRIN,IWORD,ICMDTI,ITEMP,
8190     1               ICASEZ,IWORVW,NCWOVW,
8191     1               IBUGS2,ISUBRO,IFOUND,IERROR)
8192         GOTO9000
8193      ENDIF
8194C
8195C               ***************************************
8196C               **  CHECK FOR SET POWER POINT VIEWER **
8197C               ***************************************
8198C
8199      IPART1='POWE'
8200      IPART2='POIN'
8201      IPART3='VIEW'
8202      IF(NUMARG.GE.2.AND.IHARG(1).EQ.IPART1.AND.
8203     1   IHARG(2).EQ.IPART2.AND.IHARG(3).EQ.IPART3)THEN
8204C
8205         IWORD=5
8206         IF(IHARG(3).EQ.'=   ')IWORD=6
8207         ICASEZ='PPVW'
8208         ICMDTI='THE PATH FOR THE POWER POINT VIEWER ='
8209         CALL DPEXFN(IANS,IANSLC,ICANS,MAXTMP,IWIDTH,NUMARG,
8210     1               ISTRIN,IWORD,ICMDTI,ITEMP,
8211     1               ICASEZ,IPPTVW,NCPPVW,
8212     1               IBUGS2,ISUBRO,IFOUND,IERROR)
8213         GOTO9000
8214      ENDIF
8215C
8216C               ***************************************
8217C               **  CHECK FOR SET LIST     LAUNCHER  **
8218C               ***************************************
8219C
8220      IPART1='LIST'
8221      IPART2='LAUN'
8222      IF(NUMARG.GE.2.AND.IHARG(1).EQ.IPART1.AND.
8223     1   IHARG(2).EQ.IPART2)THEN
8224C
8225         IWORD=4
8226         IF(IHARG(3).EQ.'=   ')IWORD=5
8227         ICASEZ='LSLA'
8228         ICMDTI='THE PATH FOR THE LIST LAUNCHER ='
8229         CALL DPEXFN(IANS,IANSLC,ICANS,MAXTMP,IWIDTH,NUMARG,
8230     1               ISTRIN,IWORD,ICMDTI,ITEMP,
8231     1               ICASEZ,ILSTLA,NCLSLA,
8232     1               IBUGS2,ISUBRO,IFOUND,IERROR)
8233         GOTO9000
8234      ENDIF
8235C
8236C               *********************************************
8237C               **  TREAT THE    SET BROWSER        CASE   **
8238C               *********************************************
8239C
8240      IPART1='BROW'
8241      IF(NUMARG.GE.1.AND.IHARG(1).EQ.IPART1)THEN
8242C
8243         IWORD=3
8244         IF(IHARG(2).EQ.'=   ')IWORD=4
8245         ICASEZ='BROW'
8246         ICMDTI='THE BROWSER FOR THE WEB HELP COMMAND HAS BEEN SET TO'
8247         CALL DPEXFN(IANS,IANSLC,ICANS,MAXTMP,IWIDTH,NUMARG,
8248     1               ISTRIN,IWORD,ICMDTI,ITEMP,
8249     1               ICASEZ,ISTRIZ,NJUNK,
8250     1               IBUGS2,ISUBRO,IFOUND,IERROR)
8251         NCBROW=NJUNK
8252         IBROWS=' '
8253C
8254C        2014/10: ENCLOSE BROWSWER PATH IN QUOTES
8255C
8256         IBROWS(2:NCBROW+1)=ISTRIZ(1:NCBROW)
8257         IBROWS(1:1)='"'
8258         IBROWS(1:1)='"'
8259         NCBROW=NCBROW+2
8260         IBROWS(NCBROW:NCBROW)='"'
8261         GOTO9000
8262      ENDIF
8263C
8264CCCCC FOLLOWING SECTION ADDED APRIL 1997
8265C               *********************************************
8266C               **  TREAT THE    SET DATAPLOT URL   CASE   **
8267C               *********************************************
8268C
8269      IPART1='DATA'
8270      IPART2='URL'
8271      IF(NUMARG.GE.1.AND.IHARG(1).EQ.IPART1.AND.
8272     1   IHARG(2).EQ.IPART2)THEN
8273C
8274         IWORD=4
8275         IF(IHARG(3).EQ.'=   ')IWORD=5
8276         ICASEZ='DPUR'
8277         ICMDTI='THE DATAPLOT URL HAS BEEN SET TO'
8278         CALL DPEXFN(IANS,IANSLC,ICANS,MAXTMP,IWIDTH,NUMARG,
8279     1               ISTRIN,IWORD,ICMDTI,ITEMP,
8280     1               ICASEZ,ISTRIZ,NCURL,
8281     1               IBUGS2,ISUBRO,IFOUND,IERROR)
8282         IDPURL=' '
8283         IDPURL(1:NCURL)=ISTRIZ(1:NCURL)
8284         GOTO9000
8285      ENDIF
8286C
8287CCCCC FOLLOWING SECTION ADDED APRIL 1997
8288C               *********************************************
8289C               **  TREAT THE    SET URL            CASE   **
8290C               *********************************************
8291C
8292      IPART1='URL'
8293      IF(NUMARG.GE.1.AND.IHARG(1).EQ.IPART1)THEN
8294C
8295         IWORD=3
8296         IF(IHARG(2).EQ.'=   ')IWORD=4
8297         ICASEZ='IURL'
8298         ICMDTI='THE WEB COMMAND URL HAS BEEN SET TO'
8299         CALL DPEXFN(IANS,IANSLC,ICANS,MAXTMP,IWIDTH,NUMARG,
8300     1               ISTRIN,IWORD,ICMDTI,ITEMP,
8301     1               ICASEZ,ISTRIZ,NCURL,
8302     1               IBUGS2,ISUBRO,IFOUND,IERROR)
8303         IURL=' '
8304         IURL(1:NCURL)=ISTRIZ(1:NCURL)
8305         GOTO9000
8306      ENDIF
8307C
8308CCCCC FOLLOWING SECTION ADDED MARCH 1999
8309C               *********************************************
8310C               **  TREAT THE SET HANDBOOK URL        CASE **
8311C               *********************************************
8312C
8313      IPART1='HAND'
8314      IPART2='URL'
8315      IF(NUMARG.GE.1.AND.IHARG(1).EQ.IPART1.AND.
8316     1   IHARG(2).EQ.IPART2)THEN
8317C
8318         IWORD=4
8319         IF(IHARG(3).EQ.'=   ')IWORD=5
8320         ICASEZ='HBUR'
8321         ICMDTI='THE HANDBOOK URL HAS BEEN SET TO'
8322         CALL DPEXFN(IANS,IANSLC,ICANS,MAXTMP,IWIDTH,NUMARG,
8323     1               ISTRIN,IWORD,ICMDTI,ITEMP,
8324     1               ICASEZ,ISTRIZ,NJUNK,
8325     1               IBUGS2,ISUBRO,IFOUND,IERROR)
8326         NCHURL=NJUNK
8327         IHBURL=' '
8328         IHBURL(1:NCHURL)=ISTRIZ(1:NCHURL)
8329         GOTO9000
8330      ENDIF
8331C
8332CCCCC FOLLOWING SECTION ADDED NOVEMBER  2002
8333C               *********************************************
8334C               **  TREAT THE    SET GHOSTVIEW PATH CASE   **
8335C               *********************************************
8336C
8337      IF(NUMARG.GE.2.AND.IHARG(1).EQ.'GHOS'.AND.
8338     1   IHARG2(1).EQ.'TVIE'.AND.IHARG(2).EQ.'PATH')THEN
8339C
8340         IWORD=4
8341         IF(IHARG(3).EQ.'=   ')IWORD=5
8342         ICASEZ='GVPA'
8343         ICMDTI='THE GHOSTVIEW PATH HAS BEEN SET TO'
8344         CALL DPEXFN(IANS,IANSLC,ICANS,MAXTMP,IWIDTH,NUMARG,
8345     1               ISTRIN,IWORD,ICMDTI,ITEMP,
8346     1               ICASEZ,IGSVPA,NCGSPA,
8347     1               IBUGS2,ISUBRO,IFOUND,IERROR)
8348         GOTO9000
8349      ENDIF
8350C
8351CCCCC THE FOLLOWING SECTION WAS ADDED        MAY 2016.
8352C     ******************************************
8353C     **  SET MACRO QUOTES STRIP <ON/OFF>     **
8354C     ******************************************
8355C
8356      IPART1='MACR'
8357      IPART2='QUOT'
8358      IPART3='STRI'
8359      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
8360     1   IHARG(3).EQ.IPART3)THEN
8361        IF(IHV.EQ.'OFF' .OR. IHV(1:2).EQ.'NO' .OR.
8362     1     IHV.EQ.'FALS')THEN
8363          IQUOST='OFF'
8364        ELSE
8365          IQUOST='ON'
8366        ENDIF
8367        IHV=IQUOST
8368        GOTO5160
8369      ENDIF
8370C
8371CCCCC THE FOLLOWING SECTION WAS ADDED        JUNE 2016.
8372C     *********************************************
8373C     **  SET HISTOGRAM MAXIMUM CLASSES <VALUE>  **
8374C     *********************************************
8375C
8376      IPART1='HIST'
8377      IPART2='MAXI'
8378      IPART3='CLAS'
8379      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
8380     1   IHARG(3).EQ.IPART3)THEN
8381        IV=IARG(NUMARG)
8382        IHSTMC=IV
8383        IF(IHSTMC.LT.0)IHSTMC=0
8384        IF(IHSTMC.GT.MAXOBV)IHSTMC=MAXOBV
8385        IV=IHSTMC
8386        GOTO5150
8387      ENDIF
8388C
8389CCCCC THE FOLLOWING SECTION WAS ADDED        FEBRUARY 2019.
8390C     *********************************************
8391C     **  SET TAB EXPAND                <VALUE>  **
8392C     *********************************************
8393C
8394      IPART1='TAB '
8395      IPART2='EXPA'
8396      IF((IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2) .OR.
8397     1   (IHARG(1).EQ.IPART2.AND.IHARG(2).EQ.IPART1))THEN
8398        IF(IHARG(3).EQ.'DEFA' .OR. NUMARG.LE.2)THEN
8399          IV=1
8400        ELSE
8401          IV=IARG(NUMARG)
8402        ENDIF
8403        IF(IV.LT.0)IV=1
8404        IF(IV.GT.20)IV=20
8405        ITABNC=IV
8406        GOTO5150
8407      ENDIF
8408C
8409CCCCC THE FOLLOWING SECTION WAS ADDED        JUNE 2016.
8410C     ***************************************************************
8411C     **  SET QUANTILE QUANTILE PLOT BOOTSTRAP <ON/OFF>            **
8412C     ***************************************************************
8413C
8414      IPART1='QUAN'
8415      IPART2='QUAN'
8416      IPART3='PLOT'
8417      IPART4='BOOT'
8418      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
8419     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
8420        IF(IHV.EQ.'ON' .OR. IHV(1:3).EQ.'YES' .OR.
8421     1     IHV.EQ.'TRUE')THEN
8422          IQQBOO='ON'
8423        ELSE
8424          IQQBOO='OFF'
8425        ENDIF
8426        IHV=IQQBOO
8427        GOTO5160
8428      ENDIF
8429C
8430      IPART1='QQ  '
8431      IPART2='PLOT'
8432      IPART3='BOOT'
8433      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
8434     1   IHARG(3).EQ.IPART3)THEN
8435        IF(IHV.EQ.'ON' .OR. IHV(1:3).EQ.'YES' .OR.
8436     1     IHV.EQ.'TRUE')THEN
8437          IQQBOO='ON'
8438        ELSE
8439          IQQBOO='OFF'
8440        ENDIF
8441        IHV=IQQBOO
8442        GOTO5160
8443      ENDIF
8444C
8445CCCCC THE FOLLOWING SECTION WAS ADDED        JUNE 2016.
8446C     ***************************************************************
8447C     **  SET QUANTILE QUANTILE PLOT NUMBER OF PERCENTLES <VALUE>  **
8448C     ***************************************************************
8449C
8450      IPART1='QUAN'
8451      IPART2='QUAN'
8452      IPART3='PLOT'
8453      IPART4='NUMB'
8454      IPART5='OF  '
8455      IPART6='PERC'
8456      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
8457     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
8458     1   IHARG(5).EQ.IPART5.AND.IHARG(6).EQ.IPART6)THEN
8459        IV=IARG(NUMARG)
8460        IQQNPR=IV
8461        IF(IQQNPR.LT.0)IQQNPR=0
8462        IF(IQQNPR.GT.MAXOBV)IQQNPR=MAXOBV
8463        IV=IQQNPR
8464        GOTO5150
8465      ENDIF
8466C
8467      IPART1='QQ  '
8468      IPART2='PLOT'
8469      IPART3='NUMB'
8470      IPART4='OF  '
8471      IPART5='PERC'
8472      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
8473     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
8474     1   IHARG(5).EQ.IPART5)THEN
8475        IV=IARG(NUMARG)
8476        IQQNPR=IV
8477        IF(IQQNPR.LT.0)IQQNPR=0
8478        IF(IQQNPR.GT.MAXOBV)IQQNPR=MAXOBV
8479        IV=IQQNPR
8480        GOTO5150
8481      ENDIF
8482C
8483CCCCC THE FOLLOWING SECTION WAS ADDED        JUNE 2016.
8484C     ***************************************************************
8485C     **  SET TWO SAMPLE TESTS NUMBER OF PERCENTLES <VALUE>        **
8486C     ***************************************************************
8487C
8488      IPART1='TWO '
8489      IPART2='SAMP'
8490      IPART3='TEST'
8491      IPART4='NUMB'
8492      IPART5='OF  '
8493      IPART6='PERC'
8494      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
8495     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
8496     1   IHARG(5).EQ.IPART5.AND.IHARG(6).EQ.IPART6)THEN
8497        IV=IARG(NUMARG)
8498        I2SNPR=IV
8499        IF(I2SNPR.LT.0)I2SNPR=0
8500        IF(I2SNPR.GT.MAXOBV)I2SNPR=MAXOBV
8501        IV=I2SNPR
8502        GOTO5150
8503      ENDIF
8504C
8505      IPART1='2   '
8506      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
8507     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
8508     1   IHARG(5).EQ.IPART5.AND.IHARG(6).EQ.IPART6)THEN
8509        IV=IARG(NUMARG)
8510        I2SNPR=IV
8511        IF(I2SNPR.LT.0)I2SNPR=0
8512        IF(I2SNPR.GT.MAXOBV)I2SNPR=MAXOBV
8513        IV=I2SNPR
8514        GOTO5150
8515      ENDIF
8516C
8517CCCCC THE FOLLOWING SECTION WAS ADDED        JUNE 2016.
8518C     ************************************************
8519C     **  SET CHECK NAME OUTPUT <DEFAULT/FILLIBEN>  **
8520C     ************************************************
8521C
8522      IPART1='CHEC'
8523      IPART2='NAME'
8524      IPART3='OUTP'
8525      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
8526     1   IHARG(3).EQ.IPART3)THEN
8527        IF(IHV.EQ.'FILL' .OR. IHV.EQ.'10ST')THEN
8528          ICHKNA='FILL'
8529        ELSE
8530          ICHKNA='DEFA'
8531        ENDIF
8532        IHV=ICHKNA
8533        GOTO5160
8534      ENDIF
8535C
8536CCCCC THE FOLLOWING SECTION WAS ADDED        FEBRUARY 2018.
8537C     **************************************************
8538C     **  SET CHECK LENGTH OUTPUT <DEFAULT/FILLIBEN>  **
8539C     **************************************************
8540C
8541      IPART1='CHEC'
8542      IPART2='LENG'
8543      IPART3='OUTP'
8544      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
8545     1   IHARG(3).EQ.IPART3)THEN
8546        IF(IHV.EQ.'FILL' .OR. IHV.EQ.'10ST')THEN
8547          ICHKLE='FILL'
8548        ELSE
8549          ICHKLE='DEFA'
8550        ENDIF
8551        IHV=ICHKLE
8552        GOTO5160
8553      ENDIF
8554C
8555CCCCC THE FOLLOWING SECTION WAS ADDED        APRIL 2018.
8556C     **************************************************
8557C     **  SET WEB SEARCH DATAPLOT <ON/OFF>            **
8558C     **************************************************
8559C
8560      IPART1='WEB '
8561      IPART2='SEAR'
8562      IPART3='DATA'
8563      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
8564     1   IHARG(3).EQ.IPART3)THEN
8565        IF(IHV.EQ.'ON' .OR. IHV(1:3).EQ.'YES' .OR.
8566     1     IHV.EQ.'TRUE')THEN
8567          IWBSDP='ON'
8568        ELSE
8569          IWBSDP='OFF'
8570        ENDIF
8571        IHV=IWBSDP
8572        GOTO5160
8573      ENDIF
8574C
8575CCCCC THE FOLLOWING SECTION WAS ADDED        APRIL 2018.
8576C     **************************************************
8577C     **  SET COMMAND LINE EXECUTE WAIT <ON/OFF>      **
8578C     **************************************************
8579C
8580      IPART1='COMM'
8581      IPART2='LINE'
8582      IPART3='EXEC'
8583      IPART4='WAIT'
8584      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
8585     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
8586        IF(IHV.EQ.'ON' .OR. IHV(1:3).EQ.'YES' .OR.
8587     1     IHV.EQ.'TRUE')THEN
8588          ICLEWT='ON'
8589        ELSE
8590          ICLEWT='OFF'
8591        ENDIF
8592        IHV=ICLEWT
8593        GOTO5160
8594      ENDIF
8595C
8596CCCCC THE FOLLOWING SECTION WAS ADDED        NOVEMBER 2019.
8597C     **************************************************
8598C     **  SET LIST NEW WINDOW           <ON/OFF>      **
8599C     **************************************************
8600C
8601      IPART1='LIST'
8602      IPART2='NEW '
8603      IPART3='WIND'
8604      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
8605     1   IHARG(3).EQ.IPART3)THEN
8606        IF(IHV.EQ.'ON' .OR. IHV(1:3).EQ.'YES' .OR.
8607     1     IHV.EQ.'TRUE')THEN
8608          ILSTNW='ON'
8609        ELSE
8610          ILSTNW='OFF'
8611        ENDIF
8612        IHV=ILSTNW
8613        GOTO5160
8614      ENDIF
8615C
8616CCCCC THE FOLLOWING SECTION WAS ADDED        NOVEMBER 2019.
8617C     **************************************************
8618C     **  SET HELP NEW WINDOW           <ON/OFF>      **
8619C     **************************************************
8620C
8621      IPART1='HELP'
8622      IPART2='NEW '
8623      IPART3='WIND'
8624      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
8625     1   IHARG(3).EQ.IPART3)THEN
8626        IF(IHV.EQ.'ON' .OR. IHV(1:3).EQ.'YES' .OR.
8627     1     IHV.EQ.'TRUE')THEN
8628          IHLPNW='ON'
8629        ELSE
8630          IHLPNW='OFF'
8631        ENDIF
8632        IHV=IHLPNW
8633        GOTO5160
8634      ENDIF
8635C
8636CCCCC THE FOLLOWING SECTION WAS ADDED        JUNE 2016.
8637C     ******************************************
8638C     **  SET STATUS DISTINCT <ON/OFF>        **
8639C     ******************************************
8640C
8641      IPART1='STAT'
8642      IPART2='DIST'
8643      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
8644        IF(IHV.EQ.'OFF' .OR. IHV(1:2).EQ.'NO' .OR.
8645     1     IHV.EQ.'FALS')THEN
8646          ISTADS='OFF'
8647        ELSE
8648          ISTADS='ON'
8649        ENDIF
8650        IHV=ISTADS
8651        GOTO5160
8652      ENDIF
8653C
8654CCCCC THE FOLLOWING SECTION WAS ADDED        JUNE 2016.
8655C     ******************************************
8656C     **  SET DATE DELIMITER <ON/OFF>         **
8657C     ******************************************
8658C
8659      IPART1='DATE'
8660      IPART2='DELI'
8661      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
8662        IF(IHV.EQ.'OFF' .OR. IHV(1:2).EQ.'NO' .OR.
8663     1     IHV.EQ.'FALS' .OR. IHV.EQ.'DEFA')THEN
8664          IDATDL='NULL'
8665        ELSEIF(IHV.EQ.'ON' .OR. IHV(1:2).EQ.'YES' .OR.
8666     1     IHV.EQ.'TRUE')THEN
8667          IDATDL='/'
8668          IDATDL='/'
8669        ELSE
8670          IDATDL=IHV
8671        ENDIF
8672        IHV=IDATDL
8673        GOTO5160
8674      ENDIF
8675C
8676CCCCC THE FOLLOWING SECTION WAS ADDED        JUNE 2016.
8677C     ******************************************
8678C     **  SET TIME DELIMITER <ON/OFF>         **
8679C     ******************************************
8680C
8681      IPART1='TIME'
8682      IPART2='DELI'
8683      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
8684        IF(IHV.EQ.'OFF' .OR. IHV(1:2).EQ.'NO' .OR.
8685     1     IHV.EQ.'FALS' .OR. IHV.EQ.'DEFA')THEN
8686          ITIMDL='NULL'
8687        ELSEIF(IHV.EQ.'ON' .OR. IHV(1:2).EQ.'YES' .OR.
8688     1     IHV.EQ.'TRUE')THEN
8689          ITIMDL='/'
8690          ITIMDL='/'
8691        ELSE
8692          ITIMDL=IHV
8693        ENDIF
8694        IHV=ITIMDL
8695        GOTO5160
8696      ENDIF
8697C
8698CCCCC THE FOLLOWING SECTION WAS ADDED        JUNE 2016.
8699C     ******************************************
8700C     **  SET READ IP ADDRESSES <ON/OFF>      **
8701C     ******************************************
8702C
8703      IPART1='READ'
8704      IPART2='IP  '
8705      IPART3='ADDR'
8706      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
8707     1   IHARG(3).EQ.IPART3)THEN
8708        IF(IHV.EQ.'OFF' .OR. IHV(1:2).EQ.'NO' .OR.
8709     1     IHV.EQ.'FALS' .OR. IHV.EQ.'DEFA')THEN
8710          IRDIPA='OFF'
8711        ELSE
8712          IRDIPA='ON'
8713        ENDIF
8714        IHV=IRDIPA
8715        GOTO5160
8716      ENDIF
8717C
8718CCCCC THE FOLLOWING SECTION WAS ADDED        DECEMBER 2013.
8719C     ******************************************
8720C     **  SET GHOSTSCRIPT VERSION <32/64>     **
8721C     ******************************************
8722C
8723      IPART1='GHOS'
8724      IPART2='VERS'
8725      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
8726        IF(IHV.EQ.'32')THEN
8727          IGSTVR='32'
8728        ELSE
8729          IGSTVR='64'
8730        ENDIF
8731        IHV=IGSTVR
8732        GOTO5160
8733      ENDIF
8734C
8735CCCCC FOLLOWING SECTION ADDED JANUARY  2003
8736C               ***********************************************
8737C               **  TREAT THE    SET GHOSTSCRIPT PATH CASE   **
8738C               ***********************************************
8739C
8740      IF(NUMARG.GE.2.AND.IHARG(1).EQ.'GHOS'.AND.
8741     1IHARG2(1).EQ.'TSCR'.AND.IHARG(2).EQ.'PATH')THEN
8742C
8743         IWORD=4
8744         IF(IHARG(3).EQ.'=   ')IWORD=5
8745         ICASEZ='GSPA'
8746         ICMDTI='THE GHOSTSCRIPT PATH HAS BEEN SET TO'
8747         CALL DPEXFN(IANS,IANSLC,ICANS,MAXTMP,IWIDTH,NUMARG,
8748     1               ISTRIN,IWORD,ICMDTI,ITEMP,
8749     1               ICASEZ,IGSTPA,NCGHPA,
8750     1               IBUGS2,ISUBRO,IFOUND,IERROR)
8751         GOTO9000
8752      ENDIF
8753C
8754CCCCC FOLLOWING SECTION ADDED JANUARY  2019
8755C               ***********************************************
8756C               **  TREAT THE    SET PYTHON      PATH CASE   **
8757C               ***********************************************
8758C
8759      IF(NUMARG.GE.2.AND.IHARG(1).EQ.'PYTH'.AND.
8760     1   IHARG(2).EQ.'PATH')THEN
8761C
8762         IWORD=4
8763         IF(IHARG(3).EQ.'=   ')IWORD=5
8764         ICASEZ='PYPA'
8765         ICMDTI='THE PYTHON PATH HAS BEEN SET TO'
8766         CALL DPEXFN(IANS,IANSLC,ICANS,MAXTMP,IWIDTH,NUMARG,
8767     1               ISTRIN,IWORD,ICMDTI,ITEMP,
8768     1               ICASEZ,IPYTPA,NCPYTH,
8769     1               IBUGS2,ISUBRO,IFOUND,IERROR)
8770         GOTO9000
8771      ENDIF
8772C
8773CCCCC THE FOLLOWING SECTION WAS ADDED        JANUARY 2019.
8774C     ******************************************
8775C     **  SET PYTHON VERSION <2/3/DEFAULT>    **
8776C     ******************************************
8777C
8778      IPART1='PYTH'
8779      IPART2='VERS'
8780      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
8781        IF(IHV.EQ.'2')THEN
8782          IPYTVR='2'
8783        ELSEIF(IHV.EQ.'3')THEN
8784          IPYTVR='3'
8785        ELSE
8786          IPYTVR='DEFA'
8787        ENDIF
8788        IHV=IPYTVR
8789        GOTO5160
8790      ENDIF
8791C
8792CCCCC FOLLOWING SECTION ADDED NOVEMBER  2019
8793C               ***********************************************
8794C               **  TREAT THE    SET R           PATH CASE   **
8795C               ***********************************************
8796C
8797      IF(NUMARG.GE.2.AND.IHARG(1).EQ.'R   '.AND.
8798     1   IHARG(2).EQ.'PATH')THEN
8799C
8800         IWORD=4
8801         IF(IHARG(3).EQ.'=   ')IWORD=5
8802         ICASEZ='RPAT'
8803         ICMDTI='THE R PATH HAS BEEN SET TO'
8804         CALL DPEXFN(IANS,IANSLC,ICANS,MAXTMP,IWIDTH,NUMARG,
8805     1               ISTRIN,IWORD,ICMDTI,ITEMP,
8806     1               ICASEZ,IRRRPA,NCRPAT,
8807     1               IBUGS2,ISUBRO,IFOUND,IERROR)
8808         GOTO9000
8809      ENDIF
8810C
8811CCCCC FOLLOWING SECTION ADDED MARCH  2019
8812C               ***********************************************
8813C               **  TREAT THE    SET EDITOR      PATH CASE   **
8814C               ***********************************************
8815C
8816      IF(NUMARG.GE.1.AND.IHARG(1).EQ.'EDIT')THEN
8817C
8818        IEDITR=' '
8819        IWORD=3
8820        IF(IHARG(3).EQ.'=   ')IWORD=4
8821        ICASEZ='EDIT'
8822        ICMDTI='THE DEFAULT EDITOR HAS BEEN SET TO'
8823        CALL DPEXFN(IANS,IANSLC,ICANS,MAXTMP,IWIDTH,NUMARG,
8824     1             ISTRIN,IWORD,ICMDTI,ITEMP,
8825     1             ICASEZ,IEDITR,NCEDIT,
8826     1             IBUGS2,ISUBRO,IFOUND,IERROR)
8827C
8828        IF(IOPSY1.EQ.'UNIX' .OR. IOPSY1.EQ.'LINU')THEN
8829C
8830C         FOR LINUX, IF "DEFAULT" IS SPECIFIED CHECK SETTING OF "EDITOR"
8831C         ENVIRONMENT VARIABLE.
8832C
8833#ifdef LINUX
8834          IF(IEDITR(1:7).EQ.'SYSTEM' .OR.
8835     1       IEDITR(1:7).EQ.'system')THEN
8836            CALL getenv('EDITOR',IEDITR)
8837            DO67101II=80,1,-1
8838              IF(IEDITR(II:II).NE.' ')THEN
8839                NCEDIT=II
8840                GOTO67109
8841              ENDIF
884267101       CONTINUE
8843            IEDITR='FED'
8844            NCEDIT=3
884567109       CONTINUE
8846          ENDIF
8847#endif
8848        ELSEIF(IHOST1.EQ.'IBM-')THEN
8849C
8850C         FOR WINDOWS INTEL COMPILER, CHECK IF WORDPAD ENTERED.  IF SO,
8851C         REPLACE WITH "WRITE.EXE".
8852C
8853          IF(NCEDIT.EQ.7 .AND.
8854     1      (IEDITR(1:NCEDIT).EQ.'WORDPAD' .OR.
8855     1       IEDITR(1:NCEDIT).EQ.'wordpad'))THEN
8856            IEDITR='WRITE.EXE'
8857            NCEDIT=9
8858          ENDIF
8859        ENDIF
8860        GOTO9000
8861      ENDIF
8862C
8863CCCCC FOLLOWING SECTION ADDED JANUARY  2003
8864C               ***********************************************
8865C               **  TREAT THE    SET HTML HEADER FILE CASE   **
8866C               ***********************************************
8867C
8868      IF(NUMARG.GE.3.AND.IHARG(1).EQ.'HTML'.AND.
8869     1   IHARG(2).EQ.'HEAD'.AND.IHARG(3).EQ.'FILE')THEN
8870C
8871         IPART1='HTML'
8872         IPART2='HEAD'
8873         IF(IHARG(4).EQ.'NULL')THEN
8874           IHTMHE='NULL'
8875           IHV=IHTMHE(1:4)
8876           NCHTMH=4
8877           GOTO5160
8878         ELSEIF(IHARG(4).EQ.'NONE')THEN
8879           IHTMHE='NONE'
8880           IHV=IHTMHE(1:4)
8881           NCHTMH=4
8882           GOTO5160
8883         ELSE
8884           IWORD=5
8885           IF(IHARG(4).EQ.'=   ')IWORD=6
8886           ICASEZ='HHTM'
8887           ICMDTI='THE HTML HEADER FILE HAS BEEN SET TO'
8888           CALL DPEXFN(IANS,IANSLC,ICANS,MAXTMP,IWIDTH,NUMARG,
8889     1                 ISTRIN,IWORD,ICMDTI,ITEMP,
8890     1                 ICASEZ,IHTMHE,NCHTMH,
8891     1                 IBUGS2,ISUBRO,IFOUND,IERROR)
8892           GOTO9000
8893        ENDIF
8894      ENDIF
8895C
8896CCCCC FOLLOWING SECTION ADDED JANUARY  2003
8897C               ***********************************************
8898C               **  TREAT THE    SET HTML FOOTER FILE CASE   **
8899C               ***********************************************
8900C
8901      IF(NUMARG.GE.3.AND.IHARG(1).EQ.'HTML'.AND.
8902     1   IHARG(2).EQ.'FOOT'.AND.IHARG(3).EQ.'FILE')THEN
8903C
8904         IPART1='HTML'
8905         IPART2='FOOT'
8906         IF(IHARG(4).EQ.'NULL')THEN
8907           IHTMFO='NULL'
8908           IHV=IHTMFO(1:4)
8909           NCHTMF=4
8910           GOTO5160
8911         ELSEIF(IHARG(4).EQ.'NONE')THEN
8912           IHTMFO='NONE'
8913           IHV=IHTMFO(1:4)
8914           NCHTMF=4
8915           GOTO5160
8916         ELSE
8917           IWORD=5
8918           IF(IHARG(4).EQ.'=   ')IWORD=6
8919           ICASEZ='FHTM'
8920           ICMDTI='THE HTML FOOTER FILE HAS BEEN SET TO'
8921           CALL DPEXFN(IANS,IANSLC,ICANS,MAXTMP,IWIDTH,NUMARG,
8922     1                 ISTRIN,IWORD,ICMDTI,ITEMP,
8923     1                 ICASEZ,IHTMFO,NCHTMF,
8924     1                 IBUGS2,ISUBRO,IFOUND,IERROR)
8925           GOTO9000
8926        ENDIF
8927      ENDIF
8928C
8929CCCCC FOLLOWING SECTION ADDED SEPTEMBER  2003
8930C               ***********************************************
8931C               **  TREAT THE    SET LATEX HEADER FILE CASE  **
8932C               ***********************************************
8933C
8934      IF(NUMARG.GE.3.AND.IHARG(1).EQ.'LATE'.AND.
8935     1   IHARG(2).EQ.'HEAD'.AND.IHARG(3).EQ.'FILE')THEN
8936C
8937         IPART1='LATE'
8938         IPART2='HEAD'
8939         IF(IHARG(4).EQ.'NULL')THEN
8940           ILATHE='NULL'
8941           IHV=ILATHE(1:4)
8942           NCLATH=4
8943           GOTO5160
8944         ELSEIF(IHARG(4).EQ.'NONE')THEN
8945           ILATHE='NONE'
8946           IHV=ILATHE(1:4)
8947           NCLATH=4
8948           GOTO5160
8949         ELSE
8950           IWORD=5
8951           IF(IHARG(4).EQ.'=   ')IWORD=6
8952           ICASEZ='HLAT'
8953           ICMDTI='THE LATEX HEADER FILE HAS BEEN SET TO'
8954           CALL DPEXFN(IANS,IANSLC,ICANS,MAXTMP,IWIDTH,NUMARG,
8955     1                 ISTRIN,IWORD,ICMDTI,ITEMP,
8956     1                 ICASEZ,ILATHE,NCLATH,
8957     1                 IBUGS2,ISUBRO,IFOUND,IERROR)
8958           GOTO9000
8959        ENDIF
8960      ENDIF
8961C
8962CCCCC FOLLOWING SECTION ADDED SPETEMBER  2003
8963C               ***********************************************
8964C               **  TREAT THE    SET LATEX FOOTER FILE CASE  **
8965C               ***********************************************
8966C
8967      IF(NUMARG.GE.3.AND.IHARG(1).EQ.'LATE'.AND.
8968     1   IHARG(2).EQ.'FOOT'.AND.IHARG(3).EQ.'FILE')THEN
8969C
8970         IPART1='LATE'
8971         IPART2='FOOT'
8972         IF(IHARG(4).EQ.'NULL')THEN
8973           ILATFO='NULL'
8974           IHV=ILATFO(1:4)
8975           NCLATF=4
8976           GOTO5160
8977         ELSEIF(IHARG(4).EQ.'NONE')THEN
8978           ILATFO='NONE'
8979           IHV=ILATFO(1:4)
8980           NCLATF=4
8981           GOTO5160
8982         ELSE
8983           IWORD=5
8984           IF(IHARG(4).EQ.'=   ')IWORD=6
8985           ICASEZ='FLAT'
8986           ICMDTI='THE LATEX FOOTER FILE HAS BEEN SET TO'
8987           CALL DPEXFN(IANS,IANSLC,ICANS,MAXTMP,IWIDTH,NUMARG,
8988     1                 ISTRIN,IWORD,ICMDTI,ITEMP,
8989     1                 ICASEZ,ILATFO,NCLATF,
8990     1                 IBUGS2,ISUBRO,IFOUND,IERROR)
8991           GOTO9000
8992        ENDIF
8993      ENDIF
8994C
8995CCCCC FOLLOWING SECTION ADDED SEPTEMBER 2018
8996C     *************************************************************
8997C     **  SET WRITE FEEDBACK <ON/OFF>                            **
8998C     *************************************************************
8999C
9000      IPART1='WRIT'
9001      IPART2='FEED'
9002      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
9003        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE')THEN
9004          IHV='ON'
9005        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE' .OR.
9006     1         IHV.EQ.'FALS' .OR. IHV.EQ.'DEFA')THEN
9007          IHV='OFF'
9008        ELSE
9009          IHV='OFF'
9010        ENDIF
9011        IFEEWR=IHV
9012        GOTO5160
9013      ENDIF
9014C
9015CCCCC FOLLOWING SECTION ADDED SEPTEMBER 2018
9016C     *************************************************************
9017C     **  SET COMMAND SUBSTITUTION <ON/OFF>                      **
9018C     *************************************************************
9019C
9020      IPART1='COMM'
9021      IPART2='SUBS'
9022      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
9023        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE')THEN
9024          IHV='ON'
9025        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE' .OR.
9026     1         IHV.EQ.'FALS' .OR. IHV.EQ.'DEFA')THEN
9027          IHV='OFF'
9028        ELSE
9029          IHV='OFF'
9030        ENDIF
9031        ISUBSK=IHV
9032        GOTO5160
9033      ENDIF
9034C
9035CCCCC FOLLOWING SECTION ADDED JANUARY 2019
9036C     *************************************************************
9037C     **  SET SUBSTITUTE FORMAT <STRING>                         **
9038C     *************************************************************
9039C
9040      IPART1='SUBS'
9041      IPART2='FORM'
9042      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
9043        IF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE' .OR.
9044     1     IHV.EQ.'FALS' .OR. IHV.EQ.'DEFA' .OR.
9045     1     IHV.EQ.'NULL')THEN
9046          IHV='OFF'
9047          ISUBFM='NULL'
9048        ELSE
9049          ISUBFM(1:4)=IHARG(3)
9050          ISUBFM(5:8)=IHARG2(3)
9051        ENDIF
9052        GOTO5160
9053      ENDIF
9054C
9055CCCCC FOLLOWING SECTION ADDED JANUARY 2019
9056C     *************************************************************
9057C     **  SET STRING JUSTIFICATION CHARACTE <CHAR>               **
9058C     *************************************************************
9059C
9060      IPART1='STRI'
9061      IPART2='JUST'
9062      IPART3='CHAR'
9063      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
9064     1   IHARG(3).EQ.IPART3)THEN
9065        IF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE' .OR.
9066     1     IHV.EQ.'FALS' .OR. IHV.EQ.'DEFA' .OR.
9067     1     IHV.EQ.'NULL'.OR.NUMARG.LE.3)THEN
9068          IHV='SPAC'
9069          ISJUCH=IHV
9070        ELSE
9071          ISJUCH=IHV
9072        ENDIF
9073        GOTO5160
9074      ENDIF
9075C
9076CCCCC FOLLOWING SECTION ADDED FEBRUARY 2019
9077C     *************************************************************
9078C     **  SET CLIPBOARD RUN CLEAR  <ON/OFF>                      **
9079C     *************************************************************
9080C
9081      IPART1='CLIP'
9082      IPART2='RUN '
9083      IPART3='CLEA'
9084      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
9085     1   IHARG(3).EQ.IPART3)THEN
9086        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE')THEN
9087          IHV='ON'
9088        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE' .OR.
9089     1         IHV.EQ.'FALS' .OR. IHV.EQ.'DEFA')THEN
9090          IHV='OFF'
9091        ELSE
9092          IHV='OFF'
9093        ENDIF
9094        ICLIRC=IHV
9095        GOTO5160
9096      ENDIF
9097C
9098CCCCC FOLLOWING SECTION ADDED SEPTEMBER 2018
9099C     *************************************************************
9100C     **  SET WORD DELIMITER <VALUE>                             **
9101C     *************************************************************
9102C
9103      IPART1='WORD'
9104      IPART2='DELI'
9105      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
9106        IWRDDL=IHV
9107        GOTO5160
9108      ENDIF
9109C
9110CCCCC FOLLOWING SECTION ADDED JULY  2016
9111C               ***********************************************
9112C               **  TREAT THE  SET WRITE HEADER FILE CASE    **
9113C               ***********************************************
9114C
9115      IF(NUMARG.GE.3.AND.IHARG(1).EQ.'WRIT'.AND.
9116     1   IHARG(2).EQ.'HEAD'.AND.IHARG(3).EQ.'FILE')THEN
9117C
9118         IPART1='WRIT'
9119         IPART2='HEAD'
9120         IF(IHARG(4).EQ.'NULL' .OR. IHARG(4).EQ.'NONE')THEN
9121           IWRIHE='NULL'
9122           IHV=IWRIHE(1:4)
9123           NCWRIH=4
9124           GOTO5160
9125         ELSE
9126           IWORD=5
9127           IF(IHARG(4).EQ.'=   ')IWORD=6
9128           ICASEZ='HHTM'
9129           ICMDTI='THE HTML HEADER FILE HAS BEEN SET TO'
9130           CALL DPEXFN(IANS,IANSLC,ICANS,MAXTMP,IWIDTH,NUMARG,
9131     1                 ISTRIN,IWORD,ICMDTI,ITEMP,
9132     1                 ICASEZ,IWRIHE,NCWRIH,
9133     1                 IBUGS2,ISUBRO,IFOUND,IERROR)
9134           GOTO9000
9135        ENDIF
9136      ENDIF
9137C
9138CCCCC FOLLOWING SECTION ADDED OCTOBER  2014
9139C               ***********************************************
9140C               **  TREAT THE  SET SEARCH  DIRECTORY   CASE  **
9141C               **             SET SEARCH2 DIRECTORY   CASE  **
9142C               **             SET SEARCH3 DIRECTORY   CASE  **
9143C               **             SET SEARCH4 DIRECTORY   CASE  **
9144C               **             SET SEARCH5 DIRECTORY   CASE  **
9145C               **             SET SEARCH6 DIRECTORY   CASE  **
9146C               ***********************************************
9147C
9148      IF(NUMARG.GE.3.AND.IHARG(1).EQ.'SEAR'.AND.
9149     1  (IHARG(2).EQ.'DIRE' .OR. IHARG(2).EQ.'PATH'))THEN
9150C
9151         IWORD=4
9152         IF(IHARG(3).EQ.'=   ')IWORD=5
9153         ICASEZ='SDIR'
9154         IF(IHARG2(1).EQ.'CH2 ')THEN
9155           ICMDTI='THE SEARCH2 DIRECTORY HAS BEEN SET TO'
9156           CALL DPEXFN(IANS,IANSLC,ICANS,MAXTMP,IWIDTH,NUMARG,
9157     1                 ISTRIN,IWORD,ICMDTI,ITEMP,
9158     1                 ICASEZ,ISEAD2,NCSED2,
9159     1                 IBUGS2,ISUBRO,IFOUND,IERROR)
9160           IF(NCSED2.EQ.0)THEN
9161             ISEAD2='NULL'
9162             NCSED2=-1
9163           ENDIF
9164         ELSEIF(IHARG2(1).EQ.'CH3 ')THEN
9165           ICMDTI='THE SEARCH3 DIRECTORY HAS BEEN SET TO'
9166           CALL DPEXFN(IANS,IANSLC,ICANS,MAXTMP,IWIDTH,NUMARG,
9167     1                 ISTRIN,IWORD,ICMDTI,ITEMP,
9168     1                 ICASEZ,ISEAD3,NCSED3,
9169     1                 IBUGS2,ISUBRO,IFOUND,IERROR)
9170           IF(NCSED3.EQ.0)THEN
9171             ISEAD3='NULL'
9172             NCSED3=-1
9173           ENDIF
9174         ELSEIF(IHARG2(1).EQ.'CH4 ')THEN
9175           ICMDTI='THE SEARCH4 DIRECTORY HAS BEEN SET TO'
9176           CALL DPEXFN(IANS,IANSLC,ICANS,MAXTMP,IWIDTH,NUMARG,
9177     1                 ISTRIN,IWORD,ICMDTI,ITEMP,
9178     1                 ICASEZ,ISEAD4,NCSED4,
9179     1                 IBUGS2,ISUBRO,IFOUND,IERROR)
9180           IF(NCSED4.EQ.0)THEN
9181             ISEAD4='NULL'
9182             NCSED4=-1
9183           ENDIF
9184         ELSEIF(IHARG2(1).EQ.'CH5 ')THEN
9185           ICMDTI='THE SEARCH5 DIRECTORY HAS BEEN SET TO'
9186           CALL DPEXFN(IANS,IANSLC,ICANS,MAXTMP,IWIDTH,NUMARG,
9187     1                 ISTRIN,IWORD,ICMDTI,ITEMP,
9188     1                 ICASEZ,ISEAD5,NCSED5,
9189     1                 IBUGS2,ISUBRO,IFOUND,IERROR)
9190           IF(NCSED5.EQ.0)THEN
9191             ISEAD5='NULL'
9192             NCSED5=-1
9193           ENDIF
9194         ELSEIF(IHARG2(1).EQ.'CH6 ')THEN
9195           ICMDTI='THE SEARCH6 DIRECTORY HAS BEEN SET TO'
9196           CALL DPEXFN(IANS,IANSLC,ICANS,MAXTMP,IWIDTH,NUMARG,
9197     1                 ISTRIN,IWORD,ICMDTI,ITEMP,
9198     1                 ICASEZ,ISEAD6,NCSED6,
9199     1                 IBUGS2,ISUBRO,IFOUND,IERROR)
9200           IF(NCSED6.EQ.0)THEN
9201             ISEAD6='NULL'
9202             NCSED6=-1
9203           ENDIF
9204         ELSE
9205           ICMDTI='THE SEARCH DIRECTORY HAS BEEN SET TO'
9206           CALL DPEXFN(IANS,IANSLC,ICANS,MAXTMP,IWIDTH,NUMARG,
9207     1                 ISTRIN,IWORD,ICMDTI,ITEMP,
9208     1                 ICASEZ,ISEADI,NCSEDI,
9209     1                 IBUGS2,ISUBRO,IFOUND,IERROR)
9210           IF(NCSEDI.EQ.0)THEN
9211             ISEADI='NULL'
9212             NCSEDI=-1
9213           ENDIF
9214         ENDIF
9215         GOTO9000
9216      ENDIF
9217C
9218CCCCC FOLLOWING SECTION ADDED DECEMBER  2015
9219C               ***********************************************
9220C               **  TREAT THE  SET STANDARD INPUT      CASE  **
9221C               ***********************************************
9222C
9223C     NOTE: CHECK FOR "SET STANDARD INPUT POLL <FILE-NAME>".  FOR THIS
9224C           CASE, SET UP LOOP TO CHECK FOR EXISTENCE OF SPECIFIED FILE.
9225C           THIS OPTION IS INTENDED FOR CASE WHEN EXTERNAL PROGRAM IS
9226C           CONTROLLING INPUT TO DATAPLOT.
9227C
9228C           THE COMMAND
9229C
9230C               SET RESUME POLL    (OR POLL RESUME)
9231C
9232C           IS A SYNONYM FOR
9233C
9234C               SET STANDARD INPUT POLL
9235C
9236C           THE COMMAND
9237C
9238C               SET SUSPEND POLL    (OR POLL SUSPEND)
9239C
9240C           IS A SYNONYM FOR
9241C
9242C               SET STANDARD INPUT
9243C
9244C           THE SET RESUME POLL AND SET SUSPEND POLL DO NOT TAKE A
9245C           FILE NAME ARGUMENT (THEY WILL USE THE PREVIOUSLY DEFINED
9246C           FILE NAME).
9247C
9248C     NOTE: CHECK FOR
9249C
9250C               SET STANDARD INPUT CLOSE
9251C               SET STANDARD INPUT POLL CLOSE
9252C
9253C           THESE WILL CLOSE THE SPECIFIED FILE IN "DELETE" MODE.  THE
9254C           FIRST OPTION RETURNS CONTROL BACK TO THE TERMINAL WHILE THE
9255C           SECOND OPTION RESUMES POLLING MODE.  THE IDEA IS THAT AN
9256C           EXTERNAL PROGRAM CAN SEND AN UPDATED SET OF COMMANDS WITH
9257C           OPTION TO RETURN CONTROL TO THE END USER.
9258C
9259      IFLAGD=0
9260      IF(NUMARG.EQ.2 .AND. IHARG(1).EQ.'RESU' .AND.
9261     1   IHARG(2).EQ.'POLL')THEN
9262        NUMARG=3
9263        IHARG(1)='STAN'
9264        IHARG2(1)='ARD '
9265        IHARG(2)='INPU'
9266        IHARG2(2)='T   '
9267        IHARG(3)='POLL'
9268        IHARG2(3)='    '
9269        IHARG(4)='    '
9270        IHARG2(4)='    '
9271      ELSEIF(NUMARG.EQ.2 .AND. IHARG(1).EQ.'POLL' .AND.
9272     1   IHARG(2).EQ.'RESU')THEN
9273        NUMARG=3
9274        IHARG(1)='STAN'
9275        IHARG2(1)='ARD '
9276        IHARG(2)='INPU'
9277        IHARG2(2)='T   '
9278        IHARG(3)='POLL'
9279        IHARG2(3)='    '
9280        IHARG(4)='    '
9281        IHARG2(4)='    '
9282      ELSEIF(NUMARG.EQ.2 .AND. IHARG(1).EQ.'SUSP' .AND.
9283     1   IHARG(2).EQ.'POLL')THEN
9284        IF(IRD.NE.I1MACH(1))THEN
9285          CLOSE(IRD)
9286        ENDIF
9287        IRD=I1MACH(1)
9288        IF(IFEEDB.EQ.'ON')THEN
9289          WRITE(ICOUT,1847)
9290          CALL DPWRST('XXX','BUG ')
9291        ENDIF
9292        IFOUND='YES'
9293        GOTO9000
9294      ELSEIF(NUMARG.EQ.2 .AND. IHARG(1).EQ.'POLL' .AND.
9295     1   IHARG(2).EQ.'SUSP')THEN
9296        IF(IRD.NE.I1MACH(1))THEN
9297          CLOSE(IRD)
9298        ENDIF
9299        IRD=I1MACH(1)
9300        IF(IFEEDB.EQ.'ON')THEN
9301          WRITE(ICOUT,1847)
9302          CALL DPWRST('XXX','BUG ')
9303        ENDIF
9304        IFOUND='YES'
9305        GOTO9000
9306      ENDIF
9307C
9308      IF(NUMARG.GE.2.AND.IHARG(1).EQ.'STAN'.AND.
9309     1   IHARG(2).EQ.'INPU')THEN
9310C
9311         IF(NUMARG.EQ.2)THEN
9312           IFLAGP=0
9313           ISTDIN='NULL'
9314           NCSTIN=-1
9315           IF(IRD.NE.I1MACH(1))THEN
9316             CLOSE(IRD)
9317           ENDIF
9318           IRD=I1MACH(1)
9319           IF(IFEEDB.EQ.'ON')THEN
9320             WRITE(ICOUT,1847)
9321 1847        FORMAT('STANDARD INPUT WILL REVERT TO THE TERMINAL.')
9322             CALL DPWRST('XXX','BUG ')
9323           ENDIF
9324           IFOUND='YES'
9325           GOTO9000
9326         ELSEIF(NUMARG.EQ.3)THEN
9327           IF(IHARG(3).EQ.'NULL' .OR.
9328     1        IHARG(3).EQ.'DEFA' .OR. IHARG(3).EQ.'ON' .OR.
9329     1        IHARG(3).EQ.'OFF'  .OR. IHARG(3).EQ.'YES' .OR.
9330     1        IHARG(3).EQ.'NO'   .OR. IHARG(3).EQ.'TERM')THEN
9331             IFLAGP=0
9332             ISTDIN='NULL'
9333             NCSTIN=-1
9334             IF(IRD.NE.I1MACH(1))THEN
9335               CLOSE(IRD)
9336             ENDIF
9337             IRD=I1MACH(1)
9338             IF(IFEEDB.EQ.'ON')THEN
9339               WRITE(ICOUT,1847)
9340               CALL DPWRST('XXX','BUG ')
9341             ENDIF
9342             IFOUND='YES'
9343             GOTO9000
9344           ENDIF
9345         ENDIF
9346C
9347         IF(IHARG(3).EQ.'POLL' .AND. IHARG2(3).EQ.'    ' .AND.
9348     1     (IHARG(4).EQ.'CLOS' .OR. IHARG(4).EQ.'DELE'))THEN
9349           IFLAGD=1
9350           IFLAGP=1
9351           IWORD=6
9352           IF(IHARG(5).EQ.'=   ')IWORD=7
9353           IFOUND='YES'
9354         ELSEIF(IHARG(4).EQ.'POLL' .AND. IHARG2(4).EQ.'    ' .AND.
9355     1     (IHARG(3).EQ.'CLOS' .OR. IHARG(3).EQ.'DELE'))THEN
9356           IFLAGD=1
9357           IFLAGP=1
9358           IWORD=6
9359           IF(IHARG(5).EQ.'=   ')IWORD=7
9360           IFOUND='YES'
9361         ELSEIF((IHARG(3).EQ.'CLOS' .AND. IHARG2(3).EQ.'E   ') .OR.
9362     1          (IHARG(3).EQ.'DELE' .AND. IHARG2(3).EQ.'TE  '))THEN
9363           IFLAGD=1
9364           IFLAGP=0
9365           IWORD=5
9366           IF(IHARG(4).EQ.'=   ')IWORD=6
9367           IFOUND='YES'
9368         ELSEIF(IHARG(3).EQ.'POLL' .AND. IHARG2(3).EQ.'    ')THEN
9369           IFLAGD=0
9370           IFLAGP=1
9371           IWORD=5
9372           IF(IHARG(4).EQ.'=   ')IWORD=6
9373           IFOUND='YES'
9374         ELSE
9375           IFLAGD=0
9376           IFLAGP=0
9377           IWORD=4
9378           IF(IHARG(3).EQ.'=   ')IWORD=5
9379           IFOUND='YES'
9380         ENDIF
9381C
9382         IF(IFLAGD.EQ.1 .AND. IFLAGP.EQ.0)THEN
9383C
9384C          IF DELETE SPECIFIED WITHOUT FURTHER POLLING, DO NOT
9385C          CHECK FOR A FILE NAME.
9386C
9387           CONTINUE
9388         ELSEIF(IFLAGD.EQ.1 .AND. IFLAGP.EQ.1)THEN
9389C
9390C          IF DELETE SPECIFIED WITH FURTHER POLLING, CAN EITHER
9391C          SPECIFY A NEW FILE NAME TO BE POLLED OR CAN USE
9392C          PREVIOUSLY DEFINED NAME.
9393C
9394           IF(IHARG(IWORD-1).NE.'    ')THEN
9395             ICASEZ='STIN'
9396             ICMDTI='THE STANDARD INPUT HAS BEEN SET TO'
9397             CALL DPEXFN(IANS,IANSLC,ICANS,MAXTMP,IWIDTH,NUMARG,
9398     1                   ISTRIN,IWORD,ICMDTI,ITEMP,
9399     1                   ICASEZ,ISTDIN,NCSTIN,
9400     1                   IBUGS2,ISUBRO,IFOUND,IERROR)
9401           ENDIF
9402C
9403         ELSE
9404           IF(IHARG(IWORD-1).NE.'    ')THEN
9405             ICASEZ='STIN'
9406             ICMDTI='THE STANDARD INPUT HAS BEEN SET TO'
9407             CALL DPEXFN(IANS,IANSLC,ICANS,MAXTMP,IWIDTH,NUMARG,
9408     1                   ISTRIN,IWORD,ICMDTI,ITEMP,
9409     1                   ICASEZ,ISTDIN,NCSTIN,
9410     1                   IBUGS2,ISUBRO,IFOUND,IERROR)
9411           ENDIF
9412         ENDIF
9413C
9414C        PROCESS DELETE FIRST
9415C
9416         IF(IFLAGD.EQ.1)THEN
9417           IF(IRD.NE.I1MACH(1))THEN
9418             REWIND(IRD)
9419             CLOSE(IRD,STATUS='DELETE')
9420             IRD=I1MACH(1)
9421             ASLEEP=2.0
9422             IF(PSTDSL.GT.0.0)ASLEEP=PSTDSL
9423             CALL DPSLE2(ASLEEP,IBUGS2,ISUBRO,IERROR)
9424           ENDIF
9425           IFLAGD=0
9426           IF(IFLAGP.EQ.0)GOTO9000
9427         ENDIF
9428C
9429         IF(NCSTIN.EQ.0)THEN
9430           ISTDIN='NULL'
9431           NCSEDI=-1
9432           WRITE(ICOUT,1847)
9433           CALL DPWRST('XXX','BUG ')
9434           IF(IRD.NE.I1MACH(1))THEN
9435             CLOSE(IRD)
9436           ENDIF
9437           IRD=I1MACH(1)
9438         ELSE
9439           IF(IFLAGP.EQ.0)THEN
9440             IERROR='NO'
9441             CALL DPINFI(ISTDIN,IEXIST,IOPEN,IACC,ISUBN0,IBUGS2,
9442     1                   ISUBRO,IERROR)
9443             IF(IEXIST.EQ.'YES' .AND. IERROR.EQ.'NO')THEN
9444               IRD=9
9445               OPEN(IRD,FILE=ISTDIN,STATUS='OLD')
9446               REWIND(9)
9447             ELSE
9448               IF(IFEEDB.EQ.'ON')THEN
9449                 WRITE(ICOUT,1848)ISTDIN
9450 1848            FORMAT('FILE: ',A80)
9451                 CALL DPWRST('XXX','BUG ')
9452                 WRITE(ICOUT,1849)
9453 1849            FORMAT('DOES NOT EXIST.  STANDARD INPUT NOT CHANGED.')
9454                 CALL DPWRST('XXX','BUG ')
9455               ENDIF
9456             ENDIF
9457             GOTO9000
9458           ELSE
9459             ASLEEP=2.0
9460             IF(PSTDSL.GT.0.0)ASLEEP=PSTDSL
9461             ICNT=0
9462 1851        CONTINUE
9463             ICNT=ICNT+1
9464             IF(ISTDCN.GT.0 .AND. ICNT.GT.ISTDCN)GOTO9000
9465             IERROR='NO'
9466             CALL DPINFI(ISTDIN,IEXIST,IOPEN,IACC,ISUBN0,IBUGS2,
9467     1                   ISUBRO,IERROR)
9468             IF(IEXIST.EQ.'YES' .AND. IERROR.EQ.'NO')THEN
9469               IRD=9
9470               CLOSE(IRD)
9471               OPEN(IRD,FILE=ISTDIN,STATUS='OLD',IOSTAT=IOS)
9472               REWIND(IRD)
9473               GOTO9000
9474             ELSE
9475               CALL DPSLE2(ASLEEP,IBUGS2,ISUBRO,IERROR)
9476               GOTO1851
9477             ENDIF
9478           ENDIF
9479           GOTO9000
9480         ENDIF
9481         GOTO9000
9482      ENDIF
9483C
9484CCCCC THE FOLLOWING SECTION WAS ADDED        DECEMBER 2015
9485C     ******************************************
9486C     **  SET MAXIMUM COUNTER STANDARD INPUT  **
9487C     ******************************************
9488C
9489      IPART1='MAXI'
9490      IPART2='COUN'
9491      IPART3='STAN'
9492      IPART4='INPU'
9493      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
9494     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
9495         ISTDCN=IV
9496         IF(ISTDCN.LT.0)ISTDCN=0
9497         GOTO5150
9498      ENDIF
9499C
9500CCCCC THE FOLLOWING SECTION WAS ADDED        DECEMBER 2015
9501C     ******************************************
9502C     **  SET DELAY STANDARD INPUT            **
9503C     ******************************************
9504C
9505      IPART1='DELA'
9506      IPART2='STAN'
9507      IPART3='INPU'
9508      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
9509     1   IHARG(3).EQ.IPART3)THEN
9510        PSTDSL=AV
9511        IF(PSTDSL.LE.0.0)PSTDSL=2.0
9512        GOTO5170
9513      ENDIF
9514C
9515CCCCC FOLLOWING SECTION ADDED APRIL 1995.
9516C     *********************************
9517C     **  SET UNFORMATTED COLUMNS    **
9518C     *********************************
9519C
9520      IPART1='UNFO'
9521      IPART2='COLU'
9522      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
9523        IUNFMC=IV
9524        IF(IUNFMC.LT.0)IUNFMC=0
9525        IV=IUNFMC
9526        GOTO5150
9527      ENDIF
9528C
9529CCCCC FOLLOWING SECTION ADDED APRIL 1995.
9530C     *********************************
9531C     **  SET UNFORMATTED RECORDS    **
9532C     *********************************
9533C
9534      IPART1='UNFO'
9535      IPART2='RECO'
9536      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
9537        IUNFNR=IV
9538        IF(IUNFNR.LT.0)IUNFNR=0
9539        IV=IUNFNR
9540        GOTO5150
9541      ENDIF
9542C
9543CCCCC FOLLOWING SECTION ADDED APRIL 1995.
9544C     *********************************
9545C     **  SET UNFORMATTED OFFSET     **
9546C     *********************************
9547C
9548      IPART1='UNFO'
9549      IPART2='OFFS'
9550      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
9551        IUNFOF=IV
9552        IF(IUNFOF.LT.0)IUNFOF=0
9553        IV=IUNFOF
9554        GOTO5150
9555      ENDIF
9556C
9557CCCCC THE FOLLOWING SECTION WAS ADDED        JULY 1995.
9558C     ******************************************
9559C     **  SET FIT ITERATIONS (#)              **
9560C     ******************************************
9561C
9562      IPART1='FIT'
9563      IPART2='ITER'
9564      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
9565         IFITIT=IV
9566         GOTO5150
9567      ENDIF
9568C
9569CCCCC THE FOLLOWING SECTION WAS ADDED        JULY 1995.
9570C     ******************************************
9571C     **  SET FIT STANDARD DEVIATION (#)      **
9572C     ******************************************
9573C
9574      IPART1='FIT '
9575      IPART2='STAN'
9576      IPART3='DEVI'
9577      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
9578         IF(IHARG(3).EQ.IPART3)THEN
9579            FITSD=AV
9580            GOTO5170
9581         ENDIF
9582      ENDIF
9583C
9584      IPART1='FIT '
9585      IPART2='SD'
9586      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
9587         FITSD=AV
9588         GOTO5170
9589      ENDIF
9590C
9591CCCCC THE FOLLOWING SECTION WAS ADDED        JULY 1995.
9592C     ******************************************
9593C     **  SET FIT ADDITIVE CONSTANT (ON/OFF)  **
9594C     ******************************************
9595C
9596      IPART1='FIT '
9597      IPART2='ADDI'
9598      IPART3='CONS'
9599      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
9600         IF(IHARG(3).EQ.IPART3)THEN
9601            IFITAC=IHV
9602            GOTO5160
9603         ENDIF
9604      ENDIF
9605C
9606      IPART1='FIT '
9607      IPART2='CONS'
9608      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
9609         IFITAC=IHV
9610         GOTO5160
9611      ENDIF
9612C
9613CCCCC FOLLOWING SECTION ADDED MARCH 1996.
9614C     ********************************************
9615C     **  SET RELATIVE HISTOGRAM <AREA/PERCENT> **
9616C     ********************************************
9617C
9618      IPART1='RELA'
9619      IPART2='HIST'
9620      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
9621        IRHSTG=IHV
9622        IF(IRHSTG.NE.'AREA'.AND.IRHSTG.NE.'PERC')THEN
9623          IRHSTG='AREA'
9624        ENDIF
9625        GOTO5160
9626      ENDIF
9627C
9628CCCCC FOLLOWING SECTION ADDED MAY 1998.
9629C     ***************************************************
9630C     **  SET KAPLAN MEIER            <RELI/CDF    >   **
9631C     ***************************************************
9632C
9633      IPART1='KAPL'
9634      IPART2='MEIE'
9635      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
9636        IKAPSW=IHV
9637        IF(IKAPSW.NE.'CDF ')IKAPSW='RELI'
9638        GOTO5160
9639      ENDIF
9640      IF(IHARG(1).EQ.IPART1)THEN
9641        IKAPSW=IHV
9642        IF(IKAPSW.NE.'CDF ')IKAPSW='RELI'
9643        GOTO5160
9644      ENDIF
9645C
9646CCCCC FOLLOWING SECTION ADDED MAY 1998.
9647C     ***************************************************
9648C     **  SET CENSORING <TYPE 1/TYPE 2>                **
9649C     ***************************************************
9650C
9651      IPART1='CENS'
9652      IPART2='TYPE'
9653      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
9654        ICENTY=IHV
9655        IF(ICENTY.EQ.'TIME')ICENTY='1   '
9656        IF(ICENTY.EQ.'MULT')ICENTY='3   '
9657        IF(ICENTY.NE.'1   '.AND.ICENTY.NE.'3   '.AND.
9658     1     ICENTY.NE.'NONE')ICENTY='2   '
9659        GOTO5160
9660      ENDIF
9661C
9662CCCCC FOLLOWING SECTION ADDED JUNE 1998.
9663C     ***************************************************
9664C     **  SET MATRIX SCALE <NONE/SD/RANGE/ZSCORE/MEAN> **
9665C     ***************************************************
9666C
9667      IPART1='MATR'
9668      IPART2='SCAL'
9669      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
9670        IMATSC=IHV
9671        IF(IMATSC.EQ.'ZSCO')IMATSC='Z-SC'
9672        IF(IMATSC.EQ.'SCOR')IMATSC='Z-SC'
9673        IF(IMATSC.NE.'SD  '.AND.IMATSC.NE.'RANG'.AND.
9674     1    IMATSC.NE.'Z-SC'.AND.IMATSC.NE.'MEAN')
9675     1    IMATSC='NONE'
9676        GOTO5160
9677      ENDIF
9678C
9679CCCCC FOLLOWING SECTION ADDED APRIL 1997.
9680C     ***************************************************
9681C     **  SET CONTROL CHART WEIGHTING <CENTER/RIGHT>   **
9682C     ***************************************************
9683C
9684      IPART1='CONT'
9685      IPART2='CHAR'
9686      IPART3='WEIG'
9687      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
9688     1IHARG(3).EQ.IPART3)THEN
9689        ICCHWT=IHV
9690        IF(ICCHWT.NE.'CENT'.AND.ICCHWT.NE.'RIGH')THEN
9691          ICCHWT='RIGH'
9692        ENDIF
9693        GOTO5160
9694      ENDIF
9695C
9696CCCCC FOLLOWING SECTION ADDED SEPTEMBER  2009
9697C     *************************************************************
9698C     **  SET CONTROL CHART LIMITS <DEFAULT/WECO/ISO 13528>      **
9699C     *************************************************************
9700C
9701      IPART1='CONT'
9702      IPART2='CHAR'
9703      IPART3='LIMI'
9704      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
9705     1   IHARG(3).EQ.IPART3)THEN
9706        IF(IHARG(NUMARG).EQ.'WECO')THEN
9707          ICONWC='WECO'
9708        ELSEIF(IHARG(NUMARG).EQ.'ISO ')THEN
9709          ICONWC='ISO'
9710        ELSEIF(IHARG(4).EQ.'ISO ' .AND. IHARG(5).EQ.'1352')THEN
9711          ICONWC='ISO'
9712        ELSE
9713          ICONWC='DEFA'
9714        ENDIF
9715        IHV=ICONWC
9716        GOTO5160
9717      ENDIF
9718C
9719CCCCC FOLLOWING SECTION ADDED APRIL 1997.
9720C     ********************************************
9721C     **  SET CONTROL CHART      <DATA/PRIOR>   **
9722C     ********************************************
9723C
9724      IPART1='CONT'
9725      IPART2='CHAR'
9726      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
9727        ICCHPR=IHV
9728        IF(ICCHPR.NE.'DATA'.AND.ICCHPR.NE.'PRIO')THEN
9729          ICCHPR='DATA'
9730        ENDIF
9731        GOTO5160
9732      ENDIF
9733C
9734CCCCC FOLLOWING SECTION ADDED AUGUST 2013
9735C     ********************************************
9736C     **  SET RGB MAXIMUM VALUE <VALUE>         **
9737C     ********************************************
9738C
9739      IPART1='RGB '
9740      IPART2='MAXI'
9741      IPART3='VALU'
9742      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
9743     1   IHARG(3).EQ.IPART3)THEN
9744        IRGBMX=IV
9745        IF(IRGBMX.LT.255)IRGMX=255
9746        GOTO5150
9747      ENDIF
9748C
9749CCCCC FOLLOWING SECTION ADDED AUGUST 2013
9750C     *******************************************************
9751C     **  SET MCCOOL WEIBULL LOCATION TEST <VALUE>         **
9752C     *******************************************************
9753C
9754      IPART1='MCCO'
9755      IPART2='WEIB'
9756      IPART3='LOCA'
9757      IPART4='TEST'
9758      IPART5='R1  '
9759      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
9760     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
9761     1   IHARG(5).EQ.IPART5)THEN
9762        IMCCR1=IV
9763        IF(IMCCR1.LT.0)IRGMX=0
9764        GOTO5150
9765      ENDIF
9766C
9767CCCCC FOLLOWING SECTION ADDED SEPTEMBER 1998.
9768C     ************************************************************
9769C     **  SET PERCENT POINT PLOT <BINNED/UNBINNED/INTERPOLATED> **
9770C     ************************************************************
9771C
9772      IPART1='PERC'
9773      IPART2='POIN'
9774      IPART3='PLOT'
9775      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
9776     1   IHARG(3).EQ.IPART3)THEN
9777        IPPTBI=IHV
9778        IF(IPPTBI.NE.'UNBI'.AND.IPPTBI.NE.'INTE')THEN
9779          IPPTBI='BINN'
9780        ENDIF
9781        GOTO5160
9782      ENDIF
9783C
9784CCCCC FOLLOWING SECTION ADDED SEPTEMBER 1998.
9785C     ****************************************************************
9786C     **  SET QUANTILE-QUANTILE PLOT <BINNED/UNBINNED/INTERPOLATED> **
9787C     ****************************************************************
9788C
9789      IPART1='PERC'
9790      IPART2='POIN'
9791      IPART3='PLOT'
9792      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
9793     1   IHARG(3).EQ.IPART3)THEN
9794        IQQPBI=IHV
9795        IF(IQQPBI.NE.'UNBI'.AND.IQQPBI.NE.'INTE')THEN
9796          IQQPBI='BINN'
9797        ENDIF
9798        GOTO5160
9799      ENDIF
9800C
9801CCCCC FOLLOWING SECTION ADDED SEPTEMBER 1998.
9802C     ************************************************************
9803C     **  SET PIE CHART          <BINNED/UNBINNED/INTERPOLATED> **
9804C     ************************************************************
9805C
9806      IPART1='PIE '
9807      IPART2='CHAR'
9808      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
9809        IPIEBI=IHV
9810        IF(IPIEBI.NE.'UNBI'.AND.IPIEBI.NE.'INTE')THEN
9811          IPIEBI='BINN'
9812        ENDIF
9813        GOTO5160
9814      ENDIF
9815C
9816CCCCC FOLLOWING SECTION ADDED JULY 1999.
9817C     ****************************************************************
9818C     **  SET AUTOCORRELATION BAND <WHITE NOISE/BOX-JENKINS> **
9819C     ****************************************************************
9820C
9821      IPART1='AUTO'
9822      IPART2='BAND'
9823      IPART3='PLOT'
9824      IF(IHARG(1).EQ.IPART1.AND.
9825     1   (IHARG(2).EQ.IPART2.OR.IHARG(2).EQ.IPART3))THEN
9826        IAUTCP='WHIT'
9827        IAUTCP=IHV
9828        IF(IAUTCP.EQ.'ARMA'.OR.IAUTCP.EQ.'BOX'.OR.IAUTCP.EQ.'JENK'
9829     1     .OR.IAUTCP.EQ.'BOXJ'.OR.IAUTCP.EQ.'ARIM')THEN
9830          IAUTCP='BOXJ'
9831        ELSE
9832          IAUTCP='WHIT'
9833        ENDIF
9834        IHV=IAUTCP
9835        GOTO5160
9836      ENDIF
9837C
9838CCCCC FOLLOWING SECTION ADDED FEBRUARY 2003.
9839C     *********************************************************
9840C     **  SET AUTOCORRELATION LAG ZERO <ON/OFF>              **
9841C     *********************************************************
9842C
9843      IPART1='AUTO'
9844      IPART2='LAG'
9845      IPART3='ZERO'
9846      IPART4='0'
9847      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
9848     1   (IHARG(3).EQ.IPART3.OR.IHARG(2).EQ.IPART4))THEN
9849        IAUTL0=IHV
9850        IF(IAUTL0.EQ.'OFF'.OR.IAUTL0.EQ.'NO'.OR.IAUTL0.EQ.'NONE'
9851     1     .OR.IAUTL0.EQ.'FALS')THEN
9852          IAUTL0='OFF'
9853        ELSE
9854          IAUTL0='ON'
9855        ENDIF
9856        IHV=IAUTL0
9857        GOTO5160
9858      ENDIF
9859C
9860CCCCC FOLLOWING SECTION ADDED FEBRUARY 2003.
9861C     *********************************************************
9862C     **  SET PARALLEL COORDINATES STANDARDIZE <NONE/USCORE/ **
9863C      **  ZSCORE>                                           **
9864C     *********************************************************
9865C
9866      IPART1='PARA'
9867      IPART2='COOR'
9868      IPART3='STAN'
9869      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
9870     1   IHARG(3).EQ.IPART3)THEN
9871        IPCCST=IHV
9872        IF(IPCCST.EQ.'OFF'.OR.IPCCST.EQ.'NO'.OR.IPCCST.EQ.'NONE'
9873     1     .OR.IPCCST.EQ.'FALS')THEN
9874          IPCCST='NONE'
9875        ELSEIF(IPCCST.EQ.'ON'.OR.IPCCST.EQ.'YES'.OR.
9876     1     IPCCST.EQ.'TRUE')THEN
9877          IPCCST='USCO'
9878        ENDIF
9879        IF(IPCCST.EQ.'ZSCO'.OR.IPCCST.EQ.'NONE'.OR.
9880     1     IPCCST.EQ.'ZSCO')THEN
9881          IHV=IPCCST
9882        ELSE
9883          IHV='USCO'
9884        ENDIF
9885        GOTO5160
9886      ENDIF
9887C
9888CCCCC FOLLOWING SECTION ADDED FEBRUARY 2003.
9889C     *********************************************************
9890C     **  SET BOOTSTRAP GROUPS <INDEPENDENT/DEPENDENT>       **
9891C     *********************************************************
9892C
9893      IPART1='BOOT'
9894      IPART2='GROU'
9895      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
9896        IBOOGR=IHV
9897        IF(IBOOGR.EQ.'OFF'.OR.IBOOGR.EQ.'NO'.OR.IBOOGR.EQ.'NONE'.OR.
9898     1     IBOOGR.EQ.'FALS'.OR.IBOOGR.EQ.'DEFA'.OR.
9899     1     IBOOGR.EQ.'ON'.OR.IBOOGR.EQ.'YES'.OR.
9900     1     IBOOGR.EQ.'TRUE')THEN
9901          IBOOGR='INDE'
9902        ENDIF
9903        IF(IBOOGR.NE.'DEPE')IBOOGR='INDE'
9904        IHV=IBOOGR
9905        GOTO5160
9906      ENDIF
9907C
9908CCCCC FOLLOWING SECTION ADDED MAY 2003.
9909C     *************************************************************
9910C     **  SET MULTIVARIATE NORMAL <SADMVN/RANMVN/KROMVN/SPHMVN>  **
9911C     *************************************************************
9912C
9913      IPART1='MULT'
9914      IPART2='NORM'
9915      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
9916        IMVNTY=IHV
9917        IF(IMVNTY.NE.'RANM'.AND.IMVNTY.NE.'KROM'.AND.
9918     1     IMVNTY.NE.'SPHM')IMVNTY='SADM'
9919        IHV=IMVNTY
9920        GOTO5160
9921      ENDIF
9922C
9923CCCCC FOLLOWING SECTION ADDED SEPTEMBER 2003.
9924C     *************************************************************
9925C     **  SET TABLE BORDER <OFF/ON/RULE/COLS>                    **
9926C     *************************************************************
9927C
9928      IPART1='TABL'
9929      IPART2='BORD'
9930      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
9931        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES')THEN
9932          IHV='ON'
9933        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
9934          IHV='OFF'
9935        ELSEIF(IHV.EQ.'RULE' .OR. IHV.EQ.'TOP')THEN
9936          IHV='RULE'
9937        ELSEIF(IHV.EQ.'COLS' .OR. IHV.EQ.'COLU' .OR. IHV.EQ.'COL')THEN
9938          IHV='COLS'
9939        ELSE
9940          IHV='OFF'
9941        ENDIF
9942        ITABBR=IHV
9943        GOTO5160
9944      ENDIF
9945C
9946CCCCC FOLLOWING SECTION ADDED JULY 2010.
9947C     *************************************************************
9948C     **  SET TABLE HEADER <OFF/ON>                              **
9949C     *************************************************************
9950C
9951      IPART1='TABL'
9952      IPART2='HEAD'
9953      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
9954        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE')THEN
9955          IHV='ON'
9956        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE' .OR.
9957     1         IHV.EQ.'FALS')THEN
9958          IHV='OFF'
9959        ELSE
9960          IHV='ON'
9961        ENDIF
9962        ITABHD=IHV
9963        GOTO5160
9964      ENDIF
9965C
9966CCCCC FOLLOWING SECTION ADDED SEPTEMBER 2003.
9967C     *************************************************************
9968C     **  SET TABLE SPACING <VALUE>                              **
9969C     *************************************************************
9970C
9971      IPART1='TABL'
9972      IPART2='SPAC'
9973      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
9974        ITABSP=IV
9975        IF(ITABSP.LT.0)ITABSP=0
9976        IV=ITABSP
9977        GOTO5150
9978      ENDIF
9979C
9980CCCCC FOLLOWING SECTION ADDED SEPTEMBER 2003.
9981C     *************************************************************
9982C     **  SET TABLE WIDTH   <VALUE>                              **
9983C     *************************************************************
9984C
9985      IPART1='TABL'
9986      IPART2='WIDT'
9987      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
9988        ITABWD=IV
9989        IF(ITABWD.LE.0)ITABWD=0
9990        IV=ITABWD
9991        GOTO5150
9992      ENDIF
9993C
9994CCCCC FOLLOWING SECTION ADDED SEPTEMBER 2003.
9995C     *************************************************************
9996C     **  SET TABLE HEIGHT  <VALUE>                              **
9997C     *************************************************************
9998C
9999      IPART1='TABL'
10000      IPART2='HEIG'
10001      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
10002        ITABHT=IV
10003        IF(ITABHT.LE.0)ITABHT=0
10004        IV=ITABHT
10005        GOTO5150
10006      ENDIF
10007C
10008CCCCC FOLLOWING SECTION ADDED JANUARY 2004.
10009C     *************************************************************
10010C     **  SET READ VARIABLE LABEL <ON/OFF/ROWLABEL>              **
10011C     *************************************************************
10012C
10013      IPART1='READ'
10014      IPART2='VARI'
10015      IPART3='LABE'
10016      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
10017     1   IHARG(3).EQ.IPART3)THEN
10018        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES')THEN
10019          IHV='ON'
10020        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
10021          IHV='OFF'
10022        ELSEIF(IHARG(4).EQ.'ROW ' .OR. IHARG(4).EQ.'ROWL')THEN
10023          IHV='ROWL'
10024        ELSE
10025          IHV='OFF'
10026        ENDIF
10027        IVARLA=IHV
10028        GOTO5160
10029      ENDIF
10030C
10031CCCCC FOLLOWING SECTION ADDED JANUARY 2004.
10032C     *****************************************************************
10033C     **  SET CONVERT CHARACTER <ERROR/IGNORE/CHARACTER/CATEGORICAL> **
10034C     *****************************************************************
10035C
10036      IPART1='CONV'
10037      IPART2='CHAR'
10038      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
10039        IF(IHV.EQ.'CHAR' .OR. IHV.EQ.'ON' .OR. IHV.EQ.'YES')THEN
10040          IHV='CHAR'
10041        ELSEIF(IHV.EQ.'ERRO' .OR. IHV.EQ.'DEFA')THEN
10042          IHV='ERRO'
10043        ELSEIF(IHV.EQ.'IGNO' .OR. IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR.
10044     1         IHV.EQ.'NONE')THEN
10045          IHV='IGNO'
10046        ELSEIF(IHV.EQ.'CATE')THEN
10047          IHV='CATE'
10048        ELSE
10049          IHV='ERRO'
10050        ENDIF
10051        IGRPAU=IHV
10052        GOTO5160
10053      ENDIF
10054C
10055CCCCC FOLLOWING SECTION ADDED JUNE 2018.
10056C     *************************************************************
10057C     **  SET ROW LABEL COLUMN <VALUE>                           **
10058C     *************************************************************
10059C
10060      IPART1='ROW'
10061      IPART2='LABE'
10062      IPART3='COLU'
10063      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
10064     1   IHARG(3).EQ.IPART3)THEN
10065        IF(IHARG(4).EQ.'DEFA' .OR. IHARG(4).EQ.'NO' .OR.
10066     1     IHARG(4).EQ.'OFF')THEN
10067          IV=-1
10068        ELSEIF(IHARG(4).EQ.'ON' .OR. IHARG(4).EQ.'YES')THEN
10069          IV=1
10070        ELSE
10071          IV=IARG(4)
10072          IF(IV.LT.1)IV=-1
10073          IF(IV.GT.50)IV=-1
10074        ENDIF
10075        IRWLCO=IV
10076        GOTO5150
10077      ENDIF
10078C
10079CCCCC FOLLOWING SECTION ADDED JULY 2018.
10080C     *************************************************************
10081C     **  SET KERNEL DENSITY RANDOM NUMBERS <VALUE>              **
10082C     *************************************************************
10083C
10084      IPART1='KERN'
10085      IPART2='DENS'
10086      IPART3='RAND'
10087      IPART4='NUMB'
10088      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
10089     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
10090        IF(IHARG(5).EQ.'DEFA' .OR. IHARG(5).EQ.'NO' .OR.
10091     1     IHARG(5).EQ.'OFF'  .OR. IHARG(5).EQ.'ON' .OR.
10092     1     IHARG(5).EQ.'YES')THEN
10093          IV=0
10094        ELSE
10095          IV=IARG(5)
10096          IF(IV.LT.1)IV=0
10097          IF(IV.GT.MAXOBV)IV=0
10098        ENDIF
10099        IKDERN=IV
10100        GOTO5150
10101      ENDIF
10102C
10103CCCCC FOLLOWING SECTION ADDED JULY 2018.
10104C     *************************************************************
10105C     **  SET KERNEL DENSITY PROBABILITY FUNCTION <PDF/CDF/PPF>  **
10106C     *************************************************************
10107C
10108      IPART1='KERN'
10109      IPART2='DENS'
10110      IPART3='PROB'
10111      IPART4='FUNC'
10112      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
10113     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
10114        IF(IHARG(5).EQ.'CDF')THEN
10115          IHV='CDF'
10116        ELSEIF(IHARG(5).EQ.'PPF')THEN
10117          IHV='PPF'
10118        ELSEIF(IHARG(5).EQ.'INVE' .AND. IHARG(6).EQ.'CDF')THEN
10119          IHV='PPF'
10120        ELSE
10121          IHV='PDF'
10122        ENDIF
10123        IKDEPF=IHV
10124        GOTO5160
10125      ENDIF
10126C
10127CCCCC FOLLOWING SECTION ADDED JANUARY 2004.
10128C     *************************************************************
10129C     **  SET READ DELIMITER <VALUE>                             **
10130C     *************************************************************
10131C
10132C     2012/09: TABS ARE COMMONLY USED AS DELIMITERS.  HOWEVER, TABS
10133C              ARE CONVERTED TO SPACES ON COMMAND LINES.  SO ALLOW
10134C              EXPLICITLY CHECK FOR "TAB" TO SET THE DELIMITER TO
10135C              A TAB.
10136C
10137      IPART1='READ'
10138      IPART2='DELI'
10139      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
10140        IF(IHV.EQ.'TAB')THEN
10141          IHV='    '
10142          IVAL=9
10143          CALL DPCONA(IVAL,IHV(1:1))
10144        ELSEIF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'DEFA')THEN
10145          IHV=' '
10146        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
10147          IHV=' '
10148        ENDIF
10149        IREADL=IHV
10150        GOTO5160
10151      ENDIF
10152C
10153CCCCC FOLLOWING SECTION ADDED JANUARY 2010.
10154C     *************************************************************
10155C     **  SET READ NON-PRINTING CHARACTERS <SPACE/DELETE>        **
10156C     *************************************************************
10157C
10158      IPART1='READ'
10159      IPART2='NONP'
10160      IPART3='CHAR'
10161      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
10162     1   IHARG(3).EQ.IPART3)THEN
10163        IF(IHV.EQ.'SPAC')THEN
10164          IHV='SPAC'
10165        ELSE
10166          IHV='DELE'
10167        ENDIF
10168        IREANP=IHV
10169        GOTO5160
10170      ENDIF
10171C
10172      IPART2='NON '
10173      IPART3='PRIN'
10174      IPART4='CHAR'
10175      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
10176     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
10177        IF(IHV.EQ.'SPAC')THEN
10178          IHV='SPAC'
10179        ELSE
10180          IHV='DELE'
10181        ENDIF
10182        IREANP=IHV
10183        GOTO5160
10184      ENDIF
10185C
10186CCCCC FOLLOWING SECTION ADDED OCTOBER 2004.
10187C     *************************************************************
10188C     **  SET READ SUBSET  <PACK/DISPERSE> <PACK/DISPERSE>       **
10189C     *************************************************************
10190C
10191      IPART1='READ'
10192      IPART2='SUBS'
10193      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
10194        IHV='P-D '
10195        IF(NUMARG.GE.3)THEN
10196          IF(IHARG(3).EQ.'PD')THEN
10197            IHV='P-D '
10198            IREASB=IHV
10199            GOTO5160
10200          ELSEIF(IHARG(3).EQ.'PP')THEN
10201            IHV='P-P '
10202            IREASB=IHV
10203            GOTO5160
10204          ELSEIF(IHARG(3).EQ.'DD')THEN
10205            IHV='D-D '
10206            IREASB=IHV
10207            GOTO5160
10208          ELSEIF(IHARG(3).EQ.'DP')THEN
10209            IHV='D-P '
10210            IREASB=IHV
10211            GOTO5160
10212          ELSEIF(IHARG(3).EQ.'DISP' .OR. IHARG(3).EQ.'D')THEN
10213            IHV(1:1)='D'
10214          ENDIF
10215        ENDIF
10216        IF(NUMARG.GE.4)THEN
10217          IF(IHARG(4).EQ.'PACK' .OR. IHARG(4).EQ.'P')THEN
10218            IHV(3:3)='P'
10219          ENDIF
10220        ENDIF
10221        IREASB=IHV
10222        GOTO5160
10223      ENDIF
10224C
10225CCCCC FOLLOWING SECTION ADDED OCTOBER 2004.
10226C     *************************************************************
10227C     **  SET READ PAD MISSING COLUMNS <ON/OFF>                  **
10228C     *************************************************************
10229C
10230      IPART1='READ'
10231      IPART2='PAD '
10232      IPART3='MISS'
10233      IPART4='COLU'
10234      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
10235     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
10236        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE')THEN
10237          IHV='ON'
10238        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'FALS' .OR.
10239     1         IHV.EQ.'DEFA')THEN
10240          IHV='OFF'
10241        ELSE
10242          IHV='OFF'
10243        ENDIF
10244        IREAPD=IHV
10245        GOTO5160
10246      ENDIF
10247C
10248CCCCC FOLLOWING SECTION ADDED JANUARY 2004.
10249C     *************************************************************
10250C     **  SET READ MISSING VALUE <VALUE>                         **
10251C     *************************************************************
10252C
10253      IPART1='READ'
10254      IPART2='MISS'
10255      IPART3='VALU'
10256      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
10257     1   IHARG(3).EQ.IPART3)THEN
10258        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'DEFA')THEN
10259          AV=0.0
10260        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
10261          AV=0.0
10262        ENDIF
10263        PREAMV=AV
10264        GOTO5170
10265      ENDIF
10266C
10267CCCCC FOLLOWING SECTION ADDED APRIL 2017.
10268C     *************************************************************
10269C     **  SET READ COMMA IGNORE <ON/OFF>                         **
10270C     *************************************************************
10271C
10272      IPART1='READ'
10273      IPART2='COMM'
10274      IPART3='IGNO'
10275      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
10276     1   IHARG(3).EQ.IPART3)THEN
10277        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE')THEN
10278          IHV='ON'
10279        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'FALS' .OR.
10280     1         IHV.EQ.'DEFA')THEN
10281          IHV='OFF'
10282        ELSE
10283          IHV='OFF'
10284        ENDIF
10285        IREACM=IHV
10286        GOTO5160
10287      ENDIF
10288C
10289CCCCC FOLLOWING SECTION ADDED APRIL 2017.
10290C     *************************************************************
10291C     **  SET READ DOLLAR SIGN IGNORE <ON/OFF>                   **
10292C     *************************************************************
10293C
10294      IPART1='READ'
10295      IPART2='DOLL'
10296      IPART3='SIGN'
10297      IPART4='IGNO'
10298      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
10299     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
10300        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE')THEN
10301          IHV='ON'
10302        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'FALS' .OR.
10303     1         IHV.EQ.'DEFA')THEN
10304          IHV='OFF'
10305        ELSE
10306          IHV='OFF'
10307        ENDIF
10308        IREADS=IHV
10309        GOTO5160
10310      ENDIF
10311C
10312CCCCC FOLLOWING SECTION ADDED OCTOBER 2019.
10313C     *************************************************************
10314C     **  SET READ PERCENT SIGN IGNORE <ON/OFF>                  **
10315C     *************************************************************
10316C
10317      IPART1='READ'
10318      IPART2='PERC'
10319      IPART3='SIGN'
10320      IPART4='IGNO'
10321      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
10322     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
10323        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE')THEN
10324          IHV='ON'
10325        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'FALS' .OR.
10326     1         IHV.EQ.'DEFA')THEN
10327          IHV='OFF'
10328        ELSE
10329          IHV='OFF'
10330        ENDIF
10331        IREAPC=IHV
10332        GOTO5160
10333      ENDIF
10334C
10335CCCCC FOLLOWING SECTION ADDED APRIL 2017.
10336C     *************************************************************
10337C     **  SET READ TRAILING PLUS MINUS IGNORE <ON/OFF>           **
10338C     *************************************************************
10339C
10340      IPART1='READ'
10341      IPART2='TRAI'
10342      IPART3='PLUS'
10343      IPART4='MINU'
10344      IPART5='IGNO'
10345      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
10346     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
10347     1   IHARG(5).EQ.IPART5)THEN
10348        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE')THEN
10349          IHV='ON'
10350        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'FALS' .OR.
10351     1         IHV.EQ.'DEFA')THEN
10352          IHV='OFF'
10353        ELSE
10354          IHV='OFF'
10355        ENDIF
10356        IREAPM=IHV
10357        GOTO5160
10358      ENDIF
10359C
10360CCCCC FOLLOWING SECTION ADDED APRIL 2019.
10361C     *************************************************************
10362C     **  SET READ ASTERISK IGNORE <ON/OFF>                      **
10363C     *************************************************************
10364C
10365      IPART1='READ'
10366      IPART2='ASTE'
10367      IPART3='IGNO'
10368      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
10369     1   IHARG(3).EQ.IPART3)THEN
10370        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE')THEN
10371          IHV='ON'
10372        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'FALS' .OR.
10373     1         IHV.EQ.'DEFA')THEN
10374          IHV='OFF'
10375        ELSE
10376          IHV='OFF'
10377        ENDIF
10378        IREAAS=IHV
10379        GOTO5160
10380      ENDIF
10381C
10382CCCCC FOLLOWING SECTION ADDED APRIL 2017.
10383C     *************************************************************
10384C     **  SET CHARACTER FIELD COMMA DELIMITER <ON/OFF>           **
10385C     *************************************************************
10386C
10387      IPART1='CHAR'
10388      IPART2='FIEL'
10389      IPART3='COMM'
10390      IPART4='DELI'
10391      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
10392     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
10393        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE')THEN
10394          IHV='ON'
10395        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'FALS' .OR.
10396     1         IHV.EQ.'DEFA')THEN
10397          IHV='OFF'
10398        ELSE
10399          IHV='OFF'
10400        ENDIF
10401        IREACD=IHV
10402        GOTO5160
10403      ENDIF
10404C
10405CCCCC FOLLOWING SECTION ADDED APRIL 2017.
10406C     *************************************************************
10407C     **  SET READ CHARACTER MISSING VALUE <VALUE>               **
10408C     *************************************************************
10409C
10410      IPART1='READ'
10411      IPART2='CHAR'
10412      IPART3='MISS'
10413      IPART4='VALU'
10414      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
10415     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
10416        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'DEFA'.OR.
10417     1     IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
10418          IREAMC='ZZZZNULL'
10419        ELSE
10420          IREAMC(1:4)=IHARG(5)
10421          IREAMC(5:8)=IHARG2(5)
10422        ENDIF
10423        GOTO5160
10424      ENDIF
10425C
10426CCCCC FOLLOWING SECTION ADDED NOVEMBER 2019.
10427C     *************************************************************
10428C     **  SET OUTPUT LINE NUMBERS      <ON/OFF>                  **
10429C     *************************************************************
10430C
10431      IPART1='OUTP'
10432      IPART2='LINE'
10433      IPART3='NUMB'
10434      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
10435     1   IHARG(3).EQ.IPART3)THEN
10436        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE')THEN
10437          IHV='ON'
10438        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'FALS' .OR.
10439     1         IHV.EQ.'DEFA')THEN
10440          IHV='OFF'
10441        ELSE
10442          IHV='OFF'
10443        ENDIF
10444        IOUTLN=IHV
10445        GOTO5160
10446      ENDIF
10447C
10448CCCCC FOLLOWING SECTION ADDED MARCH 2004.
10449C     *************************************************************
10450C     **  SET GEOMETRIC DEFINITION                               **
10451C     **      <JOHNSON AND KOTZ/DLMF>                            **
10452C     *************************************************************
10453C
10454      IPART1='GEOM'
10455      IPART2='DEFI'
10456      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
10457        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'DEFA')THEN
10458          IHV='KOTZ'
10459        ELSEIF(IHV.EQ.'JOHN' .OR. IHV.EQ.'KOTZ' .OR. IHV.EQ.'1')THEN
10460          IHV='KOTZ'
10461        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
10462          IHV='KOTZ'
10463        ELSEIF(IHV.EQ.'DLMF' .OR. IHV.EQ.'2')THEN
10464          IHV='DLMF'
10465        ENDIF
10466        IGEODF=IHV
10467        GOTO5160
10468      ENDIF
10469C
10470CCCCC FOLLOWING SECTION ADDED MAY   2006.
10471C     *************************************************************
10472C     **  SET BETA GEOMETRIC DEFINITION                          **
10473C     **      <UNSHIFTED/SHIFTED>                                **
10474C     *************************************************************
10475C
10476      IPART1='BETA'
10477      IPART2='GEOM'
10478      IPART3='DEFI'
10479      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
10480     1   IHARG(3).EQ.IPART3)THEN
10481        IF(IHV.EQ.'SHIF')THEN
10482          IHV='SHIF'
10483        ELSE
10484          IHV='UNSH'
10485        ENDIF
10486        IBGEDF=IHV
10487        GOTO5160
10488      ENDIF
10489C
10490CCCCC FOLLOWING SECTION ADDED JULY  2006.
10491C     *************************************************************
10492C     **  SET GEETA          DEFINITION                          **
10493C     **      <THETA/MU>                                         **
10494C     *************************************************************
10495C
10496      IPART1='GEET'
10497      IPART2='DEFI'
10498      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
10499        IF(IHV.EQ.'MU  ' .OR. IHV.EQ.'LOCA' .OR. IHV.EQ.'MEAN')THEN
10500          IHV='MU  '
10501        ELSE
10502          IHV='THET'
10503        ENDIF
10504        IGETDF=IHV
10505        GOTO5160
10506      ENDIF
10507C
10508CCCCC FOLLOWING SECTION ADDED AUGUST  2006.
10509C     *************************************************************
10510C     **  SET CONSUL         DEFINITION                          **
10511C     **      <THETA/MU>                                         **
10512C     *************************************************************
10513C
10514      IPART1='CONS'
10515      IPART2='DEFI'
10516      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
10517        IF(IHV.EQ.'MU  ' .OR. IHV.EQ.'LOCA' .OR. IHV.EQ.'MEAN')THEN
10518          IHV='MU  '
10519        ELSE
10520          IHV='THET'
10521        ENDIF
10522        ICONDF=IHV
10523        GOTO5160
10524      ENDIF
10525C
10526CCCCC FOLLOWING SECTION ADDED JANUARY 2007.
10527C     *************************************************************
10528C     **  SET GOMPERTZ       DEFINITION                          **
10529C     **      <JOHNSON/GARG>                                     **
10530C     *************************************************************
10531C
10532      IPART1='GOMP'
10533      IPART2='DEFI'
10534      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
10535        IF(IHV.EQ.'GARG' .OR. IHV.EQ.'ALPH' .OR. IHV.EQ.'K   ')THEN
10536          IHV='GARG'
10537        ELSE
10538          IHV='JOHN'
10539        ENDIF
10540        IGOMDF=IHV
10541        GOTO5160
10542      ENDIF
10543C
10544CCCCC FOLLOWING SECTION ADDED JULY    2008.
10545C     *************************************************************
10546C     **  SET GENERALIZED INVERSE GAUSSIAN DEFINITION            **
10547C     **      <2-PARAMETER/3-PARAMETER>                          **
10548C     *************************************************************
10549C
10550      IPART1='GENE'
10551      IPART2='INVE'
10552      IPART3='GAUS'
10553      IPART4='DEFI'
10554      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
10555     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
10556        IF(IHARG(5).EQ.'2PAR')THEN
10557          IHV='2PAR'
10558        ELSEIF(IHARG(5).EQ.'2   ' .AND. IHARG(6).EQ.'PARA')THEN
10559          IHV='2PAR'
10560        ELSEIF(IHARG(5).EQ.'3PAR')THEN
10561          IHV='3PAR'
10562        ELSEIF(IHARG(5).EQ.'3   ' .AND. IHARG(6).EQ.'PARA')THEN
10563          IHV='3PAR'
10564        ELSE
10565          IHV='2PAR'
10566        ENDIF
10567        IGIGDF=IHV
10568        GOTO5160
10569      ENDIF
10570C
10571CCCCC FOLLOWING SECTION ADDED JANUARY 2007.
10572C     *************************************************************
10573C     **  SET KATZ           DEFINITION                          **
10574C     **      <DEFAULT/MOMENT>                                   **
10575C     *************************************************************
10576C
10577      IPART1='KATZ'
10578      IPART2='DEFI'
10579      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
10580        IF(IHV.EQ.'MOME')THEN
10581          IHV='MOME'
10582        ELSE
10583          IHV='DEFA'
10584        ENDIF
10585        IKATDF=IHV
10586        GOTO5160
10587      ENDIF
10588C
10589CCCCC FOLLOWING SECTION ADDED JUNE 2004.
10590C     *************************************************************
10591C     **  SET ASYMMETRIC DOUBLE EXPONENTIAL DEFINITION           **
10592C     **      <K/MU>                                             **
10593C     *************************************************************
10594C
10595      IPART1='ASYM'
10596      IPART2='DOUB'
10597      IPART3='EXPO'
10598      IPART4='DEFI'
10599      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
10600     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
10601        IF(IHV.EQ.'MU' .OR. IHV.EQ.'U' .OR. IHV.EQ.'2')THEN
10602          IHV='MU'
10603        ELSE
10604          IHV='K'
10605        ENDIF
10606        IADEDF=IHV
10607        GOTO5160
10608      ENDIF
10609C
10610      IPART1='ASYM'
10611      IPART2='LAPL'
10612      IPART3='DEFI'
10613      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
10614     1   IHARG(3).EQ.IPART3)THEN
10615        IF(IHV.EQ.'MU' .OR. IHV.EQ.'U' .OR. IHV.EQ.'2')THEN
10616          IHV='MU'
10617        ELSE
10618          IHV='K'
10619        ENDIF
10620        IADEDF=IHV
10621        GOTO5160
10622      ENDIF
10623C
10624CCCCC FOLLOWING SECTION ADDED JUNE 2004.
10625C     *************************************************************
10626C     **  SET GENERALIZED PARETO            DEFINITION           **
10627C     **      <JOHNSON AND KOTZ/SIMIU>                           **
10628C     *************************************************************
10629C
10630      IPART1='GENE'
10631      IPART2='PARE'
10632      IPART3='DEFI'
10633      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
10634     1   IHARG(3).EQ.IPART3)THEN
10635        IF(IHV.EQ.'JOHN' .OR. IHV.EQ.'KOTZ' .OR. IHV.EQ.'2')THEN
10636          IHV='JOHN'
10637        ELSE
10638          IHV='SIMI'
10639        ENDIF
10640        IGEPDF=IHV
10641        GOTO5160
10642      ENDIF
10643C
10644CCCCC FOLLOWING SECTION ADDED OCTOBER 2005.
10645C     *************************************************************
10646C     **  SET GENERALIZED PARETO MLE STARTING VALUES             **
10647C     **      <MOMENTS/L MOMENTS/ELEMENTAL PERCENTILES/          **
10648C     **       USER SPECIFIED>                                   **
10649C     *************************************************************
10650C
10651      IPART1='GENE'
10652      IPART2='PARE'
10653      IPART3='MLE '
10654      IPART4='STAR'
10655      IPART5='VALU'
10656      IPART6='ML  '
10657      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
10658     1   (IHARG(3).EQ.IPART3.OR.IHARG(3).EQ.IPART6).AND.
10659     1   IHARG(4).EQ.IPART4.AND.IHARG(5).EQ.IPART5)THEN
10660        IHV='EPER'
10661        IF(IHARG(6).EQ.'MOME')THEN
10662          IHV='MOME'
10663        ELSEIF(IHARG(6).EQ.'L   '.AND.IHARG(7).EQ.'MOME')THEN
10664          IHV='LMOM'
10665        ELSEIF(IHARG(6).EQ.'ELEM'.AND.IHARG(7).EQ.'PERC')THEN
10666          IHV='EPER'
10667        ELSEIF(IHARG(6).EQ.'USER')THEN
10668          IHV='USER'
10669        ELSE
10670          IHV='EPER'
10671        ENDIF
10672        IGEPSV=IHV
10673        GOTO5160
10674      ENDIF
10675C
10676CCCCC FOLLOWING SECTION ADDED JULY 2005.
10677C     *************************************************************
10678C     **  SET LOG GAMMA                     DEFINITION           **
10679C     **      <DEFAULT/REPARAMETERIZED>                          **
10680C     *************************************************************
10681C
10682      IPART1='LOG '
10683      IPART2='GAMM'
10684      IPART3='DEFI'
10685      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
10686     1   IHARG(3).EQ.IPART3)THEN
10687        IF(IHV.EQ.'REPA')THEN
10688          IHV='REPA'
10689        ELSE
10690          IHV='DEFA'
10691        ENDIF
10692        ILGADF=IHV
10693        GOTO5160
10694      ENDIF
10695C
10696CCCCC FOLLOWING SECTION ADDED JULY 2005.
10697C     *************************************************************
10698C     **  SET SKEW NORMAL                   DEFINITION           **
10699C     **      <DEFAULT/REPARAMETERIZED>                          **
10700C     *************************************************************
10701C
10702      IPART1='SKEW'
10703      IPART2='NORM'
10704      IPART3='DEFI'
10705      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
10706     1   IHARG(3).EQ.IPART3)THEN
10707        IF(IHV.EQ.'REPA')THEN
10708          IHV='REPA'
10709        ELSE
10710          IHV='DEFA'
10711        ENDIF
10712        ISKNDF=IHV
10713        GOTO5160
10714      ENDIF
10715C
10716CCCCC FOLLOWING SECTION ADDED FEBRUARY 2006.
10717C     *************************************************************
10718C     **  SET GENERALIZED TUKEY LAMBDA      DEFINITION           **
10719C     **      <FMKL/RAMB>                                        **
10720C     *************************************************************
10721C
10722      IPART1='GENE'
10723      IPART2='TUKE'
10724      IPART3='LAMB'
10725      IPART4='DEFI'
10726      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
10727     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
10728        IF(IHV.EQ.'RAMB' .OR. IHV.EQ.'SCHM')THEN
10729          IHV='RAMB'
10730        ELSE
10731          IHV='FMKL'
10732        ENDIF
10733        IGLDDF=IHV
10734        GOTO5160
10735      ENDIF
10736C
10737CCCCC FOLLOWING SECTION ADDED MARCH 2006.
10738C     *************************************************************
10739C     **  SET TEMPORARY FILE <PID/IGNORE>                        **
10740C     *************************************************************
10741C
10742      IPART1='TEMP'
10743      IPART2='FILE'
10744      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
10745        IF(IHV.EQ.'PID ' .OR. IHV.EQ.'ID  ')THEN
10746          IHV='PID '
10747        ELSE
10748          IHV='IGNO'
10749        ENDIF
10750        ITMPFI=IHV
10751        GOTO5160
10752      ENDIF
10753C
10754CCCCC FOLLOWING SECTION ADDED JULY 2004.
10755C     *************************************************************
10756C     **  SET GOMPERTZ MAKEHAM              DEFINITION           **
10757C     **      <DLMF/MEEKER>                                      **
10758C     *************************************************************
10759C
10760      IPART1='GOMP'
10761      IPART2='MAKE'
10762      IPART3='DEFI'
10763      IPART4='REPA'
10764      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
10765     1   IHARG(3).EQ.IPART3)THEN
10766        IF(IHARG(4).EQ.IPART4 .AND.
10767     1     (IHV.EQ.'MEEK' .OR. IHV.EQ.'ESCO' .OR. IHV.EQ.'3'))THEN
10768          IHV='REPA'
10769        ELSEIF(IHV.EQ.'MEEK' .OR. IHV.EQ.'ESCO' .OR. IHV.EQ.'2')THEN
10770          IHV='MEEK'
10771        ELSE
10772          IHV='DLMF'
10773        ENDIF
10774        IMAKDF=IHV
10775        GOTO5160
10776      ENDIF
10777C
10778CCCCC FOLLOWING SECTION ADDED AUGUST 2004.
10779C     *************************************************************
10780C     **  SET BESSEL I FUNCTION             DEFINITION           **
10781C     **      <1/2>                                              **
10782C     *************************************************************
10783C
10784      IPART1='BESS'
10785      IPART2='I   '
10786      IPART3='FUNC'
10787      IPART4='DEFI'
10788      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
10789     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
10790        IF(IHARG(5).EQ.'2   ')THEN
10791          IHV='2   '
10792        ELSE
10793          IHV='1   '
10794        ENDIF
10795        IBEIDF=IHV
10796        GOTO5160
10797      ENDIF
10798C
10799CCCCC FOLLOWING SECTION ADDED AUGUST 2004.
10800C     *************************************************************
10801C     **  SET BESSEL K FUNCTION             DEFINITION           **
10802C     **      <1/2>                                              **
10803C     *************************************************************
10804C
10805      IPART1='BESS'
10806      IPART2='K   '
10807      IPART3='FUNC'
10808      IPART4='DEFI'
10809      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
10810     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
10811        IF(IHARG(5).EQ.'2   ')THEN
10812          IHV='2   '
10813        ELSE
10814          IHV='1   '
10815        ENDIF
10816        IBEIDF=IHV
10817        GOTO5160
10818      ENDIF
10819C
10820CCCCC FOLLOWING SECTION ADDED JUNE    2006.
10821C     *************************************************************
10822C     **  SET FORTRAN FORMAT CONTROL <ON/OFF>                    **
10823C     *************************************************************
10824C
10825      IPART1='FORT'
10826      IPART2='FORM'
10827      IPART3='CONT'
10828      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
10829     1   IHARG(3).EQ.IPART3)THEN
10830        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES')THEN
10831          IHV='ON'
10832        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
10833          IHV='OFF'
10834        ELSE
10835          IHV='ON'
10836        ENDIF
10837        IFORFM=IHV
10838        GOTO5160
10839      ENDIF
10840C
10841CCCCC FOLLOWING SECTION ADDED OCTOBER 2004.
10842C     ***********************************************************
10843C     **  SET MAXIMUM LIKELIHOOD PERCENTILES <NONE/DEFAULT/    **
10844C     **      VARIABLE NAME>                                   **
10845C     ************************************************************
10846C
10847      IPART1='MAXI'
10848      IPART2='LIKE'
10849      IPART3='PERC'
10850      IPART4='QUAN'
10851      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
10852     1   (IHARG(3).EQ.IPART3.OR.IHARG(3).EQ.IPART4))THEN
10853        IF(IHV.EQ.'NO' .OR. IHV.EQ.'OFF' .OR. IHV.EQ.'FALSE')THEN
10854          IQUAVR='NONE'
10855        ELSEIF(IHV.EQ.'YES' .OR. IHV.EQ.'ON' .OR. IHV.EQ.'TRUE' .OR.
10856     1         IHV.EQ.'DEFA')THEN
10857          IQUAVR='DEFAULT'
10858        ELSE
10859          IQUAVR(1:4)=IHV
10860          IQUAVR(5:8)=IHV2
10861        ENDIF
10862        IFOUND='YES'
10863        IF(IFEEDB.EQ.'ON')THEN
10864          WRITE(ICOUT,999)
10865          CALL DPWRST('XXX','BUG ')
10866          WRITE(ICOUT,55161)IQUAVR
1086755161     FORMAT('THE MAXIMUM LIKELIHOOD PERCENTILES VARIABLE HAS ',
10868     1           'BEEN SET TO ',A8)
10869          CALL DPWRST('XXX','BUG ')
10870        ENDIF
10871        GOTO9000
10872      ENDIF
10873C
10874CCCCC FOLLOWING SECTION ADDED DECEMBER 2004.
10875C     ***********************************************************
10876C     **  SET MAXIMUM LIKELIHOOD RELIABILITY <NONE/DEFAULT/    **
10877C     **      VARIABLE NAME>                                   **
10878C     ************************************************************
10879C
10880      IPART1='MAXI'
10881      IPART2='LIKE'
10882      IPART3='RELI'
10883      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
10884     1   IHARG(3).EQ.IPART3)THEN
10885        IF(IHV.EQ.'NO' .OR. IHV.EQ.'OFF' .OR. IHV.EQ.'FALSE')THEN
10886          IRELVR='NONE'
10887        ELSEIF(IHV.EQ.'YES' .OR. IHV.EQ.'ON' .OR. IHV.EQ.'TRUE')THEN
10888          IRELVR='DEFAULT'
10889        ELSE
10890          IRELVR(1:4)=IHV
10891          IRELVR(5:8)=IHV2
10892        ENDIF
10893        IFOUND='YES'
10894        IF(IFEEDB.EQ.'ON')THEN
10895          WRITE(ICOUT,999)
10896          CALL DPWRST('XXX','BUG ')
10897          WRITE(ICOUT,55163)IRELVR
1089855163     FORMAT('THE MAXIMUM LIKELIHOOD PERCENTILES VARIABLE HAS ',
10899     1           'BEEN SET TO ',A8)
10900          CALL DPWRST('XXX','BUG ')
10901        ENDIF
10902        GOTO9000
10903      ENDIF
10904C
10905CCCCC FOLLOWING SECTION ADDED JUNE     2006.
10906C               *********************************************
10907C               **  STEP 20.A--                            **
10908C               **  THE FOLLOWING SECTION IS FOR THE       **
10909C               **  MEAN COMMAND.  YOU CAN TURN EACH       **
10910C               **  OF THE METHODS ON INDIVIDUALLY.        **
10911C               **  SET   MANDEL PAULE                     **
10912C               **  SET   MODIFIED MANDEL PAULE            **
10913C               **  SET   VANGEL RUHKIN                    **
10914C               **  SET   BOB                              **
10915C               **  SET   SCHILLER EBERHARDT               **
10916C               **  SET   METHOD OF MEANS                  **
10917C               **  SET   GRAYBILL DEAL                    **
10918C               **  SET   GRAND MEAN                       **
10919C               **  SET   GENERALIZED CONFIDENCE INTERVALS **
10920C               **  SET   DERSIMONIAN LAIRD                **
10921C               **  SET   FAIRWEATHER                      **
10922C               *********************************************
10923C
10924      IPART1='MAND'
10925      IPART2='PAUL'
10926      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
10927        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES')THEN
10928          IHV='ON'
10929        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
10930          IHV='OFF'
10931        ELSE
10932          IHV='ON'
10933        ENDIF
10934        IMPACM=IHV
10935        GOTO5160
10936      ENDIF
10937C
10938      IPART1='MODI'
10939      IPART2='MAND'
10940      IPART3='PAUL'
10941      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
10942     1   IHARG(3).EQ.IPART3)THEN
10943        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES')THEN
10944          IHV='ON'
10945        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
10946          IHV='OFF'
10947        ELSE
10948          IHV='ON'
10949        ENDIF
10950        IMMPCM=IHV
10951        GOTO5160
10952      ENDIF
10953C
10954      IPART1='VANG'
10955      IPART2='RUHK'
10956      IPART3='RUKH'
10957      IPART4='BOOT'
10958      IF(IHARG(1).EQ.IPART1.AND.
10959     1   (IHARG(2).EQ.IPART2 .OR. IHARG(2).EQ.IPART3).AND.
10960     !    IHARG(3).EQ.IPART4)THEN
10961        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES')THEN
10962          IHV='ON'
10963        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
10964          IHV='OFF'
10965        ELSE
10966          IHV='ON'
10967        ENDIF
10968        IVRBCM=IHV
10969        GOTO5160
10970      ENDIF
10971C
10972      IPART1='VANG'
10973      IPART2='RUHK'
10974      IPART3='RUKH'
10975      IF(IHARG(1).EQ.IPART1.AND.
10976     1   (IHARG(2).EQ.IPART2 .OR. IHARG(2).EQ.IPART3))THEN
10977        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES')THEN
10978          IHV='ON'
10979        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
10980          IHV='OFF'
10981        ELSE
10982          IHV='ON'
10983        ENDIF
10984        IVRUCM=IHV
10985        GOTO5160
10986      ENDIF
10987C
10988      IPART1='RUHK'
10989      IPART2='VANG'
10990      IPART3='RUKH'
10991      IPART4='BOOT'
10992      IF((IHARG(1).EQ.IPART1.OR.IHARG(1).EQ.IPART3).AND.
10993     1   IHARG(2).EQ.IPART2.AND.IHARG(3).EQ.IPART4)THEN
10994        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES')THEN
10995          IHV='ON'
10996        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
10997          IHV='OFF'
10998        ELSE
10999          IHV='ON'
11000        ENDIF
11001        IVRBCM=IHV
11002        GOTO5160
11003      ENDIF
11004C
11005      IPART1='RUHK'
11006      IPART2='VANG'
11007      IPART3='RUKH'
11008      IF((IHARG(1).EQ.IPART1.OR.IHARG(1).EQ.IPART3).AND.
11009     1   IHARG(2).EQ.IPART2)THEN
11010        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES')THEN
11011          IHV='ON'
11012        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
11013          IHV='OFF'
11014        ELSE
11015          IHV='ON'
11016        ENDIF
11017        IVRUCM=IHV
11018        GOTO5160
11019      ENDIF
11020C
11021      IPART1='MAXI'
11022      IPART2='LIKE'
11023      IPART3='BOOT'
11024      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
11025     1   IHARG(3).EQ.'BOOT')THEN
11026        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES')THEN
11027          IHV='ON'
11028        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
11029          IHV='OFF'
11030        ELSE
11031          IHV='ON'
11032        ENDIF
11033        IVRBCM=IHV
11034        GOTO5160
11035      ENDIF
11036C
11037      IPART1='MAXI'
11038      IPART2='LIKE'
11039      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
11040        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES')THEN
11041          IHV='ON'
11042        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
11043          IHV='OFF'
11044        ELSE
11045          IHV='ON'
11046        ENDIF
11047        IVRUCM=IHV
11048        GOTO5160
11049      ENDIF
11050C
11051      IPART1='SCHI'
11052      IPART2='EBER'
11053      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
11054        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES')THEN
11055          IHV='ON'
11056        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
11057          IHV='OFF'
11058        ELSE
11059          IHV='ON'
11060        ENDIF
11061        ISCECM=IHV
11062        GOTO5160
11063      ENDIF
11064C
11065      IPART1='BOB '
11066      IF(IHARG(1).EQ.IPART1)THEN
11067        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES')THEN
11068          IHV='ON'
11069        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
11070          IHV='OFF'
11071        ELSE
11072          IHV='ON'
11073        ENDIF
11074        IBOBCM=IHV
11075        GOTO5160
11076      ENDIF
11077C
11078      IPART1='MEAN'
11079      IPART2='OF  '
11080      IPART3='MEAN'
11081      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
11082     1   IHARG(3).EQ.IPART3)THEN
11083        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES')THEN
11084          IHV='ON'
11085        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
11086          IHV='OFF'
11087        ELSE
11088          IHV='ON'
11089        ENDIF
11090        IMOMCM=IHV
11091        GOTO5160
11092      ENDIF
11093C
11094      IPART1='MEDI'
11095      IPART2='OF  '
11096      IPART3='MEAN'
11097      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
11098     1   IHARG(3).EQ.IPART3)THEN
11099        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES')THEN
11100          IHV='ON'
11101        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
11102          IHV='OFF'
11103        ELSE
11104          IHV='ON'
11105        ENDIF
11106        IMEMCM=IHV
11107        GOTO5160
11108      ENDIF
11109C
11110      IPART1='TRIM'
11111      IPART2='MEAN'
11112      IPART3='OF  '
11113      IPART4='MEAN'
11114      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
11115     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
11116        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES')THEN
11117          IHV='ON'
11118        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
11119          IHV='OFF'
11120        ELSE
11121          IHV='ON'
11122        ENDIF
11123        ITRMCM=IHV
11124        GOTO5160
11125      ENDIF
11126C
11127      IPART1='HUBE'
11128      IPART2='MEAN'
11129      IPART3='OF  '
11130      IPART4='MEAN'
11131      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
11132     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
11133        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES')THEN
11134          IHV='ON'
11135        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
11136          IHV='OFF'
11137        ELSE
11138          IHV='ON'
11139        ENDIF
11140        IHUBCM=IHV
11141        GOTO5160
11142      ENDIF
11143C
11144      IPART1='GRAY'
11145      IPART2='DEAL'
11146      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
11147        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES')THEN
11148          IHV='ON'
11149        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
11150          IHV='OFF'
11151        ELSE
11152          IHV='ON'
11153        ENDIF
11154        IGRDCM=IHV
11155        GOTO5160
11156      ENDIF
11157C
11158      IPART1='GRAN'
11159      IPART2='MEAN'
11160      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
11161        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES')THEN
11162          IHV='ON'
11163        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
11164          IHV='OFF'
11165        ELSE
11166          IHV='ON'
11167        ENDIF
11168        IGMECM=IHV
11169        GOTO5160
11170      ENDIF
11171C
11172      IPART1='GENE'
11173      IPART2='CONF'
11174      IPART3='INTE'
11175      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
11176     1   IHARG(3).EQ.IPART3)THEN
11177        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES')THEN
11178          IHV='ON'
11179        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
11180          IHV='OFF'
11181        ELSE
11182          IHV='ON'
11183        ENDIF
11184        IGCICM=IHV
11185        GOTO5160
11186      ENDIF
11187C
11188      IPART1='DERS'
11189      IPART2='LAIR'
11190      IPART3='HHD'
11191      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
11192     1   IHARG(3).EQ.IPART3)THEN
11193        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES')THEN
11194          IHV='ON'
11195        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
11196          IHV='OFF'
11197        ELSE
11198          IHV='ON'
11199        ENDIF
11200        IDS2CM=IHV
11201        GOTO5160
11202      ENDIF
11203C
11204      IPART1='DERS'
11205      IPART2='LAIR'
11206      IPART3='MINM'
11207      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
11208     1   IHARG(3).EQ.IPART3)THEN
11209        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES')THEN
11210          IHV='ON'
11211        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
11212          IHV='OFF'
11213        ELSE
11214          IHV='ON'
11215        ENDIF
11216        IDS3CM=IHV
11217        GOTO5160
11218      ENDIF
11219C
11220      IPART1='DERS'
11221      IPART2='LAIR'
11222      IPART3='BOOT'
11223      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
11224     1   IHARG(3).EQ.IPART3)THEN
11225        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES')THEN
11226          IHV='ON'
11227        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
11228          IHV='OFF'
11229        ELSE
11230          IHV='ON'
11231        ENDIF
11232        IDS4CM=IHV
11233        GOTO5160
11234      ENDIF
11235C
11236      IPART1='DERS'
11237      IPART2='LAIR'
11238      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
11239        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES')THEN
11240          IHV='ON'
11241        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
11242          IHV='OFF'
11243        ELSE
11244          IHV='ON'
11245        ENDIF
11246        IDSLCM=IHV
11247        GOTO5160
11248      ENDIF
11249C
11250      IPART1='FAIR'
11251      IPART2='    '
11252      IF(IHARG(1).EQ.IPART1)THEN
11253        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES')THEN
11254          IHV='ON'
11255        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
11256          IHV='OFF'
11257        ELSE
11258          IHV='ON'
11259        ENDIF
11260        IFAICM=IHV
11261        GOTO5160
11262      ENDIF
11263C
11264      IPART1='BAYE'
11265      IPART2='CONS'
11266      IPART3='PROC'
11267      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
11268     1   IHARG(3).EQ.IPART3)THEN
11269        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES')THEN
11270          IHV='ON'
11271        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
11272          IHV='OFF'
11273        ELSE
11274          IHV='ON'
11275        ENDIF
11276        IBCPCM=IHV
11277        GOTO5160
11278      ENDIF
11279C
11280CCCCC FOLLOWING SECTION ADDED FEBRUARY 2007
11281C     *************************************************************
11282C     **  SET BINOMIAL CONTINUITY CORRECTION <ON/OFF>            **
11283C     *************************************************************
11284C
11285      IPART1='BINO'
11286      IPART2='CONT'
11287      IPART3='CORR'
11288      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
11289     1   IHARG(3).EQ.IPART3)THEN
11290        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES')THEN
11291          IHV='ON'
11292        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
11293          IHV='OFF'
11294        ELSE
11295          IHV='OFF'
11296        ENDIF
11297        IBINCC=IHV
11298        GOTO5160
11299      ENDIF
11300C
11301CCCCC FOLLOWING SECTION ADDED APRIL  2008
11302C     *************************************************************
11303C     **  SET BINOMIAL TAIL <LOWER/UPPER/TWO-SIDED>              **
11304C     *************************************************************
11305C
11306      IPART1='BINO'
11307      IPART2='TAIL'
11308      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
11309        IF(IHV.EQ.'LOWE')THEN
11310          IHV='LOWE'
11311        ELSEIF(IHV.EQ.'UPPE')THEN
11312          IHV='UPPE'
11313        ELSE
11314          IHV='TWOS'
11315        ENDIF
11316        IBINTA=IHV
11317        GOTO5160
11318      ENDIF
11319C
11320CCCCC FOLLOWING SECTION ADDED MAY  2007
11321C     *************************************************************
11322C     **  SET POISSON PLOT LEVEL             <ON/OFF>            **
11323C     *************************************************************
11324C
11325      IPART1='POIS'
11326      IPART2='PLOT'
11327      IPART3='LEVE'
11328      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
11329     1   IHARG(3).EQ.IPART3)THEN
11330        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES')THEN
11331          IHV='ON'
11332        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
11333          IHV='OFF'
11334        ELSE
11335          IHV='OFF'
11336        ENDIF
11337        IPOILV=IHV
11338        GOTO5160
11339      ENDIF
11340C
11341CCCCC FOLLOWING SECTION ADDED APRIL 2007
11342C     *************************************************************
11343C     **  SET FATAL ERROR <IGNORE/TERMINATE/PROMPT>              **
11344C     *************************************************************
11345C
11346      IPART1='FATA'
11347      IPART2='ERRO'
11348      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
11349        IF(IHV.EQ.'PROM' .OR. IHV.EQ.'PAUS')THEN
11350          IHV='PROM'
11351        ELSEIF(IHV.EQ.'TERM' .OR. IHV.EQ.'EXIT' .OR.
11352     1         IHV.EQ.'STOP' .OR. IHV.EQ.'HALT' .OR.
11353     1         IHV.EQ.'QUIT')THEN
11354          IHV='TERM'
11355        ELSE
11356          IHV='IGNO'
11357        ENDIF
11358        IERRFA=IHV
11359        GOTO5160
11360      ENDIF
11361C
11362CCCCC FOLLOWING SECTION ADDED OCTOBER 2015
11363C     *************************************************************
11364C     **  SET WARNING ERROR <IGNORE/TERMINATE/PROMPT>            **
11365C     *************************************************************
11366C
11367      IPART1='WARN'
11368      IPART2='ERRO'
11369      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
11370        IF(IHV.EQ.'PROM' .OR. IHV.EQ.'PAUS')THEN
11371          IHV='PROM'
11372        ELSEIF(IHV.EQ.'TERM' .OR. IHV.EQ.'EXIT' .OR.
11373     1         IHV.EQ.'STOP' .OR. IHV.EQ.'HALT' .OR.
11374     1         IHV.EQ.'QUIT')THEN
11375          IHV='TERM'
11376        ELSE
11377          IHV='IGNO'
11378        ENDIF
11379        IERRWA=IHV
11380        GOTO5160
11381      ENDIF
11382C
11383CCCCC FOLLOWING SECTION ADDED MAY 2007
11384C     *************************************************************
11385C     **  SET BINARY TABULATION PLOT GROUP NAME <VARIBLE NAME>   **
11386C     *************************************************************
11387C
11388      IPART1='BINA'
11389      IPART2='TABU'
11390      IPART3='PLOT'
11391      IPART4='GROU'
11392      IPART5='NAME'
11393      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
11394     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
11395     1   IHARG(5).EQ.IPART5)THEN
11396        IBTAGN(1:4)=IHARG(6)(1:4)
11397        IBTAGN(5:8)=IHARG2(6)(1:4)
11398        IFOUND='YES'
11399        IF(IFEEDB.EQ.'ON')THEN
11400          WRITE(ICOUT,999)
11401          CALL DPWRST('XXX','BUG ')
11402          WRITE(ICOUT,51611)IPART1,IPART2,IPART3,IPART4,IPART5,IBTAGN
1140351611     FORMAT('THE FORTRAN COMMON CHARACTER VARIABLE ',A4,1X,A4,1X,
11404     1           A4,1X,A4,1X,A4,
11405     1           ' HAS JUST BEEN SET TO ',A8)
11406          CALL DPWRST('XXX','BUG ')
11407          GOTO9000
11408        ENDIF
11409      ENDIF
11410C
11411CCCCC FOLLOWING SECTION ADDED APRIL  2008
11412C     *************************************************************
11413C     **  SET FIT METHOD <SVD/GRAM-SCHMIDT>                      **
11414C     *************************************************************
11415C
11416      IPART1='FIT '
11417      IPART2='METH'
11418      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
11419        IF(IHV.EQ.'SVD')THEN
11420          IHV='SVD '
11421        ELSEIF(IHARG(3).EQ.'SING')THEN
11422          IHV='SVD '
11423        ELSE
11424          IHV='GRAM'
11425        ENDIF
11426        IFITME=IHV
11427        GOTO5160
11428      ENDIF
11429C
11430CCCCC FOLLOWING SECTION ADDED JUNE 2014
11431C     *************************************************************
11432C     **  SET FIT AUXILLARY FILES <ON/OFF>                       **
11433C     *************************************************************
11434C
11435      IPART1='FIT '
11436      IPART2='AUXI'
11437      IPART3='FILE'
11438      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
11439     1   IHARG(3).EQ.IPART3)THEN
11440        IF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'FALS')THEN
11441          IHV='OFF '
11442        ELSE
11443          IHV='ON'
11444        ENDIF
11445        IFITAU=IHV
11446        GOTO5160
11447      ENDIF
11448C
11449CCCCC FOLLOWING SECTION ADDED JULY 2014
11450C     *************************************************************
11451C     **  SET NORMAL PLOT AXES <DEFAULT/REVERSE>                 **
11452C     *************************************************************
11453C
11454      IPART1='NORM'
11455      IPART2='PLOT'
11456      IPART3='AXES'
11457      IPART4='AXES'
11458      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
11459     1  (IHARG(3).EQ.IPART3.OR.IHARG(3).EQ.IPART4))THEN
11460        IF(IHV.EQ.'REVE')THEN
11461          IHV='REVE'
11462        ELSE
11463          IHV='DEFA'
11464        ENDIF
11465        INPLAX=IHV
11466        GOTO5160
11467      ENDIF
11468C
11469CCCCC FOLLOWING SECTION ADDED JULY 2014
11470C     *************************************************************
11471C     **  SET LATEX RESIZE <ON/OFF>                              **
11472C     *************************************************************
11473C
11474      IPART1='LATE'
11475      IPART2='RESI'
11476      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
11477        IF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'FALS')THEN
11478          IHV='OFF'
11479        ELSE
11480          IHV='ON'
11481        ENDIF
11482        ILATRS=IHV
11483        GOTO5160
11484      ENDIF
11485C
11486CCCCC FOLLOWING SECTION ADDED SEPTEMBER 2014
11487C     *************************************************************
11488C     **  SET CIRCLE CORRECTION <ON/OFF>                         **
11489C     *************************************************************
11490C
11491      IPART1='CIRC'
11492      IPART2='CORR'
11493      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
11494        IF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'FALS')THEN
11495          IHV='OFF'
11496        ELSE
11497          IHV='ON'
11498        ENDIF
11499        ICIRCR=IHV
11500        GOTO5160
11501      ENDIF
11502C
11503CCCCC FOLLOWING SECTION ADDED MARCH 2004.
11504C     *************************************************************
11505C     **  SET HYPERGEOMETRIC MAXIMUM LIKELIHOOD                  **
11506C     **      <ACCEPTANCE SAMPLE/CAPTURE RECAPTURE>              **
11507C     *************************************************************
11508C
11509      IPART1='HYPE'
11510      IPART2='MAXI'
11511      IPART3='LIKE'
11512      IPART4='MLE'
11513      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART4)THEN
11514        IF(IHV.EQ.'CAPT' .OR. IHV.EQ.'RECA')THEN
11515          IHV='CAPT'
11516        ELSE
11517          IHV='ACCE'
11518        ENDIF
11519        IHYPTY=IHV
11520        GOTO5160
11521      ELSEIF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
11522     1       IHARG(3).EQ.IPART3)THEN
11523        IF(IHV.EQ.'CAPT' .OR. IHV.EQ.'RECA')THEN
11524          IHV='CAPT'
11525        ELSE
11526          IHV='ACCE'
11527        ENDIF
11528        IHYPTY=IHV
11529        GOTO5160
11530      ENDIF
11531C
11532CCCCC FOLLOWING SECTION ADDED MAY   2006.
11533C     *************************************************************
11534C     **  SET PPCC PLOT LOCATION SCALE <BIWEIGHT/DEFAULT/        **
11535C     **  KENDELL TAU>                                           **
11536C     *************************************************************
11537C
11538      IPART1='PPCC'
11539      IPART2='PLOT'
11540      IPART3='LOCA'
11541      IPART4='SCAL'
11542      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
11543     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
11544        IF(IHV.EQ.'BIWE')THEN
11545          IHV='BIWE'
11546        ELSEIF(IHV.EQ.'KEND'.OR.IHV.EQ.'TAU ')THEN
11547          IHV='TAU '
11548        ELSE
11549          IHV='DEFA'
11550        ENDIF
11551        IPPCBW=IHV
11552        GOTO5160
11553      ENDIF
11554C
11555CCCCC FOLLOWING SECTION ADDED SEPTEMBER 2004.
11556C     *************************************************************
11557C     **  SET PPCC PLOT AXIS ORDER <DEFAULT/REVERSE>             **
11558C     *************************************************************
11559C
11560      IPART1='PPCC'
11561      IPART2='PLOT'
11562      IPART3='AXIS'
11563      IPART4='ORDE'
11564      IPART5='KS  '
11565      IF((IHARG(1).EQ.IPART1.OR.IHARG(1).EQ.IPART5).AND.
11566     1   IHARG(2).EQ.IPART2.AND.
11567     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
11568        IF(IHARG(5).EQ.'REVE' .OR. IHARG(5).EQ.'FLIP')THEN
11569          IHV='REVE'
11570        ELSE
11571          IHV='DEFA'
11572        ENDIF
11573        IPPCAO=IHV
11574        GOTO5160
11575      ENDIF
11576C
11577CCCCC FOLLOWING SECTION ADDED AUGUST 2004.
11578C     *************************************************************
11579C     **  SET PPCC PLOT DATA POINTS <VALUE>                      **
11580C     *************************************************************
11581C
11582      IPART1='PPCC'
11583      IPART2='PLOT'
11584      IPART3='DATA'
11585      IPART4='POIN'
11586      IPART5='KS  '
11587      IF((IHARG(1).EQ.IPART1.OR.IHARG(1).EQ.IPART5).AND.
11588     1   IHARG(2).EQ.IPART2.AND.
11589     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
11590        IF(IHARG(5).EQ.'DEFA' .OR. IHARG(5).EQ.'NO' .OR.
11591     1     IHARG(5).EQ.'OFF')THEN
11592          IV=0
11593        ELSEIF(IHARG(5).EQ.'ON' .OR. IHARG(5).EQ.'YES')THEN
11594          IV=50
11595        ELSE
11596          IV=IARG(5)
11597          IF(IV.LT.0)IV=0
11598        ENDIF
11599        IPPCDP=IV
11600        GOTO5150
11601      ENDIF
11602C
11603CCCCC FOLLOWING SECTION ADDED AUGUST 2004.
11604C     *************************************************************
11605C     **  SET PPCC PLOT AXIS POINTS <VALUE1> <VALUE2>            **
11606C     *************************************************************
11607C
11608      IPART1='PPCC'
11609      IPART2='PLOT'
11610      IPART3='AXIS'
11611      IPART4='POIN'
11612      IPART5='AXES'
11613      IPART6='KS  '
11614      IF((IHARG(1).EQ.IPART1.OR.IHARG(6).EQ.IPART6).AND.
11615     1   IHARG(2).EQ.IPART2.AND.
11616     1   (IHARG(3).EQ.IPART3 .OR. IHARG(3).EQ.'AXES').AND.
11617     1   IHARG(4).EQ.IPART4)THEN
11618        IF(NUMARG.EQ.5)THEN
11619          IF(IHARG(5).EQ.'DEFA' .OR. IHARG(5).EQ.'NO' .OR.
11620     1       IHARG(5).EQ.'OFF')THEN
11621             IPPCAP(1)=0
11622          ELSEIF(IHARG(5).EQ.'ON' .OR. IHARG(5).EQ.'YES')THEN
11623            IPPCAP(1)=50
11624          ELSE
11625            IPPCAP(1)=IARG(5)
11626          ENDIF
11627          IFOUND='YES'
11628          IF(IFEEDB.EQ.'ON')THEN
11629            WRITE(ICOUT,999)
11630            CALL DPWRST('XXX','BUG ')
11631            WRITE(ICOUT,25151)
1163225151       FORMAT('THE NUMBER OF POINTS FOR THE FIRST SHAPE ',
11633     1             'PARAMETER OF THE PPCC PLOT')
11634            CALL DPWRST('XXX','BUG ')
11635            WRITE(ICOUT,25152)IPPCAP(1)
1163625152       FORMAT('HAS JUST BEEN SET TO ',I8)
11637            CALL DPWRST('XXX','BUG ')
11638            GOTO9000
11639          ENDIF
11640C
11641        ELSEIF(NUMARG.EQ.6)THEN
11642          IF(IHARG(5).EQ.'DEFA' .OR. IHARG(5).EQ.'NO' .OR.
11643     1       IHARG(5).EQ.'OFF')THEN
11644             IPPCAP(1)=0
11645          ELSEIF(IHARG(5).EQ.'ON' .OR. IHARG(5).EQ.'YES')THEN
11646            IPPCAP(1)=50
11647          ELSE
11648            IPPCAP(1)=IARG(5)
11649          ENDIF
11650          IF(IHARG(6).EQ.'DEFA' .OR. IHARG(6).EQ.'NO' .OR.
11651     1       IHARG(6).EQ.'OFF')THEN
11652             IPPCAP(2)=0
11653          ELSEIF(IHARG(6).EQ.'ON' .OR. IHARG(6).EQ.'YES')THEN
11654            IPPCAP(2)=50
11655          ELSE
11656            IPPCAP(2)=IARG(6)
11657          ENDIF
11658          IFOUND='YES'
11659          IF(IFEEDB.EQ.'ON')THEN
11660            WRITE(ICOUT,999)
11661            CALL DPWRST('XXX','BUG ')
11662            WRITE(ICOUT,25151)
11663            CALL DPWRST('XXX','BUG ')
11664            WRITE(ICOUT,25152)IPPCAP(1)
11665            CALL DPWRST('XXX','BUG ')
11666            WRITE(ICOUT,25156)
1166725156       FORMAT('THE NUMBER OF POINTS FOR THE SECOND SHAPE ',
11668     1             'PARAMETER OF THE PPCC PLOT')
11669            CALL DPWRST('XXX','BUG ')
11670            WRITE(ICOUT,25152)IPPCAP(2)
11671            CALL DPWRST('XXX','BUG ')
11672            GOTO9000
11673          ENDIF
11674        ELSE
11675          IPPCAP(1)=0
11676          IPPCAP(2)=0
11677          IFOUND='YES'
11678          IF(IFEEDB.EQ.'ON')THEN
11679            WRITE(ICOUT,999)
11680            CALL DPWRST('XXX','BUG ')
11681            WRITE(ICOUT,25158)
1168225158       FORMAT('THE NUMBER OF POINTS FOR BOTH SHAPE ',
11683     1             'PARAMETERS OF THE PPCC PLOT')
11684            CALL DPWRST('XXX','BUG ')
11685            WRITE(ICOUT,25159)
1168625159       FORMAT('HAS JUST BEEN SET TO USE THE DEFAULT.')
11687            CALL DPWRST('XXX','BUG ')
11688            GOTO9000
11689          ENDIF
11690        ENDIF
11691        GOTO9000
11692      ENDIF
11693C
11694CCCCC FOLLOWING SECTION ADDED MAY 2004.
11695C     *************************************************************
11696C     **  SET PPCC PLOT <LINEAR/BIWEIGHT/WINSORIZED/             **
11697C     **                 PERCENTAGE BEND/KENDELL TAU>            **
11698C     *************************************************************
11699C
11700      IPART1='PPCC'
11701      IPART2='PLOT'
11702      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
11703        IF(IHARG(3).EQ.'BIWE')THEN
11704          IHV='BIWE'
11705        ELSEIF(IHARG(3).EQ.'WINS')THEN
11706          IHV='WINS'
11707        ELSEIF(IHARG(3).EQ.'PERC' .AND. IHARG(3).EQ.'BEND')THEN
11708          IHV='PERB'
11709        ELSEIF(IHARG(3).EQ.'KEND' .AND. IHARG(4).EQ.'TAU ')THEN
11710          IHV='PERB'
11711        ELSE
11712          IHV='LINE'
11713        ENDIF
11714        IPPCCC=IHV
11715        GOTO5160
11716      ENDIF
11717C
11718CCCCC FOLLOWING SECTION ADDED MAY 2004.
11719C     *************************************************************
11720C     **  SET PPCC FORMAT <3D/TRACE>                             **
11721C     *************************************************************
11722C
11723      IPART1='PPCC'
11724      IPART2='FORM'
11725      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
11726        IF(IHARG(3).EQ.'3D' .OR. IHARG(3).EQ.'3DPL')THEN
11727          IHV='3D'
11728        ELSE
11729          IHV='TRAC'
11730        ENDIF
11731        IPPCFO=IHV
11732        GOTO5160
11733      ENDIF
11734C
11735CCCCC FOLLOWING SECTION ADDED OCTOBER 2004.
11736C     *************************************************************
11737C     **  SET CENSORED PPCC        PLOT                          **
11738C     **    <KAPLAN-MEIER/UNIFORM ORDER STATISTIC MEDIANS>       **
11739C     *************************************************************
11740C
11741      IPART1='CENS'
11742      IPART2='PPCC'
11743      IPART3='PLOT'
11744      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
11745     1   IHARG(3).EQ.IPART3)THEN
11746        IHV='UNIM'
11747        IF(IHARG(4).EQ.'KAPL' .OR. IHARG(4).EQ.'MEIE')THEN
11748          IHV='KAPL'
11749        ENDIF
11750        IPPCCN=IHV
11751        GOTO5160
11752      ENDIF
11753C
11754CCCCC FOLLOWING SECTION ADDED OCTOBER 2004.
11755C     *************************************************************
11756C     **  SET CENSORED PROBABILITY PLOT                          **
11757C     **    <KAPLAN-MEIER/UNIFORM ORDER STATISTIC MEDIANS>       **
11758C     *************************************************************
11759C
11760      IPART1='CENS'
11761      IPART2='PROB'
11762      IPART3='PLOT'
11763      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
11764     1   IHARG(3).EQ.IPART3)THEN
11765        IHV='UNIM'
11766        IF(IHARG(4).EQ.'KAPL' .OR. IHARG(4).EQ.'MEIE')THEN
11767          IHV='KAPL'
11768        ENDIF
11769        IPPLCN=IHV
11770        GOTO5160
11771      ENDIF
11772C
11773CCCCC FOLLOWING SECTION ADDED SEPTEMBER 2004.
11774C     *************************************************************
11775C     **  SET HISTOGRAM CLASS WIDTH <DEFAULT/NORMAL/NORMAL       **
11776C     **  CORRECTED/SD/STANDARD DEVIATION/IQ/IQ RANGE/           **
11777C     **  INTERQUARTILE RANGE>                                   **
11778C     *************************************************************
11779C
11780      IPART1='HIST'
11781      IPART2='CLAS'
11782      IPART3='WIDT'
11783      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
11784     1   IHARG(3).EQ.IPART3)THEN
11785        IF(IHARG(4).EQ.'DEFA' .OR. IHARG(4).EQ.'SD  '.OR.
11786     1    (IHARG(4).EQ.'STAN' .AND. IHARG(5).EQ.'DEVI'))THEN
11787          IHV='DEFA'
11788        ELSEIF(IHARG(4).EQ.'NORM' .AND. IHARG(5).EQ.'CORR')THEN
11789          IHV='NCOR'
11790        ELSEIF(IHARG(4).EQ.'NORM')THEN
11791          IHV='NORM'
11792        ELSEIF((IHARG(4).EQ.'IQ  ' .AND. IHARG(5).EQ.'RANG') .OR.
11793     1         (IHARG(4).EQ.'INTE' .AND. IHARG(5).EQ.'RANG') .OR.
11794     1    IHARG(4).EQ.'IQ  ')THEN
11795          IHV='IQ  '
11796        ELSE
11797          IHV='DEFA'
11798        ENDIF
11799        IHSTCW=IHV
11800        GOTO5160
11801      ENDIF
11802C
11803CCCCC FOLLOWING SECTION ADDED JANUARY  2010
11804C     *************************************************************
11805C     **  SET HISTOGRAM EMPTY BINS <ON/OFF>                      **
11806C     *************************************************************
11807C
11808      IPART1='HIST'
11809      IPART2='EMPT'
11810      IPART3='BINS'
11811      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
11812     1   IHARG(3).EQ.IPART3)THEN
11813        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE' .OR.
11814     1     IHV.EQ.'DEFA')THEN
11815          IHV='ON'
11816        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE' .OR.
11817     1         IHV.EQ.'FALS')THEN
11818          IHV='OFF'
11819        ELSE
11820          IHV='ON'
11821        ENDIF
11822        IHSTEB=IHV
11823        GOTO5160
11824      ENDIF
11825C
11826CCCCC FOLLOWING SECTION ADDED JUNE 2016
11827C     *************************************************************
11828C     **  SET HISTOGRAM OUTLIERS POINTS  <ON/OFF>                **
11829C     *************************************************************
11830C
11831      IPART1='HIST'
11832      IPART2='OUTL'
11833      IPART3='POIN'
11834      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
11835     1   IHARG(3).EQ.IPART3)THEN
11836        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE' .OR.
11837     1     IHV.EQ.'DEFA')THEN
11838          IHV='ON'
11839        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE' .OR.
11840     1         IHV.EQ.'FALS')THEN
11841          IHV='OFF'
11842        ELSE
11843          IHV='ON'
11844        ENDIF
11845        IHSTOP=IHV
11846        GOTO5160
11847      ENDIF
11848C
11849CCCCC FOLLOWING SECTION ADDED JANUARY  2010
11850C     *************************************************************
11851C     **  SET HISTOGRAM OUTLIERS   <ON/OFF>                      **
11852C     *************************************************************
11853C
11854      IPART1='HIST'
11855      IPART2='OUTL'
11856      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
11857        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE' .OR.
11858     1     IHV.EQ.'DEFA')THEN
11859          IHV='ON'
11860        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE' .OR.
11861     1         IHV.EQ.'FALS')THEN
11862          IHV='OFF'
11863        ELSE
11864          IHV='ON'
11865        ENDIF
11866        IHSTOU=IHV
11867        GOTO5160
11868      ENDIF
11869C
11870CCCCC FOLLOWING SECTION ADDED JUNE 2016
11871C     *************************************************************
11872C     **  SET BOX PLOT EXTREME PERCENTILES <ON/OFF>              **
11873C     *************************************************************
11874C
11875      IPART1='BOX '
11876      IPART2='PLOT'
11877      IPART3='EXTR'
11878      IPART4='PERC'
11879      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
11880     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
11881        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE')THEN
11882          IHV='ON'
11883        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE' .OR.
11884     1         IHV.EQ.'FALS' .OR. IHV.EQ.'DEFA')THEN
11885          IHV='OFF'
11886        ELSE
11887          IHV='OFF'
11888        ENDIF
11889        IBXPDI=IHV
11890        GOTO5160
11891      ENDIF
11892C
11893CCCCC THE FOLLOWING SECTION WAS ADDED        JUNE 2016.
11894C     *********************************************
11895C     **  SET STREAM READ SIZE          <VALUE>  **
11896C     *********************************************
11897C
11898      IPART1='STRE'
11899      IPART2='READ'
11900      IPART3='SIZE'
11901      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
11902     1   IHARG(3).EQ.IPART3)THEN
11903        IV=IARG(NUMARG)
11904        ISRESI=IV
11905        IF(ISRESI.LE.0)ISRESI=100
11906        IF(ISRESI.GT.MAXOBV)ISRESI=MAXOBV
11907        IV=ISRESI
11908        GOTO5150
11909      ENDIF
11910C
11911CCCCC THE FOLLOWING SECTION WAS ADDED        JUNE 2016.
11912C     ***************************************************************
11913C     **  SET STREAM READ NUMBER OF PERCENTLES <VALUE>             **
11914C     ***************************************************************
11915C
11916      IPART1='STRE'
11917      IPART2='READ'
11918      IPART3='NUMB'
11919      IPART4='OF  '
11920      IPART5='PERC'
11921      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
11922     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
11923     1   IHARG(5).EQ.IPART5)THEN
11924        IF(NUMARG.EQ.5 .OR. IHARG(6).EQ.'DEFA' .OR.
11925     1     IHARG(6).EQ.'OFF'  .OR. IHARG(6).EQ.'ON' .OR.
11926     1     IHARG(6).EQ.'NO'   .OR. IHARG(6).EQ.'YES' .OR.
11927     1     IHARG(6).EQ.'FALS' .OR. IHARG(6).EQ.'TRUE')THEN
11928          ISRENP=999
11929          IV=ISRENP
11930          GOTO5150
11931        ELSE
11932          IV=IARG(NUMARG)
11933          ISRENP=IV
11934          IF(ISRENP.LE.9)THEN
11935            ISRENP=9
11936          ELSEIF(ISRENP.GE.10 .AND. ISRENP.LE.99)THEN
11937            ISRENP=99
11938          ELSEIF(ISRENP.GE.100 .AND. ISRENP.LE.999)THEN
11939            ISRENP=999
11940          ELSE
11941            ISRENP=9999
11942          ENDIF
11943          IV=ISRENP
11944          GOTO5150
11945        ENDIF
11946      ENDIF
11947C
11948CCCCC FOLLOWING SECTION ADDED JULY 2016.
11949C     ***********************************************************
11950C     **  SET STREAM READ GROUP VARIABLE <NONE/VARIABLE NAME>  **
11951C     ***********************************************************
11952C
11953      IPART1='STRE'
11954      IPART2='READ'
11955      IPART3='GROU'
11956      IPART4='VARI'
11957      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
11958     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
11959        IF(IHV.EQ.'NO' .OR. IHV.EQ.'OFF' .OR. IHV.EQ.'FALS')THEN
11960          ISREVN='NONE'
11961        ELSEIF(IHV.EQ.'YES' .OR. IHV.EQ.'ON' .OR. IHV.EQ.'TRUE' .OR.
11962     1         IHV.EQ.'DEFA')THEN
11963          ISREVN='NONE'
11964        ELSE
11965          ISREVN(1:4)=IHV
11966          ISREVN(5:8)=IHV2
11967        ENDIF
11968        IFOUND='YES'
11969        IF(IFEEDB.EQ.'ON')THEN
11970          WRITE(ICOUT,999)
11971          CALL DPWRST('XXX','BUG ')
11972          WRITE(ICOUT,55271)ISREVN
1197355271     FORMAT('THE STREAM READ GROUP VARIABLE HAS ',
11974     1           'BEEN SET TO ',A8)
11975          CALL DPWRST('XXX','BUG ')
11976        ENDIF
11977        GOTO9000
11978      ENDIF
11979C
11980CCCCC FOLLOWING SECTION ADDED JULY 2016.
11981C     ***********************************************************
11982C     **  SET STREAM READ RESPONSE VARIABLE <ONE/TWO/THREE>    **
11983C     **      <NONE/VARIABLE NAME>                             **
11984C     ***********************************************************
11985C
11986      IPART1='STRE'
11987      IPART2='READ'
11988      IPART3='RESP'
11989      IPART4='VARI'
11990      IPART5='ONE'
11991      IPART6='TWO'
11992      IPART7='THRE'
11993      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
11994     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
11995        IF(IHARG(5).EQ.IPART5)THEN
11996          IF(IHV.EQ.'NO' .OR. IHV.EQ.'OFF' .OR. IHV.EQ.'FALS' .OR.
11997     1       IHV.EQ.'YES' .OR. IHV.EQ.'ON' .OR. IHV.EQ.'TRUE' .OR.
11998     1       IHV.EQ.'DEFA')THEN
11999            ISRER1='NONE'
12000          ELSE
12001            ISRER1(1:4)=IHV
12002            ISRER1(5:8)=IHV2
12003          ENDIF
12004          IFOUND='YES'
12005          IF(IFEEDB.EQ.'ON')THEN
12006            WRITE(ICOUT,999)
12007            CALL DPWRST('XXX','BUG ')
12008            WRITE(ICOUT,55273)ISRER1
1200955273       FORMAT('THE STREAM READ RESPONSE VARIABLE ONE HAS ',
12010     1             'BEEN SET TO ',A8)
12011            CALL DPWRST('XXX','BUG ')
12012          ENDIF
12013          GOTO9000
12014        ELSEIF(IHARG(5).EQ.IPART6)THEN
12015          IF(IHV.EQ.'NO' .OR. IHV.EQ.'OFF' .OR. IHV.EQ.'FALS' .OR.
12016     1       IHV.EQ.'YES' .OR. IHV.EQ.'ON' .OR. IHV.EQ.'TRUE' .OR.
12017     1       IHV.EQ.'DEFA')THEN
12018            ISRER2='NONE'
12019          ELSE
12020            ISRER2(1:4)=IHV
12021            ISRER2(5:8)=IHV2
12022          ENDIF
12023          IFOUND='YES'
12024          IF(IFEEDB.EQ.'ON')THEN
12025            WRITE(ICOUT,999)
12026            CALL DPWRST('XXX','BUG ')
12027            WRITE(ICOUT,55274)ISRER2
1202855274       FORMAT('THE STREAM READ RESPONSE VARIABLE TWO HAS ',
12029     1             'BEEN SET TO ',A8)
12030            CALL DPWRST('XXX','BUG ')
12031          ENDIF
12032          GOTO9000
12033        ELSEIF(IHARG(5).EQ.IPART7)THEN
12034          IF(IHV.EQ.'NO' .OR. IHV.EQ.'OFF' .OR. IHV.EQ.'FALS' .OR.
12035     1       IHV.EQ.'YES' .OR. IHV.EQ.'ON' .OR. IHV.EQ.'TRUE' .OR.
12036     1       IHV.EQ.'DEFA')THEN
12037            ISRER3='NONE'
12038          ELSE
12039            ISRER3(1:4)=IHV
12040            ISRER3(5:8)=IHV2
12041          ENDIF
12042          IFOUND='YES'
12043          IF(IFEEDB.EQ.'ON')THEN
12044            WRITE(ICOUT,999)
12045            CALL DPWRST('XXX','BUG ')
12046            WRITE(ICOUT,55275)ISRER3
1204755275       FORMAT('THE STREAM READ RESPONSE VARIABLE THREE HAS ',
12048     1             'BEEN SET TO ',A8)
12049            CALL DPWRST('XXX','BUG ')
12050          ENDIF
12051          GOTO9000
12052        ENDIF
12053      ENDIF
12054C
12055CCCCC FOLLOWING SECTION ADDED JULY 2016.
12056C     *****************************************************************
12057C     **  SET STREAM READ CROSS TABULATE VARIABLE <ONE/TWO/THREE/    **
12058C     **      FOUR> <NONE/VARIABLE NAME>                             **
12059C     *****************************************************************
12060C
12061      IPART1='STRE'
12062      IPART2='READ'
12063      IPART3='CROS'
12064      IPART4='TABU'
12065      IPART5='VARI'
12066      IPART6='ONE'
12067      IPART7='TWO'
12068      IPART8='THRE'
12069      IPART9='FOUR'
12070      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
12071     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
12072     1   IHARG(5).EQ.IPART5)THEN
12073        IF(IHARG(6).EQ.IPART6)THEN
12074          IF(IHV.EQ.'NO' .OR. IHV.EQ.'OFF' .OR. IHV.EQ.'FALS' .OR.
12075     1       IHV.EQ.'YES' .OR. IHV.EQ.'ON' .OR. IHV.EQ.'TRUE' .OR.
12076     1       IHV.EQ.'DEFA' .OR. IHV.EQ.'NULL')THEN
12077            ISREC1=' '
12078          ELSE
12079            ISREC1(1:4)=IHV
12080            ISREC1(5:8)=IHV2
12081          ENDIF
12082          IFOUND='YES'
12083          IF(IFEEDB.EQ.'ON')THEN
12084            WRITE(ICOUT,999)
12085            CALL DPWRST('XXX','BUG ')
12086            WRITE(ICOUT,55283)ISREC1
1208755283       FORMAT('THE STREAM READ CROSS TABULATE VARIABLE ONE HAS ',
12088     1             'BEEN SET TO ',A8)
12089            CALL DPWRST('XXX','BUG ')
12090          ENDIF
12091          GOTO9000
12092        ELSEIF(IHARG(6).EQ.IPART7)THEN
12093          IF(IHV.EQ.'NO' .OR. IHV.EQ.'OFF' .OR. IHV.EQ.'FALS' .OR.
12094     1       IHV.EQ.'YES' .OR. IHV.EQ.'ON' .OR. IHV.EQ.'TRUE' .OR.
12095     1       IHV.EQ.'DEFA' .OR. IHV.EQ.'NULL')THEN
12096            ISREC2=' '
12097          ELSE
12098            ISREC2(1:4)=IHV
12099            ISREC2(5:8)=IHV2
12100          ENDIF
12101          IFOUND='YES'
12102          IF(IFEEDB.EQ.'ON')THEN
12103            WRITE(ICOUT,999)
12104            CALL DPWRST('XXX','BUG ')
12105            WRITE(ICOUT,55285)ISREC2
1210655285       FORMAT('THE STREAM READ CROSS TABULATE VARIABLE TWO HAS ',
12107     1             'BEEN SET TO ',A8)
12108            CALL DPWRST('XXX','BUG ')
12109          ENDIF
12110          GOTO9000
12111        ELSEIF(IHARG(6).EQ.IPART8)THEN
12112          IF(IHV.EQ.'NO' .OR. IHV.EQ.'OFF' .OR. IHV.EQ.'FALS' .OR.
12113     1       IHV.EQ.'YES' .OR. IHV.EQ.'ON' .OR. IHV.EQ.'TRUE' .OR.
12114     1       IHV.EQ.'DEFA' .OR. IHV.EQ.'NULL')THEN
12115            ISREC3=' '
12116          ELSE
12117            ISREC3(1:4)=IHV
12118            ISREC3(5:8)=IHV2
12119          ENDIF
12120          IFOUND='YES'
12121          IF(IFEEDB.EQ.'ON')THEN
12122            WRITE(ICOUT,999)
12123            CALL DPWRST('XXX','BUG ')
12124            WRITE(ICOUT,55287)ISREC3
1212555287       FORMAT('THE STREAM READ CROSS TABULATE VARIABLE THREE HAS ',
12126     1             'BEEN SET TO ',A8)
12127            CALL DPWRST('XXX','BUG ')
12128          ENDIF
12129          GOTO9000
12130        ELSEIF(IHARG(6).EQ.IPART9)THEN
12131          IF(IHV.EQ.'NO' .OR. IHV.EQ.'OFF' .OR. IHV.EQ.'FALS' .OR.
12132     1       IHV.EQ.'YES' .OR. IHV.EQ.'ON' .OR. IHV.EQ.'TRUE' .OR.
12133     1       IHV.EQ.'DEFA' .OR. IHV.EQ.'NULL')THEN
12134            ISREC4=' '
12135          ELSE
12136            ISREC4(1:4)=IHV
12137            ISREC4(5:8)=IHV2
12138          ENDIF
12139          IFOUND='YES'
12140          IF(IFEEDB.EQ.'ON')THEN
12141            WRITE(ICOUT,999)
12142            CALL DPWRST('XXX','BUG ')
12143            WRITE(ICOUT,55289)ISREC4
1214455289       FORMAT('THE STREAM READ CROSS TABULATE VARIABLE FOUR HAS ',
12145     1             'BEEN SET TO ',A8)
12146            CALL DPWRST('XXX','BUG ')
12147          ENDIF
12148          GOTO9000
12149        ENDIF
12150      ENDIF
12151C
12152CCCCC FOLLOWING SECTION ADDED JULY 2018
12153C     *************************************************************
12154C     **  SET STREAM READ GROUP LABELS <ON/OFF>                  **
12155C     *************************************************************
12156C
12157      IPART1='STRE'
12158      IPART2='READ'
12159      IPART3='GROU'
12160      IPART4='LABE'
12161      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
12162     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
12163        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE')THEN
12164          IHV='ON'
12165        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE' .OR.
12166     1         IHV.EQ.'FALS' .OR. IHV.EQ.'DEFA')THEN
12167          IHV='OFF'
12168        ELSE
12169          IHV='OFF'
12170        ENDIF
12171        ISREGL=IHV
12172        GOTO5160
12173      ENDIF
12174C
12175CCCCC FOLLOWING SECTION ADDED JULY 2016.
12176C     *****************************************************************
12177C     **  SET STREAM READ VARIABLE TYPE <VARIABLE NAME>              **
12178C     *****************************************************************
12179C
12180      IPART1='STRE'
12181      IPART2='READ'
12182      IPART3='VARI'
12183      IPART4='TYPE'
12184      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
12185     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
12186        IF(IHV.EQ.'NO' .OR. IHV.EQ.'OFF' .OR. IHV.EQ.'FALS' .OR.
12187     1     IHV.EQ.'YES' .OR. IHV.EQ.'ON' .OR. IHV.EQ.'TRUE' .OR.
12188     1     IHV.EQ.'DEFA' .OR. IHV.EQ.'NULL')THEN
12189            ISREVT='NULL'
12190        ELSE
12191          ISREVT(1:4)=IHV
12192          ISREVT(5:8)=IHV2
12193        ENDIF
12194        IFOUND='YES'
12195        IF(IFEEDB.EQ.'ON')THEN
12196          WRITE(ICOUT,999)
12197          CALL DPWRST('XXX','BUG ')
12198          WRITE(ICOUT,55291)ISREVT
1219955291     FORMAT('THE STREAM READ VARIABLE TYPE HAS BEEN SET TO ',A8)
12200          CALL DPWRST('XXX','BUG ')
12201        ENDIF
12202        GOTO9000
12203      ENDIF
12204C
12205CCCCC FOLLOWING SECTION ADDED FEBRUARY 2020.
12206C     ***********************************************************
12207C     **  SET EXCEL SHEET <NAME>                               **
12208C     ***********************************************************
12209C
12210      IPART1='EXCE'
12211      IPART2='SHEE'
12212      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
12213        IF(IHV.EQ.'NO' .OR. IHV.EQ.'OFF' .OR. IHV.EQ.'FALS')THEN
12214          IEXCSH='SHEET1'
12215        ELSEIF(IHV.EQ.'YES' .OR. IHV.EQ.'ON' .OR. IHV.EQ.'TRUE' .OR.
12216     1         IHV.EQ.'DEFA')THEN
12217          IEXCSH='SHEET1'
12218        ELSE
12219          IEXCSH(1:4)=IHV
12220          IEXCSH(5:8)=IHV2
12221        ENDIF
12222        IFOUND='YES'
12223        IF(IFEEDB.EQ.'ON')THEN
12224          WRITE(ICOUT,999)
12225          CALL DPWRST('XXX','BUG ')
12226          WRITE(ICOUT,55371)IEXCSH
1222755371     FORMAT('THE EXCEL SHEET NAME HAS BEEN SET TO ',A8)
12228          CALL DPWRST('XXX','BUG ')
12229        ENDIF
12230        GOTO9000
12231      ENDIF
12232C
12233CCCCC FOLLOWING SECTION ADDED APRIL 2020.
12234C     ***********************************************************
12235C     **  SET EXCEL START ROW      <VALUE>                     **
12236C     ***********************************************************
12237C
12238      IPART1='EXCE'
12239      IPART2='STAR'
12240      IPART3='ROW '
12241      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
12242     1   IHARG(3).EQ.IPART3)THEN
12243        IF(IHV.EQ.'NO' .OR. IHV.EQ.'OFF' .OR. IHV.EQ.'FALS')THEN
12244          IEXCR1=-1
12245          IV=-1
12246        ELSEIF(IHV.EQ.'YES' .OR. IHV.EQ.'ON' .OR. IHV.EQ.'TRUE' .OR.
12247     1         IHV.EQ.'DEFA')THEN
12248          IEXCR1=-1
12249          IV=-1
12250        ELSEIF(NUMARG.LT.4)THEN
12251          IEXCR1=-1
12252          IV=-1
12253        ELSE
12254          IV=IARG(4)
12255          IF(IV.LT.1)IV=-1
12256          IEXCR1=IV
12257        ENDIF
12258        GOTO5150
12259      ENDIF
12260C
12261CCCCC FOLLOWING SECTION ADDED APRIL 2020.
12262C     ***********************************************************
12263C     **  SET EXCEL STOP  ROW      <VALUE>                     **
12264C     ***********************************************************
12265C
12266      IPART1='EXCE'
12267      IPART2='STOP'
12268      IPART3='ROW '
12269      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
12270     1   IHARG(3).EQ.IPART3)THEN
12271        IF(IHV.EQ.'NO' .OR. IHV.EQ.'OFF' .OR. IHV.EQ.'FALS')THEN
12272          IEXCR2=-1
12273          IV=-1
12274        ELSEIF(IHV.EQ.'YES' .OR. IHV.EQ.'ON' .OR. IHV.EQ.'TRUE' .OR.
12275     1         IHV.EQ.'DEFA')THEN
12276          IEXCR2=-1
12277          IV=-1
12278        ELSEIF(NUMARG.LT.4)THEN
12279          IEXCR2=-1
12280          IV=-1
12281        ELSE
12282          IV=IARG(4)
12283          IF(IV.LT.1)IV=-1
12284          IEXCR2=IV
12285        ENDIF
12286        GOTO5150
12287      ENDIF
12288C
12289CCCCC FOLLOWING SECTION ADDED APRIL 2020.
12290C     ***********************************************************
12291C     **  SET EXCEL START COLUMN   <VALUE>                     **
12292C     ***********************************************************
12293C
12294      IPART1='EXCE'
12295      IPART2='STAR'
12296      IPART3='COLU'
12297      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
12298     1   IHARG(3).EQ.IPART3)THEN
12299        IF(IHV.EQ.'NO' .OR. IHV.EQ.'OFF' .OR. IHV.EQ.'FALS')THEN
12300          IEXCC1=-1
12301          IV=-1
12302        ELSEIF(IHV.EQ.'YES' .OR. IHV.EQ.'ON' .OR. IHV.EQ.'TRUE' .OR.
12303     1         IHV.EQ.'DEFA')THEN
12304          IEXCC1=-1
12305          IV=-1
12306        ELSEIF(NUMARG.LT.4)THEN
12307          IEXCC1=-1
12308          IV=-1
12309        ELSE
12310          IV=IARG(4)
12311          IF(IV.LT.1)IV=-1
12312          IEXCC1=IV
12313        ENDIF
12314        GOTO5150
12315      ENDIF
12316C
12317CCCCC FOLLOWING SECTION ADDED APRIL 2020.
12318C     ***********************************************************
12319C     **  SET EXCEL STAOP COLUMN   <VALUE>                     **
12320C     ***********************************************************
12321C
12322      IPART1='EXCE'
12323      IPART2='STOP'
12324      IPART3='COLU'
12325      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
12326     1   IHARG(3).EQ.IPART3)THEN
12327        IF(IHV.EQ.'NO' .OR. IHV.EQ.'OFF' .OR. IHV.EQ.'FALS')THEN
12328          IEXCC2=-1
12329          IV=-1
12330        ELSEIF(IHV.EQ.'YES' .OR. IHV.EQ.'ON' .OR. IHV.EQ.'TRUE' .OR.
12331     1         IHV.EQ.'DEFA')THEN
12332          IEXCC2=-1
12333          IV=-1
12334        ELSEIF(NUMARG.LT.4)THEN
12335          IEXCC2=-1
12336          IV=-1
12337        ELSE
12338          IV=IARG(4)
12339          IF(IV.LT.1)IV=-1
12340          IEXCC2=IV
12341        ENDIF
12342        GOTO5150
12343      ENDIF
12344C
12345CCCCC FOLLOWING SECTION ADDED SEPTEMBER  2012
12346C     *************************************************************
12347C     **  SET FIELD <ICOL> TYPE <NUMERIC/CHARACTER>              **
12348C     *************************************************************
12349C
12350      IPART1='FIEL'
12351      IPART3='TYPE'
12352      IF(IHARG(1).EQ.IPART1.AND.IHARG(3).EQ.IPART3)THEN
12353C
12354C       CHECK FOR COLUMN NUMBER
12355C
12356        IV=IARG(2)
12357        IFOUND='YES'
12358        IF(IV.LT.1 .OR. IV.GT.250)THEN
12359          WRITE(ICOUT,25251)
1236025251     FORMAT('***** ERROR IN THE SET COMMAND--')
12361          CALL DPWRST('XXX','BUG ')
12362          WRITE(ICOUT,25253)
1236325253     FORMAT('      FOR THE   SET FIELD <ICOL> TYPE  COMMAND, THE')
12364          CALL DPWRST('XXX','BUG ')
12365          WRITE(ICOUT,25255)IV
1236625255     FORMAT('      SPECIFIED COLUMN, ',I8,', IS OUTSIDE THE ',
12367     1           '1 TO 250 RANGE.')
12368          CALL DPWRST('XXX','BUG ')
12369          GOTO9000
12370        ENDIF
12371        IF(IHV.EQ.'CHAR')THEN
12372          IFIETY(IV)=1
12373          WRITE(ICOUT,25263)IV
1237425263     FORMAT('THE TYPE FOR FIELD ',I3,' FOR SUBSEQUENT READ ',
12375     1           'COMMANDS HAS BEEN SET TO CHARACTER.')
12376          CALL DPWRST('XXX','BUG ')
12377        ELSE
12378          IFIETY(IV)=0
12379          WRITE(ICOUT,25261)IV
1238025261     FORMAT('THE TYPE FOR FIELD ',I3,' FOR SUBSEQUENT READ ',
12381     1           'COMMANDS HAS BEEN SET TO NUMERIC.')
12382          CALL DPWRST('XXX','BUG ')
12383        ENDIF
12384        GOTO9000
12385      ENDIF
12386C
12387CCCCC FOLLOWING SECTION ADDED APRIL  2010
12388C     *************************************************************
12389C     **  SET LOD OUTPUT FILES     <ON/OFF>                      **
12390C     *************************************************************
12391C
12392      IPART1='LOD '
12393      IPART2='OUTP'
12394      IPART3='FILE'
12395      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
12396     1   IHARG(3).EQ.IPART3)THEN
12397        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE' .OR.
12398     1     IHV.EQ.'DEFA')THEN
12399          IHV='ON'
12400        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE' .OR.
12401     1         IHV.EQ.'FALS')THEN
12402          IHV='OFF'
12403        ELSE
12404          IHV='ON'
12405        ENDIF
12406        ILODOF=IHV
12407        GOTO5160
12408      ENDIF
12409C
12410      IPART1='LIMI'
12411      IPART2='OF  '
12412      IPART3='DETE'
12413      IPART4='OUTP'
12414      IPART5='FILE'
12415      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
12416     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
12417     1   IHARG(5).EQ.IPART5)THEN
12418        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE' .OR.
12419     1     IHV.EQ.'DEFA')THEN
12420          IHV='ON'
12421        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE' .OR.
12422     1         IHV.EQ.'FALS')THEN
12423          IHV='OFF'
12424        ELSE
12425          IHV='ON'
12426        ENDIF
12427        ILODOF=IHV
12428        GOTO5160
12429      ENDIF
12430C
12431CCCCC FOLLOWING SECTION ADDED JULY  2012
12432C     *************************************************************
12433C     **  SET LOD SUMMARY TABLES     <ON/OFF>                    **
12434C     *************************************************************
12435C
12436      IPART1='LOD '
12437      IPART2='SUMM'
12438      IPART3='TABL'
12439      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
12440     1   IHARG(3).EQ.IPART3)THEN
12441        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE' .OR.
12442     1     IHV.EQ.'DEFA')THEN
12443          IHV='ON'
12444        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE' .OR.
12445     1         IHV.EQ.'FALS')THEN
12446          IHV='OFF'
12447        ELSE
12448          IHV='ON'
12449        ENDIF
12450        ILODST=IHV
12451        GOTO5160
12452      ENDIF
12453C
12454      IPART1='LIMI'
12455      IPART2='OF  '
12456      IPART3='DETE'
12457      IPART4='SUMM'
12458      IPART5='TABL'
12459      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
12460     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
12461     1   IHARG(5).EQ.IPART5)THEN
12462        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE' .OR.
12463     1     IHV.EQ.'DEFA')THEN
12464          IHV='ON'
12465        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE' .OR.
12466     1         IHV.EQ.'FALS')THEN
12467          IHV='OFF'
12468        ELSE
12469          IHV='ON'
12470        ENDIF
12471        ILODST=IHV
12472        GOTO5160
12473      ENDIF
12474C
12475CCCCC FOLLOWING SECTION ADDED JULY  2012
12476C     *************************************************************
12477C     **  SET LOD LOD TABLES     <ON/OFF>                        **
12478C     *************************************************************
12479C
12480      IPART1='LOD '
12481      IPART2='LOD '
12482      IPART3='TABL'
12483      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
12484     1   IHARG(3).EQ.IPART3)THEN
12485        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE' .OR.
12486     1     IHV.EQ.'DEFA')THEN
12487          IHV='ON'
12488        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE' .OR.
12489     1         IHV.EQ.'FALS')THEN
12490          IHV='OFF'
12491        ELSE
12492          IHV='ON'
12493        ENDIF
12494        ILODTA=IHV
12495        GOTO5160
12496      ENDIF
12497C
12498      IPART1='LIMI'
12499      IPART2='OF  '
12500      IPART3='DETE'
12501      IPART4='LOD '
12502      IPART5='TABL'
12503      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
12504     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
12505     1   IHARG(5).EQ.IPART5)THEN
12506        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE' .OR.
12507     1     IHV.EQ.'DEFA')THEN
12508          IHV='ON'
12509        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE' .OR.
12510     1         IHV.EQ.'FALS')THEN
12511          IHV='OFF'
12512        ELSE
12513          IHV='ON'
12514        ENDIF
12515        ILODTA=IHV
12516        GOTO5160
12517      ENDIF
12518C
12519CCCCC FOLLOWING SECTION ADDED JULY  2012
12520C     *************************************************************
12521C     **  SET LOD PRINT CRITICAL VALUE     <ON/OFF>              **
12522C     *************************************************************
12523C
12524      IPART1='LOD '
12525      IPART2='PRIN'
12526      IPART3='CRIT'
12527      IPART4='VALU'
12528      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
12529     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
12530        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE' .OR.
12531     1     IHV.EQ.'DEFA')THEN
12532          IHV='ON'
12533        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE' .OR.
12534     1         IHV.EQ.'FALS')THEN
12535          IHV='OFF'
12536        ELSE
12537          IHV='ON'
12538        ENDIF
12539        ILODPC=IHV
12540        GOTO5160
12541      ENDIF
12542C
12543      IPART1='LIMI'
12544      IPART2='OF  '
12545      IPART3='DETE'
12546      IPART4='PRIN'
12547      IPART5='CRIT'
12548      IPART6='VALU'
12549      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
12550     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
12551     1   IHARG(5).EQ.IPART5.AND.IHARG(6).EQ.IPART6)THEN
12552        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE' .OR.
12553     1     IHV.EQ.'DEFA')THEN
12554          IHV='ON'
12555        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE' .OR.
12556     1         IHV.EQ.'FALS')THEN
12557          IHV='OFF'
12558        ELSE
12559          IHV='ON'
12560        ENDIF
12561        ILODPC=IHV
12562        GOTO5160
12563      ENDIF
12564C
12565CCCCC FOLLOWING SECTION ADDED FEBRUARY  2020
12566C     *************************************************************
12567C     **  SET INSERT OVERWRITE     <ON/OFF>                      **
12568C     *************************************************************
12569C
12570      IPART1='INSE'
12571      IPART2='OVER'
12572      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
12573        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE' .OR.
12574     1     IHV.EQ.'DEFA')THEN
12575          IHV='ON'
12576        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE' .OR.
12577     1         IHV.EQ.'FALS')THEN
12578          IHV='OFF'
12579        ELSE
12580          IHV='ON'
12581        ENDIF
12582        IINSOW=IHV
12583        GOTO5160
12584      ENDIF
12585C
12586CCCCC FOLLOWING SECTION ADDED SEPTEMBER  2010
12587C     ******************************************************
12588C     **  SET BRITTLE FIBER WEIBULL LENGTH     <ON/OFF>   **
12589C     ******************************************************
12590C
12591      IPART1='BRIT'
12592      IPART2='FIBE'
12593      IPART3='WEIB'
12594      IPART4='LENG'
12595      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
12596     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
12597        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE' .OR.
12598     1     IHV.EQ.'DEFA')THEN
12599          IHV='ON'
12600        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE' .OR.
12601     1         IHV.EQ.'FALS')THEN
12602          IHV='OFF'
12603        ELSE
12604          IHV='ON'
12605        ENDIF
12606        IBFWTY=IHV
12607        GOTO5160
12608      ENDIF
12609C
12610CCCCC FOLLOWING SECTION ADDED SEPTEMBER  2010
12611C     ******************************************************
12612C     **  SET BOOTSTRAP DISTRIBUTIONAL PERCENTILE         **
12613C     **      <TWOSIDED/OFF/LOWER/UPPER>                  **
12614C     ******************************************************
12615C
12616      IPART1='BOOT'
12617      IPART2='DIST'
12618      IPART3='PERC'
12619      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
12620     1   IHARG(3).EQ.IPART3)THEN
12621        IF(IHARG(4).EQ.'OFF')THEN
12622          IHV='OFF'
12623        ELSEIF(IHARG(4).EQ.'NONE')THEN
12624          IHV='OFF'
12625        ELSEIF(IHARG(4).EQ.'FALS')THEN
12626          IHV='OFF'
12627        ELSEIF(IHARG(4).EQ.'NO  ')THEN
12628          IHV='OFF'
12629        ELSEIF(IHARG(4).EQ.'NULL')THEN
12630          IHV='OFF'
12631        ELSEIF(IHARG(4).EQ.'LOWE')THEN
12632          IHV='LOWE'
12633        ELSEIF(IHARG(4).EQ.'ONE')THEN
12634          IHV='LOWE'
12635        ELSEIF(IHARG(4).EQ.'ONES')THEN
12636          IHV='LOWE'
12637        ELSEIF(IHARG(4).EQ.'UPPE')THEN
12638          IHV='UPPE'
12639        ELSEIF(IHARG(4).EQ.'TWO')THEN
12640          IHV='TWOS'
12641        ELSEIF(IHARG(4).EQ.'TWOS')THEN
12642          IHV='TWOS'
12643        ELSE
12644          IHV='TWOS'
12645        ENDIF
12646        IBOODP=IHV
12647        GOTO5160
12648      ENDIF
12649C
12650CCCCC FOLLOWING SECTION ADDED OCTOBER  2011
12651C     *****************************************************************
12652C     **  SET BOOTSTRAP PERCENTILE PERCENT POINT <PERCENTILE/DATA>   **
12653C     *****************************************************************
12654C
12655      IPART1='BOOT'
12656      IPART2='PERC'
12657      IPART3='PERC'
12658      IPART4='POIN'
12659      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
12660        IF(IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4)THEN
12661          IHV='PERC'
12662        ELSE
12663          IHV='DATA'
12664        ENDIF
12665        IBOOPE=IHV
12666        GOTO5160
12667      ENDIF
12668C
12669CCCCC FOLLOWING SECTION ADDED OCTOBER  2011
12670C     **********************************************************
12671C     **  SET BOOTSTRAP SMOOTHING STANDARD DEVIATION <VALUE>  **
12672C     **********************************************************
12673C
12674      IPART1='BOOT'
12675      IPART2='SMOO'
12676      IPART3='STAN'
12677      IPART4='DEVI'
12678      IPART5='ERRO'
12679      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
12680     1   IHARG(3).EQ.IPART3.AND.
12681     1  (IHARG(4).EQ.IPART4.OR.IHARG(4).EQ.IPART5))THEN
12682        IF(IHARG(5).EQ.'DEFA' .OR. IHARG(5).EQ.'ON' .OR.
12683     1     IHARG(5).EQ.'OFF')THEN
12684          PBOOSM=CPUMIN
12685        ELSE
12686          PBOOSM=ARG(5)
12687        ENDIF
12688        AV=PBOOSM
12689        GOTO5170
12690      ENDIF
12691C
12692      IPART3='SD'
12693      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
12694     1   IHARG(3).EQ.IPART3)THEN
12695        IF(IHARG(4).EQ.'DEFA' .OR. IHARG(4).EQ.'ON' .OR.
12696     1     IHARG(4).EQ.'OFF')THEN
12697          PBOOSM=CPUMIN
12698        ELSE
12699          PBOOSM=ARG(4)
12700        ENDIF
12701        AV=PBOOSM
12702        GOTO5170
12703      ENDIF
12704C
12705CCCCC FOLLOWING SECTION ADDED OCTOBER  2011
12706C     ******************************************************
12707C     **  SET BOOTSTRAP SMOOTHING <ON/OFF>                **
12708C     ******************************************************
12709C
12710      IPART1='BOOT'
12711      IPART2='SMOO'
12712      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
12713        IF(IHARG(3).EQ.'ON')THEN
12714          IHV='ON  '
12715          PBOOSM=CPUMIN
12716        ELSEIF(IHARG(3).EQ.'OFF' .OR. IHARG(3).EQ.'DEFAU' .OR.
12717     1         IHARG(3).EQ.'   ')THEN
12718          IHV='OFF '
12719          PBOOSM=CPUMIN
12720        ELSE
12721          IBOOSM='OFF'
12722        ENDIF
12723        IBOOSM=IHV
12724        GOTO5160
12725      ENDIF
12726C
12727CCCCC FOLLOWING SECTION ADDED OCTOBER  2011
12728C     *************************************************************
12729C     **  SET BOOTSTRAP T PERCENTILE STANDARD DEVIATION <VALUE>  **
12730C     *************************************************************
12731C
12732      IPART1='BOOT'
12733      IPART2='T   '
12734      IPART3='PERC'
12735      IPART4='STAN'
12736      IPART5='DEVI'
12737      IPART6='ERRO'
12738      IF(IHARG(1).EQ.IPART1.AND.
12739     1  ((IHARG(2).EQ.IPART2.AND.IHARG(3).EQ.IPART3).OR.
12740     1   (IHARG(2).EQ.IPART3.AND.IHARG(3).EQ.IPART2)).AND.
12741     1    IHARG(4).EQ.IPART4.AND.
12742     1   (IHARG(5).EQ.IPART5.OR.IHARG(5).EQ.IPART6))THEN
12743        IF(IHARG(6).EQ.'DEFA' .OR. IHARG(6).EQ.'ON' .OR.
12744     1     IHARG(6).EQ.'OFF')THEN
12745          PBOOTS=CPUMIN
12746        ELSE
12747          PBOOTS=ARG(6)
12748        ENDIF
12749        AV=PBOOTS
12750        GOTO5170
12751      ENDIF
12752C
12753      IPART4='SD  '
12754      IF(IHARG(1).EQ.IPART1.AND.
12755     1  ((IHARG(2).EQ.IPART2.AND.IHARG(3).EQ.IPART3).OR.
12756     1   (IHARG(2).EQ.IPART3.AND.IHARG(3).EQ.IPART2)).AND.
12757     1    IHARG(4).EQ.IPART4)THEN
12758        IF(IHARG(5).EQ.'DEFA' .OR. IHARG(5).EQ.'ON' .OR.
12759     1     IHARG(5).EQ.'OFF')THEN
12760          PBOOTS=CPUMIN
12761        ELSE
12762          PBOOTS=ARG(5)
12763        ENDIF
12764        AV=PBOOTS
12765        GOTO5170
12766      ENDIF
12767C
12768CCCCC FOLLOWING SECTION ADDED OCTOBER  2011
12769C     *****************************************************************
12770C     **  SET BOOTSTRAP CONFIDENCE INTERVALS <PERCENTILE/T>          **
12771C     *****************************************************************
12772C
12773      IPART1='BOOT'
12774      IPART2='CONF'
12775      IPART3='INTE'
12776      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
12777     1   IHARG(3).EQ.IPART3)THEN
12778        IF(IHARG(4).EQ.'T')THEN
12779          IHV='T   '
12780        ELSEIF(IHARG(4).EQ.'PERC'.AND.IHARG(5).EQ.'T')THEN
12781          IHV='T   '
12782        ELSE
12783          IHV='PERC'
12784        ENDIF
12785        IBOOCI=IHV
12786        GOTO5160
12787      ENDIF
12788C
12789CCCCC FOLLOWING SECTION ADDED OCTOBER  2011
12790C     *************************************************************
12791C     **  SET CONSENSUS MEAN PLOT SORTED  <ON/OFF>               **
12792C     *************************************************************
12793C
12794      IPART1='CONS'
12795      IPART2='MEAN'
12796      IPART3='PLOT'
12797      IPART4='SORT'
12798      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
12799     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
12800        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE' .OR.
12801     1     IHV.EQ.'DEFA')THEN
12802          IHV='ON'
12803        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE' .OR.
12804     1         IHV.EQ.'FALS')THEN
12805          IHV='OFF'
12806        ELSE
12807          IHV='ON'
12808        ENDIF
12809        ICMPSO=IHV
12810        GOTO5160
12811      ENDIF
12812C
12813CCCCC FOLLOWING SECTION ADDED OCTOBER  2011
12814C     *************************************************************
12815C     **  SET CONSENSUS MEAN PLOT DATA    <ON/OFF/LEFT/RIGHT>    **
12816C     *************************************************************
12817C
12818      IPART1='CONS'
12819      IPART2='MEAN'
12820      IPART3='PLOT'
12821      IPART4='DATA'
12822      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
12823     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
12824        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE' .OR.
12825     1     IHV.EQ.'DEFA')THEN
12826          IHV='ON'
12827        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE' .OR.
12828     1         IHV.EQ.'FALS')THEN
12829          IHV='OFF'
12830        ELSEIF(IHV.EQ.'LEFT')THEN
12831          IHV='LEFT'
12832        ELSEIF(IHV.EQ.'RIGH')THEN
12833          IHV='ON'
12834        ELSE
12835          IHV='ON'
12836        ENDIF
12837        ICMPDA=IHV
12838        GOTO5160
12839      ENDIF
12840C
12841CCCCC FOLLOWING SECTION ADDED OCTOBER  2011
12842C     *************************************************************
12843C     **  SET CONSENSUS MEAN PLOT ERROR  <CONFIDENCE LIMITS/     **
12844C     **                                  ONE STANDARD ERROR/    **
12845C     **                                  TWO STANDARD ERROR>    **
12846C     *************************************************************
12847C
12848      IPART1='CONS'
12849      IPART2='MEAN'
12850      IPART3='PLOT'
12851      IPART4='ERRO'
12852      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
12853     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
12854        IF(IHARG(5).EQ.'CONF')THEN
12855          IHV='CONF'
12856        ELSEIF(IHARG(5).EQ.'ONE' .AND. IHARG(6).EQ.'STAN' .AND.
12857     1         IHARG(7).EQ.'ERRO')THEN
12858          IHV='1SE'
12859        ELSEIF(IHARG(5).EQ.'ONE' .AND. IHARG(6).EQ.'STAN' .AND.
12860     1         IHARG(7).EQ.'DEVI')THEN
12861          IHV='1SE'
12862        ELSE
12863          IHV='2SE'
12864        ENDIF
12865        ICMPER=IHV
12866        GOTO5160
12867      ENDIF
12868C
12869CCCCC FOLLOWING SECTION ADDED JUNE  2013
12870C     *************************************************************
12871C     **  SET CONSENSUS MEAN TABLE ONE    <ON/OFF>               **
12872C     *************************************************************
12873C
12874      IPART1='CONS'
12875      IPART2='MEAN'
12876      IPART3='TABL'
12877      IPART4='ONE '
12878      IPART5='1   '
12879      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
12880     1   IHARG(3).EQ.IPART3.AND.
12881     1   (IHARG(4).EQ.IPART4.OR.IHARG(5).EQ.IPART5))THEN
12882        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE' .OR.
12883     1     IHV.EQ.'DEFA')THEN
12884          IHV='ON'
12885        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE' .OR.
12886     1         IHV.EQ.'FALS')THEN
12887          IHV='OFF'
12888        ELSE
12889          IHV='ON'
12890        ENDIF
12891        ICMET1=IHV
12892        GOTO5160
12893      ENDIF
12894C
12895CCCCC FOLLOWING SECTION ADDED JUNE  2013
12896C     *************************************************************
12897C     **  SET CONSENSUS MEAN TABLE TWO    <ON/OFF>               **
12898C     *************************************************************
12899C
12900      IPART1='CONS'
12901      IPART2='MEAN'
12902      IPART3='TABL'
12903      IPART4='TWO '
12904      IPART5='2   '
12905      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
12906     1   IHARG(3).EQ.IPART3.AND.
12907     1   (IHARG(4).EQ.IPART4 .OR. IHARG(5).EQ.IPART5))THEN
12908        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE' .OR.
12909     1     IHV.EQ.'DEFA')THEN
12910          IHV='ON'
12911        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE' .OR.
12912     1         IHV.EQ.'FALS')THEN
12913          IHV='OFF'
12914        ELSE
12915          IHV='ON'
12916        ENDIF
12917        ICMET2=IHV
12918        GOTO5160
12919      ENDIF
12920C
12921CCCCC FOLLOWING SECTION ADDED JUNE  2013
12922C     *************************************************************
12923C     **  SET CONSENSUS MEAN TABLE THREE  <ON/OFF>               **
12924C     *************************************************************
12925C
12926      IPART1='CONS'
12927      IPART2='MEAN'
12928      IPART3='TABL'
12929      IPART4='THRE'
12930      IPART5='3   '
12931      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
12932     1   IHARG(3).EQ.IPART3.AND.
12933     1   (IHARG(4).EQ.IPART4 .OR. IHARG(5).EQ.IPART5))THEN
12934        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE' .OR.
12935     1     IHV.EQ.'DEFA')THEN
12936          IHV='ON'
12937        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE' .OR.
12938     1         IHV.EQ.'FALS')THEN
12939          IHV='OFF'
12940        ELSE
12941          IHV='ON'
12942        ENDIF
12943        ICMET3=IHV
12944        GOTO5160
12945      ENDIF
12946C
12947CCCCC FOLLOWING SECTION ADDED JUNE  2013
12948C     *************************************************************
12949C     **  SET CONSENSUS MEAN TABLE FOUR   <ON/OFF>               **
12950C     *************************************************************
12951C
12952      IPART1='CONS'
12953      IPART2='MEAN'
12954      IPART3='TABL'
12955      IPART4='FOUR'
12956      IPART5='4   '
12957      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
12958     1   IHARG(3).EQ.IPART3.AND.
12959     1   (IHARG(4).EQ.IPART4 .OR. IHARG(5).EQ.IPART5))THEN
12960        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE' .OR.
12961     1     IHV.EQ.'DEFA')THEN
12962          IHV='ON'
12963        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE' .OR.
12964     1         IHV.EQ.'FALS')THEN
12965          IHV='OFF'
12966        ELSE
12967          IHV='ON'
12968        ENDIF
12969        ICMET4=IHV
12970        GOTO5160
12971      ENDIF
12972C
12973CCCCC FOLLOWING SECTION ADDED JUNE  2013
12974C     *************************************************************
12975C     **  SET CONSENSUS MEAN DETAILED TABLE  <ON/OFF>            **
12976C     *************************************************************
12977C
12978      IPART1='CONS'
12979      IPART2='MEAN'
12980      IPART3='DETA'
12981      IPART4='TABL'
12982      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
12983     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
12984        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE' .OR.
12985     1     IHV.EQ.'DEFA')THEN
12986          IHV='ON'
12987        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE' .OR.
12988     1         IHV.EQ.'FALS')THEN
12989          IHV='OFF'
12990        ELSE
12991          IHV='ON'
12992        ENDIF
12993        ICMET5=IHV
12994        GOTO5160
12995      ENDIF
12996C
12997CCCCC FOLLOWING SECTION ADDED JANAURY  2017
12998C     *************************************************************
12999C     **  SET CONSENSUS MEAN TYPE B METHOD <ADD/BOOTSTRAP>       **
13000C     *************************************************************
13001C
13002      IPART1='CONS'
13003      IPART2='MEAN'
13004      IPART3='TYPE'
13005      IPART4='B   '
13006      IPART5='METH'
13007      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
13008     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
13009     1   IHARG(5).EQ.IPART5)THEN
13010        IF(IHV.EQ.'BOOT')THEN
13011          IHV='BOOT'
13012        ELSE
13013          IHV='ADD'
13014        ENDIF
13015        ICMTYB=IHV
13016        GOTO5160
13017      ENDIF
13018C
13019CCCCC FOLLOWING SECTION ADDED JANAURY  2017
13020C     *************************************************************
13021C     **  SET CONSENSUS MEAN TYPE B VALUE <VALUE>                **
13022C     *************************************************************
13023C
13024      IPART1='CONS'
13025      IPART2='MEAN'
13026      IPART3='TYPE'
13027      IPART4='B   '
13028      IPART5='VALU'
13029      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
13030     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
13031     1   IHARG(5).EQ.IPART5)THEN
13032        IF(IHV.EQ.'ON' .OR. IHV.EQ.'OFF' .OR.
13033     1     IHV.EQ.'DEFA' .OR. NUMARG.LE.6)THEN
13034          AV=CPUMIN
13035        ELSE
13036          IF(IARGT(6).EQ.'NUME')THEN
13037            AV=ARG(6)
13038          ELSE
13039            AV=CPUMIN
13040          ENDIF
13041        ENDIF
13042        PCMTYB=AV
13043        GOTO5170
13044      ENDIF
13045C
13046CCCCC FOLLOWING SECTION ADDED OCTOBER 2004.
13047C     ***********************************************************
13048C     **  SET CONSENSUS MEAN TYPE B <NONE/VARIABLE NAME>       **
13049C     ************************************************************
13050C
13051      IPART1='CONS'
13052      IPART2='MEAN'
13053      IPART3='TYPE'
13054      IPART4='B   '
13055      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
13056     1   (IHARG(3).EQ.IPART3.OR.IHARG(3).EQ.IPART4))THEN
13057        IF(IHV.EQ.'NO' .OR. IHV.EQ.'OFF' .OR. IHV.EQ.'FALSE')THEN
13058          ICMETB='NONE'
13059        ELSEIF(IHV.EQ.'YES' .OR. IHV.EQ.'ON' .OR. IHV.EQ.'TRUE' .OR.
13060     1         IHV.EQ.'DEFA')THEN
13061          ICMETB='NONE'
13062        ELSE
13063          ICMETB(1:4)=IHV
13064          ICMETB(5:8)=IHV2
13065        ENDIF
13066        IFOUND='YES'
13067        IF(IFEEDB.EQ.'ON')THEN
13068          WRITE(ICOUT,999)
13069          CALL DPWRST('XXX','BUG ')
13070          WRITE(ICOUT,55171)ICMETB
1307155171     FORMAT('THE CONSENSUS MEAN TYPE B VARIABLE HAS ',
13072     1           'BEEN SET TO ',A8)
13073          CALL DPWRST('XXX','BUG ')
13074        ENDIF
13075        GOTO9000
13076      ENDIF
13077C
13078CCCCC FOLLOWING SECTION ADDED NOVEMBER  2016
13079C     *************************************************************
13080C     **  SET CONSENSUS MEAN PLOT OMIT LABS <LIST OF LABS>       **
13081C     *************************************************************
13082C
13083C     MAXIMUM NUMBER OF LABS TO OMIT SET BY MAXOLB
13084C
13085      IPART1='CONS'
13086      IPART2='MEAN'
13087      IPART3='PLOT'
13088      IPART4='OMIT'
13089      IPART5='LABS'
13090      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
13091     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
13092     1   IHARG(5).EQ.IPART5)THEN
13093        IFOUND='YES'
13094        IF(IHV.EQ.'ON'   .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE' .OR.
13095     1     IHV.EQ.'DEFA' .OR. IHV.EQ.'OFF' .OR. IHV.EQ.'NO'   .OR.
13096     1     IHV.EQ.'NONE' .OR. IHV.EQ.'FALS' .OR. NUMARG.LE.5)THEN
13097          ICMPNL=0
13098          DO5012II=1,MAXOLB
13099            ICMPLL(II)=-1
13100 5012     CONTINUE
13101        ELSE
13102          ISTRT=6
13103          ISTOP=NUMARG
13104          NTEMP=ISTOP-ISTRT+1
13105          IF(NTEMP.GT.MAXOLB)ISTOP=ISTRT+9
13106          ICMPNL=0
13107          DO5014II=ISTRT,ISTOP
13108            ICMPNL=ICMPNL+1
13109            ICMPLL(ICMPNL)=IARG(II)
13110            WRITE(ICOUT,5013)ICMPLL(ICMPNL)
13111 5013       FORMAT('LAB ',I8,' WILL BE OMITTED FROM THE CONSENSUS ',
13112     1             'MEAN PLOT (BUT NOT THE ANALYSIS)')
13113            CALL DPWRST('XXX','BUG ')
13114 5014     CONTINUE
13115        ENDIF
13116        GOTO9000
13117      ENDIF
13118C
13119CCCCC FOLLOWING SECTION ADDED APRIL  2017
13120C     *************************************************************
13121C     **  SET CONSENSUS MEAN PLOT OMIT METHOD                    **
13122C     **      <ONE/TWO/THREE> <METHOD>                           **
13123C     *************************************************************
13124C
13125      IPART1='CONS'
13126      IPART2='MEAN'
13127      IPART3='PLOT'
13128      IPART4='OMIT'
13129      IPART5='METH'
13130      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
13131     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
13132     1   IHARG(5).EQ.IPART5)THEN
13133        IF(IHARG(6).EQ.'ONE ')THEN
13134          IF(IHV.EQ.'NULL' .OR. IHV.EQ.'OFF' .OR.
13135     1       IHV.EQ.'DEFA' .OR. IHV.EQ.'NONE' .OR.
13136     1       NUMARG.LE.6)THEN
13137            ICMPM1='NULL'
13138          ELSE
13139            IF(IHARG(7).EQ.'MP  ')ICMPM1='MP  '
13140            IF(IHARG(7).EQ.'MAND')ICMPM1='MP  '
13141            IF(IHARG(7).EQ.'MMP ')ICMPM1='MP  '
13142            IF(IHARG(7).EQ.'MODI' .AND. IHARG(8).EQ.'MAND')ICMPM1='MMP '
13143            IF(IHARG(7).EQ.'VR  ')ICMPM1='VR  '
13144            IF(IHARG(7).EQ.'VANG')ICMPM1='VR  '
13145            IF(IHARG(7).EQ.'RUKH')ICMPM1='VR  '
13146            IF(IHARG(7).EQ.'ML  ')ICMPM1='VR  '
13147            IF(IHARG(7).EQ.'MLE ')ICMPM1='VR  '
13148            IF(IHARG(7).EQ.'MAXI')ICMPM1='VR  '
13149            IF(IHARG(7).EQ.'DSL ')ICMPM1='DSL '
13150            IF(IHARG(7).EQ.'DERS')ICMPM1='DSL '
13151            IF(IHARG(7).EQ.'LAIR')ICMPM1='DSL '
13152            IF(IHARG(7).EQ.'GRAY')ICMPM1='GRAY'
13153            IF(IHARG(7).EQ.'DEAL')ICMPM1='GRAY'
13154            IF(IHARG(7).EQ.'FAIR')ICMPM1='FAIR'
13155            IF(IHARG(7).EQ.'GCI ')ICMPM1='GCI '
13156            IF(IHARG(7).EQ.'GENE')ICMPM1='GCI '
13157            IF(IHARG(7).EQ.'IYER')ICMPM1='GCI '
13158            IF(IHARG(7).EQ.'WANG')ICMPM1='GCI '
13159            IF(IHARG(7).EQ.'GMEA')ICMPM1='GMEA'
13160            IF(IHARG(7).EQ.'GRAN')ICMPM1='GMEA'
13161            IF(IHARG(7).EQ.'MOM ')ICMPM1='MOM '
13162            IF(IHARG(7).EQ.'MEAN' .AND. IHARG(8).EQ.'OF  ')ICMPM1='MOM '
13163            IF(IHARG(7).EQ.'MEDM')ICMPM1='MEDM'
13164            IF(IHARG(7).EQ.'MEDI')ICMPM1='MEDM'
13165            IF(IHARG(7).EQ.'BOB ')ICMPM1='BOB '
13166            IF(IHARG(7).EQ.'SCHI')ICMPM1='SE  '
13167            IF(IHARG(7).EQ.'EBER')ICMPM1='SE  '
13168            IF(IHARG(7).EQ.'BCP ')ICMPM1='BCP '
13169            IF(IHARG(7).EQ.'BAYE')ICMPM1='BCP '
13170            IF(IHARG(7).EQ.'HUBE')ICMPM1='HUBE'
13171          ENDIF
13172          IHV=ICMPM1
13173        ELSEIF(IHARG(6).EQ.'TWO ')THEN
13174          IF(IHV.EQ.'NULL' .OR. IHV.EQ.'OFF' .OR.
13175     1       IHV.EQ.'DEFA' .OR. IHV.EQ.'NONE' .OR.
13176     1       NUMARG.LE.6)THEN
13177            ICMPM2='NULL'
13178          ELSE
13179            IF(IHARG(7).EQ.'MP  ')ICMPM2='MP  '
13180            IF(IHARG(7).EQ.'MAND')ICMPM2='MP  '
13181            IF(IHARG(7).EQ.'MMP ')ICMPM2='MP  '
13182            IF(IHARG(7).EQ.'MODI' .AND. IHARG(8).EQ.'MAND')ICMPM2='MMP '
13183            IF(IHARG(7).EQ.'VR  ')ICMPM2='VR  '
13184            IF(IHARG(7).EQ.'VANG')ICMPM2='VR  '
13185            IF(IHARG(7).EQ.'RUKH')ICMPM2='VR  '
13186            IF(IHARG(7).EQ.'ML  ')ICMPM2='VR  '
13187            IF(IHARG(7).EQ.'MLE ')ICMPM2='VR  '
13188            IF(IHARG(7).EQ.'MAXI')ICMPM2='VR  '
13189            IF(IHARG(7).EQ.'DSL ')ICMPM2='DSL '
13190            IF(IHARG(7).EQ.'DERS')ICMPM2='DSL '
13191            IF(IHARG(7).EQ.'LAIR')ICMPM2='DSL '
13192            IF(IHARG(7).EQ.'GRAY')ICMPM2='GRAY'
13193            IF(IHARG(7).EQ.'DEAL')ICMPM2='GRAY'
13194            IF(IHARG(7).EQ.'FAIR')ICMPM2='FAIR'
13195            IF(IHARG(7).EQ.'GCI ')ICMPM2='GCI '
13196            IF(IHARG(7).EQ.'GENE')ICMPM2='GCI '
13197            IF(IHARG(7).EQ.'IYER')ICMPM2='GCI '
13198            IF(IHARG(7).EQ.'WANG')ICMPM2='GCI '
13199            IF(IHARG(7).EQ.'GMEA')ICMPM2='GMEA'
13200            IF(IHARG(7).EQ.'GRAN')ICMPM2='GMEA'
13201            IF(IHARG(7).EQ.'MOM ')ICMPM2='MOM '
13202            IF(IHARG(7).EQ.'MEAN' .AND. IHARG(8).EQ.'OF  ')ICMPM2='MOM '
13203            IF(IHARG(7).EQ.'MEDM')ICMPM2='MEDM'
13204            IF(IHARG(7).EQ.'MEDI')ICMPM2='MEDM'
13205            IF(IHARG(7).EQ.'BOB ')ICMPM2='BOB '
13206            IF(IHARG(7).EQ.'SCHI')ICMPM2='SE  '
13207            IF(IHARG(7).EQ.'EBER')ICMPM2='SE  '
13208            IF(IHARG(7).EQ.'BCP ')ICMPM2='BCP '
13209            IF(IHARG(7).EQ.'BAYE')ICMPM2='BCP '
13210            IF(IHARG(7).EQ.'HUBE')ICMPM2='HUBE'
13211          ENDIF
13212          IHV=ICMPM2
13213        ELSEIF(IHARG(6).EQ.'THRE')THEN
13214          IF(IHV.EQ.'NULL' .OR. IHV.EQ.'OFF' .OR.
13215     1       IHV.EQ.'DEFA' .OR. IHV.EQ.'NONE' .OR.
13216     1       NUMARG.LE.6)THEN
13217            ICMPM3='NULL'
13218          ELSE
13219            IF(IHARG(7).EQ.'MP  ')ICMPM3='MP  '
13220            IF(IHARG(7).EQ.'MAND')ICMPM3='MP  '
13221            IF(IHARG(7).EQ.'MMP ')ICMPM3='MP  '
13222            IF(IHARG(7).EQ.'MODI' .AND. IHARG(8).EQ.'MAND')ICMPM3='MMP '
13223            IF(IHARG(7).EQ.'VR  ')ICMPM3='VR  '
13224            IF(IHARG(7).EQ.'VANG')ICMPM3='VR  '
13225            IF(IHARG(7).EQ.'RUKH')ICMPM3='VR  '
13226            IF(IHARG(7).EQ.'ML  ')ICMPM3='VR  '
13227            IF(IHARG(7).EQ.'MLE ')ICMPM3='VR  '
13228            IF(IHARG(7).EQ.'MAXI')ICMPM3='VR  '
13229            IF(IHARG(7).EQ.'DSL ')ICMPM3='DSL '
13230            IF(IHARG(7).EQ.'DERS')ICMPM3='DSL '
13231            IF(IHARG(7).EQ.'LAIR')ICMPM3='DSL '
13232            IF(IHARG(7).EQ.'GRAY')ICMPM3='GRAY'
13233            IF(IHARG(7).EQ.'DEAL')ICMPM3='GRAY'
13234            IF(IHARG(7).EQ.'FAIR')ICMPM3='FAIR'
13235            IF(IHARG(7).EQ.'GCI ')ICMPM3='GCI '
13236            IF(IHARG(7).EQ.'GENE')ICMPM3='GCI '
13237            IF(IHARG(7).EQ.'IYER')ICMPM3='GCI '
13238            IF(IHARG(7).EQ.'WANG')ICMPM3='GCI '
13239            IF(IHARG(7).EQ.'GMEA')ICMPM3='GMEA'
13240            IF(IHARG(7).EQ.'GRAN')ICMPM3='GMEA'
13241            IF(IHARG(7).EQ.'MOM ')ICMPM3='MOM '
13242            IF(IHARG(7).EQ.'MEAN' .AND. IHARG(8).EQ.'OF  ')ICMPM3='MOM '
13243            IF(IHARG(7).EQ.'MEDM')ICMPM3='MEDM'
13244            IF(IHARG(7).EQ.'MEDI')ICMPM3='MEDM'
13245            IF(IHARG(7).EQ.'BOB ')ICMPM3='BOB '
13246            IF(IHARG(7).EQ.'SCHI')ICMPM3='SE  '
13247            IF(IHARG(7).EQ.'EBER')ICMPM3='SE  '
13248            IF(IHARG(7).EQ.'BCP ')ICMPM3='BCP '
13249            IF(IHARG(7).EQ.'BAYE')ICMPM3='BCP '
13250            IF(IHARG(7).EQ.'HUBE')ICMPM3='HUBE'
13251          ENDIF
13252          IHV=ICMPM3
13253        ELSE
13254          IF(IHV.EQ.'NULL' .OR. IHV.EQ.'OFF' .OR.
13255     1       IHV.EQ.'DEFA' .OR. IHV.EQ.'NONE' .OR.
13256     1       NUMARG.LE.5)THEN
13257            ICMPM1='NULL'
13258          ELSE
13259            IF(IHARG(6).EQ.'MP  ')ICMPM1='MP  '
13260            IF(IHARG(6).EQ.'MAND')ICMPM1='MP  '
13261            IF(IHARG(6).EQ.'MMP ')ICMPM1='MP  '
13262            IF(IHARG(6).EQ.'MODI' .AND. IHARG(7).EQ.'MAND')ICMPM1='MMP '
13263            IF(IHARG(6).EQ.'VR  ')ICMPM1='VR  '
13264            IF(IHARG(6).EQ.'VANG')ICMPM1='VR  '
13265            IF(IHARG(6).EQ.'RUKH')ICMPM1='VR  '
13266            IF(IHARG(6).EQ.'ML  ')ICMPM1='VR  '
13267            IF(IHARG(6).EQ.'MLE ')ICMPM1='VR  '
13268            IF(IHARG(6).EQ.'MAXI')ICMPM1='VR  '
13269            IF(IHARG(6).EQ.'DSL ')ICMPM1='DSL '
13270            IF(IHARG(6).EQ.'DERS')ICMPM1='DSL '
13271            IF(IHARG(6).EQ.'LAIR')ICMPM1='DSL '
13272            IF(IHARG(6).EQ.'GRAY')ICMPM1='GRAY'
13273            IF(IHARG(6).EQ.'DEAL')ICMPM1='GRAY'
13274            IF(IHARG(6).EQ.'FAIR')ICMPM1='FAIR'
13275            IF(IHARG(6).EQ.'GCI ')ICMPM1='GCI '
13276            IF(IHARG(6).EQ.'GENE')ICMPM1='GCI '
13277            IF(IHARG(6).EQ.'IYER')ICMPM1='GCI '
13278            IF(IHARG(6).EQ.'WANG')ICMPM1='GCI '
13279            IF(IHARG(6).EQ.'GMEA')ICMPM1='GMEA'
13280            IF(IHARG(6).EQ.'GRAN')ICMPM1='GMEA'
13281            IF(IHARG(6).EQ.'MOM ')ICMPM1='MOM '
13282            IF(IHARG(6).EQ.'MEAN' .AND. IHARG(7).EQ.'OF  ')ICMPM1='MOM '
13283            IF(IHARG(6).EQ.'MEDM')ICMPM1='MEDM'
13284            IF(IHARG(6).EQ.'MEDI')ICMPM1='MEDM'
13285            IF(IHARG(6).EQ.'BOB ')ICMPM1='BOB '
13286            IF(IHARG(6).EQ.'SCHI')ICMPM1='SE  '
13287            IF(IHARG(6).EQ.'EBER')ICMPM1='SE  '
13288            IF(IHARG(6).EQ.'BCP ')ICMPM1='BCP '
13289            IF(IHARG(6).EQ.'BAYE')ICMPM1='BCP '
13290            IF(IHARG(6).EQ.'HUBE')ICMPM1='HUBE'
13291          ENDIF
13292          IHV=ICMPM1
13293        ENDIF
13294        GOTO5170
13295      ENDIF
13296C
13297CCCCC FOLLOWING SECTION ADDED APRIL  2015
13298C     *********************************************************
13299C     **  SET E691 DATA SUMMARY TABLE <ON/OFF>               **
13300C     *********************************************************
13301C
13302      IPART1='E691'
13303      IPART2='DATA'
13304      IPART3='SUMM'
13305      IPART4='TABL'
13306      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
13307     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
13308        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE' .OR.
13309     1     IHV.EQ.'DEFA')THEN
13310          IHV='ON'
13311        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE' .OR.
13312     1         IHV.EQ.'FALS')THEN
13313          IHV='OFF'
13314        ELSE
13315          IHV='ON'
13316        ENDIF
13317        I691DS=IHV
13318        GOTO5160
13319      ENDIF
13320C
13321CCCCC FOLLOWING SECTION ADDED FEBRUARY  2015
13322C     *********************************************************
13323C     **  SET E691 TEST RESULTS TABLE <ON/OFF>               **
13324C     *********************************************************
13325C
13326      IPART1='E691'
13327      IPART2='TEST'
13328      IPART3='RESU'
13329      IPART4='TABL'
13330      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
13331     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
13332        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE' .OR.
13333     1     IHV.EQ.'DEFA')THEN
13334          IHV='ON'
13335        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE' .OR.
13336     1         IHV.EQ.'FALS')THEN
13337          IHV='OFF'
13338        ELSE
13339          IHV='ON'
13340        ENDIF
13341        I691TR=IHV
13342        GOTO5160
13343      ENDIF
13344C
13345CCCCC FOLLOWING SECTION ADDED FEBRUARY  2015
13346C     *********************************************************
13347C     **  SET E691 H CONSISTENCY TABLE <ON/OFF>              **
13348C     *********************************************************
13349C
13350      IPART1='E691'
13351      IPART2='H   '
13352      IPART3='CONS'
13353      IPART4='TABL'
13354      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
13355     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
13356        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE' .OR.
13357     1     IHV.EQ.'DEFA')THEN
13358          IHV='ON'
13359        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE' .OR.
13360     1         IHV.EQ.'FALS')THEN
13361          IHV='OFF'
13362        ELSE
13363          IHV='ON'
13364        ENDIF
13365        I691HC=IHV
13366        GOTO5160
13367      ENDIF
13368C
13369CCCCC FOLLOWING SECTION ADDED FEBRUARY  2015
13370C     *********************************************************
13371C     **  SET E691 K CONSISTENCY TABLE <ON/OFF>              **
13372C     *********************************************************
13373C
13374      IPART1='E691'
13375      IPART2='K   '
13376      IPART3='CONS'
13377      IPART4='TABL'
13378      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
13379     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
13380        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE' .OR.
13381     1     IHV.EQ.'DEFA')THEN
13382          IHV='ON'
13383        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE' .OR.
13384     1         IHV.EQ.'FALS')THEN
13385          IHV='OFF'
13386        ELSE
13387          IHV='ON'
13388        ENDIF
13389        I691KC=IHV
13390        GOTO5160
13391      ENDIF
13392C
13393CCCCC FOLLOWING SECTION ADDED FEBRUARY  2015
13394C     *********************************************************
13395C     **  SET E691 PRECISION STATISTICS TABLE <ON/OFF>       **
13396C     *********************************************************
13397C
13398      IPART1='E691'
13399      IPART2='PREC'
13400      IPART3='STAT'
13401      IPART4='TABL'
13402      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
13403     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
13404        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE' .OR.
13405     1     IHV.EQ.'DEFA')THEN
13406          IHV='ON'
13407        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE' .OR.
13408     1         IHV.EQ.'FALS')THEN
13409          IHV='OFF'
13410        ELSE
13411          IHV='ON'
13412        ENDIF
13413        I691PS=IHV
13414        GOTO5160
13415      ENDIF
13416C
13417CCCCC FOLLOWING SECTION ADDED APRIL 2015.
13418C     ***********************************************************
13419C     **  SET E691 MATERIAL ID GROUP LABEL <NONE/DEFAULT/      **
13420C     **      GROUP LABEL NAME>                                **
13421C     ***********************************************************
13422C
13423      IPART1='E691'
13424      IPART2='MATE'
13425      IPART3='ID  '
13426      IPART4='GROU'
13427      IPART5='LABE'
13428      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
13429     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
13430     1   IHARG(5).EQ.IPART5)THEN
13431        IF(IHV.EQ.'NO' .OR. IHV.EQ.'OFF' .OR. IHV.EQ.'FALSE')THEN
13432          I691GL='NONE'
13433        ELSEIF(IHV.EQ.'YES' .OR. IHV.EQ.'ON' .OR. IHV.EQ.'TRUE' .OR.
13434     1         IHV.EQ.'DEFA')THEN
13435          I691GL='NONE'
13436        ELSE
13437          I691GL(1:4)=IHV
13438          I691GL(5:8)=IHV2
13439        ENDIF
13440        IFOUND='YES'
13441        IF(IFEEDB.EQ.'ON')THEN
13442          WRITE(ICOUT,999)
13443          CALL DPWRST('XXX','BUG ')
13444          WRITE(ICOUT,55167)I691GL
1344555167     FORMAT('THE E691 MATERIAL ID GROUP LABEL HAS ',
13446     1           'BEEN SET TO ',A8)
13447          CALL DPWRST('XXX','BUG ')
13448        ENDIF
13449        GOTO9000
13450      ENDIF
13451C
13452CCCCC FOLLOWING SECTION ADDED APRIL  2015
13453C     *********************************************************
13454C     **  SET CNPK DEFINITION <AIRFORECE/PEARN>              **
13455C     *********************************************************
13456C
13457      IPART1='CNPK'
13458      IPART2='DEFI'
13459      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
13460        IF(IHV.EQ.'AIR ' .OR. IHV.EQ.'AIRF' .OR. IHV.EQ.'OLD')THEN
13461          IHV='AIRF'
13462        ELSE
13463          IHV='PEAR'
13464        ENDIF
13465        ICNPKD=IHV
13466        GOTO5160
13467      ENDIF
13468C
13469CCCCC FOLLOWING SECTION ADDED APRIL  2015
13470C     *********************************************************
13471C     **  SET STATISTIC PLOT REFERENCE LINE                  **
13472C     **      <OVERALL/AVERAGE/MEDIAN>                       **
13473C     *********************************************************
13474C
13475      IPART1='STAT'
13476      IPART2='PLOT'
13477      IPART3='REFE'
13478      IPART4='LINE'
13479      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
13480     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
13481        IF(IHV.EQ.'MEAN' .OR. IHV.EQ.'AVER')THEN
13482          IHV='MEAN'
13483        ELSEIF(IHV.EQ.'MEDI')THEN
13484          IHV='MEDI'
13485        ELSE
13486          IHV='OVER'
13487        ENDIF
13488        ISPLRL=IHV
13489        GOTO5160
13490      ENDIF
13491C
13492CCCCC FOLLOWING SECTION ADDED SEPTEMBER  2015
13493C     *********************************************************
13494C     **  SET OPTIMIZATION <MINIMUM/MAXIMUM>                 **
13495C     *********************************************************
13496C
13497      IPART1='OPTI'
13498      IF(IHARG(1).EQ.IPART1)THEN
13499        IF(IHV.EQ.'MAXI')THEN
13500          IHV='MAXI'
13501        ELSE
13502          IHV='MINI'
13503        ENDIF
13504        IOPTMM=IHV
13505        GOTO5160
13506      ENDIF
13507C
13508CCCCC FOLLOWING SECTION ADDED OCTOBER  2015
13509C     **********************************************************
13510C     **  SET JSCORE REPLICATION <AVERAGE/EXTREME/INDIVIDUAL> **
13511C     **********************************************************
13512C
13513      IPART1='JSCO'
13514      IPART2='REPL'
13515      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2)THEN
13516        IF(IHV.EQ.'EXTR')THEN
13517          IHV='EXTR'
13518        ELSEIF(IHV.EQ.'INDI')THEN
13519          IHV='INDI'
13520        ELSE
13521          IHV='AVER'
13522        ENDIF
13523        IJSREP=IHV
13524        GOTO5160
13525      ENDIF
13526C
13527CCCCC FOLLOWING SECTION ADDED OCTOBER  2015
13528C     **********************************************************
13529C     **  SET LOOP SUBSTITUTION <DEFERRED/IMMEDIATE>          **
13530C     **********************************************************
13531C
13532      IPART1='LOOP'
13533      IPART2='SUBS'
13534      IPART3='REPL'
13535      IF(IHARG(1).EQ.IPART1 .AND.
13536     1  (IHARG(2).EQ.IPART2 .OR. IHARG(2).EQ.IPART3))THEN
13537        IF(IHV.EQ.'IMME')THEN
13538          IHV='IMME'
13539        ELSE
13540          IHV='DEFE'
13541        ENDIF
13542        ILOOSU=IHV
13543        GOTO5160
13544      ENDIF
13545C
13546CCCCC FOLLOWING SECTION ADDED NOVEMBER  2015
13547C     **********************************************************
13548C     **  SET SEARCH ENGINE <GOOGLE/BING/DUCK/WOW/YAHOO>      **
13549C     **********************************************************
13550C
13551      IPART1='SEAR'
13552      IPART2='ENGI'
13553      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2)THEN
13554        IF(IHV.EQ.'DUCK')THEN
13555          IHV='DUCK'
13556        ELSEIF(IHV.EQ.'BING')THEN
13557          IHV='BING'
13558        ELSEIF(IHV.EQ.'WOW ')THEN
13559          IHV='WOW '
13560        ELSEIF(IHV.EQ.'YAHO')THEN
13561          IHV='YAHO'
13562        ELSE
13563          IHV='GOOG'
13564        ENDIF
13565        IWEBSE=IHV
13566        GOTO5160
13567      ENDIF
13568C
13569CCCCC FOLLOWING SECTION ADDED DECEMBER  2015
13570C     **********************************************************
13571C     **  SET DEVICE 2 SPLIT <ON/OFF>                         **
13572C     **********************************************************
13573C
13574      IPART1='DEVI'
13575      IPART2='2   '
13576      IPART3='SPLI'
13577      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
13578     1   IHARG(3).EQ.IPART3)THEN
13579        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE')THEN
13580          IHV='ON'
13581        ELSE
13582          IHV='OFF'
13583        ENDIF
13584        IDV2SP=IHV
13585        GOTO5160
13586      ENDIF
13587C
13588CCCCC FOLLOWING SECTION ADDED DECEMBER  2015
13589C     **********************************************************
13590C     **  SET DEVICE 3 NAME COUNTER <ON/OFF>                  **
13591C     **********************************************************
13592C
13593      IPART1='DEVI'
13594      IPART2='3   '
13595      IPART3='NAME'
13596      IPART4='COUN'
13597      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
13598     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4)THEN
13599        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE')THEN
13600          IHV='ON'
13601        ELSE
13602          IHV='OFF'
13603        ENDIF
13604        IDV3NC=IHV
13605        GOTO5160
13606      ENDIF
13607C
13608CCCCC FOLLOWING SECTION ADDED NOVEMBER  2015
13609C     **********************************************************
13610C     **  SET DEVICE 3 <AUTOMATIC/USER>                       **
13611C     **********************************************************
13612C
13613      IPART1='DEVI'
13614      IPART2='3   '
13615      IPART3='THRE'
13616      IF(IHARG(1).EQ.IPART1 .AND.
13617     1  (IHARG(2).EQ.IPART2 .OR. IHARG(2).EQ.IPART3))THEN
13618        IF(IHV.EQ.'USER')THEN
13619          IHV='USER'
13620        ELSE
13621          IHV='AUTO'
13622        ENDIF
13623        IDEVO3=IHV
13624        GOTO5160
13625      ENDIF
13626C
13627CCCCC FOLLOWING SECTION ADDED DECEMBER  2015
13628C     **********************************************************
13629C     **  SET CAPTURE SPLIT <ON/OFF>                          **
13630C     **********************************************************
13631C
13632      IPART1='CAPT'
13633      IPART2='SPLI'
13634      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2)THEN
13635        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE')THEN
13636          IHV='ON'
13637        ELSE
13638          IHV='OFF'
13639        ENDIF
13640        ICAPSP=IHV
13641        GOTO5160
13642      ENDIF
13643C
13644CCCCC FOLLOWING SECTION ADDED DECEMBER  2015
13645C     **********************************************************
13646C     **  SET CAPTURE CUMULATIVE <ON/OFF>                     **
13647C     **********************************************************
13648C
13649      IPART1='CAPT'
13650      IPART2='CUMU'
13651      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2)THEN
13652        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE')THEN
13653          IHV='ON'
13654        ELSE
13655          IHV='OFF'
13656        ENDIF
13657        ICAPCU=IHV
13658        GOTO5160
13659      ENDIF
13660C
13661CCCCC FOLLOWING SECTION ADDED NOVEMBER  2016
13662C     **********************************************************
13663C     **  SET CAPTURE SCRIPT LOOP SUBSTITUTION <ON/OFF>       **
13664C     **********************************************************
13665C
13666      IPART1='CAPT'
13667      IPART2='SCRI'
13668      IPART3='LOOP'
13669      IPART4='SUBS'
13670      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
13671     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4)THEN
13672        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE')THEN
13673          IHV='ON'
13674        ELSE
13675          IHV='OFF'
13676        ENDIF
13677        ICSCSB=IHV
13678        GOTO5160
13679      ENDIF
13680C
13681CCCCC FOLLOWING SECTION ADDED DECEMBER  2016
13682C     **********************************************************
13683C     **  SET COEFFICIENT OF VARIATION CONFIDENCE LIMIT       **
13684C     **      METHOD <VANGEL/MCKAY/MAXIMUM LIKELIHOOD>        **
13685C     **********************************************************
13686C
13687      IPART1='COEF'
13688      IPART2='OF  '
13689      IPART3='VARI'
13690      IPART4='CONF'
13691      IPART5='LIMI'
13692      IPART6='METH'
13693      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
13694     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4 .AND.
13695     1   IHARG(5).EQ.IPART5 .AND. IHARG(6).EQ.IPART6)THEN
13696        IF(IHV.EQ.'MCKA')THEN
13697          IHV='MCKA'
13698        ELSEIF(IHARG(7).EQ.'MAXI' .AND. IHV.EQ.'LIKE')THEN
13699          IHV='MLE'
13700        ELSEIF(IHV.EQ.'MLE' .OR. IHV.EQ.'ML')THEN
13701          IHV='MLE'
13702        ELSEIF(IHV.EQ.'NAIV')THEN
13703          IHV='NAIV'
13704        ELSEIF(IHV.EQ.'EXAC')THEN
13705          IHV='EXAC'
13706        ELSEIF(IHV.EQ.'GPQ ')THEN
13707          IHV='GPQ '
13708        ELSEIF(IHARG(7).EQ.'GENE' .AND. IHARG(8).EQ.'CONF')THEN
13709          IHV='GPQ '
13710        ELSE
13711          IHV='VANG'
13712        ENDIF
13713        ICVACI=IHV
13714        GOTO5160
13715      ENDIF
13716C
13717CCCCC FOLLOWING SECTION ADDED JANUARY  2017
13718C     **********************************************************
13719C     **  SET HYPHEN WORD SEPARATOR <ON/OFF>                  **
13720C     **********************************************************
13721C
13722      IPART1='HYPH'
13723      IPART2='WORD'
13724      IPART3='SEPA'
13725      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
13726     1   IHARG(3).EQ.IPART3)THEN
13727        IF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'FALS')THEN
13728          IHV='OFF'
13729        ELSE
13730          IHV='ON'
13731        ENDIF
13732        IHYPSW=IHV
13733        GOTO5160
13734      ENDIF
13735C
13736CCCCC FOLLOWING SECTION ADDED APRIL  2018
13737C     **********************************************************
13738C     **  SET HYPHEN COMMAND LINE <ON/OFF>                    **
13739C     **********************************************************
13740C
13741      IPART1='HYPH'
13742      IPART2='COMM'
13743      IPART3='LINE'
13744      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
13745     1   IHARG(3).EQ.IPART3)THEN
13746        IF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'FALS')THEN
13747          IHV='OFF'
13748        ELSE
13749          IHV='ON'
13750        ENDIF
13751        IHYPCL=IHV
13752        GOTO5160
13753      ENDIF
13754C
13755CCCCC FOLLOWING SECTION ADDED APRIL  2018
13756C     **********************************************************
13757C     **  SET COMMA  COMMAND LINE <ON/OFF>                    **
13758C     **********************************************************
13759C
13760      IPART1='COMM'
13761      IPART2='COMM'
13762      IPART3='LINE'
13763      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
13764     1   IHARG(3).EQ.IPART3)THEN
13765        IF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'FALS')THEN
13766          IHV='OFF'
13767        ELSE
13768          IHV='ON'
13769        ENDIF
13770        ICOMCL=IHV
13771        GOTO5160
13772      ENDIF
13773C
13774CCCCC FOLLOWING SECTION ADDED APRIL  2018
13775C     **********************************************************
13776C     **  SET EQUAL  COMMAND LINE <ON/OFF>                    **
13777C     **********************************************************
13778C
13779      IPART1='EQUA'
13780      IPART2='COMM'
13781      IPART3='LINE'
13782      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
13783     1   IHARG(3).EQ.IPART3)THEN
13784        IF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'FALS')THEN
13785          IHV='OFF'
13786        ELSE
13787          IHV='ON'
13788        ENDIF
13789        IEQUCL=IHV
13790        GOTO5160
13791      ENDIF
13792C
13793CCCCC FOLLOWING SECTION ADDED MAY  2018
13794C     **********************************************************
13795C     **  SET GUENTHER CORRECTION <ON/OFF>                    **
13796C     **********************************************************
13797C
13798      IPART1='GUEN'
13799      IPART2='CORR'
13800      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2)THEN
13801        IF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'FALS')THEN
13802          IHV='OFF'
13803        ELSE
13804          IHV='ON'
13805        ENDIF
13806        ITOLGC=IHV
13807        GOTO5160
13808      ENDIF
13809C
13810CCCCC FOLLOWING SECTION ADDED MAY  2018
13811C     **********************************************************
13812C     **  SET TOLERANCE LIMITS METHOD <HOWE/WALD WOLFOWITZ>   **
13813C     **********************************************************
13814C
13815      IPART1='TOLE'
13816      IPART2='LIMI'
13817      IPART3='METH'
13818      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
13819     1   IHARG(3).EQ.IPART3)THEN
13820        IF(IHV.EQ.'WALD' .OR. IHV.EQ.'WOLF' .OR. IHV.EQ.'BEAT' .OR.
13821     1     IHV.EQ.'GARD')THEN
13822          IHV='WALD'
13823        ELSE
13824          IHV='HOWE'
13825        ENDIF
13826        ITOLME=IHV
13827        GOTO5160
13828      ENDIF
13829C
13830CCCCC FOLLOWING SECTION ADDED MAY  2018
13831C     **********************************************************
13832C     **  SET TOLERANCE LIMITS ONE SIDED METHOD               **
13833C     **      <NONCENTRAL T/NORMAL/DEFAULT                    **
13834C     **********************************************************
13835C
13836      IPART1='TOLE'
13837      IPART2='LIMI'
13838      IPART3='ONE '
13839      IPART4='SIDE'
13840      IPART5='METH'
13841      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
13842     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4 .AND.
13843     1   IHARG(5).EQ.IPART5)THEN
13844        IF(IHARG(6).EQ.'NONC' .OR. IHV.EQ.'T   ')THEN
13845          IHV='NONC'
13846        ELSEIF(IHV.EQ.'NORM')THEN
13847          IHV='NORM'
13848        ELSE
13849          IHV='DEFA'
13850        ENDIF
13851        ITOLM2=IHV
13852        GOTO5160
13853      ENDIF
13854C
13855CCCCC FOLLOWING SECTION ADDED JUNE  2018
13856C     **********************************************************
13857C     **  SET DISTRIBUTIONAL FIT PLOT SORT                    **
13858C     **      <OFF/AVERAGE RANK>                              **
13859C     **********************************************************
13860C
13861      IPART1='DIST'
13862      IPART2='FIT '
13863      IPART3='PLOT'
13864      IPART4='SORT'
13865      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
13866     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4)THEN
13867        IF(IHARG(5).EQ.'AVER' .AND. IHARG(6).EQ.'RANK')THEN
13868          IHV='AVRA'
13869        ELSE
13870          IHV='OFF'
13871        ENDIF
13872        IDFISO=IHV
13873        GOTO5160
13874      ENDIF
13875C
13876CCCCC FOLLOWING SECTION ADDED JUNE  2018
13877C     **********************************************************
13878C     **  SET DISTRIBUTIONAL FIT PLOT TYPE                    **
13879C     **      <TABLE/SCATTER>                                 **
13880C     **********************************************************
13881C
13882      IPART1='DIST'
13883      IPART2='FIT '
13884      IPART3='PLOT'
13885      IPART4='TYPE'
13886      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
13887     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4)THEN
13888        IF(IHARG(5).EQ.'SCAT')THEN
13889          IHV='SCAT'
13890        ELSE
13891          IHV='TABL'
13892        ENDIF
13893        IDFITY=IHV
13894        GOTO5160
13895      ENDIF
13896C
13897CCCCC FOLLOWING SECTION ADDED JANUARY  2017
13898C     **********************************************************
13899C     **  SET WELCH SATTERTHWAITE <VARIANCE/STANDARD DEVI>    **
13900C     **********************************************************
13901C
13902      IPART1='WELC'
13903      IPART2='SATT'
13904      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2)THEN
13905        IF(IHV.EQ.'OFF'  .OR. IHV.EQ.'NO  ' .OR. IHV.EQ.'FALS' .OR.
13906     1     IHV.EQ.'ON'   .OR. IHV.EQ.'YES ' .OR. IHV.EQ.'TRUE' .OR.
13907     1     IHV.EQ.'VARI' .OR. IHV.EQ.'DEFA' .OR. NUMARG.LT.3)THEN
13908          IHV='VARI'
13909        ELSE
13910          IHV='SD'
13911        ENDIF
13912        IWSAUN=IHV
13913        GOTO5160
13914      ENDIF
13915C
13916CCCCC FOLLOWING SECTION ADDED MARCH  2017
13917C     **********************************************************
13918C     **  SET K MEANS INITIAL <RANDOM/DISTANCE>               **
13919C     **********************************************************
13920C
13921      IPART1='K   '
13922      IPART2='MEAN'
13923      IPART3='INIT'
13924      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
13925     1   IHARG(3).EQ.IPART3)THEN
13926        IF(IHV.EQ.'DIST')THEN
13927          IHV='DIST'
13928        ELSE
13929          IHV='RAND'
13930        ENDIF
13931        IKMEIN=IHV
13932        GOTO5160
13933      ENDIF
13934C
13935CCCCC FOLLOWING SECTION ADDED MARCH  2017
13936C     **********************************************************
13937C     **  SET K MEANS SILHOUETTE <ON/OFF>                     **
13938C     **********************************************************
13939C
13940      IPART1='K   '
13941      IPART2='MEAN'
13942      IPART3='SILH'
13943      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
13944     1   IHARG(3).EQ.IPART3)THEN
13945        IF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'FALS')THEN
13946          IHV='OFF'
13947        ELSE
13948          IHV='ON'
13949        ENDIF
13950        IKMESI=IHV
13951        GOTO5160
13952      ENDIF
13953C
13954CCCCC FOLLOWING SECTION ADDED MARCH  2017
13955C     **********************************************************
13956C     **  SET K MEANS SCALE      <ON/OFF>                     **
13957C     **********************************************************
13958C
13959      IPART1='K   '
13960      IPART2='MEAN'
13961      IPART3='SCAL'
13962      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
13963     1   IHARG(3).EQ.IPART3)THEN
13964        IF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'FALS')THEN
13965          IHV='OFF'
13966        ELSE
13967          IHV='ON'
13968        ENDIF
13969        IKMESC=IHV
13970        GOTO5160
13971      ENDIF
13972C
13973CCCCC FOLLOWING SECTION ADDED APRIL  2017
13974C     **********************************************************
13975C     **  SET K MEANS ROW LABEL <ON/OFF>                      **
13976C     **********************************************************
13977C
13978      IPART1='K   '
13979      IPART2='MEAN'
13980      IPART3='ROW '
13981      IPART4='LABE'
13982      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
13983     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4)THEN
13984        IF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'FALS')THEN
13985          IHV='OFF'
13986        ELSE
13987          IHV='ON'
13988        ENDIF
13989        IKMERL=IHV
13990        GOTO5160
13991      ENDIF
13992C
13993CCCCC FOLLOWING SECTION ADDED APRIL  2017
13994C     **********************************************************
13995C     **  SET NORMAL MIXTURE CLUSTER SCALE <ON/OFF>           **
13996C     **********************************************************
13997C
13998      IPART1='NORM'
13999      IPART2='MIXT'
14000      IPART3='CLUS'
14001      IPART4='SCAL'
14002      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
14003     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4)THEN
14004        IF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'FALS')THEN
14005          IHV='OFF'
14006        ELSE
14007          IHV='ON'
14008        ENDIF
14009        INMCSC=IHV
14010        GOTO5160
14011      ENDIF
14012C
14013CCCCC FOLLOWING SECTION ADDED APRIL  2017
14014C     **********************************************************
14015C     **  SET NORMAL MIXTURE ROW LABEL <ON/OFF>               **
14016C     **********************************************************
14017C
14018      IPART1='NORM'
14019      IPART2='MIXT'
14020      IPART3='CLUS'
14021      IPART4='ROW '
14022      IPART5='LABE'
14023      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
14024     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4 .AND.
14025     1   IHARG(5).EQ.IPART5)THEN
14026        IF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'FALS')THEN
14027          IHV='OFF'
14028        ELSE
14029          IHV='ON'
14030        ENDIF
14031        INMCRL=IHV
14032        GOTO5160
14033      ENDIF
14034C
14035CCCCC FOLLOWING SECTION ADDED APRIL  2017
14036C     **********************************************************
14037C     **  SET NORMAL MIXTURE TITLE     <ON/OFF>               **
14038C     **********************************************************
14039C
14040      IPART1='NORM'
14041      IPART2='MIXT'
14042      IPART3='CLUS'
14043      IPART4='TITL'
14044      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
14045     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4)THEN
14046        IF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'FALS')THEN
14047          IHV='OFF'
14048        ELSE
14049          IHV='ON'
14050        ENDIF
14051        INMCTI=' '
14052        INMCTI(1:4)=IHARG(5)(1:4)
14053        INMCTI(5:8)=IHARG2(5)(1:4)
14054        GOTO5160
14055      ENDIF
14056C
14057CCCCC FOLLOWING SECTION ADDED AUGUST 2017
14058C     *****************************************************
14059C     **  SET K MEDOID CLUSTER SCALE <ON/OFF>            **
14060C     *****************************************************
14061C
14062      IPART1='K   '
14063      IPART2='MEDO'
14064      IPART3='CLUS'
14065      IPART4='SCAL'
14066      IPART5='MEDI'
14067      IF(IHARG(1).EQ.IPART1 .AND.
14068     1  (IHARG(2).EQ.IPART2 .OR. IHARG(2).EQ.IPART5) .AND.
14069     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4)THEN
14070        IF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'FALS')THEN
14071          IHV='OFF'
14072        ELSE
14073          IHV='ON'
14074        ENDIF
14075        IKMDSC=IHV
14076        GOTO5160
14077      ENDIF
14078C
14079CCCCC FOLLOWING SECTION ADDED AUGUST 2017
14080C     *****************************************************
14081C     **  SET K MEDIOID CLUSTER DISTANCE                 **
14082C     **      <EUCLIDEAN/MANHATTAN>                      **
14083C     *****************************************************
14084C
14085      IPART1='K   '
14086      IPART2='MEDO'
14087      IPART3='CLUS'
14088      IPART4='DIST'
14089      IPART5='MEDI'
14090      IF(IHARG(1).EQ.IPART1 .AND.
14091     1  (IHARG(2).EQ.IPART2 .OR. IHARG(2).EQ.IPART5) .AND.
14092     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4)THEN
14093        IF(IHV.EQ.'EUCL')THEN
14094          IHV='EUCL'
14095        ELSE
14096          IHV='MANH'
14097        ENDIF
14098        IKMDDI=IHV
14099        GOTO5160
14100      ENDIF
14101C
14102CCCCC FOLLOWING SECTION ADDED AUGUST 2017
14103C     *****************************************************
14104C     **  SET K MEDIOID CLUSTER PRINT                    **
14105C     **      <ALL/FINAL>                                **
14106C     *****************************************************
14107C
14108      IPART1='K   '
14109      IPART2='MEDO'
14110      IPART3='CLUS'
14111      IPART4='PRIN'
14112      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
14113     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4)THEN
14114        IF(IHV.EQ.'FINA')THEN
14115          IHV='FINA'
14116        ELSEIF(IHV.EQ.'MINI')THEN
14117          IHV='MINI'
14118        ELSE
14119          IHV='ALL '
14120        ENDIF
14121        IKMDPR=IHV
14122        GOTO5160
14123      ENDIF
14124C
14125CCCCC FOLLOWING SECTION ADDED AUGUST 2017
14126C     *****************************************************
14127C     **  SET K MEDIOID CLUSTER RANDOM NUMBER GENERATOR  **
14128C     **      <DATAPLOT/ROUSSEUW>                        **
14129C     *****************************************************
14130C
14131      IPART1='K   '
14132      IPART2='MEDO'
14133      IPART3='CLUS'
14134      IPART4='RAND'
14135      IPART5='NUMB'
14136      IPART6='GENE'
14137      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
14138     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4 .AND.
14139     1   IHARG(5).EQ.IPART5 .AND. IHARG(6).EQ.IPART6)THEN
14140        IF(IHV.EQ.'ROUS' .OR. IHV.EQ.'KAUF')THEN
14141          IHV='ROUS'
14142        ELSE
14143          IHV='DATA'
14144        ENDIF
14145        IKMDRN=IHV
14146        GOTO5160
14147      ENDIF
14148C
14149CCCCC FOLLOWING SECTION ADDED AUGUST 2017
14150C     *****************************************************
14151C     **  SET K MEDIOID CLUSTER TYPE                     **
14152C     **      <MEASUREMENT/DISSIMILARITY                 **
14153C     *****************************************************
14154C
14155      IPART1='K   '
14156      IPART2='MEDO'
14157      IPART3='CLUS'
14158      IPART4='TYPE'
14159      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
14160     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4)THEN
14161        IF(IHV.EQ.'DISS')THEN
14162          IHV='DISS'
14163        ELSE
14164          IHV='MEAS'
14165        ENDIF
14166        IKMDTY=IHV
14167        GOTO5160
14168      ENDIF
14169C
14170CCCCC FOLLOWING SECTION ADDED AUGUST 2017
14171C     *****************************************************
14172C     **  SET K MEDIOID CLUSTER SAMPLE SIZE <VALUE>      **
14173C     *****************************************************
14174C
14175      IPART1='K   '
14176      IPART2='MEDO'
14177      IPART3='CLUS'
14178      IPART4='SAMP'
14179      IPART5='SIZE'
14180      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
14181     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4 .AND.
14182     1   IHARG(5).EQ.IPART5)THEN
14183        IF(NUMARG.EQ.5 .OR. IHARG(6).EQ.'DEFA' .OR.
14184     1     IHARG(6).EQ.'OFF'  .OR. IHARG(6).EQ.'ON' .OR.
14185     1     IHARG(6).EQ.'NO'   .OR. IHARG(6).EQ.'YES' .OR.
14186     1     IHARG(6).EQ.'FALS' .OR. IHARG(6).EQ.'TRUE')THEN
14187          IKMDSS=-1
14188          IV=IKMDSS
14189          GOTO5150
14190        ELSE
14191          IV=IARG(NUMARG)
14192          IKMDSS=IV
14193          IF(IKMDSS.LT.1)IKMDSS=-1
14194          IF(IKMDSS.GE.MAXOBV)IKMDSS=-1
14195          IV=IKMDSS
14196          GOTO5150
14197        ENDIF
14198      ENDIF
14199C
14200CCCCC FOLLOWING SECTION ADDED AUGUST 2017
14201C     ******************************************************
14202C     **  SET K MEDIOID CLUSTER NUMBER OF SAMPLES <VALUE> **
14203C     ******************************************************
14204C
14205      IPART1='K   '
14206      IPART2='MEDO'
14207      IPART3='CLUS'
14208      IPART4='NUMB'
14209      IPART5='OF  '
14210      IPART6='SAMP'
14211      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
14212     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4 .AND.
14213     1   IHARG(5).EQ.IPART5 .AND. IHARG(6).EQ.IPART6)THEN
14214        IF(NUMARG.EQ.6 .OR. IHARG(7).EQ.'DEFA' .OR.
14215     1     IHARG(7).EQ.'OFF'  .OR. IHARG(7).EQ.'ON' .OR.
14216     1     IHARG(7).EQ.'NO'   .OR. IHARG(7).EQ.'YES' .OR.
14217     1     IHARG(7).EQ.'FALS' .OR. IHARG(7).EQ.'TRUE')THEN
14218          IKMDNS=-1
14219          IV=IKMDNS
14220          GOTO5150
14221        ELSE
14222          IV=IARG(NUMARG)
14223          IKMDNS=IV
14224          IF(IKMDNS.LT.1)IKMDNS=-1
14225          IF(IKMDNS.GE.MAXOBV)IKMDNS=-1
14226          IV=IKMDNS
14227          GOTO5150
14228        ENDIF
14229      ENDIF
14230C
14231CCCCC FOLLOWING SECTION ADDED AUGUST 2017
14232C     ******************************************************
14233C     **  SET K MEDIOID CLUSTER PAM MAXIMUM SIZE <VALUE>  **
14234C     ******************************************************
14235C
14236      IPART1='K   '
14237      IPART2='MEDO'
14238      IPART3='CLUS'
14239      IPART4='PAM '
14240      IPART5='MAXI'
14241      IPART6='SIZE'
14242      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
14243     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4 .AND.
14244     1   IHARG(5).EQ.IPART5 .AND. IHARG(6).EQ.IPART6)THEN
14245        IF(NUMARG.EQ.6 .OR. IHARG(7).EQ.'DEFA' .OR.
14246     1     IHARG(7).EQ.'OFF'  .OR. IHARG(7).EQ.'ON' .OR.
14247     1     IHARG(7).EQ.'NO'   .OR. IHARG(7).EQ.'YES' .OR.
14248     1     IHARG(7).EQ.'FALS' .OR. IHARG(7).EQ.'TRUE')THEN
14249          IKMDPN=100
14250          IV=IKMDPN
14251          GOTO5150
14252        ELSE
14253          IV=IARG(NUMARG)
14254          IKMDNS=IV
14255          IF(IKMDPN.LT.1)IKMDNS=100
14256          IF(IKMDPN.GE.500)IKMDPN=500
14257          IV=IKMDPN
14258          GOTO5150
14259        ENDIF
14260      ENDIF
14261C
14262CCCCC FOLLOWING SECTION ADDED AUGUST 2017
14263C     *****************************************************
14264C     **  SET AGNES    CLUSTER SCALE <ON/OFF>            **
14265C     *****************************************************
14266C
14267      IPART1='AGNE'
14268      IPART2='CLUS'
14269      IPART3='SCAL'
14270      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
14271     1   IHARG(3).EQ.IPART3)THEN
14272        IF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'FALS')THEN
14273          IHV='OFF'
14274        ELSE
14275          IHV='ON'
14276        ENDIF
14277        IAGNSC=IHV
14278        GOTO5160
14279      ENDIF
14280C
14281CCCCC FOLLOWING SECTION ADDED AUGUST 2017
14282C     *****************************************************
14283C     **  SET AGNES CLUSTER BANNER PLOT <ON/OFF>         **
14284C     *****************************************************
14285C
14286      IPART1='AGNE'
14287      IPART2='CLUS'
14288      IPART3='BANN'
14289      IPART4='PLOT'
14290      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
14291     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4)THEN
14292        IF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'FALS')THEN
14293          IHV='OFF'
14294        ELSE
14295          IHV='ON'
14296        ENDIF
14297        IAGNBA=IHV
14298        GOTO5160
14299      ENDIF
14300C
14301CCCCC FOLLOWING SECTION ADDED AUGUST 2017
14302C     *****************************************************
14303C     **  SET AGNES     CLUSTER DISTANCE                 **
14304C     **      <EUCLIDEAN/MANHATTAN>                      **
14305C     *****************************************************
14306C
14307      IPART1='AGNE'
14308      IPART2='CLUS'
14309      IPART3='DIST'
14310      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
14311     1   IHARG(3).EQ.IPART3)THEN
14312        IF(IHV.EQ.'EUCL')THEN
14313          IHV='EUCL'
14314        ELSE
14315          IHV='MANH'
14316        ENDIF
14317        IAGNDI=IHV
14318        GOTO5160
14319      ENDIF
14320C
14321CCCCC FOLLOWING SECTION ADDED AUGUST 2017
14322C     *****************************************************
14323C     **  SET AGNES     CLUSTER PRINT <ALL/FINAL>        **
14324C     *****************************************************
14325C
14326      IPART1='AGNE'
14327      IPART2='CLUS'
14328      IPART3='PRIN'
14329      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
14330     1   IHARG(3).EQ.IPART3)THEN
14331        IF(IHV.EQ.'FINA')THEN
14332          IHV='FINA'
14333        ELSE
14334          IHV='ALL '
14335        ENDIF
14336        IAGNPR=IHV
14337        GOTO5160
14338      ENDIF
14339C
14340CCCCC FOLLOWING SECTION ADDED AUGUST 2017
14341C     *****************************************************
14342C     **  SET AGNES CLUSTER TYPE                         **
14343C     **      <MEASUREMENT/DISSIMILARITY>                **
14344C     *****************************************************
14345C
14346      IPART1='AGNE'
14347      IPART2='CLUS'
14348      IPART3='TYPE'
14349      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
14350     1   IHARG(3).EQ.IPART3)THEN
14351        IF(IHV.EQ.'MEAS')THEN
14352          IHV='MEAS'
14353        ELSE
14354          IHV='DISS'
14355        ENDIF
14356        IAGNTY=IHV
14357        GOTO5160
14358      ENDIF
14359C
14360CCCCC FOLLOWING SECTION ADDED AUGUST 2017
14361C     *****************************************************
14362C     **  SET AGNES CLUSTER METHOD <AVERAGE LINKAGE/     **
14363C     **      SINGLE LINKAGE/COMPLETE LINKAGE/WARD/      **
14364C     **      CENTROID/GOWER/WEIGHTED AVERAGE LINKAGE>   **
14365C     *****************************************************
14366C
14367      IPART1='AGNE'
14368      IPART2='CLUS'
14369      IPART3='METH'
14370      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
14371     1   IHARG(3).EQ.IPART3)THEN
14372        IF(IHV.EQ.'WARD')THEN
14373          IHV='WARD'
14374        ELSEIF(IHV.EQ.'GOWE')THEN
14375          IHV='GOWE'
14376        ELSEIF(IHV.EQ.'CENT')THEN
14377          IHV='CENT'
14378        ELSEIF(IHARG(4).EQ.'SING' .AND. IHARG(5).EQ.'LINK')THEN
14379          IHV='SING'
14380        ELSEIF(IHARG(4).EQ.'NEAR' .AND. IHARG(5).EQ.'NEIG')THEN
14381          IHV='SING'
14382        ELSEIF(IHARG(4).EQ.'COMP' .AND. IHARG(5).EQ.'LINK')THEN
14383          IHV='COMP'
14384        ELSEIF(IHARG(4).EQ.'WEIG' .AND. IHARG(5).EQ.'AVER' .AND.
14385     1         IHARG(6).EQ.'LINK')THEN
14386          IHV='WAVL'
14387        ELSE
14388          IHV='AVER'
14389        ENDIF
14390        IAGNME=IHV
14391        GOTO5160
14392      ENDIF
14393C
14394CCCCC FOLLOWING SECTION ADDED AUGUST 2017
14395C     *****************************************************
14396C     **  SET AGNES CLUSTER MAXIMUM SIZE <VALUE>         **
14397C     *****************************************************
14398C
14399      IPART1='AGN '
14400      IPART2='CLUS'
14401      IPART3='MAXI'
14402      IPART4='SIZE'
14403      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
14404     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4)THEN
14405        IF(NUMARG.EQ.5 .OR. IHARG(6).EQ.'DEFA' .OR.
14406     1     IHARG(6).EQ.'OFF'  .OR. IHARG(6).EQ.'ON' .OR.
14407     1     IHARG(6).EQ.'NO'   .OR. IHARG(6).EQ.'YES' .OR.
14408     1     IHARG(6).EQ.'FALS' .OR. IHARG(6).EQ.'TRUE')THEN
14409          IAGNMS=100
14410          IV=IAGNMS
14411          GOTO5150
14412        ELSE
14413          IV=IARG(NUMARG)
14414          IAGNMS=IV
14415          IF(IAGNMS.LT.100)IAGNMS=100
14416          IF(IAGNMS.GT.500)IAGNMS=500
14417          IV=IAGNMS
14418          GOTO5150
14419        ENDIF
14420      ENDIF
14421C
14422CCCCC FOLLOWING SECTION ADDED AUGUST 2017
14423C     *****************************************************
14424C     **  SET FANNY    CLUSTER SCALE <ON/OFF>            **
14425C     *****************************************************
14426C
14427      IPART1='FANN'
14428      IPART2='CLUS'
14429      IPART3='SCAL'
14430      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
14431     1   IHARG(3).EQ.IPART3)THEN
14432        IF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'FALS')THEN
14433          IHV='OFF'
14434        ELSE
14435          IHV='ON'
14436        ENDIF
14437        IFANSC=IHV
14438        GOTO5160
14439      ENDIF
14440C
14441CCCCC FOLLOWING SECTION ADDED AUGUST 2017
14442C     *****************************************************
14443C     **  SET FANNY     CLUSTER DISTANCE                 **
14444C     **      <EUCLIDEAN/MANHATTAN>                      **
14445C     *****************************************************
14446C
14447      IPART1='FANN'
14448      IPART2='CLUS'
14449      IPART3='DIST'
14450      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
14451     1   IHARG(3).EQ.IPART3)THEN
14452        IF(IHV.EQ.'EUCL')THEN
14453          IHV='EUCL'
14454        ELSE
14455          IHV='MANH'
14456        ENDIF
14457        IFANDI=IHV
14458        GOTO5160
14459      ENDIF
14460C
14461CCCCC FOLLOWING SECTION ADDED AUGUST 2017
14462C     *****************************************************
14463C     **  SET FANNY     CLUSTER PRINT <ALL/FINAL>        **
14464C     *****************************************************
14465C
14466      IPART1='FANN'
14467      IPART2='CLUS'
14468      IPART3='PRIN'
14469      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
14470     1   IHARG(3).EQ.IPART3)THEN
14471        IF(IHV.EQ.'FINA')THEN
14472          IHV='FINA'
14473        ELSE
14474          IHV='ALL '
14475        ENDIF
14476        IFANPR=IHV
14477        GOTO5160
14478      ENDIF
14479C
14480CCCCC FOLLOWING SECTION ADDED AUGUST 2017
14481C     *****************************************************
14482C     **  SET FANNY CLUSTER TYPE                         **
14483C     **      <MEASUREMENT/DISSIMILARITY>                **
14484C     *****************************************************
14485C
14486      IPART1='FANN'
14487      IPART2='CLUS'
14488      IPART3='TYPE'
14489      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
14490     1   IHARG(3).EQ.IPART3)THEN
14491        IF(IHV.EQ.'MEAS')THEN
14492          IHV='MEAS'
14493        ELSE
14494          IHV='DISS'
14495        ENDIF
14496        IFANTY=IHV
14497        GOTO5160
14498      ENDIF
14499C
14500CCCCC FOLLOWING SECTION ADDED AUGUST 2017
14501C     *****************************************************
14502C     **  SET FANNY CLUSTER MAXIMUM SIZE <VALUE>         **
14503C     *****************************************************
14504C
14505      IPART1='FANN'
14506      IPART2='CLUS'
14507      IPART3='MAXI'
14508      IPART4='SIZE'
14509      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
14510     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4)THEN
14511        IF(NUMARG.EQ.5 .OR. IHARG(6).EQ.'DEFA' .OR.
14512     1     IHARG(6).EQ.'OFF'  .OR. IHARG(6).EQ.'ON' .OR.
14513     1     IHARG(6).EQ.'NO'   .OR. IHARG(6).EQ.'YES' .OR.
14514     1     IHARG(6).EQ.'FALS' .OR. IHARG(6).EQ.'TRUE')THEN
14515          IFANMS=100
14516          IV=IFANMS
14517          GOTO5150
14518        ELSE
14519          IV=IARG(NUMARG)
14520          IFANMS=IV
14521          IF(IFANMS.LT.100)IFANMS=100
14522          IF(IFANMS.GT.500)IFANMS=500
14523          IV=IFANMS
14524          GOTO5150
14525        ENDIF
14526      ENDIF
14527C
14528CCCCC FOLLOWING SECTION ADDED JULY   2019
14529C     *****************************************************
14530C     **  SET BOXPLOT FENCE SKEWNESS <OFF/GALTON>        **
14531C     *****************************************************
14532C
14533      IPART1='BOXP'
14534      IPART2='FENC'
14535      IPART3='SKEW'
14536      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
14537     1   IHARG(3).EQ.IPART3)THEN
14538        IF(IHARG(4).EQ.'ON' .OR. IHARG(4).EQ.'YES' .OR.
14539     1     IHARG(4).EQ.'TRUE' .OR. IHARG(4).EQ.'GALT' .OR.
14540     1     IHARG(4).EQ.'WALK' .OR. IHARG(4).EQ.'BOWL')THEN
14541          IBXPSK='GALT'
14542          IHV=IBXPSK
14543          GOTO5160
14544        ELSEIF(IHARG(4).EQ.'KIMB')THEN
14545          IBXPSK='KIMB'
14546          IHV=IBXPSK
14547          GOTO5160
14548        ELSE
14549          IBXPSK='OFF'
14550          IHV=IBXPSK
14551          GOTO5160
14552        ENDIF
14553      ENDIF
14554C
14555      IPART1='BOX '
14556      IPART2='PLOT'
14557      IPART3='FENC'
14558      IPART4='SKEW'
14559      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
14560     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4)THEN
14561        IF(IHARG(5).EQ.'ON' .OR. IHARG(5).EQ.'YES' .OR.
14562     1     IHARG(5).EQ.'TRUE' .OR. IHARG(5).EQ.'GALT' .OR.
14563     1     IHARG(5).EQ.'WALK' .OR. IHARG(5).EQ.'BOWL')THEN
14564          IBXPSK='GALT'
14565          IHV=IBXPSK
14566          GOTO5160
14567        ELSEIF(IHARG(5).EQ.'KIMB')THEN
14568          IBXPSK='KIMB'
14569          IHV=IBXPSK
14570          GOTO5160
14571        ELSE
14572          IBXPSK='OFF'
14573          IHV=IBXPSK
14574          GOTO5160
14575        ENDIF
14576      ENDIF
14577C
14578CCCCC FOLLOWING SECTION ADDED MARCH 2002.
14579C     ****************************************************************
14580C     **  SET BOX PLOT WIDTH <VARIABLE/FIXED>                       **
14581C     ****************************************************************
14582C
14583      IPART1='BOX '
14584      IPART2='PLOT'
14585      IPART3='WIDT'
14586      IF(IHARG(1).EQ.IPART1.AND.
14587     1   (IHARG(2).EQ.IPART2.OR.IHARG(2).EQ.IPART3))THEN
14588        IBXPWI=IHV
14589        IF(IBXPWI.NE.'FIXE')IBXPWI='VARI'
14590        IHV=IBXPWI
14591        GOTO5160
14592      ENDIF
14593C
14594CCCCC FOLLOWING SECTION ADDED AUGUST 2019
14595C     *****************************************************
14596C     **  SET ONE SAMPLE PROFICIENCY TEST IDENTIFY LAB   **
14597C     **      <DEFAULT/UNUSUAL/EXTREMELY UNUSUAL>        **
14598C     *****************************************************
14599C
14600      IPART1='ONE '
14601      IPART2='SAMP'
14602      IPART3='PROF'
14603      IPART4='TEST'
14604      IPART5='IDEN'
14605      IPART6='LAB'
14606      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
14607     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4 .AND.
14608     1   IHARG(5).EQ.IPART5 .AND. IHARG(6)(1:3).EQ.IPART6(1:3))THEN
14609        IF(IHARG(7).EQ.'UNUS')THEN
14610          I1PTOC='UNUS'
14611          IHV=I1PTOC
14612          GOTO5160
14613        ELSEIF(IHARG(7).EQ.'EXTR' .AND. IHARG(8).EQ.'UNUS')THEN
14614          I1PTOC='EXTR'
14615          IHV=I1PTOC
14616          GOTO5160
14617        ELSE
14618          I1PTOC='DEFA'
14619          IHV=I1PTOC
14620          GOTO5160
14621        ENDIF
14622      ENDIF
14623C
14624CCCCC FOLLOWING SECTION ADDED SEPTEMBER 2019
14625C     *****************************************************
14626C     **  SET GREP CASE <IGNORE/NOIGNORE>                **
14627C     *****************************************************
14628C
14629      IPART1='GREP'
14630      IPART2='CASE'
14631      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2)THEN
14632        IF(NUMARG.EQ.2 .OR. IHARG(3).EQ.'IGNO' .OR.
14633     1     IHARG(3).EQ.'OFF ' .OR. IHARG(3).EQ.'NO  ' .OR.
14634     1     IHARG(3).EQ.'FALS' .OR. IHARG(3).EQ.'DEFA')THEN
14635          IGRPCA='IGNO'
14636          IHV=IGRPCA
14637          GOTO5160
14638        ELSEIF(IHARG(3).EQ.'ON  ' .OR. IHARG(3).EQ.'YES ' .OR.
14639     1     IHARG(3).EQ.'TRUE' .OR. IHARG(3).EQ.'NOIG')THEN
14640          IGRPCA='NOIG'
14641          IHV=IGRPCA
14642          GOTO5160
14643        ELSE
14644          IGRPCA='NOIG'
14645          IHV=IGRPCA
14646          GOTO5160
14647        ENDIF
14648      ENDIF
14649C
14650CCCCC FOLLOWING SECTION ADDED SEPTEMBER 2019
14651C     *****************************************************
14652C     **  SET GREP RECURSIVE <ON/OFF>                    **
14653C     *****************************************************
14654C
14655      IPART1='GREP'
14656      IPART2='RECU'
14657      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2)THEN
14658        IF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'FALS')THEN
14659          IGRPRE='OFF'
14660        ELSE
14661          IGRPRE='ON'
14662        ENDIF
14663        IHV=IGRPRE
14664        GOTO5160
14665      ENDIF
14666C
14667CCCCC FOLLOWING SECTION ADDED SEPTEMBER 2019
14668C     *****************************************************
14669C     **  SET GREP LINE NUMBERS <ON/OFF>                 **
14670C     *****************************************************
14671C
14672      IPART1='GREP'
14673      IPART2='LINE'
14674      IPART3='NUMB'
14675      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
14676     1   IHARG(3).EQ.IPART3)THEN
14677        IF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'FALS')THEN
14678          IGRPLN='OFF'
14679        ELSE
14680          IGRPLN='ON'
14681        ENDIF
14682        IHV=IGRPLN
14683        GOTO5160
14684      ENDIF
14685C
14686CCCCC FOLLOWING SECTION ADDED SEPTEMBER 2019
14687C     *****************************************************
14688C     **  SET GREP EXACT MATCH <ON/OFF>                  **
14689C     *****************************************************
14690C
14691      IPART1='GREP'
14692      IPART2='EXAC'
14693      IPART3='MATC'
14694      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
14695     1   IHARG(3).EQ.IPART3)THEN
14696        IF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'FALS')THEN
14697          IGRPEM='OFF'
14698        ELSE
14699          IGRPEM='ON'
14700        ENDIF
14701        IHV=IGRPEM
14702        GOTO5160
14703      ENDIF
14704C
14705CCCCC FOLLOWING SECTION ADDED SEPTEMBER 2019
14706C     *****************************************************
14707C     **  SET GREP NO    MATCH <ON/OFF>                  **
14708C     *****************************************************
14709C
14710      IPART1='GREP'
14711      IPART2='NO  '
14712      IPART3='MATC'
14713      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
14714     1   IHARG(3).EQ.IPART3)THEN
14715        IF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'FALS')THEN
14716          IGRPNM='OFF'
14717        ELSE
14718          IGRPNM='ON'
14719        ENDIF
14720        IHV=IGRPNM
14721        GOTO5160
14722      ENDIF
14723C
14724CCCCC FOLLOWING SECTION ADDED SEPTEMBER 2019
14725C     *****************************************************
14726C     **  SET GREP FILE NAME ONLY <ON/OFF>               **
14727C     *****************************************************
14728C
14729      IPART1='GREP'
14730      IPART2='FILE'
14731      IPART3='NAME'
14732      IPART4='ONLY'
14733      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
14734     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4)THEN
14735        IF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'FALS')THEN
14736          IGRPFN='OFF'
14737        ELSE
14738          IGRPFN='ON'
14739        ENDIF
14740        IHV=IGRPFN
14741        GOTO5160
14742      ENDIF
14743C
14744CCCCC FOLLOWING SECTION ADDED SEPTEMBER 2019
14745C     *****************************************************
14746C     **  SET DIR PAUSE <ON/OFF>                         **
14747C     *****************************************************
14748C
14749      IPART1='DIR '
14750      IPART2='PAUS'
14751      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2)THEN
14752        IF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'FALS')THEN
14753          IDIRPA='OFF'
14754        ELSE
14755          IDIRPA='ON'
14756        ENDIF
14757        IHV=IDIRPA
14758        GOTO5160
14759      ENDIF
14760C
14761CCCCC FOLLOWING SECTION ADDED SEPTEMBER 2019
14762C     *****************************************************
14763C     **  SET DIR LONG LISTING <ON/OFF>                  **
14764C     *****************************************************
14765C
14766      IPART1='DIR '
14767      IPART2='LONG'
14768      IPART3='LIST'
14769      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
14770     1   IHARG(3).EQ.IPART3)THEN
14771        IF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'FALS')THEN
14772          IDIRLL='OFF'
14773        ELSE
14774          IDIRLL='ON'
14775        ENDIF
14776        IHV=IDIRLL
14777        GOTO5160
14778      ENDIF
14779C
14780CCCCC FOLLOWING SECTION ADDED SEPTEMBER 2019
14781C     *****************************************************
14782C     **  SET DIR RECURSIVE <ON/OFF>                     **
14783C     *****************************************************
14784C
14785      IPART1='DIR '
14786      IPART2='RECU'
14787      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2)THEN
14788        IF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'FALS')THEN
14789          IDIRRE='OFF'
14790        ELSE
14791          IDIRRE='ON'
14792        ENDIF
14793        IHV=IDIRRE
14794        GOTO5160
14795      ENDIF
14796C
14797CCCCC FOLLOWING SECTION ADDED SEPTEMBER 2019
14798C     *****************************************************
14799C     **  SET DIR SORT <ALPHA/SIZE/DATE>                 **
14800C     *****************************************************
14801C
14802      IPART1='DIR '
14803      IPART2='SORT'
14804      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2)THEN
14805        IF(IHV.EQ.'SIZE')THEN
14806          IDIRSO='SIZE'
14807        ELSEIF(IHV.EQ.'DATE')THEN
14808          IDIRSO='DATE'
14809        ELSE
14810          IDIRSO='ALPH'
14811        ENDIF
14812        IHV=IDIRSO
14813        GOTO5160
14814      ENDIF
14815C
14816CCCCC FOLLOWING SECTION ADDED SEPTEMBER 2019
14817C     *****************************************************
14818C     **  SET CAT MORE  <ON/OFF>                         **
14819C     *****************************************************
14820C
14821      IPART1='CAT '
14822      IPART2='MORE'
14823      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2)THEN
14824        IF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'FALS')THEN
14825          ICATMO='OFF'
14826        ELSE
14827          ICATMO='ON'
14828        ENDIF
14829        IHV=ICATMO
14830        GOTO5160
14831      ENDIF
14832C
14833CCCCC FOLLOWING SECTION ADDED SEPTEMBER 2019
14834C     *****************************************************
14835C     **  SET STRING VARIABLE  <APPEND/OVERWRITE>        **
14836C     *****************************************************
14837C
14838      IPART1='STRI'
14839      IPART2='VARI'
14840      IPART3='CHAR'
14841      IF((IHARG(1).EQ.IPART1 .OR. IHARG(1).EQ.IPART3) .AND.
14842     1    IHARG(2).EQ.IPART2)THEN
14843        IF(IHARG(3).EQ.'OVER')THEN
14844          ISTRVA='OVER'
14845        ELSE
14846          ISTRVA='APPE'
14847        ENDIF
14848        IHV=ISTRVA
14849        GOTO5160
14850      ENDIF
14851C
14852CCCCC FOLLOWING SECTION ADDED SEPTEMBER 2019
14853C     *****************************************************
14854C     **  SET STRING COMBINE SEPARATOR  <VALUE>          **
14855C     *****************************************************
14856C
14857      IPART1='STRI'
14858      IPART2='COMB'
14859      IPART3='SEPA'
14860      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
14861     1   IHARG(3).EQ.IPART3)THEN
14862        IF(NUMARG.LE.3 .OR. IHARG(4).EQ.'    ')THEN
14863          ISTRCS='SP()'
14864        ELSEIF(IHARG(4).EQ.'DEFA' .OR. IHARG(4).EQ.'ON  ' .OR.
14865     1         IHARG(4).EQ.'YES ' .OR. IHARG(4).EQ.'TRUE' .OR.
14866     1         IHARG(4).EQ.'NO  ' .OR. IHARG(4).EQ.'FALS' .OR.
14867     1         IHARG(4).EQ.'OFF ')THEN
14868          ISTRCS='SP()'
14869        ELSE
14870          ISTRCS=IHARG(4)
14871        ENDIF
14872        IHV=ISTRCS
14873        GOTO5160
14874      ENDIF
14875C
14876CCCCC FOLLOWING SECTION ADDED SEPTEMBER 2019
14877C     *****************************************************
14878C     **  SET RATIO OF MEANS METHOD                      **
14879C     **      <FIELLER/LOG RATIO/LARGE SAMPLE>           **
14880C     *****************************************************
14881C
14882      IPART1='RATI'
14883      IPART2='OF  '
14884      IPART3='MEAN'
14885      IPART4='METH'
14886      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
14887     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4)THEN
14888        IF(IHARG(5).EQ.'LARG' .AND. IHARG(6).EQ.'SAMP')THEN
14889          IRATME='LSAM'
14890        ELSEIF(IHARG(5).EQ.'LOG ' .AND. IHARG(6).EQ.'RATI')THEN
14891          IRATME='LRAT'
14892        ELSE
14893          IRATME='FIEL'
14894        ENDIF
14895        IHV=IRATME
14896        GOTO5160
14897      ENDIF
14898C
14899CCCCC FOLLOWING SECTION ADDED OCTOBER 2019
14900C     *****************************************************
14901C     **  SET DAVID TEST CRITIVAL VALUES                 **
14902C     **      <ASTM/DAVID/SIMULATION/FORMULA>            **
14903C     *****************************************************
14904C
14905      IPART1='DAVI'
14906      IPART2='TEST'
14907      IPART3='CRIT'
14908      IPART4='VALU'
14909      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
14910     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4)THEN
14911        IF(IHARG(5).EQ.'ASTM' .OR. IHARG(5).EQ.'E178')THEN
14912          IDAVTA='ASTM'
14913        ELSEIF(IHARG(5).EQ.'DAVI' .OR. IHARG(5).EQ.'HART' .OR.
14914     1         IHARG(5).EQ.'PEAR')THEN
14915          IDAVTA='DAVI'
14916        ELSEIF(IHARG(5).EQ.'SIMU')THEN
14917          IDAVTA='SIMU'
14918        ELSEIF(IHARG(5).EQ.'FORM')THEN
14919          IDAVTA='FORM'
14920        ELSE
14921          IDAVTA='ASTM'
14922        ENDIF
14923        IHV=IDAVTA
14924        GOTO5160
14925      ENDIF
14926C
14927CCCCC FOLLOWING SECTION ADDED JULY   2017
14928C     **********************************************************
14929C     **  SET BLAND ALTMAN PLOT STATISTIC <MEAN/MEDIAN>       **
14930C     **********************************************************
14931C
14932      IPART1='BLAN'
14933      IPART2='ALTM'
14934      IPART3='PLOT'
14935      IPART4='STAT'
14936      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
14937     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4)THEN
14938        IF(IHV.EQ.'MEDI')THEN
14939          IHV='MEDI'
14940        ELSE
14941          IHV='MEAN'
14942        ENDIF
14943        IBAPST=IHV
14944        GOTO5160
14945      ENDIF
14946C
14947CCCCC FOLLOWING SECTION ADDED OCTOBER 2019
14948C     **************************************************************
14949C     **  SET SKEW OUTLIER TEST CRITICAL VALUES <ASTM/SIMULATION> **
14950C     **************************************************************
14951C
14952      IPART1='SKEW'
14953      IPART2='OUTL'
14954      IPART3='TEST'
14955      IPART4='CRIT'
14956      IPART5='VALU'
14957      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
14958     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4 .AND.
14959     1   IHARG(5).EQ.IPART5)THEN
14960        IF(IHARG(6).EQ.'SIMU')THEN
14961          ISKOTA='SIMU'
14962        ELSE
14963          ISKOTA='ASTM'
14964        ENDIF
14965        IHV=ISKOTA
14966        GOTO5160
14967      ENDIF
14968C
14969CCCCC FOLLOWING SECTION ADDED OCTOBER 2019
14970C     ******************************************************************
14971C     **  SET KURTOSIS OUTLIER TEST CRITICAL VALUES <ASTM/SIMULATION> **
14972C     ******************************************************************
14973C
14974      IPART1='KURT'
14975      IPART2='OUTL'
14976      IPART3='TEST'
14977      IPART4='CRIT'
14978      IPART5='VALU'
14979      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
14980     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4 .AND.
14981     1   IHARG(5).EQ.IPART5)THEN
14982        IF(IHARG(6).EQ.'SIMU')THEN
14983          IKUOTA='SIMU'
14984        ELSE
14985          IKUOTA='ASTM'
14986        ENDIF
14987        IHV=IKUOTA
14988        GOTO5160
14989      ENDIF
14990C
14991CCCCC FOLLOWING SECTION ADDED JULY   2017
14992C     **********************************************************
14993C     **  SET BLAND ALTMAN PLOT BOOTSTRAP <RAW/SUMMARY>       **
14994C     **********************************************************
14995C
14996      IPART1='BLAN'
14997      IPART2='ALTM'
14998      IPART3='PLOT'
14999      IPART4='BOOT'
15000      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
15001     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4)THEN
15002        IF(IHV.EQ.'RAW ')THEN
15003          IHV='RAW '
15004        ELSE
15005          IHV='SUMM'
15006        ENDIF
15007        IBAPBO=IHV
15008        GOTO5160
15009      ENDIF
15010C
15011CCCCC FOLLOWING SECTION ADDED JULY   2017
15012C     **********************************************************
15013C     **  SET BLAND ALTMAN PLOT CONFIDENCE LIMIT              **
15014C     **            <ANALYTIC/BOOTSTRAP>                      **
15015C     **********************************************************
15016C
15017      IPART1='BLAN'
15018      IPART2='ALTM'
15019      IPART3='PLOT'
15020      IPART4='CONF'
15021      IPART5='LIMI'
15022      IPART6='INTE'
15023      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
15024     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4 .AND.
15025     1   (IHARG(5).EQ.IPART5 .OR. IHARG(5).EQ.IPART6))THEN
15026        IF(IHV.EQ.'BOOT')THEN
15027          IHV='BOOT'
15028        ELSE
15029          IHV='ANAL'
15030        ENDIF
15031        IBAPCL=IHV
15032        GOTO5160
15033      ENDIF
15034C
15035CCCCC FOLLOWING SECTION ADDED JULY   2017
15036C     **********************************************************
15037C     **  SET BLAND ALTMAN PLOT <RAW/PERCENTAGE>              **
15038C     **********************************************************
15039C
15040      IPART1='BLAN'
15041      IPART2='ALTM'
15042      IPART3='PLOT'
15043      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
15044     1   IHARG(3).EQ.IPART3)THEN
15045        IF(IHV.EQ.'PERC')THEN
15046          IHV='PERC'
15047        ELSE
15048          IHV='RAW '
15049        ENDIF
15050        IBAPPE=IHV
15051        GOTO5160
15052      ENDIF
15053C
15054CCCCC FOLLOWING SECTION ADDED AUGUST   2017
15055C     **********************************************************
15056C     **  SET SAMPLE RANDOM PERMUTATION DISTINCT  <ON/OFF>    **
15057C     **********************************************************
15058C
15059      IPART1='SAMP'
15060      IPART2='RAND'
15061      IPART3='PERM'
15062      IPART4='DIST'
15063      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
15064     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4)THEN
15065        IF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'FALS')THEN
15066          IHV='OFF '
15067        ELSE
15068          IHV='ON'
15069        ENDIF
15070        ISRPDI=IHV
15071        GOTO5160
15072      ENDIF
15073C
15074CCCCC FOLLOWING SECTION ADDED FEBRUARY  2017
15075C     **********************************************************
15076C     **  SET TAB ...                                         **
15077C     **********************************************************
15078C
15079      IPART1='TAB '
15080      IF(IHARG(1).EQ.IPART1)THEN
15081        IF(IHARG(2).EQ.'COLO')THEN
15082          IF(NUMARG.EQ.3)THEN
15083            IINDX=1
15084            IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'DEFA' .OR.
15085     1         IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
15086              IHV='BLAC'
15087            ELSE
15088              IHV=IHARG(3)
15089            ENDIF
15090          ELSEIF(NUMARG.EQ.4)THEN
15091            AINDX=ARG(3)
15092            IINDX=INT(AINDX+0.5)
15093            IF(IINDX.LT.1)IINDX=1
15094            IF(IINDX.GT.10)IINDX=10
15095            IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'DEFA' .OR.
15096     1         IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
15097              IHV='BLAC'
15098            ELSE
15099              IHV=IHARG(4)
15100            ENDIF
15101          ELSE
15102            GOTO9000
15103          ENDIF
15104          ITABCO(IINDX)=IHV
15105          IFOUND='YES'
15106          IF(IFEEDB.EQ.'ON')THEN
15107            WRITE(ICOUT,999)
15108            CALL DPWRST('XXX','BUG ')
15109            WRITE(ICOUT,31131)IINDX,ITABCO(IINDX)
1511031131       FORMAT('THE COLOR FOR TAB ',I3,' IS SET TO ',A4)
15111            CALL DPWRST('XXX','BUG ')
15112          ENDIF
15113          GOTO9000
15114        ELSEIF(IHARG(2).EQ.'JUST')THEN
15115          IF(NUMARG.EQ.3)THEN
15116            IINDX=1
15117            IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'DEFA' .OR.
15118     1         IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
15119              IHV='LEFT'
15120            ELSE
15121              IHV=IHARG(3)
15122            ENDIF
15123          ELSEIF(NUMARG.EQ.4)THEN
15124            AINDX=ARG(3)
15125            IINDX=INT(AINDX+0.5)
15126            IF(IINDX.LT.1)IINDX=1
15127            IF(IINDX.GT.10)IINDX=10
15128            IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'DEFA' .OR.
15129     1         IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
15130              IHV='LEFT'
15131            ELSE
15132              IHV=IHARG(4)
15133            ENDIF
15134          ELSE
15135            GOTO9000
15136          ENDIF
15137          ITABJU(IINDX)=IHV
15138          IFOUND='YES'
15139          IF(IFEEDB.EQ.'ON')THEN
15140            WRITE(ICOUT,999)
15141            CALL DPWRST('XXX','BUG ')
15142            WRITE(ICOUT,31141)IINDX,ITABJU(IINDX)
1514331141       FORMAT('THE JUSTIFICATION FOR TAB ',I3,' IS SET TO ',A4)
15144            CALL DPWRST('XXX','BUG ')
15145          ENDIF
15146          GOTO9000
15147        ELSEIF(IHARG(2).EQ.'FONT')THEN
15148          IF(NUMARG.EQ.3)THEN
15149            IINDX=1
15150            IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'DEFA' .OR.
15151     1         IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
15152              IHV='TEKT'
15153            ELSE
15154              IHV=IHARG(3)
15155            ENDIF
15156          ELSEIF(NUMARG.EQ.4)THEN
15157            AINDX=ARG(3)
15158            IINDX=INT(AINDX+0.5)
15159            IF(IINDX.LT.1)IINDX=1
15160            IF(IINDX.GT.10)IINDX=10
15161            IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'DEFA' .OR.
15162     1         IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
15163              IHV='TEKT'
15164            ELSE
15165              IHV=IHARG(4)
15166            ENDIF
15167          ELSE
15168            GOTO9000
15169          ENDIF
15170          ITABFO(IINDX)=IHV
15171          IFOUND='YES'
15172          IF(IFEEDB.EQ.'ON')THEN
15173            WRITE(ICOUT,999)
15174            CALL DPWRST('XXX','BUG ')
15175            WRITE(ICOUT,31151)IINDX,ITABFO(IINDX)
1517631151       FORMAT('THE FONT FOR TAB ',I3,' IS SET TO ',A4)
15177            CALL DPWRST('XXX','BUG ')
15178          ENDIF
15179          GOTO9000
15180        ELSEIF(IHARG(2).EQ.'UNIT')THEN
15181          IF(NUMARG.EQ.3)THEN
15182            IINDX=1
15183            IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'DEFA' .OR.
15184     1         IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
15185              IHV='SCRE'
15186            ELSE
15187              IHV=IHARG(3)
15188            ENDIF
15189          ELSEIF(NUMARG.EQ.4)THEN
15190            AINDX=ARG(3)
15191            IINDX=INT(AINDX+0.5)
15192            IF(IINDX.LT.1)IINDX=1
15193            IF(IINDX.GT.10)IINDX=10
15194            IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'DEFA' .OR.
15195     1         IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
15196              IHV='SCRE'
15197            ELSE
15198              IHV=IHARG(4)
15199            ENDIF
15200          ELSE
15201            GOTO9000
15202          ENDIF
15203          IF(IHV.NE.'DATA')IHV='SCRE'
15204          ITABUN(IINDX)=IHV
15205          IFOUND='YES'
15206          IF(IFEEDB.EQ.'ON')THEN
15207            WRITE(ICOUT,999)
15208            CALL DPWRST('XXX','BUG ')
15209            WRITE(ICOUT,31161)IINDX,ITABUN(IINDX)
1521031161       FORMAT('THE UNITS FOR TAB ',I3,' IS SET TO ',A4)
15211            CALL DPWRST('XXX','BUG ')
15212          ENDIF
15213          GOTO9000
15214        ELSEIF(IHARG(2).EQ.'VERT' .AND. IHARG(3).EQ.'UNIT')THEN
15215          IF(NUMARG.EQ.4)THEN
15216            IINDX=1
15217            IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'DEFA' .OR.
15218     1         IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
15219              IHV='SCRE'
15220            ELSE
15221              IHV=IHARG(4)
15222            ENDIF
15223          ELSEIF(NUMARG.EQ.5)THEN
15224            AINDX=ARG(4)
15225            IINDX=INT(AINDX+0.5)
15226            IF(IINDX.LT.1)IINDX=1
15227            IF(IINDX.GT.10)IINDX=10
15228            IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'DEFA' .OR.
15229     1         IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
15230              IHV='SCRE'
15231            ELSE
15232              IHV=IHARG(5)
15233            ENDIF
15234          ELSE
15235            GOTO9000
15236          ENDIF
15237          IF(IHV.NE.'DATA')IHV='SCRE'
15238          ITABUV(IINDX)=IHV
15239          IFOUND='YES'
15240          IF(IFEEDB.EQ.'ON')THEN
15241            WRITE(ICOUT,999)
15242            CALL DPWRST('XXX','BUG ')
15243            WRITE(ICOUT,31191)IINDX,ITABUV(IINDX)
1524431191       FORMAT('THE VERTICAL UNITS FOR TAB ',I3,' IS SET TO ',A4)
15245            CALL DPWRST('XXX','BUG ')
15246          ENDIF
15247          GOTO9000
15248        ELSEIF(IHARG(2).EQ.'SIZE' .OR. IHARG(2).EQ.'HEIG')THEN
15249          IF(NUMARG.EQ.3)THEN
15250            IINDX=1
15251            IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'DEFA' .OR.
15252     1         IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
15253              AVAL=CPUMIN
15254            ELSE
15255              AVAL=ARG(3)
15256            ENDIF
15257          ELSEIF(NUMARG.EQ.4)THEN
15258            AINDX=ARG(3)
15259            IINDX=INT(AINDX+0.5)
15260            IF(IINDX.LT.1)IINDX=1
15261            IF(IINDX.GT.10)IINDX=10
15262            IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'DEFA' .OR.
15263     1         IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
15264              AVAL=CPUMIN
15265            ELSE
15266              AVAL=ARG(4)
15267            ENDIF
15268          ELSE
15269            GOTO9000
15270          ENDIF
15271          IF(AVAL.NE.CPUMIN)THEN
15272            IF(AVAL.LE.0.1)AVAL=0.1
15273            IF(AVAL.GE.10.0)AVAL=10.0
15274          ENDIF
15275          PTABHE(IINDX)=AVAL
15276          IFOUND='YES'
15277          IF(IFEEDB.EQ.'ON')THEN
15278            WRITE(ICOUT,999)
15279            CALL DPWRST('XXX','BUG ')
15280            WRITE(ICOUT,31121)IINDX,PTABHE(IINDX)
1528131121       FORMAT('THE SIZE (HEIGHT) FOR TAB ',I3,
15282     1             ' IS SET TO ',G15.7)
15283            CALL DPWRST('XXX','BUG ')
15284          ENDIF
15285          GOTO9000
15286        ELSEIF(IHARG(2).EQ.'WIDT')THEN
15287          IF(NUMARG.EQ.3)THEN
15288            IINDX=1
15289            IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'DEFA' .OR.
15290     1         IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
15291              AVAL=CPUMIN
15292            ELSE
15293              AVAL=ARG(3)
15294            ENDIF
15295          ELSEIF(NUMARG.EQ.4)THEN
15296            AINDX=ARG(3)
15297            IINDX=INT(AINDX+0.5)
15298            IF(IINDX.LT.1)IINDX=1
15299            IF(IINDX.GT.10)IINDX=10
15300            IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'DEFA' .OR.
15301     1         IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
15302              AVAL=CPUMIN
15303            ELSE
15304              AVAL=ARG(4)
15305            ENDIF
15306          ELSE
15307            GOTO9000
15308          ENDIF
15309          IF(AVAL.NE.CPUMIN)THEN
15310            IF(AVAL.LE.0.1)AVAL=0.1
15311            IF(AVAL.GE.10.0)AVAL=10.0
15312          ENDIF
15313          PTABWI(IINDX)=AVAL
15314          IFOUND='YES'
15315          IF(IFEEDB.EQ.'ON')THEN
15316            WRITE(ICOUT,999)
15317            CALL DPWRST('XXX','BUG ')
15318            WRITE(ICOUT,31171)IINDX,PTABWI(IINDX)
1531931171       FORMAT('THE WIDTH FOR TAB ',I3,
15320     1             ' IS SET TO ',G15.7)
15321            CALL DPWRST('XXX','BUG ')
15322          ENDIF
15323          GOTO9000
15324        ELSEIF(IHARG(2).EQ.'HORI' .AND. IHARG(3).EQ.'POSI')THEN
15325          IF(NUMARG.EQ.4)THEN
15326            IINDX=1
15327            IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'DEFA' .OR.
15328     1         IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
15329              AVAL=CPUMIN
15330            ELSE
15331              AVAL=ARG(4)
15332            ENDIF
15333          ELSEIF(NUMARG.EQ.5)THEN
15334            AINDX=ARG(4)
15335            IINDX=INT(AINDX+0.5)
15336            IF(IINDX.LT.1)IINDX=1
15337            IF(IINDX.GT.10)IINDX=10
15338            IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'DEFA' .OR.
15339     1         IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
15340              AVAL=CPUMIN
15341            ELSE
15342              AVAL=ARG(5)
15343            ENDIF
15344          ELSE
15345            GOTO9000
15346          ENDIF
15347          PTABHP(IINDX)=AVAL
15348          IFOUND='YES'
15349          IF(IFEEDB.EQ.'ON')THEN
15350            WRITE(ICOUT,999)
15351            CALL DPWRST('XXX','BUG ')
15352            WRITE(ICOUT,31101)IINDX,PTABHP(IINDX)
1535331101       FORMAT('THE HORIZONTAL POSITION FOR TAB ',I3,
15354     1             ' IS SET TO ',G15.7)
15355            CALL DPWRST('XXX','BUG ')
15356          ENDIF
15357          GOTO9000
15358        ELSEIF(IHARG(2).EQ.'VERT' .AND. IHARG(3).EQ.'POSI')THEN
15359          IF(NUMARG.EQ.4)THEN
15360            IINDX=1
15361            IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'DEFA' .OR.
15362     1         IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
15363              AVAL=CPUMIN
15364            ELSE
15365              AVAL=ARG(4)
15366            ENDIF
15367          ELSEIF(NUMARG.EQ.5)THEN
15368            AINDX=ARG(4)
15369            IINDX=INT(AINDX+0.5)
15370            IF(IINDX.LT.1)IINDX=1
15371            IF(IINDX.GT.10)IINDX=10
15372            IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'DEFA' .OR.
15373     1         IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
15374              AVAL=CPUMIN
15375            ELSE
15376              AVAL=ARG(5)
15377            ENDIF
15378          ELSE
15379            GOTO9000
15380          ENDIF
15381          PTABVP(IINDX)=AVAL
15382          IFOUND='YES'
15383          IF(IFEEDB.EQ.'ON')THEN
15384            WRITE(ICOUT,999)
15385            CALL DPWRST('XXX','BUG ')
15386            WRITE(ICOUT,31181)IINDX,PTABVP(IINDX)
1538731181       FORMAT('THE VERTICAL POSITION FOR TAB ',I3,
15388     1             ' IS SET TO ',G15.7)
15389            CALL DPWRST('XXX','BUG ')
15390          ENDIF
15391          GOTO9000
15392        ENDIF
15393        GOTO5160
15394      ENDIF
15395C
15396CCCCC FOLLOWING SECTION ADDED DECEMBER  2015
15397C     **********************************************************
15398C     **  SET FRAME LIMIT OFFSET <ON/OFF>                     **
15399C     **********************************************************
15400C
15401      IPART1='FRAM'
15402      IPART2='LIMI'
15403      IPART3='OFFS'
15404      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
15405     1   IHARG(3).EQ.IPART3)THEN
15406        IF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'FALS')THEN
15407          IHV='OFF'
15408        ELSE
15409          IHV='ON'
15410        ENDIF
15411        IFRALI=IHV
15412        GOTO5160
15413      ENDIF
15414C
15415CCCCC FOLLOWING SECTION ADDED MAY  2015
15416C     ****************************************************
15417C     **  SET H CONSISTENCY PLOT TYPE                   **
15418C     **      <STACKED/DEFAULT>                         **
15419C     ****************************************************
15420C
15421      IPART1='H   '
15422      IPART2='K   '
15423      IPART3='COCH'
15424      IPART4='CONS'
15425      IPART5='PLOT'
15426      IPART6='TYPE'
15427      IF(
15428     1  (IHARG(1).EQ.IPART1 .OR. IHARG(1).EQ.IPART2 .OR.
15429     1   IHARG(1).EQ.IPART3) .AND.
15430     1   IHARG(2).EQ.IPART4.AND. IHARG(3).EQ.IPART5 .AND.
15431     1   IHARG(4).EQ.IPART6)THEN
15432        IF(IHV.EQ.'STAC')THEN
15433          IHV='STAC'
15434        ELSE
15435          IHV='DEFA'
15436        ENDIF
15437        IHKCPT=IHV
15438        GOTO5160
15439      ENDIF
15440C
15441CCCCC FOLLOWING SECTION ADDED MAY  2015
15442C     ****************************************************
15443C     **  SET H CONSISTENCY PLOT GAP <TYPE>             **
15444C     ****************************************************
15445C
15446      IPART1='H   '
15447      IPART2='K   '
15448      IPART3='COCH'
15449      IPART4='CONS'
15450      IPART5='PLOT'
15451      IPART6='GAP '
15452      IF(
15453     1  (IHARG(1).EQ.IPART1 .OR. IHARG(1).EQ.IPART2 .OR.
15454     1   IHARG(1).EQ.IPART3) .AND.
15455     1   IHARG(2).EQ.IPART4.AND. IHARG(3).EQ.IPART5 .AND.
15456     1   IHARG(4).EQ.IPART6)THEN
15457          IV=IARG(5)
15458          IF(IV.LT.0)IV=0
15459          IF(IV.GT.10)IV=0
15460        IHKCGP=IV
15461        GOTO5150
15462      ENDIF
15463C
15464CCCCC FOLLOWING SECTION ADDED MAY  2015
15465C     ******************************************************
15466C     **  SET H CONSISTENCY PLOT MATERIAL FIRST  <TYPE>   **
15467C     ******************************************************
15468C
15469      IPART1='H   '
15470      IPART2='K   '
15471      IPART3='COCH'
15472      IPART4='CONS'
15473      IPART5='PLOT'
15474      IPART6='MATE'
15475      IPART7='FIRS'
15476      IF(
15477     1  (IHARG(1).EQ.IPART1 .OR. IHARG(1).EQ.IPART2 .OR.
15478     1   IHARG(1).EQ.IPART3) .AND.
15479     1   IHARG(2).EQ.IPART4 .AND. IHARG(3).EQ.IPART5 .AND.
15480     1   IHARG(4).EQ.IPART6 .AND. IHARG(5).EQ.IPART7)THEN
15481          IV=IARG(6)
15482          IF(IV.LT.0)IV=0
15483        IHKCM1=IV
15484        GOTO5150
15485      ENDIF
15486C
15487CCCCC FOLLOWING SECTION ADDED MAY  2015
15488C     ******************************************************
15489C     **  SET H CONSISTENCY PLOT MATERIAL LAST  <TYPE>    **
15490C     ******************************************************
15491C
15492      IPART1='H   '
15493      IPART2='K   '
15494      IPART3='COCH'
15495      IPART4='CONS'
15496      IPART5='PLOT'
15497      IPART6='MATE'
15498      IPART7='LAST'
15499      IF(
15500     1  (IHARG(1).EQ.IPART1 .OR. IHARG(1).EQ.IPART2 .OR.
15501     1   IHARG(1).EQ.IPART3) .AND.
15502     1   IHARG(2).EQ.IPART4 .AND. IHARG(3).EQ.IPART5 .AND.
15503     1   IHARG(4).EQ.IPART6 .AND. IHARG(5).EQ.IPART7)THEN
15504          IV=IARG(6)
15505          IF(IV.LT.0)IV=0
15506        IHKCM2=IV
15507        GOTO5150
15508      ENDIF
15509C
15510CCCCC FOLLOWING SECTION ADDED MAY  2015
15511C     ******************************************************
15512C     **  SET H CONSISTENCY PLOT LABORATORY FIRST  <TYPE> **
15513C     ******************************************************
15514C
15515      IPART1='H   '
15516      IPART2='K   '
15517      IPART3='COCH'
15518      IPART4='CONS'
15519      IPART5='PLOT'
15520      IPART6='LABO'
15521      IPART7='FIRS'
15522      IF(
15523     1  (IHARG(1).EQ.IPART1 .OR. IHARG(1).EQ.IPART2 .OR.
15524     1   IHARG(1).EQ.IPART3) .AND.
15525     1   IHARG(2).EQ.IPART4 .AND. IHARG(3).EQ.IPART5 .AND.
15526     1   IHARG(4)(1:3).EQ.IPART6(1:3) .AND. IHARG(5).EQ.IPART7)THEN
15527          IV=IARG(6)
15528          IF(IV.LT.0)IV=0
15529        IHKCL1=IV
15530        GOTO5150
15531      ENDIF
15532C
15533CCCCC FOLLOWING SECTION ADDED MAY  2015
15534C     ******************************************************
15535C     **  SET H CONSISTENCY PLOT LABORATORY LAST   <TYPE> **
15536C     ******************************************************
15537C
15538      IPART1='H   '
15539      IPART2='K   '
15540      IPART3='COCH'
15541      IPART4='CONS'
15542      IPART5='PLOT'
15543      IPART6='LABO'
15544      IPART7='LAST'
15545      IF(
15546     1  (IHARG(1).EQ.IPART1 .OR. IHARG(1).EQ.IPART2 .OR.
15547     1   IHARG(1).EQ.IPART3) .AND.
15548     1   IHARG(2).EQ.IPART4 .AND. IHARG(3).EQ.IPART5 .AND.
15549     1   IHARG(4)(1:3).EQ.IPART6(1:3) .AND. IHARG(5).EQ.IPART7)THEN
15550          IV=IARG(6)
15551          IF(IV.LT.0)IV=0
15552        IHKCL2=IV
15553        GOTO5150
15554      ENDIF
15555C
15556CCCCC FOLLOWING SECTION ADDED MAY  2015
15557C     ****************************************************
15558C     **  SET H CONSISTENCY PLOT                        **
15559C     **      <LABORATORIES WITHIN MATERIALS/           **
15560C     **       MATERIALS WITHIN LABORATORIES>           **
15561C     ****************************************************
15562C
15563      IPART1='H   '
15564      IPART2='K   '
15565      IPART3='COCH'
15566      IPART4='CONS'
15567      IPART5='PLOT'
15568      IF(
15569     1  (IHARG(1).EQ.IPART1 .OR. IHARG(1).EQ.IPART2 .OR.
15570     1   IHARG(1).EQ.IPART3) .AND.
15571     1   IHARG(2).EQ.IPART4.AND. IHARG(3).EQ.IPART5)THEN
15572        IF(IHARG(4).EQ.'MATE' .AND. IHARG(5).EQ.'WITH' .AND.
15573     1     IHARG(6)(1:3).EQ.'LAB')THEN
15574          IHV='MATE'
15575        ELSE
15576          IHV='LABO'
15577        ENDIF
15578        IHKCLM=IHV
15579        GOTO5160
15580      ENDIF
15581C
15582CCCCC FOLLOWING SECTION ADDED JUNE 2015
15583C     ****************************************************
15584C     **  SET TWO FACTOR   PLOT TYPE                    **
15585C     **      <STACKED/DEFAULT>                         **
15586C     ****************************************************
15587C
15588      IPART1='TWO '
15589      IPART2='FACT'
15590      IPART3='PLOT'
15591      IPART4='TYPE'
15592      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
15593     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4)THEN
15594        IF(IHV.EQ.'STAC')THEN
15595          IHV='STAC'
15596        ELSE
15597          IHV='DEFA'
15598        ENDIF
15599        ITWFPT=IHV
15600        GOTO5160
15601      ENDIF
15602C
15603CCCCC FOLLOWING SECTION ADDED JUNE 2015
15604C     ****************************************************
15605C     **  SET TWO FACTOR   PLOT GAP <TYPE>              **
15606C     ****************************************************
15607C
15608      IPART1='TWO '
15609      IPART2='FACT'
15610      IPART3='PLOT'
15611      IPART4='GAP '
15612      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
15613     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4)THEN
15614        IV=IARG(5)
15615        IF(IV.LT.0)IV=0
15616        IF(IV.GT.10)IV=0
15617        ITWFGP=IV
15618        GOTO5150
15619      ENDIF
15620C
15621CCCCC FOLLOWING SECTION ADDED JUNE 2015
15622C     ******************************************************
15623C     **  SET TWO FACTOR   PLOT MATERIAL FIRST  <TYPE>    **
15624C     ******************************************************
15625C
15626      IPART1='TWO '
15627      IPART2='FACT'
15628      IPART3='PLOT'
15629      IPART4='MATE'
15630      IPART5='FIRS'
15631      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
15632     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4 .AND.
15633     1   IHARG(5).EQ.IPART5)THEN
15634        IV=IARG(6)
15635        IF(IV.LT.0)IV=0
15636        ITWFM1=IV
15637        GOTO5150
15638      ENDIF
15639C
15640CCCCC FOLLOWING SECTION ADDED JUNE 2015
15641C     ******************************************************
15642C     **  SET TWO FACTOR   PLOT MATERIAL LAST  <TYPE>     **
15643C     ******************************************************
15644C
15645      IPART1='TWO '
15646      IPART2='FACT'
15647      IPART3='PLOT'
15648      IPART4='MATE'
15649      IPART5='LAST'
15650      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
15651     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4 .AND.
15652     1   IHARG(5).EQ.IPART5)THEN
15653        IV=IARG(6)
15654        IF(IV.LT.0)IV=0
15655        ITWFM2=IV
15656        GOTO5150
15657      ENDIF
15658C
15659CCCCC FOLLOWING SECTION ADDED JUNE 2015
15660C     ******************************************************
15661C     **  SET TWO FACTOR   PLOT LABORATORY FIRST  <TYPE>  **
15662C     ******************************************************
15663C
15664      IPART1='TWO '
15665      IPART2='FACT'
15666      IPART3='PLOT'
15667      IPART4='LABO'
15668      IPART5='FIRS'
15669      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
15670     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4 .AND.
15671     1   IHARG(5).EQ.IPART5)THEN
15672        IV=IARG(6)
15673        IF(IV.LT.0)IV=0
15674        ITWFL1=IV
15675        GOTO5150
15676      ENDIF
15677C
15678CCCCC FOLLOWING SECTION ADDED JUNE 2015
15679C     ******************************************************
15680C     **  SET TWO FACTOR   PLOT LABORATORY LAST   <TYPE>  **
15681C     ******************************************************
15682C
15683      IPART1='TWO '
15684      IPART2='FACT'
15685      IPART3='PLOT'
15686      IPART4='LABO'
15687      IPART5='FIRS'
15688      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
15689     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4 .AND.
15690     1   IHARG(5).EQ.IPART5)THEN
15691        IV=IARG(6)
15692        IF(IV.LT.0)IV=0
15693        ITWFL2=IV
15694        GOTO5150
15695      ENDIF
15696C
15697CCCCC FOLLOWING SECTION ADDED JUNE 2015
15698C     ****************************************************
15699C     **  SET TWO FACTOR   PLOT                         **
15700C     **      <LABORATORIES WITHIN MATERIALS/           **
15701C     **       MATERIALS WITHIN LABORATORIES>           **
15702C     ****************************************************
15703C
15704      IPART1='TWO '
15705      IPART2='FACT'
15706      IPART3='PLOT'
15707      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
15708     1   IHARG(3).EQ.IPART3)THEN
15709        IF(IHARG(4).EQ.'MATE' .AND. IHARG(5).EQ.'WITH' .AND.
15710     1     IHARG(6)(1:3).EQ.'LAB')THEN
15711          IHV='MATE'
15712        ELSE
15713          IHV='LABO'
15714        ENDIF
15715        ITWFLM=IHV
15716        GOTO5160
15717      ENDIF
15718C
15719CCCCC FOLLOWING SECTION ADDED JUNE 2015
15720C     ********************************************************
15721C     **  SET TWO WAY PLOT Y AXIS <RAW/DEVIATION FROM AVER> **
15722C     ********************************************************
15723C
15724      IPART1='TWO '
15725      IPART2='WAY '
15726      IPART3='PLOT'
15727      IPART4='Y   '
15728      IPART5='AXIS'
15729      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
15730     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
15731     1   IHARG(5).EQ.IPART5)THEN
15732        IF(IHARG(6).EQ.'RAW')THEN
15733          IHV='RAW'
15734        ELSE
15735          IHV='DEVI'
15736        ENDIF
15737        ITWOYA=IHV
15738        GOTO5160
15739      ENDIF
15740C
15741CCCCC FOLLOWING SECTION ADDED JUNE 2015
15742C     ********************************************************
15743C     **  SET TWO WAY PLOT FIT TABLE <ON/OFF>               **
15744C     ********************************************************
15745C
15746      IPART1='TWO '
15747      IPART2='WAY '
15748      IPART3='PLOT'
15749      IPART4='FIT '
15750      IPART5='TABL'
15751      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
15752     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
15753     1   IHARG(5).EQ.IPART5)THEN
15754        IF(IHARG(6).EQ.'OFF' .OR. IHARG(6).EQ.'NO' .OR.
15755     1     IHARG(6).EQ.'FALS' .OR. IHARG(6).EQ.'NONE')THEN
15756          IHV='OFF'
15757        ELSE
15758          IHV='ON'
15759        ENDIF
15760        ITWOFI=IHV
15761        GOTO5160
15762      ENDIF
15763C
15764CCCCC FOLLOWING SECTION ADDED JUNE 2015
15765C     ********************************************************
15766C     **  SET TWO WAY PLOT AVERAGES TABLE <ON/OFF>          **
15767C     ********************************************************
15768C
15769      IPART1='TWO '
15770      IPART2='WAY '
15771      IPART3='PLOT'
15772      IPART4='AVER'
15773      IPART5='TABL'
15774      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
15775     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
15776     1   IHARG(5).EQ.IPART5)THEN
15777        IF(IHARG(6).EQ.'OFF' .OR. IHARG(6).EQ.'NO' .OR.
15778     1     IHARG(6).EQ.'FALS' .OR. IHARG(6).EQ.'NONE')THEN
15779          IHV='OFF'
15780        ELSE
15781          IHV='ON'
15782        ENDIF
15783        ITWOAV=IHV
15784        GOTO5160
15785      ENDIF
15786C
15787CCCCC FOLLOWING SECTION ADDED JUNE 2015
15788C     ********************************************************
15789C     **  SET TWO WAY PLOT ANOVA TABLE DECIMAL <VALUE>      **
15790C     ********************************************************
15791C
15792      IPART1='TWO '
15793      IPART2='WAY '
15794      IPART3='PLOT'
15795      IPART4='ANOV'
15796      IPART5='TABL'
15797      IPART6='DECI'
15798      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
15799     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
15800     1   IHARG(5).EQ.IPART5.AND.IHARG(6).EQ.IPART6)THEN
15801          IV=IARG(7)
15802          IF(IV.LT.-9)IV=-99
15803          IF(IV.GT.9)IV=9
15804        ITWOAD=IV
15805        GOTO5150
15806      ENDIF
15807C
15808CCCCC FOLLOWING SECTION ADDED JUNE 2015
15809C     ********************************************************
15810C     **  SET TWO WAY PLOT ANOVA TABLE <ON/OFF>             **
15811C     ********************************************************
15812C
15813      IPART1='TWO '
15814      IPART2='WAY '
15815      IPART3='PLOT'
15816      IPART4='ANOV'
15817      IPART5='TABL'
15818      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
15819     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
15820     1   IHARG(5).EQ.IPART5)THEN
15821        IF(IHARG(6).EQ.'OFF' .OR. IHARG(6).EQ.'NO' .OR.
15822     1     IHARG(6).EQ.'FALS' .OR. IHARG(6).EQ.'NONE')THEN
15823          IHV='OFF'
15824        ELSE
15825          IHV='ON'
15826        ENDIF
15827        ITWOAN=IHV
15828        GOTO5160
15829      ENDIF
15830C
15831CCCCC FOLLOWING SECTION ADDED JUNE 2015
15832C     ********************************************************
15833C     **  SET TWO WAY PLOT FACTOR LABEL <CODED/VALUE>       **
15834C     ********************************************************
15835C
15836      IPART1='TWO '
15837      IPART2='WAY '
15838      IPART3='PLOT'
15839      IPART4='FACT'
15840      IPART5='LABE'
15841      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
15842     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
15843     1   IHARG(5).EQ.IPART5)THEN
15844        IF(IHARG(6).EQ.'VALU')THEN
15845          IHV='VALU'
15846        ELSE
15847          IHV='CODE'
15848        ENDIF
15849        ITWOLA=IHV
15850        GOTO5160
15851      ENDIF
15852C
15853CCCCC FOLLOWING SECTION ADDED JUNE 2015
15854C     ********************************************************
15855C     **  SET TWO WAY PLOT FACTOR DECIMAL <VALUE>           **
15856C     ********************************************************
15857C
15858      IPART1='TWO '
15859      IPART2='WAY '
15860      IPART3='PLOT'
15861      IPART4='FACT'
15862      IPART5='DECI'
15863      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
15864     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
15865     1   IHARG(5).EQ.IPART5)THEN
15866          IV=IARG(6)
15867          IF(IV.LT.0)IV=-99
15868          IF(IV.GT.9)IV=9
15869        ITWODE=IV
15870        GOTO5150
15871      ENDIF
15872C
15873CCCCC FOLLOWING SECTION ADDED NOVEMBER 2015
15874C     ******************************************************
15875C     **  SET TWO PERCENTILE DIGITS              <VALUE>  **
15876C     ******************************************************
15877C
15878      IPART1='PERC'
15879      IPART2='DIGI'
15880      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2)THEN
15881        IF(NUMARG.LT.3.OR.IHARG(3).EQ.'DEFA'.OR.IHARG(3).EQ.'ON'.OR.
15882     1     IHARG(3).EQ.'OFF')THEN
15883          IV=3
15884        ELSE
15885          IV=IARG(3)
15886        ENDIF
15887        IF(IV.GT.9)IV=9
15888        IF(IV.LT.-9)IV=-9
15889        IPCIDI=IV
15890        GOTO5150
15891      ENDIF
15892C
15893CCCCC FOLLOWING SECTION ADDED OCTOBER  2014
15894C     ******************************************************
15895C     **  SET VARIABLE NAME <AUTOMATIC/FILE>              **
15896C     ******************************************************
15897C
15898      IPART1='VARI'
15899      IPART2='NAME'
15900      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
15901        IF(IHARG(3).EQ.'FILE')THEN
15902          IHV='FILE'
15903        ELSE
15904          IHV='AUTO'
15905        ENDIF
15906        IAVANM=IHV
15907        GOTO5160
15908      ENDIF
15909C
15910CCCCC FOLLOWING SECTION ADDED DECEMBER  2014
15911C     ******************************************************
15912C     **  SET X11 CLIPBOARD <CUT BUFFER/SELECTION/PRIMARY>**
15913C     ******************************************************
15914C
15915      IPART1='X11 '
15916      IPART2='CLIP'
15917      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
15918        IF(IHARG(3).EQ.'CUT')THEN
15919          IHV='CUTB'
15920        ELSEIF(IHARG(3).EQ.'BUFF')THEN
15921          IHV='CUTB'
15922        ELSEIF(IHARG(3).EQ.'PRIM')THEN
15923          IHV='PRIM'
15924        ELSEIF(IHARG(3).EQ.'XA_P')THEN
15925          IHV='PRIM'
15926        ELSEIF(IHARG(3).EQ.'SECO')THEN
15927          IHV='SECO'
15928        ELSEIF(IHARG(3).EQ.'XA_S')THEN
15929          IHV='SECO'
15930        ELSEIF(IHARG(3).EQ.'CLIP')THEN
15931          IHV='CLIP'
15932        ELSEIF(IHARG(3).EQ.'XA_C')THEN
15933          IHV='CLIP'
15934        ELSE
15935          IHV='CLIP'
15936        ENDIF
15937        IX11CB=IHV
15938        GOTO5160
15939      ENDIF
15940C
15941CCCCC FOLLOWING SECTION ADDED OCTOBER 2004.
15942C     ***********************************************************
15943C     **  SET AUTOMATIC VARIABLE BASE NAME <VARIABLE NAME>     **
15944C     ***********************************************************
15945C
15946      IPART1='AUTO'
15947      IPART2='VARI'
15948      IPART3='BASE'
15949      IPART4='NAME'
15950      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
15951     1   (IHARG(3).EQ.IPART3.OR.IHARG(3).EQ.IPART4))THEN
15952        IF(IHV.EQ.'NO' .OR. IHV.EQ.'OFF' .OR. IHV.EQ.'FALSE')THEN
15953          IAVABN='COL'
15954        ELSEIF(IHV.EQ.'YES' .OR. IHV.EQ.'ON' .OR. IHV.EQ.'TRUE' .OR.
15955     1         IHV.EQ.'DEFA')THEN
15956          IAVABN='NONE'
15957        ELSE
15958          IAVABN(1:4)=IHV
15959          IAVABN(5:8)=IHV2
15960        ENDIF
15961        IFOUND='YES'
15962        IF(IFEEDB.EQ.'ON')THEN
15963          WRITE(ICOUT,999)
15964          CALL DPWRST('XXX','BUG ')
15965          WRITE(ICOUT,55172)IAVABN
1596655172     FORMAT('THE AUTOMATIC VARIABLE BASE BANE HAS BEEN SET TO ',
15967     1           A8)
15968          CALL DPWRST('XXX','BUG ')
15969        ENDIF
15970        GOTO9000
15971      ENDIF
15972C
15973CCCCC FOLLOWING SECTION ADDED OCTOBER  2010
15974C     ******************************************************
15975C     **  SET MOVING DIRECTION <LEFT/CENTER/RIGHT>        **
15976C     ******************************************************
15977C
15978      IPART1='MOVI'
15979      IPART2='DIRE'
15980      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
15981        IF(IHARG(3).EQ.'LEFT')THEN
15982          IHV='LEFT'
15983        ELSEIF(IHARG(3).EQ.'RIGH')THEN
15984          IHV='RIGH'
15985        ELSE
15986          IHV='CENT'
15987        ENDIF
15988        IMOVDI=IHV
15989        GOTO5160
15990      ENDIF
15991C
15992CCCCC FOLLOWING SECTION ADDED OCTOBER  2010
15993C     ******************************************************
15994C     **  SET MOVING END POINT <SKIP/PARTIAL/SYMMETRIC>   **
15995C     ******************************************************
15996C
15997      IPART1='MOVI'
15998      IPART2='ENDP'
15999      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
16000        IF(IHARG(3).EQ.'PART')THEN
16001          IHV='PART'
16002        ELSEIF(IHARG(3).EQ.'SYMM')THEN
16003          IHV='SYMM'
16004        ELSE
16005          IHV='SKIP'
16006        ENDIF
16007        IMOVEP=IHV
16008        GOTO5160
16009      ENDIF
16010C
16011      IPART1='MOVI'
16012      IPART2='END '
16013      IPART3='POIN'
16014      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
16015     1   IHARG(3).EQ.IPART3)THEN
16016        IF(IHARG(4).EQ.'PART')THEN
16017          IHV='PART'
16018        ELSEIF(IHARG(4).EQ.'SYMM')THEN
16019          IHV='SYMM'
16020        ELSE
16021          IHV='SKIP'
16022        ENDIF
16023        IMOVEP=IHV
16024        GOTO5160
16025      ENDIF
16026C
16027CCCCC FOLLOWING SECTION ADDED MAY  2015
16028C     **********************************************************
16029C     **  SET MOVING STATISTIC PLOT GROUPS <DEFAULT/STACKED>  **
16030C     **********************************************************
16031C
16032      IPART1='MOVI'
16033      IPART2='STAT'
16034      IPART3='PLOT'
16035      IPART4='GROU'
16036      IPART5='CUMU'
16037      IF(
16038     1  (IHARG(1).EQ.IPART1 .OR. IHARG(1).EQ.IPART5) .AND.
16039     1   IHARG(2).EQ.IPART2.AND. IHARG(3).EQ.IPART3 .AND.
16040     1   IHARG(4).EQ.IPART4)THEN
16041        IF(IHARG(5).EQ.'STAC')THEN
16042          IHV='STAC'
16043        ELSE
16044          IHV='DEFA'
16045        ENDIF
16046        IMOVGR=IHV
16047        GOTO5160
16048      ENDIF
16049C
16050CCCCC FOLLOWING SECTION ADDED OCTOBER  2010
16051C     ******************************************************
16052C     **  SET BRITTLE FIBER WEIBULL L <CONSTANT/VARIABLE> **
16053C     ******************************************************
16054C
16055      IPART1='BRIT'
16056      IPART2='FIBE'
16057      IPART3='WEIB'
16058      IPART4='L'
16059      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
16060     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
16061        IF(IHARG(5).EQ.'VARI')THEN
16062          IHV='VARI'
16063        ELSE
16064          IHV='CONS'
16065        ENDIF
16066        IBFWLI=IHV
16067        GOTO5160
16068      ENDIF
16069C
16070      IPART4='GAUG'
16071      IPART5='LENG'
16072      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
16073     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
16074     1   IHARG(5).EQ.IPART5)THEN
16075        IF(IHARG(6).EQ.'VARI')THEN
16076          IHV='VARI'
16077        ELSE
16078          IHV='CONS'
16079        ENDIF
16080        IBFWLI=IHV
16081        GOTO5160
16082      ENDIF
16083C
16084CCCCC FOLLOWING SECTION ADDED OCTOBER  2010
16085C     ******************************************************
16086C     **  SET END EFFECTS WEIBULL L   <CONSTANT/VARIABLE> **
16087C     ******************************************************
16088C
16089      IPART1='END '
16090      IPART2='EFFE'
16091      IPART3='WEIB'
16092      IPART4='L'
16093      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
16094     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
16095        IF(IHARG(5).EQ.'VARI')THEN
16096          IHV='VARI'
16097        ELSE
16098          IHV='CONS'
16099        ENDIF
16100        IEEWLI=IHV
16101        GOTO5160
16102      ENDIF
16103C
16104      IPART4='GAUG'
16105      IPART5='LENG'
16106      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
16107     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
16108     1   IHARG(5).EQ.IPART5)THEN
16109        IF(IHARG(6).EQ.'VARI')THEN
16110          IHV='VARI'
16111        ELSE
16112          IHV='CONS'
16113        ENDIF
16114        IEEWLI=IHV
16115        GOTO5160
16116      ENDIF
16117C
16118CCCCC FOLLOWING SECTION ADDED NOVEMBER  2010
16119C     ******************************************************
16120C     **  SET MATRIX TO VARIABLE <COLUMN/ROW>             **
16121C     ******************************************************
16122C
16123      IPART1='MATR'
16124      IPART2='TO'
16125      IPART3='VARI'
16126      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
16127     1   IHARG(3).EQ.IPART3)THEN
16128        IF(IHARG(4).EQ.'ROW')THEN
16129          IHV='ROW'
16130        ELSE
16131          IHV='COLU'
16132        ENDIF
16133        IMATVA=IHV
16134        GOTO5160
16135      ENDIF
16136C
16137CCCCC FOLLOWING SECTION ADDED NOVEMBER  2010
16138C     ******************************************************
16139C     **  SET VARIABLE TO MATRIX <COLUMN/ROW>             **
16140C     ******************************************************
16141C
16142      IPART1='VARI'
16143      IPART2='TO'
16144      IPART3='MATR'
16145      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
16146     1   IHARG(3).EQ.IPART3)THEN
16147        IF(IHARG(4).EQ.'ROW')THEN
16148          IHV='ROW'
16149        ELSE
16150          IHV='COLU'
16151        ENDIF
16152        IVARMA=IHV
16153        GOTO5160
16154      ENDIF
16155C
16156CCCCC FOLLOWING SECTION ADDED NOVEMBER  2010
16157C     ******************************************************
16158C     **  SET HOMOSCEDASTICITY PLOT CIRCLE TECHNIQUE      **
16159C     **      <ON/OFF>                                    **
16160C     ******************************************************
16161C
16162      IPART1='HOMO'
16163      IPART2='PLOT'
16164      IPART3='CIRC'
16165      IPART4='TECH'
16166      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
16167     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
16168        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE')THEN
16169          IHV='ON'
16170        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE' .OR.
16171     1         IHV.EQ.'FALS' .OR. IHV.EQ.'DEFA')THEN
16172          IHV='OFF'
16173        ELSE
16174          IHV='OFF'
16175        ENDIF
16176        IHOMCT=IHV
16177        GOTO5160
16178      ENDIF
16179C
16180CCCCC FOLLOWING SECTION ADDED DECEMBER  2010
16181C     ******************************************************
16182C     **  SET HOMOSCEDASTICITY PLOT LOCATION <STAT>       **
16183C     ******************************************************
16184C
16185      IPART1='HOMO'
16186      IPART2='PLOT'
16187      IPART3='LOCA'
16188      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
16189     1   IHARG(3).EQ.IPART3)THEN
16190        IF(IHARG(4).EQ.'MEAN')THEN
16191          IHV='MEAN'
16192        ELSEIF(IHARG(4).EQ.'BIWE')THEN
16193          IHV='BILO'
16194        ELSEIF(IHARG(4).EQ.'BIWE')THEN
16195          IHV='BILO'
16196        ELSEIF(IHARG(4).EQ.'H15')THEN
16197          IHV='H15L'
16198        ELSEIF(IHARG(4).EQ.'H10')THEN
16199          IHV='H10L'
16200        ELSEIF(IHARG(4).EQ.'H12')THEN
16201          IHV='H12L'
16202        ELSEIF(IHARG(4).EQ.'H17')THEN
16203          IHV='H17L'
16204        ELSEIF(IHARG(4).EQ.'H20')THEN
16205          IHV='H20L'
16206        ELSEIF(IHARG(4).EQ.'HODG')THEN
16207          IHV='HLEH'
16208        ELSEIF(IHARG(4).EQ.'LP')THEN
16209          IHV='LPLO'
16210        ELSEIF(IHARG(4).EQ.'MEDI')THEN
16211          IHV='MEDI'
16212        ELSEIF(IHARG(4).EQ.'MIDM')THEN
16213          IHV='MIDM'
16214        ELSEIF(IHARG(4).EQ.'MIDR')THEN
16215          IHV='MIDR'
16216        ELSEIF(IHARG(4).EQ.'TRIM' .AND. IHARG(5).EQ.'MEAN')THEN
16217          IHV='TRIM'
16218        ELSEIF(IHARG(4).EQ.'WINS' .AND. IHARG(5).EQ.'MEAN')THEN
16219          IHV='WINM'
16220        ELSE
16221          IHV='MEAN'
16222        ENDIF
16223        IHOMLO=IHV
16224        GOTO5160
16225      ENDIF
16226C
16227CCCCC FOLLOWING SECTION ADDED DECEMBER  2010
16228C     ******************************************************
16229C     **  SET HOMOSCEDASTICITY PLOT SCALE    <STAT>       **
16230C     ******************************************************
16231C
16232      IPART1='HOMO'
16233      IPART2='PLOT'
16234      IPART3='SCAL'
16235      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
16236     1   IHARG(3).EQ.IPART3)THEN
16237        IF(IHARG(4).EQ.'SD')THEN
16238          IHV='SD'
16239        ELSEIF(IHARG(4).EQ.'STAN' .AND. IHARG(5).EQ.'DEVI')THEN
16240          IHV='SD'
16241        ELSEIF(IHARG(4).EQ.'BIWE')THEN
16242          IHV='BISC'
16243        ELSEIF(IHARG(4).EQ.'H15')THEN
16244          IHV='H15S'
16245        ELSEIF(IHARG(4).EQ.'H10')THEN
16246          IHV='H10S'
16247        ELSEIF(IHARG(4).EQ.'H12')THEN
16248          IHV='H12S'
16249        ELSEIF(IHARG(4).EQ.'H17')THEN
16250          IHV='H17S'
16251        ELSEIF(IHARG(4).EQ.'H20')THEN
16252          IHV='H20S'
16253        ELSEIF(IHARG(4).EQ.'AVER' .AND. IHARG(5).EQ.'ABSO' .AND.
16254     1         IHARG(6).EQ.'DEVI')THEN
16255          IHV='AAD'
16256        ELSEIF(IHARG(4).EQ.'AAD')THEN
16257          IHV='AAD'
16258        ELSEIF(IHARG(4).EQ.'INTE'.AND.IHARG(5).EQ.'RANG')THEN
16259          IHV='IQRA'
16260        ELSEIF(IHARG(4).EQ.'IQ')THEN
16261          IHV='IQRA'
16262        ELSEIF(IHARG(4).EQ.'MAD')THEN
16263          IHV='MAD'
16264        ELSEIF(IHARG(4).EQ.'MEDI' .AND. IHARG(5).EQ.'ABSO' .AND.
16265     1         IHARG(6).EQ.'DEVI')THEN
16266          IHV='MAD'
16267        ELSEIF(IHARG(4).EQ.'RANG')THEN
16268          IHV='RANG'
16269        ELSEIF(IHARG(4).EQ.'SN')THEN
16270          IHV='SN'
16271        ELSEIF(IHARG(4).EQ.'QN')THEN
16272          IHV='QN'
16273        ELSEIF(IHARG(4).EQ.'WINS' .AND. IHARG(5).EQ.'SD')THEN
16274          IHV='WISD'
16275        ELSEIF(IHARG(4).EQ.'WINS' .AND. IHARG(5).EQ.'STAN'.AND.
16276     1         IHARG(6).EQ.'DEVI')THEN
16277          IHV='WISD'
16278        ELSEIF(IHARG(4).EQ.'TRIM' .AND. IHARG(5).EQ.'SD')THEN
16279          IHV='TRSD'
16280        ELSEIF(IHARG(4).EQ.'TRIM' .AND. IHARG(5).EQ.'STAN'.AND.
16281     1         IHARG(6).EQ.'DEVI')THEN
16282          IHV='TRSD'
16283        ELSE
16284          IHV='SD'
16285        ENDIF
16286        IHOMSC=IHV
16287        GOTO5160
16288      ENDIF
16289C
16290CCCCC FOLLOWING SECTION ADDED FEBRUARY  2011
16291C     ******************************************************
16292C     **  SET BEST FIT CRITIERION                         **
16293C     **      <AIC/PPCC/AD/KS/CHISQUARE>                  **
16294C     ******************************************************
16295C
16296      IPART1='BEST'
16297      IPART2='FIT '
16298      IPART3='CRIT'
16299      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
16300     1   IHARG(3).EQ.IPART3)THEN
16301        IF(IHV.EQ.'AIC')THEN
16302          IHV='AIC'
16303        ELSEIF(IHV.EQ.'PPCC')THEN
16304          IHV='PPCC'
16305        ELSEIF(IHV.EQ.'AD')THEN
16306          IHV='AD'
16307        ELSEIF(IHV.EQ.'KS')THEN
16308          IHV='KS'
16309        ELSEIF(IHV.EQ.'CHIS')THEN
16310          IHV='CHSQ'
16311        ELSEIF(IHV.EQ.'BIC')THEN
16312          IHV='BIC'
16313        ELSEIF(IHV.EQ.'AICC')THEN
16314          IHV='AICC'
16315        ELSEIF(IHARG(4).EQ.'CHI ' .AND. IHARG(5).EQ.'SQUA')THEN
16316          IHV='CHSQ'
16317        ELSEIF(IHARG(4).EQ.'ANDE' .AND. IHARG(5).EQ.'DARL')THEN
16318          IHV='AD'
16319        ELSEIF(IHARG(4).EQ.'KOLM' .AND. IHARG(5).EQ.'SMIR')THEN
16320          IHV='KS'
16321        ELSE
16322          IHV='AIC'
16323        ENDIF
16324        IBFICR=IHV
16325        GOTO5160
16326      ENDIF
16327C
16328CCCCC FOLLOWING SECTION ADDED FEBRUARY  2011
16329C     ******************************************************
16330C     **  SET BEST FIT METHOD                             **
16331C     **      <ML/PPCC/AD/KS/CHISQUARE>                  **
16332C     ******************************************************
16333C
16334      IPART1='BEST'
16335      IPART2='FIT '
16336      IPART3='METH'
16337      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
16338     1   IHARG(3).EQ.IPART3)THEN
16339        IF(IHV.EQ.'ML')THEN
16340          IHV='ML'
16341        ELSEIF(IHV.EQ.'PPCC')THEN
16342          IHV='PPCC'
16343        ELSEIF(IHV.EQ.'AD')THEN
16344          IHV='AD'
16345        ELSEIF(IHV.EQ.'KS')THEN
16346          IHV='KS'
16347        ELSEIF(IHV.EQ.'CHIS')THEN
16348          IHV='CHSQ'
16349        ELSEIF(IHARG(4).EQ.'MAXI ' .AND. IHARG(5).EQ.'LIKE')THEN
16350          IHV='ML'
16351        ELSEIF(IHARG(4).EQ.'MLE ')THEN
16352          IHV='ML'
16353        ELSEIF(IHARG(4).EQ.'ML  ')THEN
16354          IHV='ML'
16355        ELSEIF(IHARG(4).EQ.'CHI ' .AND. IHARG(5).EQ.'SQUA')THEN
16356          IHV='CHSQ'
16357        ELSEIF(IHARG(4).EQ.'ANDE' .AND. IHARG(5).EQ.'DARL')THEN
16358          IHV='AD'
16359        ELSEIF(IHARG(4).EQ.'KOLM' .AND. IHARG(5).EQ.'SMIR')THEN
16360          IHV='KS'
16361        ELSE
16362          IHV='ML'
16363        ENDIF
16364        IBFIME=IHV
16365        GOTO5160
16366      ENDIF
16367C
16368CCCCC FOLLOWING SECTION ADDED JULY     2013
16369C     ******************************************************
16370C     **  SET BEST FIT FONG TYPE <PDF/CDF>                **
16371C     ******************************************************
16372C
16373      IPART1='BEST'
16374      IPART2='FIT '
16375      IPART3='FONG'
16376      IPART4='TYPE'
16377      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
16378     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
16379        IF(IHV.EQ.'CDF')THEN
16380          IHV='CDF'
16381        ELSE
16382          IHV='PDF'
16383        ENDIF
16384        IBFITY=IHV
16385        GOTO5160
16386      ENDIF
16387C
16388CCCCC FOLLOWING SECTION ADDED JULY     2013
16389C     ***********************************************************
16390C     **  SET DISTRIBUTIONAL PERCENTILE <LOWER/UPPER/TWOSIDED> **
16391C     ***********************************************************
16392C
16393      IPART1='DIST'
16394      IPART2='PERC'
16395      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
16396        IF(IHV.EQ.'LOWE')THEN
16397          IHV='LOWE'
16398        ELSEIF(IHV.EQ.'UPPE')THEN
16399          IHV='UPPE'
16400        ELSE
16401          IHV='TWOS'
16402        ENDIF
16403        IDTYPR=IHV
16404        GOTO5160
16405      ENDIF
16406C
16407CCCCC FOLLOWING SECTION ADDED MARCH    2014
16408C     ***********************************************************
16409C     **  SET WEIBULL MAXIMUM LIKELHOOD METHOD <COHEN/         **
16410C     **      PROFILE LIKELIHOOD>                              **
16411C     ***********************************************************
16412C
16413      IPART1='WEIB'
16414      IPART2='MAXI'
16415      IPART3='LIKE'
16416      IPART4='METH'
16417      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
16418     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
16419        IF(IHARG(5).EQ.'PROF')THEN
16420          IHV='PROF'
16421        ELSE
16422          IHV='COHE'
16423        ENDIF
16424        I3WEME=IHV
16425        GOTO5160
16426      ENDIF
16427C
16428CCCCC FOLLOWING SECTION ADDED MARCH    2014
16429C     ******************************************************
16430C     **  SET WEIBULL MAXIMUM LIKELHOOD MINIMUM <VALUE>   **
16431C     ******************************************************
16432C
16433      IPART1='WEIB'
16434      IPART2='MAXI'
16435      IPART3='LIKE'
16436      IPART4='MINI'
16437      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
16438     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
16439        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE' .OR.
16440     1     IHV.EQ.'DEFA')THEN
16441          AV=0.0
16442        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE' .OR.
16443     1         IHV.EQ.'FALS')THEN
16444          AV=0.0
16445        ELSE
16446          AV=ARG(5)
16447        ENDIF
16448        P3WEMI=AV
16449        GOTO5170
16450      ENDIF
16451C
16452CCCCC FOLLOWING SECTION ADDED APRIL    2014
16453C     ***********************************************************
16454C     **  SET LOGNORMAL MAXIMUM LIKELHOOD METHOD <COHEN/       **
16455C     **      PROFILE LIKELIHOOD>                              **
16456C     ***********************************************************
16457C
16458      IPART1='LOGN'
16459      IPART2='MAXI'
16460      IPART3='LIKE'
16461      IPART4='METH'
16462      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
16463     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
16464        IF(IHARG(5).EQ.'PROF')THEN
16465          IHV='PROF'
16466        ELSE
16467          IHV='COHE'
16468        ENDIF
16469        I3LNME=IHV
16470        GOTO5160
16471      ENDIF
16472C
16473CCCCC FOLLOWING SECTION ADDED APRIL    2014
16474C     ******************************************************
16475C     **  SET LOGNORMAL MAXIMUM LIKELHOOD MINIMUM <VALUE> **
16476C     ******************************************************
16477C
16478      IPART1='LOGN'
16479      IPART2='MAXI'
16480      IPART3='LIKE'
16481      IPART4='MINI'
16482      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
16483     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
16484        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE' .OR.
16485     1     IHV.EQ.'DEFA')THEN
16486          AV=0.0
16487        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE' .OR.
16488     1         IHV.EQ.'FALS')THEN
16489          AV=0.0
16490        ELSE
16491          AV=ARG(5)
16492        ENDIF
16493        P3LNMI=AV
16494        GOTO5170
16495      ENDIF
16496C
16497CCCCC FOLLOWING SECTION ADDED APRIL    2014
16498C     ***********************************************************
16499C     **  SET GAMMA     MAXIMUM LIKELHOOD METHOD <COHEN/       **
16500C     **      PROFILE LIKELIHOOD>                              **
16501C     ***********************************************************
16502C
16503      IPART1='GAMM'
16504      IPART2='MAXI'
16505      IPART3='LIKE'
16506      IPART4='METH'
16507      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
16508     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
16509        IF(IHARG(5).EQ.'PROF')THEN
16510          IHV='PROF'
16511        ELSE
16512          IHV='COHE'
16513        ENDIF
16514        I3GAME=IHV
16515        GOTO5160
16516      ENDIF
16517C
16518CCCCC FOLLOWING SECTION ADDED APRIL    2014
16519C     ******************************************************
16520C     **  SET GAMMA     MAXIMUM LIKELHOOD MINIMUM <VALUE> **
16521C     ******************************************************
16522C
16523      IPART1='GAMM'
16524      IPART2='MAXI'
16525      IPART3='LIKE'
16526      IPART4='MINI'
16527      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
16528     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
16529        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE' .OR.
16530     1     IHV.EQ.'DEFA')THEN
16531          AV=0.0
16532        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE' .OR.
16533     1         IHV.EQ.'FALS')THEN
16534          AV=0.0
16535        ELSE
16536          AV=ARG(5)
16537        ENDIF
16538        P3GAMI=AV
16539        GOTO5170
16540      ENDIF
16541C
16542CCCCC FOLLOWING SECTION ADDED APRIL    2014
16543C     ***********************************************************
16544C     **  SET IVERSE GAUSSIAN DEFINITION <TWEEDIE/CHAN/STANDARD>*
16545C     ***********************************************************
16546C
16547      IPART1='INVE'
16548      IPART2='GAUS'
16549      IPART3='DEFI'
16550      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
16551     1   IHARG(3).EQ.IPART3)THEN
16552        IF(IHARG(4).EQ.'CHAN' .OR. IHARG(4).EQ.'SIGM')THEN
16553          IHV='CHAN'
16554        ELSEIF(IHARG(4).EQ.'STAN')THEN
16555          IHV='STAN'
16556        ELSE
16557          IHV='TWEE'
16558        ENDIF
16559        IGAUDF=IHV
16560        GOTO5160
16561      ENDIF
16562C
16563CCCCC FOLLOWING SECTION ADDED APRIL    2014
16564C     ***********************************************************
16565C     **  SET IVERSE GAUSSIAN CONFIDENCE LIMIT METHOD          **
16566C     **      <MLE/MODIFIEID MOMEMENTS>                        **
16567C     ***********************************************************
16568C
16569      IPART1='INVE'
16570      IPART2='GAUS'
16571      IPART3='CONF'
16572      IPART4='LIMI'
16573      IPART5='METH'
16574      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
16575     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
16576     1   IHARG(5).EQ.IPART5)THEN
16577        IF(IHARG(6).EQ.'MODI' .AND. IHARG(7).EQ.'MOME')THEN
16578          IHV='MMOM'
16579        ELSE
16580          IHV='MLE'
16581        ENDIF
16582        IGAUME=IHV
16583        GOTO5160
16584      ENDIF
16585C
16586CCCCC FOLLOWING SECTION ADDED MARCH    2014
16587C     *****************************************************************
16588C     **  SET BINOMIAL METHOD <WILSON/ADJUSTED WALD/JEFFREYS/EXACT/  **
16589C     **                       NORMAL APPROXIMATION/CONTINUITY CORR> **
16590C     *****************************************************************
16591C
16592C     NOTE THAT WHAT WE PREVIOSLY CALLED "AGRESTI-COUL" IS MORE
16593C     COMMONLY CALLED "WILSON" IN THE LITERATURE AND WHAT IS
16594C     COMMONLY CALLED "AGRESTI-COUL" IS THE "ADJUSTED WALD".  DUE
16595C     TO THIS AMBIGUITY IN NOTATION, DON'T USE AGRESTI-COUL, BUT
16596C     SPECIFICALLY USE "WILSON" AND "ADJUSTED WALD".
16597C
16598      IPART1='BINO'
16599      IPART2='METH'
16600      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
16601        IF(IHV.EQ.'JEFF')THEN
16602          IHV='JEFF'
16603        ELSEIF(IHARG(3).EQ.'ADJU' .AND. IHARG(4).EQ.'WALD')THEN
16604          IHV='WALD'
16605        ELSEIF(IHARG(3).EQ.'EXAC')THEN
16606          IHV='EXAC'
16607        ELSEIF(IHARG(3).EQ.'NORM')THEN
16608          IHV='NORM'
16609        ELSEIF(IHARG(3).EQ.'CONT')THEN
16610          IHV='CCOR'
16611        ELSE
16612          IHV='WILS'
16613        ENDIF
16614        IBINME=IHV
16615        GOTO5160
16616      ENDIF
16617C
16618CCCCC FOLLOWING SECTION ADDED NOVEMBER 2017
16619C     ***********************************************************
16620C     **  SET DIFFERENCE OF BINOMIAL METHOD                    **
16621C     **      <ADJUSTED/WALD/BAYESIAN>                         **
16622C     ***********************************************************
16623C
16624      IPART1='DIFF'
16625      IPART2='OF  '
16626      IPART3='BINO'
16627      IPART4='METH'
16628      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
16629     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
16630        IF(IHARG(5).EQ.'WALD')THEN
16631          IHV='WALD'
16632        ELSEIF(IHARG(5).EQ.'BAYE')THEN
16633          IHV='BAYE'
16634        ELSE
16635          IHV='ADJU'
16636        ENDIF
16637        IBI2ME=IHV
16638        GOTO5160
16639      ENDIF
16640C
16641CCCCC FOLLOWING SECTION ADDED DECEMBER  2017
16642C     ******************************************************
16643C     **  SET BONETT STANDARD DEVIATION CONFIDENCE LIMIT  **
16644C     **      ADJUSTED <ON/OFF>                           **
16645C     ******************************************************
16646C
16647      IPART1='BONE'
16648      IPART2='STAN'
16649      IPART3='DEVI'
16650      IPART4='CONF'
16651      IPART5='LIMI'
16652      IPART6='ADJU'
16653      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
16654     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
16655     1   IHARG(5).EQ.IPART5.AND.IHARG(6).EQ.IPART6)THEN
16656        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE' .OR.
16657     1     IHV.EQ.'DEFA')THEN
16658          IHV='ON'
16659        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE' .OR.
16660     1         IHV.EQ.'FALS')THEN
16661          IHV='OFF'
16662        ELSE
16663          IHV='ON'
16664        ENDIF
16665        IBONAD=IHV
16666        GOTO5160
16667      ENDIF
16668C
16669CCCCC FOLLOWING SECTION ADDED DECEMBER  2017
16670C     ******************************************************
16671C     **  SET BONETT STANDARD DEVIATION CONFIDENCE LIMIT  **
16672C     **      <ON/OFF>                                    **
16673C     ******************************************************
16674C
16675      IPART1='BONE'
16676      IPART2='STAN'
16677      IPART3='DEVI'
16678      IPART4='CONF'
16679      IPART5='LIMI'
16680      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
16681     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
16682     1   IHARG(5).EQ.IPART5)THEN
16683        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE' .OR.
16684     1     IHV.EQ.'DEFA')THEN
16685          IHV='ON'
16686        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE' .OR.
16687     1         IHV.EQ.'FALS')THEN
16688          IHV='OFF'
16689        ELSE
16690          IHV='ON'
16691        ENDIF
16692        IBONSD=IHV
16693        GOTO5160
16694      ENDIF
16695C
16696CCCCC FOLLOWING SECTION ADDED JANUARY  2018
16697C     ******************************************************
16698C     **  SET DEX ORDERED PLOT IDENTIFICATION <ON/OFF>    **
16699C     ******************************************************
16700C
16701      IPART1='DEX '
16702      IPART2='ORDE'
16703      IPART3='PLOT'
16704      IPART4='IDEN'
16705      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
16706     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
16707        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE' .OR.
16708     1     IHV.EQ.'DEFA')THEN
16709          IHV='ON'
16710        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE' .OR.
16711     1         IHV.EQ.'FALS')THEN
16712          IHV='OFF'
16713        ELSE
16714          IHV='ON'
16715        ENDIF
16716        IDPAID=IHV
16717        GOTO5160
16718      ENDIF
16719C
16720CCCCC FOLLOWING SECTION ADDED MARCH  2019
16721C     ******************************************************
16722C     **  SET SYSTEM PERSIST <ON/OFF>                     **
16723C     ******************************************************
16724C
16725      IPART1='SYST'
16726      IPART2='PERS'
16727      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
16728        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE')THEN
16729          IHV='ON'
16730        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE' .OR.
16731     1         IHV.EQ.'FALS' .OR. IHV.EQ.'DEFA')THEN
16732          IHV='OFF'
16733        ELSE
16734          IHV='OFF'
16735        ENDIF
16736        ISYSPE=IHV
16737        GOTO5160
16738      ENDIF
16739C
16740CCCCC FOLLOWING SECTION ADDED MARCH  2019
16741C     ******************************************************
16742C     **  SET SYSTEM HIDDEN  <ON/OFF>                     **
16743C     ******************************************************
16744C
16745      IPART1='SYST'
16746      IPART2='HIDD'
16747      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
16748        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE')THEN
16749          IHV='ON'
16750        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE' .OR.
16751     1         IHV.EQ.'FALS' .OR. IHV.EQ.'DEFA')THEN
16752          IHV='OFF'
16753        ELSE
16754          IHV='OFF'
16755        ENDIF
16756        ISYSHI=IHV
16757        GOTO5160
16758      ENDIF
16759C
16760CCCCC FOLLOWING SECTION ADDED DECEMBER  2019
16761C     ******************************************************
16762C     **  SET HOME PATH      <ON/OFF>                     **
16763C     ******************************************************
16764C
16765      IPART1='HOME'
16766      IPART2='PATH'
16767      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
16768        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE')THEN
16769          IHV='ON'
16770        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE' .OR.
16771     1         IHV.EQ.'FALS' .OR. IHV.EQ.'DEFA')THEN
16772          IHV='OFF'
16773        ELSE
16774          IHV='OFF'
16775        ENDIF
16776        IHOMPA=IHV
16777        GOTO5160
16778      ENDIF
16779C
16780CCCCC FOLLOWING SECTION ADDED JANUARY  2020
16781C     ******************************************************
16782C     **  SET IPLOT JITTER   <ON/OFF>                     **
16783C     ******************************************************
16784C
16785      IPART1='IPLO'
16786      IPART2='JITT'
16787      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
16788        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE')THEN
16789          IHV='ON'
16790        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE' .OR.
16791     1         IHV.EQ.'FALS' .OR. IHV.EQ.'DEFA')THEN
16792          IHV='OFF'
16793        ELSE
16794          IHV='OFF'
16795        ENDIF
16796        IIPLJI=IHV
16797        GOTO5160
16798      ENDIF
16799C
16800CCCCC FOLLOWING SECTION ADDED FEBRUARY  2020
16801C     ******************************************************
16802C     **  SET WRITE CSV      <ON/OFF>                     **
16803C     ******************************************************
16804C
16805      IPART1='WRIT'
16806      IPART2='CSV '
16807      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
16808        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE')THEN
16809          IHV='ON'
16810        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE' .OR.
16811     1         IHV.EQ.'FALS' .OR. IHV.EQ.'DEFA')THEN
16812          IHV='OFF'
16813        ELSE
16814          IHV='OFF'
16815        ENDIF
16816        ICSVWR=IHV
16817        GOTO5160
16818      ENDIF
16819C
16820CCCCC FOLLOWING SECTION ADDED FEBRUARY  2018
16821C     ******************************************************
16822C     **  SET DEX ORDERED PLOT UNCERTAINTY <ON/OFF>       **
16823C     ******************************************************
16824C
16825      IPART1='DEX '
16826      IPART2='ORDE'
16827      IPART3='PLOT'
16828      IPART4='UNCE'
16829      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
16830     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
16831        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE' .OR.
16832     1     IHV.EQ.'DEFA')THEN
16833          IHV='ON'
16834        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE' .OR.
16835     1         IHV.EQ.'FALS')THEN
16836          IHV='OFF'
16837        ELSE
16838          IHV='ON'
16839        ENDIF
16840        IDPAUN=IHV
16841        GOTO5160
16842      ENDIF
16843C
16844CCCCC FOLLOWING SECTION ADDED JANUARY  2018
16845C     *******************************************************
16846C     **  SET DEX PARETO PLOT ORDER <ASCENDING/DESCENDING> **
16847C     *******************************************************
16848C
16849      IPART1='DEX '
16850      IPART2='PARE'
16851      IPART3='PLOT'
16852      IPART4='ORDE'
16853      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
16854     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
16855        IF(IHV.EQ.'ASCE' .OR. IHV.EQ.'INCR')THEN
16856          IHV='ASCE'
16857        ELSE
16858          IHV='DESC'
16859        ENDIF
16860        IDPADI=IHV
16861        GOTO5160
16862      ENDIF
16863C
16864CCCCC FOLLOWING SECTION ADDED FEBRUARY  2019
16865C     ******************************************************
16866C     **  SET DEX STATISTIC PLOT INTERACTION <NONE/2/3>   **
16867C     ******************************************************
16868C
16869      IPART1='DEX '
16870      IPART2='STAT'
16871      IPART3='PLOT'
16872      IPART4='INTE'
16873      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
16874     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
16875        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE' .OR.
16876     1     IHV.EQ.'YES' .OR. IHARG(5).EQ.'2' .OR.
16877     1     IHARG(5).EQ.'2TER')THEN
16878          IHV='2'
16879        ELSEIF(IHV.EQ.'3' .OR. IHARG(5).EQ.'3' .OR.
16880     1         IHARG(5).EQ.'3TER')THEN
16881          IHV='3'
16882        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE' .OR.
16883     1         IHV.EQ.'FALS' .OR. IHV.EQ.'DEFA' .OR.
16884     1         NUMARG.LE.4)THEN
16885          IHV='NONE'
16886        ELSE
16887          IHV='NONE'
16888        ENDIF
16889        IDEXIN=IHV
16890        GOTO5160
16891      ENDIF
16892C
16893CCCCC FOLLOWING SECTION ADDED JULY     2013
16894C     ******************************************************
16895C     **  SET BEST FIT FONG XVALUE <VALUE>                **
16896C     ******************************************************
16897C
16898      IPART1='BEST'
16899      IPART2='FIT '
16900      IPART3='FONG'
16901      IPART4='XVAL'
16902      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
16903     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
16904        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE' .OR.
16905     1     IHV.EQ.'DEFA')THEN
16906          AV=CPUMIN
16907        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE' .OR.
16908     1         IHV.EQ.'FALS')THEN
16909          AV=CPUMIN
16910        ELSE
16911          AV=ARG(5)
16912        ENDIF
16913        PBFIXV=AV
16914        GOTO5170
16915      ENDIF
16916C
16917CCCCC FOLLOWING SECTION ADDED JANUARY  2013
16918C     ******************************************************
16919C     **  SET BEST FIT FONG <ON/OFF>                      **
16920C     ******************************************************
16921C
16922      IPART1='BEST'
16923      IPART2='FIT '
16924      IPART3='FONG'
16925      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
16926     1   IHARG(3).EQ.IPART3)THEN
16927        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE' .OR.
16928     1     IHV.EQ.'DEFA')THEN
16929          IHV='ON'
16930        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE' .OR.
16931     1         IHV.EQ.'FALS')THEN
16932          IHV='OFF'
16933        ELSE
16934          IHV='ON'
16935        ENDIF
16936        IBFIFO=IHV
16937        GOTO5160
16938      ENDIF
16939C
16940CCCCC FOLLOWING SECTION ADDED JUNE     2013
16941C     ******************************************************
16942C     **  SET BEST FIT LOWER LIMIT <VALUE>                **
16943C     ******************************************************
16944C
16945      IPART1='BEST'
16946      IPART2='FIT '
16947      IPART3='LOWE'
16948      IPART4='LIMI'
16949      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
16950     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
16951        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE' .OR.
16952     1     IHV.EQ.'DEFA')THEN
16953          AV=CPUMIN
16954        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE' .OR.
16955     1         IHV.EQ.'FALS')THEN
16956          AV=CPUMIN
16957        ELSE
16958          AV=ARG(5)
16959        ENDIF
16960        PBFILL=AV
16961        GOTO5170
16962      ENDIF
16963C
16964CCCCC FOLLOWING SECTION ADDED JUNE     2013
16965C     ******************************************************
16966C     **  SET BEST FIT UPPER LIMIT <VALUE>                **
16967C     ******************************************************
16968C
16969      IPART1='BEST'
16970      IPART2='FIT '
16971      IPART3='UPPE'
16972      IPART4='LIMI'
16973      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
16974     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
16975        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE' .OR.
16976     1     IHV.EQ.'DEFA')THEN
16977          AV=CPUMIN
16978        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE' .OR.
16979     1         IHV.EQ.'FALS')THEN
16980          AV=CPUMIN
16981        ELSE
16982          AV=ARG(5)
16983        ENDIF
16984        PBFIUL=AV
16985        GOTO5170
16986      ENDIF
16987C
16988CCCCC FOLLOWING SECTION ADDED APRIL  2020
16989C     ******************************************************
16990C     **  SET BEST FIT <DIST> <ON/OFF>                    **
16991C     ******************************************************
16992C
16993      IPART1='BEST'
16994      IPART2='FIT '
16995      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
16996C
16997        IF(IHARG(3).EQ.'DIST' .AND.
16998     1     (IHARG(4).EQ.'ALL ' .OR. IHARG(4).EQ.'DEFAU'))THEN
16999          IBFINO='ON'
17000          IBFIUN='ON'
17001          IBFI2B='ON'
17002          IBFI4B='ON'
17003          IBFIPW='ON'
17004          IBFIRP='ON'
17005          IBFIAR='ON'
17006          IBFITR='ON'
17007          IBFITO='ON'
17008          IBFIRG='ON'
17009          IBFITS='ON'
17010          IBFINX='OFF'
17011          IBFGVX='ON'
17012          IBFGVN='ON'
17013          IBFGPX='ON'
17014          IBFGPN='ON'
17015          IBFIPA='ON'
17016          IBFFRX='ON'
17017          IBFFRN='ON'
17018          IBFGUX='ON'
17019          IBFGUN='ON'
17020          IBFILO='ON'
17021          IBFILL='ON'
17022          IBFIHS='ON'
17023          IBFIDX='ON'
17024          IBFIAX='ON'
17025          IBFIDW='ON'
17026          IBFIDG='ON'
17027          IBFITL='ON'
17028          IBFIGT='ON'
17029          IBFIER='ON'
17030          IBFIGH='ON'
17031          IBFIG ='ON'
17032          IBFISL='ON'
17033          IBFICA='ON'
17034          IBFICO='ON'
17035          IBFIFN='ON'
17036          IBFIHN='ON'
17037          IBFIHL='ON'
17038          IBFIBR='ON'
17039          IBFIAN='ON'
17040          IBFI2E='ON'
17041          IBFI1E='ON'
17042          IBFIRA='ON'
17043          IBFIMX='ON'
17044          IBF2WN='ON'
17045          IBF2WX='ON'
17046          IBF3WX='ON'
17047          IBF3WN='ON'
17048          IBFIIW='OFF'
17049          IBFI2L='ON'
17050          IBFI3L='ON'
17051          IBFIGA='ON'
17052          IBFILG='ON'
17053          IBFIIG='ON'
17054          IBFIFL='ON'
17055          IBFB10='ON'
17056          IBFIWA='ON'
17057          IBF2IG='ON'
17058          IBF3IG='ON'
17059          IBFILX='ON'
17060          IBFILD='ON'
17061          IBFIGX='ON'
17062          IBF1HN='ON'
17063          IBF2HN='ON'
17064          IBF1HL='ON'
17065          IBF2HL='ON'
17066          IF(IFEEDB.EQ.'ON')THEN
17067            WRITE(ICOUT,999)
17068            CALL DPWRST('XXX','BUG ')
17069            WRITE(ICOUT,65192)
1707065192       FORMAT('ALL DISTRIBUTIONS HAVE BEEN TURNED ON FOR THE ',
17071     1             'BEST DISTRIBUTIONAL FIT COMMAND.')
17072            CALL DPWRST('XXX','BUG ')
17073          ENDIF
17074          IFOUND='YES'
17075          GOTO9000
17076        ELSEIF(IHARG(3).EQ.'DIST' .AND.
17077     1     (IHARG(4).EQ.'NONE' .OR. IHARG(4).EQ.'OFF '))THEN
17078          IBFINO='OFF'
17079          IBFIUN='OFF'
17080          IBFI2B='OFF'
17081          IBFI4B='OFF'
17082          IBFIPW='OFF'
17083          IBFIRP='OFF'
17084          IBFIAR='OFF'
17085          IBFITR='OFF'
17086          IBFITO='OFF'
17087          IBFIRG='OFF'
17088          IBFITS='OFF'
17089          IBFINX='OFF'
17090          IBFGVX='OFF'
17091          IBFGVN='OFF'
17092          IBFGPX='OFF'
17093          IBFGPN='OFF'
17094          IBFIPA='OFF'
17095          IBFFRX='OFF'
17096          IBFFRN='OFF'
17097          IBFGUX='OFF'
17098          IBFGUN='OFF'
17099          IBFILO='OFF'
17100          IBFILL='OFF'
17101          IBFIHS='OFF'
17102          IBFIDX='OFF'
17103          IBFIAX='OFF'
17104          IBFIDW='OFF'
17105          IBFIDG='OFF'
17106          IBFITL='OFF'
17107          IBFIGT='OFF'
17108          IBFIER='OFF'
17109          IBFIGH='OFF'
17110          IBFIG ='OFF'
17111          IBFISL='OFF'
17112          IBFICA='OFF'
17113          IBFICO='OFF'
17114          IBFIFN='OFF'
17115          IBFIHN='OFF'
17116          IBFIHL='OFF'
17117          IBFIBR='OFF'
17118          IBFIAN='OFF'
17119          IBFI2E='OFF'
17120          IBFI1E='OFF'
17121          IBFIRA='OFF'
17122          IBFIMX='OFF'
17123          IBF2WN='OFF'
17124          IBF2WX='OFF'
17125          IBF3WX='OFF'
17126          IBF3WN='OFF'
17127          IBFIIW='OFF'
17128          IBFI2L='OFF'
17129          IBFI3L='OFF'
17130          IBFIGA='OFF'
17131          IBFILG='OFF'
17132          IBFIIG='OFF'
17133          IBFIFL='OFF'
17134          IBFB10='OFF'
17135          IBFIWA='OFF'
17136          IBF2IG='OFF'
17137          IBF3IG='OFF'
17138          IBFILX='OFF'
17139          IBFILD='OFF'
17140          IBFIGX='OFF'
17141          IBF1HN='OFF'
17142          IBF2HN='OFF'
17143          IBF1HL='OFF'
17144          IBF2HL='OFF'
17145          IF(IFEEDB.EQ.'ON')THEN
17146            WRITE(ICOUT,999)
17147            CALL DPWRST('XXX','BUG ')
17148            WRITE(ICOUT,65194)
1714965194       FORMAT('ALL DISTRIBUTIONS HAVE BEEN TURNED OFF FOR THE ',
17150     1             'BEST DISTRIBUTIONAL FIT COMMAND.')
17151            CALL DPWRST('XXX','BUG ')
17152          ENDIF
17153          IFOUND='YES'
17154          GOTO9000
17155        ENDIF
17156C
17157        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE' .OR.
17158     1     IHV.EQ.'DEFA')THEN
17159          IHV='ON'
17160        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE' .OR.
17161     1         IHV.EQ.'FALS')THEN
17162          IHV='OFF'
17163        ELSE
17164          IHV='ON'
17165        ENDIF
17166C
17167        IF(IHARG(3).EQ.'NORM')THEN
17168          IBFINO=IHV
17169          GOTO5160
17170        ELSEIF(IHARG(3).EQ.'UNIF')THEN
17171          IBFIUN=IHV
17172          GOTO5160
17173        ELSEIF(IHARG(3).EQ.'2   ' .AND. IHARG(4).EQ.'PARA' .AND.
17174     1         IHARG(5).EQ.'BETA')THEN
17175          IBFI2B=IHV
17176          GOTO5160
17177        ELSEIF(IHARG(3).EQ.'TWO ' .AND. IHARG(4).EQ.'PARA' .AND.
17178     1         IHARG(5).EQ.'BETA')THEN
17179          IBFI2B=IHV
17180          GOTO5160
17181        ELSEIF(IHARG(3).EQ.'4   ' .AND. IHARG(4).EQ.'PARA' .AND.
17182     1         IHARG(5).EQ.'BETA')THEN
17183          IBFI4B=IHV
17184          GOTO5160
17185        ELSEIF(IHARG(3).EQ.'FOUR' .AND. IHARG(4).EQ.'PARA' .AND.
17186     1         IHARG(5).EQ.'BETA')THEN
17187          IBFI4B=IHV
17188          GOTO5160
17189        ELSEIF(IHARG(3).EQ.'POWE')THEN
17190          IBFIPW=IHV
17191          GOTO5160
17192        ELSEIF(IHARG(3).EQ.'REFL' .AND. IHARG(4).EQ.'POWE')THEN
17193          IBFIPW=IHV
17194          GOTO5160
17195        ELSEIF(IHARG(3).EQ.'ARCS')THEN
17196          IBFIAR=IHV
17197          GOTO5160
17198        ELSEIF(IHARG(3).EQ.'TRIA')THEN
17199          IBFITR=IHV
17200          GOTO5160
17201        ELSEIF(IHARG(3).EQ.'TOPP' .AND. IHARG(4).EQ.'AND ' .AND.
17202     1         IHARG(5).EQ.'LEON')THEN
17203          IBFITO=IHV
17204          GOTO5160
17205        ELSEIF(IHARG(3).EQ.'REFL' .AND. IHARG(4).EQ.'GENE' .AND.
17206     1         IHARG(5).EQ.'TOPP' .AND. IHARG(6).EQ.'AND ' .AND.
17207     1         IHARG(7).EQ.'LEON')THEN
17208          IBFIRG=IHV
17209          GOTO5160
17210        ELSEIF(IHARG(3).EQ.'TWO ' .AND. IHARG(4).EQ.'SIDE' .AND.
17211     1         IHARG(5).EQ.'POWE')THEN
17212          IBFITS=IHV
17213        ELSEIF(IHARG(3).EQ.'2   ' .AND. IHARG(4).EQ.'SIDE' .AND.
17214     1         IHARG(5).EQ.'POWE')THEN
17215          IBFITS=IHV
17216        ELSEIF(IHARG(3).EQ.'2   ' .AND. IHARG(4).EQ.'COMP' .AND.
17217     1         IHARG(5).EQ.'NORM' .AND. IHARG(6).EQ.'MIXT')THEN
17218          IBFINX=IHV
17219          GOTO5160
17220        ELSEIF(IHARG(3).EQ.'TWO ' .AND. IHARG(4).EQ.'COMP' .AND.
17221     1         IHARG(5).EQ.'NORM' .AND. IHARG(6).EQ.'MIXT')THEN
17222          IBFINX=IHV
17223          GOTO5160
17224        ELSEIF(IHARG(3).EQ.'GENE' .AND. IHARG(4).EQ.'EXTR' .AND.
17225     1         IHARG(5).EQ.'VALU' .AND. IHARG(6)(1:3).EQ.'MIN')THEN
17226          IBFGVN=IHV
17227          GOTO5160
17228        ELSEIF(IHARG(3).EQ.'GENE' .AND. IHARG(4).EQ.'EXTR' .AND.
17229     1         IHARG(5).EQ.'VALU' .AND. IHARG(6)(1:3).EQ.'MAX')THEN
17230          IBFGVX=IHV
17231          GOTO5160
17232        ELSEIF(IHARG(3).EQ.'GENE' .AND. IHARG(4).EQ.'PARE' .AND.
17233     1         IHARG(5)(1:3).EQ.'MIN')THEN
17234          IBFGPN=IHV
17235          GOTO5160
17236        ELSEIF(IHARG(3).EQ.'GENE' .AND. IHARG(4).EQ.'PARE' .AND.
17237     1         IHARG(5)(1:3).EQ.'MAX')THEN
17238          IBFGPX=IHV
17239          GOTO5160
17240        ELSEIF(IHARG(3).EQ.'FREC' .AND. IHARG(4)(1:3).EQ.'MAX')THEN
17241          IBFFRX=IHV
17242          GOTO5160
17243        ELSEIF(IHARG(3).EQ.'EXTR' .AND. IHARG(4).EQ.'VALU' .AND.
17244     1         IHARG(5).EQ.'TYPE' .AND. IHARG(6).EQ.'2   ' .AND.
17245     1         IHARG(7)(1:3).EQ.'MAX')THEN
17246          IBFFRX=IHV
17247          GOTO5160
17248        ELSEIF(IHARG(3).EQ.'EXTR' .AND. IHARG(4).EQ.'VALU' .AND.
17249     1         IHARG(5).EQ.'TYPE' .AND. IHARG(6).EQ.'TWO ' .AND.
17250     1         IHARG(7)(1:3).EQ.'MAX')THEN
17251          IBFFRX=IHV
17252          GOTO5160
17253        ELSEIF(IHARG(3).EQ.'EXTR' .AND. IHARG(4).EQ.'VALU' .AND.
17254     1         IHARG(5).EQ.'TYPE' .AND. IHARG(6).EQ.'II  ' .AND.
17255     1         IHARG(7)(1:3).EQ.'MAX')THEN
17256          IBFFRX=IHV
17257          GOTO5160
17258        ELSEIF(IHARG(3).EQ.'FREC' .AND. IHARG(4)(1:3).EQ.'MIN')THEN
17259          IBFFRN=IHV
17260          GOTO5160
17261        ELSEIF(IHARG(3).EQ.'EXTR' .AND. IHARG(4).EQ.'VALU' .AND.
17262     1         IHARG(5).EQ.'TYPE' .AND. IHARG(6).EQ.'2   ' .AND.
17263     1         IHARG(7)(1:3).EQ.'MAX')THEN
17264          IBFFRN=IHV
17265          GOTO5160
17266        ELSEIF(IHARG(3).EQ.'EXTR' .AND. IHARG(4).EQ.'VALU' .AND.
17267     1         IHARG(5).EQ.'TYPE' .AND. IHARG(6).EQ.'TWO ' .AND.
17268     1         IHARG(7)(1:3).EQ.'MAX')THEN
17269          IBFFRN=IHV
17270          GOTO5160
17271        ELSEIF(IHARG(3).EQ.'EXTR' .AND. IHARG(4).EQ.'VALU' .AnD.
17272     1         IHARG(5).EQ.'TYPE' .AND. IHARG(6).EQ.'II  ' .AND.
17273     1         IHARG(7)(1:3).EQ.'MAX')THEN
17274          IBFFRN=IHV
17275          GOTO5160
17276        ELSEIF(IHARG(3).EQ.'GUMB' .AND. IHARG(4)(1:3).EQ.'MAX')THEN
17277          IBFGUX=IHV
17278          GOTO5160
17279        ELSEIF(IHARG(3).EQ.'GENE' .AND. IHARG(4).EQ.'EXTR' .AND.
17280     1         IHARG(5).EQ.'VALU' .AND. IHARG(6).EQ.'TYPE' .AND.
17281     1         IHARG(7).EQ.'1   ' .AND. IHARG(8)(1:3).EQ.'MAX')THEN
17282          IBFGUX=IHV
17283          GOTO5160
17284        ELSEIF(IHARG(3).EQ.'GENE' .AND. IHARG(4).EQ.'EXTR' .AND.
17285     1         IHARG(5).EQ.'VALU' .AND. IHARG(6).EQ.'TYPE' .AND.
17286     1         IHARG(7).EQ.'ONE ' .AND. IHARG(8)(1:3).EQ.'MAX')THEN
17287          IBFGUX=IHV
17288          GOTO5160
17289        ELSEIF(IHARG(3).EQ.'GENE' .AND. IHARG(4).EQ.'EXTR' .AND.
17290     1         IHARG(5).EQ.'VALU' .AND. IHARG(6).EQ.'TYPE' .AND.
17291     1         IHARG(7).EQ.'I   ' .AND. IHARG(8)(1:3).EQ.'MAX')THEN
17292          IBFGUX=IHV
17293          GOTO5160
17294        ELSEIF(IHARG(3).EQ.'GUMB' .AND. IHARG(4)(1:3).EQ.'MIN')THEN
17295          IBFGUN=IHV
17296          GOTO5160
17297        ELSEIF(IHARG(3).EQ.'GENE' .AND. IHARG(4).EQ.'EXTR' .AND.
17298     1         IHARG(5).EQ.'VALU' .AND. IHARG(6).EQ.'TYPE' .AND.
17299     1         IHARG(7).EQ.'1   ' .AND. IHARG(8)(1:3).EQ.'MIN')THEN
17300          IBFGUN=IHV
17301          GOTO5160
17302        ELSEIF(IHARG(3).EQ.'GENE' .AND. IHARG(4).EQ.'EXTR' .AND.
17303     1         IHARG(5).EQ.'VALU' .AND. IHARG(6).EQ.'TYPE' .AND.
17304     1         IHARG(7).EQ.'ONE ' .AND. IHARG(8)(1:3).EQ.'MIN')THEN
17305          IBFGUN=IHV
17306          GOTO5160
17307        ELSEIF(IHARG(3).EQ.'GENE' .AND. IHARG(4).EQ.'EXTR' .AND.
17308     1         IHARG(5).EQ.'VALU' .AND. IHARG(6).EQ.'TYPE' .AND.
17309     1         IHARG(7).EQ.'I   ' .AND. IHARG(8)(1:3).EQ.'MIN')THEN
17310          IBFGUN=IHV
17311          GOTO5160
17312        ELSEIF(IHARG(3).EQ.'PARE')THEN
17313          IBFIPA=IHV
17314          GOTO5160
17315        ELSEIF(IHARG(3).EQ.'LOGI')THEN
17316          IBFILO=IHV
17317          GOTO5160
17318        ELSEIF(IHARG(3).EQ.'HYPE' .AND. IHARG(4).EQ.'SECA')THEN
17319          IBFIHS=IHV
17320          GOTO5160
17321        ELSEIF(IHARG(3).EQ.'DOUB' .AND. IHARG(4).EQ.'EXPO')THEN
17322          IBFIDX=IHV
17323          GOTO5160
17324        ELSEIF(IHARG(3).EQ.'LAPL')THEN
17325          IBFIDX=IHV
17326          GOTO5160
17327        ELSEIF(IHARG(3).EQ.'DOUB' .AND. IHARG(4).EQ.'WEIB')THEN
17328          IBFIDW=IHV
17329          GOTO5160
17330        ELSEIF(IHARG(3).EQ.'DOUB' .AND. IHARG(4).EQ.'GAMM')THEN
17331          IBFIDG=IHV
17332          GOTO5160
17333        ELSEIF(IHARG(3).EQ.'ASYM' .AND. IHARG(4).EQ.'DOUB' .AND.
17334     1         IHARG(5).EQ.'EXPO')THEN
17335          IBFIAX=IHV
17336          GOTO5160
17337        ELSEIF(IHARG(3).EQ.'ASYM' .AND. IHARG(4).EQ.'LAPL')THEN
17338          IBFIAX=IHV
17339          GOTO5160
17340        ELSEIF(IHARG(3).EQ.'TUKE' .AND. IHARG(4).EQ.'LAMB')THEN
17341          IBFITL=IHV
17342          GOTO5160
17343        ELSEIF(IHARG(3).EQ.'GENE' .AND. IHARG(4).EQ.'TUKE' .AND.
17344     1         IHARG(5).EQ.'LAMB')THEN
17345          IBFIGT=IHV
17346          GOTO5160
17347        ELSEIF(IHARG(3).EQ.'ERRO')THEN
17348          IBFIER=IHV
17349          GOTO5160
17350        ELSEIF(IHARG(3).EQ.'G   ' .AND. IHARG(4).EQ.'AND ' .AND.
17351     1         IHARG(5).EQ.'H   ')THEN
17352          IBFIGH=IHV
17353        ELSEIF(IHARG(3).EQ.'G   ')THEN
17354          IBFIG=IHV
17355          GOTO5160
17356        ELSEIF(IHARG(3).EQ.'SLAS')THEN
17357          IBFISL=IHV
17358          GOTO5160
17359        ELSEIF(IHARG(3).EQ.'CAUC')THEN
17360          IBFICA=IHV
17361          GOTO5160
17362        ELSEIF(IHARG(3).EQ.'COSI')THEN
17363          IBFICO=IHV
17364          GOTO5160
17365        ELSEIF(IHARG(3).EQ.'FOLD' .AND. IHARG(4).EQ.'NORM')THEN
17366          IBFIFN=IHV
17367          GOTO5160
17368        ELSEIF(IHARG(3).EQ.'LOG ' .AND. IHARG(4).EQ.'LOGI')THEN
17369          IBFILL=IHV
17370          GOTO5160
17371        ELSEIF(IHARG(3).EQ.'BRAD')THEN
17372          IBFIBR=IHV
17373          GOTO5160
17374        ELSEIF(IHARG(3).EQ.'ANGL')THEN
17375          IBFIAN=IHV
17376          GOTO5160
17377        ELSEIF(IHARG(3).EQ.'2   ' .AND. IHARG(4).EQ.'PARA' .AND.
17378     1         IHARG(5).EQ.'EXPO')THEN
17379          IBFI2E=IHV
17380        ELSEIF(IHARG(3).EQ.'TWO ' .AND. IHARG(4).EQ.'PARA' .AND.
17381     1         IHARG(5).EQ.'EXPO')THEN
17382          IBFI2E=IHV
17383        ELSEIF(IHARG(3).EQ.'1   ' .AND. IHARG(4).EQ.'PARA' .AND.
17384     1         IHARG(5).EQ.'EXPO')THEN
17385          IBFI1E=IHV
17386        ELSEIF(IHARG(3).EQ.'ONE ' .AND. IHARG(4).EQ.'PARA' .AND.
17387     1         IHARG(5).EQ.'EXPO')THEN
17388          IBFI1E=IHV
17389        ELSEIF(IHARG(3).EQ.'EXPO')THEN
17390          IBFI2E=IHV
17391          GOTO5160
17392        ELSEIF(IHARG(3).EQ.'RAYL')THEN
17393          IBFIRA=IHV
17394          GOTO5160
17395        ELSEIF(IHARG(3).EQ.'MAXW')THEN
17396          IBFIMX=IHV
17397          GOTO5160
17398        ELSEIF(IHARG(3).EQ.'2   ' .AND. IHARG(4).EQ.'PARA' .AND.
17399     1         IHARG(5).EQ.'WEIB' .AND. IHARG(6)(1:3).EQ.'MAX')THEN
17400          IBF2WX=IHV
17401        ELSEIF(IHARG(3).EQ.'TWO ' .AND. IHARG(4).EQ.'PARA' .AND.
17402     1         IHARG(5).EQ.'WEIB' .AND. IHARG(6)(1:3).EQ.'MAX')THEN
17403          IBF2WX=IHV
17404        ELSEIF(IHARG(3).EQ.'2   ' .AND. IHARG(4).EQ.'PARA' .AND.
17405     1         IHARG(5).EQ.'WEIB' .AND. IHARG(6)(1:3).EQ.'MIN')THEN
17406          IBF2WN=IHV
17407        ELSEIF(IHARG(3).EQ.'TWO ' .AND. IHARG(4).EQ.'PARA' .AND.
17408     1         IHARG(5).EQ.'WEIB' .AND. IHARG(6)(1:3).EQ.'MIN')THEN
17409          IBF2WN=IHV
17410        ELSEIF(IHARG(3).EQ.'2   ' .AND. IHARG(4).EQ.'PARA' .AND.
17411     1         IHARG(5).EQ.'WEIB')THEN
17412          IBF2WX=IHV
17413        ELSEIF(IHARG(3).EQ.'TWO ' .AND. IHARG(4).EQ.'PARA' .AND.
17414     1         IHARG(5).EQ.'WEIB')THEN
17415          IBF2WX=IHV
17416        ELSEIF(IHARG(3).EQ.'3   ' .AND. IHARG(4).EQ.'PARA' .AND.
17417     1         IHARG(5).EQ.'WEIB' .AND. IHARG(6)(1:3).EQ.'MIN')THEN
17418          IBF3WN=IHV
17419        ELSEIF(IHARG(3).EQ.'THRE' .AND. IHARG(4).EQ.'PARA' .AND.
17420     1         IHARG(5).EQ.'WEIB' .AND. IHARG(6)(1:3).EQ.'MIN')THEN
17421          IBF3WN=IHV
17422        ELSEIF(IHARG(3).EQ.'3   ' .AND. IHARG(4).EQ.'PARA' .AND.
17423     1         IHARG(5).EQ.'WEIB' .AND. IHARG(6)(1:3).EQ.'MAX')THEN
17424          IBF3WX=IHV
17425        ELSEIF(IHARG(3).EQ.'THRE' .AND. IHARG(4).EQ.'PARA' .AND.
17426     1         IHARG(5).EQ.'WEIB' .AND. IHARG(6)(1:3).EQ.'MAX')THEN
17427          IBF3WX=IHV
17428        ELSEIF(IHARG(3).EQ.'INVE' .AND. IHARG(4).EQ.'WEIB')THEN
17429          IBFIIW=IHV
17430          GOTO5160
17431        ELSEIF(IHARG(3).EQ.'2   ' .AND. IHARG(4).EQ.'PARA' .AND.
17432     1         IHARG(5).EQ.'LOGN')THEN
17433          IBFI2L=IHV
17434        ELSEIF(IHARG(3).EQ.'TWO ' .AND. IHARG(4).EQ.'PARA' .AND.
17435     1         IHARG(5).EQ.'LOGN')THEN
17436          IBFI2L=IHV
17437        ELSEIF(IHARG(3).EQ.'3   ' .AND. IHARG(4).EQ.'PARA' .AND.
17438     1         IHARG(5).EQ.'LOGN')THEN
17439          IBFI3L=IHV
17440        ELSEIF(IHARG(3).EQ.'THRE' .AND. IHARG(4).EQ.'PARA' .AND.
17441     1         IHARG(5).EQ.'LOGN')THEN
17442          IBFI3L=IHV
17443        ELSEIF(IHARG(3).EQ.'GAMM')THEN
17444          IBFIGA=IHV
17445          GOTO5160
17446        ELSEIF(IHARG(3).EQ.'LOG ' .AND. IHARG(4).EQ.'GAMM')THEN
17447          IBFILG=IHV
17448          GOTO5160
17449        ELSEIF(IHARG(3).EQ.'INVE' .AND. IHARG(4).EQ.'GAMM')THEN
17450          IBFIIG=IHV
17451          GOTO5160
17452        ELSEIF(IHARG(3).EQ.'FATI' .AND. IHARG(4).EQ.'LIFE')THEN
17453          IBFIFL=IHV
17454          GOTO5160
17455        ELSEIF(IHARG(3).EQ.'BURR' .AND. IHARG(4).EQ.'TYPE' .AND.
17456     1         IHARG(5).EQ.'10  ')THEN
17457          IBFB10=IHV
17458        ELSEIF(IHARG(3).EQ.'BURR' .AND. IHARG(4).EQ.'TYPE' .AND.
17459     1         IHARG(5).EQ.'TEN ')THEN
17460          IBFB10=IHV
17461        ELSEIF(IHARG(3).EQ.'WALD')THEN
17462          IBFIWA=IHV
17463          GOTO5160
17464        ELSEIF(IHARG(3).EQ.'2   ' .AND. IHARG(4).EQ.'PARA' .AND.
17465     1         IHARG(5).EQ.'INVE' .AND. IHARG(6).EQ.'GAUS')THEN
17466          IBF2IG=IHV
17467        ELSEIF(IHARG(3).EQ.'TWO ' .AND. IHARG(4).EQ.'PARA' .AND.
17468     1         IHARG(5).EQ.'INVE' .AND. IHARG(6).EQ.'GAUS')THEN
17469          IBF2IG=IHV
17470        ELSEIF(IHARG(3).EQ.'3   ' .AND. IHARG(4).EQ.'PARA' .AND.
17471     1         IHARG(5).EQ.'INVE' .AND. IHARG(6).EQ.'GAUS')THEN
17472          IBF3IG=IHV
17473        ELSEIF(IHARG(3).EQ.'THRE' .AND. IHARG(4).EQ.'PARA' .AND.
17474     1         IHARG(5).EQ.'INVE' .AND. IHARG(6).EQ.'GAUS')THEN
17475          IBF3IG=IHV
17476        ELSEIF(IHARG(3).EQ.'LOGI' .AND. IHARG(4).EQ.'EXPO')THEN
17477          IBFILX=IHV
17478          GOTO5160
17479        ELSEIF(IHARG(3).EQ.'GEOM' .AND. IHARG(4).EQ.'EXTR' .AND.
17480     1         IHARG(4).EQ.'EXPO')THEN
17481          IBFIGX=IHV
17482          GOTO5160
17483        ELSEIF(IHARG(3).EQ.'LOG ' .AND. IHARG(4).EQ.'DOUB' .AND.
17484     1         IHARG(4).EQ.'EXPO')THEN
17485          IBFILD=IHV
17486          GOTO5160
17487        ELSEIF(IHARG(3).EQ.'1   ' .AND. IHARG(4)(1:3).EQ.'PAR' .AND.
17488     1         IHARG(5).EQ.'HALF' .AND. IHARG(6).EQ.'NORM')THEN
17489          IBF1HN=IHV
17490          GOTO5160
17491        ELSEIF(IHARG(3).EQ.'ONE ' .AND. IHARG(4)(1:3).EQ.'PAR' .AND.
17492     1         IHARG(5).EQ.'HALF' .AND. IHARG(6).EQ.'NORM')THEN
17493          IBF1HN=IHV
17494          GOTO5160
17495        ELSEIF(IHARG(3).EQ.'2   ' .AND. IHARG(4)(1:3).EQ.'PAR' .AND.
17496     1         IHARG(5).EQ.'HALF' .AND. IHARG(6).EQ.'NORM')THEN
17497          IBF2HN=IHV
17498          GOTO5160
17499        ELSEIF(IHARG(3).EQ.'TWO ' .AND. IHARG(4)(1:3).EQ.'PAR' .AND.
17500     1         IHARG(5).EQ.'HALF' .AND. IHARG(6).EQ.'NORM')THEN
17501          IBF2HN=IHV
17502          GOTO5160
17503        ELSEIF(IHARG(3).EQ.'HALF' .AND. IHARG(4).EQ.'NORM')THEN
17504          IBF2HN=IHV
17505          GOTO5160
17506        ELSEIF(IHARG(3).EQ.'1   ' .AND. IHARG(4)(1:3).EQ.'PAR' .AND.
17507     1         IHARG(5).EQ.'HALF' .AND. IHARG(6).EQ.'LOGI')THEN
17508          IBF1HL=IHV
17509          GOTO5160
17510        ELSEIF(IHARG(3).EQ.'ONE ' .AND. IHARG(4)(1:3).EQ.'PAR' .AND.
17511     1         IHARG(5).EQ.'HALF' .AND. IHARG(6).EQ.'LOGI')THEN
17512          IBF1HL=IHV
17513          GOTO5160
17514        ELSEIF(IHARG(3).EQ.'2   ' .AND. IHARG(4)(1:3).EQ.'PAR' .AND.
17515     1         IHARG(5).EQ.'HALF' .AND. IHARG(6).EQ.'LOGI')THEN
17516          IBF2HL=IHV
17517          GOTO5160
17518        ELSEIF(IHARG(3).EQ.'TWO ' .AND. IHARG(4)(1:3).EQ.'PAR' .AND.
17519     1         IHARG(5).EQ.'HALF' .AND. IHARG(6).EQ.'LOGI')THEN
17520          IBF2HL=IHV
17521          GOTO5160
17522        ELSEIF(IHARG(3).EQ.'HALF' .AND. IHARG(4).EQ.'LOGI')THEN
17523          IBF2HL=IHV
17524          GOTO5160
17525        ENDIF
17526C
17527      ENDIF
17528C
17529CCCCC FOLLOWING SECTION ADDED MARCH  2013
17530C     ******************************************************
17531C     **  SET WEIBULL GAUGE LENGTH <ON/OFF>               **
17532C     ******************************************************
17533C
17534      IPART1='WEIB'
17535      IPART2='GAUG'
17536      IPART3='LENG'
17537      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
17538     1   IHARG(3).EQ.IPART3)THEN
17539        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE' .OR.
17540     1     IHV.EQ.'DEFA')THEN
17541          IHV='ON'
17542        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE' .OR.
17543     1         IHV.EQ.'FALS')THEN
17544          IHV='OFF'
17545        ELSE
17546          IHV='ON'
17547        ENDIF
17548        IWEIGL=IHV
17549        GOTO5160
17550      ENDIF
17551C
17552CCCCC FOLLOWING SECTION ADDED APRIL  2013
17553C     ******************************************************
17554C     **  SET WEIBULL MAXIMUM LIKELIHOOD <ON/OFF>         **
17555C     ******************************************************
17556C
17557      IPART1='WEIB'
17558      IPART2='MAXI'
17559      IPART3='LIKE'
17560      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
17561     1   IHARG(3).EQ.IPART3)THEN
17562        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE' .OR.
17563     1     IHV.EQ.'DEFA')THEN
17564          IHV='ON'
17565        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE' .OR.
17566     1         IHV.EQ.'FALS')THEN
17567          IHV='OFF'
17568        ELSE
17569          IHV='ON'
17570        ENDIF
17571        IWEIML=IHV
17572        GOTO5160
17573      ENDIF
17574C
17575CCCCC FOLLOWING SECTION ADDED APRIL  2013
17576C     ******************************************************
17577C     **  SET WEIBULL MODIFIED MOMENTS   <ON/OFF>         **
17578C     ******************************************************
17579C
17580      IPART1='WEIB'
17581      IPART2='MODI'
17582      IPART3='MOME'
17583      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
17584     1   IHARG(3).EQ.IPART3)THEN
17585        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE' .OR.
17586     1     IHV.EQ.'DEFA')THEN
17587          IHV='ON'
17588        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE' .OR.
17589     1         IHV.EQ.'FALS')THEN
17590          IHV='OFF'
17591        ELSE
17592          IHV='ON'
17593        ENDIF
17594        IWEIMM=IHV
17595        GOTO5160
17596      ENDIF
17597C
17598CCCCC FOLLOWING SECTION ADDED APRIL  2013
17599C     ******************************************************
17600C     **  SET WEIBULL MOMENTS   <ON/OFF>                  **
17601C     ******************************************************
17602C
17603      IPART1='WEIB'
17604      IPART2='MOME'
17605      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
17606        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE' .OR.
17607     1     IHV.EQ.'DEFA')THEN
17608          IHV='ON'
17609        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE' .OR.
17610     1         IHV.EQ.'FALS')THEN
17611          IHV='OFF'
17612        ELSE
17613          IHV='ON'
17614        ENDIF
17615        IWEIMO=IHV
17616        GOTO5160
17617      ENDIF
17618C
17619CCCCC FOLLOWING SECTION ADDED SEPTEMBER  2014
17620C     ******************************************************
17621C     **  SET WEIBULL ELEMENTAL PERCENTILES <ON/OFF>      **
17622C     ******************************************************
17623C
17624      IPART1='WEIB'
17625      IPART2='ELEM'
17626      IPART3='PERC'
17627      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
17628     1   IHARG(3).EQ.IPART3)THEN
17629        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE' .OR.
17630     1     IHV.EQ.'DEFA')THEN
17631          IHV='ON'
17632        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE' .OR.
17633     1         IHV.EQ.'FALS')THEN
17634          IHV='OFF'
17635        ELSE
17636          IHV='ON'
17637        ENDIF
17638        IWEIEP=IHV
17639        GOTO5160
17640      ENDIF
17641C
17642CCCCC FOLLOWING SECTION ADDED SEPTEMBER  2014
17643C     ******************************************************
17644C     **  SET WEIBULL L MOMENTS             <ON/OFF>      **
17645C     ******************************************************
17646C
17647      IPART1='WEIB'
17648      IPART2='L   '
17649      IPART3='MOME'
17650      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
17651     1   IHARG(3).EQ.IPART3)THEN
17652        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE' .OR.
17653     1     IHV.EQ.'DEFA')THEN
17654          IHV='ON'
17655        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE' .OR.
17656     1         IHV.EQ.'FALS')THEN
17657          IHV='OFF'
17658        ELSE
17659          IHV='ON'
17660        ENDIF
17661        IWEILM=IHV
17662        GOTO5160
17663      ENDIF
17664C
17665CCCCC FOLLOWING SECTION ADDED OCTOBER  2014
17666C     ******************************************************
17667C     **  SET GEV MAXIMUM LIKELIHOOD        <ON/OFF>      **
17668C     ******************************************************
17669C
17670      IPART1='GEV '
17671      IPART2='MAXI'
17672      IPART3='LIKE'
17673      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
17674     1   IHARG(3).EQ.IPART3)THEN
17675        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE' .OR.
17676     1     IHV.EQ.'DEFA')THEN
17677          IHV='ON'
17678        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE' .OR.
17679     1         IHV.EQ.'FALS')THEN
17680          IHV='OFF'
17681        ELSE
17682          IHV='ON'
17683        ENDIF
17684        IGEVML=IHV
17685        GOTO5160
17686      ENDIF
17687C
17688CCCCC FOLLOWING SECTION ADDED NOVEMBER   2014
17689C     ******************************************************
17690C     **  SET CLIPBOARD SKIP                <ON/OFF>      **
17691C     ******************************************************
17692C
17693      IPART1='CLIP'
17694      IPART2='SKIP'
17695      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
17696        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE')THEN
17697          IHV='ON'
17698        ELSE
17699          IHV='OFF'
17700        ENDIF
17701        ICLISK=IHV
17702        GOTO5160
17703      ENDIF
17704C
17705CCCCC FOLLOWING SECTION ADDED NOVEMBER   2014
17706C     ******************************************************
17707C     **  SET CLIPBOARD DELAY <VALUE>                     **
17708C     ******************************************************
17709C
17710      IPART1='CLIP'
17711      IPART2='DELA'
17712      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
17713        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE' .OR.
17714     1     IHV.EQ.'DEFA' .OR. NUMARG.EQ.2)THEN
17715          AV=1.0
17716        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'FALS')THEN
17717          AV=1.0
17718        ELSE
17719          AV=ARG(3)
17720        ENDIF
17721        IF(AV.LT.0.0)AV=1.0
17722        PCLIDE=AV
17723        GOTO5170
17724      ENDIF
17725C
17726CCCCC FOLLOWING SECTION ADDED NOVEMBER   2014
17727C     ******************************************************
17728C     **  SET CLIPBOARD LOOP LINES <VALUE>                **
17729C     ******************************************************
17730C
17731      IPART1='CLIP'
17732      IPART2='LOOP'
17733      IPART3='LINE'
17734      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
17735     1   IHARG(3).EQ.IPART3)THEN
17736        IF(IHV.EQ.'ON'   .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE' .OR.
17737     1     IHV.EQ.'DEFA' .OR. IHV.EQ.'OFF' .OR. IHV.EQ.'FALS' .OR.
17738     1     IHV.EQ.'NO'   .OR. NUMARG.EQ.3)THEN
17739          IV=10000
17740        ELSE
17741          IV=IARG(4)
17742        ENDIF
17743        IF(IV.LT.0)IV=10000
17744        ICLILL=IV
17745        GOTO5150
17746      ENDIF
17747C
17748CCCCC FOLLOWING SECTION ADDED NOVEMBER   2014
17749C     ******************************************************
17750C     **  SET CLIPBOARD DELAY <VALUE>                     **
17751C     ******************************************************
17752C
17753      IPART1='CLIP'
17754      IPART2='DELA'
17755      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
17756        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE' .OR.
17757     1     IHV.EQ.'DEFA' .OR. NUMARG.EQ.2)THEN
17758          AV=1.0
17759        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'FALS')THEN
17760          AV=1.0
17761        ELSE
17762          AV=ARG(3)
17763        ENDIF
17764        IF(AV.LT.0.0)AV=1.0
17765        PCLIDE=AV
17766        GOTO5170
17767      ENDIF
17768C
17769CCCCC FOLLOWING SECTION ADDED APRIL  2013
17770C     ******************************************************
17771C     **  SET SKEWNESS DEFINITION <FISHER PEARSON/        **
17772C     **               ADJUSTED FISHER PEARSON/OLD>       **
17773C     ******************************************************
17774C
17775      IPART1='SKEW'
17776      IPART2='DEFI'
17777      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
17778        IF(IHARG(3).EQ.'ADJU' .AND. IHARG(4).EQ.'FISH' .AND.
17779     1     IHARG(5).EQ.'PEAR')THEN
17780          IHV='ADFP'
17781        ELSEIF(IHARG(3).EQ.'OLD')THEN
17782          IHV='OLD'
17783        ELSE
17784          IHV='FIPE'
17785        ENDIF
17786        ISKWDF=IHV
17787        GOTO5160
17788      ENDIF
17789C
17790CCCCC FOLLOWING SECTION ADDED APRIL  2013
17791C     ******************************************************
17792C     **  SET PERCENTILE DIRECTION <LOWER/UPPER/TWO-SIDED>**
17793C     ******************************************************
17794C
17795      IPART1='PERC'
17796      IPART2='DIRE'
17797      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
17798        IF(IHARG(3).EQ.'ADJU')THEN
17799          IHV='LOWE'
17800        ELSEIF(IHARG(3).EQ.'UPPE')THEN
17801          IHV='UPPE'
17802        ELSE
17803          IHV='TWOS'
17804        ENDIF
17805        IPERDI=IHV
17806        GOTO5160
17807      ENDIF
17808C
17809CCCCC FOLLOWING SECTION ADDED MARCH  2013
17810C     ***********************************************
17811C     **  SET KENDALL TAU CRITICAL VALUES          **
17812C     **      <TABLE/NORMAL APPROXIMATION>         **
17813C     ***********************************************
17814C
17815      IPART1='KEND'
17816      IPART2='TAU '
17817      IPART3='CRIT'
17818      IPART4='VALU'
17819      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
17820     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
17821        IF(IHARG(5).EQ.'NORM')THEN
17822          IHV='NORM'
17823        ELSE
17824          IHV='TABL'
17825        ENDIF
17826        IKTATA=IHV
17827        GOTO5160
17828      ENDIF
17829C
17830CCCCC FOLLOWING SECTION ADDED MARCH  2013
17831C     ***********************************************
17832C     **  SET RANK CORRELATION CRITICAL VALUES     **
17833C     **      <TABLE/NORMAL APPROXIMATION>         **
17834C     ***********************************************
17835C
17836      IPART1='RANK'
17837      IPART2='CORR'
17838      IPART3='CRIT'
17839      IPART4='VALU'
17840      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
17841     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
17842        IF(IHARG(5).EQ.'NORM')THEN
17843          IHV='NORM'
17844        ELSE
17845          IHV='TABL'
17846        ENDIF
17847        IRCRTA=IHV
17848        GOTO5160
17849      ENDIF
17850C
17851CCCCC FOLLOWING SECTION ADDED FEBRUARY  2011
17852C     ******************************************************
17853C     **  SET LEVENE         GROUP STATISTICS <ON/OFF>    **
17854C     ******************************************************
17855C
17856      IPART1='LEVE'
17857      IPART2='GROU'
17858      IPART3='STAT'
17859      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
17860     1   IHARG(3).EQ.IPART3)THEN
17861        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE')THEN
17862          IHV='ON'
17863        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE' .OR.
17864     1         IHV.EQ.'FALS' .OR. IHV.EQ.'DEFA')THEN
17865          IHV='OFF'
17866        ELSE
17867          IHV='OFF'
17868        ENDIF
17869        ILEVGS=IHV
17870        GOTO5160
17871      ENDIF
17872C
17873CCCCC FOLLOWING SECTION ADDED FEBRUARY  2011
17874C     ******************************************************
17875C     **  SET KRUSKAL WALLIS GROUP STATISTICS <ON/OFF>    **
17876C     ******************************************************
17877C
17878      IPART1='KRUS'
17879      IPART2='WALL'
17880      IPART3='GROU'
17881      IPART4='STAT'
17882      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
17883     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
17884        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE')THEN
17885          IHV='ON'
17886        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE' .OR.
17887     1         IHV.EQ.'FALS' .OR. IHV.EQ.'DEFA')THEN
17888          IHV='OFF'
17889        ELSE
17890          IHV='OFF'
17891        ENDIF
17892        IKRUGS=IHV
17893        GOTO5160
17894      ENDIF
17895C
17896CCCCC FOLLOWING SECTION ADDED FEBRUARY  2012
17897C     *******************************************************
17898C     **  SET KRUSKAL WALLIS MULTIPLE COMPARISONS <ON/OFF> **
17899C     ********************************************************
17900C
17901      IPART1='KRUS'
17902      IPART2='WALL'
17903      IPART3='MULT'
17904      IPART4='COMP'
17905      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
17906     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
17907        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE')THEN
17908          IHV='ON'
17909        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE' .OR.
17910     1         IHV.EQ.'FALS' .OR. IHV.EQ.'DEFA')THEN
17911          IHV='OFF'
17912        ELSE
17913          IHV='OFF'
17914        ENDIF
17915        IKRUMC=IHV
17916        GOTO5160
17917      ENDIF
17918C
17919CCCCC FOLLOWING SECTION ADDED FEBRUARY  2012
17920C     *******************************************************
17921C     **  SET ISO 13528 PLOT STATISTIC <MEAN/H15/MEDIAN>   **
17922C     *******************************************************
17923C
17924      IPART1='ISO '
17925      IPART2='1352'
17926      IPART3='PLOT'
17927      IPART4='STAT'
17928      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
17929     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
17930        IF(IHARG(5).EQ.'H15')THEN
17931          IHV='H15'
17932        ELSEIF(IHARG(5).EQ.'MEDI')THEN
17933          IHV='MEDI'
17934        ELSE
17935          IHV='MEAN'
17936        ENDIF
17937        IISOME=IHV
17938        GOTO5160
17939      ENDIF
17940C
17941CCCCC FOLLOWING SECTION ADDED FEBRUARY  2012
17942C     *******************************************************
17943C     **  SET ISO 13528 PLOT <LAB AVERAGES/RESPONSE>       **
17944C     *******************************************************
17945C
17946      IPART1='ISO '
17947      IPART2='1352'
17948      IPART3='PLOT'
17949      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
17950     1   IHARG(3).EQ.IPART3)THEN
17951        IF(IHARG(4).EQ.'RESP' .OR. IHARG(4).EQ.'RAW ')THEN
17952          IHV='RESP'
17953        ELSE
17954          IHV='LAVE'
17955        ENDIF
17956        IISOLA=IHV
17957        GOTO5160
17958      ENDIF
17959C
17960CCCCC FOLLOWING SECTION ADDED FEBRUARY  2012
17961C     *******************************************************
17962C     **  SET RLP PLOT LABELS <NONE/ALL/WARNING/ACTION>    **
17963C     *******************************************************
17964C
17965      IPART1='RLP '
17966      IPART2='PLOT'
17967      IPART3='LABE'
17968      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
17969     1   IHARG(3).EQ.IPART3)THEN
17970        IF(IHARG(4).EQ.'ALL')THEN
17971          IHV='ALL'
17972        ELSEIF(IHARG(4).EQ.'ACTI')THEN
17973          IHV='ACTI'
17974        ELSEIF(IHARG(4).EQ.'WARN')THEN
17975          IHV='WARN'
17976        ELSE
17977          IHV='NONE'
17978        ENDIF
17979        IRLPLA=IHV
17980        GOTO5160
17981      ENDIF
17982C
17983CCCCC FOLLOWING SECTION ADDED APRIL  2012
17984C     ****************************************
17985C     **  SET BLOCK PLOT FILTER  <ON/OFF>   **
17986C     ****************************************
17987C
17988      IPART1='BLOC'
17989      IPART2='PLOT'
17990      IPART3='FILT'
17991      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
17992     1   IHARG(3).EQ.IPART3)THEN
17993        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE')THEN
17994          IHV='ON'
17995        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE' .OR.
17996     1         IHV.EQ.'FALS' .OR. IHV.EQ.'DEFA')THEN
17997          IHV='OFF'
17998        ELSE
17999          IHV='OFF'
18000        ENDIF
18001        IBPLFI=IHV
18002        GOTO5160
18003      ENDIF
18004C
18005CCCCC FOLLOWING SECTION ADDED APRIL  2012
18006C     ****************************************
18007C     **  SET BLOCK PLOT LABEL   <ON/OFF>   **
18008C     ****************************************
18009C
18010      IPART1='BLOC'
18011      IPART2='PLOT'
18012      IPART3='LABE'
18013      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
18014     1   IHARG(3).EQ.IPART3)THEN
18015        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE')THEN
18016          IHV='ON'
18017        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE' .OR.
18018     1         IHV.EQ.'FALS' .OR. IHV.EQ.'DEFA')THEN
18019          IHV='OFF'
18020        ELSE
18021          IHV='OFF'
18022        ENDIF
18023        IBPLLA=IHV
18024        GOTO5160
18025      ENDIF
18026C
18027CCCCC FOLLOWING SECTION ADDED DECEMBER  2012
18028C     *******************************************
18029C     **  SET BLOCK PLOT BACKGROUND <ON/OFF>   **
18030C     *******************************************
18031C
18032      IPART1='BLOC'
18033      IPART2='PLOT'
18034      IPART3='BACK'
18035      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
18036     1   IHARG(3).EQ.IPART3)THEN
18037        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE')THEN
18038          IHV='ON'
18039        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE' .OR.
18040     1         IHV.EQ.'FALS' .OR. IHV.EQ.'DEFA')THEN
18041          IHV='OFF'
18042        ELSE
18043          IHV='OFF'
18044        ENDIF
18045        IBPLBG=IHV
18046        GOTO5160
18047      ENDIF
18048C
18049CCCCC FOLLOWING SECTION ADDED APRIL  2012
18050C     ****************************************
18051C     **  SET BLOCK PLOT WIDTH   <VALUE>    **
18052C     ****************************************
18053C
18054      IPART1='BLOC'
18055      IPART2='PLOT'
18056      IPART3='WIDT'
18057      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
18058     1   IHARG(3).EQ.IPART3)THEN
18059        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'DEFA')THEN
18060          AV=CPUMIN
18061        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
18062          AV=CPUMIN
18063        ENDIF
18064        IF(AV.LE.0.0)AV=CPUMIN
18065        PBPLWI=AV
18066        GOTO5170
18067      ENDIF
18068C
18069CCCCC FOLLOWING SECTION ADDED NOVEMBER  2016
18070C     ****************************************
18071C     **  SET BLOCK PLOT JITTER  <VALUE>    **
18072C     ****************************************
18073C
18074      IPART1='BLOC'
18075      IPART2='PLOT'
18076      IPART3='JITT'
18077      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
18078     1   IHARG(3).EQ.IPART3)THEN
18079        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'DEFA')THEN
18080          AV=0.5
18081        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
18082          AV=0.0
18083        ENDIF
18084        IF(AV.LE.0.0)AV=0.0
18085        IF(AV.GT.1.0)AV=1.0
18086        PBPLJI=AV
18087        GOTO5170
18088      ENDIF
18089C
18090CCCCC FOLLOWING SECTION ADDED JULY      2017
18091C     ****************************************
18092C     **  SET POINCARE PLOT LAG  <VALUE>    **
18093C     ****************************************
18094C
18095      IPART1='POIN'
18096      IPART2='PLOT'
18097      IPART3='LAG '
18098      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
18099     1   IHARG(3).EQ.IPART3)THEN
18100        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'DEFA')THEN
18101          AV=1.0
18102        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
18103          AV=1.0
18104        ENDIF
18105        IF(AV.LE.0.5)AV=1.0
18106        PPPLLA=AV
18107        GOTO5170
18108      ENDIF
18109C
18110CCCCC FOLLOWING SECTION ADDED JULY      2017
18111C     **********************************************
18112C     **  SET NORMAL KERNEL DENSITY MIXTURE PLOT  **
18113C     **      EXPANSION FACTOR <VALUE>            **
18114C     **********************************************
18115C
18116      IPART1='NORM'
18117      IPART2='KERN'
18118      IPART3='DENS'
18119      IPART4='MIXT'
18120      IPART5='PLOT'
18121      IPART6='EXPA'
18122      IPART7='FACT'
18123      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
18124     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
18125     1   IHARG(5).EQ.IPART5.AND.IHARG(6).EQ.IPART6.AND.
18126     1   IHARG(7).EQ.IPART7)THEN
18127        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'DEFA')THEN
18128          AV=1.0
18129        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
18130          AV=1.0
18131        ENDIF
18132        IF(AV.LE.0.01)AV=1.0
18133        PNKDEF=AV
18134        GOTO5170
18135      ENDIF
18136C
18137CCCCC FOLLOWING SECTION ADDED FEBRUARY      2019
18138C     **********************************************
18139C     **  SET CARRIAGE RETURN GAP <VALUE>         **
18140C     **********************************************
18141C
18142      IPART1='CARR'
18143      IPART2='RETU'
18144      IPART3='GAP '
18145      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
18146     1   IHARG(3).EQ.IPART3)THEN
18147        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'DEFA')THEN
18148          AV=0.1
18149        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
18150          AV=0.1
18151        ENDIF
18152        IF(AV.LE.-5.0)AV=-5.0
18153        IF(AV.GE.5.0)AV=5.0
18154        PWRTGA=AV
18155        GOTO5170
18156      ENDIF
18157C
18158CCCCC FOLLOWING SECTION ADDED OCTOBER       2019
18159C     **********************************************
18160C     **  SET GRUBB STANDARD DEVIATION <VALUE>    **
18161C     **********************************************
18162C
18163      IPART1='GRUB'
18164      IPART2='STAN'
18165      IPART3='DEVI'
18166      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
18167     1   IHARG(3).EQ.IPART3)THEN
18168        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'DEFA')THEN
18169          AV=CPUMIN
18170        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
18171          AV=CPUMIN
18172        ENDIF
18173        PGRUSD=AV
18174        GOTO5170
18175      ENDIF
18176      IPART2='SD  '
18177      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
18178        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'DEFA')THEN
18179          AV=CPUMIN
18180        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
18181          AV=CPUMIN
18182        ENDIF
18183        PGRUSD=AV
18184        GOTO5170
18185      ENDIF
18186C
18187      IPART1='GRUB'
18188      IPART2='TEST'
18189      IPART3='STAN'
18190      IPART4='DEVI'
18191      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
18192     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
18193        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'DEFA')THEN
18194          AV=CPUMIN
18195        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
18196          AV=CPUMIN
18197        ENDIF
18198        PGRUSD=AV
18199        GOTO5170
18200      ENDIF
18201      IPART3='SD  '
18202      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
18203     1   IHARG(3).EQ.IPART3)THEN
18204        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'DEFA')THEN
18205          AV=CPUMIN
18206        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
18207          AV=CPUMIN
18208        ENDIF
18209        PGRUSD=AV
18210        GOTO5170
18211      ENDIF
18212C
18213CCCCC FOLLOWING SECTION ADDED OCTOBER       2019
18214C     **********************************************
18215C     **  SET GRUBB DEGREES OF FREEDOM <VALUE>    **
18216C     **********************************************
18217C
18218      IPART1='GRUB'
18219      IPART2='DEGR'
18220      IPART3='OF  '
18221      IPART4='FREE'
18222      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
18223     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
18224        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'DEFA')THEN
18225          AV=CPUMIN
18226        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
18227          AV=CPUMIN
18228        ENDIF
18229        PGRUDF=AV
18230        GOTO5170
18231      ENDIF
18232      IPART2='DF  '
18233      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
18234        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'DEFA')THEN
18235          AV=CPUMIN
18236        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
18237          AV=CPUMIN
18238        ENDIF
18239        PGRUDF=AV
18240        GOTO5170
18241      ENDIF
18242C
18243      IPART1='GRUB'
18244      IPART2='TEST'
18245      IPART3='DEGR'
18246      IPART4='OF  '
18247      IPART5='FREE'
18248      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
18249     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
18250     1   IHARG(5).EQ.IPART5)THEN
18251        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'DEFA')THEN
18252          AV=CPUMIN
18253        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
18254          AV=CPUMIN
18255        ENDIF
18256        PGRUDF=AV
18257        GOTO5170
18258      ENDIF
18259      IPART3='DF  '
18260      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
18261     1   IHARG(3).EQ.IPART3)THEN
18262        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'DEFA')THEN
18263          AV=CPUMIN
18264        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
18265          AV=CPUMIN
18266        ENDIF
18267        PGRUDF=AV
18268        GOTO5170
18269      ENDIF
18270C
18271CCCCC FOLLOWING SECTION ADDED OCTOBER 2019
18272C     *****************************************************
18273C     **  SET GRUBB TEST CRITIVAL VALUES                 **
18274C     **      <SIMULATION/FORMULA/ASTM>                  **
18275C     *****************************************************
18276C
18277      IPART1='GRUB'
18278      IPART2='TEST'
18279      IPART3='CRIT'
18280      IPART4='VALU'
18281      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
18282     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4)THEN
18283        IF(IHARG(5).EQ.'ASTM' .OR. IHARG(5).EQ.'E178')THEN
18284          IGRUTA='ASTM'
18285        ELSEIF(IHARG(5).EQ.'SIMU')THEN
18286          IGRUTA='SIMU'
18287        ELSEIF(IHARG(5).EQ.'FORM')THEN
18288          IGRUTA='FORM'
18289        ELSE
18290          IGRUTA='FORM'
18291        ENDIF
18292        IHV=IGRUTA
18293        GOTO5160
18294      ENDIF
18295C
18296CCCCC FOLLOWING SECTION ADDED APRIL         2019
18297C     **************************************************
18298C     **  SET AUXILLARY FILES DECIMAL POINTS <VALUE>  **
18299C     **************************************************
18300C
18301      IPART1='AUXI'
18302      IPART2='FILE'
18303      IPART3='DECI'
18304      IPART4='POIN'
18305      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
18306     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
18307        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'DEFA')THEN
18308          IV=7
18309        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
18310          IV=7
18311        ELSEIF(NUMARG.LE.4)THEN
18312          IV=7
18313        ENDIF
18314        IF(IV.LE.0)IV=7
18315        IF(IV.GE.14)IV=14
18316        IAUXDP=IV
18317        GOTO5150
18318      ENDIF
18319C
18320CCCCC FOLLOWING SECTION ADDED OCTOBER       2019
18321C     **************************************************
18322C     **  SET HEAD LINES <VALUE>                      **
18323C     **************************************************
18324C
18325      IPART1='HEAD'
18326      IPART2='LINE'
18327      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
18328        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'DEFA')THEN
18329          IV=10
18330        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
18331          IV=10
18332        ELSEIF(NUMARG.LE.2)THEN
18333          IV=10
18334        ENDIF
18335        IF(IV.LE.0)IV=10
18336        IHEALI=IV
18337        GOTO5150
18338      ENDIF
18339C
18340CCCCC FOLLOWING SECTION ADDED OCTOBER       2019
18341C     **************************************************
18342C     **  SET TAIL LINES <VALUE>                      **
18343C     **************************************************
18344C
18345      IPART1='TAIL'
18346      IPART2='LINE'
18347      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
18348        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'DEFA')THEN
18349          IV=10
18350        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
18351          IV=10
18352        ELSEIF(NUMARG.LE.2)THEN
18353          IV=10
18354        ENDIF
18355        IF(IV.LE.0)IV=10
18356        ITAILI=IV
18357        GOTO5150
18358      ENDIF
18359C
18360CCCCC FOLLOWING SECTION ADDED NOVEMBER      2019
18361C     **************************************************
18362C     **  SET BROWSER HEIGHT <VALUE>                  **
18363C     **************************************************
18364C
18365      IPART1='BROW'
18366      IPART2='HEIG'
18367      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
18368        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'DEFA')THEN
18369          IV=0
18370        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
18371          IV=0
18372        ELSEIF(NUMARG.LE.2)THEN
18373          IV=0
18374        ENDIF
18375        IF(IV.LE.100)IV=0
18376        IF(IV.GT.2000)IV=0
18377        IBROHE=IV
18378        GOTO5150
18379      ENDIF
18380C
18381CCCCC FOLLOWING SECTION ADDED NOVEMBER      2019
18382C     **************************************************
18383C     **  SET BROWSER WIDTH  <VALUE>                  **
18384C     **************************************************
18385C
18386      IPART1='BROW'
18387      IPART2='WIDT'
18388      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
18389        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'DEFA')THEN
18390          IV=0
18391        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
18392          IV=0
18393        ELSEIF(NUMARG.LE.2)THEN
18394          IV=0
18395        ENDIF
18396        IF(IV.LE.100)IV=0
18397        IF(IV.GT.2000)IV=0
18398        IBROWI=IV
18399        GOTO5150
18400      ENDIF
18401C
18402CCCCC FOLLOWING SECTION ADDED NOVEMBER      2019
18403C     **************************************************
18404C     **  SET RANLUX LEVEL <1/2/3/4>                  **
18405C     **************************************************
18406C
18407      IPART1='RANL'
18408      IPART2='LEVE'
18409      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
18410        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'DEFA')THEN
18411          IV=3
18412        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
18413          IV=3
18414        ELSEIF(NUMARG.LE.2)THEN
18415          IV=3
18416        ENDIF
18417        IF(IV.LE.0 .OR. IV.GE.5)IV=3
18418        IRLXLE=IV
18419        GOTO5150
18420      ENDIF
18421C
18422CCCCC FOLLOWING SECTION ADDED DECEMBER  2012
18423C     **********************************************************
18424C     **  SET TOLERANCE  LIMITS DEGREES OF FREEDOM   <VALUE>  **
18425C     **********************************************************
18426C
18427      IPART1='TOLE'
18428      IPART2='LIMI'
18429      IPART3='DEGR'
18430      IPART4='OF  '
18431      IPART5='FREE'
18432      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
18433     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
18434     1   IHARG(5).EQ.IPART5)THEN
18435        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'DEFA')THEN
18436          AV=CPUMIN
18437        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
18438          AV=CPUMIN
18439        ENDIF
18440        IF(AV.LE.0.0)AV=CPUMIN
18441        PTOLDF=AV
18442        GOTO5170
18443      ENDIF
18444C
18445CCCCC FOLLOWING SECTION ADDED APRIL  2012
18446C     ****************************************
18447C     **  SET CAPTURE FLUSH ERASE  <ON/OFF> **
18448C     ****************************************
18449C
18450      IPART1='CAPT'
18451      IPART2='FLUS'
18452      IPART3='ERAS'
18453      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
18454     1   IHARG(3).EQ.IPART3)THEN
18455        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE')THEN
18456          IHV='ON'
18457        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE' .OR.
18458     1         IHV.EQ.'FALS')THEN
18459          IHV='OFF'
18460        ELSE
18461          IHV='ON'
18462        ENDIF
18463        ICAPFE=IHV
18464        GOTO5160
18465      ENDIF
18466C
18467CCCCC FOLLOWING SECTION ADDED APRIL     2011
18468C     ******************************************************
18469C     **  SET T TEST VARIANCE <EQUAL/UNEQUAL/BOTH>        **
18470C     ******************************************************
18471C
18472      IPART1='T   '
18473      IPART2='TEST'
18474      IPART3='VARI'
18475      IPART4='TTES'
18476      IF(
18477     1  (IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
18478     1   IHARG(3).EQ.IPART3) .OR.
18479     1  (IHARG(1).EQ.IPART4.AND.IHARG(2).EQ.IPART3))THEN
18480        IF(IHV.EQ.'EQUA')THEN
18481          IHV='EQUA'
18482        ELSEIF(IHV.EQ.'BOTH')THEN
18483          IHV='BOTH'
18484        ELSE
18485          IHV='UNEQ'
18486        ENDIF
18487        ITTEVA=IHV
18488        GOTO5160
18489      ENDIF
18490C
18491CCCCC FOLLOWING SECTION ADDED JULY  2010
18492C     *************************************************************
18493C     **  SET DISTRIBUTIONAL FIT TYPE <ML/MOMENT/MODFIED MOMENT/ **
18494C     **      LMOMENT/ELEMENTAL PERCENTILE/ORDER STATISTICS/     **
18495C     **      WEIGHTEED ORDER STATISTICS/BIAS CORRECTED/         **
18496C     **      PERCENTILE/WYCOFF BAIN ENGLEHARDT/PROFILE/YE>      **
18497C     *************************************************************
18498C
18499      IPART1='DIST'
18500      IPART2='FIT '
18501      IPART3='TYPE'
18502      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
18503     1   IHARG(3).EQ.IPART3)THEN
18504        IF(IHARG(4).EQ.'MOME')THEN
18505          IHV='MOME'
18506        ELSEIF(IHARG(4).EQ.'LMOM')THEN
18507          IHV='LMOM'
18508        ELSEIF(IHARG(4).EQ.'L   ' .AND. IHARG(5).EQ.'MOME')THEN
18509          IHV='LMOM'
18510        ELSEIF(IHARG(4).EQ.'MODI' .AND. IHARG(5).EQ.'MOME')THEN
18511          IHV='MMOM'
18512        ELSEIF(IHARG(4).EQ.'ORDE' .AND. IHARG(5).EQ.'STAT')THEN
18513          IHV='OS'
18514        ELSEIF(IHARG(4).EQ.'OS')THEN
18515          IHV='OS'
18516        ELSEIF(IHARG(4).EQ.'WEIG' .AND. IHARG(5).EQ.'ORDE' .AND.
18517     1         IHARG(6).EQ.'STAT')THEN
18518          IHV='WOS'
18519        ELSEIF(IHARG(4).EQ.'WOS')THEN
18520          IHV='WOS'
18521        ELSEIF(IHARG(4).EQ.'ML  ')THEN
18522          IHV='ML  '
18523        ELSEIF(IHARG(4).EQ.'MAXI' .AND. IHARG(5).EQ.'LIKE')THEN
18524          IHV='ML  '
18525        ELSEIF(IHARG(4).EQ.'BIAS' .AND. IHARG(5).EQ.'CORR')THEN
18526          IHV='BC'
18527        ELSEIF(IHARG(4).EQ.'BC')THEN
18528          IHV='BC'
18529        ELSEIF(IHARG(4).EQ.'ELEM' .AND. IHARG(5).EQ.'PERC')THEN
18530          IHV='EPER'
18531        ELSEIF(IHARG(4).EQ.'EP')THEN
18532          IHV='EPER'
18533        ELSEIF(IHARG(4).EQ.'PERC')THEN
18534          IHV='PERC'
18535        ELSEIF(IHARG(4).EQ.'WYCO' .AND. IHARG(5).EQ.'BAIN' .AND.
18536     1         IHARG(6).EQ.'ENGL')THEN
18537          IHV='WBE'
18538        ELSEIF(IHARG(4).EQ.'WBE')THEN
18539          IHV='WBE'
18540        ELSEIF(IHARG(4).EQ.'PROF')THEN
18541          IHV='PROF'
18542        ELSEIF(IHARG(4).EQ.'YE' .OR. IHARG(4).EQ.'CHEN')THEN
18543          IF(IHARG(5).EQ.'BIAS' .AND. IHARG(6).EQ.'CORR')THEN
18544            IHV='YEBC'
18545          ELSE
18546            IHV='YE  '
18547          ENDIF
18548        ELSE
18549          IHV='ML  '
18550        ENDIF
18551        IDFTTY=IHV
18552        GOTO5160
18553      ENDIF
18554C
18555CCCCC FOLLOWING SECTION ADDED SEPTEMBER 2004.
18556C     *****************************************************************
18557C     **  SET AVERAGE SHIFTED HISTOGRAM WEIGHT <TRIANGULAR/BIWEIGHT> **
18558C     **  SET ASH WEIGHT <TRIANGULAR/BIWEIGHT>                       **
18559C     *****************************************************************
18560C
18561      IPART1='AVER'
18562      IPART2='SHIF'
18563      IPART3='HIST'
18564      IPART4='WEIG'
18565      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
18566     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
18567        IF(IHARG(5).EQ.'BIWE')THEN
18568          IHV='BIWE'
18569        ELSE
18570          IHV='TRIA'
18571        ENDIF
18572        IASHWT=IHV
18573        GOTO5160
18574      ENDIF
18575C
18576      IPART1='ASH '
18577      IPART2='WEIG'
18578      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
18579        IF(IHARG(3).EQ.'BIWE')THEN
18580          IHV='BIWE'
18581        ELSE
18582          IHV='TRIA'
18583        ENDIF
18584        IASHWT=IHV
18585        GOTO5160
18586      ENDIF
18587C
18588CCCCC FOLLOWING SECTION ADDED MAY 2005.
18589C     *************************************************************
18590C     **  SET GRUBBS ONE SIDED           <ON/OFF>                **
18591C     *************************************************************
18592C
18593      IPART1='GRUB'
18594      IPART2='ONE '
18595      IPART3='SIDE'
18596      IPART4='1   '
18597      IF(IHARG(1).EQ.IPART1.AND.
18598     1   (IHARG(2).EQ.IPART2.OR.IHARG(2).EQ.IPART4).AND.
18599     1   IHARG(3).EQ.IPART3)THEN
18600        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES')THEN
18601          IHV='ON'
18602        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
18603          IHV='OFF'
18604        ELSE
18605          IHV='OFF'
18606        ENDIF
18607        IGRU1S=IHV
18608        GOTO5160
18609      ENDIF
18610C
18611CCCCC FOLLOWING SECTION ADDED OCTOBER 2004.
18612C     *************************************************************
18613C     **  SET EXPONENTIAL BIAS CORRECTED <ON/OFF>                **
18614C     *************************************************************
18615C
18616      IPART1='EXPO'
18617      IPART2='BIAS'
18618      IPART3='CORR'
18619      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
18620     1   IHARG(3).EQ.IPART3)THEN
18621        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES')THEN
18622          IHV='ON'
18623        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
18624          IHV='OFF'
18625        ELSE
18626          IHV='OFF'
18627        ENDIF
18628        IEXPBC=IHV
18629        GOTO5160
18630      ENDIF
18631C
18632CCCCC FOLLOWING SECTION ADDED NOVEMBER 2004.
18633C     *************************************************************
18634C     **  SET WEIBULL     BIAS CORRECTED <ON/OFF>                **
18635C     *************************************************************
18636C
18637      IPART1='WEIB'
18638      IPART2='BIAS'
18639      IPART3='CORR'
18640      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
18641     1   IHARG(3).EQ.IPART3)THEN
18642        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES')THEN
18643          IHV='ON'
18644        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
18645          IHV='OFF'
18646        ELSE
18647          IHV='OFF'
18648        ENDIF
18649        IWEIBC=IHV
18650        GOTO5160
18651      ENDIF
18652C
18653CCCCC FOLLOWING SECTION ADDED MAY 2005.
18654C     *************************************************************
18655C     **  SET FRECHET     BIAS CORRECTED <ON/OFF>                **
18656C     *************************************************************
18657C
18658      IPART1='FREC'
18659      IPART2='BIAS'
18660      IPART3='CORR'
18661      IPART4='EV2 '
18662      IF((IHARG(1).EQ.IPART1.OR.IHARG(1).EQ.IPART5).AND.
18663     1   IHARG(2).EQ.IPART2.AND.IHARG(3).EQ.IPART3)THEN
18664        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES')THEN
18665          IHV='ON'
18666        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
18667          IHV='OFF'
18668        ELSE
18669          IHV='OFF'
18670        ENDIF
18671        IFREBC=IHV
18672        GOTO5160
18673      ENDIF
18674C
18675CCCCC FOLLOWING SECTION ADDED NOVEMBER 2004.
18676C     *************************************************************
18677C     **  SET GUMBEL      BIAS CORRECTED <ON/OFF>                **
18678C     *************************************************************
18679C
18680      IPART1='GUMB'
18681      IPART2='BIAS'
18682      IPART3='CORR'
18683      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
18684     1   IHARG(3).EQ.IPART3)THEN
18685        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES')THEN
18686          IHV='ON'
18687        ELSEIF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'NONE')THEN
18688          IHV='OFF'
18689        ELSE
18690          IHV='OFF'
18691        ENDIF
18692        IGUMBC=IHV
18693        GOTO5160
18694      ENDIF
18695C
18696CCCCC FOLLOWING SECTION ADDED NOVEMBER 2004.
18697C     *************************************************************
18698C     **  SET MATRIX CORRELATION DIRECTION <COLUMN/ROW/DEFAULT>  **
18699C     *************************************************************
18700C
18701      IPART1='MATR'
18702      IPART2='CORR'
18703      IPART3='DIRE'
18704      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
18705     1   IHARG(3).EQ.IPART3)THEN
18706        IF(IHV.EQ.'ROW ')THEN
18707          IHV='ROW '
18708        ELSE
18709          IHV='COLU'
18710        ENDIF
18711        ICORDI=IHV
18712        GOTO5160
18713      ENDIF
18714C
18715CCCCC FOLLOWING SECTION ADDED NOVEMBER 2004.
18716C     *************************************************************
18717C     **  SET MATRIX COVARIANCE  DIRECTION <COLUMN/ROW/DEFAULT>  **
18718C     *************************************************************
18719C
18720      IPART1='MATR'
18721      IPART2='COVA'
18722      IPART3='DIRE'
18723      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
18724     1   IHARG(3).EQ.IPART3)THEN
18725        IF(IHV.EQ.'ROW ')THEN
18726          IHV='ROW '
18727        ELSE
18728          IHV='COLU'
18729        ENDIF
18730        ICOVDI=IHV
18731        GOTO5160
18732      ENDIF
18733C
18734CCCCC FOLLOWING SECTION ADDED MAY 2008.
18735C     *************************************************************
18736C     **  SET GUI FEEDBACK <ON/OFF>                              **
18737C     *************************************************************
18738C
18739      IPART1='GUI '
18740      IPART2='FEED'
18741      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2)THEN
18742        IGUIFB='ON'
18743        IF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'FALS')THEN
18744          IGUIFB='OFF'
18745        ENDIF
18746        GOTO5160
18747      ENDIF
18748C
18749CCCCC FOLLOWING SECTION ADDED DECEMBER 2004.
18750C     *************************************************************
18751C     **  SET GUI <ON/OFF>                                       **
18752C     *************************************************************
18753C
18754      IPART1='GUI '
18755      IPART2='    '
18756      IF(IHARG(1).EQ.IPART1)THEN
18757        IGUIFL='OFF'
18758        IF(IHV.EQ.'ON' .OR. IHV.EQ.'YES' .OR. IHV.EQ.'TRUE')THEN
18759          IGUIFL='ON'
18760        ENDIF
18761        GOTO5160
18762      ENDIF
18763C
18764CCCCC FOLLOWING SECTION ADDED JULY 2009.
18765C     *************************************************************
18766C     **  SET PROMPT ADVANCE <ON/OFF>                            **
18767C     *************************************************************
18768C
18769      IPART1='PROM'
18770      IPART2='ADVA'
18771      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2)THEN
18772        IPROAD='ON'
18773        IF(IHV.EQ.'OFF' .OR. IHV.EQ.'NO' .OR. IHV.EQ.'FALS')THEN
18774          IPROAD='OFF'
18775        ENDIF
18776        GOTO5160
18777      ENDIF
18778C
18779CCCCC FOLLOWING SECTION ADDED JUNE 2004.
18780C     *************************************************************
18781C     **  SET DEFAULT POSTSCRIPT COLOR <ON/OFF>                  **
18782C     **  SET POSTSCRIPT DEFAULT COLOR <ON/OFF>                  **
18783C     **  SET POSTSCRIPT COLOR DEFAULT <ON/OFF>                  **
18784C     *************************************************************
18785C
18786      IPART1='DEFA'
18787      IPART2='POST'
18788      IPART3='COLO'
18789      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
18790     1   IHARG(3).EQ.IPART3)THEN
18791        IF(IHARG(3).EQ.'OFF' .OR. IHARG(3).EQ.'NO')THEN
18792          IHV='OFF'
18793        ELSE
18794          IHV='ON'
18795        ENDIF
18796        IPSTDC=IHV
18797        GOTO5160
18798      ENDIF
18799C
18800      IPART1='POST'
18801      IPART2='DEFA'
18802      IPART3='COLO'
18803      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
18804     1   IHARG(3).EQ.IPART3)THEN
18805        IF(IHARG(3).EQ.'OFF' .OR. IHARG(3).EQ.'NO')THEN
18806          IHV='OFF'
18807        ELSE
18808          IHV='ON'
18809        ENDIF
18810        IPSTDC=IHV
18811        GOTO5160
18812      ENDIF
18813C
18814      IPART1='POST'
18815      IPART2='COLO'
18816      IPART3='DEFA'
18817      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
18818     1   IHARG(3).EQ.IPART3)THEN
18819        IF(IHARG(3).EQ.'OFF' .OR. IHARG(3).EQ.'NO')THEN
18820          IHV='OFF'
18821        ELSE
18822          IHV='ON'
18823        ENDIF
18824        IPSTDC=IHV
18825        GOTO5160
18826      ENDIF
18827C
18828CCCCC FOLLOWING SECTION ADDED MARCH 2002.
18829C     ****************************************************************
18830C     **  SET 4-PLOT MLTIPLOT  <ON/OFF>                             **
18831C     ****************************************************************
18832C
18833      IPART1='4   '
18834      IPART2='PLOT'
18835      IPART3='MULT'
18836      IF(IHARG(1).EQ.IPART1.AND.
18837     1   IHARG(2).EQ.IPART2.AND.IHARG(3).EQ.IPART3)THEN
18838        I4PLMC=IHV
18839        IF(I4PLMC.EQ.'ON  '.OR.I4PLMC.EQ.'YES')THEN
18840          I4PLMC='ON'
18841        ELSEIF(I4PLMC.EQ.'OFF '.OR.I4PLMC.EQ.'NO')THEN
18842          I4PLMC='OFF'
18843        ELSE
18844          I4PLMC='OFF'
18845        ENDIF
18846        IHV=I4PLMC
18847        GOTO5160
18848      ENDIF
18849C
18850      IPART1='4PLO'
18851      IPART2='MULT'
18852      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
18853        I4PLMC=IHV
18854        IF(I4PLMC.EQ.'ON  '.OR.I4PLMC.EQ.'YES')THEN
18855          I4PLMC='ON'
18856        ELSEIF(I4PLMC.EQ.'OFF '.OR.I4PLMC.EQ.'NO')THEN
18857          I4PLMC='OFF'
18858        ELSE
18859          I4PLMC='OFF'
18860        ENDIF
18861        IHV=I4PLMC
18862        GOTO5160
18863      ENDIF
18864C
18865CCCCC FOLLOWING SECTION ADDED OCTOBER 2006
18866C     ****************************************************************
18867C     **  SET 4PLOT DISTRIBUTION                                    **
18868C     ****************************************************************
18869C
18870      IPART1='4PLO'
18871      IPART2='DIST'
18872      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
18873        IF(IHARG(3).EQ.'EXPO')THEN
18874          I4PLDI='EXPO'
18875        ELSE
18876          I4PLDI='NORM'
18877        ENDIF
18878        IHV=I4PLDI
18879        GOTO5160
18880      ENDIF
18881C
18882      IPART1='4   '
18883      IPART2='PLOT'
18884      IPART3='DIST'
18885      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
18886     1   IHARG(3).EQ.IPART3)THEN
18887        IF(IHARG(4).EQ.'EXPO')THEN
18888          I4PLDI='EXPO'
18889        ELSE
18890          I4PLDI='NORM'
18891        ENDIF
18892        IHV=I4PLDI
18893        GOTO5160
18894      ENDIF
18895C
18896CCCCC FOLLOWING SECTION ADDED MARCH 2002.
18897C     ****************************************************************
18898C     **  SET 6-PLOT MULTIPLOT  <ON/OFF>                            **
18899C     ****************************************************************
18900C
18901      IPART1='6   '
18902      IPART2='PLOT'
18903      IPART3='MULT'
18904      IF(IHARG(1).EQ.IPART1.AND.
18905     1   IHARG(2).EQ.IPART2.AND.IHARG(2).EQ.IPART3)THEN
18906        I6PLMC=IHV
18907        IF(I6PLMC.EQ.'ON  '.OR.I6PLMC.EQ.'YES')THEN
18908          I6PLMC='ON'
18909        ELSEIF(I6PLMC.EQ.'OFF '.OR.I6PLMC.EQ.'NO')THEN
18910          I6PLMC='OFF'
18911        ELSE
18912          I6PLMC='OFF'
18913        ENDIF
18914        IHV=I6PLMC
18915        GOTO5160
18916      ENDIF
18917C
18918      IPART1='6PLO'
18919      IPART2='MULT'
18920      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
18921        I6PLMC=IHV
18922        IF(I6PLMC.EQ.'ON  '.OR.I6PLMC.EQ.'YES')THEN
18923          I6PLMC='ON'
18924        ELSEIF(I6PLMC.EQ.'OFF '.OR.I6PLMC.EQ.'NO')THEN
18925          I6PLMC='OFF'
18926        ELSE
18927          I6PLMC='OFF'
18928        ENDIF
18929        IHV=I6PLMC
18930        GOTO5160
18931      ENDIF
18932C
18933CCCCC FOLLOWING SECTION ADDED MARCH 2002.
18934C     ****************************************************************
18935C     **  SET RANDOM NUMBER GENERATOR <FIBONACCI/LINEAR CONGRUENTIAL**
18936C     **      /MULTIPLICATIVE CONGRUENTIAL/GFSR/GFS2/183/GENZ       **
18937C     **      /R250/RANLUX (LUXURY)/FIBONACCI-CONGRUENTIAL          **
18938C     **      /MERSENNE TWISTER/                                    **
18939C     ****************************************************************
18940C
18941      IPART1='RAND'
18942      IPART2='NUMB'
18943      IPART3='GENE'
18944      IPART4=IHARG(4)
18945      IPART5=IHARG(5)
18946      IF(IHARG(1).EQ.IPART1.AND.
18947     1   IHARG(2).EQ.IPART2.AND.IHARG(3).EQ.IPART3)THEN
18948        IRANAL=IHARG(4)
18949        IF(IPART4.EQ.'FIBO' .AND. IPART5.EQ.'CONG'.OR.
18950     1    IPART4.EQ.'11')THEN
18951          IRANAL='FIBC'
18952        ELSEIF(IPART4.EQ.'DEFA')THEN
18953          IRANAL='FIBC'
18954        ELSEIF(IPART4.EQ.'MERS' .AND. IPART5.EQ.'TWIS'.OR.
18955     1    IPART4.EQ.'10')THEN
18956          IRANAL='MERT'
18957        ELSEIF(IRANAL.EQ.'RUNI'.OR.IRANAL.EQ.'FULL'.OR.
18958     1    IRANAL.EQ.'LINE'.OR.IRANAL.EQ.'2')THEN
18959          IRANAL='LINE'
18960        ELSEIF(IRANAL.EQ.'BLUE'.OR.IRANAL.EQ.'KAHA'.OR.
18961     1         IRANAL.EQ.'1'.OR.IRANAL.EQ.'FIBO'.OR.
18962     1         IRANAL.EQ.'DATA'.OR.IRANAL.EQ.'1'.OR.
18963     1         IRANAL.EQ.'MARS'.OR.IRANAL.EQ.'DEFA')THEN
18964          IRANAL='FIBO'
18965        ELSEIF(IRANAL.EQ.'MULT'.OR.IRANAL.EQ.'599'.OR.
18966     1         IRANAL.EQ.'3')THEN
18967          IRANAL='MULT'
18968        ELSEIF(IRANAL.EQ.'GFSR'.OR.IRANAL.EQ.'LEWI'.OR.
18969     1         IRANAL.EQ.'PAYN'.OR.IRANAL.EQ.'4')THEN
18970          IRANAL='GFSR'
18971        ELSEIF(IRANAL.EQ.'GFS2'.OR.IRANAL.EQ.'FUSH'.OR.
18972     1         IRANAL.EQ.'TEZU'.OR.IRANAL.EQ.'5')THEN
18973          IRANAL='GFS2'
18974        ELSEIF(IRANAL.EQ.'APPL'.OR.IRANAL.EQ.'AS18'.OR.
18975     1         IRANAL.EQ.'183 '.OR.IRANAL.EQ.'6')THEN
18976          IRANAL='183 '
18977        ELSEIF(IRANAL.EQ.'GENZ'.OR.IRANAL.EQ.'LECU'.OR.
18978     1         IRANAL.EQ.'7')THEN
18979          IRANAL='GENZ'
18980        ELSEIF(IRANAL.EQ.'R250'.OR.IRANAL.EQ.'RAN2'.OR.
18981     1         IRANAL.EQ.'8')THEN
18982          IRANAL='R250'
18983        ELSEIF(IRANAL.EQ.'RANL'.OR.IRANAL.EQ.'LUXU'.OR.
18984     1         IRANAL.EQ.'9')THEN
18985          IRANAL='LUXU'
18986        ELSE
18987          IRANAL='FIBC'
18988        ENDIF
18989        IHV=IRANAL
18990        GOTO5160
18991      ENDIF
18992C
18993CCCCC FOLLOWING SECTION ADDED JUNE 2002
18994C     ****************************************************************
18995C     **  SET NUMBER OF CP  <VAL1>                                  **
18996C     ****************************************************************
18997C
18998      IPART1='NUMB'
18999      IPART2='OF  '
19000      IPART3='CP  '
19001      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
19002     1   IHARG(3).EQ.IPART3)THEN
19003        INUMCP=IARG(4)
19004        IF(INUMCP.LE.2)INUMCP=2
19005        IV=INUMCP
19006        GOTO5150
19007      ENDIF
19008C
19009CCCCC FOLLOWING SECTION ADDED JUNE 2002
19010C     ****************************************************************
19011C     **  SET CAPTURE LINES <VAL1> .... <VAL5>                      **
19012C     ****************************************************************
19013C
19014      IPART1='CAPT'
19015      IPART2='LINE'
19016      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
19017        IF(NUMARG.GT.2)THEN
19018          DO3010I=3,MIN(NUMARG,2+MAXCLI)
19019            ICAPLI(I-2)=IARG(I)
19020 3010     CONTINUE
19021        ELSE
19022          DO3020I=1,MAXCLI
19023            ICAPLI(I)=25
19024 3020     CONTINUE
19025        ENDIF
19026        IV=ICAPLI(1)
19027        GOTO5150
19028      ENDIF
19029C
19030CCCCC FOLLOWING SECTION ADDED JUNE 2002
19031C     ****************************************************************
19032C     **  SET CAPTURE NUMBER <ON/OFF>                               **
19033C     ****************************************************************
19034C
19035      IPART1='CAPT'
19036      IPART2='NUMB'
19037      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
19038        ICAPNM=IHV
19039        IF(ICAPNM.EQ.'YES'.OR.ICAPNM.EQ.'TRUE')ICAPNM='ON'
19040        IF(ICAPNM.EQ.'NO'.OR.ICAPNM.EQ.'FALS'.OR.ICAPNM.EQ.'DEFA')
19041     1     ICAPNM='OFF'
19042        IHV=ICAPNM
19043        GOTO5160
19044      ENDIF
19045C
19046CCCCC FOLLOWING SECTION ADDED JUNE 2002
19047C     ****************************************************************
19048C     **  SET CAPTURE BOX    <ON/OFF>                               **
19049C     ****************************************************************
19050C
19051      IPART1='CAPT'
19052      IPART2='BOX '
19053      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
19054        ICAPBX=IHV
19055        IF(ICAPBX.EQ.'YES'.OR.ICAPNM.EQ.'TRUE')ICAPNM='ON'
19056        IF(ICAPBX.EQ.'NO'.OR.ICAPNM.EQ.'FALS'.OR.ICAPNM.EQ.'DEFA')
19057     1     ICAPBX='OFF'
19058        IHV=ICAPBX
19059        GOTO5160
19060      ENDIF
19061C
19062CCCCC FOLLOWING SECTION ADDED JULY 2002
19063C     ****************************************************************
19064C     **  SET QUANTILE METHOD <ORDER/HERRELL-DAVIS/R8>              **
19065C     ****************************************************************
19066C
19067      IPART1='QUAN'
19068      IPART2='METH'
19069      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
19070        IF(IHARG(3).EQ.'HD' .OR. IHARG(3).EQ.'HERR' .OR.
19071     1     IHARG(3).EQ.'DAVI')THEN
19072          IQUAME='HD'
19073        ELSEIF(IHARG(3).EQ.'H' .AND. IHARG(4).EQ.'D')THEN
19074          IQUAME='HD'
19075        ELSEIF(IHARG(3).EQ.'R8')THEN
19076          IQUAME='R8'
19077        ELSEIF(IHARG(3).EQ.'R7')THEN
19078          IQUAME='R7'
19079        ELSEIF(IHARG(3).EQ.'R6')THEN
19080          IQUAME='R6'
19081        ELSEIF(IHARG(3).EQ.'AVER')THEN
19082          IQUAME='AVER'
19083        ELSE
19084          IQUAME='ORDE'
19085        ENDIF
19086        IHV=IQUAME
19087        GOTO5160
19088      ENDIF
19089C
19090CCCCC FOLLOWING SECTION ADDED JULY 2002
19091C     ****************************************************************
19092C     **  SET QUANTILE STANDARD ERROR METHOD                        **
19093C     **      <MARITZ-JARRET/KERNEL DENSITY>                        **
19094C     ****************************************************************
19095C
19096      IPART1='QUAN'
19097      IPART2='STAN'
19098      IPART3='ERRO'
19099      IPART4='METH'
19100      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
19101     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
19102        IQUASE=IHARG(5)
19103        IF(IQUASE.EQ.'KERN'.OR.IQUASE.EQ.'DENS')THEN
19104          IQUASE='KERD'
19105        ELSE
19106          IQUASE='MJ'
19107        ENDIF
19108        IHV=IQUASE
19109        GOTO5160
19110      ELSEIF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
19111     1   IHARG(3).EQ.IPART3)THEN
19112        IQUASE=IHARG(4)
19113        IF(IQUASE.EQ.'KERN'.OR.IQUASE.EQ.'DENS')THEN
19114          IQUASE='KERD'
19115        ELSE
19116          IQUASE='MJ'
19117        ENDIF
19118        IHV=IQUASE
19119        GOTO5160
19120      ENDIF
19121C
19122CCCCC FOLLOWING SECTION ADDED JULY 2002
19123C     ****************************************************************
19124C     **  SET COVARIANCE TYPE <DEFAULT/BIWEIGHT MIDCOVARIANCE/      **
19125C     **      WINSORIZED VARIANCE/PERCENTAGE BEND/RANK>             **
19126C     ****************************************************************
19127C
19128      IPART1='COVA'
19129      IPART2='TYPE'
19130      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
19131        ICOVTY='DEFA'
19132        IF(IHARG(3).EQ.'BIWE')ICOVTY='BIWE'
19133        IF(IHARG(3).EQ.'WINS')ICOVTY='WINS'
19134CCCCC   IF(IHARG(3).EQ.'PERC')ICOVTY='PBEN'
19135        IF(IHARG(3).EQ.'RANK')ICOVTY='RANK'
19136        IHV=ICOVTY
19137        GOTO5160
19138      ENDIF
19139C
19140CCCCC FOLLOWING SECTION ADDED JULY 2002
19141C     ****************************************************************
19142C     **  SET CORRELATION TYPE <DEFAULT/WINSORIZED/RANK/            **
19143C     **      PERCENTAGE BEND/BIWEIGHT MIDCORRELATION/KENDELL TAU>  **
19144C     ****************************************************************
19145C
19146      IPART1='CORR'
19147      IPART2='TYPE'
19148      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
19149        ICORTY='DEFA'
19150        IF(IHARG(3).EQ.'WINS')ICORTY='WINS'
19151        IF(IHARG(3).EQ.'RANK')ICORTY='RANK'
19152        IF(IHARG(3).EQ.'PERC')ICORTY='PBCR'
19153        IF(IHARG(3).EQ.'BIWE')ICORTY='BIWE'
19154        IF(IHARG(3).EQ.'MIDC')ICORTY='BIWE'
19155        IF(IHARG(3).EQ.'KEND')ICORTY='KTAU'
19156        IF(IHARG(3).EQ.'TAU ')ICORTY='KTAU'
19157        IHV=ICORTY
19158        GOTO5160
19159      ENDIF
19160C
19161CCCCC FOLLOWING SECTION ADDED SEPTEMBER 2016
19162C     ****************************************************************
19163C     **  SET CORRELATION ABSOLUTE VALUE <ON/OFF>                   **
19164C     ****************************************************************
19165C
19166      IPART1='CORR'
19167      IPART2='ABSO'
19168      IPART3='VALU'
19169      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
19170     1   IHARG(3).EQ.IPART3)THEN
19171        IF(IHARG(4).EQ.'ON' .OR. IHARG(4).EQ.'YES' .OR.
19172     1     IHARG(4).EQ.'TRUE')THEN
19173          ICORAV='ON'
19174        ELSE
19175          ICORAV='OFF'
19176        ENDIF
19177        IHV=ICORAV
19178        GOTO5160
19179      ENDIF
19180C
19181CCCCC FOLLOWING SECTION ADDED SEPTEMBER 2016
19182C     ****************************************************************
19183C     **  SET CORRELATION PERCENTAGE VALUE <ON/OFF>                 **
19184C     ****************************************************************
19185C
19186      IPART1='CORR'
19187      IPART2='PERC'
19188      IPART3='VALU'
19189      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
19190     1   IHARG(3).EQ.IPART3)THEN
19191        IF(IHARG(4).EQ.'ON' .OR. IHARG(4).EQ.'YES' .OR.
19192     1     IHARG(4).EQ.'TRUE')THEN
19193          ICORPV='ON'
19194        ELSE
19195          ICORPV='OFF'
19196        ENDIF
19197        IHV=ICORPV
19198        GOTO5160
19199      ENDIF
19200C
19201CCCCC FOLLOWING SECTION ADDED SEPTEMBER 2016
19202C     ****************************************************************
19203C     **  SET CORRELATION DIGITS <VALUE>                            **
19204C     ****************************************************************
19205C
19206      IPART1='CORR'
19207      IPART2='DIGI'
19208      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
19209        IF(NUMARG.GT.2)THEN
19210          ICORDG=IARG(3)
19211          IF(ICORDG.LT.0)ICORDG=-1
19212          IF(ICORDG.GT.6)ICORDG=-1
19213        ELSE
19214          ICORDG=-1
19215        ENDIF
19216        IV=ICORDG
19217        GOTO5150
19218      ENDIF
19219C
19220CCCCC FOLLOWING SECTION ADDED OCTOBER 2016
19221C     ****************************************************************
19222C     **  SET PSVIEW FILE CLOSE <ON/OFF>                            **
19223C     ****************************************************************
19224C
19225      IPART1='PSVI'
19226      IPART2='FILE'
19227      IPART3='CLOS'
19228      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
19229     1   IHARG(3).EQ.IPART3)THEN
19230        IF(IHARG(4).EQ.'ON' .OR. IHARG(4).EQ.'YES' .OR.
19231     1     IHARG(4).EQ.'TRUE')THEN
19232          IPSVCL='ON'
19233        ELSE
19234          IPSVCL='OFF'
19235        ENDIF
19236        IHV=IPSVCL
19237        GOTO5160
19238      ENDIF
19239C
19240CCCCC FOLLOWING SECTION ADDED JULY 2002
19241C     ****************************************************************
19242C     **  SET FILE NAME QUOTE <ON/OFF>                              **
19243C     **  2/2008: ADD "NOFILE" OPTION (FOR PRINT "99.99 ...."       **
19244C     ****************************************************************
19245C
19246      IPART1='FILE'
19247      IPART2='NAME'
19248      IPART3='QUOT'
19249      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
19250     1   IHARG(3).EQ.IPART3)THEN
19251        IFILQU='OFF'
19252        IF(IHARG(4).EQ.'ON')IFILQU='ON'
19253        IF(IHARG(4).EQ.'YES')IFILQU='ON'
19254        IF(IHARG(4).EQ.'NOFI')IFILQU='NOFI'
19255        IF(IHARG(4).EQ.'NO  '.AND.IHARG(5).EQ.'FILE')IFILQU='NOFI'
19256        IHV=IFILQU
19257        IFILQZ=IFILQU
19258        GOTO5160
19259      ENDIF
19260C
19261CCCCC FOLLOWING SECTION ADDED JULY 2002
19262C     ****************************************************************
19263C     **  SET BOOTSTRAP FIT METHOD <RESIDUALS/DATA>                 **
19264C     ****************************************************************
19265C
19266      IPART1='BOOT'
19267      IPART2='FIT '
19268      IPART3='METH'
19269      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
19270     1   IHARG(3).EQ.IPART3)THEN
19271        IBOOME='RESI'
19272        IF(IHARG(4).EQ.'EFRO')IBOOME='RESI'
19273        IF(IHARG(4).EQ.'DATA')IBOOME='DATA'
19274        IF(IHARG(4).EQ.'WU')IBOOME='DATA'
19275        IHV=IBOOME
19276        GOTO5160
19277      ENDIF
19278C
19279CCCCC FOLLOWING SECTION ADDED JULY 2002
19280C     ****************************************************************
19281C     **  SET DISTRIBUTIONAL BOOTSTRAP <NONPARAMETERIC/PARAMETRIC>  **
19282C     ****************************************************************
19283C
19284      IPART1='DIST'
19285      IPART2='BOOT'
19286      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
19287        IBOOPA='NONP'
19288        IF(IHARG(3).EQ.'PARA')IBOOPA='PARA'
19289        IHV=IBOOPA
19290        GOTO5160
19291      ENDIF
19292C
19293CCCCC FOLLOWING SECTION ADDED APRIL 2005
19294C     ****************************************************************
19295C     **  SET DECIMAL POINT                                         **
19296C     ****************************************************************
19297C
19298      IPART1='DECI'
19299      IPART2='POIN'
19300      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
19301        IDECPT=IHARG(3)
19302        IF(IHARG(3).EQ.'DEFA')IDECPT='.'
19303        IF(IHARG(3).EQ.'ON  ')IDECPT='.'
19304        IF(IHARG(3).EQ.'NONE')IDECPT='.'
19305        IF(IHARG(3).EQ.'YES ')IDECPT='.'
19306        IF(IHARG(3).EQ.'NO  ')IDECPT='.'
19307        IF(IHARG(3).EQ.'OFF ')IDECPT='.'
19308        IF(IHARG(3).EQ.'    ')IDECPT='.'
19309        IHV=IDECPT
19310        GOTO5160
19311      ENDIF
19312C
19313CCCCC FOLLOWING SECTION ADDED APRIL 2005
19314C     ****************************************************************
19315C     **  SET PEAKS OVER THRESHOLD METHOD                           **
19316C     ****************************************************************
19317C
19318      IPART1='POT '
19319      IPART2='METH'
19320      IPART3='PEAK'
19321      IPART4='OVER'
19322      IPART5='THRE'
19323      IF((IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2) .OR.
19324     1   (IHARG(1).EQ.IPART3.AND.IHARG(2).EQ.IPART4.AND.
19325     1    IHARG(3).EQ.IPART5.AND.IHARG(4).EQ.IPART2))THEN
19326        IPOTME=IHARG(NUMARG)
19327        IF(IPOTME.EQ.'DEFA')IPOTME='DEHA'
19328        IF(IPOTME.EQ.'ON  ')IPOTME='DEHA'
19329        IF(IPOTME.EQ.'NONE')IPOTME='DEHA'
19330        IF(IPOTME.EQ.'YES ')IPOTME='DEHA'
19331        IF(IPOTME.EQ.'NO  ')IPOTME='DEHA'
19332        IF(IPOTME.EQ.'OFF ')IPOTME='DEHA'
19333        IF(IPOTME.EQ.'    ')IPOTME='DEHA'
19334        IF(IPOTME.EQ.'CME ')THEN
19335          IHV=IPOTME
19336        ELSEIF(IPOTME.EQ.'MOME')THEN
19337          IHV=IPOTME
19338        ELSEIF(IPOTME.EQ.'MLE ')THEN
19339          IPOTME='DEHA'
19340          IHV=IPOTME
19341        ELSEIF(IPOTME.EQ.'ML  ')THEN
19342          IPOTME='MLE '
19343          IHV=IPOTME
19344        ELSEIF(IPOTME.EQ.'MAXI')THEN
19345          IPOTME='MLE '
19346          IHV=IPOTME
19347        ELSEIF(IPOTME.EQ.'LIKE')THEN
19348          IPOTME='MLE '
19349          IHV=IPOTME
19350        ELSEIF(IPOTME.EQ.'PPCC')THEN
19351          IPOTME='PPCC'
19352          IHV=IPOTME
19353        ELSEIF(IPOTME.EQ.'PLOT')THEN
19354          IPOTME='PPCC'
19355          IHV=IPOTME
19356        ELSEIF(IPOTME.EQ.'PROB')THEN
19357          IPOTME='PPCC'
19358          IHV=IPOTME
19359        ELSEIF(IPOTME.EQ.'KS  ')THEN
19360          IPOTME='KS  '
19361          IHV=IPOTME
19362        ELSEIF(IPOTME.EQ.'KOLM')THEN
19363          IPOTME='KS  '
19364          IHV=IPOTME
19365        ELSEIF(IPOTME.EQ.'SMIR')THEN
19366          IPOTME='KS  '
19367          IHV=IPOTME
19368        ELSE
19369          IPOTME='DEHA'
19370          IHV=IPOTME
19371        ENDIF
19372        GOTO5160
19373      ENDIF
19374C
19375CCCCC FOLLOWING SECTION ADDED APRIL 2005
19376C     ****************************************************************
19377C     **  SET PEAKS OVER THRESHOLD LOAD FACTOR                      **
19378C     ****************************************************************
19379C
19380      IPART1='POT '
19381      IPART2='PEAK'
19382      IPART3='OVER'
19383      IPART4='THRE'
19384      IPART5='LOAD'
19385      IPART6='FACT'
19386      IF(
19387     1   (IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART5.AND.
19388     1    IHARG(3).EQ.IPART6) .OR.
19389     1   (IHARG(1).EQ.IPART2.AND.IHARG(2).EQ.IPART3.AND.
19390     1    IHARG(3).EQ.IPART4.AND.IHARG(4).EQ.IPART5.AND.
19391     1    IHARG(5).EQ.IPART6))THEN
19392        IPOTLF=IHARG(NUMARG)
19393        IF(IPOTLF.EQ.'DEFA')IPOTLF='OFF'
19394        IF(IPOTLF.EQ.'ON  ')IPOTLF='ON'
19395        IF(IPOTLF.EQ.'NONE')IPOTLF='OFF'
19396        IF(IPOTLF.EQ.'YES ')IPOTLF='ON'
19397        IF(IPOTLF.EQ.'NO  ')IPOTLF='OFF'
19398        IF(IPOTLF.EQ.'OFF ')IPOTLF='OFF'
19399        IF(IPOTLF.EQ.'    ')IPOTLF='OFF'
19400        IF(IPOTLF.NE.'ON')IPOTLF='OFF'
19401        IHV=IPOTLF
19402        GOTO5160
19403      ENDIF
19404C
19405CCCCC FOLLOWING SECTION ADDED APRIL 2005
19406C     ****************************************************************
19407C     **  SET PEAKS OVER THRESHOLD X AXIS                           **
19408C     ****************************************************************
19409C
19410      IPART1='POT '
19411      IPART2='PEAK'
19412      IPART3='OVER'
19413      IPART4='THRE'
19414      IPART5='X   '
19415      IPART6='AXIS'
19416      IF(
19417     1   (IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART5.AND.
19418     1    IHARG(3).EQ.IPART6) .OR.
19419     1   (IHARG(1).EQ.IPART2.AND.IHARG(2).EQ.IPART3.AND.
19420     1    IHARG(3).EQ.IPART4.AND.IHARG(4).EQ.IPART5.AND.
19421     1    IHARG(5).EQ.IPART6))THEN
19422        IPOTAX=IHARG(NUMARG)
19423        IF(IPOTAX.EQ.'DEFA')IPOTAX='POIN'
19424        IF(IPOTAX.EQ.'ON  ')IPOTAX='POIN'
19425        IF(IPOTAX.EQ.'NONE')IPOTAX='POIN'
19426        IF(IPOTAX.EQ.'YES ')IPOTAX='POIN'
19427        IF(IPOTAX.EQ.'NO  ')IPOTAX='POIN'
19428        IF(IPOTAX.EQ.'OFF ')IPOTAX='POIN'
19429        IF(IPOTAX.EQ.'    ')IPOTAX='POIN'
19430        IF(IPOTAX.NE.'THRE')IPOTAX='POIN'
19431        IHV=IPOTAX
19432        GOTO5160
19433      ENDIF
19434C
19435CCCCC FOLLOWING SECTION ADDED APRIL 2005
19436C     ****************************************************************
19437C     **  SET PEAKS OVER THRESHOLD ITERATIONS                       **
19438C     ****************************************************************
19439C
19440      IPART1='POT '
19441      IPART2='ITER'
19442      IPART3='PEAK'
19443      IPART4='OVER'
19444      IPART5='THRE'
19445      IF((IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2) .OR.
19446     1   (IHARG(1).EQ.IPART3.AND.IHARG(2).EQ.IPART4.AND.
19447     1    IHARG(3).EQ.IPART5.AND.IHARG(4).EQ.IPART2))THEN
19448        IF(IHARG(NUMARG).EQ.'DEFA')THEN
19449          IPOTIT=50
19450        ELSEIF(IHARG(NUMARG).EQ.'DEFA')THEN
19451          IPOTIT=50
19452        ELSEIF(NUMARG.EQ.3 .OR. NUMARG.EQ.4)THEN
19453          IPOTIT=50
19454        ELSE
19455          IPOTIT=IARG(NUMARG)
19456        ENDIF
19457        IF(IPOTIT.LT.10)IPOTIT=10
19458        IV=IPOTIT
19459        GOTO5150
19460      ENDIF
19461C
19462CCCCC FOLLOWING SECTION ADDED AUGUST  2008
19463C     ********************************************
19464C     **  SET MERGE MATCH VARIABLES             **
19465C     ********************************************
19466C
19467      IPART1='MERG'
19468      IPART2='MATC'
19469      IPART3='VARI'
19470      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2 .AND.
19471     1   IHARG(3).EQ.IPART3)THEN
19472        IV=IARG(NUMARG)
19473        IF(IV.LT.0)IV=1
19474        IMERMA=IV
19475        GOTO5150
19476      ENDIF
19477C
19478CCCCC FOLLOWING SECTION ADDED AUGUST  2008
19479C     ********************************************
19480C     **  SET MERGE CARRY VARIABLES             **
19481C     ********************************************
19482C
19483C     NOTE JUNE 2009: IF 2 VALUES ARE SPECIFIED, THEN
19484C                     THE 2 SETS OF DATA CAN HAVE A DIFFERENT
19485C                     NUMBER OF CARRY VARIABLES.
19486C
19487      IPART1='MERG'
19488      IPART2='CARR'
19489      IPART3='VARI'
19490      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2 .AND.
19491     1   IHARG(3).EQ.IPART3)THEN
19492        IF(NUMARG.EQ.3)THEN
19493          IMERCA=1
19494          IMERC2=IMERCA
19495        ELSEIF(NUMARG.EQ.4)THEN
19496          IV=IARG(NUMARG)
19497          IF(IV.LT.0)IV=0
19498          IMERCA=IV
19499          IMERC2=IMERCA
19500        ELSEIF(NUMARG.EQ.5)THEN
19501          IV=IARG(4)
19502          IF(IV.LT.0)IV=0
19503          IMERCA=IV
19504          IVJUNK=IARG(5)
19505          IF(IVJUNK.LT.0)IVJUNK=0
19506          IMERC2=IVJUNK
19507        ENDIF
19508        GOTO5150
19509      ENDIF
19510C
19511CCCCC FOLLOWING SECTION ADDED MARCH  2009
19512C     **********************************************
19513C     **  SET CONVERT DENSITY HORIZONTAL <VALUE>  **
19514C     **********************************************
19515C
19516      IPART1='CONV'
19517      IPART2='DENS'
19518      IPART3='HORI'
19519      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2 .AND.
19520     1   IHARG(3).EQ.IPART3)THEN
19521        IV=IARG(NUMARG)
19522        IF(IV.LT.72)IV=72
19523        ICONDH=IV
19524        GOTO5150
19525      ENDIF
19526C
19527CCCCC FOLLOWING SECTION ADDED MARCH  2009
19528C     ********************************************
19529C     **  SET CONVERT DENSITY VERTICAL  <VALUE> **
19530C     ********************************************
19531C
19532      IPART1='CONV'
19533      IPART2='DENS'
19534      IPART3='VERT'
19535      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2 .AND.
19536     1   IHARG(3).EQ.IPART3)THEN
19537        IV=IARG(NUMARG)
19538        IF(IV.LT.72)IV=72
19539        ICONDV=IV
19540        GOTO5150
19541      ENDIF
19542C
19543CCCCC FOLLOWING SECTION ADDED MARCH  2009
19544C     ********************************************
19545C     **  SET CONVERT DENSITY           <VALUE> **
19546C     ********************************************
19547C
19548      IPART1='CONV'
19549      IPART2='DENS'
19550      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
19551        IV=IARG(NUMARG)
19552        IF(IV.LT.72)IV=72
19553        ICONDH=IV
19554        ICONDV=IV
19555        GOTO5150
19556      ENDIF
19557C
19558CCCCC FOLLOWING SECTION ADDED APRIL  2009
19559C     ****************************************
19560C     **  SET LATEX POINT SIZE   <VALUE>    **
19561C     ****************************************
19562C
19563      IPART1='LATE'
19564      IPART2='POIN'
19565      IPART3='SIZE'
19566      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2 .AND.
19567     1   IHARG(3).EQ.IPART3)THEN
19568        IF(NUMARG.GT.3)THEN
19569          IV=IARG(NUMARG)
19570          IF(IV.LT.6)IV=6
19571          IF(IV.GT.24)IV=24
19572        ELSE
19573          IV=12
19574        ENDIF
19575        ILATPS=IV
19576        GOTO5150
19577      ENDIF
19578C
19579CCCCC FOLLOWING SECTION ADDED JUNE  2009
19580C     **********************************************
19581C     **  SET CODE CROSS TABULATE OFFSET <VALUE>  **
19582C     **********************************************
19583C
19584      IPART1='CODE'
19585      IPART2='CROS'
19586      IPART3='TABU'
19587      IPART4='OFFS'
19588      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2 .AND.
19589     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
19590        IF(NUMARG.GT.4)THEN
19591          IF(IHARG(5).EQ.'DEFA')THEN
19592            IV=0
19593          ELSEIF(IHARG(5).EQ.'ON')THEN
19594            IV=0
19595          ELSEIF(IHARG(5).EQ.'OFF')THEN
19596            IV=0
19597          ELSEIF(IHARG(5).EQ.'YES')THEN
19598            IV=0
19599          ELSEIF(IHARG(5).EQ.'NO')THEN
19600            IV=0
19601          ELSE
19602            IV=IARG(NUMARG)
19603            IF(IV.LT.0)IV=0
19604          ENDIF
19605        ELSE
19606          IV=0
19607        ENDIF
19608        ICCTOF=IV
19609        GOTO5150
19610      ENDIF
19611C
19612CCCCC FOLLOWING SECTION ADDED JUNE  2009
19613C     ***************************************************
19614C     **  SET CODE CROSS TABULATE GROUP SIZE <VALUE>  **
19615C     **************************************************
19616C
19617      IPART1='CODE'
19618      IPART2='CROS'
19619      IPART3='TABU'
19620      IPART4='GROU'
19621      IPART5='SIZE'
19622      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2 .AND.
19623     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4 .AND.
19624     1   IHARG(5).EQ.IPART5)THEN
19625        IJUNK=6
19626        IF(IHARG(6).EQ.'ONE')IJUNK=7
19627        IF(IHARG(6).EQ.'TWO')IJUNK=7
19628        IF(IHARG(6).EQ.'THRE')IJUNK=7
19629        IF(IHARG(6).EQ.'FOUR')IJUNK=7
19630        IF(IHARG(6).EQ.'FIVE')IJUNK=7
19631        IF(IHARG(6).EQ.'SIX')IJUNK=7
19632        IF(NUMARG.GT.IJUNK-1)THEN
19633          IF(IHARG(IJUNK).EQ.'DEFA')THEN
19634            IV=0
19635          ELSEIF(IHARG(IJUNK).EQ.'ON')THEN
19636            IV=0
19637          ELSEIF(IHARG(IJUNK).EQ.'OFF')THEN
19638            IV=0
19639          ELSEIF(IHARG(IJUNK).EQ.'YES')THEN
19640            IV=0
19641          ELSEIF(IHARG(IJUNK).EQ.'NO')THEN
19642            IV=0
19643          ELSE
19644            IV=IARG(NUMARG)
19645            IF(IV.LT.0)IV=0
19646          ENDIF
19647        ELSE
19648          IV=0
19649        ENDIF
19650        IF(IHARG(6).EQ.'ONE')THEN
19651          ICCTG1=IV
19652        ELSEIF(IHARG(6).EQ.'TWO')THEN
19653          ICCTG2=IV
19654        ELSEIF(IHARG(6).EQ.'THRE')THEN
19655          ICCTG3=IV
19656        ELSEIF(IHARG(6).EQ.'FOUR')THEN
19657          ICCTG4=IV
19658        ELSEIF(IHARG(6).EQ.'FIVE')THEN
19659          ICCTG5=IV
19660        ELSEIF(IHARG(6).EQ.'SIX')THEN
19661          ICCTG6=IV
19662        ELSE
19663          ICCTG1=IV
19664        ENDIF
19665        GOTO5150
19666      ENDIF
19667C
19668CCCCC FOLLOWING SECTION ADDED APRIL 2005
19669C     ****************************************************************
19670C     **  SET PEAKS OVER THRESHOLD INITIAL POINTS                   **
19671C     ****************************************************************
19672C
19673      IPART1='POT '
19674      IPART2='INIT'
19675      IPART3='POIN'
19676      IPART4='PEAK'
19677      IPART5='OVER'
19678      IPART6='THRE'
19679      IF((IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
19680     1    IHARG(3).EQ.IPART3) .OR.
19681     1   (IHARG(1).EQ.IPART4.AND.IHARG(2).EQ.IPART5.AND.
19682     1    IHARG(3).EQ.IPART6.AND.IHARG(4).EQ.IPART2.AND.
19683     1    IHARG(5).EQ.IPART3))THEN
19684        IF(IHARG(NUMARG).EQ.'DEFA')THEN
19685          IPOTNP=25
19686        ELSEIF(IHARG(NUMARG).EQ.'DEFA')THEN
19687          IPOTNP=25
19688        ELSEIF(NUMARG.EQ.4 .OR. NUMARG.EQ.5)THEN
19689          IPOTNP=25
19690        ELSE
19691          IPOTNP=IARG(NUMARG)
19692        ENDIF
19693        IF(IPOTNP.LT.5)IPOTNP=5
19694        IV=IPOTNP
19695        GOTO5150
19696      ENDIF
19697C
19698CCCCC FOLLOWING SECTION ADDED APRIL 2005
19699C     ****************************************************************
19700C     **  SET PEAKS OVER THRESHOLD INCREMENT                        **
19701C     ****************************************************************
19702C
19703      IPART1='POT '
19704      IPART2='INCR'
19705      IPART3='PEAK'
19706      IPART4='OVER'
19707      IPART5='THRE'
19708      IF((IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2) .OR.
19709     1   (IHARG(1).EQ.IPART3.AND.IHARG(2).EQ.IPART4.AND.
19710     1    IHARG(3).EQ.IPART5.AND.IHARG(4).EQ.IPART2))THEN
19711        IF(IHARG(NUMARG).EQ.'DEFA')THEN
19712          PPOTIN=-1.0
19713        ELSEIF(IHARG(NUMARG).EQ.'DEFA')THEN
19714          PPOTIN=-1.0
19715        ELSE
19716          PPOTIN=ARG(NUMARG)
19717        ENDIF
19718        AV=PPOTIN
19719        GOTO5170
19720      ENDIF
19721C
19722CCCCC FOLLOWING SECTION ADDED APRIL 2005
19723C     ****************************************************************
19724C     **  SET PEAKS OVER THRESHOLD INCREMENT                        **
19725C     ****************************************************************
19726C
19727      IPART1='POT '
19728      IPART2='PERI'
19729      IPART3='PEAK'
19730      IPART4='OVER'
19731      IPART5='THRE'
19732      IF((IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2) .OR.
19733     1   (IHARG(1).EQ.IPART3.AND.IHARG(2).EQ.IPART4.AND.
19734     1    IHARG(3).EQ.IPART5.AND.IHARG(4).EQ.IPART2))THEN
19735        IF(IHARG(NUMARG).EQ.'DEFA')THEN
19736          PPOTPE=-1.0
19737        ELSEIF(IHARG(NUMARG).EQ.'DEFA')THEN
19738          PPOTPE=-1.0
19739        ELSE
19740          PPOTPE=ARG(NUMARG)
19741        ENDIF
19742        AV=PPOTPE
19743        GOTO5170
19744      ENDIF
19745C
19746CCCCC FOLLOWING SECTION ADDED APRIL 2005
19747C     ****************************************************************
19748C     **  SET PEAKS OVER THRESHOLD TOLERANCE                        **
19749C     ****************************************************************
19750C
19751      IPART1='POT '
19752      IPART2='TOLE'
19753      IPART3='PEAK'
19754      IPART4='OVER'
19755      IPART5='THRE'
19756      IF((IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2) .OR.
19757     1   (IHARG(1).EQ.IPART3.AND.IHARG(2).EQ.IPART4.AND.
19758     1    IHARG(3).EQ.IPART5.AND.IHARG(4).EQ.IPART2))THEN
19759        IF(IHARG(NUMARG).EQ.'DEFA')THEN
19760          PPOTTO=0.05
19761        ELSEIF(IHARG(NUMARG).EQ.'DEFA')THEN
19762          PPOTTO=0.05
19763        ELSE
19764          PPOTTO=ARG(NUMARG)
19765        ENDIF
19766        PPOTTO=ABS(PPOTTO)
19767        IF(PPOTTO.GT.0.2)PPOTTO=0.05
19768        AV=PPOTTO
19769        GOTO5170
19770      ENDIF
19771C
19772CCCCC FOLLOWING SECTION ADDED APRIL 2005
19773C     ****************************************************************
19774C     **  SET PEAKS OVER THRESHOLD INITIAL THRESHOLD                **
19775C     ****************************************************************
19776C
19777      IPART1='POT '
19778      IPART2='INIT'
19779      IPART3='THRE'
19780      IPART4='PEAK'
19781      IPART5='OVER'
19782      IPART6='THRE'
19783      IF((IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
19784     1    IHARG(3).EQ.IPART3) .OR.
19785     1   (IHARG(1).EQ.IPART4.AND.IHARG(2).EQ.IPART5.AND.
19786     1    IHARG(3).EQ.IPART6.AND.IHARG(4).EQ.IPART2.AND.
19787     1    IHARG(5).EQ.IPART6))THEN
19788        IF(IHARG(NUMARG).EQ.'DEFA')THEN
19789          PPOTTH=0.0
19790        ELSEIF(IHARG(NUMARG).EQ.'DEFA')THEN
19791          PPOTTH=0.0
19792        ELSE
19793          PPOTTH=ARG(NUMARG)
19794        ENDIF
19795        AV=PPOTTH
19796        GOTO5170
19797      ENDIF
19798C
19799CCCCC FOLLOWING SECTION ADDED JULY 2006
19800C     *************************************************************
19801C     **  SET CHISQUARE LIMIT                                    **
19802C     *************************************************************
19803C
19804      IPART1='CHIS'
19805      IPART2='LIMI'
19806      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
19807        IF(IHARG(NUMARG).EQ.'DEFA')THEN
19808          PCHSLM=CPUMAX/10.0
19809        ELSEIF(IHARG(NUMARG).EQ.'ON  ')THEN
19810          PCHSLM=CPUMAX/10.0
19811        ELSEIF(IHARG(NUMARG).EQ.'YES ')THEN
19812          PCHSLM=CPUMAX/10.0
19813        ELSEIF(IHARG(NUMARG).EQ.'OFF ')THEN
19814          PCHSLM=CPUMAX/10.0
19815        ELSEIF(IHARG(NUMARG).EQ.'NO  ')THEN
19816          PCHSLM=CPUMAX/10.0
19817        ELSE
19818          PCHSLM=ARG(NUMARG)
19819        ENDIF
19820        AV=PCHSLM
19821        GOTO5170
19822      ENDIF
19823C
19824      IPART1='CHI '
19825      IPART2='SQUA'
19826      IPART3='LIMI'
19827      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
19828     1   IHARG(3).EQ.IPART3)THEN
19829        IF(IHARG(NUMARG).EQ.'DEFA')THEN
19830          PCHSLM=CPUMAX/10.0
19831        ELSEIF(IHARG(NUMARG).EQ.'ON  ')THEN
19832          PCHSLM=CPUMAX/10.0
19833        ELSEIF(IHARG(NUMARG).EQ.'YES ')THEN
19834          PCHSLM=CPUMAX/10.0
19835        ELSEIF(IHARG(NUMARG).EQ.'OFF ')THEN
19836          PCHSLM=CPUMAX/10.0
19837        ELSEIF(IHARG(NUMARG).EQ.'NO  ')THEN
19838          PCHSLM=CPUMAX/10.0
19839        ELSE
19840          PCHSLM=ARG(NUMARG)
19841        ENDIF
19842        AV=PCHSLM
19843        GOTO5170
19844      ENDIF
19845C
19846CCCCC FOLLOWING SECTION ADDED OCTOBER 2006
19847C     *************************************************************
19848C     **  SET MAXWELL LOCATION                                   **
19849C     *************************************************************
19850C
19851      IPART1='MAXW'
19852      IPART2='LOCA'
19853      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
19854        IF(IHARG(NUMARG).EQ.'DEFA')THEN
19855          PMAXLO=0.0
19856        ELSEIF(IHARG(NUMARG).EQ.'ON  ')THEN
19857          PMAXLO=0.0
19858        ELSEIF(IHARG(NUMARG).EQ.'YES ')THEN
19859          PMAXLO=0.0
19860        ELSEIF(IHARG(NUMARG).EQ.'OFF ')THEN
19861          PMAXLO=0.0
19862        ELSEIF(IHARG(NUMARG).EQ.'NO  ')THEN
19863          PMAXLO=0.0
19864        ELSEIF(IHARG(NUMARG).EQ.'ZERO')THEN
19865          PMAXLO=0.0
19866        ELSEIF(IHARG(NUMARG).EQ.'MINI')THEN
19867          PMAXLO=CPUMIN
19868        ELSEIF(NUMARG.EQ.2)THEN
19869          PMAXLO=0.0
19870        ELSE
19871          PMAXLO=ARG(NUMARG)
19872        ENDIF
19873        AV=PMAXLO
19874        GOTO5170
19875      ENDIF
19876C
19877CCCCC FOLLOWING SECTION ADDED FEBRUARY 2007
19878C     *************************************************************
19879C     **  SET BINOMIAL NORMAL APPROXIMATION THRESHOLD            **
19880C     *************************************************************
19881C
19882      IPART1='BINO'
19883      IPART2='NORM'
19884      IPART3='APPR'
19885      IPART4='THRE'
19886      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
19887     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
19888        IF(IHARG(NUMARG).EQ.'DEFA')THEN
19889          PBINTH=30.0
19890        ELSEIF(IHARG(NUMARG).EQ.'ON  ')THEN
19891          PBINTH=30.0
19892        ELSEIF(IHARG(NUMARG).EQ.'YES ')THEN
19893          PBINTH=30.0
19894        ELSEIF(IHARG(NUMARG).EQ.'OFF ')THEN
19895          PBINTH=30.0
19896        ELSEIF(IHARG(NUMARG).EQ.'NO  ')THEN
19897          PBINTH=30.0
19898        ELSEIF(NUMARG.EQ.4)THEN
19899          PBINTH=30.0
19900        ELSE
19901          PBINTH=ARG(NUMARG)
19902        ENDIF
19903        AV=PBINTH
19904        GOTO5170
19905      ENDIF
19906C
19907CCCCC FOLLOWING SECTION ADDED MARCH 2007
19908C     *************************************************************
19909C     **  SET FISHER EXACT EXPECTED MINIMUM                      **
19910C     *************************************************************
19911C
19912      IPART1='FISH'
19913      IPART2='EXAC'
19914      IPART3='EXPE'
19915      IPART4='MINI'
19916      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
19917     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
19918        IF(IHARG(NUMARG).EQ.'DEFA')THEN
19919          PFISEM=1.0
19920        ELSEIF(IHARG(NUMARG).EQ.'ON  ')THEN
19921          PFISEM=1.0
19922        ELSEIF(IHARG(NUMARG).EQ.'YES ')THEN
19923          PFISEM=1.0
19924        ELSEIF(IHARG(NUMARG).EQ.'OFF ')THEN
19925          PFISEM=1.0
19926        ELSEIF(IHARG(NUMARG).EQ.'NO  ')THEN
19927          PFISEM=1.0
19928        ELSEIF(NUMARG.EQ.4)THEN
19929          PFISEM=1.0
19930        ELSE
19931          PFISEM=ARG(NUMARG)
19932        ENDIF
19933        AV=PFISEM
19934        GOTO5170
19935      ENDIF
19936      IF(PFISEM.LT.0.0)PFISEM=1.0
19937C
19938CCCCC FOLLOWING SECTION ADDED MARCH 2007
19939C     *************************************************************
19940C     **  SET FISHER EXACT EXPECTED                              **
19941C     *************************************************************
19942C
19943      IPART1='FISH'
19944      IPART2='EXAC'
19945      IPART3='EXPE'
19946      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
19947     1   IHARG(3).EQ.IPART3)THEN
19948        IF(IHARG(NUMARG).EQ.'DEFA')THEN
19949          PFISEX=5.0
19950        ELSEIF(IHARG(NUMARG).EQ.'ON  ')THEN
19951          PFISEX=5.0
19952        ELSEIF(IHARG(NUMARG).EQ.'YES ')THEN
19953          PFISEX=5.0
19954        ELSEIF(IHARG(NUMARG).EQ.'OFF ')THEN
19955          PFISEX=-1.0
19956        ELSEIF(IHARG(NUMARG).EQ.'NO  ')THEN
19957          PFISEX=-1.0
19958        ELSEIF(IHARG(NUMARG).EQ.'EXAC')THEN
19959          PFISEX=-1.0
19960        ELSEIF(NUMARG.EQ.3)THEN
19961          PFISEX=5.0
19962        ELSE
19963          PFISEX=ARG(NUMARG)
19964        ENDIF
19965        AV=PFISEX
19966        GOTO5170
19967      ENDIF
19968C
19969CCCCC FOLLOWING SECTION ADDED MARCH 2007
19970C     *************************************************************
19971C     **  SET FISHER EXACT PERCENT                               **
19972C     *************************************************************
19973C
19974      IPART1='FISH'
19975      IPART2='EXAC'
19976      IPART3='PERC'
19977      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
19978     1   IHARG(3).EQ.IPART3)THEN
19979        IF(IHARG(NUMARG).EQ.'DEFA')THEN
19980          PFISPC=80.0
19981        ELSEIF(IHARG(NUMARG).EQ.'ON  ')THEN
19982          PFISPC=80.0
19983        ELSEIF(IHARG(NUMARG).EQ.'YES ')THEN
19984          PFISPC=80.0
19985        ELSEIF(IHARG(NUMARG).EQ.'OFF ')THEN
19986          PFISPC=80.0
19987        ELSEIF(IHARG(NUMARG).EQ.'NO  ')THEN
19988          PFISPC=80.0
19989        ELSEIF(NUMARG.EQ.3)THEN
19990          PFISPC=80.0
19991        ELSE
19992          PFISPC=ARG(NUMARG)
19993        ENDIF
19994        IF(PFISPC.LE.0.0)PFISPC=80.0
19995        IF(PFISPC.GT.100.0)PFISPC=80.0
19996        AV=PFISPC
19997        GOTO5170
19998      ENDIF
19999C
20000CCCCC FOLLOWING SECTION ADDED APRIL 2007
20001C     *************************************************************
20002C     **  SET STATISTIC MISSING VALUE                            **
20003C     *************************************************************
20004C
20005      IPART1='STAT'
20006      IPART2='MISS'
20007      IPART3='VALU'
20008      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
20009     1   IHARG(3).EQ.IPART3)THEN
20010        IF(IHARG(NUMARG).EQ.'DEFA')THEN
20011CCCCC     PSTAMV=-9999.0
20012          PSTAMV=CPUMIN
20013        ELSEIF(IHARG(NUMARG).EQ.'ON  ')THEN
20014CCCCC     PSTAMV=-9999.0
20015          PSTAMV=CPUMIN
20016        ELSEIF(IHARG(NUMARG).EQ.'YES ')THEN
20017CCCCC     PSTAMV=-9999.0
20018          PSTAMV=CPUMIN
20019        ELSEIF(IHARG(NUMARG).EQ.'OFF ')THEN
20020CCCCC     PSTAMV=-9999.0
20021          PSTAMV=CPUMIN
20022        ELSEIF(IHARG(NUMARG).EQ.'NO  ')THEN
20023CCCCC     PSTAMV=-9999.0
20024          PSTAMV=CPUMIN
20025        ELSEIF(NUMARG.EQ.3)THEN
20026CCCCC     PSTAMV=-9999.0
20027          PSTAMV=CPUMIN
20028        ELSE
20029          PSTAMV=ARG(NUMARG)
20030        ENDIF
20031        AV=PSTAMV
20032        GOTO5170
20033      ENDIF
20034C
20035CCCCC FOLLOWING SECTION ADDED APRIL 2008
20036C     *************************************************************
20037C     **  SET CROSS TABULATE MISSING VALUE                       **
20038C     *************************************************************
20039C
20040      IPART1='CROS'
20041      IPART2='TABU'
20042      IPART3='MISS'
20043      IPART4='VALU'
20044      IF(IHARG(1).EQ.IPART1.AND.IHARG(2)(1:3).EQ.IPART2(1:3).AND.
20045     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
20046        IF(IHARG(NUMARG).EQ.'DEFA')THEN
20047          PCTAMV=-9999.0
20048        ELSEIF(IHARG(NUMARG).EQ.'ON  ')THEN
20049          PCTAMV=-9999.0
20050        ELSEIF(IHARG(NUMARG).EQ.'YES ')THEN
20051          PCTAMV=-9999.0
20052        ELSEIF(IHARG(NUMARG).EQ.'OFF ')THEN
20053          PCTAMV=-9999.0
20054        ELSEIF(IHARG(NUMARG).EQ.'NO  ')THEN
20055          PCTAMV=-9999.0
20056        ELSEIF(NUMARG.EQ.3)THEN
20057          PCTAMV=-9999.0
20058        ELSE
20059          PCTAMV=ARG(NUMARG)
20060        ENDIF
20061        AV=PCTAMV
20062        GOTO5170
20063      ENDIF
20064C
20065CCCCC FOLLOWING SECTION ADDED APRIL 2008
20066C     *************************************************************
20067C     **  SET CROSS TABULATE MISSING <ZERO/SKIP/MV>              **
20068C     *************************************************************
20069C
20070      IPART1='CROS'
20071      IPART2='TABU'
20072      IPART3='MISS'
20073      IF(IHARG(1).EQ.IPART1.AND.IHARG(2)(1:3).EQ.IPART2(1:3).AND.
20074     1   IHARG(3).EQ.IPART3)THEN
20075        IF(IHARG(NUMARG).EQ.'DEFA')THEN
20076          ICTAMV='SKIP'
20077        ELSEIF(IHARG(NUMARG).EQ.'ON  ')THEN
20078          ICTAMV='SKIP'
20079        ELSEIF(IHARG(NUMARG).EQ.'YES ')THEN
20080          ICTAMV='SKIP'
20081        ELSEIF(IHARG(NUMARG).EQ.'OFF ')THEN
20082          ICTAMV='SKIP'
20083        ELSEIF(IHARG(NUMARG).EQ.'NO  ')THEN
20084          ICTAMV='SKIP'
20085        ELSEIF(NUMARG.EQ.3)THEN
20086          ICTAMV='SKIP'
20087        ELSEIF(IHARG(NUMARG).EQ.'SKIP')THEN
20088          ICTAMV='SKIP'
20089        ELSEIF(IHARG(NUMARG).EQ.'ZERO')THEN
20090          ICTAMV='ZERO'
20091        ELSEIF(IHARG(NUMARG).EQ.'0   ')THEN
20092          ICTAMV='ZERO'
20093        ELSEIF(IHARG(NUMARG).EQ.'MV  ')THEN
20094          ICTAMV='MV  '
20095        ELSE
20096          ICTAMV='SKIP'
20097        ENDIF
20098        IHV=ICTAMV
20099        GOTO5160
20100      ENDIF
20101C
20102CCCCC FOLLOWING SECTION ADDED MAY 2008
20103C     *************************************************************
20104C     **  SET FLUCUATION PLOT FLOOR                              **
20105C     *************************************************************
20106C
20107      IPART1='FLUC'
20108      IPART2='PLOT'
20109      IPART3='FLOO'
20110      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
20111     1   IHARG(3).EQ.IPART3)THEN
20112        IF(IHARG(NUMARG).EQ.'DEFA')THEN
20113          PFLUFL=-9999.0
20114        ELSEIF(IHARG(NUMARG).EQ.'ON  ')THEN
20115          PFLUFL=-9999.0
20116        ELSEIF(IHARG(NUMARG).EQ.'YES ')THEN
20117          PFLUFL=-9999.0
20118        ELSEIF(IHARG(NUMARG).EQ.'OFF ')THEN
20119          PFLUFL=-9999.0
20120        ELSEIF(IHARG(NUMARG).EQ.'NO  ')THEN
20121          PFLUFL=-9999.0
20122        ELSEIF(NUMARG.EQ.3)THEN
20123          PFLUFL=-9999.0
20124        ELSE
20125          PFLUFL=ARG(NUMARG)
20126        ENDIF
20127        AV=PFLUFL
20128        GOTO5170
20129      ENDIF
20130C
20131CCCCC FOLLOWING SECTION ADDED MAY 2008
20132C     *************************************************************
20133C     **  SET FLUCUATION PLOT CEILING                            **
20134C     *************************************************************
20135C
20136      IPART1='FLUC'
20137      IPART2='PLOT'
20138      IPART3='CEIL'
20139      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
20140     1   IHARG(3).EQ.IPART3)THEN
20141        IF(IHARG(NUMARG).EQ.'DEFA')THEN
20142          PFLUCL=-9999.0
20143        ELSEIF(IHARG(NUMARG).EQ.'ON  ')THEN
20144          PFLUCL=-9999.0
20145        ELSEIF(IHARG(NUMARG).EQ.'YES ')THEN
20146          PFLUCL=-9999.0
20147        ELSEIF(IHARG(NUMARG).EQ.'OFF ')THEN
20148          PFLUCL=-9999.0
20149        ELSEIF(IHARG(NUMARG).EQ.'NO  ')THEN
20150          PFLUCL=-9999.0
20151        ELSEIF(NUMARG.EQ.3)THEN
20152          PFLUCL=-9999.0
20153        ELSE
20154          PFLUCL=ARG(NUMARG)
20155        ENDIF
20156        AV=PFLUCL
20157        GOTO5170
20158      ENDIF
20159C
20160CCCCC FOLLOWING SECTION ADDED MAY 2008
20161C     *************************************************************
20162C     **  SET FLUCUATION PLOT WIDTH <FIXED/PROPORTIONAL>         **
20163C     *************************************************************
20164C
20165      IPART1='FLUC'
20166      IPART2='PLOT'
20167      IPART3='WIDT'
20168      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
20169     1   IHARG(3).EQ.IPART3)THEN
20170        IF(IHARG(NUMARG).EQ.'PROP')THEN
20171          IFLUWI='PROP'
20172        ELSEIF(IHARG(NUMARG).EQ.'VARI')THEN
20173          IFLUWI='FIXE'
20174        ELSE
20175          IFLUWI='FIXE'
20176        ENDIF
20177        IHV=IFLUWI
20178        GOTO5160
20179      ENDIF
20180C
20181CCCCC FOLLOWING SECTION ADDED SEPTEMBER 2009
20182C     *************************************************************
20183C     **  SET FLUCUATION PLOT UNCERTAINTY INTERVAL               **
20184C     **      <ON/OFF/LOWER/UPPER>                               **
20185C     *************************************************************
20186C
20187      IPART1='FLUC'
20188      IPART2='PLOT'
20189      IPART3='UNCE'
20190      IPART4='INTE'
20191      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
20192     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
20193        IF(IHARG(NUMARG).EQ.'ON')THEN
20194          IFLUUN='ON'
20195        ELSEIF(IHARG(NUMARG).EQ.'YES')THEN
20196          IFLUUN='ON'
20197        ELSEIF(IHARG(NUMARG).EQ.'TRUE')THEN
20198          IFLUUN='ON'
20199        ELSEIF(IHARG(NUMARG).EQ.'LOWE')THEN
20200          IFLUUN='LOWE'
20201        ELSEIF(IHARG(NUMARG).EQ.'UPPE')THEN
20202          IFLUUN='UPPE'
20203        ELSE
20204          IFLUUN='OFF'
20205        ENDIF
20206        IHV=IFLUUN
20207        GOTO5160
20208      ENDIF
20209C
20210CCCCC FOLLOWING SECTION ADDED JANUARY  2010
20211C     *************************************************************
20212C     **  SET FLUCUATION PLOT CODED <ON/OFF>                     **
20213C     *************************************************************
20214C
20215      IPART1='FLUC'
20216      IPART2='PLOT'
20217      IPART3='CODE'
20218      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
20219     1   IHARG(3).EQ.IPART3)THEN
20220        IF(IHARG(NUMARG).EQ.'ON')THEN
20221          IFLUCD='ON'
20222        ELSEIF(IHARG(NUMARG).EQ.'YES')THEN
20223          IFLUCD='ON'
20224        ELSEIF(IHARG(NUMARG).EQ.'TRUE')THEN
20225          IFLUCD='ON'
20226        ELSEIF(IHARG(NUMARG).EQ.'OFF ')THEN
20227          IFLUCD='OFF'
20228        ELSEIF(IHARG(NUMARG).EQ.'NO  ')THEN
20229          IFLUCD='OFF'
20230        ELSEIF(IHARG(NUMARG).EQ.'FALS')THEN
20231          IFLUCD='OFF'
20232        ELSE
20233          IFLUCD='ON'
20234        ENDIF
20235        IHV=IFLUCD
20236        GOTO5160
20237      ENDIF
20238C
20239CCCCC FOLLOWING SECTION ADDED APRIL    2010
20240C     *************************************************************
20241C     **  SET FLUCUATION CONTOUR BINOMIAL PROPORTION             **
20242C     **      <POINT/LOWER LIMIT/UPPER LIMIT>                    **
20243C     *************************************************************
20244C
20245      IPART1='FLUC'
20246      IPART2='CONT'
20247      IPART3='BINO'
20248      IPART4='PROP'
20249      IPART5=IHARG(5)
20250      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
20251     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
20252        IF(IPART5.EQ.'LOWE')THEN
20253          IFLUBP='LOWE'
20254        ELSEIF(IPART5.EQ.'UPPE')THEN
20255          IFLUBP='UPPE'
20256        ELSE
20257          IFLUBP='POIN'
20258        ENDIF
20259        IHV=IFLUBP
20260        GOTO5160
20261      ENDIF
20262C
20263CCCCC FOLLOWING SECTION ADDED JANUARY  2010
20264C     *************************************************************
20265C     **  SET TABULATION PLOT CODED <ON/OFF>                     **
20266C     *************************************************************
20267C
20268      IPART1='TABU'
20269      IPART2='PLOT'
20270      IPART3='CODE'
20271      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
20272     1   IHARG(3).EQ.IPART3)THEN
20273        IF(IHARG(NUMARG).EQ.'ON')THEN
20274          ITPLCD='ON'
20275        ELSEIF(IHARG(NUMARG).EQ.'YES')THEN
20276          ITPLCD='ON'
20277        ELSEIF(IHARG(NUMARG).EQ.'TRUE')THEN
20278          ITPLCD='ON'
20279        ELSEIF(IHARG(NUMARG).EQ.'DEFA')THEN
20280          ITPLCD='ON'
20281        ELSEIF(IHARG(NUMARG).EQ.'OFF ')THEN
20282          ITPLCD='OFF'
20283        ELSEIF(IHARG(NUMARG).EQ.'NO  ')THEN
20284          ITPLCD='OFF'
20285        ELSEIF(IHARG(NUMARG).EQ.'FALS')THEN
20286          ITPLCD='OFF'
20287        ELSE
20288          ITPLCD='ON'
20289        ENDIF
20290        IHV=ITPLCD
20291        GOTO5160
20292      ENDIF
20293C
20294CCCCC FOLLOWING SECTION ADDED JUNE     2010
20295C     *************************************************************
20296C     **  SET TABULATION PLOT SORTED <ON/OFF>                    **
20297C     *************************************************************
20298C
20299      IPART1='TABU'
20300      IPART2='PLOT'
20301      IPART3='SORT'
20302      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
20303     1   IHARG(3).EQ.IPART3)THEN
20304        IF(IHARG(NUMARG).EQ.'ON')THEN
20305          ITPLSO='ON'
20306        ELSEIF(IHARG(NUMARG).EQ.'YES')THEN
20307          ITPLSO='ON'
20308        ELSEIF(IHARG(NUMARG).EQ.'TRUE')THEN
20309          ITPLSO='ON'
20310        ELSEIF(IHARG(NUMARG).EQ.'DEFA')THEN
20311          ITPLSO='ON'
20312        ELSEIF(IHARG(NUMARG).EQ.'OFF ')THEN
20313          ITPLSO='OFF'
20314        ELSEIF(IHARG(NUMARG).EQ.'NO  ')THEN
20315          ITPLSO='OFF'
20316        ELSEIF(IHARG(NUMARG).EQ.'FALS')THEN
20317          ITPLSO='OFF'
20318        ELSEIF(IHARG(NUMARG).EQ.'COLU')THEN
20319          ITPLSO='COLU'
20320        ELSEIF(IHARG(NUMARG).EQ.'ROW')THEN
20321          ITPLSO='ROW'
20322        ELSE
20323          ITPLSO='ON'
20324        ENDIF
20325        IHV=ITPLSO
20326        GOTO5160
20327      ENDIF
20328C
20329CCCCC FOLLOWING SECTION ADDED JUNE     2010
20330C     *************************************************************
20331C     **  SET TABULATION PLOT ROW SORT DIRECTION                 **
20332C     **      <ASCENDING/DESCENDING>                             **
20333C     *************************************************************
20334C
20335      IPART1='TABU'
20336      IPART2='PLOT'
20337      IPART3='ROW'
20338      IPART4='SORT'
20339      IPART5='DIRE'
20340      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
20341     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
20342     1   IHARG(5).EQ.IPART5)THEN
20343        IF(IHARG(NUMARG).EQ.'ASCE')THEN
20344          ITPLSR='ASCE'
20345        ELSEIF(IHARG(NUMARG).EQ.'DESC')THEN
20346          ITPLSR='DESC'
20347        ELSEIF(IHARG(NUMARG).EQ.'ON')THEN
20348          ITPLSR='ASCE'
20349        ELSEIF(IHARG(NUMARG).EQ.'YES')THEN
20350          ITPLSR='ASCE'
20351        ELSEIF(IHARG(NUMARG).EQ.'TRUE')THEN
20352          ITPLSR='ASCE'
20353        ELSEIF(IHARG(NUMARG).EQ.'DEFA')THEN
20354          ITPLSR='ASCE'
20355        ELSEIF(IHARG(NUMARG).EQ.'OFF ')THEN
20356          ITPLSR='DESC'
20357        ELSEIF(IHARG(NUMARG).EQ.'NO  ')THEN
20358          ITPLSR='DESC'
20359        ELSEIF(IHARG(NUMARG).EQ.'FALS')THEN
20360          ITPLSR='DESC'
20361        ELSE
20362          ITPLSR='ASCE'
20363        ENDIF
20364        IHV=ITPLSR
20365        GOTO5160
20366      ENDIF
20367C
20368CCCCC FOLLOWING SECTION ADDED JUNE     2010
20369C     *************************************************************
20370C     **  SET TABULATION PLOT COLUMN SORT DIRECTION              **
20371C     **      <ASCENDING/DESCENDING>                             **
20372C     *************************************************************
20373C
20374      IPART1='TABU'
20375      IPART2='PLOT'
20376      IPART3='COLU'
20377      IPART4='SORT'
20378      IPART5='DIRE'
20379      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
20380     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
20381     1   IHARG(5).EQ.IPART5)THEN
20382        IF(IHARG(NUMARG).EQ.'ASCE')THEN
20383          ITPLSC='ASCE'
20384        ELSEIF(IHARG(NUMARG).EQ.'DESC')THEN
20385          ITPLSC='DESC'
20386        ELSEIF(IHARG(NUMARG).EQ.'ON')THEN
20387          ITPLSC='ASCE'
20388        ELSEIF(IHARG(NUMARG).EQ.'YES')THEN
20389          ITPLSC='ASCE'
20390        ELSEIF(IHARG(NUMARG).EQ.'TRUE')THEN
20391          ITPLSC='ASCE'
20392        ELSEIF(IHARG(NUMARG).EQ.'DEFA')THEN
20393          ITPLSC='ASCE'
20394        ELSEIF(IHARG(NUMARG).EQ.'OFF ')THEN
20395          ITPLSC='DESC'
20396        ELSEIF(IHARG(NUMARG).EQ.'NO  ')THEN
20397          ITPLSC='DESC'
20398        ELSEIF(IHARG(NUMARG).EQ.'FALS')THEN
20399          ITPLSC='DESC'
20400        ELSE
20401          ITPLSC='ASCE'
20402        ENDIF
20403        IHV=ITPLSC
20404        GOTO5160
20405      ENDIF
20406C
20407CCCCC FOLLOWING SECTION ADDED JUNE     2010
20408C     *************************************************************
20409C     **  SET TABULATION PLOT ROW MINMAX <ON/OFF>                **
20410C     *************************************************************
20411C
20412      IPART1='TABU'
20413      IPART2='PLOT'
20414      IPART3='ROW '
20415      IPART4='MINM'
20416      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
20417     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
20418        IF(IHARG(NUMARG).EQ.'ON')THEN
20419          ITPLRM='ON'
20420        ELSEIF(IHARG(NUMARG).EQ.'YES')THEN
20421          ITPLRM='ON'
20422        ELSEIF(IHARG(NUMARG).EQ.'TRUE')THEN
20423          ITPLRM='ON'
20424        ELSEIF(IHARG(NUMARG).EQ.'DEFA')THEN
20425          ITPLRM='ON'
20426        ELSEIF(IHARG(NUMARG).EQ.'OFF ')THEN
20427          ITPLRM='OFF'
20428        ELSEIF(IHARG(NUMARG).EQ.'NO  ')THEN
20429          ITPLRM='OFF'
20430        ELSEIF(IHARG(NUMARG).EQ.'FALS')THEN
20431          ITPLRM='OFF'
20432        ELSEIF(IHARG(NUMARG).EQ.'COLU')THEN
20433          ITPLRM='COLU'
20434        ELSEIF(IHARG(NUMARG).EQ.'ROW')THEN
20435          ITPLRM='ROW'
20436        ELSE
20437          ITPLRM='ON'
20438        ENDIF
20439        IHV=ITPLRM
20440        GOTO5160
20441      ENDIF
20442C
20443CCCCC FOLLOWING SECTION ADDED JUNE     2010
20444C     *************************************************************
20445C     **  SET TABULATION PLOT COLUMN MINMAX <ON/OFF>             **
20446C     *************************************************************
20447C
20448      IPART1='TABU'
20449      IPART2='PLOT'
20450      IPART3='COLU'
20451      IPART4='MINM'
20452      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
20453     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
20454        IF(IHARG(NUMARG).EQ.'ON')THEN
20455          ITPLCM='ON'
20456        ELSEIF(IHARG(NUMARG).EQ.'YES')THEN
20457          ITPLCM='ON'
20458        ELSEIF(IHARG(NUMARG).EQ.'TRUE')THEN
20459          ITPLCM='ON'
20460        ELSEIF(IHARG(NUMARG).EQ.'DEFA')THEN
20461          ITPLCM='ON'
20462        ELSEIF(IHARG(NUMARG).EQ.'OFF ')THEN
20463          ITPLCM='OFF'
20464        ELSEIF(IHARG(NUMARG).EQ.'NO  ')THEN
20465          ITPLCM='OFF'
20466        ELSEIF(IHARG(NUMARG).EQ.'FALS')THEN
20467          ITPLCM='OFF'
20468        ELSEIF(IHARG(NUMARG).EQ.'COLU')THEN
20469          ITPLCM='COLU'
20470        ELSEIF(IHARG(NUMARG).EQ.'ROW')THEN
20471          ITPLCM='ROW'
20472        ELSE
20473          ITPLCM='ON'
20474        ENDIF
20475        IHV=ITPLCM
20476        GOTO5160
20477      ENDIF
20478C
20479CCCCC FOLLOWING SECTION ADDED JUNE     2010
20480C     *************************************************************
20481C     **  SET FLUCTUATION PLOT SORTED <ON/OFF>                   **
20482C     *************************************************************
20483C
20484      IPART1='FLUC'
20485      IPART2='PLOT'
20486      IPART3='SORT'
20487      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
20488     1   IHARG(3).EQ.IPART3)THEN
20489        IF(IHARG(NUMARG).EQ.'ON')THEN
20490          IFLUSO='ON'
20491        ELSEIF(IHARG(NUMARG).EQ.'YES')THEN
20492          IFLUSO='ON'
20493        ELSEIF(IHARG(NUMARG).EQ.'TRUE')THEN
20494          IFLUSO='ON'
20495        ELSEIF(IHARG(NUMARG).EQ.'DEFA')THEN
20496          IFLUSO='ON'
20497        ELSEIF(IHARG(NUMARG).EQ.'OFF ')THEN
20498          IFLUSO='OFF'
20499        ELSEIF(IHARG(NUMARG).EQ.'NO  ')THEN
20500          IFLUSO='OFF'
20501        ELSEIF(IHARG(NUMARG).EQ.'FALS')THEN
20502          IFLUSO='OFF'
20503        ELSEIF(IHARG(NUMARG).EQ.'COLU')THEN
20504          IFLUSO='COLU'
20505        ELSEIF(IHARG(NUMARG).EQ.'ROW')THEN
20506          IFLUSO='ROW'
20507        ELSE
20508          IFLUSO='ON'
20509        ENDIF
20510        IHV=IFLUSO
20511        GOTO5160
20512      ENDIF
20513C
20514CCCCC FOLLOWING SECTION ADDED JUNE     2010
20515C     *************************************************************
20516C     **  SET FLUCTUATION PLOT ROW SORT DIRECTION                **
20517C     **      <ASCENDING/DESCENDING>                             **
20518C     *************************************************************
20519C
20520      IPART1='FLUC'
20521      IPART2='PLOT'
20522      IPART3='ROW'
20523      IPART4='SORT'
20524      IPART5='DIRE'
20525      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
20526     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
20527     1   IHARG(5).EQ.IPART5)THEN
20528        IF(IHARG(NUMARG).EQ.'ASCE')THEN
20529          IFLUSR='ASCE'
20530        ELSEIF(IHARG(NUMARG).EQ.'DESC')THEN
20531          IFLUSR='DESC'
20532        ELSEIF(IHARG(NUMARG).EQ.'ON')THEN
20533          IFLUSR='ASCE'
20534        ELSEIF(IHARG(NUMARG).EQ.'YES')THEN
20535          IFLUSR='ASCE'
20536        ELSEIF(IHARG(NUMARG).EQ.'TRUE')THEN
20537          IFLUSR='ASCE'
20538        ELSEIF(IHARG(NUMARG).EQ.'DEFA')THEN
20539          IFLUSR='ASCE'
20540        ELSEIF(IHARG(NUMARG).EQ.'OFF ')THEN
20541          IFLUSR='DESC'
20542        ELSEIF(IHARG(NUMARG).EQ.'NO  ')THEN
20543          IFLUSR='DESC'
20544        ELSEIF(IHARG(NUMARG).EQ.'FALS')THEN
20545          IFLUSR='DESC'
20546        ELSE
20547          IFLUSR='ASCE'
20548        ENDIF
20549        IHV=IFLUSR
20550        GOTO5160
20551      ENDIF
20552C
20553CCCCC FOLLOWING SECTION ADDED JUNE     2010
20554C     *************************************************************
20555C     **  SET FLUCTUATION PLOT COLUMN SORT DIRECTION             **
20556C     **      <ASCENDING/DESCENDING>                             **
20557C     *************************************************************
20558C
20559      IPART1='FLUC'
20560      IPART2='PLOT'
20561      IPART3='COLU'
20562      IPART4='SORT'
20563      IPART5='DIRE'
20564      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
20565     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
20566     1   IHARG(5).EQ.IPART5)THEN
20567        IF(IHARG(NUMARG).EQ.'ASCE')THEN
20568          IFLUSC='ASCE'
20569        ELSEIF(IHARG(NUMARG).EQ.'DESC')THEN
20570          IFLUSC='DESC'
20571        ELSEIF(IHARG(NUMARG).EQ.'ON')THEN
20572          IFLUSC='ASCE'
20573        ELSEIF(IHARG(NUMARG).EQ.'YES')THEN
20574          IFLUSC='ASCE'
20575        ELSEIF(IHARG(NUMARG).EQ.'TRUE')THEN
20576          IFLUSC='ASCE'
20577        ELSEIF(IHARG(NUMARG).EQ.'DEFA')THEN
20578          IFLUSC='ASCE'
20579        ELSEIF(IHARG(NUMARG).EQ.'OFF ')THEN
20580          IFLUSC='DESC'
20581        ELSEIF(IHARG(NUMARG).EQ.'NO  ')THEN
20582          IFLUSC='DESC'
20583        ELSEIF(IHARG(NUMARG).EQ.'FALS')THEN
20584          IFLUSC='DESC'
20585        ELSE
20586          IFLUSC='ASCE'
20587        ENDIF
20588        IHV=IFLUSC
20589        GOTO5160
20590      ENDIF
20591C
20592CCCCC FOLLOWING SECTION ADDED SEPTEMBER 2009
20593C     *************************************************************
20594C     **  SET TABULATION PLOT UNCERTAINTY INTERVAL <ON/OFF>      **
20595C     *************************************************************
20596C
20597      IPART1='TABU'
20598      IPART2='PLOT'
20599      IPART3='UNCE'
20600      IPART4='INTE'
20601      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
20602     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
20603        IF(IHARG(NUMARG).EQ.'ON')THEN
20604          ITPLUN='ON'
20605        ELSEIF(IHARG(NUMARG).EQ.'YES')THEN
20606          ITPLUN='ON'
20607        ELSEIF(IHARG(NUMARG).EQ.'TRUE')THEN
20608          ITPLUN='ON'
20609        ELSE
20610          ITPLUN='OFF'
20611        ENDIF
20612        IHV=ITPLUN
20613        GOTO5160
20614      ENDIF
20615C
20616CCCCC FOLLOWING SECTION ADDED DECEMBER 2009
20617C     *************************************************************
20618C     **  SET TABULATION PLOT UNCERTAINTY INTERVAL <ON/OFF>      **
20619C     *************************************************************
20620C
20621      IPART1='TABU'
20622      IPART2='PLOT'
20623      IPART3='UNCE'
20624      IPART4='INTE'
20625      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
20626     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
20627        IF(IHARG(NUMARG).EQ.'ON')THEN
20628          ITPLUN='ON'
20629        ELSEIF(IHARG(NUMARG).EQ.'YES')THEN
20630          ITPLUN='ON'
20631        ELSEIF(IHARG(NUMARG).EQ.'TRUE')THEN
20632          ITPLUN='ON'
20633        ELSE
20634          ITPLUN='OFF'
20635        ENDIF
20636        IHV=ITPLUN
20637        GOTO5160
20638      ENDIF
20639C
20640CCCCC FOLLOWING SECTION ADDED OCTOBER 2008
20641C     *************************************************************
20642C     **  SET STRIP PLOT INCREMENT                               **
20643C     *************************************************************
20644C
20645      IPART1='STRI'
20646      IPART2='PLOT'
20647      IPART3='INCR'
20648      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
20649     1   IHARG(3).EQ.IPART3)THEN
20650        IF(IHARG(NUMARG).EQ.'DEFA')THEN
20651          PSTRIN=1.0
20652        ELSEIF(IHARG(NUMARG).EQ.'ON  ')THEN
20653          PSTRIN=1.0
20654        ELSEIF(IHARG(NUMARG).EQ.'YES ')THEN
20655          PSTRIN=1.0
20656        ELSEIF(IHARG(NUMARG).EQ.'OFF ')THEN
20657          PSTRIN=1.0
20658        ELSEIF(IHARG(NUMARG).EQ.'NO  ')THEN
20659          PSTRIN=1.0
20660        ELSEIF(NUMARG.EQ.3)THEN
20661          PSTRIN=1.0
20662        ELSE
20663          PSTRIN=ARG(NUMARG)
20664          IF(PSTRIN.LE.0.0)PSTRIN=1.0
20665        ENDIF
20666        AV=PSTRIN
20667        GOTO5170
20668      ENDIF
20669C
20670CCCCC FOLLOWING SECTION ADDED NOVEMBER 2008
20671C     *************************************************************
20672C     **  SET STRIP PLOT STYLE                                   **
20673C     *************************************************************
20674C
20675      IPART1='STRI'
20676      IPART2='PLOT'
20677      IPART3='STYL'
20678      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
20679     1   IHARG(3).EQ.IPART3)THEN
20680        IF(IHARG(NUMARG).EQ.'DEFA')THEN
20681          ISTRPL='STAC'
20682        ELSEIF(IHARG(NUMARG).EQ.'ON  ')THEN
20683          ISTRPL='STAC'
20684        ELSEIF(IHARG(NUMARG).EQ.'YES ')THEN
20685          ISTRPL='STAC'
20686        ELSEIF(IHARG(NUMARG).EQ.'OFF ')THEN
20687          ISTRPL='STAC'
20688        ELSEIF(IHARG(NUMARG).EQ.'NO  ')THEN
20689          ISTRPL='STAC'
20690        ELSEIF(NUMARG.EQ.3)THEN
20691          ISTRPL='STAC'
20692        ELSE
20693          ISTRPL=IHARG(NUMARG)
20694          IF(ISTRPL.NE.'STAC' .AND. ISTRPL.NE.'JITT' .AND.
20695     1       ISTRPL.NE.'OVER')ISTRPL='STAC'
20696        ENDIF
20697        IHV=ISTRPL
20698        GOTO5160
20699      ENDIF
20700C
20701CCCCC FOLLOWING SECTION ADDED APRIL 2009
20702C     *************************************************************
20703C     **  SET BIPLOT COEFFICIENT <VALUE>                         **
20704C     *************************************************************
20705C
20706      IPART1='BIPL'
20707      IPART2='COEF'
20708      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
20709        IF(IHARG(NUMARG).EQ.'DEFA')THEN
20710          PBPLCO=0.5
20711        ELSEIF(IHARG(NUMARG).EQ.'ON  ')THEN
20712          PBPLCO=0.5
20713        ELSEIF(IHARG(NUMARG).EQ.'YES ')THEN
20714          PBPLCO=0.5
20715        ELSEIF(IHARG(NUMARG).EQ.'OFF ')THEN
20716          PBPLCO=0.5
20717        ELSEIF(IHARG(NUMARG).EQ.'NO  ')THEN
20718          PBPLCO=0.5
20719        ELSEIF(NUMARG.EQ.2)THEN
20720          PBPLCO=0.5
20721        ELSE
20722          PBPLCO=ARG(NUMARG)
20723          IF(PBPLCO.LT.0.0 .OR. PBPLCO.GT.1.0)PBPLCO=1.0
20724        ENDIF
20725        AV=PBPLCO
20726        GOTO5170
20727      ENDIF
20728C
20729CCCCC FOLLOWING SECTION ADDED SEPTEMBER 2009
20730C     *************************************************************
20731C     **  SET TABULATION PLOT X INCREMENT <VALUE>                **
20732C     *************************************************************
20733C
20734      IPART1='TABU'
20735      IPART2='PLOT'
20736      IPART3='X   '
20737      IPART4='INCR'
20738      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
20739     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
20740        IF(IHARG(NUMARG).EQ.'DEFA')THEN
20741          PTPLXI=0.05
20742        ELSEIF(IHARG(NUMARG).EQ.'ON  ')THEN
20743          PTPLXI=0.05
20744        ELSEIF(IHARG(NUMARG).EQ.'YES ')THEN
20745          PTPLXI=0.05
20746        ELSEIF(IHARG(NUMARG).EQ.'OFF ')THEN
20747          PTPLXI=0.05
20748        ELSEIF(IHARG(NUMARG).EQ.'NO  ')THEN
20749          PTPLXI=0.05
20750        ELSEIF(NUMARG.EQ.4)THEN
20751          PTPLXI=0.05
20752        ELSE
20753          PTPLXI=ARG(NUMARG)
20754          IF(PTPLXI.LT.0.0 .OR. PTPLXI.GT.0.2)PTPLXI=0.2
20755        ENDIF
20756        AV=PTPLXI
20757        GOTO5170
20758      ENDIF
20759C
20760CCCCC FOLLOWING SECTION ADDED SEPTEMBER 2009
20761C     *************************************************************
20762C     **  SET TABULATION PLOT Y INCREMENT <VALUE>                **
20763C     *************************************************************
20764C
20765      IPART1='TABU'
20766      IPART2='PLOT'
20767      IPART3='Y   '
20768      IPART4='INCR'
20769      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
20770     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
20771        IF(IHARG(NUMARG).EQ.'DEFA')THEN
20772          PTPLYI=0.05
20773        ELSEIF(IHARG(NUMARG).EQ.'ON  ')THEN
20774          PTPLYI=0.05
20775        ELSEIF(IHARG(NUMARG).EQ.'YES ')THEN
20776          PTPLYI=0.05
20777        ELSEIF(IHARG(NUMARG).EQ.'OFF ')THEN
20778          PTPLYI=0.05
20779        ELSEIF(IHARG(NUMARG).EQ.'NO  ')THEN
20780          PTPLYI=0.05
20781        ELSEIF(NUMARG.EQ.4)THEN
20782          PTPLYI=0.05
20783        ELSE
20784          PTPLYI=ARG(NUMARG)
20785          IF(PTPLYI.LT.0.0 .OR. PTPLYI.GT.0.2)PTPLYI=0.2
20786        ENDIF
20787        AV=PTPLYI
20788        GOTO5170
20789      ENDIF
20790C
20791CCCCC FOLLOWING SECTION ADDED DECEMBER 2009
20792C     *************************************************************
20793C     **  SET TABULATION PLOT NUMBER OF UNCERTAINTY INTERVALS    **
20794C     *************************************************************
20795C
20796      IPART1='TABU'
20797      IPART2='PLOT'
20798      IPART3='NUMB'
20799      IPART4='OF  '
20800      IPART5='UNCE'
20801      IPART6='INTE'
20802      IJUNK=50
20803      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
20804     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
20805     1   IHARG(5).EQ.IPART5.AND.IHARG(4).EQ.IPART4)THEN
20806        IF(IHARG(NUMARG).EQ.'DEFA')THEN
20807          ITPLNI=IJUNK
20808        ELSEIF(IHARG(NUMARG).EQ.'ON  ')THEN
20809          ITPLNI=IJUNK
20810        ELSEIF(IHARG(NUMARG).EQ.'YES ')THEN
20811          ITPLNI=IJUNK
20812        ELSEIF(IHARG(NUMARG).EQ.'OFF ')THEN
20813          ITPLNI=IJUNK
20814        ELSEIF(IHARG(NUMARG).EQ.'NO  ')THEN
20815          ITPLNI=IJUNK
20816        ELSEIF(NUMARG.EQ.4)THEN
20817          ITPLNI=IJUNK
20818        ELSE
20819          ITPLNI=INT(ARG(NUMARG)+0.5)
20820          IF(ITPLNI.LT.1 .OR. ITPLNI.GT.100)ITPLNI=IJUNK
20821        ENDIF
20822        IV=ITPLNI
20823        GOTO5150
20824      ENDIF
20825C
20826CCCCC FOLLOWING SECTION ADDED JUNE  2011
20827C     *************************************************************
20828C     **  SET MEDIAN TEST QUANTILE        <VALUE>                **
20829C     *************************************************************
20830C
20831      IPART1='MEDI'
20832      IPART2='TEST'
20833      IPART3='QUAN'
20834      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
20835     1   IHARG(3).EQ.IPART3)THEN
20836        IF(IHARG(NUMARG).EQ.'DEFA')THEN
20837          PMTEQU=0.5
20838        ELSEIF(IHARG(NUMARG).EQ.'ON  ')THEN
20839          PMTEQU=0.5
20840        ELSEIF(IHARG(NUMARG).EQ.'YES ')THEN
20841          PMTEQU=0.5
20842        ELSEIF(IHARG(NUMARG).EQ.'OFF ')THEN
20843          PMTEQU=0.5
20844        ELSEIF(IHARG(NUMARG).EQ.'NO  ')THEN
20845          PMTEQU=0.5
20846        ELSEIF(NUMARG.EQ.3)THEN
20847          PMTEQU=0.5
20848        ELSE
20849          PMTEQU=ARG(NUMARG)
20850          IF(PMTEQU.LE.0.0 .OR. PTPLYI.GE.1.0)PMTEQU=0.5
20851        ENDIF
20852        AV=PMTEQU
20853        GOTO5170
20854      ENDIF
20855C
20856CCCCC FOLLOWING SECTION ADDED SEPTEMBER 2010
20857C     *************************************************************
20858C     **  SET PAUSE LINES <VALUE>                                **
20859C     *************************************************************
20860C
20861      IPART1='PAUS'
20862      IPART2='LINE'
20863      IJUNK=0
20864      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
20865        IF(IHARG(NUMARG).EQ.'DEFA')THEN
20866          IPAULI=IJUNK
20867        ELSEIF(IHARG(NUMARG).EQ.'ON  ')THEN
20868          IPAULI=IJUNK
20869        ELSEIF(IHARG(NUMARG).EQ.'YES ')THEN
20870          IPAULI=IJUNK
20871        ELSEIF(IHARG(NUMARG).EQ.'OFF ')THEN
20872          IPAULI=IJUNK
20873        ELSEIF(IHARG(NUMARG).EQ.'NO  ')THEN
20874          IPAULI=IJUNK
20875        ELSEIF(NUMARG.EQ.2)THEN
20876          IPAULI=IJUNK
20877        ELSE
20878          IPAULI=INT(ARG(NUMARG)+0.5)
20879        ENDIF
20880        IF(IPAULI.LT.0)IPAULI=0
20881        IV=IPAULI
20882        GOTO5150
20883      ENDIF
20884C
20885CCCCC FOLLOWING SECTION ADDED DECEMBER  2011
20886C     *************************************************************
20887C     **  SET CHARACTER AUTOMATIC OFFSET                         **
20888C     *************************************************************
20889C
20890      IPART1='CHAR'
20891      IPART2='AUTO'
20892      IPART3='OFFS'
20893      IJUNK=0
20894      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
20895     1   IHARG(3).EQ.IPART3)THEN
20896        IF(IHARG(NUMARG).EQ.'DEFA')THEN
20897          ICHAOF=IJUNK
20898        ELSEIF(IHARG(NUMARG).EQ.'ON  ')THEN
20899          ICHAOF=IJUNK
20900        ELSEIF(IHARG(NUMARG).EQ.'YES ')THEN
20901          ICHAOF=IJUNK
20902        ELSEIF(IHARG(NUMARG).EQ.'OFF ')THEN
20903          ICHAOF=IJUNK
20904        ELSEIF(IHARG(NUMARG).EQ.'NO  ')THEN
20905          ICHAOF=IJUNK
20906        ELSEIF(NUMARG.EQ.3)THEN
20907          ICHAOF=IJUNK
20908        ELSE
20909          ICHAOF=INT(ARG(NUMARG)+0.5)
20910        ENDIF
20911        IF(ICHAOF.LT.0)ICHAOF=0
20912        IF(ICHAOF.GT.100)ICHAOF=0
20913        IV=ICHAOF
20914        GOTO5150
20915      ENDIF
20916C
20917CCCCC FOLLOWING SECTION ADDED JUNE   2012
20918C     *************************************************************
20919C     **  SET CHARACTER REPEAT OFFSET                            **
20920C     *************************************************************
20921C
20922      IPART1='CHAR'
20923      IPART2='REPE'
20924      IPART3='OFFS'
20925      IJUNK=0
20926      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
20927     1   IHARG(3).EQ.IPART3)THEN
20928        IF(IHARG(NUMARG).EQ.'DEFA')THEN
20929          ICHARO=IJUNK
20930        ELSEIF(IHARG(NUMARG).EQ.'ON  ')THEN
20931          ICHARO=IJUNK
20932        ELSEIF(IHARG(NUMARG).EQ.'YES ')THEN
20933          ICHARO=IJUNK
20934        ELSEIF(IHARG(NUMARG).EQ.'OFF ')THEN
20935          ICHARO=IJUNK
20936        ELSEIF(IHARG(NUMARG).EQ.'NO  ')THEN
20937          ICHARO=IJUNK
20938        ELSEIF(NUMARG.EQ.3)THEN
20939          ICHARO=IJUNK
20940        ELSE
20941          ICHARO=INT(ARG(NUMARG)+0.5)
20942        ENDIF
20943        IF(ICHARO.LT.0)ICHARO=-1
20944        IF(ICHARO.GT.99)ICHARO=-1
20945        IV=ICHARO
20946        GOTO5150
20947      ENDIF
20948C
20949CCCCC FOLLOWING SECTION ADDED JUNE  2012
20950C     *************************************************************
20951C     **  SET CHARACTER AUTOMATIC DYNAMIC <ON/OFF>               **
20952C     *************************************************************
20953C
20954      IPART1='CHAR'
20955      IPART2='AUTO'
20956      IPART3='DYNA'
20957      IPART4='STAT'
20958      IF(NUMARG.EQ.3.AND.IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
20959     1   IHARG(3).EQ.IPART3)THEN
20960        ICHADY='ON'
20961        IHV=ICHADY
20962        GOTO5160
20963      ELSEIF(NUMARG.EQ.3.AND.IHARG(1).EQ.IPART1.AND.
20964     1   IHARG(2).EQ.IPART2.AND.IHARG(3).EQ.IPART4)THEN
20965        ICHADY='OFF'
20966        IHV=ICHADY
20967        GOTO5160
20968      ELSEIF(NUMARG.GT.3.AND.IHARG(1).EQ.IPART1.AND.
20969     1   IHARG(2).EQ.IPART2.AND.IHARG(3).EQ.IPART3)THEN
20970        IF(IHARG(NUMARG).EQ.'OFF')THEN
20971           ICHADY='OFF'
20972        ELSEIF(IHARG(NUMARG).EQ.'NO')THEN
20973           ICHADY='OFF'
20974        ELSEIF(IHARG(NUMARG).EQ.'FALS')THEN
20975           ICHADY='OFF'
20976        ELSEIF(IHARG(NUMARG).EQ.'STAT')THEN
20977           ICHADY='OFF'
20978        ELSE
20979           ICHADY='ON'
20980        ENDIF
20981        IHV=ICHADY
20982        GOTO5160
20983      ENDIF
20984C
20985CCCCC FOLLOWING SECTION ADDED MARCH   2013
20986C     *************************************************************
20987C     **  SET CUMULATIVE STATISTIC START                         **
20988C     *************************************************************
20989C
20990      IPART1='CUMU'
20991      IPART2='STAT'
20992      IPART3='STAR'
20993      IJUNK=1
20994      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
20995     1   IHARG(3).EQ.IPART3)THEN
20996        IF(IHARG(NUMARG).EQ.'DEFA')THEN
20997          ICSTSV=IJUNK
20998        ELSEIF(IHARG(NUMARG).EQ.'ON  ')THEN
20999          ICSTSV=IJUNK
21000        ELSEIF(IHARG(NUMARG).EQ.'YES ')THEN
21001          ICSTSV=IJUNK
21002        ELSEIF(IHARG(NUMARG).EQ.'OFF ')THEN
21003          ICSTSV=IJUNK
21004        ELSEIF(IHARG(NUMARG).EQ.'NO  ')THEN
21005          ICSTSV=IJUNK
21006        ELSEIF(NUMARG.EQ.3)THEN
21007          ICSTSV=IJUNK
21008        ELSE
21009          ICSTSV=INT(ARG(NUMARG)+0.5)
21010        ENDIF
21011        IF(ICSTSV.LT.0)ICSTSV=1
21012        IV=ICSTSV
21013        GOTO5150
21014      ENDIF
21015C
21016CCCCC FOLLOWING SECTION ADDED JULY 2011
21017C     *************************************************************
21018C     **  SET LET CROSS TABULATE EMPTY                           **
21019C     *************************************************************
21020C
21021      IPART1='LET '
21022      IPART2='CROS'
21023      IPART3='TABU'
21024      IPART4='EMPT'
21025      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
21026     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
21027        IF(IHARG(NUMARG).EQ.'DEFA')THEN
21028          ICTAEM='EXCL'
21029        ELSEIF(IHARG(NUMARG).EQ.'EXCL')THEN
21030          ICTAEM='EXCL'
21031        ELSEIF(IHARG(NUMARG).EQ.'INCL')THEN
21032          ICTAEM='INCL'
21033        ELSEIF(IHARG(NUMARG).EQ.'ON  ')THEN
21034          ICTAEM='EXCL'
21035        ELSEIF(IHARG(NUMARG).EQ.'YES ')THEN
21036          ICTAEM='EXCL'
21037        ELSEIF(IHARG(NUMARG).EQ.'OFF ')THEN
21038          ICTAEM='EXCL'
21039        ELSEIF(IHARG(NUMARG).EQ.'NO  ')THEN
21040          ICTAEM='EXCL'
21041        ELSEIF(NUMARG.EQ.4)THEN
21042          ICTAEM='EXCL'
21043        ELSE
21044          ICTAEM=IHARG(NUMARG)
21045          IF(ICTAEM.NE.'INCL')ICTAEM='EXCL'
21046        ENDIF
21047        IHV=ICTAEM
21048        GOTO5160
21049      ENDIF
21050C
21051CCCCC FOLLOWING SECTION ADDED JULY 2011
21052C     *************************************************************
21053C     **  SET LET CROSS TABULATE COMPLEMENT <ON/OFF/ONE/TWO>     **
21054C     *************************************************************
21055C
21056      IPART1='LET '
21057      IPART2='CROS'
21058      IPART3='TABU'
21059      IPART4='COMP'
21060      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
21061     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
21062        IF(IHARG(NUMARG).EQ.'DEFA')THEN
21063          ICTACO='OFF'
21064        ELSEIF(IHARG(NUMARG).EQ.'ON  ')THEN
21065          ICTACO='ON'
21066        ELSEIF(IHARG(NUMARG).EQ.'YES ')THEN
21067          ICTACO='ON'
21068        ELSEIF(IHARG(NUMARG).EQ.'OFF ')THEN
21069          ICTACO='OFF'
21070        ELSEIF(IHARG(NUMARG).EQ.'NO  ')THEN
21071          ICTACO='OFF'
21072        ELSEIF(IHARG(NUMARG).EQ.'ONE ')THEN
21073          ICTACO='ONE'
21074        ELSEIF(IHARG(NUMARG).EQ.'1   ')THEN
21075          ICTACO='ONE'
21076        ELSEIF(IHARG(NUMARG).EQ.'TWO ')THEN
21077          ICTACO='TWO'
21078        ELSEIF(IHARG(NUMARG).EQ.'2   ')THEN
21079          ICTACO='TWO'
21080        ELSEIF(NUMARG.EQ.4)THEN
21081          ICTACO='OFF'
21082        ELSE
21083          ICTACO='OFF'
21084        ENDIF
21085        IHV=ICTACO
21086        GOTO5160
21087      ENDIF
21088C
21089CCCCC FOLLOWING SECTION ADDED JUNE 2016
21090C     *************************************************************
21091C     **  SET LET CROSS TABULATE GROUPS                          **
21092C     *************************************************************
21093C
21094      IPART1='LET '
21095      IPART2='CROS'
21096      IPART3='TABU'
21097      IPART4='GROU'
21098      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
21099     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
21100        IF(IHARG(NUMARG).EQ.'NONC')THEN
21101          ICTAGR='NONC'
21102        ELSE
21103          ICTAGR='CONT'
21104        ENDIF
21105        IHV=ICTAGR
21106        GOTO5160
21107      ENDIF
21108C
21109CCCCC FOLLOWING SECTION ADDED FEBRUARY 2009
21110C     *************************************************************
21111C     **  SET LET CROSS TABULATE                                 **
21112C     *************************************************************
21113C
21114      IPART1='LET '
21115      IPART2='CROS'
21116      IPART3='TABU'
21117      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
21118     1   IHARG(3).EQ.IPART3)THEN
21119        IF(IHARG(NUMARG).EQ.'DEFA')THEN
21120          ICTALT='EXPA'
21121        ELSEIF(IHARG(NUMARG).EQ.'EXPA')THEN
21122          ICTALT='EXPA'
21123        ELSEIF(IHARG(NUMARG).EQ.'ON  ')THEN
21124          ICTALT='EXPA'
21125        ELSEIF(IHARG(NUMARG).EQ.'YES ')THEN
21126          ICTALT='EXPA'
21127        ELSEIF(IHARG(NUMARG).EQ.'COLL')THEN
21128          ICTALT='COLL'
21129        ELSEIF(IHARG(NUMARG).EQ.'OFF ')THEN
21130          ICTALT='COLL'
21131        ELSEIF(IHARG(NUMARG).EQ.'NO  ')THEN
21132          ICTALT='COLL'
21133        ELSEIF(NUMARG.EQ.3)THEN
21134          ICTALT='EXPA'
21135        ELSE
21136          ICTALT=IHARG(NUMARG)
21137          IF(ICTALT.NE.'EXPA' .AND. ICTALT.NE.'COLL')ICTALT='EXPA'
21138        ENDIF
21139        IHV=ICTALT
21140        GOTO5160
21141      ENDIF
21142C
21143CCCCC FOLLOWING SECTION ADDED FEBRUARY 2009
21144C     *************************************************************
21145C     **  SET STRING SPACE <EXPAND/IGNORE>                       **
21146C     *************************************************************
21147C
21148      IPART1='STRI'
21149      IPART2='SPAC'
21150      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
21151        IF(IHARG(NUMARG).EQ.'DEFA')THEN
21152          ISTRSP='EXPA'
21153        ELSEIF(IHARG(NUMARG).EQ.'EXPA')THEN
21154          ISTRSP='EXPA'
21155        ELSEIF(IHARG(NUMARG).EQ.'ON  ')THEN
21156          ISTRSP='EXPA'
21157        ELSEIF(IHARG(NUMARG).EQ.'YES ')THEN
21158          ISTRSP='EXPA'
21159        ELSEIF(IHARG(NUMARG).EQ.'IGNO')THEN
21160          ISTRSP='IGNO'
21161        ELSEIF(IHARG(NUMARG).EQ.'OFF ')THEN
21162          ISTRSP='IGNO'
21163        ELSEIF(IHARG(NUMARG).EQ.'NO  ')THEN
21164          ISTRSP='IGNO'
21165        ELSEIF(NUMARG.EQ.3)THEN
21166          ISTRSP='EXPA'
21167        ELSE
21168          ISTRSP=IHARG(NUMARG)
21169          IF(ISTRSP.NE.'EXPA' .AND. ISTRSP.NE.'IGNO')ISTRSP='EXPA'
21170        ENDIF
21171        IHV=ISTRSP
21172        GOTO5160
21173      ENDIF
21174C
21175CCCCC FOLLOWING SECTION ADDED MARCH  2009
21176C     *************************************************************
21177C     **  SET STATISTIC PLOT FORMAT <DEX/OVERLAY>                **
21178C     *************************************************************
21179C
21180      IPART1='STAT'
21181      IPART2='PLOT'
21182      IPART3='FORM'
21183      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
21184     1   IHARG(3).EQ.IPART3)THEN
21185        IF(IHARG(NUMARG).EQ.'DEFA')THEN
21186          ISTAFO='DEX '
21187        ELSEIF(IHARG(NUMARG).EQ.'ON  ')THEN
21188          ISTAFO='DEX '
21189        ELSEIF(IHARG(NUMARG).EQ.'YES ')THEN
21190          ISTAFO='DEX '
21191        ELSEIF(IHARG(NUMARG).EQ.'OFF ')THEN
21192          ISTAFO='OVER'
21193        ELSEIF(IHARG(NUMARG).EQ.'NO  ')THEN
21194          ISTAFO='OVER'
21195        ELSEIF(NUMARG.EQ.3)THEN
21196          ISTAFO='DEX '
21197        ELSE
21198          ISTAFO=IHARG(NUMARG)
21199          IF(ISTAFO.NE.'DEX ' .AND. ISTAFO.NE.'OVER')ISTAFO='DEX '
21200        ENDIF
21201        IHV=ISTAFO
21202        GOTO5160
21203      ENDIF
21204C
21205CCCCC FOLLOWING SECTION ADDED MARCH  2009
21206C     *************************************************************
21207C     **  SET STATISTIC PLOT SUMMARY  <VARIABLE/GROUP>           **
21208C     *************************************************************
21209C
21210      IPART1='STAT'
21211      IPART2='PLOT'
21212      IPART3='SUMM'
21213      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
21214     1   IHARG(3).EQ.IPART3)THEN
21215        IF(IHARG(NUMARG).EQ.'DEFA')THEN
21216          ISTASM='VARI'
21217        ELSEIF(IHARG(NUMARG).EQ.'ON  ')THEN
21218          ISTASM='VARI'
21219        ELSEIF(IHARG(NUMARG).EQ.'YES ')THEN
21220          ISTASM='VARI'
21221        ELSEIF(IHARG(NUMARG).EQ.'COLU')THEN
21222          ISTASM='VARI'
21223        ELSEIF(IHARG(NUMARG).EQ.'OFF ')THEN
21224          ISTASM='GROU'
21225        ELSEIF(IHARG(NUMARG).EQ.'NO  ')THEN
21226          ISTASM='GROU'
21227        ELSEIF(IHARG(NUMARG).EQ.'ROW ')THEN
21228          ISTASM='GROU'
21229        ELSEIF(IHARG(NUMARG).EQ.'ROWS')THEN
21230          ISTASM='GROU'
21231        ELSEIF(NUMARG.EQ.3)THEN
21232          ISTASM='VARI'
21233        ELSE
21234          ISTASM=IHARG(NUMARG)
21235          IF(ISTASM.NE.'VARI' .AND. ISTASM.NE.'GROU')ISTASM='VARI'
21236        ENDIF
21237        IHV=ISTASM
21238        GOTO5160
21239      ENDIF
21240C
21241CCCCC FOLLOWING SECTION ADDED APRIL  2009
21242C     *************************************************************
21243C     **  SET BIPLOT SCALE <COLUMN MEAN/GRAND MEAN/NONE>         **
21244C     *************************************************************
21245C
21246      IPART1='BIPL'
21247      IPART2='SCAL'
21248      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
21249        IF(IHARG(NUMARG).EQ.'DEFA')THEN
21250          IBPLSC='CMEA'
21251        ELSEIF(IHARG(NUMARG).EQ.'ON  ')THEN
21252          IBPLSC='CMEA'
21253        ELSEIF(IHARG(NUMARG).EQ.'YES ')THEN
21254          IBPLSC='CMEA'
21255        ELSEIF(IHARG(NUMARG).EQ.'OFF ')THEN
21256          IBPLSC='NONE'
21257        ELSEIF(IHARG(NUMARG).EQ.'NO  ')THEN
21258          IBPLSC='NONE'
21259        ELSEIF(NUMARG.EQ.2)THEN
21260          IBPLSC='CMEA'
21261        ELSEIF(IHARG(3).EQ.'COLU')THEN
21262          IBPLSC='CMEA'
21263        ELSEIF(IHARG(3).EQ.'NONE')THEN
21264          IBPLSC='NONE'
21265        ELSEIF(IHARG(3).EQ.'GRAN'.AND.IHARG(4).EQ.'MEAN')THEN
21266          IBPLSC='GMEA'
21267        ELSEIF(IHARG(3).EQ.'MEAN')THEN
21268          IBPLSC='GMEA'
21269        ELSE
21270          IBPLSC='CMEA'
21271        ENDIF
21272        IHV=IBPLSC
21273        GOTO5160
21274      ENDIF
21275C
21276CCCCC FOLLOWING SECTION ADDED APRIL  2009
21277C     *************************************************************
21278C     **  SET DATA MISSING VALUE <VALUE>                         **
21279C     *************************************************************
21280C
21281      IPART1='DATA'
21282      IPART2='MISS'
21283      IPART3='VALU'
21284      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
21285     1   IHARG(3).EQ.IPART3)THEN
21286        IF(IHARG(NUMARG).EQ.'DEFA')THEN
21287          IDATMV='MV'
21288        ELSEIF(IHARG(NUMARG).EQ.'ON  ')THEN
21289          IDATMV='MV'
21290        ELSEIF(IHARG(NUMARG).EQ.'YES ')THEN
21291          IDATMV='MV'
21292        ELSEIF(IHARG(NUMARG).EQ.'OFF ')THEN
21293          IDATMV='   '
21294        ELSEIF(IHARG(NUMARG).EQ.'NO  ')THEN
21295          IDATMV='    '
21296        ELSEIF(NUMARG.EQ.3)THEN
21297          IDATMV='MV'
21298        ELSE
21299          IDATMV=IHARG(NUMARG)
21300        ENDIF
21301        IHV=IDATMV
21302        GOTO5160
21303      ENDIF
21304C
21305CCCCC FOLLOWING SECTION ADDED APRIL  2009
21306C     *************************************************************
21307C     **  SET READ LINE <ON/OFF>                                 **
21308C     *************************************************************
21309C
21310      IPART1='READ'
21311      IPART2='LINE'
21312      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
21313        IF(IHARG(NUMARG).EQ.'DEFA')THEN
21314          IREALI='OFF'
21315        ELSEIF(IHARG(NUMARG).EQ.'ON  ')THEN
21316          IREALI='ON'
21317        ELSEIF(IHARG(NUMARG).EQ.'YES ')THEN
21318          IREALI='ON'
21319        ELSEIF(IHARG(NUMARG).EQ.'OFF ')THEN
21320          IREALI='OFF'
21321        ELSEIF(IHARG(NUMARG).EQ.'NO  ')THEN
21322          IREALI='OFF'
21323        ELSEIF(NUMARG.EQ.2)THEN
21324          IREALI='OFF'
21325        ELSE
21326          IREALI=IHARG(NUMARG)
21327        ENDIF
21328        IF(IREALI.NE.'ON' .AND. IREALI.NE.'OFF')IREALI='OFF'
21329        IHV=IREALI
21330        GOTO5160
21331      ENDIF
21332C
21333CCCCC FOLLOWING SECTION ADDED SEPTEMBER  2009
21334C     *************************************************************
21335C     **  SET KOLM SMIR CRITICAL VALUE <TABLE/SIMULATION/NONE>   **
21336C     *************************************************************
21337C
21338      IPART1='KOLM'
21339      IPART2='SMIR'
21340      IPART3='CRIT'
21341      IPART4='VALU'
21342      IPART5='KS '
21343      IF(
21344     1  (IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
21345     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4) .OR.
21346     1  (IHARG(1).EQ.IPART5.AND.IHARG(2).EQ.IPART3.AND.
21347     1   IHARG(3).EQ.IPART4)
21348     1)THEN
21349        IPART6='TABL'
21350        IF(IHARG(NUMARG).EQ.'DEFA')THEN
21351          IKSCVM=IPART6
21352        ELSEIF(IHARG(NUMARG).EQ.'ON  ')THEN
21353          IKSCVM=IPART6
21354        ELSEIF(IHARG(NUMARG).EQ.'YES ')THEN
21355          IKSCVM=IPART6
21356        ELSEIF(IHARG(NUMARG).EQ.'OFF ')THEN
21357          IKSCVM='NONE'
21358        ELSEIF(IHARG(NUMARG).EQ.'NO  ')THEN
21359          IKSCVM='NONE'
21360        ELSEIF(IHARG(NUMARG).EQ.'NONE')THEN
21361          IKSCVM='NONE'
21362        ELSEIF(NUMARG.EQ.3)THEN
21363          IKSCVM=IPART6
21364        ELSEIF(IHARG(NUMARG).EQ.'TABL')THEN
21365          IKSCVM='TABL'
21366        ELSEIF(IHARG(NUMARG).EQ.'SIMU')THEN
21367          IKSCVM='SIMU'
21368        ELSE
21369          IKSCVM=IPART6
21370        ENDIF
21371        IHV=IKSCVM
21372        GOTO5160
21373      ENDIF
21374C
21375CCCCC FOLLOWING SECTION ADDED SEPTEMBER  2009
21376C     *************************************************************
21377C     **  SET ANDE DARL CRITICAL VALUE <TABLE/SIMULATION/NONE>   **
21378C     *************************************************************
21379C
21380      IPART1='ANDE'
21381      IPART2='DARL'
21382      IPART3='CRIT'
21383      IPART4='VALU'
21384      IPART5='AD '
21385      IF(
21386     1  (IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
21387     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4) .OR.
21388     1  (IHARG(1).EQ.IPART5.AND.IHARG(2).EQ.IPART3.AND.
21389     1   IHARG(3).EQ.IPART4)
21390     1)THEN
21391        IPART6='TABL'
21392        IF(IHARG(NUMARG).EQ.'DEFA')THEN
21393          IADCVM=IPART6
21394        ELSEIF(IHARG(NUMARG).EQ.'ON  ')THEN
21395          IADCVM=IPART6
21396        ELSEIF(IHARG(NUMARG).EQ.'YES ')THEN
21397          IADCVM=IPART6
21398        ELSEIF(IHARG(NUMARG).EQ.'OFF ')THEN
21399          IADCVM='NONE'
21400        ELSEIF(IHARG(NUMARG).EQ.'NO  ')THEN
21401          IADCVM='NONE'
21402        ELSEIF(IHARG(NUMARG).EQ.'NONE')THEN
21403          IADCVM='NONE'
21404        ELSEIF(NUMARG.EQ.3)THEN
21405          IADCVM=IPART6
21406        ELSEIF(IHARG(NUMARG).EQ.'TABL')THEN
21407          IADCVM='TABL'
21408        ELSEIF(IHARG(NUMARG).EQ.'SIMU')THEN
21409          IADCVM='SIMU'
21410        ELSE
21411          IADCVM=IPART6
21412        ENDIF
21413        IHV=IADCVM
21414        GOTO5160
21415      ENDIF
21416C
21417CCCCC FOLLOWING SECTION ADDED SEPTEMBER  2009
21418C     *************************************************************
21419C     **  SET TABULATION PLOT DIRECTION <X/Y>                    **
21420C     *************************************************************
21421C
21422      IPART1='TABU'
21423      IPART2='PLOT'
21424      IPART3='DIRE'
21425      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
21426     1   IHARG(3).EQ.IPART3)THEN
21427        IF(IHARG(NUMARG).EQ.'DEFA')THEN
21428          ITPLDI='Y'
21429        ELSEIF(IHARG(NUMARG).EQ.'OFF ')THEN
21430          ITPLDI='Y'
21431        ELSEIF(IHARG(NUMARG).EQ.'NO  ')THEN
21432          ITPLDI='Y'
21433        ELSEIF(IHARG(NUMARG).EQ.'FALS')THEN
21434          ITPLDI='Y'
21435        ELSEIF(NUMARG.EQ.3)THEN
21436          ITPLDI='Y'
21437        ELSEIF(IHARG(NUMARG).EQ.'ON  ')THEN
21438          ITPLDI='Y'
21439        ELSEIF(IHARG(NUMARG).EQ.'YES ')THEN
21440          ITPLDI='Y'
21441        ELSEIF(IHARG(NUMARG).EQ.'TRUE')THEN
21442          ITPLDI='Y'
21443        ELSEIF(IHARG(NUMARG).EQ.'VERT')THEN
21444          ITPLDI='Y'
21445        ELSEIF(IHARG(NUMARG).EQ.'X')THEN
21446          ITPLDI='X'
21447        ELSEIF(IHARG(NUMARG).EQ.'HORI')THEN
21448          ITPLDI='X'
21449        ELSE
21450          ITPLDI='X'
21451        ENDIF
21452        IHV=ITPLDI
21453        GOTO5160
21454      ENDIF
21455C
21456CCCCC FOLLOWING SECTION ADDED JUNE  2010
21457C     *************************************************************
21458C     **  SET FLUCTUATION PLOT DIRECTION <X/Y>                   **
21459C     *************************************************************
21460C
21461      IPART1='FLUC'
21462      IPART2='PLOT'
21463      IPART3='DIRE'
21464      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
21465     1   IHARG(3).EQ.IPART3)THEN
21466        IF(IHARG(NUMARG).EQ.'DEFA')THEN
21467          IFLUDI='Y'
21468        ELSEIF(IHARG(NUMARG).EQ.'OFF ')THEN
21469          IFLUDI='Y'
21470        ELSEIF(IHARG(NUMARG).EQ.'NO  ')THEN
21471          IFLUDI='Y'
21472        ELSEIF(IHARG(NUMARG).EQ.'FALS')THEN
21473          IFLUDI='Y'
21474        ELSEIF(NUMARG.EQ.3)THEN
21475          IFLUDI='Y'
21476        ELSEIF(IHARG(NUMARG).EQ.'ON  ')THEN
21477          IFLUDI='Y'
21478        ELSEIF(IHARG(NUMARG).EQ.'YES ')THEN
21479          IFLUDI='Y'
21480        ELSEIF(IHARG(NUMARG).EQ.'TRUE')THEN
21481          IFLUDI='Y'
21482        ELSEIF(IHARG(NUMARG).EQ.'VERT')THEN
21483          IFLUDI='Y'
21484        ELSEIF(IHARG(NUMARG).EQ.'X')THEN
21485          IFLUDI='X'
21486        ELSEIF(IHARG(NUMARG).EQ.'HORI')THEN
21487          IFLUDI='X'
21488        ELSE
21489          IFLUDI='X'
21490        ENDIF
21491        IHV=IFLUDI
21492        GOTO5160
21493      ENDIF
21494C
21495CCCCC FOLLOWING SECTION ADDED JUNE  2010
21496C     ***************************************************************
21497C     **  SET FLUCTUATION PLOT BAR DIRECTION <VERTICAL/HORIZONTAL> **
21498C     ***************************************************************
21499C
21500      IPART1='FLUC'
21501      IPART2='PLOT'
21502      IPART3='BAR '
21503      IPART4='DIRE'
21504      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
21505     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
21506        IF(IHARG(NUMARG).EQ.'HORI')THEN
21507          IFLUBD='HORI'
21508        ELSE
21509          IFLUBD='VERT'
21510        ENDIF
21511        IHV=IFLUBD
21512        GOTO5160
21513      ENDIF
21514C
21515CCCCC FOLLOWING SECTION ADDED MAY    2011
21516C     *************************************************************
21517C     **  SET GOODNESS OF FIT FIT METHOD <ML/PPCC>               **
21518C     *************************************************************
21519C
21520C     NOTE: SET TO "NULL" IF ML OR PPCC NOT EXPLICTLY SPECIFIED
21521C
21522      IPART1='GOOD'
21523      IPART2='OF  '
21524      IPART3='FIT '
21525      IPART4='FIT '
21526      IPART5='METH'
21527      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
21528     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
21529     1   IHARG(5).EQ.IPART5)THEN
21530        IF(IHARG(NUMARG).EQ.'PPCC')THEN
21531          IGOFFM='PPCC'
21532        ELSEIF(IHARG(NUMARG).EQ.'ML')THEN
21533          IGOFFM='ML'
21534        ELSEIF(IHARG(6).EQ.'MAXI' .AND. IHARG(7).EQ.'LIKE')THEN
21535          IGOFFM='ML'
21536        ELSEIF(IHARG(NUMARG).EQ.'DEFA')THEN
21537          IGOFFM='DEFA'
21538        ELSE
21539          IGOFFM='NULL'
21540        ENDIF
21541        IHV=IGOFFM
21542        GOTO5160
21543      ENDIF
21544C
21545CCCCC FOLLOWING SECTION ADDED OCTOBER    2009
21546C     *************************************************************
21547C     **  SET GOODNESS OF FIT FULLY SPECIFIED <ON/OFF>           **
21548C     *************************************************************
21549C
21550      IPART1='GOOD'
21551      IPART2='OF  '
21552      IPART3='FIT '
21553      IPART4='FULL'
21554      IPART5='SPEC'
21555      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
21556     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
21557     1   IHARG(5).EQ.IPART5)THEN
21558        IF(IHARG(NUMARG).EQ.'DEFA')THEN
21559          IGOFFS='ON'
21560        ELSEIF(IHARG(NUMARG).EQ.'OFF ')THEN
21561          IGOFFS='OFF'
21562        ELSEIF(IHARG(NUMARG).EQ.'NO  ')THEN
21563          IGOFFS='OFF'
21564        ELSEIF(IHARG(NUMARG).EQ.'FALS')THEN
21565          IGOFFS='OFF'
21566        ELSEIF(NUMARG.EQ.5)THEN
21567          IGOFFS='ON'
21568        ELSEIF(IHARG(NUMARG).EQ.'ON  ')THEN
21569          IGOFFS='ON'
21570        ELSEIF(IHARG(NUMARG).EQ.'YES ')THEN
21571          IGOFFS='ON'
21572        ELSEIF(IHARG(NUMARG).EQ.'TRUE')THEN
21573          IGOFFS='ON'
21574        ELSE
21575          IGOFFS='ON'
21576        ENDIF
21577        IHV=IGOFFS
21578        GOTO5160
21579      ENDIF
21580C
21581CCCCC FOLLOWING SECTION ADDED MARCH 2008
21582C     *************************************************************
21583C     **  SET COLOR MAXIMUM  <VALUE>                             **
21584C     *************************************************************
21585C
21586CCCCC FOLLOWING SECTION ADDED MARCH 2008
21587C     *************************************************************
21588C     **  SET COLOR MAXIMUM  <VALUE>                             **
21589C     *************************************************************
21590C
21591      IPART1='COLO'
21592      IPART2='MAXI'
21593      IF((IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2) .OR.
21594     1   (IHARG(2).EQ.IPART2.AND.IHARG(2).EQ.IPART1))THEN
21595        IF(IHARG(NUMARG).EQ.'DEFA')THEN
21596          PCOLMX=255.
21597        ELSEIF(IHARG(NUMARG).EQ.'ON  ')THEN
21598          PCOLMX=255.
21599        ELSEIF(IHARG(NUMARG).EQ.'YES ')THEN
21600          PCOLMX=255.
21601        ELSEIF(IHARG(NUMARG).EQ.'OFF ')THEN
21602          PCOLMX=255.
21603        ELSEIF(IHARG(NUMARG).EQ.'NO  ')THEN
21604          PCOLMX=255.
21605        ELSEIF(NUMARG.EQ.3)THEN
21606          PCOLMX=255.
21607        ELSE
21608          PCOLMX=ARG(NUMARG)
21609        ENDIF
21610        AV=PCOLMX
21611        GOTO5170
21612      ENDIF
21613C
21614CCCCC FOLLOWING SECTION ADDED NOVEMBER 2002
21615C     ****************************************************************
21616C     **  SET QWIN SYSTEM <SYSTEMQQ/WINEXEC/RUNQQ/SHELL EXECUTE/    **
21617C     **                   CREATE PROCESS/EXECUTE COMMAND LINE>     **
21618C     ****************************************************************
21619C
21620C     2016/08: ADD RUNQQ OPTION
21621C     2018/04: ADD SHELL EXECUTE OPTION
21622C     2018/04: TREAT WINEXEC, SHELL EXECUTE, SHELL PROCESS AS EQUIVALENT
21623C              TO "EXECUTE COMMAND LINE"
21624C
21625      IPART1='QWIN'
21626      IPART2='SYST'
21627      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
21628        IQWNSY='SYST'
21629        IF(IHARG(3).EQ.'RUNQ')IQWNSY='RUNQ'
21630CCCCC   IF(IHARG(3).EQ.'WINE')IQWNSY='WINE'
21631CCCCC   IF(IHARG(3).EQ.'SHEL')IQWNSY='SHEL'
21632CCCCC   IF(IHARG(3).EQ.'CREA')IQWNSY='CREA'
21633        IF(IHARG(3).EQ.'WINE')IQWNSY='COMM'
21634        IF(IHARG(3).EQ.'SHEL')IQWNSY='COMM'
21635        IF(IHARG(3).EQ.'CREA')IQWNSY='COMM'
21636        IF(IHARG(3).EQ.'COMM')IQWNSY='COMM'
21637        IF(IHARG(3).EQ.'EXEC')IQWNSY='COMM'
21638        IHV=IQWNSY
21639        GOTO5160
21640      ENDIF
21641C
21642CCCCC FOLLOWING SECTION ADDED APRIL 2018
21643C     ****************************************************************
21644C     **  SET LINUX SYSTEM <SYSTEM/COMMAND LINE EXECUTE>            **
21645C     ****************************************************************
21646C
21647      IPART1='LINU'
21648      IPART2='SYST'
21649      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
21650        ILINSY='SYST'
21651        IF(IHARG(3).EQ.'COMM')ILINSY='COMM'
21652        IHV=ILINSY
21653        GOTO5160
21654      ENDIF
21655C
21656CCCCC FOLLOWING SECTION ADDED NOVEMBER 2002
21657C     ****************************************************************
21658C     **  SET GHOSTSCRIPT PRINTER <ON/OFF>                          **
21659C     ****************************************************************
21660C
21661      IPART1='GHOS'
21662      IPART2='PRIN'
21663      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
21664        IPRNGS='OFF'
21665        IF(IHARG(3).EQ.'ON')IPRNGS='ON'
21666        IF(IHARG(3).EQ.'YES')IPRNGS='ON'
21667        IHV=IPRNGS
21668        GOTO5160
21669      ENDIF
21670C
21671CCCCC FOLLOWING SECTION ADDED JANUARY 2003
21672C     ****************************************************************
21673C     **  SET POSTSCRIPT BOUNDING BOX <FIXED/FLOAT>                 **
21674C     ****************************************************************
21675C
21676      IPART1='POST'
21677      IPART2='BOUN'
21678      IPART3='BOX '
21679      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
21680     1   IHARG(3).EQ.IPART3)THEN
21681        IPSTBB='FIXE'
21682        IF(IHARG(4).EQ.'FLOA')IPSTBB='FLOA'
21683        IHV=IPSTBB
21684        GOTO5160
21685      ENDIF
21686C
21687CCCCC FOLLOWING SECTION ADDED JANUARY 2003
21688CCCCC MODIFIED OCTOBER 2007: ADD KEYWORD TO SPECIFY WHETHER
21689CCCCC CONVERSION PERFORMED BY "GHOSTSCRIPT" OR "CONVERT".
21690C     ****************************************************************
21691C     **  SET POSTSCRIPT CONVERT <GHOSTSCRIPT/CONVERT/PS2PDF>       **
21692C     **                         <JPEG/PDF/TIFF/PBM/PNG/PNM/PPM>    **
21693C     ****************************************************************
21694C
21695      IPART1='POST'
21696      IPART2='CONV'
21697      IPART3='OUTP'
21698      IPART4='DEVI'
21699      IPART5='GHOS'
21700      IPART6='PS2P'
21701      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
21702        IPSTDV='NULL'
21703C
21704        IPSTD2='GHOS'
21705        IF(IHARG(3).EQ.IPART2)THEN
21706          IPSTD2='CONV'
21707        ELSEIF(IHARG(3).EQ.IPART6)THEN
21708          IPSTD2='PS2P'
21709        ENDIF
21710C
21711        IF(IHARG(3).EQ.'JPEG')IPSTDV='JPEG'
21712        IF(IHARG(3).EQ.'PDF ')IPSTDV='PDF '
21713        IF(IHARG(3).EQ.'TIFF')IPSTDV='TIFF'
21714        IF(IHARG(3).EQ.'PBM ')IPSTDV='PBM '
21715        IF(IHARG(3).EQ.'PNG ')IPSTDV='PNG '
21716        IF(IHARG(3).EQ.'PGM ')IPSTDV='PGM '
21717        IF(IHARG(3).EQ.'PNM ')IPSTDV='PNM '
21718        IF(IHARG(3).EQ.'PPM ')IPSTDV='PPM '
21719        IF(IHARG(4).EQ.'JPEG')IPSTDV='JPEG'
21720        IF(IHARG(4).EQ.'PDF ')IPSTDV='PDF '
21721        IF(IHARG(4).EQ.'TIFF')IPSTDV='TIFF'
21722        IF(IHARG(4).EQ.'PBM ')IPSTDV='PBM '
21723        IF(IHARG(4).EQ.'PNG ')IPSTDV='PNG '
21724        IF(IHARG(4).EQ.'PGM ')IPSTDV='PGM '
21725        IF(IHARG(4).EQ.'PNM ')IPSTDV='PNM '
21726        IF(IHARG(4).EQ.'PPM ')IPSTDV='PPM '
21727        IF(IPSTD2.EQ.'PS2P')IPSTDV='PDF'
21728        IHV=IPSTDV
21729        GOTO5160
21730      ELSEIF(IHARG(1).EQ.IPART3.AND.IHARG(2).EQ.IPART4)THEN
21731        IPSTDV='NULL'
21732C
21733        IPSTD2='GHOS'
21734        IF(IHARG(3).EQ.IPART2)THEN
21735          IPSTD2='CONV'
21736        ELSEIF(IHARG(3).EQ.IPART6)THEN
21737          IPSTD2='PS2P'
21738        ENDIF
21739C
21740        IF(IHARG(3).EQ.'JPEG')IPSTDV='JPEG'
21741        IF(IHARG(3).EQ.'PDF ')IPSTDV='PDF '
21742        IF(IHARG(3).EQ.'TIFF')IPSTDV='TIFF'
21743        IF(IHARG(3).EQ.'PBM ')IPSTDV='PBM '
21744        IF(IHARG(3).EQ.'PNG ')IPSTDV='PNG '
21745        IF(IHARG(3).EQ.'PGM ')IPSTDV='PGM '
21746        IF(IHARG(3).EQ.'PNM ')IPSTDV='PNM '
21747        IF(IHARG(3).EQ.'PPM ')IPSTDV='PPM '
21748        IF(IHARG(4).EQ.'JPEG')IPSTDV='JPEG'
21749        IF(IHARG(4).EQ.'PDF ')IPSTDV='PDF '
21750        IF(IHARG(4).EQ.'TIFF')IPSTDV='TIFF'
21751        IF(IHARG(4).EQ.'PBM ')IPSTDV='PBM '
21752        IF(IHARG(4).EQ.'PNG ')IPSTDV='PNG '
21753        IF(IHARG(4).EQ.'PGM ')IPSTDV='PGM '
21754        IF(IHARG(4).EQ.'PNM ')IPSTDV='PNM '
21755        IF(IHARG(4).EQ.'PPM ')IPSTDV='PPM '
21756        IHV=IPSTDV
21757        GOTO5160
21758      ENDIF
21759C
21760CCCCC FOLLOWING SECTION ADDED FEBRUARY 2005
21761C     ****************************************************************
21762C     **  SET PARAMETER EXPANSION DIGIT <VALUE>                     **
21763C     ****************************************************************
21764C
21765      IPART1='PARA'
21766      IPART2='EXPA'
21767      IPART3='DIGI'
21768      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
21769     1   IHARG(3).EQ.IPART3)THEN
21770        IF(IHARG(4).EQ.'DEFAU' .OR. IHARG(4).EQ.'ON' .OR.
21771     1     IHARG(4).EQ.'OFF')THEN
21772          IEXPDI=-1
21773        ELSE
21774          IEXPDI=IV
21775        ENDIF
21776        IV=IEXPDI
21777        GOTO5150
21778      ENDIF
21779C
21780CCCCC FOLLOWING SECTION ADDED MARCH 2005
21781C     ********************************************************
21782C     **  SET LINE PRINTER COLUMNS <VALUE>                  **
21783C     ********************************************************
21784C
21785      IPART1='LINE'
21786      IPART2='PRIN'
21787      IPART3='COLU'
21788      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
21789     1   IHARG(3).EQ.IPART3)THEN
21790        IF(IHARG(4).EQ.'DEFAU' .OR. IHARG(4).EQ.'ON' .OR.
21791     1     IHARG(4).EQ.'OFF')THEN
21792          ILPRCO=80
21793        ELSE
21794          ILPRCO=IV
21795        ENDIF
21796        IF(ILPRCO.LT.72)ILPRCO=72
21797        IF(ILPRCO.GT.132)ILPRCO=132
21798        IV=ILPRCO
21799        GOTO5150
21800      ENDIF
21801C
21802CCCCC FOLLOWING SECTION ADDED NOVEMBER 1999.
21803C     ****************************************************************
21804C     **  SET PARAMETER EXPANSION <NUMERIC/EXPONENTIAL/ROUND>       **
21805C     ****************************************************************
21806C
21807      IPART1='PARA'
21808      IPART2='EXPA'
21809      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
21810        IF(IHV.EQ.'EXPO')THEN
21811          IEXPPA='EXPO'
21812        ELSEIF(IHV.EQ.'ROUN')THEN
21813          IEXPPA='ROUN'
21814        ELSE
21815          IEXPPA='NUME'
21816        ENDIF
21817        IHV=IEXPPA
21818        GOTO5160
21819      ENDIF
21820C
21821CCCCC FOLLOWING SECTION ADDED NOVEMBER 1999.
21822C     ****************************************************************
21823C     **  SET VARIABLE LABEL EXPAND <ON/OFF>                        **
21824C     ****************************************************************
21825C
21826      IPART1='VARI'
21827      IPART2='LABE'
21828      IPART3='EXPA'
21829      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
21830     1  IHARG(3).EQ.IPART3)THEN
21831        IVNMEX=IHARG(4)
21832        IF(IVNMEX.EQ.'OFF'.OR.IVNMEX.EQ.'NO'.OR.IVNMEX.EQ.'FALS')THEN
21833          IVNMEX='OFF'
21834        ELSE
21835          IVNMEX='ON'
21836        ENDIF
21837        IHV=IVNMEX
21838        GOTO5160
21839      ENDIF
21840C
21841CCCCC FOLLOWING SECTION ADDED JANUARY 2000.
21842C     ****************************************************************
21843C     **  SET CROSS TABULATE PLOT DIMENSION <<1/2>                  **
21844C     ****************************************************************
21845C
21846      IPART1='CROS'
21847      IPART2='TABU'
21848      IPART3='PLOT'
21849      IPART4='DIME'
21850      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
21851     1  IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
21852        ICTBDI=IHV
21853        IF(ICTBDI.EQ.'2'.OR.ICTBDI.EQ.'TWO')THEN
21854          ICTBDI='2'
21855        ELSE
21856          ICTBDI='1'
21857        ENDIF
21858        IHV=ICTBDI
21859        GOTO5160
21860      ENDIF
21861C
21862CCCCC FOLLOWING SECTION ADDED JANUARY 2000.
21863C     ****************************************************************
21864C     **  SET SORT DIRECTION <ASCENDING/DESCENDING>                 **
21865C     ****************************************************************
21866C
21867      IPART1='SORT'
21868      IPART2='DIRE'
21869      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
21870        ISORDI=IHV
21871        IF(ISORDI.EQ.'DESC')THEN
21872          ISORDI='DESC'
21873        ELSE
21874          ISORDI='ASCE'
21875        ENDIF
21876        IHV=ISORDI
21877        GOTO5160
21878      ENDIF
21879C
21880CCCCC FOLLOWING SECTION ADDED FEBRUARY 2000.
21881C     ****************************************************************
21882C     **  SET DEX CONTOUR PLOT DIRECTION <MINIMUM/MAXIMUM>          **
21883C     **  SET DEX CONTOUR PLOT MODEL <LINEAR/QUADRATIC>             **
21884C     ****************************************************************
21885C
21886      IPART1='DEX '
21887      IPART2='CONT'
21888      IPART3='PLOT'
21889      IPART4='DIRE'
21890      IPART5='MODE'
21891      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
21892     1IHARG(3).EQ.IPART3)THEN
21893        IF(IHARG(4).EQ.IPART4)THEN
21894          IF(IHV.EQ.'QUAD')THEN
21895            IDCPDI='QUAD'
21896          ELSE
21897            IDCPDI='LINE'
21898          ENDIF
21899        ELSEIF(IHARG(4).EQ.IPART5)THEN
21900          IF(IHV.EQ.'MINI'.OR.IHV.EQ.'MIN ')THEN
21901            IDCPFI='MINI'
21902          ELSE
21903            IDCPFI='MAXI'
21904          ENDIF
21905        ELSEIF(IHARG(4).EQ.'LINE')THEN
21906          IDCPFI='LINE'
21907        ELSEIF(IHARG(4).EQ.'QUAD')THEN
21908          IDCPFI='QUAD'
21909        ELSEIF(IHARG(4).EQ.'MIN '.OR.IHARG(4).EQ.'MINI')THEN
21910          IDCPDI='MINI'
21911        ELSEIF(IHARG(4).EQ.'MAX '.OR.IHARG(4).EQ.'MAXI')THEN
21912          IDCPDI='MAXI'
21913        ENDIF
21914        IHV=IDCPDI
21915        GOTO5160
21916      ENDIF
21917C
21918CCCCC FOLLOWING SECTION ADDED OCTOBER 2000.
21919C     ****************************************************************
21920C     **  SET MANDEL PAULE <REGULAR/MODIFIED>                       **
21921C     ****************************************************************
21922C
21923      IPART1='MAND'
21924      IPART2='PAUL'
21925      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
21926        IMANPA=IHV
21927        IF(IMANPA.NE.'MODI')THEN
21928          IMANPA='REGU'
21929        ENDIF
21930        IHV=IMANPA
21931        GOTO5160
21932      ENDIF
21933C
21934CCCCC FOLLOWING SECTION ADDED MARCH 2001.
21935C     ****************************************************************
21936C     **  SET LOCATION STATISTIC <MEAN/MEDIAN/MIDMEAN/TRIMMED MEAN/ **
21937C     **    MINIMUM/HARMONIC MEAN/GEOMETRIC MEAN/WINS MEAN/MIDRANGE/ *
21938C     **    BIWEIGHT LOCATION/HODGES LEHMAN/H10/H12/H15/H17/H20>    **
21939C     ****************************************************************
21940C
21941      IPART1='LOCA'
21942      IPART2='STAT'
21943      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
21944        ISTALO=IHV
21945        IF(IHARG(3).EQ.'GEOM'.AND.IHARG(4).EQ.'MEAN')THEN
21946          ISTALO='GEOM'
21947        ELSEIF(IHARG(3).EQ.'HARM'.AND.IHARG(4).EQ.'MEAN')THEN
21948          ISTALO='HARM'
21949        ELSEIF(IHARG(3).EQ.'WINS'.AND.IHARG(4).EQ.'MEAN')THEN
21950          ISTALO='WINS'
21951        ELSEIF(IHARG(3).EQ.'BIWE'.AND.IHARG(4).EQ.'LOCA')THEN
21952          ISTALO='BILO'
21953        ELSEIF(IHARG(3).EQ.'HODG'.AND.IHARG(4).EQ.'LEHM')THEN
21954          ISTALO='HLEH'
21955        ELSEIF(IHARG(3).EQ.'H10 '.AND.IHARG(4).EQ.'LOCA')THEN
21956          ISTALO='H10 '
21957        ELSEIF(IHARG(3).EQ.'H12 '.AND.IHARG(4).EQ.'LOCA')THEN
21958          ISTALO='H12 '
21959        ELSEIF(IHARG(3).EQ.'H15 '.AND.IHARG(4).EQ.'LOCA')THEN
21960          ISTALO='H15 '
21961        ELSEIF(IHARG(3).EQ.'H17 '.AND.IHARG(4).EQ.'LOCA')THEN
21962          ISTALO='H17 '
21963        ELSEIF(IHARG(3).EQ.'H20 '.AND.IHARG(4).EQ.'LOCA')THEN
21964          ISTALO='H20 '
21965        ENDIF
21966        IF(ISTALO.EQ.'MIN')ISTALO='MINI'
21967        IF(ISTALO.EQ.'BIWE')ISTALO='BILO'
21968        IF(ISTALO.EQ.'H10 ')ISTALO='H10L'
21969        IF(ISTALO.EQ.'H12 ')ISTALO='H12L'
21970        IF(ISTALO.EQ.'H15 ')ISTALO='H15L'
21971        IF(ISTALO.EQ.'H17 ')ISTALO='H17L'
21972        IF(ISTALO.EQ.'H20 ')ISTALO='H20L'
21973        IF(ISTALO.NE.'MEAN'.AND.ISTALO.NE.'MEDI'.AND.
21974     1     ISTALO.NE.'MIDM'.AND.ISTALO.NE.'TRIM'.AND.
21975     1     ISTALO.NE.'MIDM'.AND.ISTALO.NE.'TRIM'.AND.
21976     1     ISTALO.NE.'GEOM'.AND.ISTALO.NE.'HARM'.AND.
21977     1     ISTALO.NE.'WINS'.AND.ISTALO.NE.'BILO'.AND.
21978     1     ISTALO.NE.'HLEH'.AND.ISTALO.NE.'H10L'.AND.
21979     1     ISTALO.NE.'H12L'.AND.ISTALO.NE.'H15L'.AND.
21980     1     ISTALO.NE.'H17L'.AND.ISTALO.NE.'H20L'.AND.
21981     1     ISTALO.NE.'MIDR'.AND.ISTALO.NE.'MINI')THEN
21982          ISTALO='MEAN'
21983        ENDIF
21984        IHV=ISTALO
21985        GOTO5160
21986      ENDIF
21987C
21988CCCCC FOLLOWING SECTION ADDED MARCH 2001.
21989C     ****************************************************************
21990C     **  SET SCALE STATISTIC  SD/AAD/MAD/IQ RANGE/GEOM SD/         **
21991C     **      BIWEIGHT MIDVARIANCE/PERCENTAGE BEND MIDVARIANCE      **
21992C     **      WINSORIZED SD/BIWEIGHT SCALE/SN/QN/H10/H12/H15/       **
21993C     **      H17/H20/RANGE                                         **
21994C     ****************************************************************
21995C
21996      IPART1='SCAL'
21997      IPART2='STAT'
21998      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
21999        ISTASC=IHV
22000        IF(IHARG(3).EQ.'GEOM'.AND.IHARG(4).EQ.'SD  ')THEN
22001          ISTASC='GEOM'
22002        ELSEIF(IHARG(3).EQ.'GEOM'.AND.IHARG(4).EQ.'STAN'.AND.
22003     1         IHARG(5).EQ.'DEVI')THEN
22004          ISTASC='GEOM'
22005        ELSEIF(IHARG(3).EQ.'IQ  '.AND.IHARG(4).EQ.'RANG')THEN
22006          ISTASC='IQRA'
22007        ELSEIF(IHARG(3).EQ.'NORM'.AND.IHARG(4).EQ.'IQ  '.AND.
22008     1         IHARG(5).EQ.'RANG')THEN
22009          ISTASC='NIQR'
22010        ELSEIF(IHARG(3).EQ.'SCAL'.AND.IHARG(4).EQ.'MEDI'.AND.
22011     1         IHARG(5).EQ.'ABSO'.AND.IHARG(6).EQ.'DEVI')THEN
22012          ISTASC='MADN'
22013        ELSEIF(IHARG(3).EQ.'SCAL'.AND.IHARG(4).EQ.'MAD ')THEN
22014          ISTASC='MADN'
22015        ELSEIF(IHARG(3).EQ.'INTE'.AND.IHARG(4).EQ.'RANG')THEN
22016          ISTASC='IQRA'
22017        ELSEIF(IHARG(3).EQ.'BIWE'.AND.IHARG(4).EQ.'SCAL')THEN
22018          ISTASC='BISC'
22019        ELSEIF(IHARG(3).EQ.'SN'.AND.IHARG(4).EQ.'SCAL')THEN
22020          ISTASC='SNSC'
22021        ELSEIF(IHARG(3).EQ.'SN')THEN
22022          ISTASC='SNSC'
22023        ELSEIF(IHARG(3).EQ.'QN'.AND.IHARG(4).EQ.'SCAL')THEN
22024          ISTASC='QNSC'
22025        ELSEIF(IHARG(3).EQ.'QN')THEN
22026          ISTASC='QNSC'
22027        ELSEIF(IHARG(3).EQ.'RANG')THEN
22028          ISTASC='RANG'
22029        ELSEIF(IHARG(3).EQ.'BIWE'.AND.IHARG(4).EQ.'MIDV')THEN
22030          ISTASC='BIMV'
22031        ELSEIF(IHARG(3).EQ.'WINS'.AND.IHARG(4).EQ.'SD')THEN
22032          ISTASC='WISD'
22033        ELSEIF(IHARG(3).EQ.'WINS'.AND.IHARG(4).EQ.'STAN'.AND.
22034     1         IHARG(5).EQ.'DEVI')THEN
22035          ISTASC='WISD'
22036        ELSEIF(IHARG(3).EQ.'PERC'.AND.IHARG(4).EQ.'BEND'.AND.
22037     1         IHARG(5).EQ.'MIDV')THEN
22038          ISTASC='PBMV'
22039        ELSEIF(IHARG(3).EQ.'H10 '.AND.IHARG(4).EQ.'SCAL')THEN
22040          ISTASC='H10 '
22041        ELSEIF(IHARG(3).EQ.'H12 '.AND.IHARG(4).EQ.'SCAL')THEN
22042          ISTASC='H12 '
22043        ELSEIF(IHARG(3).EQ.'H15 '.AND.IHARG(4).EQ.'SCAL')THEN
22044          ISTASC='H15 '
22045        ELSEIF(IHARG(3).EQ.'H17 '.AND.IHARG(4).EQ.'SCAL')THEN
22046          ISTASC='H17 '
22047        ELSEIF(IHARG(3).EQ.'H20 '.AND.IHARG(4).EQ.'SCAL')THEN
22048          ISTASC='H20 '
22049        ENDIF
22050        IF(ISTASC.EQ.'AVER')ISTASC='AAD'
22051        IF(ISTASC.EQ.'MEDI')ISTASC='MAD'
22052        IF(ISTASC.EQ.'STAN')ISTASC='SD'
22053        IF(ISTASC.EQ.'BIWE')ISTASC='BISC'
22054        IF(ISTASC.EQ.'H10 ')ISTASC='H10S'
22055        IF(ISTASC.EQ.'H12 ')ISTASC='H12S'
22056        IF(ISTASC.EQ.'H15 ')ISTASC='H15S'
22057        IF(ISTASC.EQ.'H17 ')ISTASC='H17S'
22058        IF(ISTASC.EQ.'H20 ')ISTASC='H20S'
22059        IF(ISTASC.NE.'AAD'.AND.ISTASC.NE.'MAD'.AND.
22060     1     ISTASC.NE.'RANG'.AND.ISTASC.NE.'GEOM'.AND.
22061     1     ISTASC.NE.'BIMV'.AND.ISTASC.NE.'PBMV'.AND.
22062     1     ISTASC.NE.'WISD'.AND.ISTASC.NE.'H10S'.AND.
22063     1     ISTASC.NE.'H12S'.AND.ISTASC.NE.'H15S'.AND.
22064     1     ISTASC.NE.'H17S'.AND.ISTASC.NE.'H20S'.AND.
22065     1     ISTASC.NE.'IQRA'.AND.ISTASC.NE.'BISC')THEN
22066          ISTASC='SD'
22067        ENDIF
22068        IHV=ISTASC
22069        GOTO5160
22070      ENDIF
22071C
22072CCCCC FOLLOWING SECTION ADDED MARCH 2001.
22073C     **************************************************************
22074C     **  SET SUPERSCRIPT HORIZONTAL SCALE <SIZE>                 **
22075C     **************************************************************
22076C
22077      IPART1='SUPE'
22078      IPART2='HORI'
22079      IPART3='SCAL'
22080      IPART4='SUBS'
22081      IPART5='X   '
22082      IF((IHARG(1).EQ.IPART1.OR.IHARG(1).EQ.IPART4).AND.
22083     1   (IHARG(2).EQ.IPART2.OR.IHARG(2).EQ.IPART5).AND.
22084     1    IHARG(3).EQ.IPART3)THEN
22085        PSUPXS=AV
22086        IF(PSUPXS.LE.0.0 .OR. PSUPXS.GE.20.0)PSUPXS=0.5
22087        AV=PSUPXS
22088        GOTO5170
22089      ENDIF
22090C
22091CCCCC FOLLOWING SECTION ADDED MARCH 2001.
22092C     **************************************************************
22093C     **  SET SUPERSCRIPT VERTICAL   SCALE <SIZE>                 **
22094C     **************************************************************
22095C
22096      IPART1='SUPE'
22097      IPART2='VERT'
22098      IPART3='SCAL'
22099      IPART4='SUBS'
22100      IPART5='Y   '
22101      IF((IHARG(1).EQ.IPART1.OR.IHARG(1).EQ.IPART4).AND.
22102     1   (IHARG(2).EQ.IPART2.OR.IHARG(2).EQ.IPART5).AND.
22103     1    IHARG(3).EQ.IPART3)THEN
22104        PSUPYS=AV
22105        IF(PSUPYS.LE.0.0 .OR. PSUPYS.GE.20.0)PSUPYS=0.5
22106        AV=PSUPYS
22107        GOTO5170
22108      ENDIF
22109C
22110CCCCC FOLLOWING SECTION ADDED APRIL 2001.
22111C     **************************************************************
22112C     **  SET ORTHOGONAL DISTANCE TRUST REGION RADIUS <VALUE>     **
22113C     **************************************************************
22114C
22115      IPART1='ORTH'
22116      IPART2='DIST'
22117      IPART3='TRUS'
22118      IPART4='REGI'
22119      IPART5='RADI'
22120      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
22121     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
22122     1    IHARG(5).EQ.IPART5)THEN
22123        PODRTF=AV
22124        GOTO5170
22125      ENDIF
22126C
22127CCCCC FOLLOWING SECTION ADDED APRIL 2001.
22128C     **************************************************************
22129C     **  SET ORTHOGONAL DISTANCE STOP TOLERANCE <VALUE>          **
22130C     **************************************************************
22131C
22132      IPART1='ORTH'
22133      IPART2='DIST'
22134      IPART3='STOP'
22135      IPART4='TOLE'
22136      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
22137     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
22138        PODRST=AV
22139        GOTO5170
22140      ENDIF
22141C
22142CCCCC FOLLOWING SECTION ADDED APRIL 2001.
22143C     **************************************************************
22144C     **  SET ORTHOGONAL DISTANCE PARAMETER TOLERANCE <VALUE>     **
22145C     **************************************************************
22146C
22147      IPART1='ORTH'
22148      IPART2='DIST'
22149      IPART3='PARA'
22150      IPART4='TOLE'
22151      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
22152     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
22153        PODRPT=AV
22154        GOTO5170
22155      ENDIF
22156C
22157CCCCC FOLLOWING SECTION ADDED APRIL 2001.
22158C     **************************************************************
22159C     **  SET ORTHOGONAL DISTANCE PRINT OPTION <DEFAULT/FULL>     **
22160C     **************************************************************
22161C
22162      IPART1='ORTH'
22163      IPART2='DIST'
22164      IPART3='PRIN'
22165      IPART4='OPTI'
22166      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
22167     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
22168        IF(IHARG(5).EQ.'FULL')THEN
22169          IODRPO='FULL'
22170        ELSE
22171          IODRPO='DEFA'
22172        ENDIF
22173        IHV=IODRPO
22174        GOTO5160
22175      ENDIF
22176C
22177C
22178CCCCC FOLLOWING SECTION ADDED SEPTEMBER 1999.
22179C     ****************************************************************
22180C     **  SET SCATTER PLOT MATRIX LABELS <ON/OFF>                   **
22181C     ****************************************************************
22182C
22183      IPART1='SCAT'
22184      IPART2='PLOT'
22185      IPART3='MATR'
22186      IPART4='LABE'
22187      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
22188     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
22189        ISPMLA=IHV
22190        IF(ISPMLA.NE.'XON'.AND.ISPMLA.NE.'YON'.AND.
22191     1     ISPMLA.NE.'OFF'.AND.ISPMLA.NE.'BOX')
22192     1     ISPMLA='ON'
22193        IHV=ISPMLA
22194        GOTO5160
22195      ENDIF
22196C
22197      IPART1='MATR'
22198      IPART2='PLOT'
22199      IPART3='LABE'
22200      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
22201     1   IHARG(3).EQ.IPART3)THEN
22202        ISPMLA=IHV
22203        IF(ISPMLA.NE.'XON'.AND.ISPMLA.NE.'YON'.AND.
22204     1     ISPMLA.NE.'OFF'.AND.ISPMLA.NE.'BOX')
22205     1     ISPMLA='ON'
22206        IHV=ISPMLA
22207        GOTO5160
22208      ENDIF
22209C
22210CCCCC FOLLOWING SECTION ADDED SEPTEMBER 1999.
22211C     ****************************************************************
22212C     **  SET CONDITIONING PLOT LABELS <ON/OFF/BOX>                 **
22213C     ****************************************************************
22214C
22215      IPART1='COND'
22216      IPART2='PLOT'
22217      IPART3='LABE'
22218      IPART4='COND'
22219      IF((IHARG(1).EQ.IPART1.OR.IHARG(1).EQ.IPART4).AND.
22220     1   IHARG(2).EQ.IPART2.AND.IHARG(3).EQ.IPART3)THEN
22221        ICPLLA=IHV
22222        IF(ICPLLA.NE.'XON'.AND.ICPLLA.NE.'YON'.AND.
22223     1    ICPLLA.NE.'OFF'.AND.ICPLLA.NE.'BOX ')
22224     1    ICPLLA='ON'
22225        IHV=ICPLLA
22226        GOTO5160
22227      ENDIF
22228C
22229CCCCC FOLLOWING SECTION ADDED SEPTEMBER 1999.
22230C     ****************************************************************
22231C     **  SET FACTOR       PLOT LABELS <ON/OFF/BOX>                 **
22232C     ****************************************************************
22233C
22234      IPART1='FACT'
22235      IPART2='PLOT'
22236      IPART3='LABE'
22237      IPART4='SCAT'
22238      IF((IHARG(1).EQ.IPART1.OR.IHARG(1).EQ.IPART4).AND.
22239     1   IHARG(2).EQ.IPART2.AND.IHARG(3).EQ.IPART3)THEN
22240        IFPLLA=IHV
22241        IF(IFPLLA.NE.'XON'.AND.IFPLLA.NE.'YON'.AND.
22242     1    IFPLLA.NE.'OFF'.AND.IFPLLA.NE.'BOX ')
22243     1    IFPLLA='ON'
22244        IHV=IFPLLA
22245        GOTO5160
22246      ENDIF
22247C
22248CCCCC FOLLOWING SECTION ADDED SEPTEMBER 1999.
22249C     ****************************************************************
22250C     **  SET SCATTER PLOT MATRIX X AXIS <BOTT/TOP/ALTERNATE>       **
22251C     ****************************************************************
22252C
22253C     2018/02: ADD "BOLE", "BORI", "TOLE", AND "TORI".
22254C
22255      IPART1='SCAT'
22256      IPART2='PLOT'
22257      IPART3='MATR'
22258      IPART4='X   '
22259      IPART5='AXIS'
22260      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
22261     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
22262     1   IHARG(5).EQ.IPART5)THEN
22263        ISPMXA=IHV
22264        IF(ISPMXA.NE.'BOTT'.AND.ISPMXA.NE.'TOP '.AND.
22265     1     ISPMXA.NE.'ALTE'.AND.ISPMXA.NE.'BOLE'.AND.
22266     1     ISPMXA.NE.'BORI'.AND.ISPMXA.NE.'TOLE'.AND.
22267     1     ISPMXA.NE.'TORI')
22268     1     ISPMXA='ON'
22269        GOTO5160
22270      ENDIF
22271C
22272      IPART1='MATR'
22273      IPART2='PLOT'
22274      IPART3='X   '
22275      IPART4='AXIS'
22276      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
22277     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
22278        ISPMXA=IHV
22279        IF(ISPMXA.NE.'BOTT'.AND.ISPMXA.NE.'TOP '.AND.
22280     1     ISPMXA.NE.'ALTE'.AND.ISPMXA.NE.'BOLE'.AND.
22281     1     ISPMXA.NE.'BORI'.AND.ISPMXA.NE.'TOLE'.AND.
22282     1     ISPMXA.NE.'TORI')
22283     1     ISPMXA='ON'
22284        GOTO5160
22285      ENDIF
22286C
22287CCCCC FOLLOWING SECTION ADDED SEPTEMBER 1999.
22288C     ****************************************************************
22289C     **  SET SCATTER PLOT MATRIX Y AXIS <LEFT/RIGHT/ALTERNATE>     **
22290C     ****************************************************************
22291C
22292C     2018/02: ADD "LEBO", "LETO", "RIBO", AND "RITO".
22293C
22294      IPART1='SCAT'
22295      IPART2='PLOT'
22296      IPART3='MATR'
22297      IPART4='Y   '
22298      IPART5='AXIS'
22299      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
22300     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
22301     1   IHARG(5).EQ.IPART5)THEN
22302        ISPMYA=IHV
22303        IF(ISPMYA.NE.'LEFT'.AND.ISPMYA.NE.'RIGH'.AND.
22304     1     ISPMYA.NE.'ALTE'.AND.ISPMYA.NE.'LEBO'.AND.
22305     1     ISPMYA.NE.'LETO'.AND.ISPMYA.NE.'RIBO'.AND.
22306     1     ISPMYA.NE.'RITO')
22307     1     ISPMYA='ON'
22308        GOTO5160
22309      ENDIF
22310C
22311      IPART1='MATR'
22312      IPART2='PLOT'
22313      IPART3='Y   '
22314      IPART4='AXIS'
22315      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
22316     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
22317        ISPMYA=IHV
22318        IF(ISPMYA.NE.'LEFT'.AND.ISPMYA.NE.'RIGH'.AND.
22319     1     ISPMYA.NE.'ALTE'.AND.ISPMYA.NE.'LEBO'.AND.
22320     1     ISPMYA.NE.'LETO'.AND.ISPMYA.NE.'RIBO'.AND.
22321     1     ISPMYA.NE.'RITO')
22322     1     ISPMYA='ON'
22323        GOTO5160
22324      ENDIF
22325C
22326CCCCC FOLLOWING SECTION ADDED SEPTEMBER 1999.
22327C     ****************************************************************
22328C     **  SET FACTOR  PLOT        X AXIS <BOTT/TOP/ALTERNATE>       **
22329C     ****************************************************************
22330C
22331      IPART1='FACT'
22332      IPART2='PLOT'
22333      IPART3='X   '
22334      IPART4='AXIS'
22335      IPART5='SCAT'
22336      IF((IHARG(1).EQ.IPART1.OR.IHARG(1).EQ.IPART5).AND.
22337     1   IHARG(2).EQ.IPART2.AND.IHARG(3).EQ.IPART3.AND.
22338     1   IHARG(4).EQ.IPART4)THEN
22339        IFPLXA=IHV
22340        IF(IFPLXA.NE.'BOTT'.AND.IFPLXA.NE.'TOP '.AND.IFPLXA.NE.'ALTE')
22341     1     IFPLXA='ON'
22342        GOTO5160
22343      ENDIF
22344C
22345CCCCC FOLLOWING SECTION ADDED SEPTEMBER 1999.
22346C     ****************************************************************
22347C     **  SET FACTOR  PLOT        Y AXIS <LEFT/RIGHT/ALTERNATE>     **
22348C     ****************************************************************
22349C
22350      IPART1='FACT'
22351      IPART2='PLOT'
22352      IPART3='Y   '
22353      IPART4='AXIS'
22354      IPART5='SCAT'
22355      IF((IHARG(1).EQ.IPART1.OR.IHARG(1).EQ.IPART5).AND.
22356     1   IHARG(2).EQ.IPART2.AND.IHARG(3).EQ.IPART3.AND.
22357     1   IHARG(4).EQ.IPART4)THEN
22358        IFPLYA=IHV
22359        IF(IFPLYA.NE.'LEFT'.AND.IFPLYA.NE.'RIGH'.AND.IFPLYA.NE.'ALTE')
22360     1     IFPLYA='ON'
22361        GOTO5160
22362      ENDIF
22363C
22364CCCCC FOLLOWING SECTION ADDED SEPTEMBER 1999.
22365C     ****************************************************************
22366C     **  SET CONDITION  PLOT     X AXIS <BOTT/TOP/ALTERNATE>       **
22367C     ****************************************************************
22368C
22369      IPART1='COND'
22370      IPART2='PLOT'
22371      IPART3='X   '
22372      IPART4='AXIS'
22373      IPART5='SUBS'
22374      IF((IHARG(1).EQ.IPART1.OR.IHARG(1).EQ.IPART5).AND.
22375     1   IHARG(2).EQ.IPART2.AND.IHARG(3).EQ.IPART3.AND.
22376     1   IHARG(4).EQ.IPART4)THEN
22377        ICPLXA=IHV
22378        IF(ICPLXA.NE.'BOTT'.AND.ICPLXA.NE.'TOP '.AND.ICPLXA.NE.'ALTE')
22379     1     ICPLXA='ON'
22380        GOTO5160
22381      ENDIF
22382C
22383CCCCC FOLLOWING SECTION ADDED SEPTEMBER 1999.
22384C     ****************************************************************
22385C     **  SET CONDITION  PLOT        Y AXIS <LEFT/RIGHT/ALTERNATE>  **
22386C     ****************************************************************
22387C
22388      IPART1='COND'
22389      IPART2='PLOT'
22390      IPART3='Y   '
22391      IPART4='AXIS'
22392      IPART5='SUBS'
22393      IF((IHARG(1).EQ.IPART1.OR.IHARG(1).EQ.IPART5).AND.
22394     1   IHARG(2).EQ.IPART2.AND.IHARG(3).EQ.IPART3.AND.
22395     1   IHARG(4).EQ.IPART4)THEN
22396        ICPLYA=IHV
22397        IF(ICPLYA.NE.'LEFT'.AND.ICPLYA.NE.'RIGH'.AND.ICPLYA.NE.'ALTE')
22398     1     ICPLYA='ON'
22399        GOTO5160
22400      ENDIF
22401C
22402CCCCC FOLLOWING SECTION ADDED SEPTEMBER 1999.
22403C     ****************************************************************
22404C     **  SET SCATTER  PLOT MATRIX CORRELATION <ON/OFF>             **
22405C     ****************************************************************
22406C
22407      IPART1='SCAT'
22408      IPART2='PLOT'
22409      IPART3='MATR'
22410      IPART4='CORR'
22411      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
22412     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
22413        ISPMCC=IHV
22414        IF(ISPMCC.NE.'ON'.AND.ISPMCC.NE.'OFF')ISPMCC='OFF'
22415        GOTO5160
22416      ENDIF
22417C
22418      IPART1='MATR'
22419      IPART2='PLOT'
22420      IPART3='CORR'
22421      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
22422     1   IHARG(3).EQ.IPART3)THEN
22423        ISPMCC=IHV
22424        IF(ISPMCC.NE.'ON'.AND.ISPMCC.NE.'OFF')ISPMCC='OFF'
22425        GOTO5160
22426      ENDIF
22427C
22428CCCCC FOLLOWING SECTION ADDED NOVEMBER 1999
22429C               *****************************************************
22430C               **  TREAT THE SET X2LABEL SUFFIX  CASE             **
22431C               *****************************************************
22432C
22433      IF(NUMARG.GE.2.AND.IHARG(1).EQ.'X2LA'.AND.
22434     1IHARG(2).EQ.'SUFF')GOTO9510
22435      GOTO9590
22436C
22437 9510 CONTINUE
22438      ISPX2S='DEFAULT'
22439      NCHSUF=7
22440      IF(NUMARG.LE.2)GOTO9550
22441      IF(IHARG(NUMARG).EQ.'OFF')THEN
22442        ISPX2S=' '
22443        NCHSUF=0
22444        GOTO9550
22445      ENDIF
22446      IF(IHARG(NUMARG).EQ.'AUTO')GOTO9550
22447      IF(IHARG(NUMARG).EQ.'DEFA')GOTO9550
22448C
22449      DO9530I=1,80
22450      ICANS(I:I)=IANSLC(I)
22451 9530 CONTINUE
22452C
22453      ISTART=1
22454      ISTOP=IWIDTH
22455      IWORD=NUMARG+1
22456      DO9532I=ISTART,ISTOP-4
22457        IF(IANS(I).EQ.'S   '.AND.IANS(I+1).EQ.'U'.AND.
22458     1     IANS(I+2).EQ.'F'.AND.IANS(I+3).EQ.'F')THEN
22459          ISTRT2=I+3
22460          DO9534J=ISTRT2,ISTOP
22461            IF(ICANS(J:J).EQ.' ')THEN
22462              NCSTRI=ISTOP-J
22463              ISTRIN(1:NCSTRI)=ICANS(J+1:IWIDTH)
22464              GOTO9539
22465            ENDIF
22466 9534     CONTINUE
22467          NCSTRI=0
22468        ENDIF
22469 9532 CONTINUE
22470 9539 CONTINUE
22471C
22472      IF(NCSTRI.GE.1)GOTO9540
22473      ISPX2S=' '
22474      NCHSUF=0
22475      GOTO9550
22476C
22477 9540 CONTINUE
22478      ISPX2S=' '
22479      NCHSUF=NCSTRI
22480      IF(NCHSUF.GT.16)NCHSUF=16
22481      ISPX2S(1:NCHSUF)=ISTRIN(1:NCHSUF)
22482C
22483 9550 CONTINUE
22484      IFOUND='YES'
22485      IF(IFEEDB.EQ.'OFF')GOTO9549
22486      WRITE(ICOUT,999)
22487      CALL DPWRST('XXX','BUG ')
22488      WRITE(ICOUT,9541)
22489 9541 FORMAT('THE X2LABEL SUFFIX (FOR MATRIX, FACTOR, AND ',
22490     1'CONDITION PLOTS) HAS BEEN SET TO')
22491      CALL DPWRST('XXX','BUG ')
22492      IF(NCHSUF.LT.1)GOTO9549
22493      WRITE(ICOUT,9542)ISPX2S
22494 9542 FORMAT(A16)
22495      CALL DPWRST('XXX','BUG ')
22496 9549 CONTINUE
22497      GOTO9000
22498 9590 CONTINUE
22499C
22500CCCCC FOLLOWING SECTION ADDED NOVEMBER 1999
22501C               *****************************************************
22502C               **  TREAT THE SET X2LABEL PREFIX  CASE             **
22503C               *****************************************************
22504C
22505      IF(NUMARG.GE.2.AND.IHARG(1).EQ.'X2LA'.AND.
22506     1IHARG(2).EQ.'PREF')GOTO9610
22507      GOTO9690
22508C
22509 9610 CONTINUE
22510      ISPX2P='DEFAULT'
22511      NCHSUF=7
22512      IF(NUMARG.LE.2)GOTO9650
22513      IF(IHARG(NUMARG).EQ.'OFF')THEN
22514        ISPX2P=' '
22515        NCSUFF=0
22516        GOTO9650
22517      ENDIF
22518      IF(IHARG(NUMARG).EQ.'AUTO')GOTO9650
22519      IF(IHARG(NUMARG).EQ.'DEFA')GOTO9650
22520C
22521      DO9630I=1,80
22522      ICANS(I:I)=IANSLC(I)
22523 9630 CONTINUE
22524C
22525      ISTART=1
22526      ISTOP=IWIDTH
22527      IWORD=NUMARG+1
22528      DO9632I=ISTART,ISTOP-4
22529        IF(IANS(I).EQ.'P   '.AND.IANS(I+1).EQ.'R'.AND.
22530     1     IANS(I+2).EQ.'E'.AND.IANS(I+3).EQ.'F')THEN
22531          ISTRT2=I+3
22532          DO9634J=ISTRT2,ISTOP
22533            IF(ICANS(J:J).EQ.' ')THEN
22534              NCSTRI=ISTOP-J
22535              ISTRIN(1:NCSTRI)=ICANS(J+1:IWIDTH)
22536              GOTO9639
22537            ENDIF
22538 9634     CONTINUE
22539          NCSTRI=0
22540        ENDIF
22541 9632 CONTINUE
22542 9639 CONTINUE
22543C
22544      IF(NCSTRI.GE.1)GOTO9640
22545      NCHSUF=0
22546      ISPX2P=' '
22547      GOTO9650
22548C
22549 9640 CONTINUE
22550      ISPX2P=' '
22551      NCHSUF=NCSTRI
22552      IF(NCHSUF.GT.16)NCHSUF=16
22553      ISPX2P(1:NCHSUF)=ISTRIN(1:NCHSUF)
22554C
22555 9650 CONTINUE
22556      IFOUND='YES'
22557      IF(IFEEDB.EQ.'OFF')GOTO9649
22558      WRITE(ICOUT,999)
22559      CALL DPWRST('XXX','BUG ')
22560      WRITE(ICOUT,9641)
22561 9641 FORMAT('THE X2LABEL PREFIX (FOR MATRIX, FACTOR, AND ',
22562     1'CONDITION PLOTS) HAS BEEN SET TO')
22563      CALL DPWRST('XXX','BUG ')
22564      IF(NCHSUF.LT.1)GOTO9649
22565      WRITE(ICOUT,9642)ISPX2P
22566 9642 FORMAT(A16)
22567      CALL DPWRST('XXX','BUG ')
22568 9649 CONTINUE
22569      GOTO9000
22570 9690 CONTINUE
22571C
22572CCCCC FOLLOWING SECTION ADDED SEPTEMBER 1999.
22573C     ****************************************************************
22574C     **  SET SCATTER PLOT MATRIX X2LABEL  OFF/CORRELATION/PERCENT  **
22575C     **     CORRELATION/EFFECT/FILLIBEN/PERCENT ACCEPT/            **
22576C     **     NUMBER ACCEPT/RELATIVE EFFECT/FILLIBEN RELATIVE EFFECT **
22577C     ****************************************************************
22578C
22579      IPART1='SCAT'
22580      IPART2='PLOT'
22581      IPART3='MATR'
22582      IPART4='X2LA'
22583      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
22584     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
22585        IF(IHARG(5).EQ.'PERC'.AND.IHARG(6).EQ.'CORR')THEN
22586          ISPX2L='PCOR'
22587        ELSEIF(IHARG(5).EQ.'PERC'.AND.IHARG(6).EQ.'ACCE')THEN
22588          ISPX2L='PACC'
22589        ELSEIF(IHARG(5).EQ.'NUMB'.AND.IHARG(6).EQ.'ACCE')THEN
22590          ISPX2L='NACC'
22591        ELSEIF(IHARG(5).EQ.'ACCE'.AND.IHARG(6).EQ.'TOTA'.AND.
22592     1     IHARG(7).EQ.'PERC')THEN
22593          ISPX2L='ATP '
22594        ELSEIF(IHARG(5).EQ.'RELA'.AND.IHARG(6).EQ.'EFFE')THEN
22595          ISPX2L='REFF'
22596        ELSEIF(IHARG(5).EQ.'FILL'.AND.IHARG(6).EQ.'RELA'.AND.
22597     1     IHARG(7).EQ.'EFFE')THEN
22598          ISPX2L='FREF'
22599        ELSEIF(IHARG(5).EQ.'ACCE'.AND.IHARG(6).EQ.'TOTA')THEN
22600          ISPX2L='AT  '
22601        ELSEIF(IHARG(5).EQ.'CORR')THEN
22602          ISPX2L='CORR'
22603        ELSEIF(IHARG(5).EQ.'EFFE')THEN
22604          ISPX2L='EFFE'
22605        ELSEIF(IHARG(5).EQ.'FILL')THEN
22606          ISPX2L='FILL'
22607        ELSE
22608          ISPX2L='OFF'
22609        ENDIF
22610        IHV=ISPX2L
22611        GOTO5160
22612      ENDIF
22613C
22614      IPART1='MATR'
22615      IPART2='PLOT'
22616      IPART3='X2LA'
22617      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
22618     1   IHARG(3).EQ.IPART3)THEN
22619        IF(IHARG(4).EQ.'PERC'.AND.IHARG(5).EQ.'CORR')THEN
22620          ISPX2L='PCOR'
22621        ELSEIF(IHARG(4).EQ.'PERC'.AND.IHARG(5).EQ.'ACCE')THEN
22622          ISPX2L='PACC'
22623        ELSEIF(IHARG(4).EQ.'NUMB'.AND.IHARG(5).EQ.'ACCE')THEN
22624          ISPX2L='NACC'
22625        ELSEIF(IHARG(4).EQ.'ACCE'.AND.IHARG(5).EQ.'TOTA'.AND.
22626     1     IHARG(6).EQ.'PERC')THEN
22627          ISPX2L='ATP '
22628        ELSEIF(IHARG(4).EQ.'ACCE'.AND.IHARG(5).EQ.'TOTA')THEN
22629          ISPX2L='AT  '
22630        ELSEIF(IHARG(4).EQ.'RELA'.AND.IHARG(5).EQ.'EFFE')THEN
22631          ISPX2L='REFF'
22632        ELSEIF(IHARG(4).EQ.'FILL'.AND.IHARG(5).EQ.'RELA'.AND.
22633     1     IHARG(6).EQ.'EFFE')THEN
22634          ISPX2L='FREF'
22635        ELSEIF(IHARG(4).EQ.'CORR')THEN
22636          ISPX2L='CORR'
22637        ELSEIF(IHARG(4).EQ.'EFFE')THEN
22638          ISPX2L='EFFE'
22639        ELSEIF(IHARG(4).EQ.'FILL')THEN
22640          ISPX2L='FILL'
22641        ELSE
22642          ISPX2L='OFF'
22643        ENDIF
22644        IHV=ISPX2L
22645        GOTO5160
22646      ENDIF
22647C
22648CCCCC FOLLOWING SECTION ADDED SEPTEMBER 1999.
22649C     ****************************************************************
22650C     **  SET SCATTER PLOT MATRIX X1LABEL <DEFAULT/FILLIBEN>        **
22651C     ****************************************************************
22652C
22653      IPART1='SCAT'
22654      IPART2='PLOT'
22655      IPART3='MATR'
22656      IPART4='X1LA'
22657      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
22658     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
22659        IF(IHARG(5).EQ.'FILL')THEN
22660          ISPX1L='FILL'
22661        ELSE
22662          ISPX1L='DEFA'
22663        ENDIF
22664        IHV=ISPX1L
22665        GOTO5160
22666      ENDIF
22667C
22668      IPART1='MATR'
22669      IPART2='PLOT'
22670      IPART3='X1LA'
22671      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
22672     1   IHARG(3).EQ.IPART3)THEN
22673        IF(IHARG(4).EQ.'FILL')THEN
22674          ISPX1L='FILL'
22675        ELSE
22676          ISPX1L='DEFA'
22677        ENDIF
22678        IHV=ISPX1L
22679        GOTO5160
22680      ENDIF
22681C
22682CCCCC FOLLOWING SECTION ADDED SEPTEMBER 1999.
22683C     ****************************************************************
22684C     **  SET FACTOR   PLOT        X2LABEL   OFF/CORRELATION/PERCENT**
22685C     **     CORRELATION/EFFECT/PERCENT ACCEPT/NUMBER ACCEPT        **
22686C     ****************************************************************
22687C
22688      IPART1='FACT'
22689      IPART2='SCAT'
22690      IPART3='PLOT'
22691      IPART4='X2LA'
22692      IF((IHARG(1).EQ.IPART1.OR.IHARG(1).EQ.IPART2).AND.
22693     1   IHARG(2).EQ.IPART3.AND.IHARG(3).EQ.IPART4)THEN
22694        IF(IHARG(4).EQ.'PERC'.AND.IHARG(5).EQ.'CORR')THEN
22695          IFPX2L='PCOR'
22696        ELSEIF(IHARG(4).EQ.'PERC'.AND.IHARG(5).EQ.'ACCE')THEN
22697          IFPX2L='PACC'
22698        ELSEIF(IHARG(4).EQ.'NUMB'.AND.IHARG(5).EQ.'ACCE')THEN
22699          IFPX2L='NACC'
22700        ELSEIF(IHARG(4).EQ.'ACCE'.AND.IHARG(5).EQ.'TOTA'.AND.
22701     1     IHARG(6).EQ.'PERC')THEN
22702          IFPX2L='ATP '
22703        ELSEIF(IHARG(4).EQ.'ACCE'.AND.IHARG(5).EQ.'TOTA')THEN
22704          IFPX2L='AT  '
22705        ELSEIF(IHARG(4).EQ.'CORR')THEN
22706          IFPX2L='CORR'
22707        ELSEIF(IHARG(4).EQ.'EFFE')THEN
22708          IFPX2L='EFFE'
22709        ELSE
22710          IFPX2L='OFF'
22711        ENDIF
22712        IHV=IFPX2L
22713        GOTO5160
22714      ENDIF
22715C
22716CCCCC FOLLOWING SECTION ADDED SEPTEMBER 1999.
22717C     ****************************************************************
22718C     **  SET CONDITION PLOT X2LABEL   OFF/CORRELATION/PERCENT      **
22719C     **     CORRELATION/EFFECT/PERCENT ACCEPT/                     **
22720C     **     NUMBER ACCEPT                                          **
22721C     ****************************************************************
22722C
22723      IPART1='COND'
22724      IPART2='SUBS'
22725      IPART3='PLOT'
22726      IPART4='X2LA'
22727      IF((IHARG(1).EQ.IPART1.OR.IHARG(1).EQ.IPART2).AND.
22728     1   IHARG(2).EQ.IPART3.AND.IHARG(3).EQ.IPART4)THEN
22729        IF(IHARG(4).EQ.'PERC'.AND.IHARG(5).EQ.'CORR')THEN
22730          ICPX2L='PCOR'
22731        ELSEIF(IHARG(4).EQ.'PERC'.AND.IHARG(5).EQ.'ACCE')THEN
22732          ICPX2L='PACC'
22733        ELSEIF(IHARG(4).EQ.'NUMB'.AND.IHARG(5).EQ.'ACCE')THEN
22734          ICPX2L='NACC'
22735        ELSEIF(IHARG(4).EQ.'ACCE'.AND.IHARG(5).EQ.'TOTA'.AND.
22736     1     IHARG(6).EQ.'PERC')THEN
22737          ICPX2L='ATP '
22738        ELSEIF(IHARG(4).EQ.'ACCE'.AND.IHARG(5).EQ.'TOTA')THEN
22739          ICPX2L='AT  '
22740        ELSEIF(IHARG(4).EQ.'CORR')THEN
22741          ICPX2L='CORR'
22742        ELSEIF(IHARG(4).EQ.'EFFE')THEN
22743          ICPX2L='EFFE'
22744        ELSE
22745          ICPX2L='OFF'
22746        ENDIF
22747        IHV=ICPX2L
22748        GOTO5160
22749      ENDIF
22750C
22751CCCCC FOLLOWING SECTION ADDED SEPTEMBER 1999.
22752C     ****************************************************************
22753C     **  SET FACTOR   PLOT CORRELATION <ON/OFF>                    **
22754C     ****************************************************************
22755C
22756      IPART1='FACT'
22757      IPART4='SCAT'
22758      IPART2='PLOT'
22759      IPART3='CORR'
22760      IF((IHARG(1).EQ.IPART1.OR.IHARG(1).EQ.IPART4).AND.
22761     1   IHARG(2).EQ.IPART2.AND.IHARG(3).EQ.IPART3)THEN
22762        IFPLCC=IHV
22763        IF(IFPLCC.NE.'ON'.AND.IFPLCC.NE.'OFF')IFPLCC='ON'
22764        GOTO5160
22765      ENDIF
22766C
22767CCCCC FOLLOWING SECTION ADDED SEPTEMBER 1999.
22768C     ****************************************************************
22769C     **  SET CONDITION PLOT CORRELATION <ON/OFF>                   **
22770C     ****************************************************************
22771C
22772      IPART1='COND'
22773      IPART4='SUBS'
22774      IPART2='PLOT'
22775      IPART3='CORR'
22776      IF((IHARG(1).EQ.IPART1.OR.IHARG(1).EQ.IPART4).AND.
22777     1   IHARG(2).EQ.IPART2.AND.IHARG(3).EQ.IPART3)THEN
22778        ICPLCC=IHV
22779        IF(ICPLCC.NE.'ON'.AND.ICPLCC.NE.'OFF')ICPLCC='ON'
22780        GOTO5160
22781      ENDIF
22782C
22783CCCCC FOLLOWING SECTION ADDED SEPTEMBER 1999.
22784C     ****************************************************************
22785C     **  SET SCATTER PLOT MATRIX DIAGONAL                          **
22786C     **      <BLANK/LINE/HIST/BOXPLOT/KERNEL DENSITY>              **
22787C     ****************************************************************
22788C
22789      IPART1='SCAT'
22790      IPART2='PLOT'
22791      IPART3='MATR'
22792      IPART4='DIAG'
22793      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
22794     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
22795        IF(IHARG(5).EQ.'KERN' .AND. IHARG(6).EQ.'DENS')THEN
22796          ISPMDI='KERN'
22797        ELSE
22798          ISPMDI=IHV
22799        ENDIF
22800        GOTO5160
22801      ENDIF
22802C
22803      IPART1='MATR'
22804      IPART2='PLOT'
22805      IPART3='DIAG'
22806      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
22807     1   IHARG(3).EQ.IPART3)THEN
22808        IF(IHARG(4).EQ.'KERN' .AND. IHARG(5).EQ.'DENS')THEN
22809          ISPMDI='KERN'
22810        ELSE
22811          ISPMDI=IHV
22812        ENDIF
22813        GOTO5160
22814      ENDIF
22815C
22816CCCCC FOLLOWING SECTION ADDED MARCH 2015.
22817C     ****************************************************************
22818C     **  SET SCATTER PLOT MATRIX SHADED DIAGONAL <ON/OFF>          **
22819C     ****************************************************************
22820C
22821      IPART1='SCAT'
22822      IPART2='PLOT'
22823      IPART3='MATR'
22824      IPART4='SHAD'
22825      IPART5='DIAG'
22826      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
22827     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
22828     1   IHARG(5).EQ.IPART5)THEN
22829        ISPMDS=IHARG(6)
22830        IF(ISPMDS.EQ.'OFF'  .OR. ISPMDS.EQ.'NO' .OR.
22831     1     ISPMDS.EQ.'FALS' .OR. ISPMDS.EQ.'DEFA')THEN
22832          ISPMDS='OFF'
22833        ELSE
22834          ISPMDS='ON'
22835        ENDIF
22836        IHV=ISPMDS
22837        GOTO5160
22838      ENDIF
22839C
22840      IPART1='MATR'
22841      IPART2='PLOT'
22842      IPART3='SHAD'
22843      IPART4='DIAG'
22844      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
22845     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
22846        ISPMDS=IHARG(5)
22847        IF(ISPMDS.EQ.'OFF'  .OR. ISPMDS.EQ.'NO' .OR.
22848     1     ISPMDS.EQ.'FALS' .OR. ISPMDS.EQ.'DEFA')THEN
22849          ISPMDS='OFF'
22850        ELSE
22851          ISPMDS='ON'
22852        ENDIF
22853        IHV=ISPMDS
22854        GOTO5160
22855      ENDIF
22856C
22857CCCCC FOLLOWING SECTION ADDED SEPTEMBER 1999.
22858C     ****************************************************************
22859C     **  SET SCATTER PLOT MATRIX LOWER DIAGONAL <ON/OFF>           **
22860C     ****************************************************************
22861C
22862      IPART1='SCAT'
22863      IPART2='PLOT'
22864      IPART3='MATR'
22865      IPART4='LOWE'
22866      IPART5='DIAG'
22867      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
22868     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
22869     1   IHARG(5).EQ.IPART5)THEN
22870        ISPMLD=IHV
22871        GOTO5160
22872      ENDIF
22873C
22874      IPART1='MATR'
22875      IPART2='PLOT'
22876      IPART3='LOWE'
22877      IPART4='DIAG'
22878      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
22879     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
22880        ISPMLD=IHV
22881        GOTO5160
22882      ENDIF
22883C
22884CCCCC FOLLOWING SECTION ADDED FEBRUARY 2018.
22885C     ****************************************************************
22886C     **  SET SCATTER PLOT MATRIX XTIC LABEL  <ON/OFF>              **
22887C     ****************************************************************
22888C
22889      IPART1='SCAT'
22890      IPART2='PLOT'
22891      IPART3='MATR'
22892      IPART4='XTIC'
22893      IPART5='LABE'
22894      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
22895     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
22896     1   IHARG(5).EQ.IPART5)THEN
22897        ISPMXL=IHV
22898        IF(ISPMXL.EQ.'OFF'.OR.ISPMXL.EQ.'NO'.OR.
22899     1     ISPMXL.EQ.'FALS')THEN
22900          ISPMXL='OFF'
22901        ELSE
22902          ISPMXL='ON'
22903        ENDIF
22904        IHV=ISPMXL
22905        GOTO5160
22906      ENDIF
22907C
22908      IPART1='MATR'
22909      IPART2='PLOT'
22910      IPART3='XTIC'
22911      IPART4='LABE'
22912      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
22913     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
22914        ISPMXL=IHV
22915        IF(ISPMXL.EQ.'OFF'.OR.ISPMXL.EQ.'NO'.OR.
22916     1     ISPMXL.EQ.'FALS')THEN
22917          ISPMXL='OFF'
22918        ELSE
22919          ISPMXL='ON'
22920        ENDIF
22921        IHV=ISPMXL
22922        GOTO5160
22923      ENDIF
22924C
22925CCCCC FOLLOWING SECTION ADDED FEBRUARY 2018.
22926C     ****************************************************************
22927C     **  SET SCATTER PLOT MATRIX XTIC   <ON/OFF>                   **
22928C     ****************************************************************
22929C
22930      IPART1='SCAT'
22931      IPART2='PLOT'
22932      IPART3='MATR'
22933      IPART4='XTIC'
22934      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
22935     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
22936        ISPMXT=IHV
22937        IF(ISPMXT.EQ.'OFF'.OR.ISPMXT.EQ.'NO'.OR.
22938     1     ISPMXT.EQ.'FALS')THEN
22939          ISPMXT='OFF'
22940        ELSE
22941          ISPMXT='ON'
22942        ENDIF
22943        IHV=ISPMXT
22944        GOTO5160
22945      ENDIF
22946C
22947      IPART1='MATR'
22948      IPART2='PLOT'
22949      IPART3='XTIC'
22950      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
22951     1   IHARG(3).EQ.IPART3)THEN
22952        ISPMXT=IHV
22953        IF(ISPMXT.EQ.'OFF'.OR.ISPMXT.EQ.'NO'.OR.
22954     1     ISPMXT.EQ.'FALS')THEN
22955          ISPMXT='OFF'
22956        ELSE
22957          ISPMXT='ON'
22958        ENDIF
22959        IHV=ISPMXT
22960        GOTO5160
22961      ENDIF
22962C
22963CCCCC FOLLOWING SECTION ADDED FEBRUARY 2018
22964C     ****************************************************************
22965C     **  SET SCATTER PLOT MATRIX YTIC LABEL  <ON/OFF>              **
22966C     ****************************************************************
22967C
22968      IPART1='SCAT'
22969      IPART2='PLOT'
22970      IPART3='MATR'
22971      IPART4='YTIC'
22972      IPART5='LABE'
22973      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
22974     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
22975     1   IHARG(5).EQ.IPART5)THEN
22976        ISPMYL=IHV
22977        IF(ISPMYL.EQ.'OFF'.OR.ISPMYL.EQ.'NO'.OR.
22978     1     ISPMYL.EQ.'FALS')THEN
22979          ISPMYL='OFF'
22980        ELSE
22981          ISPMYL='ON'
22982        ENDIF
22983        IHV=ISPMYL
22984        GOTO5160
22985      ENDIF
22986C
22987      IPART1='MATR'
22988      IPART2='PLOT'
22989      IPART3='YTIC'
22990      IPART4='LABE'
22991      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
22992     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
22993        ISPMYL=IHV
22994        IF(ISPMYL.EQ.'OFF'.OR.ISPMYL.EQ.'NO'.OR.
22995     1     ISPMYL.EQ.'FALS')THEN
22996          ISPMYL='OFF'
22997        ELSE
22998          ISPMYL='ON'
22999        ENDIF
23000        IHV=ISPMYL
23001        GOTO5160
23002      ENDIF
23003C
23004CCCCC FOLLOWING SECTION ADDED FEBRUARY 2018.
23005C     ****************************************************************
23006C     **  SET SCATTER PLOT MATRIX YTIC   <ON/OFF>                   **
23007C     ****************************************************************
23008C
23009      IPART1='SCAT'
23010      IPART2='PLOT'
23011      IPART3='MATR'
23012      IPART4='YTIC'
23013      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
23014     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
23015        ISPMYT=IHV
23016        IF(ISPMYT.EQ.'OFF'.OR.ISPMYT.EQ.'NO'.OR.
23017     1     ISPMYT.EQ.'FALS')THEN
23018          ISPMYT='OFF'
23019        ELSE
23020          ISPMYT='ON'
23021        ENDIF
23022        IHV=ISPMYT
23023        GOTO5160
23024      ENDIF
23025C
23026      IPART1='MATR'
23027      IPART2='PLOT'
23028      IPART3='YTIC'
23029      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
23030     1   IHARG(3).EQ.IPART3)THEN
23031        ISPMYT=IHV
23032        IF(ISPMYT.EQ.'OFF'.OR.ISPMYT.EQ.'NO'.OR.
23033     1     ISPMYT.EQ.'FALS')THEN
23034          ISPMYT='OFF'
23035        ELSE
23036          ISPMYT='ON'
23037        ENDIF
23038        IHV=ISPMYT
23039        GOTO5160
23040      ENDIF
23041C
23042CCCCC FOLLOWING SECTION ADDED SEPTEMBER 1999.
23043C     ****************************************************************
23044C     **  SET SCATTER PLOT MATRIX PLOT TYPE                         **
23045C     **      <PLOT/BIHIST/QQPLOT/CORRELATION/LAG/SPECTRAL/YOUDEN>  **
23046C     ****************************************************************
23047C
23048      IPART1='SCAT'
23049      IPART2='PLOT'
23050      IPART3='MATR'
23051      IPART4='TYPE'
23052      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
23053     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
23054        ISPMPT=IHV
23055        IF(IHARG(5).EQ.'Q'.AND.IHARG(6).EQ.'Q')THEN
23056          ISPMPT='QQPL'
23057        ELSEIF(IHARG(5).EQ.'QUAN'.AND.IHARG(6).EQ.'QUAN')THEN
23058          ISPMPT='QQPL'
23059        ELSEIF(IHARG(5).EQ.'QQ'.AND.IHARG(6).EQ.'PLOT')THEN
23060          ISPMPT='QQPL'
23061        ELSEIF(IHARG(5).EQ.'DEX'.AND.IHARG(6).EQ.'CONT')THEN
23062          ISPMPT='DEXC'
23063        ELSEIF(IHARG(5).EQ.'DEX'.AND.IHARG(6).EQ.'INTE')THEN
23064          ISPMPT='DEXI'
23065        ELSEIF(IHARG(5).EQ.'DEX'.AND.IHARG(7).EQ.'INTE')THEN
23066          ISPMPT='DEXS'
23067          ISPMST=IHARG(6)
23068          ISPMS2=IHARG2(6)
23069        ELSEIF(IHARG(5).EQ.'DEX'.AND.IHARG(8).EQ.'INTE')THEN
23070          ISPMPT='DEXS'
23071          ISPMST=IHARG(5)
23072          ISPMS2=IHARG2(6)
23073          ISPMS3=IHARG(7)
23074          ISPMS4=IHARG2(7)
23075        ELSEIF(IHARG(5).EQ.'CROS'.AND.IHARG(6).EQ.'TABU')THEN
23076          ISPMPT='CROS'
23077          ISPMST='    '
23078          ISPMS2='    '
23079          ISPMS3='    '
23080          ISPMS4='    '
23081          IF(IHARG(7).NE.'    ')ISPMST=IHARG(7)
23082          IF(IHARG2(7).NE.'    ')ISPMS2=IHARG2(7)
23083          IF(IHARG(8).NE.'    ')ISPMS3=IHARG(8)
23084          IF(IHARG2(8).NE.'    ')ISPMS4=IHARG2(8)
23085        ENDIF
23086        GOTO7090
23087      ENDIF
23088C
23089      IPART1='MATR'
23090      IPART2='PLOT'
23091      IPART3='TYPE'
23092      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
23093     1   IHARG(3).EQ.IPART3)THEN
23094        ISPMPT=IHV
23095        IF(IHARG(4).EQ.'Q'.AND.IHARG(5).EQ.'Q')THEN
23096          ISPMPT='QQPL'
23097        ELSEIF(IHARG(4).EQ.'QUAN'.AND.IHARG(5).EQ.'QUAN')THEN
23098          ISPMPT='QQPL'
23099        ELSEIF(IHARG(4).EQ.'QQ'.AND.IHARG(5).EQ.'PLOT')THEN
23100          ISPMPT='QQPL'
23101        ELSEIF(IHARG(4).EQ.'KERN'.AND.IHARG(5).EQ.'DENS')THEN
23102          ISPMPT='KERN'
23103        ELSEIF(IHARG(4).EQ.'DEX'.AND.IHARG(5).EQ.'INTE')THEN
23104          ISPMPT='DEXI'
23105        ELSEIF(IHARG(4).EQ.'DEX'.AND.IHARG(5).EQ.'CONT')THEN
23106          ISPMPT='DEXC'
23107        ELSEIF(IHARG(4).EQ.'DEX'.AND.IHARG(6).EQ.'INTE')THEN
23108          ISPMPT='DEXS'
23109          ISPMST=IHARG(5)
23110          ISPMS2=IHARG2(5)
23111        ELSEIF(IHARG(4).EQ.'DEX'.AND.IHARG(7).EQ.'INTE')THEN
23112          ISPMPT='DEXS'
23113          ISPMST=IHARG(5)
23114          ISPMS2=IHARG2(5)
23115          ISPMS3=IHARG(6)
23116          ISPMS4=IHARG2(6)
23117        ELSEIF(IHARG(4).EQ.'CROS'.AND.IHARG(5).EQ.'TABU')THEN
23118          ISPMPT='CROS'
23119          ISPMST='    '
23120          ISPMS2='    '
23121          ISPMS3='    '
23122          ISPMS4='    '
23123          IF(IHARG(6).NE.'    ')ISPMST=IHARG(6)
23124          IF(IHARG2(6).NE.'    ')ISPMS2=IHARG2(6)
23125          IF(IHARG(7).NE.'    ')ISPMS3=IHARG(7)
23126          IF(IHARG2(7).NE.'    ')ISPMS4=IHARG2(7)
23127        ENDIF
23128        GOTO7090
23129      ELSE
23130        GOTO7099
23131      ENDIF
23132C
23133 7090 CONTINUE
23134      IF(ISPMPT.NE.'QQPL'.AND.ISPMPT.NE.'BIHI'.AND.
23135     1   ISPMPT.NE.'CORR'.AND.ISPMPT.NE.'LAG '.AND.
23136     1   ISPMPT.NE.'SPEC'.AND.ISPMPT.NE.'YOUD'.AND.
23137     1   ISPMPT.NE.'CROS'.AND.ISPMPT.NE.'DEXC'.AND.
23138     1   ISPMPT.NE.'DEXI'.AND.ISPMPT.NE.'DEXS')ISPMPT='PLOT'
23139      GOTO5160
23140C
23141 7099 CONTINUE
23142C
23143CCCCC FOLLOWING SECTION ADDED SEPTEMBER 1999.
23144C     ****************************************************************
23145C     **  SET CONDITIONING PLOT PLOT TYPE <PLOT/HIST/PERC>          **
23146C     ****************************************************************
23147C
23148      IPART1='COND'
23149      IPART4='SUBS'
23150      IPART2='PLOT'
23151      IPART3='TYPE'
23152      IF((IHARG(1).EQ.IPART1.OR.IHARG(1).EQ.IPART4).AND.
23153     1   IHARG(2).EQ.IPART2.AND.IHARG(3).EQ.IPART3)THEN
23154        ICPLPT=IHV
23155        IF(IHARG(4).EQ.'STAT')THEN
23156          ICPLPT='STAT'
23157        ELSEIF(IHARG(4).EQ.'PERC')THEN
23158          ICPLPT='PERC'
23159        ELSEIF(IHARG(4).EQ.'BIHI')THEN
23160          ICPLPT='BIHI'
23161        ELSEIF(IHARG(4).EQ.'QUAN')THEN
23162          ICPLPT='QQPL'
23163        ELSEIF(IHARG(4).EQ.'HIST')THEN
23164          ICPLPT='HIST'
23165        ELSEIF(IHARG(4).EQ.'DENS' .OR. IHARG(4).EQ.'KERN')THEN
23166          ICPLPT='DENS'
23167        ELSEIF(IHARG(4).EQ.'AUTO')THEN
23168          ICPLPT='AUTO'
23169        ELSEIF(IHARG(4).EQ.'LAG ')THEN
23170          ICPLPT='LAG '
23171        ELSEIF(IHARG(4).EQ.'SPEC ')THEN
23172          ICPLPT='SPEC'
23173        ELSEIF(IHARG(4).EQ.'RUN ')THEN
23174          ICPLPT='RUNS'
23175        ELSEIF(IHARG(4).EQ.'ROSE')THEN
23176          ICPLPT='ROSE'
23177        ELSEIF(IHARG(4).EQ.'TWO '.AND.IHARG(5).EQ.'VARI'.AND.
23178     1         IHARG(6).EQ.'ROSE')THEN
23179          ICPLPT='ROS2'
23180        ELSEIF(IHARG(4).EQ.'BOX '.AND.IHARG(5).EQ.'COX '.AND.
23181     1         IHARG(6).EQ.'LINE')THEN
23182          ICPLPT='BOXC'
23183        ELSEIF(IHARG(4).EQ.'DEX '.AND.IHARG(5).EQ.'CONT')THEN
23184          ICPLPT='DEXC'
23185        ELSEIF(IHARG(4).EQ.'YATE'.AND.IHARG(5).EQ.'CUBE')THEN
23186          ICPLPT='YACU'
23187        ELSEIF(IHARG(4).EQ.'3D  '.AND.IHARG(5).EQ.'PLOT')THEN
23188          ICPLPT='3DPL'
23189        ELSEIF(IHARG(4).EQ.'CROS'.AND.IHARG(5).EQ.'TABU')THEN
23190          ICPLPT='CROS'
23191          ICPLST='    '
23192          ICPLS2='    '
23193          ICPLS3='    '
23194          ICPLS4='    '
23195          IF(IHARG(6).NE.'    ')ICPLST=IHARG(6)
23196          IF(IHARG2(6).NE.'    ')ICPLS2=IHARG2(6)
23197          IF(IHARG(7).NE.'    ')ICPLS3=IHARG(7)
23198          IF(IHARG2(7).NE.'    ')ICPLS4=IHARG2(7)
23199        ELSEIF(IHARG(4).EQ.'PROB'.AND.IHARG(5).EQ.'PLOT ')THEN
23200          ICPLPT='PROB'
23201          ICPLP1='NORM'
23202          ICPLP2='    '
23203          ICPLP3='    '
23204          ICPLP4='    '
23205          ICPLP5='    '
23206        ELSEIF(IHARG(5).EQ.'PROB'.AND.IHARG(6).EQ.'PLOT ')THEN
23207          ICPLPT='PROB'
23208          ICPLP1=IHARG(4)
23209          ICPLP2='    '
23210          ICPLP3='    '
23211          ICPLP4='    '
23212          ICPLP5='    '
23213        ELSEIF(IHARG(6).EQ.'PROB'.AND.IHARG(7).EQ.'PLOT ')THEN
23214          ICPLPT='PROB'
23215          ICPLP1=IHARG(4)
23216          ICPLP2=IHARG(5)
23217          ICPLP3='    '
23218          ICPLP4='    '
23219          ICPLP5='    '
23220        ELSEIF(IHARG(7).EQ.'PROB'.AND.IHARG(8).EQ.'PLOT ')THEN
23221          ICPLPT='PROB'
23222          ICPLP1=IHARG(4)
23223          ICPLP2=IHARG(5)
23224          ICPLP3=IHARG(6)
23225          ICPLP4='    '
23226          ICPLP5='    '
23227        ELSEIF(IHARG(8).EQ.'PROB'.AND.IHARG(9).EQ.'PLOT ')THEN
23228          ICPLPT='PROB'
23229          ICPLP1=IHARG(4)
23230          ICPLP2=IHARG(5)
23231          ICPLP3=IHARG(6)
23232          ICPLP4=IHARG(7)
23233          ICPLP5='    '
23234        ELSEIF(IHARG(9).EQ.'PROB'.AND.IHARG(10).EQ.'PLOT ')THEN
23235          ICPLPT='PROB'
23236          ICPLP1=IHARG(4)
23237          ICPLP2=IHARG(5)
23238          ICPLP3=IHARG(6)
23239          ICPLP4=IHARG(7)
23240          ICPLP5=IHARG(8)
23241        ELSEIF(IHARG(4).EQ.'PPCC'.AND.IHARG(5).EQ.'PLOT ')THEN
23242          ICPLPT='PPCC'
23243          ICPLC1='TUKE'
23244          ICPLC2='LAMB'
23245          ICPLC3='    '
23246          ICPLC4='    '
23247          ICPLC5='    '
23248        ELSEIF(IHARG(5).EQ.'PPCC'.AND.IHARG(6).EQ.'PLOT ')THEN
23249          ICPLPT='PPCC'
23250          ICPLC1=IHARG(4)
23251          ICPLc2='    '
23252          ICPLC3='    '
23253          ICPLC4='    '
23254          ICPLC5='    '
23255        ELSEIF(IHARG(6).EQ.'PPCC'.AND.IHARG(7).EQ.'PLOT ')THEN
23256          ICPLPT='PPCC'
23257          ICPLc1=IHARG(4)
23258          ICPLC2=IHARG(5)
23259          ICPLC3='    '
23260          ICPLC4='    '
23261          ICPLC5='    '
23262        ELSEIF(IHARG(7).EQ.'PPCC'.AND.IHARG(8).EQ.'PLOT ')THEN
23263          ICPLPT='PPCC'
23264          ICPLC1=IHARG(4)
23265          ICPLC2=IHARG(5)
23266          ICPLC3=IHARG(6)
23267          ICPLC4='    '
23268          ICPLC5='    '
23269        ELSEIF(IHARG(8).EQ.'PPCC'.AND.IHARG(9).EQ.'PLOT ')THEN
23270          ICPLPT='PPCC'
23271          ICPLC1=IHARG(4)
23272          ICPLC2=IHARG(5)
23273          ICPLC3=IHARG(6)
23274          ICPLC4=IHARG(7)
23275          ICPLC5='    '
23276        ELSEIF(IHARG(9).EQ.'PPCC'.AND.IHARG(10).EQ.'PLOT ')THEN
23277          ICPLPT='PROB'
23278          ICPLC1=IHARG(4)
23279          ICPLC2=IHARG(5)
23280          ICPLC3=IHARG(6)
23281          ICPLC4=IHARG(7)
23282          ICPLC5=IHARG(8)
23283        ENDIF
23284        IF(ICPLPT.NE.'PERC'.AND.ICPLPT.NE.'BIHI'.AND.
23285     1     ICPLPT.NE.'STAT'.AND.ICPLPT.NE.'RUNS'.AND.
23286     1     ICPLPT.NE.'SPEC'.AND.ICPLPT.NE.'AUTO'.AND.
23287     1     ICPLPT.NE.'LAG '.AND.ICPLPT.NE.'QQPL'.AND.
23288     1     ICPLPT.NE.'CROS'.AND.
23289     1     ICPLPT.NE.'ROSE'.AND.ICPLPT.NE.'ROS2'.AND.
23290     1     ICPLPT.NE.'PROB'.AND.ICPLPT.NE.'PPCC'.AND.
23291     1     ICPLPT.NE.'YACU'.AND.ICPLPT.NE.'3DPL'.AND.
23292     1     ICPLPT.NE.'BOXC'.AND.ICPLPT.NE.'HIST')ICPLPT='PLOT'
23293          IHV=ICPLPT
23294        GOTO5160
23295      ENDIF
23296C
23297CCCCC FOLLOWING SECTION ADDED SEPTEMBER 1999.
23298C     ****************************************************************
23299C     **  SET FACTOR       PLOT PLOT TYPE <PLOT/HIST/PERC>          **
23300C     ****************************************************************
23301C
23302      IPART1='FACT'
23303      IPART2='PLOT'
23304      IPART3='TYPE'
23305      IPART4='SCAT'
23306      IF((IHARG(1).EQ.IPART1.OR.IHARG(1).EQ.IPART4).AND.
23307     1   IHARG(2).EQ.IPART2.AND.IHARG(3).EQ.IPART3)THEN
23308        IFPLPT=IHV
23309        IF(IHARG(4).EQ.'STAT')THEN
23310          IFPLPT='STAT'
23311        ELSEIF(IHARG(4).EQ.'PERC')THEN
23312          IFPLPT='PERC'
23313        ELSEIF(IHARG(4).EQ.'BIHI')THEN
23314          IFPLPT='BIHI'
23315        ELSEIF(IHARG(4).EQ.'QUAN')THEN
23316          IFPLPT='QQPL'
23317        ELSEIF(IHARG(4).EQ.'HIST')THEN
23318          IFPLPT='HIST'
23319        ELSEIF(IHARG(4).EQ.'KERN')THEN
23320          IFPLPT='KERN'
23321        ELSEIF(IHARG(4).EQ.'AUTO')THEN
23322          IFPLPT='AUTO'
23323        ELSEIF(IHARG(4).EQ.'LAG ')THEN
23324          IFPLPT='LAG '
23325        ELSEIF(IHARG(4).EQ.'SPEC ')THEN
23326          IFPLPT='SPEC'
23327        ELSEIF(IHARG(4).EQ.'RUN ')THEN
23328          IFPLPT='RUNS'
23329        ELSEIF(IHARG(4).EQ.'BOX '.AND.IHARG(5).EQ.'COX '.AND.
23330     1         IHARG(6).EQ.'LINE')THEN
23331          IFPLPT='BOXC'
23332        ELSEIF(IHARG(4).EQ.'PROB'.AND.IHARG(5).EQ.'PLOT ')THEN
23333          IFPLPT='PROB'
23334          IFPLP1='NORM'
23335          IFPLP2='    '
23336          IFPLP3='    '
23337          IFPLP4='    '
23338          IFPLP5='    '
23339        ELSEIF(IHARG(5).EQ.'PROB'.AND.IHARG(6).EQ.'PLOT ')THEN
23340          IFPLPT='PROB'
23341          IFPLP1=IHARG(4)
23342          IFPLP2='    '
23343          IFPLP3='    '
23344          IFPLP4='    '
23345          IFPLP5='    '
23346        ELSEIF(IHARG(6).EQ.'PROB'.AND.IHARG(7).EQ.'PLOT ')THEN
23347          IFPLPT='PROB'
23348          IFPLP1=IHARG(4)
23349          IFPLP2=IHARG(5)
23350          IFPLP3='    '
23351          IFPLP4='    '
23352          IFPLP5='    '
23353        ELSEIF(IHARG(7).EQ.'PROB'.AND.IHARG(8).EQ.'PLOT ')THEN
23354          IFPLPT='PROB'
23355          IFPLP1=IHARG(4)
23356          IFPLP2=IHARG(5)
23357          IFPLP3=IHARG(6)
23358          IFPLP4='    '
23359          IFPLP5='    '
23360        ELSEIF(IHARG(8).EQ.'PROB'.AND.IHARG(9).EQ.'PLOT ')THEN
23361          IFPLPT='PROB'
23362          IFPLP1=IHARG(4)
23363          IFPLP2=IHARG(5)
23364          IFPLP3=IHARG(6)
23365          IFPLP4=IHARG(7)
23366          IFPLP5='    '
23367        ELSEIF(IHARG(9).EQ.'PROB'.AND.IHARG(10).EQ.'PLOT ')THEN
23368          IFPLPT='PROB'
23369          IFPLP1=IHARG(4)
23370          IFPLP2=IHARG(5)
23371          IFPLP3=IHARG(6)
23372          IFPLP4=IHARG(7)
23373          IFPLP5=IHARG(8)
23374        ELSEIF(IHARG(4).EQ.'PPCC'.AND.IHARG(5).EQ.'PLOT ')THEN
23375          IFPLPT='PPCC'
23376          IFPLC1='TUKE'
23377          IFPLC2='LAMB'
23378          IFPLC3='    '
23379          IFPLC4='    '
23380          IFPLC5='    '
23381        ELSEIF(IHARG(5).EQ.'PPCC'.AND.IHARG(6).EQ.'PLOT ')THEN
23382          IFPLPT='PPCC'
23383          IFPLC1=IHARG(4)
23384          IFPLc2='    '
23385          IFPLC3='    '
23386          IFPLC4='    '
23387          IFPLC5='    '
23388        ELSEIF(IHARG(6).EQ.'PPCC'.AND.IHARG(7).EQ.'PLOT ')THEN
23389          IFPLPT='PPCC'
23390          IFPLc1=IHARG(4)
23391          IFPLC2=IHARG(5)
23392          IFPLC3='    '
23393          IFPLC4='    '
23394          IFPLC5='    '
23395        ELSEIF(IHARG(7).EQ.'PPCC'.AND.IHARG(8).EQ.'PLOT ')THEN
23396          IFPLPT='PPCC'
23397          IFPLC1=IHARG(4)
23398          IFPLC2=IHARG(5)
23399          IFPLC3=IHARG(6)
23400          IFPLC4='    '
23401          IFPLC5='    '
23402        ELSEIF(IHARG(8).EQ.'PPCC'.AND.IHARG(9).EQ.'PLOT ')THEN
23403          IFPLPT='PPCC'
23404          IFPLC1=IHARG(4)
23405          IFPLC2=IHARG(5)
23406          IFPLC3=IHARG(6)
23407          IFPLC4=IHARG(7)
23408          IFPLC5='    '
23409        ELSEIF(IHARG(9).EQ.'PPCC'.AND.IHARG(10).EQ.'PLOT ')THEN
23410          IFPLPT='PROB'
23411          IFPLC1=IHARG(4)
23412          IFPLC2=IHARG(5)
23413          IFPLc3=IHARG(6)
23414          IFPLC4=IHARG(7)
23415          IFPLC5=IHARG(8)
23416        ENDIF
23417        IF(IFPLPT.NE.'PERC'.AND.IFPLPT.NE.'BIHI'.AND.
23418     1     IFPLPT.NE.'STAT'.AND.IFPLPT.NE.'RUNS'.AND.
23419     1     IFPLPT.NE.'SPEC'.AND.IFPLPT.NE.'AUTO'.AND.
23420     1     IFPLPT.NE.'LAG '.AND.IFPLPT.NE.'QQPL'.AND.
23421     1     IFPLPT.NE.'PROB'.AND.IFPLPT.NE.'PPCC'.AND.
23422     1     IFPLPT.NE.'KERN'.AND.
23423     1     IFPLPT.NE.'BOXC'.AND.IFPLPT.NE.'HIST')IFPLPT='PLOT'
23424        IHV=IFPLPT
23425        GOTO5160
23426      ENDIF
23427C
23428CCCCC FOLLOWING SECTION ADDED SEPTEMBER 1999.
23429C     ****************************************************************
23430C     **  SET FACTOR       PLOT STATISTIC <MEAN/SD/ ETC.>           **
23431C     ****************************************************************
23432C
23433      IPART1='FACT'
23434      IPART2='PLOT'
23435      IPART3='STAT'
23436      IPART4='SCAT'
23437      IF((IHARG(1).EQ.IPART1.OR.IHARG(1).EQ.IPART4).AND.
23438     1   IHARG(2).EQ.IPART2.AND.IHARG(3).EQ.IPART3)THEN
23439        IFPLST=IHV
23440        IFPLS2=IHARG2(4)
23441        IFPLS3='    '
23442        IFPLS4='    '
23443        IF(NUMARG.GE.5)THEN
23444          IFPLS3=IHARG(5)
23445          IFPLS4=IHARG2(5)
23446        ENDIF
23447        GOTO5160
23448      ENDIF
23449C
23450CCCCC FOLLOWING SECTION ADDED SEPTEMBER 1999.
23451C     ****************************************************************
23452C     **  SET CONDITION    PLOT STATISTIC <MEAN/SD/ ETC.>           **
23453C     ****************************************************************
23454C
23455      IPART1='COND'
23456      IPART2='PLOT'
23457      IPART3='STAT'
23458      IPART4='SUBS'
23459      IF((IHARG(1).EQ.IPART1.OR.IHARG(1).EQ.IPART4).AND.
23460     1   IHARG(2).EQ.IPART2.AND.IHARG(3).EQ.IPART3)THEN
23461        ICPLST=IHV
23462        ICPLS2=IHARG2(4)
23463        ICPLS3='    '
23464        ICPLS4='    '
23465        IF(NUMARG.GE.5)THEN
23466          ICPLS3=IHARG(5)
23467          ICPLS4=IHARG2(5)
23468        ENDIF
23469        GOTO5160
23470      ENDIF
23471C
23472CCCCC FOLLOWING SECTION ADDED SEPTEMBER 1999.
23473C     ****************************************************************
23474C     **  SET SCATTER PLOT MATRIX FIT <NONE/LOESS/LOWESS/LINE/QUAD> **
23475C     ****************************************************************
23476C
23477      IPART1='SCAT'
23478      IPART2='PLOT'
23479      IPART3='MATR'
23480      IPART4='FIT '
23481      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
23482     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
23483        ISPMFI=IHV
23484        IF(ISPMFI.EQ.'LOWE')ISPMFI='LOES'
23485        IHV=ISPMFI
23486        GOTO5160
23487      ENDIF
23488C
23489      IPART1='MATR'
23490      IPART2='PLOT'
23491      IPART3='FIT '
23492      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
23493     1   IHARG(3).EQ.IPART3)THEN
23494        ISPMFI=IHV
23495        IF(ISPMFI.EQ.'LOWE')ISPMFI='LOES'
23496        IHV=ISPMFI
23497        GOTO5160
23498      ENDIF
23499C
23500CCCCC FOLLOWING SECTION ADDED SEPTEMBER 1999.
23501C     ****************************************************************
23502C     **  SET CONDITIONING PLOT FIT <NONE/LOESS/LOWESS/LINE/QUAD>   **
23503C     ****************************************************************
23504C
23505      IPART1='COND'
23506      IPART2='PLOT'
23507      IPART3='FIT '
23508      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
23509     1   IHARG(3).EQ.IPART3)THEN
23510        ICPLFI=IHV
23511        IF(ICPLFI.EQ.'LOWE')ICPLFI='LOES'
23512        IHV=ICPLFI
23513        GOTO5160
23514      ENDIF
23515C
23516      IPART1='SUBS'
23517      IPART2='PLOT'
23518      IPART3='FIT '
23519      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
23520     1   IHARG(3).EQ.IPART3)THEN
23521        ICPLFI=IHV
23522        IF(ICPLFI.EQ.'LOWE')ICPLFI='LOES'
23523        IHV=ICPLFI
23524        GOTO5160
23525      ENDIF
23526C
23527CCCCC FOLLOWING SECTION ADDED SEPTEMBER 1999.
23528C     ****************************************************************
23529C     **  SET FACTOR       PLOT FIT <NONE/LOESS/LOWESS/LINE/QUAD>   **
23530C     ****************************************************************
23531C
23532      IPART1='FACT'
23533      IPART2='PLOT'
23534      IPART3='FIT '
23535      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
23536     1   IHARG(3).EQ.IPART3)THEN
23537        IFPLFI=IHV
23538        IF(IFPLFI.EQ.'LOWE')IFPLFI='LOES'
23539        IHV=IFPLFI
23540        GOTO5160
23541      ENDIF
23542C
23543      IPART1='SCAT'
23544      IPART2='PLOT'
23545      IPART3='FIT '
23546      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
23547     1   IHARG(3).EQ.IPART3)THEN
23548        IFPLFI=IHV
23549        IF(IFPLFI.EQ.'LOWE')IFPLFI='LOES'
23550        IHV=IFPLFI
23551        GOTO5160
23552      ENDIF
23553C
23554CCCCC FOLLOWING SECTION ADDED SEPTEMBER 1999.
23555C     ****************************************************************
23556C     **  SET SCATTER PLOT MATRIX TAG    <ON/OFF>                   **
23557C     ****************************************************************
23558C
23559      IPART1='SCAT'
23560      IPART2='PLOT'
23561      IPART3='MATR'
23562      IPART4='TAG '
23563      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
23564     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
23565        ISPMTA=IHV
23566        IF(ISPMTA.NE.'ON'.AND.ISPMTA.NE.'OFF')ISPMLA='ON'
23567        GOTO5160
23568      ENDIF
23569C
23570      IPART1='MATR'
23571      IPART2='PLOT'
23572      IPART3='TAG '
23573      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
23574     1   IHARG(3).EQ.IPART3)THEN
23575        ISPMTA=IHV
23576        IF(ISPMTA.NE.'ON'.AND.ISPMTA.NE.'OFF')ISPMLA='ON'
23577        GOTO5160
23578      ENDIF
23579C
23580CCCCC FOLLOWING SECTION ADDED SEPTEMBER 1999.
23581C     ****************************************************************
23582C     **  SET CONDITIONING PLOT TAG      <ON/OFF>                   **
23583C     ****************************************************************
23584C
23585      IPART1='COND'
23586      IPART2='PLOT'
23587      IPART3='TAG '
23588      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
23589     1   IHARG(3).EQ.IPART3)THEN
23590        ICPLTA=IHV
23591        IF(ICPLTA.NE.'ON'.AND.ICPLTA.NE.'OFF')ICPLLA='ON'
23592        GOTO5160
23593      ENDIF
23594C
23595      IPART1='SUBS'
23596      IPART2='PLOT'
23597      IPART3='TAG '
23598      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
23599     1   IHARG(3).EQ.IPART3)THEN
23600        ICPLTA=IHV
23601        IF(ICPLTA.NE.'ON'.AND.ICPLTA.NE.'OFF')ICPLLA='ON'
23602        GOTO5160
23603      ENDIF
23604C
23605CCCCC FOLLOWING SECTION ADDED SEPTEMBER 1999.
23606C     ****************************************************************
23607C     **  SET FACTOR       PLOT TAG      <ON/OFF>                   **
23608C     ****************************************************************
23609C
23610      IPART1='FACT'
23611      IPART2='PLOT'
23612      IPART3='TAG '
23613      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
23614     1   IHARG(3).EQ.IPART3)THEN
23615        IFPLTA=IHV
23616        IF(IFPLTA.NE.'ON'.AND.IFPLTA.NE.'OFF')IFPLTA='ON'
23617        GOTO5160
23618      ENDIF
23619C
23620      IPART1='SCAT'
23621      IPART2='PLOT'
23622      IPART3='TAG '
23623      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
23624     1   IHARG(3).EQ.IPART3)THEN
23625        IFPLTA=IHV
23626        IF(IFPLTA.NE.'ON'.AND.IFPLTA.NE.'OFF')IFPLTA='ON'
23627        GOTO5160
23628      ENDIF
23629C
23630CCCCC FOLLOWING SECTION ADDED SEPTEMBER 1999.
23631C     ****************************************************************
23632C     **  SET SCATTER PLOT MATRIX FRAME <DEFAULT/USER>             **
23633C     ****************************************************************
23634C
23635      IPART1='SCAT'
23636      IPART2='PLOT'
23637      IPART3='MATR'
23638      IPART4='FRAM'
23639      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
23640     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
23641        ISPMFR=IHV
23642        IF(ISPMFR.NE.'USER'.AND.ISPMFR.NE.'CONN')ISPMFR='DEFA'
23643        GOTO5160
23644      ENDIF
23645C
23646      IPART1='MATR'
23647      IPART2='PLOT'
23648      IPART3='FRAM'
23649      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
23650     1   IHARG(3).EQ.IPART3)THEN
23651        ISPMFR=IHV
23652        IF(ISPMFR.NE.'USER')ISPMFR='DEFA'
23653        GOTO5160
23654      ENDIF
23655C
23656CCCCC FOLLOWING SECTION ADDED SEPTEMBER 1999.
23657C     ****************************************************************
23658C     **  SET CONDITIONING PLOT FRAME <DEFAULT/USER>                **
23659C     ****************************************************************
23660C
23661      IPART1='COND'
23662      IPART2='PLOT'
23663      IPART3='FRAM'
23664      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
23665     1   IHARG(3).EQ.IPART3)THEN
23666        ICPLFR=IHV
23667        IF(ICPLFR.NE.'USER'.AND.ICPLFR.NE.'CONN')ICPLFR='DEFA'
23668        GOTO5160
23669      ENDIF
23670C
23671      IPART1='SUBS'
23672      IPART2='PLOT'
23673      IPART3='FRAM'
23674      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
23675     1   IHARG(3).EQ.IPART3)THEN
23676        ICPLFR=IHV
23677        IF(ICPLFR.NE.'USER')ICPLFR='DEFA'
23678        GOTO5160
23679      ENDIF
23680C
23681CCCCC FOLLOWING SECTION ADDED SEPTEMBER 1999.
23682C     ****************************************************************
23683C     **  SET FACTOR       PLOT FRAME <DEFAULT/USER>                **
23684C     ****************************************************************
23685C
23686      IPART1='FACT'
23687      IPART2='PLOT'
23688      IPART3='FRAM'
23689      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
23690     1   IHARG(3).EQ.IPART3)THEN
23691        IFPLFR=IHV
23692        IF(IFPLFR.NE.'USER'.AND.IFPLFR.NE.'CONN')IFPLFR='DEFA'
23693        GOTO5160
23694      ENDIF
23695C
23696      IPART1='SCAT'
23697      IPART2='PLOT'
23698      IPART3='FRAM'
23699      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
23700     1   IHARG(3).EQ.IPART3)THEN
23701        IFPLFR=IHV
23702        IF(IFPLFR.NE.'USER')IFPLFR='DEFA'
23703        GOTO5160
23704      ENDIF
23705C
23706CCCCC FOLLOWING SECTION ADDED SEPTEMBER 1999.
23707C     ***************************************************************
23708C     **  SET CONDITIONING PLOT PRE-SORT <ON/OFF>                  **
23709C     ***************************************************************
23710C  NOTE: CURRENTLY, THIS NOT USED SINCE ONE CAN SIMPLY USE
23711C        REGULAR PRE-SORT COMMAND
23712C
23713CCCCC IPART1='COND'
23714CCCCC IPART2='PLOT'
23715CCCCC IPART3='PRE '
23716CCCCC IPART4='SORT'
23717CCCCC IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
23718CCCCC1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
23719CCCCC   ICPLPS=IHV
23720CCCCC   IF(ICPLPS.NE.'OFF')ICPLPS='ON'
23721CCCCC   GOTO5160
23722CCCCC ENDIF
23723C
23724CCCCC FOLLOWING SECTION ADDED DECEMBER 1999.
23725C     *****************************************************************
23726C     **  SET FACTOR  PLOT TIC LABEL DISPLACEMENT <NORMAL/STAGGERVALUE>
23727C     *****************************************************************
23728C
23729      IPART1='FACT'
23730      IPART6='SCAT'
23731      IPART2='PLOT'
23732      IPART3='TIC '
23733      IPART4='LABE'
23734      IPART5='DISP'
23735      IF((IHARG(1).EQ.IPART1.OR.IHARG(1).EQ.IPART6).AND.
23736     1   IHARG(2).EQ.IPART2.AND.
23737     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
23738     1   IHARG(5).EQ.IPART5)THEN
23739         IF(IARGT(6).EQ.'NUMB')THEN
23740           PFPLTD=AV
23741           GOTO5170
23742         ELSE
23743           IFPLTD=IHV
23744           IF(IFPLTD.NE.'STAG')IFPLTD='NORM'
23745           GOTO5160
23746         ENDIF
23747      ENDIF
23748C
23749CCCCC FOLLOWING SECTION ADDED DECEMBER 1999.
23750C     *****************************************************************
23751C     **  SET CONDITI PLOT TIC LABEL DISPLACEMENT <NORMAL/STAGGERVALUE>
23752C     *****************************************************************
23753C
23754      IPART1='COND'
23755      IPART6='SUBS'
23756      IPART2='PLOT'
23757      IPART3='TIC '
23758      IPART4='LABE'
23759      IPART5='DISP'
23760      IF((IHARG(1).EQ.IPART1.OR.IHARG(1).EQ.IPART6).AND.
23761     1   IHARG(2).EQ.IPART2.AND.
23762     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
23763     1   IHARG(5).EQ.IPART5)THEN
23764         IF(IARGT(6).EQ.'NUMB')THEN
23765           PCPLTD=AV
23766           GOTO5170
23767         ELSE
23768           ICPLTD=IHV
23769           IF(ICPLTD.NE.'STAG')ICPLTD='NORM'
23770           GOTO5160
23771         ENDIF
23772      ENDIF
23773C
23774CCCCC FOLLOWING SECTION ADDED DECEMBER 1999.
23775C     *****************************************************************
23776C     **  SET MATRIX  PLOT TIC LABEL DISPLACEMENT <NORMAL/STAGGERVALUE>
23777C     *****************************************************************
23778C
23779      IPART1='MATR'
23780      IPART2='PLOT'
23781      IPART3='TIC '
23782      IPART4='LABE'
23783      IPART5='DISP'
23784      IF(IHARG(1).EQ.IPART1.AND.
23785     1   IHARG(2).EQ.IPART2.AND.
23786     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
23787     1   IHARG(5).EQ.IPART5)THEN
23788         IF(IARGT(6).EQ.'NUMB')THEN
23789           PSPMTD=AV
23790           GOTO5170
23791         ELSE
23792           ISPMTD=IHV
23793           IF(ISPMTD.NE.'STAG')ISPMTD='NORM'
23794           GOTO5160
23795         ENDIF
23796      ENDIF
23797C
23798      IPART1='SCAT'
23799      IPART2='PLOT'
23800      IPART3='MATR'
23801      IPART4='TIC '
23802      IPART5='LABE'
23803      IPART6='DISP'
23804      IF(IHARG(1).EQ.IPART1.AND.
23805     1   IHARG(2).EQ.IPART2.AND.
23806     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
23807     1   IHARG(5).EQ.IPART5.AND.IHARG(6).EQ.IPART6)THEN
23808         IF(IARGT(7).EQ.'NUMB')THEN
23809           PSPMTD=AV
23810           GOTO5170
23811         ELSE
23812           ISPMTD=IHV
23813           IF(ISPMTD.NE.'STAG')ISPMTD='NORM'
23814           GOTO5160
23815         ENDIF
23816      ENDIF
23817C
23818CCCCC FOLLOWING SECTION ADDED SEPTEMBER 1999.
23819C     ***************************************************************
23820C     **  SET FACTOR       PLOT RESPONSE VARIABLES <VALUE>         **
23821C     ***************************************************************
23822C
23823      IPART1='FACT'
23824      IPART5='SCAT'
23825      IPART2='PLOT'
23826      IPART3='RESP'
23827      IPART4='VARI'
23828      IF((IHARG(1).EQ.IPART1.OR.IHARG(1).EQ.IPART5).AND.
23829     1   IHARG(2).EQ.IPART2.AND.
23830     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
23831        PFPLRV=AV
23832        GOTO5170
23833      ENDIF
23834C
23835CCCCC FOLLOWING SECTION ADDED SEPTEMBER 1999.
23836C     ***************************************************************
23837C     **  SET CONDITION    PLOT RESPONSE VARIABLES <VALUE>         **
23838C     ***************************************************************
23839C
23840      IPART1='COND'
23841      IPART5='SUBS'
23842      IPART2='PLOT'
23843      IPART3='RESP'
23844      IPART4='VARI'
23845      IF((IHARG(1).EQ.IPART1.OR.IHARG(1).EQ.IPART5).AND.
23846     1   IHARG(2).EQ.IPART2.AND.
23847     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
23848        PCPLRV=AV
23849        GOTO5170
23850      ENDIF
23851C
23852CCCCC FOLLOWING SECTION ADDED SEPTEMBER 1999.
23853C     ***************************************************************
23854C     **  SET CONDITION    PLOT TAG      VARIABLES <VALUE>         **
23855C     ***************************************************************
23856C
23857      IPART1='COND'
23858      IPART5='SUBS'
23859      IPART2='PLOT'
23860      IPART3='COND'
23861      IPART4='VARI'
23862      IF((IHARG(1).EQ.IPART1.OR.IHARG(1).EQ.IPART5).AND.
23863     1   IHARG(2).EQ.IPART2.AND.
23864     1   (IHARG(3).EQ.IPART3.OR.IHARG(3).EQ.'TAG ').AND.
23865     1   IHARG(4).EQ.IPART4)THEN
23866        PCPLTV=AV
23867        GOTO5170
23868      ENDIF
23869C
23870CCCCC FOLLOWING SECTION ADDED SEPTEMBER 1999.
23871C     ***************************************************************
23872C     **  SET SCATTER PLOT MATRIX LIMITS <LOWL1> <UPPL1>           **
23873C     **      <LOWL2> <UPPL2>  ETC.                                **
23874C     **    (CAN SPECIFY UP TO 25 PAIRS)                           **
23875C     ***************************************************************
23876C
23877      IPART1='SCAT'
23878      IPART2='PLOT'
23879      IPART3='MATR'
23880      IPART4='LIMI'
23881      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
23882     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
23883        DO22509I=1,25
23884          PSPLLL(I)=CPUMIN
23885          PSPLUL(I)=CPUMIN
2388622509   CONTINUE
23887        IF(NUMARG.GE.5)THEN
23888          IT1=0
23889          DO22511I=5,NUMARG,2
23890            IF(I+1.GT.NUMARG)GOTO22511
23891            IF(IT1.GT.24)GOTO22511
23892            IT1=IT1+1
23893            PSPLLL(IT1)=ARG(I)
23894            PSPLUL(IT1)=ARG(I+1)
2389522511     CONTINUE
23896        ENDIF
23897        WRITE(ICOUT,999)
23898        CALL DPWRST('XXX','BUG ')
23899        WRITE(ICOUT,22513)IT1
2390022513   FORMAT(I8,' LIMIT PAIRS HAVE BEEN SET FOR THE SCATTER PLOT ',
23901     1         'MATRIX')
23902        CALL DPWRST('XXX','BUG ')
23903        IFOUND='YES'
23904        GOTO9000
23905      ENDIF
23906C
23907      IPART1='MATR'
23908      IPART2='PLOT'
23909      IPART3='LIMI'
23910      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
23911     1   IHARG(3).EQ.IPART3)THEN
23912        IF(NUMARG.GE.3)THEN
23913          IT1=0
23914          DO22519I=1,25
23915            PSPLLL(I)=CPUMIN
23916            PSPLUL(I)=CPUMIN
2391722519     CONTINUE
23918          DO22521I=4,NUMARG,2
23919            IF(I+1.GT.NUMARG)GOTO22521
23920            IF(IT1.GT.24)GOTO22521
23921            IT1=IT1+1
23922            PSPLLL(IT1)=ARG(I)
23923            PSPLUL(IT1)=ARG(I+1)
2392422521     CONTINUE
23925        ENDIF
23926        WRITE(ICOUT,999)
23927        CALL DPWRST('XXX','BUG ')
23928        WRITE(ICOUT,22523)IT1
2392922523   FORMAT(I8,' LIMIT PAIRS HAVE BEEN SET FOR THE MATRIX PLOT ')
23930        CALL DPWRST('XXX','BUG ')
23931        IFOUND='YES'
23932        GOTO9000
23933      ENDIF
23934C
23935CCCCC FOLLOWING SECTION ADDED SEPTEMBER 1999.
23936C     ***************************************************************
23937C     **  SET SCATTER PLOT MATRIX LIMITS <LOWL1> <UPPL1>           **
23938C     **      <LOWL2> <UPPL2>  ETC.                                **
23939C     **    (CAN SPECIFY UP TO 25 PAIRS)                           **
23940C     ***************************************************************
23941C
23942      IPART1='SCAT'
23943      IPART2='PLOT'
23944      IPART3='MATR'
23945      IPART4='SUBR'
23946      IPART5='LIMI'
23947      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
23948     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
23949     1   IHARG(5).EQ.IPART5)THEN
23950        DO23509I=1,25
23951          PSPLSL(I)=CPUMIN
23952          PSPLSU(I)=CPUMIN
2395323509   CONTINUE
23954        IF(NUMARG.GE.6)THEN
23955          IT1=0
23956          DO23511I=6,NUMARG,2
23957            IF(I+1.GT.NUMARG)GOTO23511
23958            IF(IT1.GT.24)GOTO23511
23959            IT1=IT1+1
23960            PSPLSL(IT1)=ARG(I)
23961            PSPLSU(IT1)=ARG(I+1)
2396223511     CONTINUE
23963        ENDIF
23964        WRITE(ICOUT,999)
23965        CALL DPWRST('XXX','BUG ')
23966        WRITE(ICOUT,23513)IT1
2396723513   FORMAT(I8,' LIMIT PAIRS HAVE BEEN SET FOR THE SCATTER PLOT ',
23968     1         'MATRIX')
23969        CALL DPWRST('XXX','BUG ')
23970        IFOUND='YES'
23971        GOTO9000
23972      ENDIF
23973C
23974      IPART1='MATR'
23975      IPART2='PLOT'
23976      IPART3='SUBR'
23977      IPART4='LIMI'
23978      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
23979     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
23980          IT1=0
23981          DO23519I=1,25
23982            PSPLSL(I)=CPUMIN
23983            PSPLSU(I)=CPUMIN
2398423519     CONTINUE
23985          IF(NUMARG.GE.4)THEN
23986            DO23521I=5,NUMARG,2
23987            IF(I+1.GT.NUMARG)GOTO23521
23988            IF(IT1.GT.24)GOTO23521
23989            IT1=IT1+1
23990            PSPLSL(IT1)=ARG(I)
23991            PSPLSU(IT1)=ARG(I+1)
2399223521       CONTINUE
23993          ENDIF
23994        WRITE(ICOUT,999)
23995        CALL DPWRST('XXX','BUG ')
23996        WRITE(ICOUT,23523)IT1
2399723523   FORMAT(I8,' SUBREGION LIMIT PAIRS HAVE BEEN SET FOR THE ',
23998     1         'MATRIX PLOT ')
23999        CALL DPWRST('XXX','BUG ')
24000        IFOUND='YES'
24001        GOTO9000
24002      ENDIF
24003C
24004CCCCC FOLLOWING SECTION ADDED SEPTEMBER 1999.
24005C     ***************************************************************
24006C     **  SET FACTOR PLOT XLIMITS <LOWL1> <UPPL1> <LOWL2> <UPPL2>  **
24007C     **    (CAN SPECIFY UP TO 25 PAIRS)                           **
24008C     ***************************************************************
24009C
24010      IPART1='FACT'
24011      IPART4='SCAT'
24012      IPART2='PLOT'
24013      IPART3='XLIM'
24014      IF((IHARG(1).EQ.IPART1.OR.IHARG(1).EQ.IPART4).AND.
24015     1   IHARG(2).EQ.IPART2.AND.IHARG(3).EQ.IPART3)THEN
24016        DO22609I=1,25
24017          PFPXLL(I)=CPUMIN
24018          PFPXUL(I)=CPUMIN
2401922609   CONTINUE
24020        IF(NUMARG.GE.4)THEN
24021          IT1=0
24022          DO22611I=4,NUMARG,2
24023            IF(I+1.GT.NUMARG)GOTO22611
24024            IF(IT1.GT.24)GOTO22611
24025            IT1=IT1+1
24026            PFPXLL(IT1)=ARG(I)
24027            PFPXUL(IT1)=ARG(I+1)
2402822611     CONTINUE
24029        ENDIF
24030        WRITE(ICOUT,999)
24031        CALL DPWRST('XXX','BUG ')
24032        WRITE(ICOUT,22613)IT1
2403322613   FORMAT(I8,' XLIMIT PAIRS HAVE BEEN SET FOR THE FACTOR PLOT')
24034        CALL DPWRST('XXX','BUG ')
24035        IFOUND='YES'
24036        GOTO9000
24037      ENDIF
24038C
24039CCCCC FOLLOWING SECTION ADDED SEPTEMBER 1999.
24040C     ***************************************************************
24041C     **  SET FACTOR PLOT YLIMITS <LOWL1> <UPPL1> <LOWL2> <UPPL2>  **
24042C     **    (CAN SPECIFY UP TO 25 PAIRS)                           **
24043C     ***************************************************************
24044C
24045      IPART1='FACT'
24046      IPART4='SCAT'
24047      IPART2='PLOT'
24048      IPART3='YLIM'
24049      IF((IHARG(1).EQ.IPART1.OR.IHARG(1).EQ.IPART4).AND.
24050     1   IHARG(2).EQ.IPART2.AND.IHARG(3).EQ.IPART3)THEN
24051        DO22619I=1,25
24052          PFPYLL(I)=CPUMIN
24053          PFPYUL(I)=CPUMIN
2405422619   CONTINUE
24055        IF(NUMARG.GE.4)THEN
24056          IT1=0
24057          DO22621I=4,NUMARG,2
24058            IF(I+1.GT.NUMARG)GOTO22621
24059            IF(IT1.GT.24)GOTO22621
24060            IT1=IT1+1
24061            PFPYLL(IT1)=ARG(I)
24062            PFPYUL(IT1)=ARG(I+1)
2406322621     CONTINUE
24064        ENDIF
24065        WRITE(ICOUT,999)
24066        CALL DPWRST('XXX','BUG ')
24067        WRITE(ICOUT,22623)IT1
2406822623   FORMAT(I8,' YLIMIT PAIRS HAVE BEEN SET FOR THE FACTOR PLOT')
24069        CALL DPWRST('XXX','BUG ')
24070        IFOUND='YES'
24071        GOTO9000
24072      ENDIF
24073C
24074CCCCC FOLLOWING SECTION ADDED DECEMBER 1999.
24075C     ***************************************************************
24076C     **  SET FACTOR PLOT SUBREGION XLIMITS <LOWL1> <UPPL1>        **
24077C     **      <LOWL2> <UPPL2>                                      **
24078C     **    (CAN SPECIFY UP TO 25 PAIRS)                           **
24079C     ***************************************************************
24080C
24081      IPART1='FACT'
24082      IPART4='SCAT'
24083      IPART2='PLOT'
24084      IPART3='SUBR'
24085      IPART4='XLIM'
24086      IF((IHARG(1).EQ.IPART1.OR.IHARG(1).EQ.IPART4).AND.
24087     1   IHARG(2).EQ.IPART2.AND.IHARG(3).EQ.IPART3.AND.
24088     1   IHARG(4).EQ.IPART4)THEN
24089        DO23609I=1,25
24090          PFPXSL(I)=CPUMIN
24091          PFPXSU(I)=CPUMIN
2409223609   CONTINUE
24093        IF(NUMARG.GE.5)THEN
24094          IT1=0
24095          DO23611I=5,NUMARG,2
24096            IF(I+1.GT.NUMARG)GOTO23611
24097            IF(IT1.GT.24)GOTO23611
24098            IT1=IT1+1
24099            PFPXSL(IT1)=ARG(I)
24100            PFPXSU(IT1)=ARG(I+1)
2410123611     CONTINUE
24102        ENDIF
24103        WRITE(ICOUT,999)
24104        CALL DPWRST('XXX','BUG ')
24105        WRITE(ICOUT,23613)IT1
2410623613   FORMAT(I8,' SUBREGION XLIMIT PAIRS HAVE BEEN SET FOR THE ',
24107     1         'FACTOR PLOT')
24108        CALL DPWRST('XXX','BUG ')
24109        IFOUND='YES'
24110        GOTO9000
24111      ENDIF
24112C
24113CCCCC FOLLOWING SECTION ADDED SEPTEMBER 1999.
24114C     ***************************************************************
24115C     **  SET FACTOR PLOT SUBREGION YLIMITS <LOWL1> <UPPL1>        **
24116C     **      <LOWL2> <UPPL2>                                      **
24117C     **    (CAN SPECIFY UP TO 25 PAIRS)                           **
24118C     ***************************************************************
24119C
24120      IPART1='FACT'
24121      IPART4='SCAT'
24122      IPART2='PLOT'
24123      IPART3='SUBR'
24124      IPART4='YLIM'
24125      IF((IHARG(1).EQ.IPART1.OR.IHARG(1).EQ.IPART4).AND.
24126     1   IHARG(2).EQ.IPART2.AND.IHARG(3).EQ.IPART3.AND.
24127     1   IHARG(4).EQ.IPART4)THEN
24128        DO23619I=1,25
24129          PFPYSL(I)=CPUMIN
24130          PFPYSU(I)=CPUMIN
2413123619   CONTINUE
24132        IF(NUMARG.GE.5)THEN
24133          IT1=0
24134          DO23621I=5,NUMARG,2
24135            IF(I+1.GT.NUMARG)GOTO23621
24136            IF(IT1.GT.24)GOTO23621
24137            IT1=IT1+1
24138            PFPYSL(IT1)=ARG(I)
24139            PFPYSU(IT1)=ARG(I+1)
2414023621     CONTINUE
24141        ENDIF
24142        WRITE(ICOUT,999)
24143        CALL DPWRST('XXX','BUG ')
24144        WRITE(ICOUT,23623)IT1
2414523623   FORMAT(I8,' SUBREGION YLIMIT PAIRS HAVE BEEN SET FOR THE ',
24146     1         'FACTOR PLOT')
24147        CALL DPWRST('XXX','BUG ')
24148        IFOUND='YES'
24149        GOTO9000
24150      ENDIF
24151C
24152CCCCC FOLLOWING SECTION ADDED SEPTEMBER 1999.
24153C     ***************************************************************
24154C     **  SET CONDITION PLOT XLIMITS <LOWL1> <UPPL1> <LOWL2> <UPPL2>*
24155C     **    (CAN SPECIFY UP TO 25 PAIRS)                           **
24156C     ***************************************************************
24157C
24158      IPART1='COND'
24159      IPART4='SUBS'
24160      IPART2='PLOT'
24161      IPART3='XLIM'
24162      IF((IHARG(1).EQ.IPART1.OR.IHARG(1).EQ.IPART4).AND.
24163     1   IHARG(2).EQ.IPART2.AND.IHARG(3).EQ.IPART3)THEN
24164        DO22709I=1,25
24165          PCPXSL(I)=CPUMIN
24166          PCPXSU(I)=CPUMIN
2416722709   CONTINUE
24168        IF(NUMARG.GE.4)THEN
24169          IT1=0
24170          DO22711I=4,NUMARG,2
24171            IF(I+1.GT.NUMARG)GOTO22711
24172            IF(IT1.GT.24)GOTO22711
24173            IT1=IT1+1
24174            PCPXSL(IT1)=ARG(I)
24175            PCPXSU(IT1)=ARG(I+1)
2417622711     CONTINUE
24177        ENDIF
24178        WRITE(ICOUT,999)
24179        CALL DPWRST('XXX','BUG ')
24180        WRITE(ICOUT,22713)IT1
2418122713   FORMAT(I8,' XLIMIT PAIRS HAVE BEEN SET FOR THE CONDITION PLOT')
24182        CALL DPWRST('XXX','BUG ')
24183        IFOUND='YES'
24184        GOTO9000
24185      ENDIF
24186C
24187CCCCC FOLLOWING SECTION ADDED SEPTEMBER 1999.
24188C     ***************************************************************
24189C     **  SET CONDITION PLOT YLIMITS <LOWL1> <UPPL1> <LOWL2> <UPPL2>*
24190C     **    (CAN SPECIFY UP TO 25 PAIRS)                           **
24191C     ***************************************************************
24192C
24193      IPART1='COND'
24194      IPART4='SUBS'
24195      IPART2='PLOT'
24196      IPART3='YLIM'
24197      IF((IHARG(1).EQ.IPART1.OR.IHARG(1).EQ.IPART4).AND.
24198     1   IHARG(2).EQ.IPART2.AND.IHARG(3).EQ.IPART3)THEN
24199        DO22719I=1,25
24200          PCPYLL(I)=CPUMIN
24201          PCPYUL(I)=CPUMIN
2420222719   CONTINUE
24203        IF(NUMARG.GE.4)THEN
24204          IT1=0
24205          DO22721I=4,NUMARG,2
24206            IF(I+1.GT.NUMARG)GOTO22721
24207            IF(IT1.GT.24)GOTO22721
24208            IT1=IT1+1
24209            PCPYLL(IT1)=ARG(I)
24210            PCPYUL(IT1)=ARG(I+1)
2421122721     CONTINUE
24212        ENDIF
24213        WRITE(ICOUT,999)
24214        CALL DPWRST('XXX','BUG ')
24215        WRITE(ICOUT,22723)IT1
2421622723   FORMAT(I8,' YLIMIT PAIRS HAVE BEEN SET FOR THE CONDITION PLOT')
24217        CALL DPWRST('XXX','BUG ')
24218        IFOUND='YES'
24219        GOTO9000
24220      ENDIF
24221C
24222CCCCC FOLLOWING SECTION ADDED DECEMBER 1999.
24223C     ***************************************************************
24224C     **  SET CONDITION PLOT SUBREGION XLIMITS <LOWL1> <UPPL1>     **
24225C     **      <LOWL2> <UPPL2>                                      **
24226C     **    (CAN SPECIFY UP TO 25 PAIRS)                           **
24227C     ***************************************************************
24228C
24229      IPART1='COND'
24230      IPART4='SUBS'
24231      IPART2='PLOT'
24232      IPART3='SUBR'
24233      IPART4='XLIM'
24234      IF((IHARG(1).EQ.IPART1.OR.IHARG(1).EQ.IPART4).AND.
24235     1   IHARG(2).EQ.IPART2.AND.IHARG(3).EQ.IPART3.AND.
24236     1   IHARG(4).EQ.IPART4)THEN
24237        DO23709I=1,25
24238          PCPXSL(I)=CPUMIN
24239          PCPXSU(I)=CPUMIN
2424023709   CONTINUE
24241        IF(NUMARG.GE.5)THEN
24242          IT1=0
24243          DO23711I=5,NUMARG,2
24244            IF(I+1.GT.NUMARG)GOTO23711
24245            IF(IT1.GT.24)GOTO23711
24246            IT1=IT1+1
24247            PCPXSL(IT1)=ARG(I)
24248            PCPXSU(IT1)=ARG(I+1)
2424923711     CONTINUE
24250        ENDIF
24251        WRITE(ICOUT,999)
24252        CALL DPWRST('XXX','BUG ')
24253        WRITE(ICOUT,23713)IT1
2425423713   FORMAT(I8,' SUBREGION XLIMIT PAIRS HAVE BEEN SET FOR THE ',
24255     1         'CONDITION PLOT')
24256        CALL DPWRST('XXX','BUG ')
24257        IFOUND='YES'
24258        GOTO9000
24259      ENDIF
24260C
24261CCCCC FOLLOWING SECTION ADDED SEPTEMBER 1999.
24262C     ***************************************************************
24263C     **  SET CONDITION PLOT SUBREGION YLIMITS <LOWL1> <UPPL1>     **
24264C     **      <LOWL2> <UPPL2>                                      **
24265C     **    (CAN SPECIFY UP TO 25 PAIRS)                           **
24266C     ***************************************************************
24267C
24268      IPART1='COND'
24269      IPART4='SUBS'
24270      IPART2='PLOT'
24271      IPART3='YLIM'
24272      IF((IHARG(1).EQ.IPART1.OR.IHARG(1).EQ.IPART4).AND.
24273     1   IHARG(2).EQ.IPART2.AND.IHARG(3).EQ.IPART3.AND.
24274     1   IHARG(4).EQ.IPART4)THEN
24275        DO23719I=1,25
24276          PCPYSL(I)=CPUMIN
24277          PCPYSU(I)=CPUMIN
2427823719   CONTINUE
24279        IF(NUMARG.GE.5)THEN
24280          IT1=0
24281          DO23721I=5,NUMARG,2
24282            IF(I+1.GT.NUMARG)GOTO23721
24283            IF(IT1.GT.24)GOTO23721
24284            IT1=IT1+1
24285            PCPYSL(IT1)=ARG(I)
24286            PCPYSU(IT1)=ARG(I+1)
2428723721     CONTINUE
24288        ENDIF
24289        WRITE(ICOUT,999)
24290        CALL DPWRST('XXX','BUG ')
24291        WRITE(ICOUT,23723)IT1
2429223723   FORMAT(I8,' SUBREGION YLIMIT PAIRS HAVE BEEN SET FOR THE ',
24293     1         'CONDITION PLOT')
24294        CALL DPWRST('XXX','BUG ')
24295        IFOUND='YES'
24296        GOTO9000
24297      ENDIF
24298C
24299CCCCC FOLLOWING SECTION ADDED APRIL 1997.
24300C     ********************************************
24301C     **  SET NETSCAPE           <OLD/NEW>      **
24302C     ********************************************
24303C
24304      IPART1='NETS'
24305      IF(IHARG(1).EQ.IPART1)THEN
24306        INETSW=IHV
24307        IF(INETSW.NE.'OLD'.AND.INETSW.NE.'NEW')THEN
24308          INETSW='OLD'
24309        ENDIF
24310        IPART2='    '
24311        GOTO5160
24312      ENDIF
24313C
24314CCCCC FOLLOWING SECTION ADDED FEBRUARY 1998
24315C               *********************************************
24316C               **  TREAT THE    SET PRINTER        CASE   **
24317C               *********************************************
24318C
24319      IF(NUMARG.GE.1.AND.IHARG(1).EQ.'PRIN')GOTO6510
24320      GOTO6590
24321C
24322 6510 CONTINUE
24323      IPRNTR=' '
24324      NCPRNT=0
24325      IF(NUMARG.LE.1)GOTO6550
24326      IF(IHARG(NUMARG).EQ.'OFF')GOTO6550
24327      IF(IHARG(NUMARG).EQ.'AUTO')GOTO6550
24328      IF(IHARG(NUMARG).EQ.'DEFA')GOTO6550
24329C
24330      DO6530I=1,MAXTMP
24331      ICANS(I:I)=IANSLC(I)
24332 6530 CONTINUE
24333C
24334      ISTART=1
24335      ISTOP=IWIDTH
24336CCCCC NOVEMBER 2002.  SET NUMARG TO WORD AFTER "SET PRINTER" AND
24337CCCCC TURN ON FILE NAME QUOTE TEMPORARILY
24338      IFILQS=IFILQU
24339      IFILQU='ON'
24340CCCCC IWORD=NUMARG+1
24341      IWORD=3
24342      CALL DPEXWO(ICANS,ISTART,ISTOP,IWORD,
24343     1ICOL1,ICOL2,ISTRIN,NCSTRI,
24344     1IBUGS2,ISUBRO,IERROR)
24345      IFILQU=IFILQS
24346C
24347      IF(NCSTRI.GE.1)GOTO6540
24348      GOTO6550
24349C
24350 6540 CONTINUE
24351      NCPRNT=NCSTRI
24352      IPRNTR(1:NCPRNT)=ISTRIN(1:NCPRNT)
24353      IFOUND='YES'
24354      IF(IFEEDB.EQ.'OFF')GOTO6549
24355      WRITE(ICOUT,999)
24356      CALL DPWRST('XXX','BUG ')
24357      WRITE(ICOUT,6541)
24358 6541 FORMAT('THE PRINTER ID HAS BEEN SET TO')
24359      CALL DPWRST('XXX','BUG ')
24360      WRITE(ICOUT,6542)(IPRNTR(I:I),I=1,NCPRNT)
24361 6542 FORMAT(80A1)
24362      CALL DPWRST('XXX','BUG ')
24363 6549 CONTINUE
24364      GOTO9000
24365C
24366 6550 CONTINUE
24367      IF(IOPSY1.EQ.'UNIX')THEN
24368        IPRNTR=' '
24369        NCPRNT=0
24370      ELSEIF(IHOST1.EQ.'IBM-'.AND.IOPSY1.EQ.'MS-F')THEN
24371        IPRNTR='PRN'
24372        NCPRNT=3
24373      ELSEIF(IHOST1.EQ.'IBM-'.AND.IOPSY1.EQ.'LAHE')THEN
24374        IPRNTR='PRN:'
24375        NCPRNT=4
24376      ELSE
24377        IPRNTR=' '
24378        NCPRNT=0
24379      ENDIF
24380      IFOUND='YES'
24381      IF(IFEEDB.EQ.'OFF')GOTO6559
24382      WRITE(ICOUT,999)
24383      CALL DPWRST('XXX','BUG ')
24384      WRITE(ICOUT,6551)
24385 6551 FORMAT('THE PRINTER FOR THE PP COMMAND HAS BEEN SET ',
24386     1'TO THE DEFAULT:')
24387      CALL DPWRST('XXX','BUG ')
24388      WRITE(ICOUT,6552)IPRNTR(1:NCPRNT)
24389 6552 FORMAT(A80)
24390      CALL DPWRST('XXX','BUG ')
24391 6559 CONTINUE
24392      GOTO9000
24393 6590 CONTINUE
24394C
24395CCCCC FOLLOWING SECTION ADDED SEPTEMBER  2003
24396C               ***********************************************
24397C               **  TREAT THE    SET TABLE TITLE      CASE   **
24398C               ***********************************************
24399C
24400      IF(NUMARG.GE.2.AND.IHARG(1).EQ.'TABL'.AND.
24401     1IHARG(2).EQ.'TITL')GOTO7020
24402      GOTO7059
24403C
24404 7020 CONTINUE
24405      IF(IHARG(3).EQ.'NULL'.OR. IHARG(3).EQ.'DEFA' .OR.
24406     1  IHARG(3).EQ.'OFF ' .OR. IHARG(3).EQ.'NONE' .OR.
24407     1  IHARG(3).EQ.'AUTO' .OR. NUMARG.LE.2)THEN
24408        ITABTI=' '
24409        NCTABT=0
24410        IFOUND='YES'
24411        IF(IFEEDB.EQ.'ON')THEN
24412          WRITE(ICOUT,999)
24413          CALL DPWRST('XXX','BUG ')
24414          WRITE(ICOUT,7029)
24415 7029     FORMAT('THE TABLE TITLE HAS BEEN TURNED OFF')
24416          CALL DPWRST('XXX','BUG ')
24417        ENDIF
24418        GOTO9000
24419      ENDIF
24420C
24421      ITABTI=' '
24422      NCTABT=0
24423      DO7030I=1,MAXTMP
24424      ICANS(I:I)=IANSLC(I)
24425 7030 CONTINUE
24426C
24427      ISTART=1
24428      ISTOP=IWIDTH
24429      IWORD=4
24430      CALL DPEXWO(ICANS,ISTART,ISTOP,IWORD,
24431     1ICOL1,ICOL2,ISTRIN,NCSTRI,
24432     1IBUGS2,ISUBRO,IERROR)
24433C
24434      NCTABT=MAX(NCSTRI,1)
24435      ITABTI(1:NCTABT)=ISTRIN(1:NCTABT)
24436      IF(ITABTI(1:1).EQ.'"' .AND. ITABTI(NCTABT:NCTABT).EQ.'"')THEN
24437        DO7040I=2,NCTABT-1
24438          ITABTI(I-1:I-1)=ITABTI(I:I)
24439 7040   CONTINUE
24440        NCTABT=NCTABT-2
24441      ENDIF
24442      IFOUND='YES'
24443      IF(IFEEDB.EQ.'OFF')GOTO7049
24444      WRITE(ICOUT,999)
24445      CALL DPWRST('XXX','BUG ')
24446      WRITE(ICOUT,7041)
24447 7041 FORMAT('THE TABLE TITLE HAS BEEN SET TO')
24448      CALL DPWRST('XXX','BUG ')
24449      WRITE(ICOUT,7042)(ITABTI(I:I),I=1,MIN(NCTABT,80))
24450 7042 FORMAT(80A1)
24451      CALL DPWRST('XXX','BUG ')
24452 7049 CONTINUE
24453      GOTO9000
24454C
24455 7059 CONTINUE
24456C
24457CCCCC FOLLOWING SECTION ADDED FEBRUARY 2005.
24458C     ****************************************************************
24459C     **  SET RTF FIXED FONT <NAME>                                 **
24460C     ****************************************************************
24461C
24462      IPART1='RTF '
24463      IPART2='FIXE'
24464      IPART3='FONT'
24465      IPART4=IHARG(4)
24466      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
24467     1  IHARG(3).EQ.IPART3)THEN
24468        IF(IPART4.EQ.'LUCI')THEN
24469          IRTFFF='Lucida Console'
24470          NCRTF1=14
24471        ELSE
24472          IRTFFF='Courier New'
24473          NCRTF1=11
24474        ENDIF
24475        WRITE(ICOUT,7051)
24476 7051   FORMAT('THE RTF FIXED FONT HAS BEEN SET TO')
24477        CALL DPWRST('XXX','BUG ')
24478        WRITE(ICOUT,7052)IRTFFF(1:NCRTF1)
24479 7052   FORMAT(40A1)
24480        CALL DPWRST('XXX','BUG ')
24481        GOTO9000
24482      ENDIF
24483C
24484CCCCC FOLLOWING SECTION ADDED FEBRUARY 2005.
24485C     ****************************************************************
24486C     **  SET RTF PROPORTIONAL FONT <NAME>                          **
24487C     ****************************************************************
24488C
24489      IPART1='RTF '
24490      IPART2='PROP'
24491      IPART3='FONT'
24492      IPART4=IHARG(4)
24493      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
24494     1  IHARG(3).EQ.IPART3)THEN
24495        IF(IPART4.EQ.'LUCI')THEN
24496          IRTFFP='Lucida Sans'
24497          NCRTF2=11
24498        ELSEIF(IPART4.EQ.'ARIA')THEN
24499          IRTFFP='Arial'
24500          NCRTF2=5
24501        ELSEIF(IPART4.EQ.'TIME')THEN
24502          IRTFFP='Times New Roman'
24503          NCRTF2=15
24504        ELSEIF(IPART4.EQ.'BOOK')THEN
24505          IRTFFP='Bookman'
24506          NCRTF2=7
24507        ELSEIF(IPART4.EQ.'GEOR')THEN
24508          IRTFFP='Georgia'
24509          NCRTF2=7
24510        ELSEIF(IPART4.EQ.'TAHO')THEN
24511          IRTFFP='Tahoma'
24512          NCRTF2=6
24513        ELSEIF(IPART4.EQ.'VERD')THEN
24514          IRTFFP='Verdana'
24515          NCRTF2=7
24516        ELSE
24517          IRTFFP='Times New Roman'
24518          NCRTF2=15
24519        ENDIF
24520        WRITE(ICOUT,7061)
24521 7061   FORMAT('THE RTF PROPORTIONAL FONT HAS BEEN SET TO')
24522        CALL DPWRST('XXX','BUG ')
24523        WRITE(ICOUT,7062)IRTFFP(1:NCRTF2)
24524 7062   FORMAT(40A1)
24525        CALL DPWRST('XXX','BUG ')
24526        GOTO9000
24527      ENDIF
24528C
24529C               *******************************
24530C               **  STEP 21--                **
24531C               **  SET   MACHINE CONSTANTS  **
24532C               *******************************
24533C
24534CCCCC THE FOLLOWING 3 LINES WERE ADDED     DECEMBER 1993
24535      ISTEPN='21'
24536      IF(IBUGS2.EQ.'ON'.OR.ISUBRO.EQ.'SET')
24537     1CALL TRACE2(ISTEPN,ISUBN1,ISUBN2)
24538C
24539      IPART1='IRD '
24540      IPART2='    '
24541      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IRD=IV
24542      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
24543C
24544      IPART1='IPR '
24545      IPART2='    '
24546      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IPR=IV
24547      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
24548C
24549      IPART1='CPUM'
24550      IPART2='IN  '
24551      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)CPUMIN=AV
24552      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5170
24553C
24554      IPART1='CPUM'
24555      IPART2='AX  '
24556      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)CPUMAX=AV
24557      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5170
24558C
24559      IPART1='NUMB'
24560      IPART2='PC  '
24561      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)NUMBPC=IV
24562      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
24563C
24564      IPART1='NUMC'
24565      IPART2='PW  '
24566      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)NUMCPW=IV
24567      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
24568C
24569      IPART1='NUMB'
24570      IPART2='PW  '
24571      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)NUMBPW=IV
24572      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
24573C
24574      IPART1='IFEE'
24575      IPART2='DB  '
24576      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IFEEDB=IHV
24577      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
24578C
24579      IPART1='IPRI'
24580      IPART2='NT  '
24581      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IPRINT=IHV
24582      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
24583C
24584      IPART1='IECH'
24585      IPART2='O   '
24586      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IECHO=IHV
24587      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
24588C
24589C               ************************************
24590C               **  STEP 2--                      **
24591C               **  SET   HOUSEKEEPING VARIABLES  **
24592C               ************************************
24593C
24594      IPART1='MAXW'
24595      IPART2='ID  '
24596      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)MAXWID=IV
24597      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
24598C
24599      IPART1='IWID'
24600      IPART2='TH  '
24601      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IWIDTH=IV
24602      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
24603C
24604      IPART1='MAXW'
24605      IPART2='SV  '
24606      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)MAXWSV=IV
24607      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
24608C
24609      IPART1='IWID'
24610      IPART2='SV  '
24611      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IWIDSV=IV
24612      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
24613C
24614      IPART1='ICOM'
24615      IPART2='    '
24616      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ICOM=IHV
24617      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
24618C
24619      IPART1='ICOM'
24620      IPART2='2   '
24621      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ICOM2=IHV
24622      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
24623C
24624CCCCC IPART1='MAXA'
24625CCCCC IPART2='RG  '
24626CCCCC IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)MAXARG=IV
24627CCCCC IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
24628C
24629      IPART1='NUMA'
24630      IPART2='RG  '
24631      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)NUMARG=IV
24632      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
24633C
24634      IPART1='MAXN'
24635      IPART2='AM  '
24636      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)MAXNAM=IV
24637      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
24638C
24639      IPART1='NUMN'
24640      IPART2='AM  '
24641      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)NUMNAM=IV
24642      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
24643C
24644C ..........
24645C
24646      IPART1='IMES'
24647      IPART2='NU  '
24648      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IMESNU=IV
24649      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
24650C
24651      IPART1='INEW'
24652      IPART2='NU  '
24653      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)INEWNU=IV
24654      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
24655C
24656CCCCC IPART1='IMAI'
24657CCCCC IPART2='NU  '
24658CCCCC IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IMAINU=IV
24659CCCCC IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
24660C
24661      IPART1='IHEL'
24662      IPART2='NU  '
24663      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IHELNU=IV
24664      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
24665C
24666      IPART1='IBUG'
24667      IPART2='NU  '
24668      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IBUGNU=IV
24669      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
24670C
24671CCCCC IPART1='IQUE'
24672CCCCC IPART2='NU  '
24673CCCCC IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IQUENU=IV
24674CCCCC IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
24675C
24676      IPART1='ILOG'
24677      IPART2='NU  '
24678      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ILOGNU=IV
24679      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
24680C
24681      IPART1='IREA'
24682      IPART2='NU  '
24683      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IREANU=IV
24684      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
24685C
24686      IPART1='IWRI'
24687      IPART2='NU  '
24688      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IWRINU=IV
24689      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
24690C
24691      IPART1='ICRE'
24692      IPART2='NU  '
24693      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ICRENU=IV
24694      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
24695C
24696      IPART1='ISAV'
24697      IPART2='NU  '
24698      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ISAVNU=IV
24699      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
24700C
24701      IPART1='ISCR'
24702      IPART2='NU  '
24703      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ISCRNU=IV
24704      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
24705C
24706      IPART1='IDAT'
24707      IPART2='NU  '
24708      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IDATNU=IV
24709      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
24710C
24711      IPART1='IPL1'
24712      IPART2='NU  '
24713      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IPL1NU=IV
24714      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
24715C
24716      IPART1='IPL2'
24717      IPART2='NU  '
24718      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IPL2NU=IV
24719      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
24720C
24721C ..........
24722C
24723      IPART1='IMES'
24724      IPART2='NA  '
24725      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IMESNA=ISTRIN(1:80)
24726      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5370
24727C
24728      IPART1='INEW'
24729      IPART2='NA  '
24730      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)INEWNA=ISTRIN(1:80)
24731      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5370
24732C
24733      IPART1='IMAI'
24734      IPART2='NA  '
24735      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IMAINA=ISTRIN(1:80)
24736      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5370
24737C
24738      IPART1='IHEL'
24739      IPART2='NA  '
24740      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IHELNA=ISTRIN(1:80)
24741      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5370
24742C
24743      IPART1='IBUG'
24744      IPART2='NA  '
24745      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IBUGNA=ISTRIN(1:80)
24746      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5370
24747C
24748      IPART1='IQUE'
24749      IPART2='NA  '
24750      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IQUENA=ISTRIN(1:80)
24751      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5370
24752C
24753      IPART1='ILOG'
24754      IPART2='NA  '
24755      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ILOGNA=ISTRIN(1:80)
24756      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5370
24757C
24758      IPART1='IREA'
24759      IPART2='NA  '
24760      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IREANA=ISTRIN(1:80)
24761      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5370
24762C
24763      IPART1='IWRI'
24764      IPART2='NA  '
24765      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IWRINA=ISTRIN(1:80)
24766      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5370
24767C
24768      IPART1='ICRE'
24769      IPART2='NA  '
24770      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ICRENA=ISTRIN(1:80)
24771      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5370
24772C
24773      IPART1='ISAV'
24774      IPART2='NA  '
24775      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ISAVNA=ISTRIN(1:80)
24776      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5370
24777C
24778      IPART1='ISCR'
24779      IPART2='NA  '
24780      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ISCRNA=ISTRIN(1:80)
24781      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5370
24782C
24783      IPART1='IDAT'
24784      IPART2='NA  '
24785      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IDATNA=ISTRIN(1:80)
24786      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5370
24787C
24788      IPART1='IPL1'
24789      IPART2='NA  '
24790      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IPL1NA=ISTRIN(1:80)
24791      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5370
24792C
24793      IPART1='IPL2'
24794      IPART2='NA  '
24795      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IPL2NA=ISTRIN(1:80)
24796      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5370
24797C
24798C     2020/02: ALLOW USER TO SPECIFY NAME OF CHARACTER DATA FILE
24799C
24800      IPART1='IZCH'
24801      IPART2='NA  '
24802      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IZCHNA=ISTRIN(1:80)
24803      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5370
24804C
24805C ..........
24806C
24807      IPART1='IMES'
24808      IPART2='ST  '
24809      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IMESST=ISTRIN(1:12)
24810      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5360
24811C
24812      IPART1='INEW'
24813      IPART2='ST  '
24814      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)INEWST=ISTRIN(1:12)
24815      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5360
24816C
24817      IPART1='IMAI'
24818      IPART2='ST  '
24819      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IMAIST=ISTRIN(1:12)
24820      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5360
24821C
24822      IPART1='IHEL'
24823      IPART2='ST  '
24824      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IHELST=ISTRIN(1:12)
24825      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5360
24826C
24827      IPART1='IBUG'
24828      IPART2='ST  '
24829      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IBUGST=ISTRIN(1:12)
24830      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5360
24831C
24832      IPART1='IQUE'
24833      IPART2='ST  '
24834      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IQUEST=ISTRIN(1:12)
24835      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5360
24836C
24837      IPART1='ILOG'
24838      IPART2='ST  '
24839      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ILOGST=ISTRIN(1:12)
24840      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5360
24841C
24842      IPART1='IREA'
24843      IPART2='ST  '
24844      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IREAST=ISTRIN(1:12)
24845      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5360
24846C
24847      IPART1='IWRI'
24848      IPART2='ST  '
24849      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IWRIST=ISTRIN(1:12)
24850      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5360
24851C
24852      IPART1='ICRE'
24853      IPART2='ST  '
24854      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ICREST=ISTRIN(1:12)
24855      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5360
24856C
24857      IPART1='ISAV'
24858      IPART2='ST  '
24859      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ISAVST=ISTRIN(1:12)
24860      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5360
24861C
24862      IPART1='ISCR'
24863      IPART2='ST  '
24864      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ISCRST=ISTRIN(1:12)
24865      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5360
24866C
24867      IPART1='IDAT'
24868      IPART2='ST  '
24869      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IDATST=ISTRIN(1:12)
24870      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5360
24871C
24872      IPART1='IPL1'
24873      IPART2='ST  '
24874      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IPL1ST=ISTRIN(1:12)
24875      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5360
24876C
24877      IPART1='IPL2'
24878      IPART2='ST  '
24879      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IPL2ST=ISTRIN(1:12)
24880      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5360
24881C
24882CCCCC IPART1='IHAR'
24883CCCCC IPART2='G   '
24884CCCCC IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IEL=IARG(2)
24885CCCCC IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IHARG(IEL)=IHV
24886CCCCC IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ICASPR='IHAR'
24887CCCCC IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5260
24888C
24889CCCCC IPART1='IHAR'
24890CCCCC IPART2='G2  '
24891CCCCC IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IEL=IARG(2)
24892CCCCC IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IHARG2(IEL)=IHV
24893CCCCC IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ICASPR='IHA2'
24894CCCCC IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5260
24895C
24896      IPART1='IARG'
24897      IPART2='    '
24898      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IEL=IARG(2)
24899      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IARG(IEL)=IV
24900      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ICASPR='IARG'
24901      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5250
24902C
24903      IPART1='ARG '
24904      IPART2='    '
24905      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IEL=IARG(2)
24906      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ARG(IEL)=AV
24907      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ICASPR='ARG '
24908      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5270
24909C
24910      IPART1='IHNA'
24911      IPART2='ME  '
24912      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IEL=IARG(2)
24913      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IHNAME(IEL)=IHV
24914      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ICASPR='IHNA'
24915      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5260
24916C
24917      IPART1='IHNA'
24918      IPART2='M2  '
24919      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IEL=IARG(2)
24920      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IHNAM2(IEL)=IHV
24921      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ICASPR='IHN2'
24922      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5260
24923C
24924      IPART1='IUSE'
24925      IPART2='    '
24926      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IEL=IARG(2)
24927      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IUSE(IEL)=IHV
24928      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ICASPR='IUSE'
24929      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5260
24930C
24931      IPART1='IVAL'
24932      IPART2='UE  '
24933      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IEL=IARG(2)
24934      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IVALUE(IEL)=IV
24935      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ICASPR='IVAL'
24936      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5250
24937C
24938      IPART1='VALU'
24939      IPART2='E   '
24940      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IEL=IARG(2)
24941      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)VALUE(IEL)=AV
24942      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ICASPR='VALU'
24943      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5270
24944C
24945      IPART1='IN  '
24946      IPART2='    '
24947      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IEL=IARG(2)
24948      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IN(IEL)=IV
24949      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ICASPR='IN  '
24950      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5250
24951C
24952      IPART1='IVST'
24953      IPART2='AR  '
24954      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IEL=IARG(2)
24955      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IVSTAR(IEL)=IV
24956      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ICASPR='IVST'
24957      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5250
24958C
24959      IPART1='IVST'
24960      IPART2='OP  '
24961      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IEL=IARG(2)
24962      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IVSTOP(IEL)=IV
24963      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ICASPR='IVSP'
24964      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5250
24965C
24966C               ***************************
24967C               **  STEP 3--             **
24968C               **  SET   BUG VARIABLES  **
24969C               ***************************
24970C
24971      IPART1='IBUG'
24972      IPART2='MA  '
24973      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IBUGMA=IHV
24974      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
24975C
24976      IPART1='IBUG'
24977      IPART2='IN  '
24978      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IBUGIN=IHV
24979      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
24980C
24981      IPART1='IBUG'
24982      IPART2='LS  '
24983      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IBUGLS=IHV
24984      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
24985C
24986      IPART1='IBUG'
24987      IPART2='MS  '
24988      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IBUGMS=IHV
24989      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
24990C
24991      IPART1='IBUG'
24992      IPART2='GC  '
24993      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IBUGGC=IHV
24994      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
24995C
24996      IPART1='IBUG'
24997      IPART2='TY  '
24998      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IBUGTY=IHV
24999      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
25000C
25001      IPART1='IBUG'
25002      IPART2='TE  '
25003      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IBUGTE=IHV
25004      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
25005C
25006      IPART1='IBUG'
25007      IPART2='PC  '
25008      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IBUGPC=IHV
25009      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
25010C
25011      IPART1='IBUG'
25012      IPART2='P2  '
25013      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IBUGP2=IHV
25014      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
25015C
25016      IPART1='IBUG'
25017      IPART2='OD  '
25018      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IBUGOD=IHV
25019      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
25020C
25021      IPART1='IBUG'
25022      IPART2='O2  '
25023      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IBUGO2=IHV
25024      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
25025C
25026      IPART1='IBUG'
25027      IPART2='SU  '
25028      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IBUGSU=IHV
25029      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
25030C
25031      IPART1='IBUG'
25032      IPART2='S2  '
25033      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IBUGS2=IHV
25034      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
25035C
25036      IPART1='IBUG'
25037      IPART2='GR  '
25038      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IBUGGR=IHV
25039      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
25040C
25041      IPART1='IBUG'
25042      IPART2='G2  '
25043      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IBUGG2=IHV
25044      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
25045C
25046      IPART1='IBUG'
25047      IPART2='G3  '
25048      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IBUGG3=IHV
25049      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
25050C
25051      IPART1='IBUG'
25052      IPART2='AN  '
25053      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IBUGAN=IHV
25054      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
25055C
25056      IPART1='IBUG'
25057      IPART2='A2  '
25058      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IBUGA2=IHV
25059      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
25060C
25061      IPART1='IBUG'
25062      IPART2='A3  '
25063      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IBUGA3=IHV
25064      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
25065C
25066      IPART1='IBUG'
25067      IPART2='PL  '
25068      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IBUGPL=IHV
25069      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
25070C
25071      IPART1='IBUG'
25072      IPART2='P   '
25073      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IBUGP=IHV
25074      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
25075C
25076      IPART1='IBUG'
25077      IPART2='P1  '
25078      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IBUGP1=IHV
25079      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
25080C
25081      IPART1='IBUG'
25082      IPART2='P3  '
25083      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IBUGP3=IHV
25084      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
25085C
25086      IPART1='IBUG'
25087      IPART2='DG  '
25088      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IBUGDG=IHV
25089      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
25090C
25091      IPART1='IBUG'
25092      IPART2='D2  '
25093      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IBUGD2=IHV
25094      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
25095C
25096      IPART1='IBUG'
25097      IPART2='CO  '
25098      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IBUGCO=IHV
25099      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
25100C
25101      IPART1='IBUG'
25102      IPART2='EV  '
25103      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IBUGEV=IHV
25104      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
25105C
25106      IPART1='IBUG'
25107      IPART2='Q   '
25108      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IBUGQ=IHV
25109      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
25110C
25111      IPART1='IBUG'
25112      IPART2='RE  '
25113      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IBUGRE=IHV
25114      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
25115C
25116      IPART1='IBUG'
25117      IPART2='WR  '
25118      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IBUGWR=IHV
25119      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
25120C
25121      IPART1='IBUG'
25122      IPART2='SO  '
25123      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IBUGSO=IHV
25124      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
25125C
25126      IPART1='IBUG'
25127      IPART2='TO  '
25128      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IBUGTO=IHV
25129      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
25130C
25131      IPART1='IBUG'
25132      IPART2='UG  '
25133      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IBUGUG=IHV
25134      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
25135C
25136      IPART1='IBUG'
25137      IPART2='U2  '
25138      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IBUGU2=IHV
25139CCCCC THE FOLLOWING LINE WAS ADDED MAY 1992 (JJF)
25140      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IBUGG4=IHV
25141      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
25142C
25143CCCCC THE FOLLOWING SECTION WAS ADDED MAY 1992 (JJF)
25144      IPART1='IBUG'
25145      IPART2='G4  '
25146      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IBUGG4=IHV
25147      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IBUGU2=IHV
25148      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
25149C
25150      IPART1='IBUG'
25151      IPART2='U3  '
25152      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IBUGU3=IHV
25153      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
25154C
25155      IPART1='IBUG'
25156      IPART2='U4  '
25157      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IBUGU4=IHV
25158      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
25159C
25160      IPART1='IBUG'
25161      IPART2='EX  '
25162      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IBUGEX=IHV
25163      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
25164C
25165      IPART1='IBUG'
25166      IPART2='E2  '
25167      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IBUGE2=IHV
25168      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
25169C
25170      IPART1='IBUG'
25171      IPART2='HE  '
25172      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IBUGHE=IHV
25173      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
25174C
25175      IPART1='IBUG'
25176      IPART2='H2  '
25177      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IBUGH2=IHV
25178      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
25179C
25180CCCCC THE FOLOWING SECTION WAS ADDED AUGUST 1990
25181      IPART1='IBUG'
25182      IPART2='WI  '
25183      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IBUGWI=IHV
25184      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
25185C
25186      IPART1='IBUG'
25187      IPART2='LO  '
25188      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IBUGLO=IHV
25189      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
25190C
25191      IPART1='ISUB'
25192      IPART2='RO  '
25193      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ISUBRO=IHV
25194      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ISUBG4=IHV
25195CCCCC THE FOLLOWING LINE WAS ADDED AUGUST 1990
25196      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ISUBWI=IHV
25197      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
25198C
25199      IPART1='FOUR'
25200      IPART2='IER '
25201      IPART3='EXPO'
25202      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2.AND.
25203     1IPART3.EQ.IHARG(2))IFTEXP=IHV
25204      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2.AND.
25205     1IPART3.EQ.IHARG(2))GOTO5160
25206C
25207      IPART1='FOUR'
25208      IPART2='IER '
25209      IPART3='ORDE'
25210      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2.AND.
25211     1IPART3.EQ.IHARG(2))THEN
25212        IFTORD=IHV
25213        GOTO5160
25214      ENDIF
25215C
25216      IPART1='WRIT'
25217      IPART2='E   '
25218      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IFORSW=IHV
25219      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
25220C
25221C     *******************************************************
25222C     **  ADDED JAUNUARY, 1988                             **
25223C     **  SET GENERAL JUSTIFICATION [ON/OFF]               **
25224C     **  SET GENERAL REGION FILL [ON/OFF]                 **
25225C     **  SET GENERAL PEN WIDTH <NUMBER>                   **
25226C     **  SET GENERAL PEN THICKNESS [ON/OFF]               **
25227C     **  SET GENERAL FONT [ON/OFF]                        **
25228C     **  ADDED DECEMBER 1997                              **
25229C     **  SET GENERAL FACTOR <1/2>                         **
25230C     *******************************************************
25231C
25232      IPART1='GENE'
25233      IPART2='RAL '
25234      IPART3='JUST'
25235      IPART4='IFIC'
25236      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2
25237     1.AND.IHARG(2).EQ.IPART3.AND.IHARG2(2).EQ.IPART4)IJUSSW=IHV
25238      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2
25239     1.AND.IHARG(2).EQ.IPART3.AND.IHARG2(2).EQ.IPART4)GOTO5160
25240C
25241      IPART1='GENE'
25242      IPART2='RAL '
25243      IPART3='REGI'
25244      IPART4='ON  '
25245      IPART5='FILL'
25246      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2
25247     1.AND.IHARG(2).EQ.IPART3.AND.IHARG2(2).EQ.IPART4
25248     1.AND.IHARG(3).EQ.IPART5)IRFLSW=IHV
25249      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2
25250     1.AND.IHARG(2).EQ.IPART3.AND.IHARG2(2).EQ.IPART4
25251     1.AND.IHARG(3).EQ.IPART5)GOTO5160
25252C
25253      IPART1='GENE'
25254      IPART2='RAL '
25255      IPART3='PEN '
25256      IPART4='    '
25257      IPART5='WIDT'
25258      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2
25259     1.AND.IHARG(2).EQ.IPART3.AND.IHARG2(2).EQ.IPART4
25260     1.AND.IHARG(3).EQ.IPART5)PPENSW=AV
25261      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2
25262     1.AND.IHARG(2).EQ.IPART3.AND.IHARG2(2).EQ.IPART4
25263     1.AND.IHARG(3).EQ.IPART5)GOTO5170
25264C
25265C  DECEMBER 1997.  ADD GENERAL FACTOR <1/2>
25266C
25267      IPART1='GENE'
25268      IPART2='RAL '
25269      IPART3='FACT'
25270      IPART4='OR  '
25271      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2
25272     1.AND.IHARG(2).EQ.IPART3.AND.IHARG2(2).EQ.IPART4)THEN
25273        IGENFA=INT(AV+0.5)
25274        IF(IGENFA.LT.1)IGENFA=1
25275        IF(IGENFA.GT.5)IGENFA=5
25276        GOTO5170
25277       ENDIF
25278C
25279      IPART1='GENE'
25280      IPART2='RAL '
25281      IPART3='PEN '
25282      IPART4='    '
25283      IPART5='THIC'
25284      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2
25285     1.AND.IHARG(2).EQ.IPART3.AND.IHARG2(2).EQ.IPART4
25286     1.AND.IHARG(3).EQ.IPART5)IPTHSW=IHV
25287      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2
25288     1.AND.IHARG(2).EQ.IPART3.AND.IHARG2(2).EQ.IPART4
25289     1.AND.IHARG(3).EQ.IPART5)GOTO5160
25290C
25291      IPART1='GENE'
25292      IPART2='RAL '
25293      IPART3='FONT'
25294      IPART4='    '
25295      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2
25296     1.AND.IHARG(2).EQ.IPART3)IFNTSW=IHV
25297      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2
25298     1.AND.IHARG(2).EQ.IPART3)GOTO5160
25299C
25300C     ************************************************************
25301C     **  ADDED MAY       1988                                  **
25302C     **  SET QUIC/QMS FONT <NUMBER> OR                         **
25303C     **  SET QUIC/QMS LANDSCAPE LEFT MARGIN <NUMB>             **
25304C     **  SET QUIC/QMS LANDSCAPE RIGHT MARGIN <NUMB>            **
25305C     **  SET QUIC/QMS LANDSCAPE TOP  MARGIN <NUMB>             **
25306C     **  SET QUIC/QMS LANDSCAPE BOTTOM MARGIN <NUMB>           **
25307C     **  SET QUIC/QMS LANDSCAPE LEFT MARGIN <NUMB>             **
25308C     **  SET QUIC/QMS LANDSCAPE RIGHT MARGIN <NUMB>            **
25309C     **  SET QUIC/QMS LANDSCAPE TOP  MARGIN <NUMB>             **
25310C     **  SET QUIC/QMS LANDSCAPE BOTTOM MARGIN <NUMB>           **
25311C     **  SET QUIC/QMS PPI <NUMB>                               **
25312C     ************************************************************
25313C
25314C     ***********************************
25315C     **  CHECK FOR FONT               **
25316C     ***********************************
25317C
25318      IPART1='QUIC'
25319      IPART2='FONT'
25320      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)IQUIFN=IV
25321      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)GOTO5150
25322      IPART1='QMS '
25323      IPART2='FONT'
25324      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)IQUIFN=IV
25325      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)GOTO5150
25326C
25327C     ***********************************
25328C     **  CHECK FOR MARGINS            **
25329C     ***********************************
25330C
25331      IPART1='QUIC'
25332      IPART2='LAND'
25333      IPART3='LEFT'
25334      IPART4='MARG'
25335      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25336     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)IQUILM=IV
25337      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25338     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)GOTO5150
25339C
25340      IPART1='QUIC'
25341      IPART2='LAND'
25342      IPART3='RIGH'
25343      IPART4='MARG'
25344      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25345     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)IQUIRM=IV
25346      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25347     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)GOTO5150
25348C
25349      IPART1='QUIC'
25350      IPART2='LAND'
25351      IPART3='TOP '
25352      IPART4='MARG'
25353      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25354     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)IQUITM=IV
25355      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25356     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)GOTO5150
25357C
25358      IPART1='QUIC'
25359      IPART2='LAND'
25360      IPART3='BOTT'
25361      IPART4='MARG'
25362      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25363     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)IQUIBM=IV
25364      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25365     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)GOTO5150
25366C
25367      IPART1='QUIC'
25368      IPART2='PORT'
25369      IPART3='LEFT'
25370      IPART4='MARG'
25371      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25372     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)IQU2LM=IV
25373      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25374     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)GOTO5150
25375C
25376      IPART1='QUIC'
25377      IPART2='PORT'
25378      IPART3='RIGH'
25379      IPART4='MARG'
25380      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25381     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)IQU2RM=IV
25382      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25383     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)GOTO5150
25384C
25385      IPART1='QUIC'
25386      IPART2='PORT'
25387      IPART3='TOP '
25388      IPART4='MARG'
25389      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25390     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)IQU2TM=IV
25391      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25392     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)GOTO5150
25393C
25394      IPART1='QUIC'
25395      IPART2='PORT'
25396      IPART3='BOTT'
25397      IPART4='MARG'
25398      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25399     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)IQU2BM=IV
25400      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25401     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)GOTO5150
25402C
25403      IPART1='QMS'
25404      IPART2='LAND'
25405      IPART3='LEFT'
25406      IPART4='MARG'
25407      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25408     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)IQUILM=IV
25409      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25410     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)GOTO5150
25411C
25412      IPART1='QMS'
25413      IPART2='LAND'
25414      IPART3='RIGH'
25415      IPART4='MARG'
25416      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25417     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)IQUIRM=IV
25418      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25419     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)GOTO5150
25420C
25421      IPART1='QMS'
25422      IPART2='LAND'
25423      IPART3='TOP '
25424      IPART4='MARG'
25425      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25426     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)IQUITM=IV
25427      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25428     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)GOTO5150
25429C
25430      IPART1='QMS'
25431      IPART2='LAND'
25432      IPART3='BOTT'
25433      IPART4='MARG'
25434      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25435     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)IQUIBM=IV
25436      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25437     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)GOTO5150
25438C
25439      IPART1='QMS'
25440      IPART2='PORT'
25441      IPART3='LEFT'
25442      IPART4='MARG'
25443      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25444     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)IQU2LM=IV
25445      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25446     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)GOTO5150
25447C
25448      IPART1='QMS'
25449      IPART2='PORT'
25450      IPART3='RIGH'
25451      IPART4='MARG'
25452      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25453     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)IQU2RM=IV
25454      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25455     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)GOTO5150
25456C
25457      IPART1='QMS'
25458      IPART2='PORT'
25459      IPART3='TOP '
25460      IPART4='MARG'
25461      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25462     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)IQU2TM=IV
25463      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25464     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)GOTO5150
25465C
25466      IPART1='QMS'
25467      IPART2='PORT'
25468      IPART3='BOTT'
25469      IPART4='MARG'
25470      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25471     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)IQU2BM=IV
25472      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25473     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)GOTO5150
25474C
25475C     *********************************
25476C     **  SET POINTS PER INCH (PPI)  **
25477C     *********************************
25478C
25479      IPART1='QUIC'
25480      IPART2='PPI '
25481      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)QUIPPI=AV
25482      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)GOTO5170
25483      IPART1='QMS '
25484      IPART2='PPI '
25485      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)QUIPPI=AV
25486      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)GOTO5170
25487C
25488C     ************************************************************
25489C     **  ADDED SEPTEMBER 1988                                  **
25490C     **  SET POSTSCRI FONT <NUMBER> OR                         **
25491C     **  SET POSTSCRI LANDSCAPE LEFT MARGIN <NUMB>             **
25492C     **  SET POSTSCRI LANDSCAPE RIGHT MARGIN <NUMB>            **
25493C     **  SET POSTSCRI LANDSCAPE TOP  MARGIN <NUMB>             **
25494C     **  SET POSTSCRI LANDSCAPE BOTTOM MARGIN <NUMB>           **
25495C     **  SET POSTSCRI LANDSCAPE LEFT MARGIN <NUMB>             **
25496C     **  SET POSTSCRI LANDSCAPE RIGHT MARGIN <NUMB>            **
25497C     **  SET POSTSCRI LANDSCAPE TOP  MARGIN <NUMB>             **
25498C     **  SET POSTSCRI LANDSCAPE BOTTOM MARGIN <NUMB>           **
25499C     **  SET POSTSCRI PPI <NUMB>                               **
25500C     **  SET POSTSCRIPT SPACE <ON/OFF>  (ADDED OCTOBER 1991)   **
25501C     **  SET POSTSCRIPT HARDWARE FILL <ON/OFF> (JUNE 1994)     **
25502C     ************************************************************
25503C
25504C     ***********************************
25505C     **  CHECK FOR FONT               **
25506C     ***********************************
25507C
25508CCCCC THE FOLLOWING SECTION WAS HEAVILY UPDATED MAY 1989
25509CCCCC ADDITIONAL FONTS ADDED OCTOBER 1991
25510      IPART1='POST'
25511      IPART2='FONT'
25512      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)IPSTFN=IHV
25513C
25514      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25515     1.AND.IHARG(3).EQ.'TIME'.AND.IHARG(4).EQ.'ROMA')IPSTFN='TROM'
25516      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25517     1.AND.IHARG(3).EQ.'TIME'.AND.IHARG(4).EQ.'BOLD')IPSTFN='TBOL'
25518      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25519     1.AND.IHARG(3).EQ.'TIME'.AND.IHARG(4).EQ.'ITAL')IPSTFN='TITA'
25520      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25521     1.AND.IHARG(3).EQ.'TIME'.AND.IHARG(4).EQ.'BOLD'
25522     1.AND.IHARG(5).EQ.'ITAL')IPSTFN='TBIT'
25523      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25524     1.AND.IHARG(3).EQ.'TIME'.AND.IHARG(4).EQ.'ITAL'
25525     1.AND.IHARG(5).EQ.'BOLD')IPSTFN='TBIT'
25526C
25527      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25528     1.AND.IHARG(3).EQ.'HELV')IPSTFN='HELV'
25529      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25530     1.AND.IHARG(3).EQ.'HELV'.AND.IHARG(4).EQ.'BOLD')IPSTFN='HELB'
25531      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25532     1.AND.IHARG(3).EQ.'HELV'.AND.IHARG(4).EQ.'OBLI')IPSTFN='HELO'
25533      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25534     1.AND.IHARG(3).EQ.'HELV'.AND.IHARG(4).EQ.'BOLD'
25535     1.AND.IHARG(5).EQ.'OBLI')IPSTFN='HEBO'
25536      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25537     1.AND.IHARG(3).EQ.'HELV'.AND.IHARG(4).EQ.'OBLI'
25538     1.AND.IHARG(5).EQ.'BOLD')IPSTFN='HEBO'
25539C  OCTOBER 1991.  ADDITIONAL HELVETICA FONTS
25540      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25541     1.AND.IHARG(3).EQ.'HELN')IPSTFN='HELN'
25542      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25543     1.AND.IHARG(3).EQ.'HELV'.AND.IHARG(4).EQ.'NARR')IPSTFN='HELN'
25544      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25545     1.AND.IHARG(3).EQ.'HELV'.AND.IHARG(4).EQ.'NARR'
25546     1.AND.IHARG(5).EQ.'BOLD')IPSTFN='HENB'
25547      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25548     1.AND.IHARG(3).EQ.'HELV'.AND.IHARG(4).EQ.'NARR'
25549     1.AND.IHARG(5).EQ.'OBLI')IPSTFN='HENO'
25550      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25551     1.AND.IHARG(3).EQ.'HELV'.AND.IHARG(4).EQ.'NARR'
25552     1.AND.IHARG(5).EQ.'OBLI'.AND.IHARG(6).EQ.'BOLD')IPSTFN='HNBO'
25553      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25554     1.AND.IHARG(3).EQ.'HELV'.AND.IHARG(4).EQ.'NARR'
25555     1.AND.IHARG(5).EQ.'BOLD'.AND.IHARG(6).EQ.'OBLI')IPSTFN='HNBO'
25556C
25557      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25558     1.AND.IHARG(3).EQ.'COUR')IPSTFN='COUR'
25559      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25560     1.AND.IHARG(3).EQ.'COUR'.AND.IHARG(4).EQ.'BOLD')IPSTFN='CBOL'
25561      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25562     1.AND.IHARG(3).EQ.'COUR'.AND.IHARG(4).EQ.'OBLI')IPSTFN='COBL'
25563      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25564     1.AND.IHARG(3).EQ.'COUR'.AND.IHARG(4).EQ.'BOLD'
25565     1.AND.IHARG(5).EQ.'OBLI')IPSTFN='CBOB'
25566      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25567     1.AND.IHARG(3).EQ.'COUR'.AND.IHARG(4).EQ.'OBLI'
25568     1.AND.IHARG(5).EQ.'BOLD')IPSTFN='CBOB'
25569C
25570C  OCTOBER 1991.  FOLLOWING AVANT GARDE FONTS ADDED
25571      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25572     1.AND.IHARG(3).EQ.'AGBK')IPSTFN='AGBK'
25573      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25574     1.AND.IHARG(3).EQ.'AVAN')IPSTFN='AGBK'
25575      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25576     1.AND.IHARG(3).EQ.'AVAN'.AND.IHARG(4).EQ.'GARD')IPSTFN='AGBK'
25577      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25578     1.AND.IHARG(3).EQ.'AVAN'.AND.IHARG(4).EQ.'GARD'
25579     1.AND.IHARG(5).EQ.'BOOK')IPSTFN='AGBK'
25580      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25581     1.AND.IHARG(3).EQ.'AGBO')IPSTFN='AGBO'
25582      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25583     1.AND.IHARG(3).EQ.'AVAN'.AND.IHARG(4).EQ.'GARD'
25584     1.AND.IHARG(5).EQ.'BOOK'.AND.IHARG(6).EQ.'OBLI')IPSTFN='AGBO'
25585      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25586     1.AND.IHARG(3).EQ.'AGDE')IPSTFN='AGDE'
25587      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25588     1.AND.IHARG(3).EQ.'AVAN'.AND.IHARG(4).EQ.'GARD'
25589     1.AND.IHARG(5).EQ.'DEMI')IPSTFN='AGDE'
25590      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25591     1.AND.IHARG(3).EQ.'AGDO')IPSTFN='AGDO'
25592      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25593     1.AND.IHARG(3).EQ.'AVAN'.AND.IHARG(4).EQ.'GARD'
25594     1.AND.IHARG(5).EQ.'DEMI'.AND.IHARG(6).EQ.'OBLI')IPSTFN='AGDO'
25595      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25596     1.AND.IHARG(3).EQ.'AVAN'.AND.IHARG(4).EQ.'GARD'
25597     1.AND.IHARG(5).EQ.'OBLI'.AND.IHARG(6).EQ.'DEMI')IPSTFN='AGDO'
25598C  OCTOBER 1991.  FOLLOWING BOOKMAN FONTS ADDED
25599      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25600     1.AND.IHARG(3).EQ.'BKDE')IPSTFN='BKDE'
25601      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25602     1.AND.IHARG(3).EQ.'BOOK')IPSTFN='BKDE'
25603      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25604     1.AND.IHARG(3).EQ.'BOOK'.AND.IHARG(4).EQ.'DEMI')IPSTFN='BKDM'
25605      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25606     1.AND.IHARG(3).EQ.'BKDI')IPSTFN='BKDI'
25607      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25608     1.AND.IHARG(3).EQ.'BOOK'.AND.IHARG(4).EQ.'DEMI'
25609     1.AND.IHARG(5).EQ.'ITAL')IPSTFN='BKDI'
25610      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25611     1.AND.IHARG(3).EQ.'BOOK'.AND.IHARG(4).EQ.'ITAL'
25612     1.AND.IHARG(5).EQ.'DEMI')IPSTFN='BKDI'
25613      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25614     1.AND.IHARG(3).EQ.'BKLT')IPSTFN='BKLT'
25615      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25616     1.AND.IHARG(3).EQ.'BOOK'.AND.IHARG(4).EQ.'LIGH')IPSTFN='BKLT'
25617      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25618     1.AND.IHARG(3).EQ.'BKLI')IPSTFN='BKLI'
25619      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25620     1.AND.IHARG(3).EQ.'BOOK'.AND.IHARG(4).EQ.'LIGH'
25621     1.AND.IHARG(5).EQ.'ITAL')IPSTFN='BKLI'
25622      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25623     1.AND.IHARG(3).EQ.'BOOK'.AND.IHARG(4).EQ.'ITAL'
25624     1.AND.IHARG(5).EQ.'LIGH')IPSTFN='BKLI'
25625C  OCTOBER 1991.  FOLLOWING NEW CENTURY FONTS ADDED
25626      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25627     1.AND.IHARG(3).EQ.'NCSR')IPSTFN='NCSR'
25628      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25629     1.AND.IHARG(3).EQ.'CENT')IPSTFN='NCSR'
25630      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25631     1.AND.IHARG(3).EQ.'CENT'.AND.IHARG(4).EQ.'ROMA')IPSTFN='NCSR'
25632      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25633     1.AND.IHARG(3).EQ.'NCSB')IPSTFN='NCSB'
25634      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25635     1.AND.IHARG(3).EQ.'CENT'.AND.IHARG(4).EQ.'BOLD')IPSTFN='NCSB'
25636      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25637     1.AND.IHARG(3).EQ.'NCSI')IPSTFN='NCSI'
25638      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25639     1.AND.IHARG(3).EQ.'CENT'.AND.IHARG(4).EQ.'ITAL')IPSTFN='NCSI'
25640      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25641     1.AND.IHARG(3).EQ.'CSBI')IPSTFN='CSBI'
25642      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25643     1.AND.IHARG(3).EQ.'CENT'.AND.IHARG(4).EQ.'ITAL'
25644     1.AND.IHARG(5).EQ.'BOLD')IPSTFN='CSBI'
25645      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25646     1.AND.IHARG(3).EQ.'CENT'.AND.IHARG(4).EQ.'BOLD'
25647     1.AND.IHARG(5).EQ.'ITAL')IPSTFN='CSBI'
25648C  OCTOBER 1991.  FOLLOWING PALATINO FONTS ADDED
25649      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25650     1.AND.IHARG(3).EQ.'PALR')IPSTFN='PALR'
25651      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25652     1.AND.IHARG(3).EQ.'PALA')IPSTFN='PALR'
25653      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25654     1.AND.IHARG(3).EQ.'PALA'.AND.IHARG(4).EQ.'ROMA')IPSTFN='PALR'
25655      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25656     1.AND.IHARG(3).EQ.'PALB')IPSTFN='PALB'
25657      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25658     1.AND.IHARG(3).EQ.'PALA'.AND.IHARG(4).EQ.'BOLD')IPSTFN='PALB'
25659      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25660     1.AND.IHARG(3).EQ.'PALI')IPSTFN='PALI'
25661      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25662     1.AND.IHARG(3).EQ.'PALA'.AND.IHARG(4).EQ.'ITAL')IPSTFN='PALI'
25663      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25664     1.AND.IHARG(3).EQ.'PABI')IPSTFN='PABI'
25665      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25666     1.AND.IHARG(3).EQ.'PALA'.AND.IHARG(4).EQ.'ITAL'
25667     1.AND.IHARG(5).EQ.'BOLD')IPSTFN='PABI'
25668      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25669     1.AND.IHARG(3).EQ.'PALA'.AND.IHARG(4).EQ.'BOLD'
25670     1.AND.IHARG(5).EQ.'ITAL')IPSTFN='PABI'
25671      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25672     1.AND.IHARG(3).EQ.'ZAPH')IPSTFN='ZAPH'
25673      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25674     1.AND.IHARG(3).EQ.'SYMB')IPSTFN='SYMB'
25675C
25676      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)IHV=IPSTFN
25677      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)GOTO5160
25678C
25679C     ***********************************
25680C     **  CHECK FOR MARGINS            **
25681C     ***********************************
25682C
25683      IPART1='POST'
25684      IPART2='LAND'
25685      IPART3='LEFT'
25686      IPART4='MARG'
25687      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25688     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)IPSTLM=IV
25689      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25690     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)GOTO5150
25691C
25692      IPART1='POST'
25693      IPART2='LAND'
25694      IPART3='RIGH'
25695      IPART4='MARG'
25696      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25697     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)IPSTRM=IV
25698      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25699     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)GOTO5150
25700C
25701      IPART1='POST'
25702      IPART2='LAND'
25703      IPART3='TOP '
25704      IPART4='MARG'
25705      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25706     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)IPSTTM=IV
25707      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25708     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)GOTO5150
25709C
25710      IPART1='POST'
25711      IPART2='LAND'
25712      IPART3='BOTT'
25713      IPART4='MARG'
25714      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25715     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)IPSTBM=IV
25716      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25717     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)GOTO5150
25718C
25719      IPART1='POST'
25720      IPART2='PORT'
25721      IPART3='LEFT'
25722      IPART4='MARG'
25723      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25724     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)IPS2LM=IV
25725      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25726     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)GOTO5150
25727C
25728      IPART1='POST'
25729      IPART2='PORT'
25730      IPART3='RIGH'
25731      IPART4='MARG'
25732      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25733     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)IPS2RM=IV
25734      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25735     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)GOTO5150
25736C
25737      IPART1='POST'
25738      IPART2='PORT'
25739      IPART3='TOP '
25740      IPART4='MARG'
25741      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25742     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)IPS2TM=IV
25743      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25744     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)GOTO5150
25745C
25746      IPART1='POST'
25747      IPART2='PORT'
25748      IPART3='BOTT'
25749      IPART4='MARG'
25750      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25751     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)IPS2BM=IV
25752      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
25753     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)GOTO5150
25754C
25755C     *********************************
25756C     **  SET POINTS PER INCH (PPI)  **
25757C     *********************************
25758C
25759      IPART1='POST'
25760      IPART2='PPI '
25761      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)PSTPPI=AV
25762      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)GOTO5170
25763C
25764C     *******************************************
25765C     **  CHECK FOR POSTSCRIPT SPACE <ON/OFF>  **
25766C     **  ADDED OCTOBER 1991.                  **
25767C     *******************************************
25768C
25769      IPART1='POST'
25770      IPART2='SPAC'
25771      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)IPSTSP=IHV
25772      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)GOTO5160
25773C
25774C     ***************************************************
25775C     **  CHECK FOR POSTSCRIPT HARDWARE FILL <ON/OFF>  **
25776C     **  ADDED JUNE 1994.                             **
25777C     ***************************************************
25778C
25779      IPART1='POST'
25780      IPART2='HARD'
25781      IPART3='FILL'
25782      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
25783     1   IHARG(3).EQ.IPART3)IPSTFS=IHV
25784      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
25785     1   IHARG(3).EQ.IPART3)GOTO5160
25786C
25787C     ************************************************************
25788C     **  ADDED MARCH 1990                                      **
25789C     **  SET X11 FONT <NAME>                                   **
25790C     **  SET X11 CAP <CAP STYLE>                               **
25791C     **  SET X11 JOIN <JOIN STYLE>                             **
25792C     **  SET X11 PIXMAP <ON/OFF>                               **
25793C     **  SET X11 PAUSE <ON/OFF>                                **
25794C     **  SET X11 NAME  <NAME>                                  **
25795C     **  SET X11 HARDWARE FILL <ON/OFF> (ADDED JUNE 1994)      **
25796C     **  SET X11 WINDOW ID <STRING>     (ADDED OCTOBER 1997)   **
25797C     **  SET X11 CLIPBOARD <CUT BUFFER/SELECTION/PRIMARY>      **
25798C     ************************************************************
25799C
25800C     ******************************************************
25801C     **  CHECK FOR FONT                                  **
25802C     **  NOTE THAT FONT NAME CAN BE UP TO 80 CHARACTERS  **
25803C     **  LONG, SO THIS HANDLED SOMEWHAT DIFFERENTLY THAN **
25804C     **  THE OTHER COMMANDS.                             **
25805C     ******************************************************
25806C
25807      IF(NUMARG.GE.2.AND.IHARG(1).EQ.'X11 '.AND.
25808     1IHARG(2).EQ.'FONT')GOTO2210
25809      GOTO2290
25810C
25811 2210 CONTINUE
25812      IX11FN(1:40)='                                        '
25813      IX11FN(41:80)='                                        '
25814      NCTEMP=0
25815      IF(NUMARG.LE.2)GOTO2250
25816      IF(IHARG(NUMARG).EQ.'OFF')GOTO2250
25817      IF(IHARG(NUMARG).EQ.'AUTO')GOTO2250
25818      IF(IHARG(NUMARG).EQ.'DEFA')GOTO2250
25819C
25820C  CHECK THE POSITION OF THE WORD FONT
25821C  EXTRACT IANS FROM THE FIRST CHARACTER PAST "FONT" TO
25822C  THE LAST NON-BLANK CHARACTER
25823C
25824      DO2230I=1,IWIDTH
25825      IP1=I+1
25826      IP2=I+2
25827      IP3=I+3
25828      IP4=I+4
25829      IF(IP3.GT.IWIDTH)GOTO2250
25830      IF(IANS(I).EQ.'F'.AND.IANS(IP1).EQ.'O'.AND.
25831     1IANS(IP2).EQ.'N'.AND.IANS(IP3).EQ.'T'.AND.
25832     1IANS(IP4).EQ.' ')GOTO2235
25833 2230 CONTINUE
25834      GOTO2250
25835C
25836 2235 CONTINUE
25837      ISTART=IP4+1
25838C
25839      ISTOP=IWIDTH
25840      DO2240I=IWIDTH,ISTART,-1
25841      ISTOP=I
25842      IF(IANS(I).NE.' ')GOTO2245
25843 2240 CONTINUE
25844      GOTO2250
25845 2245 CONTINUE
25846      IF(ISTART.GT.ISTOP)GOTO2250
25847      NCTEMP=ISTOP-ISTART+1
25848      IF(NCTEMP.GT.80)ISTOP=ISTART+79
25849      IF(NCTEMP.GT.80)NCTEMP=80
25850      ICOUNT=0
25851      DO2248I=ISTART,ISTOP
25852      ICOUNT=ICOUNT+1
25853      IX11FN(ICOUNT:ICOUNT)=IANS(I)(1:1)
25854 2248 CONTINUE
25855      IFOUND='YES'
25856      IF(IFEEDB.EQ.'OFF')GOTO9000
25857      WRITE(ICOUT,999)
25858      CALL DPWRST('XXX','BUG ')
25859      WRITE(ICOUT,2251)
25860      CALL DPWRST('XXX','BUG ')
25861      WRITE(ICOUT,2252)IX11FN
25862      CALL DPWRST('XXX','BUG ')
25863      GOTO9000
25864C
25865 2250 CONTINUE
25866      IX11FN='8X13'
25867      IFOUND='YES'
25868      IF(IFEEDB.EQ.'OFF')GOTO2259
25869      WRITE(ICOUT,999)
25870CCCCC OCTOBER 1993.  FOLLOWING SECZTION CHANGED TO AVOID "/"
25871      CALL DPWRST('XXX','BUG ')
25872CCCCC WRITE(ICOUT,2251)IX11FN
25873      WRITE(ICOUT,2251)
25874 2251 FORMAT('THE X11 FONT HAS BEEN SET TO ')
25875      CALL DPWRST('XXX','BUG ')
25876      WRITE(ICOUT,2252)IX11FN
25877 2252 FORMAT(A80)
25878      CALL DPWRST('XXX','BUG ')
25879 2259 CONTINUE
25880      GOTO9000
25881 2290 CONTINUE
25882C
25883C     ***********************************
25884C     **  CHECK FOR X11 WINDOW ID      **
25885C     ***********************************
25886C
25887      IPART1='X11 '
25888      IPART2='WIND'
25889      IPART3='ID  '
25890      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
25891     1   IHARG(3).EQ.IPART3)THEN
25892        IX11W2(1:4)=IHARG(NUMARG)
25893        IX11W2(5:8)=IHARG2(NUMARG)
25894        IFOUND='YES'
25895        IF(IFEEDB.EQ.'OFF')GOTO9000
25896        WRITE(ICOUT,999)
25897        CALL DPWRST('XXX','BUG ')
25898        WRITE(ICOUT,2302)IX11W2
25899 2302   FORMAT('THE X11 WINDOW ID (FOR REPEAT GRAPH) HAS BEEN SET TO ',
25900     1A8)
25901        CALL DPWRST('XXX','BUG ')
25902        GOTO9000
25903      ENDIF
25904C
25905C     ***********************************
25906C     **  CHECK FOR X11 CAP            **
25907C     ***********************************
25908C
25909      IPART1='X11 '
25910      IPART2='CAP '
25911      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
25912        IX11CS(1:4)=IHARG(NUMARG)
25913        IX11CS(5:8)=IHARG2(NUMARG)
25914        IFOUND='YES'
25915        IF(IFEEDB.EQ.'OFF')GOTO9000
25916        WRITE(ICOUT,999)
25917      CALL DPWRST('XXX','BUG ')
25918        WRITE(ICOUT,2310)IX11CS
25919 2310   FORMAT('THE X11 CAP STYLE HAS BEEN SET TO ',A8)
25920      CALL DPWRST('XXX','BUG ')
25921        GOTO9000
25922      ENDIF
25923C
25924C     ***********************************
25925C     **  CHECK FOR X11 JOIN           **
25926C     ***********************************
25927C
25928      IPART1='X11 '
25929      IPART2='JOIN'
25930      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
25931        IX11JS(1:4)=IHARG(NUMARG)
25932        IX11JS(5:8)=IHARG2(NUMARG)
25933        IFOUND='YES'
25934        IF(IFEEDB.EQ.'OFF')GOTO9000
25935        WRITE(ICOUT,999)
25936      CALL DPWRST('XXX','BUG ')
25937        WRITE(ICOUT,2410)IX11JS
25938 2410   FORMAT('THE X11 JOIN STYLE HAS BEEN SET TO ',A8)
25939      CALL DPWRST('XXX','BUG ')
25940        GOTO9000
25941      ENDIF
25942C
25943C     ***********************************
25944C     **  CHECK FOR X11 PIXMAP FLAG    **
25945C     ***********************************
25946C
25947      IPART1='X11 '
25948      IPART2='PIXM'
25949      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)IX11PM=IHV
25950      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)GOTO5160
25951C
25952C     ***********************************
25953C     **  CHECK FOR X11 HARDWARE FILL  **
25954C     ***********************************
25955C
25956      IPART1='X11 '
25957      IPART2='HARD'
25958      IPART3='FILL'
25959      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
25960     1   IHARG(3).EQ.IPART3)IX11FS=IHV
25961      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
25962     1   IHARG(3).EQ.IPART3)GOTO5160
25963C
25964C     ***********************************
25965C     **  CHECK FOR X11 PAUSE FLAG     **
25966C     ***********************************
25967C
25968      IPART1='X11 '
25969      IPART2='PAUS'
25970      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)IX11PA=IHV
25971      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)GOTO5160
25972C
25973C     ******************************************************
25974C     **  CHECK FOR DISPLAY NAME                          **
25975C     **  NOTE THAT DISPLAY NAME CAN BE UP TO 20 CHARACTERS **
25976C     **  LONG, SO THIS HANDLED SOMEWHAT DIFFERENTLY THAN **
25977C     **  THE OTHER COMMANDS.                             **
25978C     ******************************************************
25979C
25980      IF(NUMARG.GE.2.AND.IHARG(1).EQ.'X11 '.AND.
25981     1IHARG(2).EQ.'NAME')GOTO2510
25982      GOTO2590
25983C
25984 2510 CONTINUE
25985      IX11DN=' '
25986      NCTEMP=0
25987      IF(NUMARG.LE.2)GOTO2550
25988      IF(IHARG(NUMARG).EQ.'OFF')GOTO2550
25989      IF(IHARG(NUMARG).EQ.'AUTO')GOTO2550
25990      IF(IHARG(NUMARG).EQ.'DEFA')GOTO2550
25991C
25992C  CHECK THE POSITION OF THE WORD NAME
25993C  EXTRACT IANSLC FROM THE FIRST CHARACTER PAST "NAME" TO
25994C  THE LAST NON-BLANK CHARACTER
25995C
25996      DO2530I=1,IWIDTH
25997      IP1=I+1
25998      IP2=I+2
25999      IP3=I+3
26000      IP4=I+4
26001      IF(IP3.GT.IWIDTH)GOTO2550
26002      IF(IANS(I).EQ.'N'.AND.IANS(IP1).EQ.'A'.AND.
26003     1IANS(IP2).EQ.'M'.AND.IANS(IP3).EQ.'E'.AND.
26004     1IANS(IP4).EQ.' ')GOTO2535
26005 2530 CONTINUE
26006      GOTO2550
26007C
26008 2535 CONTINUE
26009      ISTART=IP4+1
26010C
26011      DO2540I=ISTART,IWIDTH
26012      IF(IANS(I).EQ.' ')GOTO2540
26013      ISTART=I
26014      GOTO2545
26015 2540 CONTINUE
26016      GOTO2550
26017 2545 CONTINUE
26018CCCCC THE FOLLOWING LINE WAS CHANGED MAY 1992 (ALAN)
26019CCCCC ISTOP=ISTART+19
26020      ISTOP=ISTART+79
26021      IF(ISTOP.GT.IWIDTH)ISTOP=IWIDTH
26022      IF(ISTART.GT.ISTOP)GOTO2550
26023      NCTEMP=ISTOP-ISTART+1
26024      ICOUNT=0
26025      DO2548I=ISTART,ISTOP
26026      ICOUNT=ICOUNT+1
26027      IX11DN(ICOUNT:ICOUNT)=IANSLC(I)(1:1)
26028 2548 CONTINUE
26029      IFOUND='YES'
26030      IF(IFEEDB.EQ.'OFF')GOTO9000
26031      WRITE(ICOUT,999)
26032      CALL DPWRST('XXX','BUG ')
26033      WRITE(ICOUT,2551)
26034      CALL DPWRST('XXX','BUG ')
26035      WRITE(ICOUT,2552)IX11DN
26036      CALL DPWRST('XXX','BUG ')
26037      GOTO9000
26038C
26039 2550 CONTINUE
26040      IX11DN='DEFAULT'
26041      IFOUND='YES'
26042      IF(IFEEDB.EQ.'OFF')GOTO2559
26043      WRITE(ICOUT,999)
26044      CALL DPWRST('XXX','BUG ')
26045CCCCC WRITE(ICOUT,2551)IX11DN
26046      WRITE(ICOUT,2551)
26047      CALL DPWRST('XXX','BUG ')
26048CCCCC THE FOLLOWING LINE WAS FIXED MAY 1992 (ALAN)
26049CCCCC THE FOLLOWING LINE WAS FIXED OCTOBER 1993 (ALAN)
26050C2551 FORMAT('THE X11 DISPLAY NAME HAS BEEN SET TO:'/1H ,A20)
26051C2551 FORMAT('THE X11 DISPLAY NAME HAS BEEN SET TO:'/1H ,A80)
26052 2551 FORMAT('THE X11 DISPLAY NAME HAS BEEN SET TO ')
26053      WRITE(ICOUT,2552)IX11DN
26054 2552 FORMAT(A80)
26055      CALL DPWRST('XXX','BUG ')
26056 2559 CONTINUE
26057C
26058 2590 CONTINUE
26059CCCCC JUNE, 1990.  THE FOLLOWING LINE WAS A TYPO.  DELETE IT.
26060CCCCC GOTO9000
26061C
26062C     ************************************************************
26063C     **  ADDED MARCH 2005                                      **
26064C     **  SET AQUATERM FONT <NAME>                              **
26065C     **  SET AQUATERM CAP <CAP STYLE>                          **
26066C     **  SET AQUATERM JOIN <JOIN STYLE>                        **
26067C     **  SET AQUATERM HARDWARE FILL <ON/OFF>                   **
26068C     ************************************************************
26069C
26070C     ******************************************************
26071C     **  CHECK FOR FONT                                  **
26072C     **  NOTE THAT FONT NAME CAN BE UP TO 80 CHARACTERS  **
26073C     **  LONG, SO THIS HANDLED SOMEWHAT DIFFERENTLY THAN **
26074C     **  THE OTHER COMMANDS.                             **
26075C     ******************************************************
26076C
26077      IF(NUMARG.GE.2.AND.IHARG(1).EQ.'AQUA'.AND.
26078     1IHARG(2).EQ.'FONT')GOTO22210
26079      GOTO22290
26080C
2608122210 CONTINUE
26082      IAQUFN(1:40)='                                        '
26083      IAQUFN(41:80)='                                        '
26084      NCTEMP=0
26085      IF(NUMARG.LE.2)GOTO22250
26086      IF(IHARG(NUMARG).EQ.'OFF')GOTO22250
26087      IF(IHARG(NUMARG).EQ.'AUTO')GOTO22250
26088      IF(IHARG(NUMARG).EQ.'DEFA')GOTO22250
26089C
26090C  CHECK THE POSITION OF THE WORD FONT
26091C  EXTRACT IANSLC FROM THE FIRST CHARACTER PAST "FONT" TO
26092C  THE LAST NON-BLANK CHARACTER
26093C
26094      DO22230I=1,IWIDTH
26095      IP1=I+1
26096      IP2=I+2
26097      IP3=I+3
26098      IP4=I+4
26099      IF(IP3.GT.IWIDTH)GOTO22250
26100      IF(IANS(I).EQ.'F'.AND.IANS(IP1).EQ.'O'.AND.
26101     1IANS(IP2).EQ.'N'.AND.IANS(IP3).EQ.'T'.AND.
26102     1IANS(IP4).EQ.' ')GOTO22235
2610322230 CONTINUE
26104      GOTO22250
26105C
2610622235 CONTINUE
26107      ISTART=IP4+1
26108C
26109      ISTOP=IWIDTH
26110      DO22240I=IWIDTH,ISTART,-1
26111      ISTOP=I
26112      IF(IANS(I).NE.' ')GOTO22245
2611322240 CONTINUE
26114      GOTO22250
2611522245 CONTINUE
26116      IF(ISTART.GT.ISTOP)GOTO22250
26117      NCTEMP=ISTOP-ISTART+1
26118      IF(NCTEMP.GT.80)ISTOP=ISTART+79
26119      IF(NCTEMP.GT.80)NCTEMP=80
26120      ICOUNT=0
26121      DO22248I=ISTART,ISTOP
26122      ICOUNT=ICOUNT+1
26123      IAQUFN(ICOUNT:ICOUNT)=IANSLC(I)(1:1)
2612422248 CONTINUE
26125      IFOUND='YES'
26126      IF(IFEEDB.EQ.'OFF')GOTO9000
26127      WRITE(ICOUT,999)
26128      CALL DPWRST('XXX','BUG ')
26129      WRITE(ICOUT,22251)
26130      CALL DPWRST('XXX','BUG ')
26131      WRITE(ICOUT,22252)IAQUFN
26132      CALL DPWRST('XXX','BUG ')
26133      GOTO9000
26134C
2613522250 CONTINUE
26136      IAQUFN='Helvetica'
26137      IFOUND='YES'
26138      IF(IFEEDB.EQ.'OFF')GOTO2259
26139      WRITE(ICOUT,999)
26140      CALL DPWRST('XXX','BUG ')
26141      WRITE(ICOUT,22251)
2614222251 FORMAT('THE AQUATERM FONT HAS BEEN SET TO ')
26143      CALL DPWRST('XXX','BUG ')
26144      WRITE(ICOUT,22252)IAQUFN
2614522252 FORMAT(A80)
26146      CALL DPWRST('XXX','BUG ')
26147      GOTO9000
2614822290 CONTINUE
26149C
26150C     ***********************************
26151C     **  CHECK FOR AQUATERM CAP       **
26152C     ***********************************
26153C
26154      IPART1='AQUA'
26155      IPART2='CAP '
26156      IPART3='STYL'
26157      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
26158     1   IHARG(3).EQ.IPART3)THEN
26159        IF(IHARG(4).EQ.'ROUN')THEN
26160          IHV='ROUN'
26161        ELSEIF(IHARG(4).EQ.'SQUA')THEN
26162          IHV='SQUA'
26163        ELSE
26164          IHV='BUTT'
26165        ENDIF
26166        IAQUCS(1:4)=IHV
26167        IAQUCS(5:8)=' '
26168        IFOUND='YES'
26169        IF(IFEEDB.EQ.'OFF')GOTO9000
26170        WRITE(ICOUT,999)
26171        CALL DPWRST('XXX','BUG ')
26172        WRITE(ICOUT,22310)IAQUCS
2617322310   FORMAT('THE AQUATERM CAP STYLE HAS BEEN SET TO ',A8)
26174        CALL DPWRST('XXX','BUG ')
26175        GOTO9000
26176      ENDIF
26177C
26178C     ***********************************
26179C     **  CHECK FOR AQUATERM JOIN      **
26180C     ***********************************
26181C
26182      IPART1='AQUA'
26183      IPART2='JOIN'
26184      IPART3='STYL'
26185      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
26186     1   IHARG(3).EQ.IPART3)THEN
26187        IF(IHARG(4).EQ.'ROUN')THEN
26188          IHV='ROUN'
26189        ELSEIF(IHARG(4).EQ.'SQUA')THEN
26190          IHV='SQUA'
26191        ELSE
26192          IHV='BUTT'
26193        ENDIF
26194        IAQUJS(1:4)=IHARG(NUMARG)
26195        IAQUJS(5:8)=IHARG2(NUMARG)
26196        IFOUND='YES'
26197        IF(IFEEDB.EQ.'OFF')GOTO9000
26198        WRITE(ICOUT,999)
26199        CALL DPWRST('XXX','BUG ')
26200        WRITE(ICOUT,22410)IAQUJS
2620122410   FORMAT('THE AQUATERM JOIN STYLE HAS BEEN SET TO ',A8)
26202        CALL DPWRST('XXX','BUG ')
26203        GOTO9000
26204      ENDIF
26205C
26206C     ****************************************
26207C     **  CHECK FOR AQUATERM HARDWARE FILL  **
26208C     ****************************************
26209C
26210      IPART1='AQUA'
26211      IPART2='HARD'
26212      IPART3='FILL'
26213      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
26214     1   IHARG(3).EQ.IPART3)THEN
26215         IF(IHV.EQ.'ON')IHV='ON'
26216         IF(IHV.EQ.'DEFA')IHV='ON'
26217         IF(IHV.EQ.'YES')IHV='ON'
26218         IF(IHV.EQ.'TRUE')IHV='ON'
26219         IF(IHV.EQ.'OFF')IHV='OFF'
26220         IF(IHV.EQ.'NO')IHV='OFF'
26221         IF(IHV.EQ.'FALS')IHV='OFF'
26222         IAQUFS=IHV
26223         GOTO5160
26224      ENDIF
26225C
26226C     ****************************************
26227C     **  CHECK FOR LATEX    HARDWARE FILL  **
26228C     ****************************************
26229C
26230      IPART1='LATE'
26231      IPART2='HARD'
26232      IPART3='FILL'
26233      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
26234     1   IHARG(3).EQ.IPART3)THEN
26235         IF(IHV.EQ.'ON')IHV='ON'
26236         IF(IHV.EQ.'DEFA')IHV='ON'
26237         IF(IHV.EQ.'YES')IHV='ON'
26238         IF(IHV.EQ.'TRUE')IHV='ON'
26239         IF(IHV.EQ.'HARD')IHV='ON'
26240         IF(IHV.EQ.'OFF')IHV='OFF'
26241         IF(IHV.EQ.'NO')IHV='OFF'
26242         IF(IHV.EQ.'FALS')IHV='OFF'
26243         IF(IHV.EQ.'SOFT')IHV='OFF'
26244         ILATFS=IHV
26245         GOTO5160
26246      ENDIF
26247C
26248C     ****************************************
26249C     **  CHECK FOR LATEX    LINE THICKNESS **
26250C     ****************************************
26251C
26252      IPART1='LATE'
26253      IPART2='LINE'
26254      IPART3='THIC'
26255      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
26256     1   IHARG(3).EQ.IPART3)THEN
26257         IF(IHV.EQ.'HARD')IHV='ON'
26258         IF(IHV.EQ.'DEFA')IHV='HARD'
26259         IF(IHV.EQ.'YES')IHV='HARD'
26260         IF(IHV.EQ.'TRUE')IHV='HARD'
26261         IF(IHV.EQ.'HARD')IHV='HARD'
26262         IF(IHV.EQ.'SOFT')IHV='SOFT'
26263         IF(IHV.EQ.'NO')IHV='SOFT'
26264         IF(IHV.EQ.'FALS')IHV='SOFT'
26265         IF(IHV.EQ.'SOFT')IHV='SOFT'
26266         ILATLT=IHV
26267         GOTO5160
26268      ENDIF
26269C
26270C     ****************************************
26271C     **  CHECK FOR LATEX    COLOR          **
26272C     ****************************************
26273C
26274      IPART1='LATE'
26275      IPART2='COLO'
26276      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
26277         IF(IHV.EQ.'ON')IHV='ON'
26278         IF(IHV.EQ.'DEFA')IHV='ON'
26279         IF(IHV.EQ.'YES')IHV='ON'
26280         IF(IHV.EQ.'TRUE')IHV='ON'
26281         IF(IHV.EQ.'OFF')IHV='OFF'
26282         IF(IHV.EQ.'NO')IHV='OFF'
26283         IF(IHV.EQ.'FALS')IHV='OFF'
26284         ILATCO=IHV
26285         GOTO5160
26286      ENDIF
26287C
26288C     ****************************************
26289C     **  CHECK FOR GD       COLOR          **
26290C     ****************************************
26291C
26292      IPART1='GD  '
26293      IPART2='COLO'
26294      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
26295         IF(IHARG(3).EQ.'COLO')IHV='TRUE'
26296         IF(IHARG(3).EQ.'TRUE')IHV='TRUE'
26297         IF(IHARG(3).EQ.'RGB ')IHV='TRUE'
26298         IF(IHARG(3).EQ.'ON')IHV='TRUE'
26299         IF(IHARG(3).EQ.'DEFA')IHV='TRUE'
26300         IF(IHARG(3).EQ.'YES')IHV='TRUE'
26301         IF(IHARG(3).EQ.'TRUE')IHV='TRUE'
26302         IF(IHARG(3).EQ.'FIXE')IHV='FIXE'
26303         IF(IHARG(3).EQ.'OFF')IHV='FIXE'
26304         IF(IHARG(3).EQ.'NO')IHV='FIXE'
26305         IF(IHARG(3).EQ.'FALS')IHV='FIXE'
26306         IF(IHV.NE.'TRUE' .AND. IHV.NE.'FIXE')IHV='FIXE'
26307         IGDCO=IHV
26308         GOTO5160
26309      ENDIF
26310C
26311C     ******************************************************
26312C     **  CHECK FOR GD FONT                               **
26313C     **  NOTE THAT FONT NAME CAN BE UP TO 80 CHARACTERS  **
26314C     **  LONG, SO THIS HANDLED SOMEWHAT DIFFERENTLY THAN **
26315C     **  THE OTHER COMMANDS.                             **
26316C     ******************************************************
26317C
26318      IF(NUMARG.GE.2.AND.IHARG(1).EQ.'GD  '.AND.
26319     1IHARG(2).EQ.'FONT')GOTO22510
26320      GOTO22590
26321C
2632222510 CONTINUE
26323      IGDFN(1:40)='                                        '
26324      IGDFN(41:80)='                                        '
26325      NCTEMP=0
26326      IF(NUMARG.LE.2)GOTO22550
26327      IF(IHARG(NUMARG).EQ.'OFF')GOTO22550
26328      IF(IHARG(NUMARG).EQ.'AUTO')GOTO22550
26329      IF(IHARG(NUMARG).EQ.'DEFA')GOTO22550
26330C
26331C  CHECK THE POSITION OF THE WORD FONT
26332C  EXTRACT IANSLC FROM THE FIRST CHARACTER PAST "FONT" TO
26333C  THE LAST NON-BLANK CHARACTER
26334C
26335      DO22530I=1,IWIDTH
26336      IP1=I+1
26337      IP2=I+2
26338      IP3=I+3
26339      IP4=I+4
26340      IF(IP3.GT.IWIDTH)GOTO22550
26341      IF(IANS(I).EQ.'F'.AND.IANS(IP1).EQ.'O'.AND.
26342     1IANS(IP2).EQ.'N'.AND.IANS(IP3).EQ.'T'.AND.
26343     1IANS(IP4).EQ.' ')GOTO22535
2634422530 CONTINUE
26345      GOTO22550
26346C
2634722535 CONTINUE
26348      ISTART=IP4+1
26349C
26350      ISTOP=IWIDTH
26351      DO22540I=IWIDTH,ISTART,-1
26352      ISTOP=I
26353      IF(IANS(I).NE.' ')GOTO22545
2635422540 CONTINUE
26355      GOTO22550
2635622545 CONTINUE
26357      IF(ISTART.GT.ISTOP)GOTO22550
26358      NCTEMP=ISTOP-ISTART+1
26359      IF(NCTEMP.GT.80)ISTOP=ISTART+79
26360      IF(NCTEMP.GT.80)NCTEMP=80
26361      ICOUNT=0
26362      DO22548I=ISTART,ISTOP
26363      ICOUNT=ICOUNT+1
26364      IGDFN(ICOUNT:ICOUNT)=IANSLC(I)(1:1)
2636522548 CONTINUE
26366C
26367C     CONVERT BUILT-IN FONTS TO UPPER-CASE
26368C
26369      IF(
26370     1  (IGDFN(1:1).EQ.'S' .OR. IGDFN(1:1).EQ.'s') .AND.
26371     1  (IGDFN(2:2).EQ.'M' .OR. IGDFN(2:2).EQ.'m') .AND.
26372     1  (IGDFN(3:3).EQ.'A' .OR. IGDFN(3:3).EQ.'a') .AND.
26373     1  (IGDFN(4:4).EQ.'L' .OR. IGDFN(4:4).EQ.'l') .AND.
26374     1  (IGDFN(5:5).EQ.'L' .OR. IGDFN(5:5).EQ.'l')
26375     1  ) IGDFN='SMALL'
26376C
26377      IF(
26378     1  (IGDFN(1:1).EQ.'L' .OR. IGDFN(1:1).EQ.'l') .AND.
26379     1  (IGDFN(2:2).EQ.'A' .OR. IGDFN(2:2).EQ.'a') .AND.
26380     1  (IGDFN(3:3).EQ.'R' .OR. IGDFN(3:3).EQ.'r') .AND.
26381     1  (IGDFN(4:4).EQ.'G' .OR. IGDFN(4:4).EQ.'g') .AND.
26382     1  (IGDFN(5:5).EQ.'E' .OR. IGDFN(5:5).EQ.'e')
26383     1  ) IGDFN='LARGE'
26384C
26385      IF(
26386     1  (IGDFN(1:1).EQ.'G' .OR. IGDFN(1:1).EQ.'g') .AND.
26387     1  (IGDFN(2:2).EQ.'I' .OR. IGDFN(2:2).EQ.'i') .AND.
26388     1  (IGDFN(3:3).EQ.'A' .OR. IGDFN(3:3).EQ.'a') .AND.
26389     1  (IGDFN(4:4).EQ.'N' .OR. IGDFN(4:4).EQ.'n') .AND.
26390     1  (IGDFN(5:5).EQ.'T' .OR. IGDFN(5:5).EQ.'t')
26391     1  ) IGDFN='GIANT'
26392C
26393      IF(
26394     1  (IGDFN(1:1).EQ.'T' .OR. IGDFN(1:1).EQ.'t') .AND.
26395     1  (IGDFN(2:2).EQ.'I' .OR. IGDFN(2:2).EQ.'i') .AND.
26396     1  (IGDFN(3:3).EQ.'N' .OR. IGDFN(3:3).EQ.'n') .AND.
26397     1  (IGDFN(4:4).EQ.'Y' .OR. IGDFN(4:4).EQ.'y')
26398     1  ) IGDFN='TINY'
26399C
26400      IF(
26401     1  (IGDFN(1:1).EQ.'M' .OR. IGDFN(1:1).EQ.'m') .AND.
26402     1  (IGDFN(2:2).EQ.'E' .OR. IGDFN(2:2).EQ.'e') .AND.
26403     1  (IGDFN(3:3).EQ.'D' .OR. IGDFN(3:3).EQ.'d') .AND.
26404     1  (IGDFN(4:4).EQ.'I' .OR. IGDFN(4:4).EQ.'i') .AND.
26405     1  (IGDFN(5:5).EQ.'U' .OR. IGDFN(5:5).EQ.'u') .AND.
26406     1  (IGDFN(6:6).EQ.'M' .OR. IGDFN(6:6).EQ.'m')
26407     1  ) IGDFN='MEDIUMBOLD'
26408C
26409      IFOUND='YES'
26410      IF(IFEEDB.EQ.'OFF')GOTO9000
26411      WRITE(ICOUT,999)
26412      CALL DPWRST('XXX','BUG ')
26413      WRITE(ICOUT,22551)
26414      CALL DPWRST('XXX','BUG ')
26415      WRITE(ICOUT,22552)IGDFN
26416      CALL DPWRST('XXX','BUG ')
26417      GOTO9000
26418C
2641922550 CONTINUE
26420      IGDFN='Null'
26421      IFOUND='YES'
26422      IF(IFEEDB.EQ.'OFF')GOTO22559
26423      WRITE(ICOUT,999)
26424      CALL DPWRST('XXX','BUG ')
26425      WRITE(ICOUT,22551)
2642622551 FORMAT('THE GD FONT HAS BEEN SET TO ')
26427      CALL DPWRST('XXX','BUG ')
26428      WRITE(ICOUT,22552)IGDFN
2642922552 FORMAT(A80)
26430      CALL DPWRST('XXX','BUG ')
2643122559 CONTINUE
26432      GOTO9000
2643322590 CONTINUE
26434C
26435C     ************************************************************
26436C     **  ADDED APRIL 2009                                      **
26437C     **  SET LIBPLOT FONT <NAME>                               **
26438C     **  SET LIBPLOT CAP <CAP STYLE>                           **
26439C     **  SET LIBPLOT JOIN <JOIN STYLE>                         **
26440C     **  SET LIBPLOT HARDWARE FILL <ON/OFF>                    **
26441C     **  SET LIBPLOT PAUSE <ON/OFF>                            **
26442C     ************************************************************
26443C
26444C     ******************************************************
26445C     **  CHECK FOR FONT                                  **
26446C     **  NOTE THAT FONT NAME CAN BE UP TO 80 CHARACTERS  **
26447C     **  LONG, SO THIS HANDLED SOMEWHAT DIFFERENTLY THAN **
26448C     **  THE OTHER COMMANDS.                             **
26449C     ******************************************************
26450C
26451      IF(NUMARG.GE.2.AND.IHARG(1).EQ.'LIBP'.AND.
26452     1IHARG(2).EQ.'FONT')GOTO26210
26453      GOTO26290
26454C
2645526210 CONTINUE
26456      ILPLFN(1:40)='                                        '
26457      ILPLFN(41:80)='                                        '
26458      NCTEMP=0
26459      IF(NUMARG.LE.2)GOTO26250
26460      IF(IHARG(NUMARG).EQ.'OFF')GOTO26250
26461      IF(IHARG(NUMARG).EQ.'AUTO')GOTO26250
26462      IF(IHARG(NUMARG).EQ.'DEFA')GOTO26250
26463C
26464C  CHECK THE POSITION OF THE WORD FONT
26465C  EXTRACT IANSLC FROM THE FIRST CHARACTER PAST "FONT" TO
26466C  THE LAST NON-BLANK CHARACTER
26467C
26468      DO26230I=1,IWIDTH
26469      IP1=I+1
26470      IP2=I+2
26471      IP3=I+3
26472      IP4=I+4
26473      IF(IP3.GT.IWIDTH)GOTO26250
26474      IF(IANS(I).EQ.'F'.AND.IANS(IP1).EQ.'O'.AND.
26475     1IANS(IP2).EQ.'N'.AND.IANS(IP3).EQ.'T'.AND.
26476     1IANS(IP4).EQ.' ')GOTO26235
2647726230 CONTINUE
26478      GOTO26250
26479C
2648026235 CONTINUE
26481      ISTART=IP4+1
26482C
26483      ISTOP=IWIDTH
26484      DO26240I=IWIDTH,ISTART,-1
26485      ISTOP=I
26486      IF(IANS(I).NE.' ')GOTO26245
2648726240 CONTINUE
26488      GOTO26250
2648926245 CONTINUE
26490      IF(ISTART.GT.ISTOP)GOTO26250
26491      NCTEMP=ISTOP-ISTART+1
26492      IF(NCTEMP.GT.80)ISTOP=ISTART+79
26493      IF(NCTEMP.GT.80)NCTEMP=80
26494      ICOUNT=0
26495      DO26248I=ISTART,ISTOP
26496      ICOUNT=ICOUNT+1
26497      ILPLFN(ICOUNT:ICOUNT)=IANSLC(I)(1:1)
2649826248 CONTINUE
26499      IFOUND='YES'
26500      IF(IFEEDB.EQ.'OFF')GOTO9000
26501      WRITE(ICOUT,999)
26502      CALL DPWRST('XXX','BUG ')
26503      WRITE(ICOUT,26251)
26504      CALL DPWRST('XXX','BUG ')
26505      WRITE(ICOUT,26252)ILPLFN
26506      CALL DPWRST('XXX','BUG ')
26507      GOTO9000
26508C
2650926250 CONTINUE
26510      ILPLFN='Helvetica'
26511      IFOUND='YES'
26512      IF(IFEEDB.EQ.'ON')THEN
26513        WRITE(ICOUT,999)
26514        CALL DPWRST('XXX','BUG ')
26515        WRITE(ICOUT,26251)
2651626251   FORMAT('THE LIBPLOT FONT HAS BEEN SET TO ')
26517        CALL DPWRST('XXX','BUG ')
26518        WRITE(ICOUT,26252)ILPLFN
2651926252   FORMAT(A80)
26520        CALL DPWRST('XXX','BUG ')
26521        GOTO9000
26522      ENDIF
26523C
2652426290 CONTINUE
26525C
26526C     ***********************************
26527C     **  CHECK FOR LIBPLOT CAP        **
26528C     ***********************************
26529C
26530      IPART1='LIBP'
26531      IPART2='CAP '
26532      IPART3='STYL'
26533C
26534      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
26535     1   IHARG(3).EQ.IPART3)THEN
26536        IF(IHARG(4).EQ.'ROUN')THEN
26537          IHV='ROUN'
26538        ELSEIF(IHARG(4).EQ.'PROJ')THEN
26539          IHV='PROJ'
26540        ELSE
26541          IHV='BUTT'
26542        ENDIF
26543        ILPLCS=IHV
26544        GOTO5160
26545      ELSEIF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
26546        IF(IHARG(3).EQ.'ROUN')THEN
26547          IHV='ROUN'
26548        ELSEIF(IHARG(3).EQ.'PROJ')THEN
26549          IHV='PROJ'
26550        ELSE
26551          IHV='BUTT'
26552        ENDIF
26553        ILPLCS=IHV
26554        GOTO5160
26555      ENDIF
26556C
26557C     ***********************************
26558C     **  CHECK FOR LIBPLOT JOIN       **
26559C     ***********************************
26560C
26561      IPART1='LIBP'
26562      IPART2='JOIN'
26563      IPART3='STYL'
26564      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
26565     1   IHARG(3).EQ.IPART3)THEN
26566        IF(IHARG(4).EQ.'ROUN')THEN
26567          IHV='ROUN'
26568        ELSEIF(IHARG(4).EQ.'BEVE')THEN
26569          IHV='BEVE'
26570        ELSE
26571          IHV='MITE'
26572        ENDIF
26573        ILPLJS=IHV
26574        GOTO5160
26575      ELSEIF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
26576        IF(IHARG(3).EQ.'ROUN')THEN
26577          IHV='ROUN'
26578        ELSEIF(IHARG(3).EQ.'BEVE')THEN
26579          IHV='BEVE'
26580        ELSE
26581          IHV='MITE'
26582        ENDIF
26583        ILPLJS=IHV
26584        GOTO5160
26585      ENDIF
26586C
26587C     ****************************************
26588C     **  CHECK FOR LIBPLOT HARDWARE FILL   **
26589C     ****************************************
26590C
26591      IPART1='LIBP'
26592      IPART2='HARD'
26593      IPART3='FILL'
26594      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
26595     1   IHARG(3).EQ.IPART3)THEN
26596         IHV='ON'
26597         IF(IHARG(NUMARG).EQ.'ON')IHV='ON'
26598         IF(IHARG(NUMARG).EQ.'DEFA')IHV='ON'
26599         IF(IHARG(NUMARG).EQ.'YES')IHV='ON'
26600         IF(IHARG(NUMARG).EQ.'TRUE')IHV='ON'
26601         IF(IHARG(NUMARG).EQ.'OFF')IHV='OFF'
26602         IF(IHARG(NUMARG).EQ.'NO')IHV='OFF'
26603         IF(IHARG(NUMARG).EQ.'FALS')IHV='OFF'
26604         ILPLFS=IHV
26605         GOTO5160
26606      ENDIF
26607C
26608C     ****************************************
26609C     **  CHECK FOR LIBPLOT PAUSE           **
26610C     **  (CURRENTLY NOT ACTIVE, BUT MAY    **
26611C     **  ADD AT LATER DATE)                **
26612C     ****************************************
26613C
26614      IPART1='LIBP'
26615      IPART2='PAUS'
26616      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
26617         IHV='OFF'
26618         IF(IHARG(NUMARG).EQ.'ON')IHV='ON'
26619         IF(IHARG(NUMARG).EQ.'DEFA')IHV='ON'
26620         IF(IHARG(NUMARG).EQ.'YES')IHV='ON'
26621         IF(IHARG(NUMARG).EQ.'TRUE')IHV='ON'
26622         IF(IHARG(NUMARG).EQ.'OFF')IHV='OFF'
26623         IF(IHARG(NUMARG).EQ.'NO')IHV='OFF'
26624         IF(IHARG(NUMARG).EQ.'FALS')IHV='OFF'
26625         ILPLPA=IHV
26626         GOTO5160
26627      ENDIF
26628C
26629C     ****************************************
26630C     **  CHECK FOR LIBPLOT X SIZE          **
26631C     ****************************************
26632C
26633      IPART1='LIBP'
26634      IPART2='X'
26635      IPART3='SIZE'
26636      IPART4='XSIZ'
26637      IF((IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART4) .OR.
26638     1   (IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2  .OR.
26639     1    IHARG(3).EQ.IPART3))THEN
26640         IV=570
26641         IF(IARGT(NUMARG).EQ.'NUMB')IV=IARG(NUMARG)
26642         IF(IHARG(NUMARG).EQ.'ON')IV=570
26643         IF(IHARG(NUMARG).EQ.'DEFA')IV=570
26644         IF(IHARG(NUMARG).EQ.'YES')IV=570
26645         IF(IHARG(NUMARG).EQ.'OFF')IV=570
26646         IF(IHARG(NUMARG).EQ.'NO')IV=570
26647         IF(IV.LE.100)IV=100
26648         IF(IV.GE.10000)IV=10000
26649         ILPLXS=IV
26650         GOTO5150
26651      ENDIF
26652C
26653C     ****************************************
26654C     **  CHECK FOR LIBPLOT Y SIZE          **
26655C     ****************************************
26656C
26657      IPART1='LIBP'
26658      IPART2='Y'
26659      IPART3='SIZE'
26660      IPART4='YSIZ'
26661      IF((IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART4) .OR.
26662     1   (IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.OR.
26663     1    IHARG(3).EQ.IPART3))THEN
26664         IV=570
26665         IF(IARGT(NUMARG).EQ.'NUMB')IV=IARG(NUMARG)
26666         IF(IHARG(NUMARG).EQ.'ON')IV=570
26667         IF(IHARG(NUMARG).EQ.'DEFA')IV=570
26668         IF(IHARG(NUMARG).EQ.'YES')IV=570
26669         IF(IHARG(NUMARG).EQ.'OFF')IV=570
26670         IF(IHARG(NUMARG).EQ.'NO')IV=570
26671         IF(IV.LE.100)IV=100
26672         IF(IV.GE.10000)IV=10000
26673         ILPLYS=IV
26674         GOTO5150
26675      ENDIF
26676C
26677C     ****************************************
26678C     **  CHECK FOR LIBPLOT ROTATE          **
26679C     ****************************************
26680C
26681      IPART1='LIBP'
26682      IPART2='ROTA'
26683      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART4)THEN
26684         AV=0.0
26685         IF(IHARG(NUMARG).EQ.'ON')AV=0.0
26686         IF(IHARG(NUMARG).EQ.'DEFA')AV=0.0
26687         IF(IHARG(NUMARG).EQ.'YES')AV=0.0
26688         IF(IHARG(NUMARG).EQ.'OFF')AV=0.0
26689         IF(IHARG(NUMARG).EQ.'NO')AV=0.0
26690         IF(AV.NE.0.0 .AND. AV.NE.90.0)AV=0.0
26691         PLPLRO=AV
26692         GOTO5170
26693      ENDIF
26694C
26695C     ****************************************
26696C     **  CHECK FOR LATEX    HARDWARE FILL  **
26697C     ****************************************
26698C
26699      IPART1='LATE'
26700      IPART2='HARD'
26701      IPART3='FILL'
26702      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
26703     1   IHARG(3).EQ.IPART3)THEN
26704         IF(IHV.EQ.'ON')IHV='ON'
26705         IF(IHV.EQ.'DEFA')IHV='ON'
26706         IF(IHV.EQ.'YES')IHV='ON'
26707         IF(IHV.EQ.'TRUE')IHV='ON'
26708         IF(IHV.EQ.'HARD')IHV='ON'
26709         IF(IHV.EQ.'OFF')IHV='OFF'
26710         IF(IHV.EQ.'NO')IHV='OFF'
26711         IF(IHV.EQ.'FALS')IHV='OFF'
26712         IF(IHV.EQ.'SOFT')IHV='OFF'
26713         ILATFS=IHV
26714         GOTO5160
26715      ENDIF
26716C
26717C     ************************************************************
26718C     **  ADDED SEPTEMBER 1988                                  **
26719C     **  SET CALCOMP COLORS <NUMBER>                           **
26720C     **  SET CALCOMP WIDTH <NUMBER>                            **
26721C     ************************************************************
26722C
26723C     ***********************************
26724C     **  CHECK FOR COLORS             **
26725C     ***********************************
26726C
26727      IPART1='CALC'
26728      IPART2='COLO'
26729      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)ICALCL=IV
26730      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)GOTO5150
26731C
26732C     ***********************************
26733C     **  CHECK FOR PEN WIDTH          **
26734C     ***********************************
26735C
26736      IPART1='CALC'
26737      IPART2='WIDT'
26738      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)PCALTH=AV
26739      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)GOTO5170
26740C
26741C     ************************************************************
26742C     **  ADDED SEPTEMBER 1988                                  **
26743C     **  SET ZETA    COLORS <NUMBER>                           **
26744C     **  SET ZETA    WIDTH <NUMBER>                            **
26745C     ************************************************************
26746C
26747C     ***********************************
26748C     **  CHECK FOR COLORS             **
26749C     ***********************************
26750C
26751      IPART1='ZETA'
26752      IPART2='COLO'
26753      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)IZETCL=IV
26754      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)GOTO5150
26755C
26756C     ***********************************
26757C     **  CHECK FOR PEN WIDTH          **
26758C     ***********************************
26759C
26760      IPART1='ZETA'
26761      IPART2='WIDT'
26762      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)PZETTH=AV
26763      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)GOTO5170
26764C
26765C     ************************************************************
26766C     **  ADDED JULY 1996                                       **
26767C     **  SET LAHEY   SWITCH   <ON/OFF>                         **
26768C     **  SET LAHEY   GRAPHICS <DIRECT/BIOS>                    **
26769C     **  SET LAHEY   CLOSE    <ON/OFF>                         **
26770C     **  SET LAHEY   PAUSE    <ON/OFF>                         **
26771C     **  SET LAHEY   WIDTH   <NUMBER>                          **
26772C     ************************************************************
26773C
26774C     ***********************************
26775C     **  CHECK FOR SWITCH             **
26776C     ***********************************
26777C
26778      IPART1='LAHE'
26779      IPART2='SWIT'
26780      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)ILAHSW=IHV
26781      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)GOTO5160
26782C
26783C     ***********************************
26784C     **  CHECK FOR GRAPHICS           **
26785C     ***********************************
26786C
26787      IPART1='LAHE'
26788      IPART2='GRAP'
26789      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)ILAHCL=IHV
26790      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)GOTO5160
26791C
26792C     ***********************************
26793C     **  CHECK FOR CLOSE              **
26794C     ***********************************
26795C
26796      IPART1='LAHE'
26797      IPART2='CLOS'
26798      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)ILAHCL=IHV
26799      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)GOTO5160
26800C
26801C     ***********************************
26802C     **  CHECK FOR PAUSE              **
26803C     ***********************************
26804C
26805      IPART1='LAHE'
26806      IPART2='PAUS'
26807      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)ILAHPA=IHV
26808      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)GOTO5160
26809C
26810C     ***********************************
26811C     **  CHECK FOR PEN WIDTH          **
26812C     ***********************************
26813C
26814      IPART1='LAHE'
26815      IPART2='WIDT'
26816      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)PLAHTH=AV
26817      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)GOTO5170
26818C
26819C     ************************************************************
26820C     **  ADDED FEBRUARY 2001                                   **
26821C     **  SET LAHEY   WINTERACTOR FONT  <FIXED/STANDARD/DUPLEXR **
26822C     **                                 TRIPLEXR/SWIS>         **
26823C     **  SET LAHEY   WINTERACTOR COLOR <RGB/VGA>               **
26824C     **  SET LAHEY   WINTERACTOR HORIZONTAL  <VALUE>          **
26825C     **  SET LAHEY   WINTERACTOR VERTICAL L  <VALUE>          **
26826C     ************************************************************
26827C
26828      IPART1='LAHE'
26829      IPART2='WINT'
26830      IPART3='FONT'
26831      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
26832     1  IHARG(3).EQ.IPART3)IWINFN=IHV
26833      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
26834     1  IHARG(3).EQ.IPART3)GOTO5160
26835C
26836      IPART1='LAHE'
26837      IPART2='WINT'
26838      IPART3='COLO'
26839      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
26840     1  IHARG(3).EQ.IPART3)IWINCL=IHV
26841      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
26842     1  IHARG(3).EQ.IPART3)GOTO5160
26843C
26844      IPART1='LAHE'
26845      IPART2='WINT'
26846      IPART3='HORI'
26847      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
26848     1  IHARG(3).EQ.IPART3)IWINHP=IV
26849      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
26850     1  IHARG(3).EQ.IPART3)GOTO5150
26851C
26852      IPART1='LAHE'
26853      IPART2='WINT'
26854      IPART3='VERT'
26855      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
26856     1  IHARG(3).EQ.IPART3)IWINVP=IV
26857      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
26858     1  IHARG(3).EQ.IPART3)GOTO5150
26859C
26860C     ************************************************************
26861C     **  ADDED NOVEMBER 1996                                   **
26862C     **  SET QUICK-WIN   FOCUS    <TEXT/GRAPHICS>              **
26863C     **  SET QUICK-WIN   COLOR    <VGA/SVGA/DIRE>              **
26864C     **  SET QUICK-WIN   FONT     <NAME>                       **
26865C     ************************************************************
26866C
26867C     ***********************************
26868C     **  CHECK FOR FOCUS              **
26869C     ***********************************
26870C
26871      IPART1='QWIN'
26872      IPART2='FOCU'
26873      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)IQWNFC=IHV
26874      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)GOTO5160
26875C
26876C     ***********************************
26877C     **  CHECK FOR COLOR              **
26878C     ***********************************
26879C
26880      IPART1='QWIN'
26881      IPART2='COLO'
26882      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
26883        IQWNCL=IHV
26884        IF(IQWNCL.EQ.'OFF')IQWNCL='VGA'
26885        IF(IQWNCL.EQ.'ON')IQWNCL='RGB'
26886        IF(IQWNCL.EQ.'SVGA')IQWNCL='RGB'
26887        IF(IQWNCL.EQ.'DIRE')IQWNCL='RGB'
26888        IF(IQWNCL.NE.'RGB'.AND.IQWNCL.NE.'VGA')IQWNCL='VGA'
26889        IF(IQWNCL.EQ.'RGB')THEN
26890          IQWNBC=1
26891          IQWNF2=0
26892        ENDIF
26893        GOTO5160
26894      ENDIF
26895C
26896C     **************************************
26897C     **  CHECK FOR TEXT BACKGROUND COLOR **
26898C     **************************************
26899C
26900      IPART1='QWIN'
26901      IPART2='TEXT'
26902      IPART3='FORE'
26903      IPART4='COLO'
26904      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
26905     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
26906         IQWNF2=IV
26907         IF(IQWNCL.EQ.'VGA')THEN
26908           IF(IQWNF2.LT.0)IQWNF2=0
26909           IF(IQWNF2.GT.15)IQWNF2=15
26910         ELSEIF(IQWNCL.EQ.'RGB')THEN
26911           IF(IQWNF2.LT.0)IQWNF2=0
26912           IF(IQWNF2.GT.88)IQWNF2=0
26913         ENDIF
26914         GOTO5150
26915      ENDIF
26916C
26917C     **************************************
26918C     **  CHECK FOR TEXT BACKGROUND COLOR **
26919C     **************************************
26920C
26921      IPART1='QWIN'
26922      IPART2='TEXT'
26923      IPART3='BACK'
26924      IPART4='COLO'
26925      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
26926     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
26927         IQWNBC=IV
26928         IF(IQWNCL.EQ.'VGA')THEN
26929           IF(IQWNBC.LT.0)IQWNBC=0
26930           IF(IQWNBC.GT.15)IQWNBC=15
26931         ELSEIF(IQWNCL.EQ.'RGB')THEN
26932           IF(IQWNBC.LT.0)IQWNBC=1
26933           IF(IQWNBC.GT.88)IQWNBC=1
26934         ENDIF
26935         GOTO5150
26936      ENDIF
26937C
26938C     ***********************************
26939C     **  CHECK FOR FONT NAME          **
26940C     ***********************************
26941C
26942      IF(NUMARG.GE.2.AND.IHARG(1).EQ.'QWIN '.AND.
26943     1IHARG(2).EQ.'FONT')GOTO2610
26944      GOTO2690
26945C
26946 2610 CONTINUE
26947      IQWNFZ=' '
26948      NCTEMP=0
26949      IF(NUMARG.LE.2)GOTO2650
26950      IF(IHARG(NUMARG).EQ.'OFF')GOTO2650
26951      IF(IHARG(NUMARG).EQ.'AUTO')GOTO2650
26952      IF(IHARG(NUMARG).EQ.'DEFA')GOTO2650
26953C
26954C  CHECK THE POSITION OF THE WORD FONT
26955C  EXTRACT IANS FROM THE FIRST CHARACTER PAST "FONT" TO
26956C  THE LAST NON-BLANK CHARACTER
26957C
26958      DO2630I=1,IWIDTH
26959      IP1=I+1
26960      IP2=I+2
26961      IP3=I+3
26962      IP4=I+4
26963      IF(IP3.GT.IWIDTH)GOTO2650
26964      IF(IANS(I).EQ.'F'.AND.IANS(IP1).EQ.'O'.AND.
26965     1IANS(IP2).EQ.'N'.AND.IANS(IP3).EQ.'T'.AND.
26966     1IANS(IP4).EQ.' ')GOTO2635
26967 2630 CONTINUE
26968      GOTO2650
26969C
26970 2635 CONTINUE
26971      ISTART=IP4+1
26972C
26973      ISTOP=IWIDTH
26974      DO2640I=IWIDTH,ISTART,-1
26975      ISTOP=I
26976      IF(IANS(I).NE.' ')GOTO2645
26977 2640 CONTINUE
26978      GOTO2650
26979 2645 CONTINUE
26980      IF(ISTART.GT.ISTOP)GOTO2650
26981      NCTEMP=ISTOP-ISTART+1
26982      IF(NCTEMP.GT.80)ISTOP=ISTART+79
26983      IF(NCTEMP.GT.80)NCTEMP=80
26984      ICOUNT=0
26985      DO2648I=ISTART,ISTOP
26986      ICOUNT=ICOUNT+1
26987      IQWNFZ(ICOUNT:ICOUNT)=IANS(I)(1:1)
26988 2648 CONTINUE
26989      IFOUND='YES'
26990      IF(IFEEDB.EQ.'OFF')GOTO9000
26991      WRITE(ICOUT,999)
26992      CALL DPWRST('XXX','BUG ')
26993      WRITE(ICOUT,2651)
26994      CALL DPWRST('XXX','BUG ')
26995      WRITE(ICOUT,2652)IQWNFN
26996      CALL DPWRST('XXX','BUG ')
26997      GOTO9000
26998C
26999 2650 CONTINUE
27000      IQWNFZ='COURIER'
27001      IFOUND='YES'
27002      IF(IFEEDB.EQ.'OFF')GOTO2659
27003      WRITE(ICOUT,999)
27004      CALL DPWRST('XXX','BUG ')
27005      WRITE(ICOUT,2651)
27006 2651 FORMAT('THE MICROSOFT QUICK-WIN FONT HAS BEEN SET TO ')
27007      CALL DPWRST('XXX','BUG ')
27008      WRITE(ICOUT,2652)IQWNFZ
27009 2652 FORMAT(A80)
27010      CALL DPWRST('XXX','BUG ')
27011 2659 CONTINUE
27012      GOTO9000
27013 2690 CONTINUE
27014C
27015C     ************************************************************
27016C     **  ADDED MARCH 2002                                      **
27017C     **  SET SVG FONT <SANS-SERIF/SERIF/MONOSPACE>             **
27018C     **  SET SVG FONT WEIGHT <BOLD/NORM>                       **
27019C     **  SET SVG FONT STYLE <NORM/ITALIC>                      **
27020C     **  SET SVG CAP <BUTT/ROUND/SQUARE/NONE>                  **
27021C     **  SET SVG JOIN <MITER/ROUND/BEVEL/NONE>                 **
27022C     **  SET SVG FOREGROUND COLOR <COLOR>                      **
27023C     **  SET SVG HARDWARE FILL <EVENODD/NONZERO/OFF>           **
27024C     **  SET SVG STYLE SHEET <NONE/INTERNAL/EXTERNAL USE/      **
27025C     **                      EXTERNAL CREATE>                  **
27026C     **  SET SVG STYLE SHEET NAME                              **
27027C     **  ADDED OCTOBER 2010                                    **
27028C     **  SET SVG URL <URL>                                     **
27029C     ************************************************************
27030C
27031C     ******************************************************
27032C     **  CHECK FOR URL                                   **
27033C     **  NOTE THAT URL  NAME CAN BE UP TO 80 CHARACTERS  **
27034C     **  LONG, SO THIS HANDLED SOMEWHAT DIFFERENTLY THAN **
27035C     **  THE OTHER COMMANDS.                             **
27036C     ******************************************************
27037C
27038      IF(NUMARG.GE.2.AND.IHARG(1).EQ.'SVG '.AND.
27039     1IHARG(2).EQ.'URL ')GOTO2810
27040      GOTO2890
27041C
27042 2810 CONTINUE
27043      ISVGUR(1:40)='                                        '
27044      ISVGUR(41:80)='                                        '
27045      NCTEMP=0
27046      IF(NUMARG.LE.2)GOTO2850
27047      IF(IHARG(NUMARG).EQ.'OFF')GOTO2850
27048      IF(IHARG(NUMARG).EQ.'AUTO')GOTO2850
27049      IF(IHARG(NUMARG).EQ.'DEFA')GOTO2850
27050C
27051C  CHECK THE POSITION OF THE WORD URL
27052C  EXTRACT IANS FROM THE FIRST CHARACTER PAST "URL" TO
27053C  THE LAST NON-BLANK CHARACTER
27054C
27055      DO2830I=1,IWIDTH
27056      IP1=I+1
27057      IP2=I+2
27058      IF(IP2.GT.IWIDTH)GOTO2850
27059      IF(IANS(I).EQ.'U'.AND.IANS(IP1).EQ.'R'.AND.
27060     1IANS(IP2).EQ.'L')GOTO2835
27061 2830 CONTINUE
27062      GOTO2850
27063C
27064 2835 CONTINUE
27065      ISTART=IP2+1
27066C
27067      ISTOP=IWIDTH
27068      DO2840I=IWIDTH,ISTART,-1
27069      ISTOP=I
27070      IF(IANS(I).NE.' ')GOTO2845
27071 2840 CONTINUE
27072      GOTO2850
27073 2845 CONTINUE
27074      IF(ISTART.GT.ISTOP)GOTO2850
27075      NCTEMP=ISTOP-ISTART+1
27076      IF(NCTEMP.GT.80)ISTOP=ISTART+79
27077      IF(NCTEMP.GT.80)NCTEMP=80
27078      ICOUNT=0
27079      DO2848I=ISTART,ISTOP
27080      ICOUNT=ICOUNT+1
27081      ISVGUR(ICOUNT:ICOUNT)=IANSLC(I)(1:1)
27082 2848 CONTINUE
27083      IFOUND='YES'
27084      IF(IFEEDB.EQ.'OFF')GOTO9000
27085      WRITE(ICOUT,999)
27086      CALL DPWRST('XXX','BUG ')
27087      WRITE(ICOUT,2851)
27088      CALL DPWRST('XXX','BUG ')
27089      WRITE(ICOUT,2852)ISVGUR
27090      CALL DPWRST('XXX','BUG ')
27091      GOTO9000
27092C
27093 2850 CONTINUE
27094      ISVGUR='NULL'
27095      IFOUND='YES'
27096      IF(IFEEDB.EQ.'OFF')GOTO2859
27097      WRITE(ICOUT,999)
27098      CALL DPWRST('XXX','BUG ')
27099      WRITE(ICOUT,2851)
27100 2851 FORMAT('THE SVG URL HAS BEEN SET TO ')
27101      CALL DPWRST('XXX','BUG ')
27102      WRITE(ICOUT,2852)ISVGUR
27103 2852 FORMAT(A80)
27104      CALL DPWRST('XXX','BUG ')
27105 2859 CONTINUE
27106      GOTO9000
27107 2890 CONTINUE
27108C
27109C     ***********************************
27110C     **  CHECK FOR SVG FONT WEIGHT    **
27111C     ***********************************
27112C
27113      IPART1='SVG '
27114      IPART2='FONT'
27115      IPART3='WEIG'
27116      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
27117     1   IHARG(3).EQ.IPART3)THEN
27118        ISVGFW=IHARG(NUMARG)
27119        IF(ISVGFW.NE.'NORM')ISVGFW='BOLD'
27120        IHV=ISVGFW
27121        GOTO5160
27122      ENDIF
27123C     ***********************************
27124C     **  CHECK FOR SVG FONT STYLE     **
27125C     ***********************************
27126C
27127      IPART1='SVG '
27128      IPART2='FONT'
27129      IPART3='STYL'
27130      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
27131     1   IHARG(3).EQ.IPART3)THEN
27132        ISVGST=IHARG(NUMARG)
27133        IF(ISVGST.NE.'ITAL')ISVGST='NORM'
27134        IHV=ISVGST
27135        GOTO5160
27136      ENDIF
27137C
27138C     ******************************************************
27139C     **  CHECK FOR FONT NAME                             **
27140C     **  NOTE THAT FONT NAME CAN BE UP TO 32 CHARACTERS  **
27141C     **  LONG, SO THIS HANDLED SOMEWHAT DIFFERENTLY THAN **
27142C     **  THE OTHER COMMANDS.                             **
27143C     ******************************************************
27144C
27145      IF(NUMARG.GE.2.AND.IHARG(1).EQ.'SVG '.AND.
27146     1IHARG(2).EQ.'FONT')GOTO2910
27147      GOTO2990
27148C
27149 2910 CONTINUE
27150      ISVGFN(1:32)='                                '
27151      NCTEMP=0
27152      IF(NUMARG.LE.2)GOTO2970
27153      IF(IHARG(NUMARG).EQ.'OFF')GOTO2970
27154      IF(IHARG(NUMARG).EQ.'AUTO')GOTO2970
27155      IF(IHARG(NUMARG).EQ.'DEFA')GOTO2970
27156C
27157C  CHECK THE POSITION OF THE WORD FONT
27158C  EXTRACT IANS FROM THE FIRST CHARACTER PAST "FONT" TO
27159C  THE LAST NON-BLANK CHARACTER
27160C
27161      DO2930I=1,IWIDTH
27162      IP1=I+1
27163      IP2=I+2
27164      IP3=I+3
27165      IP4=I+4
27166      IF(IP3.GT.IWIDTH)GOTO2970
27167      IF(IANS(I).EQ.'F'.AND.IANS(IP1).EQ.'O'.AND.
27168     1IANS(IP2).EQ.'N'.AND.IANS(IP3).EQ.'T'.AND.
27169     1IANS(IP4).EQ.' ')GOTO2935
27170 2930 CONTINUE
27171      GOTO2970
27172C
27173 2935 CONTINUE
27174      ISTART=IP4+1
27175C
27176      ISTOP=IWIDTH
27177      DO2940I=IWIDTH,ISTART,-1
27178      ISTOP=I
27179      IF(IANS(I).NE.' ')GOTO2945
27180 2940 CONTINUE
27181      GOTO2970
27182 2945 CONTINUE
27183      IF(ISTART.GT.ISTOP)GOTO2970
27184      NCTEMP=ISTOP-ISTART+1
27185      IF(NCTEMP.GT.32)THEN
27186        ISTOP=ISTART+31
27187        NCTEMP=80
27188      ENDIF
27189      ICOUNT=0
27190      DO2948I=ISTART,ISTOP
27191      ICOUNT=ICOUNT+1
27192      ISVGFN(ICOUNT:ICOUNT)=IANSLC(I)(1:1)
27193 2948 CONTINUE
27194      IFOUND='YES'
27195      IF(IFEEDB.EQ.'OFF')GOTO9000
27196      WRITE(ICOUT,999)
27197      CALL DPWRST('XXX','BUG ')
27198      WRITE(ICOUT,2971)
27199      CALL DPWRST('XXX','BUG ')
27200      WRITE(ICOUT,2972)ISVGFN
27201      CALL DPWRST('XXX','BUG ')
27202      GOTO9000
27203C
27204 2970 CONTINUE
27205      ISVGFN='sans-serif'
27206      IFOUND='YES'
27207      IF(IFEEDB.EQ.'OFF')GOTO2979
27208      WRITE(ICOUT,999)
27209      CALL DPWRST('XXX','BUG ')
27210      WRITE(ICOUT,2971)
27211 2971 FORMAT('THE SVG FONT HAS BEEN SET TO ')
27212      CALL DPWRST('XXX','BUG ')
27213      WRITE(ICOUT,2972)ISVGFN
27214 2972 FORMAT(A32)
27215      CALL DPWRST('XXX','BUG ')
27216 2979 CONTINUE
27217      GOTO9000
27218 2990 CONTINUE
27219C
27220C     **************************************************
27221C     **  CHECK FOR SVG CAP <BUTT/ROUND/SQUARE/NONE>  **
27222C     **************************************************
27223C
27224      IPART1='SVG '
27225      IPART2='CAP '
27226      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
27227        ISVGCA=IHARG(NUMARG)
27228        IF(ISVGCA.EQ.'OFF')ISVGCA='NONE'
27229        IF(ISVGCA.NE.'ROUN' .AND. ISVGCA.NE.'SQUA'.AND.
27230     1     ISVGCA.NE.'NONE')ISVGCA='BUTT'
27231        IHV=ISVGCA
27232        GOTO5160
27233      ENDIF
27234C
27235C     ***************************************************
27236C     **  CHECK FOR SVG JOIN <MITER/ROUND/BEVEL/NONE>  **
27237C     ***************************************************
27238C
27239      IPART1='SVG '
27240      IPART2='JOIN'
27241      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
27242        ISVGJS=IHARG(NUMARG)
27243        IF(ISVGJS.EQ.'OFF')ISVGJS='NONE'
27244        IF(ISVGJS.NE.'ROUN' .AND. ISVGJS.NE.'BEVE' .AND.
27245     1     ISVGJS.NE.'NONE')ISVGJS='MITE'
27246        IHV=ISVGJS
27247        GOTO5160
27248      ENDIF
27249C
27250C     ***************************************************
27251C     **  CHECK FOR SVG FOREGROUND COLOR <COLOR>       **
27252C     ***************************************************
27253C
27254      IPART1='SVG '
27255      IPART2='FORE'
27256      IPART3='COLO'
27257      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
27258     1   IHARG(3).EQ.IPART3)THEN
27259        ISVGFC=IHARG(NUMARG)
27260        IHV=ISVGFC
27261        GOTO5160
27262      ENDIF
27263C
27264C     ********************************************************
27265C     **  CHECK FOR SVG HARDWARE FILL <EVENODD/NONZERO/OFF> **
27266C     ********************************************************
27267C
27268      IPART1='SVG '
27269      IPART2='HARD'
27270      IPART3='FILL'
27271      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
27272     1  IHARG(3).EQ.IPART3)THEN
27273        ISVGFS=IHV
27274        IF(ISVGFS.EQ.'NONE')ISVGFS='OFF'
27275        IF(ISVGFS.NE.'NONZ' .AND. ISVGFS.NE.'OFF ')ISVGFS='EVEN'
27276        IHV=ISVGFS
27277        GOTO5160
27278      ENDIF
27279C
27280C     ******************************************
27281C     **  CHECK FOR SVG BACKUP FILE          **
27282C     **                <NONE/PNG/JPEG/GIF>  **
27283C     *****************************************
27284C
27285      IPART1='SVG '
27286      IPART2='BACK'
27287      IPART3='FILE'
27288      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
27289     1   IHARG(3).EQ.IPART3)THEN
27290        IF(IHARG(NUMARG).EQ.'JPEG' .OR. IHARG(NUMARG).EQ.'JPG')THEN
27291          ISVGBU='JPG'
27292        ELSEIF(IHARG(NUMARG).EQ.'PNG')THEN
27293          ISVGBU='PNG'
27294        ELSEIF(IHARG(NUMARG).EQ.'GIF')THEN
27295          ISVGBU='GIF'
27296        ELSE
27297          ISVGBU='NONE'
27298        ENDIF
27299        IHV=ISVGBU
27300        GOTO5160
27301      ENDIF
27302C
27303C     ******************************************************
27304C     **  CHECK FOR STYLE SHEET NAME                      **
27305C     **  THIS IS A FILE NAME THAT CAN BE UP TO 80        **
27306C     **  CHARACTERS.                                     **
27307C     ******************************************************
27308C
27309      IF(NUMARG.GE.2.AND.IHARG(1).EQ.'SVG '.AND.IHARG(2).EQ.'STYL'.AND.
27310     1IHARG(3).EQ.'SHEE'.AND.IHARG(4).EQ.'NAME')THEN
27311C
27312        ISVGSN=' '
27313        NCTEMP=0
27314        IF(NUMARG.LE.2)GOTO2750
27315        IF(IHARG(NUMARG).EQ.'OFF')GOTO2750
27316        IF(IHARG(NUMARG).EQ.'AUTO')GOTO2750
27317        IF(IHARG(NUMARG).EQ.'DEFA')GOTO2750
27318C
27319C  CHECK THE POSITION OF THE WORD NAME
27320C  EXTRACT IANSLC FROM THE FIRST CHARACTER PAST "NAME" TO
27321C  THE LAST NON-BLANK CHARACTER
27322C
27323        DO2730I=1,IWIDTH
27324        IP1=I+1
27325        IP2=I+2
27326        IP3=I+3
27327        IP4=I+4
27328        IF(IP3.GT.IWIDTH)GOTO2750
27329        IF(IANS(I).EQ.'N'.AND.IANS(IP1).EQ.'A'.AND.
27330     1  IANS(IP2).EQ.'M'.AND.IANS(IP3).EQ.'E'.AND.
27331     1  IANS(IP4).EQ.' ')GOTO2735
27332 2730   CONTINUE
27333        GOTO2750
27334C
27335 2735   CONTINUE
27336        ISTART=IP4+1
27337C
27338        DO2740I=ISTART,IWIDTH
27339          IF(IANS(I).EQ.' ')GOTO2740
27340          ISTART=I
27341          GOTO2745
27342 2740   CONTINUE
27343        GOTO2750
27344 2745   CONTINUE
27345        ISTOP=ISTART+79
27346        IF(ISTOP.GT.IWIDTH)ISTOP=IWIDTH
27347        IF(ISTART.GT.ISTOP)GOTO2750
27348        NCTEMP=ISTOP-ISTART+1
27349        ICOUNT=0
27350        DO2748I=ISTART,ISTOP
27351          ICOUNT=ICOUNT+1
27352          ISVGSN(ICOUNT:ICOUNT)=IANSLC(I)(1:1)
27353 2748   CONTINUE
27354        IFOUND='YES'
27355        IF(IFEEDB.EQ.'ON')THEN
27356          WRITE(ICOUT,999)
27357          CALL DPWRST('XXX','BUG ')
27358          WRITE(ICOUT,2751)
27359          CALL DPWRST('XXX','BUG ')
27360          WRITE(ICOUT,2752)ISVGSN
27361          CALL DPWRST('XXX','BUG ')
27362        ENDIF
27363        GOTO9000
27364C
27365 2750   CONTINUE
27366        ISVGSN='dataplot.css'
27367        IFOUND='YES'
27368        IF(IFEEDB.EQ.'ON')THEN
27369          WRITE(ICOUT,999)
27370          CALL DPWRST('XXX','BUG ')
27371          WRITE(ICOUT,2751)
27372          CALL DPWRST('XXX','BUG ')
27373 2751     FORMAT('THE SVG STYLE SHEET NAME HAS BEEN SET TO ')
27374          WRITE(ICOUT,2752)ISVGSN
27375 2752     FORMAT(A80)
27376          CALL DPWRST('XXX','BUG ')
27377        ENDIF
27378C
27379      ENDIF
27380C
27381C     ********************************************************
27382C     **  CHECK FOR SVG STYLE SHEET <NONE/INTERNAL/         **
27383C     **                EXTERNAL USE/EXTERNAL CREATE>       **
27384C     ********************************************************
27385C
27386      IPART1='SVG '
27387      IPART2='STYL'
27388      IPART3='SHEE'
27389      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
27390     1  IHARG(3).EQ.IPART3)THEN
27391        IF(IHARG(4).EQ.'NONE'.OR.IHARG(4).EQ.'OFF ')THEN
27392          ISVGSS='NONE'
27393        ELSEIF(IHARG(4).EQ.'INTE')THEN
27394          ISVGSS='INTE'
27395        ELSEIF(IHARG(4).EQ.'EXTE')THEN
27396          IF(IHARG(5).EQ.'USE ')THEN
27397            ISVGSS='EXTU'
27398          ELSEIF(IHARG(5).EQ.'CREA')THEN
27399            ISVGSS='EXTC'
27400          ELSE
27401            ISVGSS='EXTU'
27402          ENDIF
27403        ENDIF
27404        IHV=ISVGSS
27405        GOTO5160
27406      ENDIF
27407C
27408C     **************************************************************
27409C     **  ADDED JANUARY  2014                                     **
27410C     **  PROBE CAIRO FONT                                        **
27411C     **  PROBE CAIRO FONT WEIGHT <BOLD/NORM>                     **
27412C     **  PROBE CAIRO FONT SLANT <NORM/ITALIC>                    **
27413C     **  PROBE CAIRO CAP <BUTT/ROUND/SQUARE>                     **
27414C     **  PROBE CAIRO JOIN <MITER/ROUND/BEVEL>                    **
27415C     **  PROBE CAIRO HARDWARE FILL <ON/OFF>                      **
27416C     **************************************************************
27417C
27418C     ***********************************
27419C     **  CHECK FOR CAIRO FONT WEIGHT  **
27420C     ***********************************
27421C
27422      IPART1='CAIR'
27423      IPART2='FONT'
27424      IPART3='WEIG'
27425      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
27426     1   IHARG(3).EQ.IPART3)THEN
27427        ICAIFW=IHARG(NUMARG)
27428        IF(ICAIFW.NE.'NORM')ICAIFW='BOLD'
27429        IHV=ICAIFW
27430        GOTO5160
27431      ENDIF
27432C
27433C     ***********************************
27434C     **  CHECK FOR CAIRO FONT SLANT   **
27435C     ***********************************
27436C
27437      IPART1='CAIR'
27438      IPART2='FONT'
27439      IPART3='SLAN'
27440      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
27441     1   IHARG(3).EQ.IPART3)THEN
27442        ICAISL=IHARG(NUMARG)
27443        IF(ICAISL.NE.'ITAL')ICAISL='NORM'
27444        IHV=ICAISL
27445        GOTO5160
27446      ENDIF
27447C
27448C     ******************************************************
27449C     **  CHECK FOR FONT NAME                             **
27450C     **  NOTE THAT FONT NAME CAN BE UP TO 32 CHARACTERS  **
27451C     **  LONG, SO THIS HANDLED SOMEWHAT DIFFERENTLY THAN **
27452C     **  THE OTHER COMMANDS.                             **
27453C     ******************************************************
27454C
27455      IF(NUMARG.GE.2.AND.IHARG(1).EQ.'CAIR'.AND.
27456     1IHARG(2).EQ.'FONT')THEN
27457C
27458        ICAIFN(1:32)='                                '
27459        NCTEMP=0
27460        IF(NUMARG.LE.2)GOTO3970
27461        IF(IHARG(NUMARG).EQ.'OFF')GOTO3970
27462        IF(IHARG(NUMARG).EQ.'AUTO')GOTO3970
27463        IF(IHARG(NUMARG).EQ.'DEFA')GOTO3970
27464C
27465C       CHECK THE POSITION OF THE WORD FONT
27466C       EXTRACT IANS FROM THE FIRST CHARACTER PAST "FONT" TO
27467C       THE LAST NON-BLANK CHARACTER
27468C
27469        DO3930I=1,IWIDTH
27470          IP1=I+1
27471          IP2=I+2
27472          IP3=I+3
27473          IP4=I+4
27474          IF(IP3.GT.IWIDTH)GOTO3970
27475          IF(IANS(I).EQ.'F'.AND.IANS(IP1).EQ.'O'.AND.
27476     1      IANS(IP2).EQ.'N'.AND.IANS(IP3).EQ.'T'.AND.
27477     1      IANS(IP4).EQ.' ')GOTO3935
27478 3930   CONTINUE
27479        GOTO3970
27480C
27481 3935   CONTINUE
27482        ISTART=IP4+1
27483C
27484        ISTOP=IWIDTH
27485        DO3940I=IWIDTH,ISTART,-1
27486          ISTOP=I
27487          IF(IANS(I).NE.' ')GOTO3945
27488 3940   CONTINUE
27489        GOTO3970
27490 3945   CONTINUE
27491        IF(ISTART.GT.ISTOP)GOTO3970
27492        NCTEMP=ISTOP-ISTART+1
27493        IF(NCTEMP.GT.32)THEN
27494          ISTOP=ISTART+31
27495          NCTEMP=80
27496        ENDIF
27497        ICOUNT=0
27498        DO3948I=ISTART,ISTOP
27499          ICOUNT=ICOUNT+1
27500          ICAIFN(ICOUNT:ICOUNT)=IANSLC(I)(1:1)
27501 3948   CONTINUE
27502        IFOUND='YES'
27503        IF(IFEEDB.EQ.'OFF')GOTO9000
27504        WRITE(ICOUT,999)
27505        CALL DPWRST('XXX','BUG ')
27506        WRITE(ICOUT,3971)
27507        CALL DPWRST('XXX','BUG ')
27508        WRITE(ICOUT,3972)ICAIFN
27509        CALL DPWRST('XXX','BUG ')
27510        GOTO9000
27511C
27512 3970   CONTINUE
27513        ICAIFN='Sans'
27514        IFOUND='YES'
27515        IF(IFEEDB.EQ.'OFF')GOTO3979
27516        WRITE(ICOUT,999)
27517        CALL DPWRST('XXX','BUG ')
27518        WRITE(ICOUT,3971)
27519 3971   FORMAT('THE CAIRO FONT FAMILY HAS BEEN SET TO ')
27520        CALL DPWRST('XXX','BUG ')
27521        WRITE(ICOUT,3972)ICAIFN
27522 3972   FORMAT(A32)
27523        CALL DPWRST('XXX','BUG ')
27524 3979   CONTINUE
27525        GOTO9000
27526      ENDIF
27527C
27528C     ****************************************************
27529C     **  CHECK FOR CAIRO CAP <BUTT/ROUND/SQUARE/NONE>  **
27530C     ****************************************************
27531C
27532      IPART1='CAIR'
27533      IPART2='CAP '
27534      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
27535        ICAICA=IHARG(NUMARG)
27536        IF(ICAICA.EQ.'OFF')ICAICA='NONE'
27537        IF(ICAICA.EQ.'FALS')ICAICA='NONE'
27538        IF(ICAICA.NE.'ROUN' .AND. ICAICA.NE.'SQUA'.AND.
27539     1     ICAICA.NE.'NONE')ICAICA='BUTT'
27540        IHV=ICAICA
27541        GOTO5160
27542      ENDIF
27543C
27544C     *****************************************************
27545C     **  CHECK FOR CAIRO JOIN <MITER/ROUND/BEVEL/NONE>  **
27546C     *****************************************************
27547C
27548      IPART1='CAIR'
27549      IPART2='JOIN'
27550      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
27551        ICAIJS=IHARG(NUMARG)
27552        IF(ICAIJS.EQ.'OFF')ICAIJS='NONE'
27553        IF(ICAIJS.EQ.'FALS')ICAIJS='NONE'
27554        IF(ICAIJS.NE.'ROUN' .AND. ICAIJS.NE.'BEVE' .AND.
27555     1     ICAIJS.NE.'NONE')ICAIJS='MITE'
27556        IHV=ICAIJS
27557        GOTO5160
27558      ENDIF
27559C
27560C     ********************************************************
27561C     **  CHECK FOR CAIRO HARDWARE FILL <ON/OFF>            **
27562C     ********************************************************
27563C
27564      IPART1='CAIR'
27565      IPART2='HARD'
27566      IPART3='FILL'
27567      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
27568     1  IHARG(3).EQ.IPART3)THEN
27569        ICAIFS=IHV
27570        IF(ICAIFS.EQ.'NONE' .OR. ICAIFS.NE.'OFF ' .OR.
27571     1     ICAIFS.EQ.'FALS')THEN
27572          ICAIFS='ON'
27573        ELSE
27574          ICAIFS='ON'
27575        ENDIF
27576        IHV=ICAIFS
27577        GOTO5160
27578      ENDIF
27579C
27580C     ********************************************************
27581C     **  CHECK FOR CAIRO BLANK PAGE <ON/OFF>               **
27582C     ********************************************************
27583C
27584      IPART1='CAIR'
27585      IPART2='BLAN'
27586      IPART3='PAGE'
27587      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
27588     1  IHARG(3).EQ.IPART3)THEN
27589        ICAIBP=IHV
27590        IF(ICAIBP.EQ.'YES ' .OR. ICAIBP.EQ.'ON' .OR.
27591     1     ICAIBP.EQ.'TRUE')THEN
27592          ICAIBP='ON'
27593        ELSE
27594          ICAIBP='OFF'
27595        ENDIF
27596        IHV=ICAIBP
27597        GOTO5160
27598      ENDIF
27599C
27600C     ********************************************************
27601C     **  CHECK FOR CAIRO POINTS PER INCH <VALUE>           **
27602C     ********************************************************
27603C
27604      IPART1='CAIR'
27605      IPART2='POIN'
27606      IPART3='PER '
27607      IPART4='INCH'
27608      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2.AND.
27609     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4)THEN
27610        CAIPPI=AV
27611        IVAL=INT(CAIPPI+0.5)
27612        CAIPPI=REAL(IVAL)
27613        IF(CAIPPI.LT.72.)CAIPPI=72.
27614        IF(CAIPPI.GT.600.)CAIPPI=600.
27615        AV=CAIPPI
27616        GOTO5170
27617      ENDIF
27618C
27619C               ****************************
27620C               **  STEP 4--              **
27621C               **  SET   DATA VARIABLES  **
27622C               ****************************
27623C
27624      IPART1='MAXN'
27625      IPART2='K   '
27626      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)MAXNK=IV
27627      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
27628C
27629      IPART1='NK  '
27630      IPART2='    '
27631      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)NK=IV
27632      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
27633C
27634      IPART1='MAXC'
27635      IPART2='OL  '
27636      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)MAXCOL=IV
27637      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
27638C
27639      IPART1='NUMC'
27640      IPART2='OL  '
27641      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)NUMCOL=IV
27642      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
27643C
27644      IPART1='MAXN'
27645      IPART2='    '
27646      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)MAXN=IV
27647      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
27648C
27649      IPART1='N   '
27650      IPART2='    '
27651      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)N=IV
27652      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
27653C
27654      IPART1='MAXC'
27655      IPART2='HF  '
27656      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)MAXCHF=IV
27657      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
27658C
27659      IPART1='NUMC'
27660      IPART2='HF  '
27661      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)NUMCHF=IV
27662      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
27663C
27664      IPART1='MAXF'
27665      IPART2='UN  '
27666      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)MAXFUN=IV
27667      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
27668C
27669      IPART1='NUMF'
27670      IPART2='UN  '
27671      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)NUMFUN=IV
27672      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
27673C
27674      IPART1='MAXC'
27675      IPART2='HM  '
27676      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)MAXCHM=IV
27677      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
27678C
27679      IPART1='NPLO'
27680      IPART2='TP  '
27681      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)NPLOTP=IV
27682      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
27683C
27684      IPART1='ITRA'
27685      IPART2='NS  '
27686      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ITRANS=IHV
27687      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
27688C
27689C  OCTOBER 1991.  BUG FIX:  ONLY CHANGE VALUE OF "IV" IF THIS IS THE
27690C  RIGHT CASE.  FOR EXAMPLE, SET HELP LINES 100 SETS TO 50 BECAUSE IV
27691C  CHANGED HERE.  CHANGE FOR 2 LIST CASES AND 2 HELP CASES.
27692C
27693      IPART1='LIST'
27694      IPART2='    '
27695CCCCC IF(IV.LE.0)IV=20
27696CCCCC IF(IV.GT.50)IV=50
27697CCCCC IF(NUMARG.GE.2.AND.
27698CCCCC1   IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2.AND.
27699CCCCC1   IHARG(2).EQ.'LINE')ILISMX=IV
27700CCCCC IF(NUMARG.GE.2.AND.
27701CCCCC1   IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2.AND.
27702CCCCC1   IHARG(2).EQ.'LINE')GOTO5150
27703      IF(NUMARG.GE.2.AND.
27704     1   IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2.AND.
27705     1   IHARG(2).EQ.'LINE')THEN
27706        IF(IV.LE.0)IV=20
27707CCCCC THE FOLLOWING LINE WAS CHANGED APRIL 1993
27708CCCCC   IF(IV.GT.50)IV=50
27709        IF(IV.GT.MAXLIS)IV=MAXLIS
27710        ILISMX=IV
27711        GOTO5150
27712      END IF
27713C
27714      IPART1='LIST'
27715      IPART2='    '
27716CCCCC IF(IV.LE.0)IV=20
27717CCCCC IF(IV.GT.50)IV=50
27718CCCCC IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ILISMX=IV
27719CCCCC IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
27720      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)THEN
27721        IF(IV.LE.0)IV=20
27722CCCCC THE FOLLOWING LINE WAS CHANGED APRIL 1993
27723CCCCC   IF(IV.GT.50)IV=50
27724        IF(IV.GT.MAXLIS)IV=MAXLIS
27725        ILISMX=IV
27726        GOTO5150
27727      END IF
27728C
27729      IPART1='HELP'
27730      IPART2='    '
27731CCCCC THE FOLLOWING LINE WAS CHANGED JULY 1990
27732CCCCC IF(IV.LE.0)IV=24
27733CCCCC IF(IV.LE.0)IV=20
27734CCCCC IF(IV.GT.100000)IV=100000
27735CCCCC IF(NUMARG.GE.2.AND.
27736CCCCC1   IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2.AND.
27737CCCCC1   IHARG(2).EQ.'LINE')IHELMX=IV
27738CCCCC IF(NUMARG.GE.2.AND.
27739CCCCC1   IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2.AND.
27740CCCCC1   IHARG(2).EQ.'LINE')GOTO5150
27741      IF(NUMARG.GE.2.AND.
27742     1   IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2.AND.
27743     1   IHARG(2).EQ.'LINE')THEN
27744        IF(IV.LE.0)IV=20
27745        IF(IV.GT.100000)IV=100000
27746        IHELMX=IV
27747        GOTO5150
27748      END IF
27749C
27750      IPART1='HELP'
27751      IPART2='    '
27752CCCCC IF(IV.LE.0)IV=24
27753CCCCC IF(IV.GT.100000)IV=100000
27754CCCCC IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IHELMX=IV
27755CCCCC IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
27756      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)THEN
27757        IF(IV.LE.0)IV=20
27758        IF(IV.GT.100000)IV=100000
27759        IHELMX=IV
27760        GOTO5150
27761      END IF
27762C
27763      IPART1='REPL'
27764      IPART2='ACE '
27765CCCCC THE FOLLOWING LINE WAS FIXED (SOFT-CODE BACKSLASH) APRIL 1989
27766CCCCC IF(NUMARG.LE.1)IHV='\'
27767      IF(NUMARG.LE.1)IHV=IBASLC
27768      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IREPCH=IHV(1:1)
27769      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
27770C
27771      IPART1='IO  '
27772      IPART2='    '
27773      IF(NUMARG.LE.1)IHV='FLOA'
27774      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IOSW=IHV
27775      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2.AND.
27776     1IFEEDB.EQ.'ON')GOTO5160
27777      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2.AND.
27778     1IFEEDB.EQ.'OFF')GOTO5500
27779C
27780      IPART1='ICHA'
27781      IPART2='PA  '
27782      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IEL=IARG(2)
27783      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ICHAPA(IEL)=IHV
27784      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5260
27785C
27786CCCCC THE FOLLOWING BOX WAS ADDED   MAY 1992
27787C               ****************************
27788C               **  STEP 5--              **
27789C               **  SET   OTHER VARIABLES **
27790C               ****************************
27791C
27792CCCCC THE FOLLOWING SECTION WAS ADDED   MAY 1992
27793      IPART1='IPL1'
27794      IPART2='CS  '
27795      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)THEN
27796         IPL1CS=IHV12
27797         IFOUND='YES'
27798         WRITE(ICOUT,999)
27799      CALL DPWRST('XXX','BUG ')
27800         WRITE(ICOUT,7011)IPART1,IPART2,IPL1CS
27801 7011    FORMAT('THE FORTRAN 12-CHARACTER VARIABLE ',A4,A4,
27802     1'    HAS JUST BEEN SET TO     ',A12)
27803      CALL DPWRST('XXX','BUG ')
27804         GOTO9000
27805      ENDIF
27806C
27807CCCCC THE FOLLOWING SECTION WAS ADDED   MAY 1992
27808      IPART1='IPL2'
27809      IPART2='CS  '
27810      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)THEN
27811         IPL2CS=IHV12
27812         IFOUND='YES'
27813         WRITE(ICOUT,999)
27814         CALL DPWRST('XXX','BUG ')
27815         WRITE(ICOUT,7012)IPART1,IPART2,IPL2CS
27816 7012    FORMAT('THE FORTRAN 12-CHARACTER VARIABLE ',A4,A4,
27817     1'    HAS JUST BEEN SET TO     ',A12)
27818      CALL DPWRST('XXX','BUG ')
27819         GOTO9000
27820      ENDIF
27821C
27822CCCCC THE FOLLOWING SECTION WAS ADDED   MAY 1992
27823      IPART1='IPST'
27824      IPART2='BP  '
27825      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IPSTBP=IHV
27826      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
27827C
27828CCCCC THE FOLLOWING SECTION WAS ADDED   MAY 1992
27829      IPART1='IPST'
27830      IPART2='PN  '
27831      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IPSTPN=IV
27832      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
27833C
27834      IPART1='IPST'
27835      IPART2='P2  '
27836      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IPSTP2=IV
27837      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
27838C
27839CCCCC THE FOLLOWING SECTION WAS ADDED   MAY 1993
27840CCCCC THE FOLLOWING SECTION WAS CHANGED   DECEMBER 1993
27841      IPART1='MINM'
27842      IPART2='AX  '
27843      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)THEN
27844         IF(IHARG(2).EQ.'MIN')IV=1
27845         IF(IHARG(2).EQ.'MAX')IV=2
27846         IF(IHARG(2).EQ.'MINI')IV=1
27847         IF(IHARG(2).EQ.'MAXI')IV=2
27848         IF(IHARG(2).EQ.'DEFA')IV=0
27849         IF(IHARG(2).EQ.'    ')IV=0
27850         IF(IV.LT.1 .OR. IV.GT.2)IV=0
27851         MINMAX=IV
27852         GOTO5150
27853      ENDIF
27854C
27855CCCCC THE FOLLOWING BOX WAS ADDED   MAY 1992
27856C               ****************************
27857C               **  STEP 6--              **
27858C               **  WRITE OUT VALUES      **
27859C               ****************************
27860C
27861      IERROR='YES'
27862      WRITE(ICOUT,999)
27863  999 FORMAT(1X)
27864      CALL DPWRST('XXX','BUG ')
27865      WRITE(ICOUT,5131)
27866 5131 FORMAT('***** ERROR IN SET COMMAND--')
27867      CALL DPWRST('XXX','BUG ')
27868      WRITE(ICOUT,5132)
27869 5132 FORMAT('      THE SPECIFIED FORTRAN COMMON VARIABLE ')
27870      CALL DPWRST('XXX','BUG ')
27871      WRITE(ICOUT,5133)
27872 5133 FORMAT('      IN THE SET   COMMAND WAS NOT FOUND.')
27873      CALL DPWRST('XXX','BUG ')
27874      WRITE(ICOUT,5134)IHARG(1),IHARG2(1)
27875 5134 FORMAT('      THE SPECIFIED FORTRAN COMMON VARIABLE WAS ',
27876     1A4,A4)
27877      CALL DPWRST('XXX','BUG ')
27878      WRITE(ICOUT,5135)
27879 5135 FORMAT('      ILLUSTRATIVE EXAMPLE TO DEMONSTRATE')
27880      CALL DPWRST('XXX','BUG ')
27881      WRITE(ICOUT,5136)
27882 5136 FORMAT('      THE PROPER FORM--')
27883      CALL DPWRST('XXX','BUG ')
27884      WRITE(ICOUT,5137)
27885 5137 FORMAT('      SUPPOSE THE ANALYST WISHES TO DUMP OUT')
27886      CALL DPWRST('XXX','BUG ')
27887      WRITE(ICOUT,5138)
27888 5138 FORMAT('      THE CURRENT VALUE OF THE FORTRAN COMMON ')
27889      CALL DPWRST('XXX','BUG ')
27890      WRITE(ICOUT,5139)
27891 5139 FORMAT('      VARIABLE   MAXCOL   ,')
27892      CALL DPWRST('XXX','BUG ')
27893      WRITE(ICOUT,5140)
27894 5140 FORMAT('      THIS MAY BE DONE BY ENTERING')
27895      CALL DPWRST('XXX','BUG ')
27896      WRITE(ICOUT,5141)
27897 5141 FORMAT('      SET   MAXCOL')
27898      CALL DPWRST('XXX','BUG ')
27899      WRITE(ICOUT,5143)
27900 5143 FORMAT('      THE ENTERED COMMAND LINE WAS AS FOLLOWS--')
27901      CALL DPWRST('XXX','BUG ')
27902      IF(IWIDTH.GE.1)THEN
27903        WRITE(ICOUT,999)
27904        CALL DPWRST('XXX','BUG ')
27905        WRITE(ICOUT,5145)(IANS(I),I=1,MIN(120,IWIDTH))
27906 5145   FORMAT(6X,120A1)
27907        CALL DPWRST('XXX','BUG ')
27908        WRITE(ICOUT,999)
27909        CALL DPWRST('XXX','BUG ')
27910      ENDIF
27911      GOTO9000
27912C
27913 5150 CONTINUE
27914      IFOUND='YES'
27915      IF(IFEEDB.EQ.'ON')THEN
27916        WRITE(ICOUT,999)
27917        CALL DPWRST('XXX','BUG ')
27918        WRITE(ICOUT,5151)IPART1,IPART2,IV
27919 5151   FORMAT('THE FORTRAN COMMON PARAMETER ',A4,A4,
27920     1         ' HAS JUST BEEN SET TO ',I8)
27921        CALL DPWRST('XXX','BUG ')
27922      ENDIF
27923      GOTO9000
27924C
27925 5160 CONTINUE
27926      IFOUND='YES'
27927      IF(IFEEDB.EQ.'ON')THEN
27928        WRITE(ICOUT,999)
27929        CALL DPWRST('XXX','BUG ')
27930        WRITE(ICOUT,5161)IPART1,IPART2,IHV
27931 5161   FORMAT('THE FORTRAN COMMON CHARACTER VARIABLE ',A4,A4,
27932     1         ' HAS JUST BEEN SET TO ',A4)
27933        CALL DPWRST('XXX','BUG ')
27934      ENDIF
27935      GOTO9000
27936C
27937 5170 CONTINUE
27938      IFOUND='YES'
27939      IF(IFEEDB.EQ.'ON')THEN
27940        WRITE(ICOUT,999)
27941        CALL DPWRST('XXX','BUG ')
27942        WRITE(ICOUT,5171)IPART1,IPART2,AV
27943 5171   FORMAT('THE FORTRAN COMMON SCALAR ',A4,A4,
27944     1         ' HAS JUST BEEN SET TO ',E15.7)
27945        CALL DPWRST('XXX','BUG ')
27946      ENDIF
27947      GOTO9000
27948C
27949 5250 CONTINUE
27950      IFOUND='YES'
27951      IF(IFEEDB.EQ.'ON')THEN
27952        WRITE(ICOUT,999)
27953        CALL DPWRST('XXX','BUG ')
27954        WRITE(ICOUT,5251)IEL,IPART1,IPART2,IV
27955 5251   FORMAT('ELEMENT ',I8,' OF THE FORTRAN COMMON VECTOR ',A4,A4,
27956     1         ' HAS JUST BEEN SET TO ',I8)
27957        CALL DPWRST('XXX','BUG ')
27958      ENDIF
27959      GOTO9000
27960C
27961 5260 CONTINUE
27962      IFOUND='YES'
27963      IF(IFEEDB.EQ.'ON')THEN
27964        WRITE(ICOUT,999)
27965        CALL DPWRST('XXX','BUG ')
27966        WRITE(ICOUT,5261)IEL,IPART1,IPART2,IHV
27967 5261   FORMAT('ELEMENT ',I8,' OF THE FORTRAN COMMON VECTOR ',A4,A4,
27968     1         ' HAS JUST BEEN SET TO ',A4)
27969        CALL DPWRST('XXX','BUG ')
27970      ENDIF
27971      GOTO9000
27972C
27973 5270 CONTINUE
27974      IFOUND='YES'
27975      IF(IFEEDB.EQ.'ON')THEN
27976        WRITE(ICOUT,999)
27977        CALL DPWRST('XXX','BUG ')
27978        WRITE(ICOUT,5271)IEL,IPART1,IPART2,AV
27979 5271   FORMAT('ELEMENT ',I8,' OF THE FORTRAN COMMON VECTOR ',A4,A4,
27980     1         ' HAS JUST BEEN SET TO ',E15.7)
27981        CALL DPWRST('XXX','BUG ')
27982      ENDIF
27983      GOTO9000
27984C
27985 5360 CONTINUE
27986      IFOUND='YES'
27987      IF(IFEEDB.EQ.'ON')THEN
27988        WRITE(ICOUT,999)
27989        CALL DPWRST('XXX','BUG ')
27990        WRITE(ICOUT,5361)IPART1,IPART2,ISTRIN(1:12)
27991 5361   FORMAT('THE FORTRAN COMMON CHARACTER VARIABLE ',A4,A4,
27992     1         ' HAS JUST BEEN SET TO ',A12)
27993        CALL DPWRST('XXX','BUG ')
27994      ENDIF
27995      GOTO9000
27996C
27997 5370 CONTINUE
27998      IFOUND='YES'
27999      IF(IFEEDB.EQ.'ON')THEN
28000        WRITE(ICOUT,999)
28001        CALL DPWRST('XXX','BUG ')
28002        WRITE(ICOUT,5371)IPART1,IPART2,ISTRIN
28003 5371   FORMAT('THE FORTRAN COMMON CHAR. VAR. ',A4,A4,
28004     1         ' = ',A80)
28005        CALL DPWRST('XXX','BUG ')
28006      ENDIF
28007      GOTO9000
28008C
28009 5500 CONTINUE
28010      IFOUND='YES'
28011      GOTO9000
28012C
28013C               *****************
28014C               **  STEP 90--  **
28015C               **   EXIT      **
28016C               *****************
28017C
28018 9000 CONTINUE
28019      IFILQU=IFILQZ
28020C
28021      IF(ISUBRO.EQ.'PSET')THEN
28022        WRITE(ICOUT,9011)
28023 9011   FORMAT('****** AT THE END OF DPSET')
28024        CALL DPWRST('XXX','BUG ')
28025        WRITE(ICOUT,9013)IFOUND,IERROR
28026 9013   FORMAT('IFOUND,IERROR = ',A4,2X,A4)
28027        CALL DPWRST('XXX','BUG ')
28028      ENDIF
28029C
28030      RETURN
28031      END
28032      SUBROUTINE DPPROB(ILISMX,IREPCH,IOSW,
28033     1                  IBUGUG,IBUGU2,IBUGU3,IBUGU4,ISUBRO,
28034     1                  IBUGEX,IBUGE2,IBUGHE,IBUGH2,IBUGLO,
28035     1                  IHELMX,IFTEXP,IFTORD,
28036     1                  IFORSW,ICREAF,NCREAF,ICWRIF,NCWRIF,
28037     1                  IREARW,IWRIRW,NPLOTP,IPRITY,
28038     1                  IUNFOF,IUNFNR,IUNFMC,IMACRO,IMALEV,
28039     1                  IANSLO,ILOOST,ILOOLI,
28040     1                  NUMIF,ISEED,
28041     1                  IFOUND,IERROR)
28042C
28043C     PURPOSE--PROBE AND WRITE OUT THE VALUE
28044C              OF CERTAIN FORTRAN VARIABLES IN COMMON.
28045C     NOTE--THIS CAPABILITY IS USEFUL FOR IMPLEMENTATION AND DEBUGGING.
28046C     INPUT  ARGUMENTS--NONE
28047C     OUTPUT ARGUMENTS--IFOUND ('YES' OR 'NO' )
28048C                     --IERROR ('YES' OR 'NO' )
28049C     WRITTEN BY--JAMES J. FILLIBEN
28050C                 STATISTICAL ENGINEERING DIVISION
28051C                 INFORMATION TECHNOLOGY LABORATORY
28052C                 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY
28053C                 GAITHERSBURG, MD 20899
28054C                 PHONE--301-975-2855
28055C     NOTE--DATAPLOT IS A REGISTERED TRADEMARK
28056C           OF THE NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY.
28057C     LANGUAGE--ANSI FORTRAN (1977)
28058C     VERSION NUMBER--82/7
28059C     ORIGINAL VERSION--OCTOBER    1981.
28060C     UPDATED         --NOVEMBER   1981.
28061C     UPDATED         --MAY        1982.
28062C     UPDATED         --SEPTEMBER  1987.  (SET HELP LINES)
28063C     UPDATED         --SEPTEMBER  1987.  (SET FOURIER EXPONENT)
28064C     UPDATED         --JANUARY    1988.  (SET GENERAL JUSTIFICATION)
28065C                                         (SET GENERAL REGION FILL)
28066C                                         (SET GENERAL PEN WIDTH)
28067C                                         (SET GENERAL PEN THICKNESS)
28068C     UPDATED         --MAY        1988.  (SET QMS/QUIC FONT)
28069C                                         (SET QMS/QUIC LANDSCAPE MARGINS)
28070C                                         (SET QMS/QUIC PORTRAIT MARGINS)
28071C                                         (SET QMS/QUIC PPI)
28072C     UPDATED         --AUGUST     1988   (SET POSTSCRIPT FONT)
28073C                                         (SET POSTSCRIPT LANDSCAPE MARGINS)
28074C                                         (SET POSTSCRIPT PORTRAIT  MARGINS)
28075C                                         (SET POSTSCRIPT PPI)
28076C                                         (SET CALCOMP COLORS)
28077C                                         (SET CALCOMP WIDTH)
28078C                                         (SET ZETA COLORS)
28079C                                         (SET ZETA WIDTH)
28080C     UPDATED         --DECEMBER   1988.  (SET WRITE FORMAT)
28081C     UPDATED         --DECEMBER   1988.  (SET READ  REWIND)
28082C     UPDATED         --DECEMBER   1988.  (SET WRITE REWIND)
28083C     UPDATED         --APRIL      1992.  SET POSTSCRIPT SPACE (ALAN)
28084C     UPDATED         --APRIL      1992.  ADD NPLOTP TO INPUT ARGS
28085C     UPDATED         --MAY        1992.  IPL1CS, IPL2CS
28086C     UPDATED         --MAY        1992.  IPSTBP, IPSTPN
28087C     UPDATED         --FEBRUARY   1993.  IPRITY (PRINT TYPE)
28088C     UPDATED         --FEBRUARY   1993.  IMANUF,IMODEL
28089C     UPDATED         --FEBRUARY   1993.  TCLOAD,TCMENU,TCPLFI,TCTEFI
28090C     UPDATED         --FEBRUARY   1993.  IPLATF
28091C     UPDATED         --FEBRUARY   1993.  IDMANU(.)
28092C     UPDATED         --MAY        1993.  MINMAX FOR EV1/EV2/WEIB DIST.
28093C     UPDATED         --NOVEMBER   1993.  PROBE PATH
28094C     UPDATED         --JANUARY    1994.  WEIB MINMAX TO DPCOS2.INC
28095C     UPDATED         --JUNE       1994.  X11, POSTSCRIPT HARDWARE FILL
28096C     UPDATED         --APRIL      1995.  IUNFOF, IUNFNR, IUNFMC
28097C     UPDATED         --JULY       1995.  FIT ITER., SD, ADDITIVE CONST.
28098C     UPDATED         --FEBRUARY   1996.  PROBE MPATH
28099C     UPDATED         --MARCH      1996.  IRHSTG
28100C     UPDATED         --JULY       1996.  LAHEY DEVICE SWITCHES
28101C     UPDATED         --NOVEMBER   1996.  MICROSOFT QUICK-WIN SWITCHES
28102C     UPDATED         --APRIL      1997.  ICCHPR, INETSW
28103C     UPDATED         --APRIL      1997.  ICCHWT, IBROWS, IDPURL, IURL
28104C     UPDATED         --MAY        1998.  IKAPSW
28105C     UPDATED         --MAY        1998.  ICENTY
28106C     UPDATED         --JUNE       1998.  IMATSC
28107C     UPDATED         --JULY       1998.  IQWNF2
28108C     UPDATED         --JULY       1998.  IQWNBC
28109C     UPDATED         --SEPTEMBER  1998.  SAVE PROBE VALUE AS INTERNAL
28110C                                         VARIABLE OR STRING.
28111C     UPDATED         --SEPTEMBER  1998.  IPPTBI, IQQPBI
28112C     UPDATED         --NOVEMBER   1998.  IRHSTG TO DPCOST.INC
28113C     UPDATED         --MARCH      1999.  IHBURL
28114C     UPDATED         --JULY       1999.  IAUTCP
28115C     UPDATED         --SEPTEMBER  1999.  ISPMLA
28116C     UPDATED         --SEPTEMBER  1999.  ISPMDI
28117C     UPDATED         --SEPTEMBER  1999.  ISPMFI
28118C     UPDATED         --SEPTEMBER  1999.  ISPMLD
28119C     UPDATED         --SEPTEMBER  1999.  ISPMTA
28120C     UPDATED         --SEPTEMBER  1999.  ISPMFR
28121C     UPDATED         --SEPTEMBER  1999.  ISPMPT
28122C     UPDATED         --SEPTEMBER  1999.  ICPLLA
28123C     UPDATED         --SEPTEMBER  1999.  ICPLFI
28124C     UPDATED         --SEPTEMBER  1999.  ICPLTA
28125C     UPDATED         --SEPTEMBER  1999.  ICPLFR
28126C     UPDATED         --SEPTEMBER  1999.  ICPLPT
28127C     UPDATED         --SEPTEMBER  1999.  ICPLPS
28128C     UPDATED         --SEPTEMBER  1999.  FACTOR PLOT VARIABLES
28129C     UPDATED         --JANUARY    2000.  ICTBDI
28130C     UPDATED         --JANUARY    2000.  ISORDI
28131C     UPDATED         --FEBRUARY   2000.  IDCPDI, IDCPFI
28132C     UPDATED         --OCTOBER    2000.  IMANPA
28133C     UPDATED         --JANUARY    2001.  FX1MIN, ETC.
28134C     UPDATED         --JANUARY    2001.  GX1MIN, ETC.
28135C     UPDATED         --JANUARY    2001.  DX1MIN, ETC.
28136C     UPDATED         --MARCH      2001.  ISTALO, ISTASC
28137C     UPDATED         --MARCH      2001.  PSUPXS, PSUPXS
28138C     UPDATED         --APRIL      2001.  PROBE ORTHOGNAL DISTANCE
28139C                                             TRUST REGION RADIUS
28140C     UPDATED         --APRIL      2001.  PROBE ORTHOGNAL DISTANCE
28141C                                             STOP TOLERANCE
28142C     UPDATED         --APRIL      2001.  PROBE ORTHOGNAL DISTANCE
28143C                                             PARAMETER TOLERANCE
28144C     UPDATED         --APRIL      2001.  PROBE ORTHOGNAL DISTANCE
28145C                                             PRINT OPTION
28146C     UPDATED         --MARCH      2002.  SVG COMMANDS
28147C                                         (PROBE SVG COORDINATE SYSTEM)
28148C                                         (PROBE SVG FONT NAME)
28149C                                         (PROBE SVG FONT WEIGHT)
28150C                                         (PROBE SVG FONT STYLE)
28151C                                         (PROBE SVG CAP)
28152C                                         (PROBE SVG JOIN)
28153C                                         (PROBE SVG FOREGROUND COLOR)
28154C                                         (PROBE SVG HARDWARE FILL)
28155C                                         (PROBE SVG STYLE SHEET)
28156C                                         (PROBE SVG STYLE SHEET NAME)
28157C     UPDATED         --MARCH      2002.  PROBE BOX PLOT WIDTH
28158C                                                <VARIABLE/FIXED>
28159C     UPDATED         --MARCH      2002.  PROBE 4-PLOT MULTIPLOT
28160C     UPDATED         --MARCH      2002.  PROBE 6-PLOT MULTIPLOT
28161C     UPDATED         --MAY        2002.  PROBE RANDOM NUMBER GENERATOR
28162C     UPDATED         --JUNE       2002.  PROBE:
28163C                                         IDMAN(1), IDMAN(2), IDMAN(3)
28164C                                         IDMO1(1), IDMO1(2), IDMO1(3)
28165C                                         IDMO2(1), IDMO2(2), IDMO2(3)
28166C                                         IDMO3(1), IDMO3(2), IDMO3(3)
28167C     UPDATED         --JUNE       2002.  IDMAN(1/2/3) SETS PROBEVAL
28168C                                         TO A CODE (FROM 1 TO 19)
28169C     UPDATED         --JUNE       2002.  SWITCHES THAT RETURN ON/OFF,
28170C                                         OPEN/CLOSE SET PROBEVAL TO
28171C                                         1 (ON) OR 0 (OFF)
28172C     UPDATED         --JUNE       2002.  PROBE NUMBER OF CP
28173C     UPDATED         --JULY       2002.  PROBE QUANTILE METHOD
28174C     UPDATED         --JULY       2002.  PROBE QUANTILE STANDARD ERROR
28175C     UPDATED         --JULY       2002.  PROBE COVARIANCE TYPE
28176C     UPDATED         --JULY       2002.  PROBE CORRELATION TYPE
28177C     UPDATED         --JULY       2002.  PROBE FILE NAME QUOTE
28178C     UPDATED         --JULY       2002.  PROBE BOOTSTRAP FIT METHOD
28179C     UPDATED         --JANAUARY   2003.  PROBE POSTSCRIPT BOUND BOX
28180C     UPDATED         --FEBRUARY   2003.  PROBE AUTOCORRELATION LAG
28181C                                               ZERO
28182C     UPDATED         --MARCH      2003.  PROBE PARALLEL COORDINATES
28183C                                         STANDARDIZE
28184C     UPDATED         --MARCH      2003.  PROBE BOOTSTRAP GROUPS
28185C     UPDATED         --SEPTEMBER  2003.  PROBE TABLE BORDER
28186C     UPDATED         --SEPTEMBER  2003.  PROBE TABLE SPACING
28187C     UPDATED         --JANUARY    2004.  PROBE READ VARIABLE LABEL
28188C     UPDATED         --JANUARY    2004.  PROBE CONVERT CHARACTER
28189C     UPDATED         --JANUARY    2004.  PROBE READ DELIMITER
28190C     UPDATED         --JANUARY    2004.  PROBE READ MISSING VALUE
28191C     UPDATED         --MARCH      2004.  PROBE GEOMETRIC DEFINITION
28192C     UPDATED         --MARCH      2004.  PROBE PPCC PLOT
28193C     UPDATED         --MARCH      2004.  PROBE HYPERGEOMETRIC MAXI LIKE
28194C     UPDATED         --MAY        2004.  PROBE PPCC FORMAT
28195C     UPDATED         --JUNE       2004.  PROBE DEFAULT POSTSCRIPT COLOR
28196C     UPDATED         --JUNE       2004.  PROBE ASYMMETRIC LAPLACE
28197C                                         DEFINITION
28198C     UPDATED         --JUNE       2004.  PROBE GENERALIZED PARETO
28199C                                         DEFINITION
28200C     UPDATED         --JULY       2004.  PROBE GOMPERTZ-MAKEHAM
28201C                                         DEFINITION
28202C     UPDATED         --SEPTEMBER  2004.  PROBE BESSEL I FUNCTION
28203C                                         DEFINITION
28204C     UPDATED         --SEPTEMBER  2004.  PROBE BESSEL K FUNCTION
28205C                                         DEFINITION
28206C     UPDATED         --SEPTEMBER  2004.  PROBE PROBABILITY PLOT DATA
28207C                                         POINTS
28208C     UPDATED         --SEPTEMBER  2004.  PROBE PPCC PLOT DATA POINTS
28209C     UPDATED         --SEPTEMBER  2004.  PROBE PPCC PLOT AXIS POINTS
28210C     UPDATED         --SEPTEMBER  2004.  PROBE PPCC PLOT AXIS ORDER
28211C     UPDATED         --SEPTEMBER  2004.  PROBE HISTOGRAM CLASS WIDTH
28212C     UPDATED         --SEPTEMBER  2004.  PROBE ASH WEIGHTING
28213C     UPDATED         --OCTOBER    2004.  PROBE READ PAD MISSING COLU
28214C     UPDATED         --OCTOBER    2004.  PROBE READ SUBSET
28215C     UPDATED         --OCTOBER    2004.  PROBE CENSORED PROB PLOT
28216C     UPDATED         --OCTOBER    2004.  PROBE CENSORED PPCC PLOT
28217C     UPDATED         --OCTOBER    2004.  PROBE MAXIMUM LIKELIHOOD
28218C                                               QUANTILES
28219C
28220C     UPDATED         --OCTOBER    2004.  PROBE EXPONENTIAL BIAS CORRECTED
28221C     UPDATED         --NOVEMBER   2004.  PROBE WEIBULL BIAS CORRECTED
28222C     UPDATED         --NOVEMBER   2004.  PROBE MATRIX CORRELATION DIRECTION
28223C     UPDATED         --NOVEMBER   2004.  PROBE MATRIX COVARIANCE DIRECTION
28224C     UPDATED         --DECEMBER   2004.  PROBE GUI
28225C     UPDATED         --DECEMBER   2004.  PROBE MAXIMUM LIKELIHOOD
28226C                                               RELIABILITY
28227C     UPDATED         --DECEMBER   2004.  PROBE MAXIMUM LIKELIHOOD
28228C                                               RELIABILITY
28229C     UPDATED         --FEBRAURY   2005.  PROBE DISTRIBUTIONAL BOOTSTRAP
28230C     UPDATED         --FEBRAURY   2005.  PROBE PARAMETER EXPAND DIGIT
28231C     UPDATED         --FEBRAURY   2005.  PROBE RTF FIXED FONT
28232C     UPDATED         --FEBRAURY   2005.  PROBE RTF PROPORTIONAL FONT
28233C     UPDATED         --MARCH      2005.  PROBE LINE PRINTER COLUNMNS
28234C     UPDATED         --MARCH      2005.  PROBE AQUA CAP STYLE
28235C     UPDATED         --MARCH      2005.  PROBE AQUA JOIN STYLE
28236C     UPDATED         --MARCH      2005.  PROBE AQUA FONT NAME
28237C     UPDATED         --MARCH      2005.  PROBE AQUA HARDWARE FILL
28238C     UPDATED         --APRIL      2005.  PROBE DECIMAL POINT
28239C     UPDATED         --APRIL      2005.  PROBE PEAKS OVER THRESHOLD
28240C                                               METHOD
28241C     UPDATED         --APRIL      2005.  PROBE PEAKS OVER THRESHOLD
28242C                                               DISTRIBUTION
28243C     UPDATED         --APRIL      2005.  PROBE PEAKS OVER THRESHOLD
28244C                                               INITIAL POINTS
28245C     UPDATED         --APRIL      2005.  PROBE PEAKS OVER THRESHOLD
28246C                                               INITIAL THRESHOLD
28247C     UPDATED         --APRIL      2005.  PROBE PEAKS OVER THRESHOLD
28248C                                               ITERATIONS
28249C     UPDATED         --APRIL      2005.  PROBE PEAKS OVER THRESHOLD
28250C                                               INCREMENT
28251C     UPDATED         --APRIL      2005.  PROBE PEAKS OVER THRESHOLD
28252C                                               PERIOD
28253C     UPDATED         --APRIL      2005.  PROBE PEAKS OVER THRESHOLD
28254C                                               TOLERANCE
28255C     UPDATED         --APRIL      2005.  PROBE PEAKS OVER THRESHOLD
28256C                                               LOAD FACTOR
28257C     UPDATED         --APRIL      2005.  PROBE PEAKS OVER THRESHOLD
28258C                                               X AXIS
28259C     UPDATED         --MAY        2005.  PROBE FRECHET BIAS CORRECTED
28260C     UPDATED         --MAY        2005.  PROBE GRUBBS ONE SIDED
28261C     UPDATED         --JULY       2005.  PROBE LOG GAMMA DEFINITION
28262C     UPDATED         --JULY       2005.  PROBE SKEW NORMAL DEFINITION
28263C     UPDATED         --OCTOBER    2005.  PROBE GENERALIZED PARETO
28264C                                               MLE STARTING VALUES
28265C     UPDATED         --FEBRUARY   2006.  PROBE IBUGLO
28266C     UPDATED         --FEBRUARY   2006.  PROBE LATEX COLOR
28267C     UPDATED         --FEBRUARY   2006.  PROBE LATEX FILL
28268C     UPDATED         --FEBRUARY   2006.  PROBE LATEX LINE THICK
28269C     UPDATED         --FEBRUARY   2006.  PROBE GENERALIZED TUKEY LAMB
28270C     UPDATED         --MARCH      2006.  PROBE TEMPORARY FILE
28271C     UPDATED         --MAY        2006.  PROBE PPCC PLOT LOCA SCALE
28272C     UPDATED         --MAY        2006.  PROBE BETA GEOMETRIC
28273C                                               DEFINITION
28274C     UPDATED         --JUNE       2006.  PROBE FORTRAN FORMAT
28275C                                               CONTROL
28276C     UPDATED         --JUNE       2006.  PROBE MANDEL PAULE
28277C     UPDATED         --JUNE       2006.  PROBE MODIFIED MANDEL PAULE
28278C     UPDATED         --JUNE       2006.  PROBE VANGEL RUHKIN
28279C     UPDATED         --JUNE       2006.  PROBE BOB
28280C     UPDATED         --JUNE       2006.  PROBE SCHILLER EBERHARDT
28281C     UPDATED         --JUNE       2006.  PROBE METHOD OF MEANS
28282C     UPDATED         --JUNE       2006.  PROBE GRAYBILL DEAL
28283C     UPDATED         --JUNE       2006.  PROBE GRAND MEAN
28284C     UPDATED         --JUNE       2006.  PROBE GENERALIZED CONF INTE
28285C     UPDATED         --JUNE       2006.  PROBE DERSIMONIAN LAIRD
28286C     UPDATED         --JUNE       2006.  PROBE FAIRWEATHER
28287C     UPDATED         --JUNE       2006.  PROBE BAYESIAN CONSENSUS
28288C                                               PROCEDURE
28289C     UPDATED         --JULY       2006.  PROBE GEETA DEFINITION
28290C     UPDATED         --JULY       2006.  PROBE CHISQUARE LIMIT
28291C     UPDATED         --AUGUST     2006.  PROBE CONSUL DEFINITION
28292C     UPDATED         --OCTOBER    2006.  PROBE 4PLOT DISTRIBUTION
28293C     UPDATED         --OCTOBER    2006.  PROBE MAXWELL LOCATION
28294C     UPDATED         --JANUARY    2007.  PROBE GOMPERTZ DEFINITION
28295C     UPDATED         --JANUARY    2007.  PROBE KATZ DEFINITION
28296C     UPDATED         --FEBRUARY   2007.  PROBE BINOMIAL CONTINUITY
28297C                                               CORRECTION
28298C     UPDATED         --FEBRUARY   2007.  PROBE BINOMIAL NORMAL
28299C                                               APPROXIMATION THRESHOLD
28300C     UPDATED         --MARCH      2007.  PROBE FISHER EXACT EXPECT
28301C                                               MINIMUM
28302C     UPDATED         --MARCH      2007.  PROBE FISHER EXACT EXPECT
28303C     UPDATED         --MARCH      2007.  PROBE FISHER EXACT PERCENT
28304C     UPDATED         --APRIL      2007.  PROBE FATAL ERROR
28305C     UPDATED         --MAY        2007.  PROBE BINARY TABULATION
28306C                                               PLOT GROUP NAME
28307C     UPDATED         --MAY        2007.  PROBE POISSON PLOT LEVEL
28308C     UPDATED         --SEPTEMBER  2007.  PROBE IERROR
28309C     UPDATED         --MARCH      2008.  PROBE COLOR MAXIMUM
28310C     UPDATED         --MARCH      2008.  PROBE GD FONT NAME
28311C     UPDATED         --MARCH      2008.  PROBE GD COLOR
28312C     UPDATED         --APRIL      2008.  PROBE CROSS TABULATE MISSING
28313C                                               VALUE
28314C     UPDATED         --APRIL      2008.  PROBE CROSS TABULATE MISSING
28315C     UPDATED         --APRIL      2008.  PROBE BINOMIAL TAIL
28316C     UPDATED         --APRIL      2008.  PROBE FIT METHOD
28317C     UPDATED         --MAY        2008.  PROBE GUI FEEDBACK
28318C     UPDATED         --MAY        2008.  PROBE FLUCUATION PLOT FLOOR
28319C     UPDATED         --MAY        2008.  PROBE FLUCUATION PLOT CEILING
28320C     UPDATED         --MAY        2008.  PROBE FLUCUATION PLOT WIDTH
28321C     UPDATED         --JULY       2008.  PROBE GENERALIZED INVERSE
28322C                                               GAUSSIAN DEFINITION
28323C     UPDATED         --AUGUST     2008.  PROBE MERGE MATCH VARIABLES
28324C     UPDATED         --AUGUST     2008.  PROBE MERGE CARRY VARIABLES
28325C     UPDATED         --OCTOBER    2008.  PROBE STRIP PLOT INCREMENT
28326C     UPDATED         --NOVEMBER   2008.  PROBE STRIP PLOT STYLE
28327C     UPDATED         --FEBRUARY   2009.  PROBE LET CROSS TABULATE
28328C     UPDATED         --FEBRUARY   2009.  PROBE STRING SPACE
28329C     UPDATED         --FEBRUARY   2009.  PROBE CONVERT DENSITY
28330C     UPDATED         --MARCH      2009.  PROBE STATISTIC PLOT FORMAT
28331C     UPDATED         --MARCH      2009.  PROBE STATISTIC PLOT SUMMARY
28332C     UPDATED         --APRIL      2009.  PROBE BIPLOT SCALE
28333C     UPDATED         --APRIL      2009.  PROBE LATEX POINT SIZE
28334C     UPDATED         --APRIL      2009.  PROBE READ LINE
28335C     UPDATED         --APRIL      2009.  PROBE BIPLOT COEFFICIENT
28336C     UPDATED         --APRIL      2009.  PROBE LIBPLOT CAP
28337C     UPDATED         --APRIL      2009.  PROBE LIBPLOT JOIN
28338C     UPDATED         --APRIL      2009.  PROBE LIBPLOT FONT
28339C     UPDATED         --APRIL      2009.  PROBE LIBPLOT HARDWARE FILL
28340C     UPDATED         --APRIL      2009.  PROBE LIBPLOT PAUSE
28341C     UPDATED         --MAY        2009.  PROBE LIBPLOT X SIZE
28342C     UPDATED         --MAY        2009.  PROBE LIBPLOT Y SIZE
28343C     UPDATED         --MAY        2009.  PROBE LIBPLOT ROTATE
28344C     UPDATED         --MAY        2009.  PROBE NAME TABLE
28345C     UPDATED         --JUNE       2009.  PROBE CODE CROSS TABULATE
28346C                                               OFFSET
28347C     UPDATED         --JUNE       2009.  PROBE CODE CROSS TABULATE
28348C                                               GROUP SIZE <1/2/3/4/5/6>
28349C     UPDATED         --JULY       2009.  PROBE NX1COO, NX2COO,
28350C                                               NY1COO, NY2COO
28351C     UPDATED         --JULY       2009.  PROBE MAJOR X1TIC MARK NUMBER
28352C     UPDATED         --JULY       2009.  PROBE MAJOR X2TIC MARK NUMBER
28353C     UPDATED         --JULY       2009.  PROBE MAJOR Y1TIC MARK NUMBER
28354C     UPDATED         --JULY       2009.  PROBE MAJOR Y2TIC MARK NUMBER
28355C     UPDATED         --JULY       2009.  PROBE PROMPT ADVANCE
28356C     UPDATED         --SEPTEMBER  2009.  PROBE KOLM SMIR CRITICAL VALUE
28357C     UPDATED         --SEPTEMBER  2009.  PROBE FLUCTUATION PLOT
28358C                                               UNCERTAINTY INTERVAL
28359C     UPDATED         --SEPTEMBER  2009.  PROBE CONTROL CHART WECO
28360C     UPDATED         --SEPTEMBER  2009.  PROBE HORI CURSOR POSITION
28361C     UPDATED         --SEPTEMBER  2009.  PROBE VERT CURSOR POSITION
28362C     UPDATED         --SEPTEMBER  2009.  PROBE TABULATION PLOT
28363C                                               X INCREMENT
28364C     UPDATED         --SEPTEMBER  2009.  PROBE TABULATION PLOT
28365C                                               Y INCREMENT
28366C     UPDATED         --SEPTEMBER  2009.  PROBE TABULATION PLOT DIRECTION
28367C     UPDATED         --OCTOBER    2009.  PROBE GOODNESS OF FIT FULLY
28368C                                               SPECIFIED
28369C     UPDATED         --DECEMBER   2009.  PROBE TABULATION PLOT NUMBER
28370C                                               OF UNCERTAINTY INTERVALS
28371C     UPDATED         --DECEMBER   2009.  PROBE TABULATION PLOT
28372C                                               UNCERTAINTY INTERVAL
28373C     UPDATED         --JANUARY    2010.  PROBE READ NON-PRINTING
28374C                                               CHARACTERS
28375C     UPDATED         --JANUARY    2010.  PROBE FLUCTUATION PLOT CODED
28376C     UPDATED         --JANUARY    2010.  PROBE TABULATION PLOT CODED
28377C     UPDATED         --JANUARY    2010.  PROBE HISTOGRAM EMPTY BINS
28378C     UPDATED         --JANUARY    2010.  PROBE HISTOGRAM OUTLIERS
28379C     UPDATED         --APRIL      2010.  PROBE LOD OUTPUT FILES
28380C     UPDATED         --APRIL      2010.  PROBE FLUCTIATION CONTOUR
28381C     UPDATED         --JUNE       2010.  PROBE TABULATION PLOT SORTED
28382C     UPDATED         --JUNE       2010.  PROBE TABULATION PLOT ROW
28383C                                               SORT DIRECTION
28384C     UPDATED         --JUNE       2010.  PROBE TABULATION PLOT COLUMN
28385C                                               SORT DIRECTION
28386C     UPDATED         --JUNE       2010.  PROBE FLUCTUATION PLOT SORTED
28387C     UPDATED         --JUNE       2010.  PROBE FLUCTUATION PLOT ROW
28388C                                               SORT DIRECTION
28389C     UPDATED         --JUNE       2010.  PROBE FLUCTUATION PLOT COLUMN
28390C                                               SORT DIRECTION
28391C     UPDATED         --JUNE       2010.  PROBE FLUCTUATION PLOT
28392C                                               DIRECTION
28393C     UPDATED         --JUNE       2010.  PROBE TABULATION PLOT ROW
28394C                                               MINMAX
28395C     UPDATED         --JUNE       2010.  PROBE TABULATION PLOT COLUMN
28396C                                               MINMAX
28397C     UPDATED         --JULY       2010.  PROBE TABLE HEADER
28398C     UPDATED         --JULY       2010.  PROBE DISTRIBUTIONAL FIT TYPE
28399C     UPDATED         --SEPTEMBER  2010.  PROBE PAUSE LINES
28400C     UPDATED         --SEPTEMBER  2010.  PROBE BRITTLE FIBER WEIBULL
28401C                                               LENGTH
28402C     UPDATED         --SEPTEMBER  2010.  PROBE BOOTSTRAP PERCENTILE
28403C     UPDATED         --OCTOBER    2010.  PROBE SVG URL
28404C     UPDATED         --OCTOBER    2010.  PROBE MOVING DIRECTION
28405C     UPDATED         --OCTOBER    2010.  PROBE MOVING END POINT
28406C     UPDATED         --OCTOBER    2010.  PROBE BRITTLE FIBER WEIBULL L
28407C     UPDATED         --OCTOBER    2010.  PROBE END EFFECTS WEIBULL L
28408C     UPDATED         --NOVEMBER   2010.  PROBE MATRIX TO VARIABLE
28409C     UPDATED         --NOVEMBER   2010.  PROBE VARIABLE TO MATRIX
28410C     UPDATED         --DECEMBER   2010.  PROBE HOMO PLOT LOCATION
28411C     UPDATED         --DECEMBER   2010.  PROBE HOMO PLOT SCALE
28412C     UPDATED         --DECEMBER   2010.  PROBE HOMO PLOT CIRCLE
28413C                                               TECHNIQUE
28414C     UPDATED         --FEBRUARY   2011.  PROBE BEST FIT CRIITERION
28415C     UPDATED         --FEBRUARY   2011.  PROBE BEST FIT METHOD
28416C     UPDATED         --FEBRUARY   2011.  PROBE LEVENE GROUP STATISTICS
28417C     UPDATED         --FEBRUARY   2011.  PROBE KRUSKAL-WALLIS GROUP
28418C                                         STATISTICS
28419C     UPDATED         --APRIL      2011.  PROBE T TEST VARIANCE
28420C     UPDATED         --MAY        2011.  PROBE GOODNESS OF FIT FIT METHOD
28421C     UPDATED         --JUNE       2011.  PROBE METHOD TEST QUANTILE
28422C     UPDATED         --JULY       2011.  PROBE LET CROSS TABULATE EMPTY
28423C     UPDATED         --JULY       2011.  PROBE LET CROSS TABULATE
28424C                                               COMPLEMENT
28425C     UPDATED         --AUGUST     2011.  PROBE BOOTSTRAP DISTRIBUTIONAL
28426C                                               PERCENTILE
28427C     UPDATED         --OCTOBER    2011.  PROBE CONSENSUS MEAN PLOT
28428C                                               SORTED
28429C     UPDATED         --OCTOBER    2011.  PROBE CONSENSUS MEAN PLOT
28430C                                               DATA
28431C     UPDATED         --OCTOBER    2011.  PROBE CONSENSUS MEAN PLOT
28432C                                               ERROR
28433C     UPDATED         --OCTOBER    2011.  PROBE DERS LAIRD BOOTSTRAP
28434C     UPDATED         --OCTOBER    2011.  PROBE DERS LAIRD HHD
28435C     UPDATED         --OCTOBER    2011.  PROBE DERS LAIRD MINMAX
28436C     UPDATED         --OCTOBER    2011.  PROBE VANGEL RUKHIN BOOTSTRAP
28437C     UPDATED         --OCTOBER    2011.  PROBE BOOTSTRAP SMOOTHING
28438C     UPDATED         --OCTOBER    2011.  PROBE BOOTSTRAP SMOOTHING
28439C                                               STANDARD DEVIATION
28440C     UPDATED         --OCTOBER    2011.  PROBE BOOTSTRAP T PERCENTILE
28441C                                               STANDARD DEVIATION
28442C     UPDATED         --DECEMBER   2011.  PROBE CHARACTER AUTOMATIC
28443C                                               OFFSET
28444C     UPDATED         --FEBRUARY   2012.  PROBE PIE CHART
28445C     UPDATED         --FEBRUARY   2012.  PROBE KRUSKAL WALLIS MULTIPLE
28446C                                               COMPARISONS
28447C     UPDATED         --FEBRUARY   2012.  PROBE ISO 13528 PLOT STATISTIC
28448C     UPDATED         --FEBRUARY   2012.  PROBE ISO 13528 PLOT
28449C     UPDATED         --FEBRUARY   2012.  PROBE RLP PLOT LABELS
28450C     UPDATED         --APRIL      2012.  PROBE BLOCK PLOT FILTER
28451C     UPDATED         --APRIL      2012.  PROBE BLOCK PLOT WIDTH
28452C     UPDATED         --APRIL      2012.  PROBE BLOCK PLOT LABEL
28453C     UPDATED         --APRIL      2012.  PROBE CAPTURE FLUSH ERASE
28454C     UPDATED         --JUNE       2012.  PROBE CHARACTER AUTOMATIC DYNAMIC
28455C     UPDATED         --JUNE       2012.  PROBE CHARACTER REPEAT OFFSET
28456C     UPDATED         --JULY       2012.  PROBE LOD SUMMARY TABLE
28457C     UPDATED         --JULY       2012.  PROBE LOD TABLE
28458C     UPDATED         --AUGUST     2012.  PROBE LOD CRITICAL VALUE
28459C     UPDATED         --SEPTEMBER  2012.  PROBE FIELD <COL> TYPE
28460C     UPDATED         --OCTOBER    2012.  PROBE MEDIAN OF MEANS
28461C     UPDATED         --OCTOBER    2012.  PROBE TRIMMED MEAN OF MEANS
28462C     UPDATED         --DECEMBER   2012.  PROBE BLOCK PLOT BACKGROUND
28463C     UPDATED         --DECEMBER   2012.  PROBE TOLERANCE LIMITS
28464C                                               DEGREES OF FREEDOM
28465C     UPDATED         --JANUARY    2013.  PROBE BEST FIT FONG
28466C     UPDATED         --MARCH      2013.  PROBE KENDALL TAU CRITICAL VALUES
28467C     UPDATED         --MARCH      2013.  PROBE RANK CORRELATION CRITICAL
28468C                                               VALUES
28469C     UPDATED         --MARCH      2013.  PROBE WEIBULL GAUGE LENGTH
28470C     UPDATED         --MARCH      2013.  PROBE CUMULATIVE STATISTIC
28471C                                               START
28472C     UPDATED         --APRIL      2013.  PROBE SKEWNESS DEFINITION
28473C     UPDATED         --APRIL      2013.  PROBE PERCENTILE DIRECTION
28474C     UPDATED         --APRIL      2013.  PROBE WEIBULL MAXIMUM LIKELIHOOD
28475C     UPDATED         --APRIL      2013.  PROBE WEIBULL MODIFIED MOMENTS
28476C     UPDATED         --APRIL      2013.  PROBE WEIBULL MOMENTS
28477C     UPDATED         --APRIL      2013.  PROBE FLUCTUATION PLOT BAR DIRECTION
28478C     UPDATED         --JUNE       2013.  PROBE BEST FIT LOWER LIMIT
28479C     UPDATED         --JUNE       2013.  PROBE BEST FIT UPPER LIMIT
28480C     UPDATED         --JUNE       2013.  PROBE CONSENSUS MEAN TABLE ONE
28481C     UPDATED         --JUNE       2013.  PROBE CONSENSUS MEAN TABLE TWO
28482C     UPDATED         --JUNE       2013.  PROBE CONSENSUS MEAN TABLE THREE
28483C     UPDATED         --JUNE       2013.  PROBE CONSENSUS MEAN TABLE FOUR
28484C     UPDATED         --JUNE       2013.  PROBE CONSENSUS MEAN DETAILED TABLE
28485C     UPDATED         --JULY       2013.  PROBE BEST FIT FONG TYPE
28486C     UPDATED         --JULY       2013.  PROBE BEST FIT FONG XVALUE
28487C     UPDATED         --JULY       2013.  PROBE DISTRIBUTIONAL
28488C                                         PERCENTILE
28489C     UPDATED         --AUGUST     2013.  PROBE RGB MAXIMUM VALUE
28490C     UPDATED         --AUGUST     2013.  PROBE MCCOOL WEIBULL LOCATION
28491C                                               TEST R1
28492C     UPDATED         --DECEMBER   2013.  PROBE GHOSTSCRIPT VERSION
28493C     UPDATED         --JANUARY    2014.  PROBE CAIRO
28494C     UPDATED         --MARCH      2014.  PROBE BINOMIAL METHOD
28495C     UPDATED         --MARCH      2014.  PROBE WEIBULL MAXIMUM
28496C                                               LIKELIHOOD METHOD
28497C     UPDATED         --MARCH      2014.  PROBE WEIBULL MAXIMUM
28498C                                               LIKELIHOOD MINIMUM
28499C     UPDATED         --MARCH      2014.  PROBE CONSENSUS MEAN TYPE B
28500C     UPDATED         --APRIL      2014.  PROBE LOGNORMAL MAXIMUM
28501C                                               LIKELIHOOD METHOD
28502C     UPDATED         --APRIL      2014.  PROBE LOGNORMAL MAXIMUM
28503C                                               LIKELIHOOD MINIMUM
28504C     UPDATED         --APRIL      2014.  PROBE GAMMA MAXIMUM
28505C                                               LIKELIHOOD METHOD
28506C     UPDATED         --APRIL      2014.  PROBE GAMMA MAXIMUM
28507C                                               LIKELIHOOD MINIMUM
28508C     UPDATED         --APRIL      2014.  PROBE INVERSE GAUSSIAN DEFINITION
28509C     UPDATED         --APRIL      2014.  PROBE INVERSE GAUSSIAN
28510C                                               CONFIDENE LIMIT METHOD
28511C     UPDATED         --JUNE       2014.  PROBE FIT AUXILLARY FILES
28512C     UPDATED         --JULY       2014.  PROBE NORMAL PLOT AXES
28513C     UPDATED         --AUGUST     2014.  PROBE LATEX RESIZE
28514C     UPDATED         --SEPTEMBER  2014.  PROBE CIRCLE CORRECTION
28515C     UPDATED         --SEPTEMBER  2014.  PROBE WEIBULL ELEMENTAL
28516C                                               PERCENTILES
28517C     UPDATED         --SEPTEMBER  2014.  PROBE WEIBULL L MOMENTS
28518C     UPDATED         --OCTOBER    2014.  PROBE GEV MAXIMUM LIKELIHOOD
28519C     UPDATED         --OCTOBER    2014.  PROBE AUTOMATIC VARIABLE
28520C                                               BASE NAME
28521C     UPDATED         --OCTOBER    2014.  PROBE VARIABLE NAME
28522C     UPDATED         --OCTOBER    2014.  PROBE SEARCH DIRECTORY
28523C     UPDATED         --NOVEMBER   2014.  PROBE CLIPBOARD SKIP
28524C     UPDATED         --NOVEMBER   2014.  PROBE CLIPBOARD LINES
28525C     UPDATED         --NOVEMBER   2014.  PROBE CLIPBOARD LOOP LINES
28526C     UPDATED         --NOVEMBER   2014.  PROBE CLIPBOARD DELAY
28527C     UPDATED         --DECEMBER   2014.  PROBE X11 CLIPBOARD
28528C     UPDATED         --FEBRUARY   2015.  PROBE E691 TEST RESULTS TABLE
28529C     UPDATED         --FEBRUARY   2015.  PROBE E691 H CONSISTENCY TABLE
28530C     UPDATED         --FEBRUARY   2015.  PROBE E691 K CONSISTENCY TABLE
28531C     UPDATED         --FEBRUARY   2015.  PROBE E691 PRECISION STATISTICS
28532C                                               TABLE
28533C     UPDATED         --MARCH      2015.  CALL LIST TO UPDATF
28534C     UPDATED         --MARCH      2015.  PROBE SCATTER PLOT MATRIX X2LABEL
28535C     UPDATED         --MARCH      2015.  PROBE SCATTER PLOT MATRIX X1LABEL
28536C     UPDATED         --MARCH      2015.  PROBE SCATTER PLOT MATRIX
28537C                                               SHADED DIAGONAL
28538C     UPDATED         --MARCH      2015.  PROBE MACRO SWITCH
28539C     UPDATED         --MARCH      2015.  PROBE MACRO LEVEL
28540C     UPDATED         --APRIL      2015.  PROBE CNPK DEFINITION
28541C     UPDATED         --APRIL      2015.  PROBE E691 DATA SUMMARY TABLE
28542C     UPDATED         --APRIL      2015.  PROBE E691 MATERIAL ID GROUP
28543C                                               LABEL
28544C     UPDATED         --APRIL      2015.  PROBE STATISTIC PLOT REFERENCE
28545C                                               LINE
28546C     UPDATED         --MAY        2015.  PROBE H CONSISTENCY PLOT TYPE
28547C     UPDATED         --MAY        2015.  PROBE H CONSISTENCY PLOT GAP
28548C     UPDATED         --MAY        2015.  PROBE H CONSISTENCY PLOT
28549C                                               MATERIAL FIRST
28550C     UPDATED         --MAY        2015.  PROBE H CONSISTENCY PLOT
28551C                                               MATERIAL LAST
28552C     UPDATED         --MAY        2015.  PROBE H CONSISTENCY PLOT
28553C                                               LABORATORY FIRST
28554C     UPDATED         --MAY        2015.  PROBE H CONSISTENCY PLOT
28555C                                               LABORATORY LAST
28556C     UPDATED         --MAY        2015.  PROBE H CONSISTENCY PLOT
28557C     UPDATED         --MAY        2015.  PROBE MOVING STAT PLOT GROUPS
28558C     UPDATED         --JUNE       2015.  PROBE TWO WAY PLOT Y AXIS
28559C     UPDATED         --JUNE       2015.  PROBE TWO WAY PLOT FIT TABLE
28560C     UPDATED         --JUNE       2015.  PROBE TWO WAY PLOT AVERAGES TABLE
28561C     UPDATED         --JUNE       2015.  PROBE TWO WAY PLOT ANOVA TABLE
28562C     UPDATED         --JUNE       2015.  PROBE TWO WAY PLOT FACTOR LABEL
28563C     UPDATED         --JUNE       2015.  PROBE TWO WAY PLOT FACTOR DECIMALS
28564C     UPDATED         --JUNE       2015.  PROBE TWO WAY PLOT ANOVA TABLE
28565C                                               DECIMALS
28566C     UPDATED         --JUNE       2015.  PROBE TWO FACTOR PLOT TYPE
28567C     UPDATED         --JUNE       2015.  PROBE TWO FACTOR PLOT GAP
28568C     UPDATED         --JUNE       2015.  PROBE TWO FACTOR PLOT
28569C                                               MATERIAL FIRST
28570C     UPDATED         --JUNE       2015.  PROBE TWO FACTOR PLOT
28571C                                               MATERIAL LAST
28572C     UPDATED         --JUNE       2015.  PROBE TWO FACTOR PLOT
28573C                                               LABORATORY FIRST
28574C     UPDATED         --JUNE       2015.  PROBE TWO FACTOR PLOT
28575C                                               LABORATORY LAST
28576C     UPDATED         --JUNE       2015.  PROBE TWO FACTOR PLOT
28577C     UPDATED         --SEPTEMBER  2015.  PROBE OPTIMIZATION
28578C     UPDATED         --OCTOBER    2015.  PROBE WARNING ERROR
28579C     UPDATED         --OCTOBER    2015.  PROBE LOOP STATUS
28580C     UPDATED         --OCTOBER    2015.  PROBE LOOP LINES
28581C     UPDATED         --OCTOBER    2015.  PROBE JSCORE REPLICATION
28582C     UPDATED         --OCTOBER    2015.  PROBE LOOP SUBSTITUTION
28583C     UPDATED         --NOVEMBER   2015.  PROBE PERCENTILE DIGITS
28584C     UPDATED         --NOVEMBER   2015.  PROBE SEARCH ENGINE
28585C     UPDATED         --NOVEMBER   2015.  PROBE DEVICE 3
28586C     UPDATED         --DECEMBER   2015.  PROBE FRAME LIMIT OFFSET
28587C     UPDATED         --DECEMBER   2015.  PROBE DEVICE 2 SPLIT
28588C     UPDATED         --DECEMBER   2015.  PROBE DEVICE 3 NAME COUNTER
28589C     UPDATED         --DECEMBER   2015.  PROBE CAPTURE CUMULATIVE
28590C     UPDATED         --DECEMBER   2015.  PROBE CAPTURE SPLIT
28591C     UPDATED         --DECEMBER   2015.  PROBE STANDARD INPUT
28592C     UPDATED         --DECEMBER   2015.  PROBE MAXIMUM COUNTER STANDARD INPUT
28593C     UPDATED         --DECEMBER   2015.  PROBE DELAY STANDARD INPUT
28594C     UPDATED         --MAY        2016.  PROBE MACRO QUOTES STRIP
28595C     UPDATED         --JUNE       2016.  PROBE STATUS DISTINCT
28596C     UPDATED         --JUNE       2016.  PROBE CHECK NAME OUTPUT
28597C     UPDATED         --JUNE       2016.  PROBE HISTOGRAM MAXIMUM CLASSES
28598C     UPDATED         --JUNE       2016.  PROBE HISTOGRAM OUTLIERS POINTS
28599C     UPDATED         --JUNE       2016.  PROBE BOX PLOT EXTREME
28600C                                               PERCENTILES
28601C     UPDATED         --JUNE       2016.  PROBE STREAM READ SIZE
28602C     UPDATED         --JUNE       2016.  PROBE DATE DELIMITER
28603C     UPDATED         --JUNE       2016.  PROBE TIME DELIMITER
28604C     UPDATED         --JUNE       2016.  PROBE READ IP ADDRESSES
28605C     UPDATED         --JUNE       2016.  PROBE QUANTILE QUANTILE PLOT
28606C                                               NUMBER OF PERCENTILES
28607C     UPDATED         --JUNE       2016.  PROBE TWO SAMPLE TESTS NUMBER
28608C                                               OF PERCENTILES
28609C     UPDATED         --JUNE       2016.  PROBE LET CROSS TABULATE GROUPS
28610C     UPDATED         --JUNE       2016.  PROBE QUANTILE QUANTILE PLOT
28611C                                               BOOTSTRAP
28612C     UPDATED         --JUNE       2016.  PROBE STREAM READ NUMBER OF
28613C                                               PERCENTILES
28614C     UPDATED         --JULY       2016.  PROBE STREAM READ GROUP
28615C                                               VARIABLE
28616C     UPDATED         --JULY       2016.  PROBE WRITE HEADER FILE
28617C     UPDATED         --JULY       2016.  PROBE STREAM READ RESPONSE
28618C                                               VARIABLE ONE
28619C     UPDATED         --JULY       2016.  PROBE STREAM READ RESPONSE
28620C                                               VARIABLE TWO
28621C     UPDATED         --JULY       2016.  PROBE STREAM READ RESPONSE
28622C                                               VARIABLE THREE
28623C     UPDATED         --SEPTEMBER  2016.  PROBE CORRELATION DIGITS
28624C     UPDATED         --SEPTEMBER  2016.  PROBE CORRELATION ABSOLUTE VALUE
28625C     UPDATED         --SEPTEMBER  2016.  PROBE CORRELATION PERCENTAGE VALUE
28626C     UPDATED         --OCTOBER    2016.  PROBE COMMAND LINE ARGUMENTS
28627
28628C     UPDATED         --OCTOBER    2016.  PROBE PSVIEW FILE CLOSE
28629C     UPDATED         --NOVEMBER   2016.  PROBE BLOCK PLOT JITTER
28630C     UPDATED         --NOVEMBER   2016.  PROBE CONSENSUS MEAN PLOT
28631C                                               OMIT LABS
28632C     UPDATED         --NOVEMBER   2016.  PROBE CAPTURE SCRIPT LOOP
28633C                                               SUBSTITUTION
28634C     UPDATED         --DECEMBER   2016.  PROBE COEFFICIENT OF VARIATION
28635C                                               CONFIDENCE LIMIT METHOD
28636C     UPDATED         --JANUARY    2017.  PROBE CONSENSUS MEAN TYPE B METHOD
28637C     UPDATED         --JANUARY    2017.  PROBE CONSENSUS MEAN TYPE B
28638C     UPDATED         --JANUARY    2017.  PROBE HYPHEN WORD SEPARATOR
28639C     UPDATED         --JANUARY    2017.  PROBE WELCH SATTERTHWAITE
28640C     UPDATED         --MARCH      2017.  PROBE HUBER MEAN OF MEANS
28641C                                               CONSENSUS MEAN
28642C     UPDATED         --MARCH      2017.  PROBE K MEANS INITIAL
28643C     UPDATED         --MARCH      2017.  PROBE K MEANS SILHOUETTE
28644C     UPDATED         --MARCH      2017.  PROBE K MEANS SCALE
28645C     UPDATED         --APRIL      2017.  PROBE K MEANS ROW LABEL
28646C     UPDATED         --APRIL      2017.  PROBE CONSENSUS MEAN PLOT
28647C                                               OMIT METHOD
28648C     UPDATED         --APRIL      2017.  PROBE NORMAL MIXTURE CLUSTER
28649C                                               SCALE
28650C     UPDATED         --APRIL      2017.  PROBE NORMAL MIXTURE CLUSTER
28651C                                               ROW LABEL
28652C     UPDATED         --APRIL      2017.  PROBE NORMAL MIXTURE CLUSTER
28653C                                               TITLE
28654C     UPDATED         --APRIL      2017.  PROBE CHARACTER FIELD COMMA
28655C                                               DELIMITER
28656C     UPDATED         --APRIL      2017.  PROBE READ DOLLAR SIGN IGNORE
28657C     UPDATED         --APRIL      2017.  PROBE READ TRAILING PLUS MINUS
28658C                                               IGNORE
28659C     UPDATED         --APRIL      2017.  PROBE READ COMMA IGNORE
28660C     UPDATED         --APRIL      2017.  PROBE READ CHARACTER MISSING
28661C                                               VALUE
28662C     UPDATED         --JUNE       2017.  PROBE TWO SAMPLE COEFFICIENT
28663C                                               OF VARIATION TEST
28664C     UPDATED         --JULY       2017.  PROBE BLAND ALTMAN PLOT
28665C     UPDATED         --JULY       2017.  PROBE BLAND ALTMAN PLOT STATISTIC
28666C     UPDATED         --JULY       2017.  PROBE BLAND ALTMAN PLOT BOOTSTRAP
28667C     UPDATED         --JULY       2017.  PROBE BLAND ALTMAN PLOT
28668C                                               CONFIDENCE LIMIT
28669C     UPDATED         --JULY       2017.  PROBE POINCARE PLOT LAG
28670C     UPDATED         --JULY       2017.  PROBE NORMAL KERNEL DENSITY
28671C                                               MIXTURE PLOT EXPANSION
28672C                                               FACTOR
28673C     UPDATED         --AUGUST     2017.  PROBE SAMPLE RANDOM
28674C                                               PERMUTATION DISTINCT
28675C     UPDATED         --AUGUST     2017.  PROBE K MEDOID CLUSTER SCALE
28676C     UPDATED         --AUGUST     2017.  PROBE K MEDOID CLUSTER DISTANCE
28677C     UPDATED         --AUGUST     2017.  PROBE K MEDOID CLUSTER PRINT
28678C     UPDATED         --AUGUST     2017.  PROBE K MEDOID CLUSTER SAMPLE
28679C                                               SIZE
28680C     UPDATED         --AUGUST     2017.  PROBE K MEDOID CLUSTER NUMBER
28681C                                               OF SAMPLES
28682C     UPDATED         --AUGUST     2017.  PROBE K MEDOID CLUSTER PAM
28683C                                               MAXIMUM SIZE
28684C     UPDATED         --AUGUST     2017.  PROBE K MEDOID CLUSTER RANDOM
28685C                                               NUMBER GENERATOR
28686C     UPDATED         --AUGUST     2017.  PROBE K MEDOID CLUSTER TYPE
28687C     UPDATED         --AUGUST     2017.  PROBE AGNES CLUSTER SCALE
28688C     UPDATED         --AUGUST     2017.  PROBE AGNES CLUSTER DISTANCE
28689C     UPDATED         --AUGUST     2017.  PROBE AGNES CLUSTER PRINT
28690C     UPDATED         --AUGUST     2017.  PROBE AGNES CLUSTER TYPE
28691C     UPDATED         --AUGUST     2017.  PROBE AGNES CLUSTER METHOD
28692C     UPDATED         --AUGUST     2017.  PROBE AGNES CLUSTER MAXIMUM
28693C                                               SIZE
28694C     UPDATED         --AUGUST     2017.  PROBE AGNES CLUSTER BANNER PLOT
28695C     UPDATED         --AUGUST     2017.  PROBE FANNY CLUSTER SCALE
28696C     UPDATED         --AUGUST     2017.  PROBE FANNY CLUSTER DISTANCE
28697C     UPDATED         --AUGUST     2017.  PROBE FANNY CLUSTER PRINT
28698C     UPDATED         --AUGUST     2017.  PROBE FANNY CLUSTER TYPE
28699C     UPDATED         --AUGUST     2017.  PROBE FANNY CLUSTER MAXIMUM
28700C                                               SIZE
28701C     UPDATED         --OCTOBER    2017.  PROBE CAIRO BLANK PAGE
28702C     UPDATED         --OCTOBER    2017.  PROBE CAIRO POINTS PER INCH
28703C     UPDATED         --NOVEMBER   2017.  PROBE DIFFERENCE OF BINOMIAL
28704C                                               METHOD
28705C     UPDATED         --DECEMBER   2017.  PROBE BONETT STANDARD DEVIATION
28706C                                               CONFIDENCE LIMIT
28707C                                               ADJUSTED
28708C     UPDATED         --DECEMBER   2017.  PROBE BONETT STANDARD DEVIATION
28709C                                               CONFIDENCE LIMIT
28710C     UPDATED         --JANUARY    2018.  PROBE DEX PARETO PLOT ORDER
28711C     UPDATED         --JANUARY    2018.  PROBE DEX ORDERED PLOT
28712C                                               UNCERTAINTY
28713C     UPDATED         --FEBRUARY   2018.  PROBE CHECK LENGTH OUTPUT
28714C     UPDATED         --FEBRUARY   2018.  PROBE SCATTER PLOT MATRIX XTIC
28715C     UPDATED         --FEBRUARY   2018.  PROBE SCATTER PLOT MATRIX XTIC
28716C                                               LABEL
28717C     UPDATED         --FEBRUARY   2018.  PROBE SCATTER PLOT MATRIX YTIC
28718C     UPDATED         --FEBRUARY   2018.  PROBE SCATTER PLOT MATRIX YTIC
28719C                                               LABEL
28720C     UPDATED         --APRIL      2018.  PROBE WEB SEARCH DATAPLOT
28721C     UPDATED         --APRIL      2018.  PROBE COMMAND LINE EXECUTE WAIT
28722C     UPDATED         --APRIL      2018.  PROBE LINUX SYSTEM
28723C     UPDATED         --APRIL      2018.  PROBE HYPHEN COMMAND LINE
28724C     UPDATED         --APRIL      2018.  PROBE COMMA COMMAND LINE
28725C     UPDATED         --APRIL      2018.  PROBE EQUAL COMMAND LINE
28726C     UPDATED         --MAY        2018.  PROBE GUENTHER CORRECTION
28727C     UPDATED         --MAY        2018.  PROBE TOLERANCE LIMITS METHOD
28728C     UPDATED         --MAY        2018.  PROBE TOLERANCE LIMITS ONE
28729C                                               SIDED METHOD
28730C     UPDATED         --JUNE       2018.  PROBE DISTRIBUTIONAL FIT PLOT
28731C                                               SORT
28732C     UPDATED         --JUNE       2018.  PROBE DISTRIBUTIONAL FIT PLOT
28733C                                               TYPE
28734C     UPDATED         --JUNE       2018.  PROBE ROW LABEL COLUMN
28735C     UPDATED         --JULY       2018.  PROBE KERNEL DENSITY
28736C                                               PROBABILITY FUNCTION
28737C     UPDATED         --JULY       2018.  PROBE KERNEL DENSITY
28738C                                               RANDOM NUMBERS
28739C     UPDATED         --JULY       2018.  PROBE STREAM READ CROSS
28740C                                               TABULATE VARIABLE
28741C     UPDATED         --JULY       2018.  PROBE STREAM READ GROUP LABELS
28742C     UPDATED         --JULY       2018.  PROBE STREAM READ VARIABLE TYPE
28743C     UPDATED         --SEPTEMBER  2018.  PROBE WRITE FEEDBACK
28744C     UPDATED         --SEPTEMBER  2018.  PROBE WORD DELIMITER
28745C     UPDATED         --SEPTEMBER  2018.  PROBE COMMAND SUBSTITUTION
28746C     UPDATED         --SEPTEMBER  2018.  PROBE IF LEVEL
28747C     UPDATED         --JANUARY    2019.  PROBE PYTHON PATH
28748C     UPDATED         --JANUARY    2019.  PROBE PYTHON VERSION
28749C     UPDATED         --JANUARY    2019.  PROBE SUBSTITUTE FORMAT
28750C     UPDATED         --JANUARY    2019.  PROBE STRING JUST CHAR
28751C     UPDATED         --JANUARY    2019.  PROBE IWRIN1, IWRIN2, IWRIN3
28752C     UPDATED         --JANUARY    2019.  PROBE IREAN1, IREAN2, IREAN3
28753C     UPDATED         --FEBRUARY   2019.  PROBE TAB EXPAND
28754C     UPDATED         --FEBRUARY   2019.  PROBE CARRIAGE RETURN GAP
28755C     UPDATED         --FEBRUARY   2019.  PROBE CLIPBOARD RUN CLEAR
28756C     UPDATED         --FEBRUARY   2019.  PROBE DEX STAT PLOT INTERACTION
28757C     UPDATED         --MARCH      2019.  PROBE SYSTEM PERSIST
28758C     UPDATED         --MARCH      2019.  PROBE SYSTEM HIDDEN
28759C     UPDATED         --MARCH      2019.  PROBE EDITOR
28760C     UPDATED         --APRIL      2019.  PROBE AUXILIARY FILES DECIMAL
28761C                                               POINTS
28762C     UPDATED         --APRIL      2019.  PROBE READ ASTERISK IGNORE
28763C     UPDATED         --JULY       2019.  PROBE BOXPLOT FENCE SKEWNESS
28764C     UPDATED         --AUGUST     2019.  PROBE ONE SAMPLE PROFICIENCY
28765C                                               TEST IDENTIFY LAB
28766C     UPDATED         --SEPTEMBER  2019.  PROBE GREP CASE
28767C     UPDATED         --SEPTEMBER  2019.  PROBE GREP RECURSIVE
28768C     UPDATED         --SEPTEMBER  2019.  PROBE GREP LINE NUMBERS
28769C     UPDATED         --SEPTEMBER  2019.  PROBE GREP EXACT MATCH
28770C     UPDATED         --SEPTEMBER  2019.  PROBE GREP NO MATCH
28771C     UPDATED         --SEPTEMBER  2019.  PROBE GREP FILE NAME ONLY
28772C     UPDATED         --SEPTEMBER  2019.  PROBE DIR RECURSIVE
28773C     UPDATED         --SEPTEMBER  2019.  PROBE DIR PAUSE
28774C     UPDATED         --SEPTEMBER  2019.  PROBE DIR LONG LISTING
28775C     UPDATED         --SEPTEMBER  2019.  PROBE DIR SORT
28776C     UPDATED         --SEPTEMBER  2019.  PROBE CAT MORE
28777C     UPDATED         --SEPTEMBER  2019.  PROBE STRING VARIABLE
28778C     UPDATED         --SEPTEMBER  2019.  PROBE STRING COMBINE
28779C                                               SEPARATOR
28780C     UPDATED         --SEPTEMBER  2019.  PROBE RATIO OF MEANS METHOD
28781C     UPDATED         --OCTOBER    2019.  PROBE DAVID TEST CRITICAL
28782C                                               VALUES
28783C     UPDATED         --OCTOBER    2019.  PROBE SKEW OUTLIER TEST
28784C                                               CRITICAL VALUES
28785C     UPDATED         --OCTOBER    2019.  PROBE KURTOSIS OUTLIER TEST
28786C                                               CRITICAL VALUES
28787C     UPDATED         --OCTOBER    2019.  PROBE READ PERCENT SIGN IGNORE
28788C     UPDATED         --OCTOBER    2019.  PROBE HEAD LINES
28789C     UPDATED         --OCTOBER    2019.  PROBE TAIL LINES
28790C     UPDATED         --OCTOBER    2019.  PROBE GRUBB TEST CRITICAL
28791C                                               VALUES
28792C     UPDATED         --OCTOBER    2019.  PROBE GRUBB TEST STANDARD
28793C                                               DEVIATION
28794C     UPDATED         --OCTOBER    2019.  PROBE GRUBB TEST DEGREES
28795C                                               OF FREEDOM
28796C     UPDATED         --NOVEMBER   2019.  PROBE RANLUX LEVEL
28797C     UPDATED         --NOVEMBER   2019.  PROBE OUTPUT LINE NUMBERS
28798C     UPDATED         --NOVEMBER   2019.  PROBE R PATH
28799C     UPDATED         --NOVEMBER   2019.  PROBE BROWSER HEIGHT
28800C     UPDATED         --NOVEMBER   2019.  PROBE BROWSER WIDTH
28801C     UPDATED         --NOVEMBER   2019.  PROBE LIST VIEWER
28802C     UPDATED         --NOVEMBER   2019.  PROBE LIST LAUNCHER
28803C     UPDATED         --NOVEMBER   2019.  PROBE LIST NEW WINDOW
28804C     UPDATED         --NOVEMBER   2019.  PROBE HELP NEW WINDOW
28805C     UPDATED         --NOVEMBER   2019.  PROBE EXCEL VIEWER
28806C     UPDATED         --NOVEMBER   2019.  PROBE WORD VIEWER
28807C     UPDATED         --NOVEMBER   2019.  PROBE POWER POINT VIEWER
28808C     UPDATED         --DECEMBER   2019.  PROBE SEED
28809C     UPDATED         --DECEMBER   2019.  PROBE PDF VIEWER
28810C     UPDATED         --DECEMBER   2019.  PROBE IMAGE VIEWER
28811C     UPDATED         --DECEMBER   2019.  PROBE BACKUP VIEWER
28812C     UPDATED         --DECEMBER   2019.  PROBE HOME PATH
28813C     UPDATED         --DECEMBER   2019.  PROBE USER
28814C     UPDATED         --DECEMBER   2019.  PROBE HOST
28815C     UPDATED         --DECEMBER   2019.  PROBE DEFAULT PRINTER
28816C     UPDATED         --DECEMBER   2019.  PROBE PROGRAM FILES X86
28817C     UPDATED         --DECEMBER   2019.  PROBE PROGRAM FILES
28818C     UPDATED         --DECEMBER   2019.  PROBE WINDOW BITS
28819C     UPDATED         --JANUARY    2020.  PROBE SHELL
28820C     UPDATED         --JANUARY    2020.  PROBE IPLOT JITTER
28821C     UPDATED         --FEBRUARY   2020.  PROBE IZCHNA
28822C     UPDATED         --FEBRUARY   2020.  PROBE EXCEL SHEET
28823C     UPDATED         --FEBRUARY   2020.  PROBE EXCEL NUMBER OF ROWS
28824C     UPDATED         --FEBRUARY   2020.  PROBE EXCEL COLUMN LIST
28825C     UPDATED         --FEBRUARY   2020.  PROBE INSERT OVERWRITE
28826C     UPDATED         --MARCH      2020.  PROBE SEARCH2 DIRECTORY
28827C     UPDATED         --MARCH      2020.  PROBE SEARCH3 DIRECTORY
28828C     UPDATED         --APRIL      2020.  PROBE BEST FIT <DIST>
28829C     UPDATED         --APRIL      2020.  PROBE SEARCH4 DIRECTORY
28830C     UPDATED         --APRIL      2020.  PROBE SEARCH5 DIRECTORY
28831C     UPDATED         --APRIL      2020.  PROBE SEARCH6 DIRECTORY
28832C
28833C-----CHARACTER STATEMENTS FOR NON-COMMON VARIABLES-------------------
28834C
28835C
28836      CHARACTER*4 IOSW
28837      CHARACTER*4 IMACRO
28838      CHARACTER*4 ILOOST
28839C
28840      CHARACTER*4 IBUGUG
28841      CHARACTER*4 IBUGU2
28842      CHARACTER*4 IBUGU3
28843      CHARACTER*4 IBUGU4
28844C
28845      CHARACTER*4 IBUGEX
28846      CHARACTER*4 IBUGE2
28847      CHARACTER*4 IBUGHE
28848      CHARACTER*4 IBUGH2
28849      CHARACTER*4 IBUGLO
28850C
28851      CHARACTER*4 IFTEXP
28852CCCCC AUGUST 1995.  ADD FOLLOWING LINE
28853      CHARACTER*4 IFTORD
28854CCCCC MARCH 1996.  ADD FOLLOWING LINE
28855CCCCC NOVEMBER 1998.  MOVE TO DPCOST.INC
28856CCCCC CHARACTER*4 IRHSTG
28857C
28858      CHARACTER*4 IFORSW
28859      CHARACTER*1 IREPCH
28860C
28861      CHARACTER*80 ICREAF
28862      CHARACTER*80 ICWRIF
28863C
28864      CHARACTER*4 IREARW
28865      CHARACTER*4 IWRIRW
28866C
28867      CHARACTER*4 ISUBRO
28868      CHARACTER*4 ISUBN0
28869      CHARACTER*4 ITYPE
28870C
28871CCCCC THE FOLLOWING LINE WAS ADDED FEBRUARY 1993
28872      CHARACTER*4 IPRITY
28873CCCCC THE FOLLOWING LINE WAS ADDED       JULY 1995
28874CCCCC CHARACTER*4 IFITAC
28875C
28876      CHARACTER*4 IFOUND
28877      CHARACTER*4 IERROR
28878C
28879      CHARACTER*4 ICASPR
28880      CHARACTER*4 IPART1
28881      CHARACTER*4 IPART2
28882      CHARACTER*4 IPART3
28883      CHARACTER*4 IPART4
28884      CHARACTER*4 IPART5
28885      CHARACTER*4 IPART6
28886      CHARACTER*4 IPART7
28887      CHARACTER*4 IPART8
28888      CHARACTER*4 IPART9
28889      CHARACTER*4 IHV
28890      CHARACTER*4 IHV2
28891      CHARACTER*4 NEWNAM
28892      CHARACTER*10 IFORMT
28893C
28894      INCLUDE 'DPCOPA.INC'
28895C
28896      CHARACTER(LEN=MAXFNC) :: ISTRIN
28897      CHARACTER(LEN=MAXFNC) :: ISTRI2
28898      CHARACTER(LEN=MAXFNC) :: IPROBS
28899C
28900C-----COMMON----------------------------------------------------------
28901C
28902      INCLUDE 'DPCOMC.INC'
28903      INCLUDE 'DPCODB.INC'
28904      INCLUDE 'DPCOHK.INC'
28905      INCLUDE 'DPCOPC.INC'
28906      INCLUDE 'DPCODG.INC'
28907      INCLUDE 'DPCOSU.INC'
28908CCCCC THE FOLLOWING LINE (FOR WEIBULL MINMAX) WAS ADDED JANUARY 1994
28909      INCLUDE 'DPCOS2.INC'
28910      INCLUDE 'DPCODA.INC'
28911      INCLUDE 'DPCOTR.INC'
28912      INCLUDE 'DPCOF2.INC'
28913      INCLUDE 'DPCOST.INC'
28914      INCLUDE 'DPCODV.INC'
28915CCCCC THE FOLLOWING LINE WAS ADDED FEBRUARY 1993
28916      INCLUDE 'DPCOGR.INC'
28917CCCCC THE FOLLOWING LINE WAS ADDED APRIL 1997
28918      INCLUDE 'DPCOHO.INC'
28919C
28920      CHARACTER*4 IANSLO(MAXLIL,MAXCIL)
28921C
28922      CHARACTER*80 PROFIL
28923      CHARACTER*80 P86FIL
28924      CHARACTER*80 APPDAT
28925      CHARACTER*80 COMNAM
28926      CHARACTER*80 UPROFI
28927      CHARACTER*80 DEFPRI
28928      CHARACTER*20 USRNAM
28929      CHARACTER*20 ISHELL
28930      CHARACTER*4  WINBIT
28931      COMMON/SYSVAR/PROFIL,P86FIL,APPDAT,COMNAM,UPROFI,USRNAM,DEFPRI,
28932     1              WINBIT,ISHELL
28933      COMMON/SYSVA2/NCPROF,NCP86F,NCAPPD,NCCOMP,NCUPRO,NCUSER,NCPRIN,
28934     1              NCSHEL
28935C
28936C
28937C-----COMMON VARIABLES (GENERAL)--------------------------------------
28938C
28939      INCLUDE 'DPCOP2.INC'
28940C
28941C-----START POINT-----------------------------------------------------
28942C
28943      IFOUND='NO'
28944      IERROR='NO'
28945C
28946      APROBE=0.0
28947      IPROBS=' '
28948      ICASPR='    '
28949      ISTRIN=' '
28950C
28951      IF(NUMARG.LE.0)GOTO5410
28952C
28953C               *********************************************
28954C               **  STEP 12--                              **
28955C               **  TREAT THE    PROBE READ FORMAT    CASE **
28956C               *********************************************
28957C
28958CCCCC FOLLOWING SECTION ADDED JANUARY   2004.
28959C               ********************************************
28960C               **  STEP 20.A--                           **
28961C               **  PROBE READ DELIMITER                  **
28962C               **  PROBE READ NON-PRINTING CHARACTERS    **
28963C               **  PROBE READ SUBSET                     **
28964C               **  PROBE READ MISSING VALUE              **
28965C               **  PROBE READ PAD MISSING COLUMN         **
28966C               **  PROBE READ LINE                       **
28967C               **  PROBE READ DOLLAR SIGN IGNORE         **
28968C               **  PROBE READ TRAILING PLUS MINUS IGNORE **
28969C               **  PROBE READ COMMA IGNORE               **
28970C               ********************************************
28971C
28972      IPART1='READ'
28973      IPART2='DELI'
28974      IF(IHARG(1).EQ.'READ')THEN
28975        IF(IHARG(2).EQ.'DELI')THEN
28976          IHV=IREADL
28977          GOTO5160
28978        ELSEIF(IHARG(2).EQ.'NONP' .AND. IHARG(3).EQ.'CHAR')THEN
28979          IHV=IREANP
28980          GOTO5160
28981        ELSEIF(IHARG(2).EQ.'NON ' .AND. IHARG(3).EQ.'PRIN' .AND.
28982     1         IHARG(4).EQ.'CHAR')THEN
28983          IHV=IREANP
28984          GOTO5160
28985        ELSEIF(IHARG(2).EQ.'SUBS')THEN
28986          IHV=IREASB
28987          GOTO5160
28988        ELSEIF(IHARG(2).EQ.'MISS' .AND. IHARG(3).EQ.'VALU')THEN
28989          AV=PREAMV
28990          GOTO5170
28991        ELSEIF(IHARG(2).EQ.'PAD ' .AND. IHARG(3).EQ.'MISS' .AND.
28992     1         IHARG(4).EQ.'COLU')THEN
28993          IHV=IREAPD
28994          GOTO5160
28995        ELSEIF(IHARG(2).EQ.'COMM' .AND. IHARG(3).EQ.'IGNO')THEN
28996          IHV=IREACM
28997          GOTO5160
28998        ELSEIF(IHARG(2).EQ.'DOLL' .AND. IHARG(3).EQ.'SIGN' .AND.
28999     1         IHARG(4).EQ.'IGNO')THEN
29000          IHV=IREADS
29001          GOTO5160
29002        ELSEIF(IHARG(2).EQ.'PERC' .AND. IHARG(3).EQ.'SIGN' .AND.
29003     1         IHARG(4).EQ.'IGNO')THEN
29004          IHV=IREAPC
29005          GOTO5160
29006        ELSEIF(IHARG(2).EQ.'ASTE' .AND. IHARG(3).EQ.'IGNO')THEN
29007        ELSEIF(IHARG(2).EQ.'ASTE' .AND. IHARG(3).EQ.'IGNO')THEN
29008          IHV=IREAAS
29009          GOTO5160
29010        ELSEIF(IHARG(2).EQ.'TRAI' .AND. IHARG(3).EQ.'PLUS' .AND.
29011     1         IHARG(4).EQ.'MINU' .AND. IHARG(5).EQ.'IGNO')THEN
29012          IHV=IREAPM
29013          GOTO5160
29014        ELSEIF(IHARG(2).EQ.'CHAR' .AND. IHARG(3).EQ.'MISS' .AND.
29015     1         IHARG(4).EQ.'VALU')THEN
29016          IHV=IREAMC(1:4)
29017          IHV2=IREAMC(5:8)
29018          GOTO5160
29019        ELSEIF(IHARG(2).EQ.'SUBS')THEN
29020          IHV=IREALI
29021          GOTO5160
29022        ELSEIF(IHARG(2).EQ.'REWI')THEN
29023          IF(NCREAF.GE.1)THEN
29024            IFOUND='YES'
29025            IF(IFEEDB.EQ.'ON')THEN
29026              WRITE(ICOUT,999)
29027              CALL DPWRST('XXX','BUG ')
29028              WRITE(ICOUT,1241)
29029 1241         FORMAT('THE (FORTRAN-LIKE) READ FORMAT IS CURRENTLY ',
29030     1               'SET TO')
29031              CALL DPWRST('XXX','BUG ')
29032              WRITE(ICOUT,1242)(ICREAF(I:I),I=1,NCREAF)
29033 1242         FORMAT(80A1)
29034              CALL DPWRST('XXX','BUG ')
29035            ENDIF
29036            IPROBS(1:NCREAF)=ICREAF(1:NCREAF)
29037            NCPROB=NCREAF
29038            GOTO8100
29039          ELSE
29040            IFOUND='YES'
29041            IF(IFEEDB.EQ.'ON')THEN
29042              WRITE(ICOUT,999)
29043              CALL DPWRST('XXX','BUG ')
29044              WRITE(ICOUT,1251)
29045 1251         FORMAT('THE (FORTRAN-LIKE) READ FORMAT IS CURRENTLY ',
29046     1               'NULL.')
29047              CALL DPWRST('XXX','BUG ')
29048              WRITE(ICOUT,1252)
29049 1252         FORMAT('THUS SUBSEQUENT READS WILL BE FREE-FORMAT.')
29050              CALL DPWRST('XXX','BUG ')
29051              GOTO9000
29052            ENDIF
29053          ENDIF
29054        ENDIF
29055      ENDIF
29056C
29057C               *********************************************
29058C               **  STEP 14--                              **
29059C               **  TREAT THE    PROBE READ REWIND    CASE **
29060C               *********************************************
29061C
29062      IF(NUMARG.GE.2.AND.IHARG(1).EQ.'READ'.AND.
29063     1   IHARG(2).EQ.'REWI')THEN
29064        IFOUND='YES'
29065        IF(IFEEDB.EQ.'ON')THEN
29066          WRITE(ICOUT,999)
29067          CALL DPWRST('XXX','BUG ')
29068          WRITE(ICOUT,1421)IREARW
29069 1421     FORMAT('THE     READ REWIND    SWITCH IS CURRENTLY ',A4)
29070          CALL DPWRST('XXX','BUG ')
29071          IF(IREARW.EQ.'ON')THEN
29072            WRITE(ICOUT,1423)
29073 1423       FORMAT('THUS SUBSEQUENT READS WILL HAVE AN AUTOMATIC')
29074            CALL DPWRST('XXX','BUG ')
29075          ELSEIF(IREARW.EQ.'OFF')THEN
29076            WRITE(ICOUT,1424)
29077 1424       FORMAT('THUS SUBSEQUENT READS WILL HAVE NO AUTOMATIC')
29078            CALL DPWRST('XXX','BUG ')
29079          ENDIF
29080          WRITE(ICOUT,1425)
29081 1425     FORMAT('REWIND BEFORE THE READ OCCURS.')
29082          CALL DPWRST('XXX','BUG ')
29083        ENDIF
29084        IPROBS(1:4)=IREARW(1:4)
29085        NCPROB=4
29086        IF(IPROBS(1:2).EQ.'ON')NCPROB=2
29087        IF(IPROBS(1:3).EQ.'OFF')NCPROB=3
29088        GOTO8100
29089      ENDIF
29090C
29091C               *********************************************
29092C               **  STEP 15--                              **
29093C               **  TREAT THE    PROBE WRITE REWIND   CASE **
29094C               *********************************************
29095C
29096      IF(NUMARG.GE.2.AND.IHARG(1).EQ.'WRIT'.AND.
29097     1IHARG(2).EQ.'REWI')GOTO1510
29098      GOTO1590
29099C
29100 1510 CONTINUE
29101      IFOUND='YES'
29102      IF(IFEEDB.EQ.'OFF')GOTO1529
29103      WRITE(ICOUT,999)
29104      CALL DPWRST('XXX','BUG ')
29105      WRITE(ICOUT,1521)IWRIRW
29106 1521 FORMAT('THE     WRITE REWIND    SWITCH IS CURRENTLY ',
29107     1A4)
29108      CALL DPWRST('XXX','BUG ')
29109      IF(IWRIRW.EQ.'ON')WRITE(ICOUT,1523)
29110 1523 FORMAT('THUS SUBSEQUENT WRITES WILL HAVE AN AUTOMATIC')
29111      IF(IWRIRW.EQ.'ON')CALL DPWRST('XXX','BUG ')
29112      IF(IWRIRW.EQ.'OFF')WRITE(ICOUT,1524)
29113 1524 FORMAT('THUS SUBSEQUENT WRITES WILL HAVE NO AUTOMATIC')
29114      IF(IWRIRW.EQ.'OFF')CALL DPWRST('XXX','BUG ')
29115      WRITE(ICOUT,1525)
29116 1525 FORMAT('REWIND BEFORE THE WRITE OCCURS.')
29117      CALL DPWRST('XXX','BUG ')
29118 1529 CONTINUE
29119      IPROBS(1:4)=IWRIRW(1:4)
29120      NCPROB=4
29121      IF(IPROBS(1:2).EQ.'ON')NCPROB=2
29122      IF(IPROBS(1:3).EQ.'OFF')NCPROB=3
29123      GOTO8100
29124C
29125 1590 CONTINUE
29126C
29127CCCCC THE FOLLOWING SECTION WAS ADDED        OCTOBER 2018.
29128C     ******************************************
29129C     **  PROBE WRITE DECIMALS                **
29130C     **  PROBE WRITE FEEDBACK                **
29131C     ******************************************
29132C
29133      IPART1='WRIT'
29134      IPART3='PRIN'
29135      IF(IHARG(1).EQ.IPART1.OR.IHARG(1).EQ.IPART3)THEN
29136        IPART2='DECI'
29137        IF(IHARG(2).EQ.IPART2)THEN
29138          IHV=IFORSW
29139          GOTO5160
29140        ENDIF
29141        IPART2='FEED'
29142        IF(IHARG(2).EQ.IPART2)THEN
29143          IHV=IFEEWR
29144          GOTO5160
29145        ENDIF
29146      ENDIF
29147C
29148CCCCC FOLLOWING SECTION ADDED FEBRUARY     2020.
29149C               *************************************************
29150C               **  STEP 20.A--                                **
29151C               **  PROBE WRITE CSV  <ON/OFF>                  **
29152C               *************************************************
29153C
29154      IPART1='WRIT'
29155      IPART2='CSV '
29156      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
29157        IHV=ICSVWR
29158        GOTO5160
29159      ENDIF
29160C
29161C               *********************************************
29162C               **  STEP 13--                              **
29163C               **  TREAT THE    PROBE WRITE FORMAT   CASE **
29164C               *********************************************
29165C
29166      IF(NUMARG.GE.1.AND.
29167     1  (IHARG(1).EQ.'WRIT' .OR. IHARG(1).EQ.'PRIN'))THEN
29168        IF(IHARG(2).EQ.'HEAD' .AND. IHARG(3).EQ.'FILE')GOTO1390
29169C
29170        IF(NCWRIF.GE.1)THEN
29171          IFOUND='YES'
29172          IF(IFEEDB.EQ.'ON')THEN
29173            WRITE(ICOUT,999)
29174            CALL DPWRST('XXX','BUG ')
29175            WRITE(ICOUT,1341)
29176 1341       FORMAT('THE (FORTRAN-LIKE) WRITE FORMAT IS CURRENTLY ',
29177     1             'SET TO')
29178            CALL DPWRST('XXX','BUG ')
29179            WRITE(ICOUT,1342)(ICWRIF(I:I),I=1,NCWRIF)
29180 1342       FORMAT(80A1)
29181            CALL DPWRST('XXX','BUG ')
29182          ENDIF
29183          IPROBS(1:NCWRIF)=ICREAF(1:NCWRIF)
29184          NCPROB=NCWRIF
29185          GOTO8100
29186        ELSEIF(NCWRIF.LE.0)THEN
29187          IFOUND='YES'
29188          IF(IFEEDB.EQ.'ON')THEN
29189            WRITE(ICOUT,999)
29190            CALL DPWRST('XXX','BUG ')
29191            WRITE(ICOUT,1351)
29192 1351       FORMAT('THE (FORTRAN-LIKE) WRITE FORMAT IS CURRENTLY NULL.')
29193            CALL DPWRST('XXX','BUG ')
29194            WRITE(ICOUT,1352)
29195 1352       FORMAT('THUS SUBSEQUENT WRITES WILL BE FREE-FORMAT.')
29196            CALL DPWRST('XXX','BUG ')
29197            GOTO9000
29198          ENDIF
29199        ENDIF
29200C
29201      ENDIF
29202C
29203 1390 CONTINUE
29204C
29205CCCCC THE FOLLOWING SECTION WAS ADDED FEBRUARY 1993
29206C               *********************************************
29207C               **  STEP 16--                              **
29208C               **  TREAT THE  PROBE PRINTER TYPE    CASE  **
29209C               *********************************************
29210C
29211      IF(NUMARG.GE.2.AND.IHARG(1).EQ.'PRIN'.AND.
29212     1IHARG(2).EQ.'TYPE')GOTO1610
29213      GOTO1690
29214C
29215 1610 CONTINUE
29216      IFOUND='YES'
29217      IF(IFEEDB.EQ.'OFF')GOTO1639
29218      WRITE(ICOUT,999)
29219      CALL DPWRST('XXX','BUG ')
29220      WRITE(ICOUT,1621)IPRITY
29221 1621 FORMAT('THE     PRINTER TYPE    SWITCH IS CURRENTLY ',
29222     1A4)
29223      CALL DPWRST('XXX','BUG ')
29224      IF(IPRITY.EQ.'ASCI')WRITE(ICOUT,1623)
29225 1623 FORMAT('THUS DATAPLOT CURRENTLY CONSIDERS THE PRINTER ',
29226     1'TO BE ASCII')
29227      IF(IPRITY.EQ.'ASCI')CALL DPWRST('XXX','BUG ')
29228      IF(IPRITY.EQ.'POST')WRITE(ICOUT,1624)
29229 1624 FORMAT('THUS DATAPLOT CURRENTLY CONSIDERS THE PRINTER ',
29230     1'TO BE POSTSCRIPT')
29231      IF(IPRITY.EQ.'POST')CALL DPWRST('XXX','BUG ')
29232      WRITE(ICOUT,1625)
29233 1625 FORMAT('TO CHANGE THE DATAPLOT INTERNAL SETTING,')
29234      CALL DPWRST('XXX','BUG ')
29235      WRITE(ICOUT,1626)
29236 1626 FORMAT('   USE THE     SET PRINTER TYPE    COMMAND.')
29237      CALL DPWRST('XXX','BUG ')
29238      WRITE(ICOUT,1627)
29239 1627 FORMAT('TO CHANGE YOUR PRINTER,')
29240      CALL DPWRST('XXX','BUG ')
29241      WRITE(ICOUT,1628)
29242 1628 FORMAT('   DO SO MANUALLY , OR')
29243      CALL DPWRST('XXX','BUG ')
29244      WRITE(ICOUT,1629)
29245 1629 FORMAT('   SEND THE PROPER COMMAND STRING TO THE PRINTER')
29246      CALL DPWRST('XXX','BUG ')
29247      WRITE(ICOUT,1630)
29248 1630 FORMAT('   VIA THE     SYSTEM     OR      DOS    COMMAND.')
29249      CALL DPWRST('XXX','BUG ')
29250 1639 CONTINUE
29251      IPROBS(1:4)=IPRITY(1:4)
29252      NCPROB=4
29253      GOTO8100
29254C
29255 1690 CONTINUE
29256C
29257CCCCC THE FOLLOWING SECTION WAS ADDED    NOVEMBER 1993
29258C     ***********************************
29259C     **  CHECK FOR PROBE PATH         **
29260C     ***********************************
29261C
29262      IF(NUMARG.GE.1.AND.IHARG(1).EQ.'PATH')THEN
29263         IF(NCPATH.GE.1)THEN
29264            IFOUND='YES'
29265            IF(IFEEDB.EQ.'ON')THEN
29266              WRITE(ICOUT,999)
29267              CALL DPWRST('XXX','BUG ')
29268              WRITE(ICOUT,1716)
29269 1716         FORMAT('THE CURRENT PATH FOR THE DATAPLOT DIRECTORY = ')
29270              CALL DPWRST('XXX','BUG ')
29271              WRITE(ICOUT,1717)PATH
29272 1717         FORMAT(A80)
29273              CALL DPWRST('XXX','BUG ')
29274              WRITE(ICOUT,1718)NCPATH
29275 1718         FORMAT('THE NUMBER OF CHARACTERS IN THE PATH NAME = ',I8)
29276              CALL DPWRST('XXX','BUG ')
29277            ENDIF
29278            IPROBS(1:NCPATH)=PATH(1:NCPATH)
29279            NCPROB=NCPATH
29280            GOTO8100
29281         ELSE IF(NCPATH.LE.0)THEN
29282            IFOUND='YES'
29283            IF(IFEEDB.EQ.'OFF')GOTO9000
29284            WRITE(ICOUT,999)
29285            CALL DPWRST('XXX','BUG ')
29286            WRITE(ICOUT,1726)
29287 1726       FORMAT('THE CURRENT PATH FOR THE DATAPLOT DIRECTORY = ')
29288            CALL DPWRST('XXX','BUG ')
29289            WRITE(ICOUT,1727)
29290 1727       FORMAT('EMPTY (= NO PATH)')
29291            CALL DPWRST('XXX','BUG ')
29292            WRITE(ICOUT,1728)NCPATH
29293 1728       FORMAT('THE NUMBER OF CHARACTERS IN THE PATH NAME = ',I8)
29294            CALL DPWRST('XXX','BUG ')
29295            GOTO9000
29296         ENDIF
29297      ENDIF
29298C
29299CCCCC THE FOLLOWING SECTION WAS ADDED    OCTOBER  2014
29300C     *****************************************
29301C     **  CHECK FOR PROBE LATEX HEADER FILE  **
29302C     *****************************************
29303C
29304      IF(NUMARG.GE.3.AND. IHARG(1).EQ.'LATE' .AND.
29305     1  IHARG(2).EQ.'HEAD' .AND. IHARG(3).EQ.'FILE')THEN
29306        IFOUND='YES'
29307        IF(IFEEDB.EQ.'ON')THEN
29308          WRITE(ICOUT,999)
29309          CALL DPWRST('XXX','BUG ')
29310          WRITE(ICOUT,1741)
29311 1741     FORMAT('THE LATEX HEADER FILE  = ')
29312          CALL DPWRST('XXX','BUG ')
29313          WRITE(ICOUT,1717)ILATHE
29314          CALL DPWRST('XXX','BUG ')
29315        ENDIF
29316        IPROBS(1:NCLATH)=ILATHE(1:NCLATH)
29317        NCPROB=NCLATH
29318        GOTO8100
29319      ENDIF
29320C
29321CCCCC THE FOLLOWING SECTION WAS ADDED    OCTOBER  2014
29322C     *****************************************
29323C     **  CHECK FOR PROBE LATEX FOOTER FILE  **
29324C     *****************************************
29325C
29326      IF(NUMARG.GE.3.AND. IHARG(1).EQ.'LATE' .AND.
29327     1  IHARG(2).EQ.'FOOT' .AND. IHARG(3).EQ.'FILE')THEN
29328        IFOUND='YES'
29329        IF(IFEEDB.EQ.'ON')THEN
29330          WRITE(ICOUT,999)
29331          CALL DPWRST('XXX','BUG ')
29332          WRITE(ICOUT,1742)
29333 1742     FORMAT('THE LATEX FOOTER FILE  = ')
29334          CALL DPWRST('XXX','BUG ')
29335          WRITE(ICOUT,1717)ILATFO
29336          CALL DPWRST('XXX','BUG ')
29337        ENDIF
29338        IPROBS(1:NCLATF)=ILATFO(1:NCLATF)
29339        NCPROB=NCLATF
29340        GOTO8100
29341      ENDIF
29342C
29343CCCCC THE FOLLOWING SECTION WAS ADDED    OCTOBER  2014
29344C     *****************************************
29345C     **  CHECK FOR PROBE HTML  HEADER FILE  **
29346C     *****************************************
29347C
29348      IF(NUMARG.GE.3.AND. IHARG(1).EQ.'HTML' .AND.
29349     1  IHARG(2).EQ.'HEAD' .AND. IHARG(3).EQ.'FILE')THEN
29350        IFOUND='YES'
29351        IF(IFEEDB.EQ.'ON')THEN
29352          WRITE(ICOUT,999)
29353          CALL DPWRST('XXX','BUG ')
29354          WRITE(ICOUT,1743)
29355 1743     FORMAT('THE HTML HEADER FILE  = ')
29356          CALL DPWRST('XXX','BUG ')
29357          WRITE(ICOUT,1717)IHTMHE
29358          CALL DPWRST('XXX','BUG ')
29359        ENDIF
29360        IPROBS(1:NCHTMH)=IHTMHE(1:NCHTMH)
29361        NCPROB=NCHTMH
29362        GOTO8100
29363      ENDIF
29364C
29365CCCCC THE FOLLOWING SECTION WAS ADDED        SEPTEMBER 2018.
29366C     ******************************************
29367C     **  PROBE WORD DELIMITER                **
29368C     ******************************************
29369C
29370      IPART1='WORD'
29371      IPART2='DELI'
29372      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
29373        IHV=IWRDDL
29374        GOTO5160
29375      ENDIF
29376C
29377CCCCC THE FOLLOWING SECTION WAS ADDED        DECEMBER  2019.
29378C     ******************************************
29379C     **  PROBE SEED                          **
29380C     ******************************************
29381C
29382      IPART1='SEED'
29383      IPART2='    '
29384      IF(IHARG(1).EQ.IPART1)THEN
29385        IV=ISEED
29386        GOTO5150
29387      ENDIF
29388C
29389CCCCC THE FOLLOWING SECTION WAS ADDED        DECEMBER  2019.
29390C     ******************************************
29391C     **  PROBE HOME (OR USER PROFILE)        **
29392C     ******************************************
29393C
29394      IPART1='HOME'
29395      IPART2='    '
29396      IPART3='USER'
29397      IPART4='PROF'
29398      IF((IHARG(1).EQ.IPART1 .AND. IHARG(2).NE.'PATH') .OR.
29399     1   (IHARG(1).EQ.IPART3 .AND. IHARG(2).EQ.IPART4))THEN
29400        IFOUND='YES'
29401        IF(IFEEDB.EQ.'ON')THEN
29402          WRITE(ICOUT,999)
29403          CALL DPWRST('XXX','BUG ')
29404          WRITE(ICOUT,67001)
2940567001     FORMAT('THE HOME (USER PROFILE) VARIABLE = ')
29406          CALL DPWRST('XXX','BUG ')
29407          WRITE(ICOUT,1717)UPROFI
29408          CALL DPWRST('XXX','BUG ')
29409        ENDIF
29410        IPROBS(1:NCUPRO)=UPROFI(1:NCUPRO)
29411        NCPROB=NCUPRO
29412        GOTO8100
29413      ENDIF
29414C
29415CCCCC THE FOLLOWING SECTION WAS ADDED        DECEMBER  2019.
29416C     ******************************************
29417C     **  PROBE USER (OR USER NAME)           **
29418C     ******************************************
29419C
29420      IPART1='USER'
29421      IPART2='    '
29422      IPART3='USER'
29423      IPART4='NAME'
29424      IF((IHARG(1).EQ.IPART1) .OR.
29425     1   (IHARG(1).EQ.IPART3 .AND. IHARG(2).EQ.IPART4))THEN
29426        IFOUND='YES'
29427        IF(IFEEDB.EQ.'ON')THEN
29428          WRITE(ICOUT,999)
29429          CALL DPWRST('XXX','BUG ')
29430          WRITE(ICOUT,67003)
2943167003     FORMAT('THE USER NAME VARIABLE = ')
29432          CALL DPWRST('XXX','BUG ')
29433          WRITE(ICOUT,67004)USRNAM
2943467004     FORMAT(A20)
29435          CALL DPWRST('XXX','BUG ')
29436        ENDIF
29437        IPROBS(1:NCUSER)=USRNAM(1:NCUSER)
29438        NCPROB=NCUSER
29439        GOTO8100
29440      ENDIF
29441C
29442CCCCC THE FOLLOWING SECTION WAS ADDED        DECEMBER  2019.
29443C     *************************************************
29444C     **  PROBE HOST (OR HOST NAME OR COMPUTER NAME) **
29445C     *************************************************
29446C
29447      IPART1='HOST'
29448      IPART2='    '
29449      IPART3='HOST'
29450      IPART4='NAME'
29451      IPART5='COMP'
29452      IPART6='NAME'
29453      IF((IHARG(1).EQ.IPART1) .OR.
29454     1   (IHARG(1).EQ.IPART3 .AND. IHARG(2).EQ.IPART4) .OR.
29455     1   (IHARG(1).EQ.IPART5 .AND. IHARG(2).EQ.IPART6))THEN
29456        IFOUND='YES'
29457        IF(IFEEDB.EQ.'ON')THEN
29458          WRITE(ICOUT,999)
29459          CALL DPWRST('XXX','BUG ')
29460          WRITE(ICOUT,67005)
2946167005     FORMAT('THE HOST NAME VARIABLE = ')
29462          CALL DPWRST('XXX','BUG ')
29463          WRITE(ICOUT,1717)COMNAM
29464          CALL DPWRST('XXX','BUG ')
29465        ENDIF
29466        IPROBS(1:NCCOMP)=COMNAM(1:NCCOMP)
29467        NCPROB=NCCOMP
29468        GOTO8100
29469      ENDIF
29470C
29471CCCCC THE FOLLOWING SECTION WAS ADDED        DECEMBER  2019.
29472C     ******************************************
29473C     **  PROBE DEFAULT PRINTER (LINUX ONLY)  **
29474C     ******************************************
29475C
29476      IPART1='DEFA'
29477      IPART2='PRIN'
29478      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2)THEN
29479        IFOUND='YES'
29480        IF(IFEEDB.EQ.'ON')THEN
29481          WRITE(ICOUT,999)
29482          CALL DPWRST('XXX','BUG ')
29483          WRITE(ICOUT,67007)
2948467007     FORMAT('THE OS DEFAULT PRINTER VARIABLE = ')
29485          CALL DPWRST('XXX','BUG ')
29486          WRITE(ICOUT,1717)DEFPRI
29487          CALL DPWRST('XXX','BUG ')
29488        ENDIF
29489        IPROBS(1:NCPRIN)=DEFPRI(1:NCPRIN)
29490        NCPROB=NCPRIN
29491        GOTO8100
29492      ENDIF
29493C
29494CCCCC THE FOLLOWING SECTION WAS ADDED        DECEMBER  2019.
29495C     **********************************************
29496C     **  PROBE PROGRAM FILES X86 (WINDOWS ONLY)  **
29497C     **********************************************
29498C
29499      IPART1='PROG'
29500      IPART2='FILE'
29501      IPART3='X86 '
29502      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
29503     1   IHARG(3).EQ.IPART3)THEN
29504        IFOUND='YES'
29505        IF(IFEEDB.EQ.'ON')THEN
29506          WRITE(ICOUT,999)
29507          CALL DPWRST('XXX','BUG ')
29508          WRITE(ICOUT,67009)
2950967009     FORMAT('THE WINDOWS Program Files (x86) DIRECTORY = ')
29510          CALL DPWRST('XXX','BUG ')
29511          WRITE(ICOUT,1717)P86FIL
29512          CALL DPWRST('XXX','BUG ')
29513        ENDIF
29514        IPROBS(1:NCP86F)=P86FIL(1:NCP86F)
29515        NCPROB=NCP86F
29516        GOTO8100
29517      ENDIF
29518C
29519CCCCC THE FOLLOWING SECTION WAS ADDED        DECEMBER  2019.
29520C     ******************************************
29521C     **  PROBE PROGRAM FILES (WINDOWS ONLY)  **
29522C     ******************************************
29523C
29524      IPART1='PROG'
29525      IPART2='FILE'
29526      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2)THEN
29527        IFOUND='YES'
29528        IF(IFEEDB.EQ.'ON')THEN
29529          WRITE(ICOUT,999)
29530          CALL DPWRST('XXX','BUG ')
29531          WRITE(ICOUT,67011)
2953267011     FORMAT('THE WINDOWS Program Files DIRECTORY = ')
29533          CALL DPWRST('XXX','BUG ')
29534          WRITE(ICOUT,1717)PROFIL
29535          CALL DPWRST('XXX','BUG ')
29536        ENDIF
29537        IPROBS(1:NCPROF)=PROFIL(1:NCPROF)
29538        NCPROB=NCPROF
29539        GOTO8100
29540      ENDIF
29541C
29542CCCCC THE FOLLOWING SECTION WAS ADDED        DECEMBER  2019.
29543C     ******************************************
29544C     **  PROBE WINDOWS BITS (WINDOWS ONLY)   **
29545C     ******************************************
29546C
29547      IPART1='WIND'
29548      IPART2='BITS'
29549      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2)(1:3).EQ.IPART2(1:3))THEN
29550        IFOUND='YES'
29551        IF(IFEEDB.EQ.'ON')THEN
29552          WRITE(ICOUT,999)
29553          CALL DPWRST('XXX','BUG ')
29554          IF(WINBIT.EQ.'64')THEN
29555            WRITE(ICOUT,67013)
2955667013       FORMAT('WINDOWS 64-BIT MACHINE (WINDOWS ONLY)')
29557            CALL DPWRST('XXX','BUG ')
29558          ELSE
29559            WRITE(ICOUT,67015)
2956067015       FORMAT('WINDOWS 32-BIT MACHINE (WINDOWS ONLY)')
29561            CALL DPWRST('XXX','BUG ')
29562          ENDIF
29563        ENDIF
29564        IPROBS(1:2)=WINBIT(1:2)
29565        NCPROB=2
29566        GOTO8100
29567      ENDIF
29568C
29569CCCCC THE FOLLOWING SECTION WAS ADDED        JANUARY  2019.
29570C     ******************************************
29571C     **  PROBE SHELL         R (LINUX ONLY)  **
29572C     ******************************************
29573C
29574      IPART1='SHEL'
29575      IF(IHARG(1).EQ.IPART1)THEN
29576        IFOUND='YES'
29577        IF(IFEEDB.EQ.'ON')THEN
29578          WRITE(ICOUT,999)
29579          CALL DPWRST('XXX','BUG ')
29580          WRITE(ICOUT,67017)ISHELL
2958167017     FORMAT('THE OS SHELL VARIABLE = ',A20)
29582          CALL DPWRST('XXX','BUG ')
29583        ENDIF
29584        IPROBS(1:NCSHEL)=ISHELL(1:NCSHEL)
29585        NCPROB=NCSHEL
29586        GOTO8100
29587      ENDIF
29588C
29589CCCCC THE FOLLOWING SECTION WAS ADDED        SEPTEMBER 2018.
29590C     ******************************************
29591C     **  PROBE COMMAND SUBSTITUTION          **
29592C     ******************************************
29593C
29594      IPART1='COMM'
29595      IPART2='SUBS'
29596      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
29597        IHV=ISUBSK
29598        GOTO5160
29599      ENDIF
29600C
29601CCCCC THE FOLLOWING SECTION WAS ADDED        JANUARY 2019.
29602C     ******************************************
29603C     **  PROBE SUBSTITUTE FORMAT             **
29604C     ******************************************
29605C
29606      IPART1='SUBS'
29607      IPART2='FORM'
29608      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
29609        IHV=ISUBFM(1:4)
29610        GOTO5160
29611      ENDIF
29612C
29613CCCCC THE FOLLOWING SECTION WAS ADDED        JANUARY 2019.
29614C     ********************************************
29615C     **  PROBE STRING JUSTIFICATION CHARACTER  **
29616C     ********************************************
29617C
29618      IPART1='STRI'
29619      IPART2='JUST'
29620      IPART3='CHAR'
29621      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
29622     1   IHARG(3).EQ.IPART3)THEN
29623        IHV=ISJUCH
29624        GOTO5160
29625      ENDIF
29626C
29627CCCCC THE FOLLOWING SECTION WAS ADDED        FEBRUARY 2019.
29628C     ******************************************
29629C     **  PROBE CLIPBOARD RUN CLEAR           **
29630C     ******************************************
29631C
29632      IPART1='CLIP'
29633      IPART2='RUN '
29634      IPART2='CLEA'
29635      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
29636     1   IHARG(3).EQ.IPART3)THEN
29637        IHV=ICLIRC
29638        GOTO5160
29639      ENDIF
29640C
29641CCCCC THE FOLLOWING SECTION WAS ADDED    JULY  2016
29642C     *****************************************
29643C     **  CHECK FOR PROBE WRITE HEADER FILE  **
29644C     *****************************************
29645C
29646      IF(NUMARG.GE.3.AND. IHARG(1).EQ.'WRIT' .AND.
29647     1  IHARG(2).EQ.'HEAD' .AND. IHARG(3).EQ.'FILE')THEN
29648        IFOUND='YES'
29649        IF(IFEEDB.EQ.'ON')THEN
29650          WRITE(ICOUT,999)
29651          CALL DPWRST('XXX','BUG ')
29652          WRITE(ICOUT,12743)
2965312743     FORMAT('THE WRITE HEADER FILE  = ')
29654          CALL DPWRST('XXX','BUG ')
29655          WRITE(ICOUT,1717)IWRIHE
29656          CALL DPWRST('XXX','BUG ')
29657        ENDIF
29658        IPROBS(1:NCWRIH)=IWRIHE(1:NCWRIH)
29659        NCPROB=NCWRIH
29660        GOTO8100
29661      ENDIF
29662C
29663CCCCC THE FOLLOWING SECTION WAS ADDED    OCTOBER  2014
29664C     *****************************************
29665C     **  CHECK FOR PROBE HTML  FOOTER FILE  **
29666C     *****************************************
29667C
29668      IF(NUMARG.GE.3.AND. IHARG(1).EQ.'HTML' .AND.
29669     1  IHARG(2).EQ.'FOOT' .AND. IHARG(3).EQ.'FILE')THEN
29670        IFOUND='YES'
29671        IF(IFEEDB.EQ.'ON')THEN
29672          WRITE(ICOUT,999)
29673          CALL DPWRST('XXX','BUG ')
29674          WRITE(ICOUT,1744)
29675 1744     FORMAT('THE HTML FOOTER FILE  = ')
29676          CALL DPWRST('XXX','BUG ')
29677          WRITE(ICOUT,1717)HTMTFO
29678          CALL DPWRST('XXX','BUG ')
29679        ENDIF
29680        IPROBS(1:NCHTMF)=IHTMFO(1:NCHTMF)
29681        NCPROB=NCHTMF
29682        GOTO8100
29683      ENDIF
29684C
29685CCCCC THE FOLLOWING SECTION WAS ADDED    OCTOBER  2014
29686C     *****************************************
29687C     **  CHECK FOR PROBE SEARCH DIRECTORY   **
29688C     *****************************************
29689C
29690      IF(NUMARG.GE.2.AND. IHARG(1).EQ.'SEAR' .AND.
29691     1  (IHARG(2).EQ.'DIRE' .OR. IHARG(2).EQ.'PATH'))THEN
29692        IFOUND='YES'
29693        IF(IFEEDB.EQ.'ON')THEN
29694          WRITE(ICOUT,999)
29695          CALL DPWRST('XXX','BUG ')
29696          IF(IHARG2(1).EQ.'CH2 ')THEN
29697            WRITE(ICOUT,21745)
2969821745       FORMAT('THE CURRENT SEARCH2 DIRECTORY = ')
29699            CALL DPWRST('XXX','BUG ')
29700            IPROBS(1:NCSED2)=ISEAD2(1:NCSED2)
29701            NCPROB=NCSED2
29702            IFORMT='(A   )'
29703            WRITE(IFORMT(3:5),'(I3)')NCSED2
29704            WRITE(ICOUT,IFORMT)ISEAD2(1:NCSED2)
29705            CALL DPWRST('XXX','BUG ')
29706          ELSEIF(IHARG2(1).EQ.'CH3 ')THEN
29707            WRITE(ICOUT,31745)
2970831745       FORMAT('THE CURRENT SEARCH3 DIRECTORY = ')
29709            CALL DPWRST('XXX','BUG ')
29710            IPROBS(1:NCSED3)=ISEAD3(1:NCSED3)
29711            NCPROB=NCSED3
29712            IFORMT='(A   )'
29713            WRITE(IFORMT(3:5),'(I3)')NCSED3
29714            WRITE(ICOUT,IFORMT)ISEAD3
29715            CALL DPWRST('XXX','BUG ')
29716          ELSEIF(IHARG2(1).EQ.'CH4 ')THEN
29717            WRITE(ICOUT,41745)
2971841745       FORMAT('THE CURRENT SEARCH4 DIRECTORY = ')
29719            CALL DPWRST('XXX','BUG ')
29720            IPROBS(1:NCSED4)=ISEAD4(1:NCSED4)
29721            NCPROB=NCSED4
29722            IFORMT='(A   )'
29723            WRITE(IFORMT(3:5),'(I3)')NCSED4
29724            WRITE(ICOUT,IFORMT)ISEAD4
29725            CALL DPWRST('XXX','BUG ')
29726          ELSEIF(IHARG2(1).EQ.'CH5 ')THEN
29727            WRITE(ICOUT,51745)
2972851745       FORMAT('THE CURRENT SEARCH5 DIRECTORY = ')
29729            CALL DPWRST('XXX','BUG ')
29730            IPROBS(1:NCSED5)=ISEAD5(1:NCSED5)
29731            NCPROB=NCSED5
29732            IFORMT='(A   )'
29733            WRITE(IFORMT(3:5),'(I3)')NCSED5
29734            WRITE(ICOUT,IFORMT)ISEAD5
29735            CALL DPWRST('XXX','BUG ')
29736          ELSEIF(IHARG2(1).EQ.'CH6 ')THEN
29737            WRITE(ICOUT,61745)
2973861745       FORMAT('THE CURRENT SEARCH6 DIRECTORY = ')
29739            CALL DPWRST('XXX','BUG ')
29740            IPROBS(1:NCSED6)=ISEAD6(1:NCSED6)
29741            NCPROB=NCSED6
29742            IFORMT='(A   )'
29743            WRITE(IFORMT(3:5),'(I3)')NCSED6
29744            WRITE(ICOUT,IFORMT)ISEAD6
29745            CALL DPWRST('XXX','BUG ')
29746          ELSE
29747            WRITE(ICOUT,1745)
29748 1745       FORMAT('THE CURRENT SEARCH DIRECTORY = ')
29749            CALL DPWRST('XXX','BUG ')
29750            IPROBS(1:NCSEDI)=ISEADI(1:NCSEDI)
29751            NCPROB=NCSEDI
29752            IFORMT='(A   )'
29753            WRITE(IFORMT(3:5),'(I3)')NCSEDI
29754            WRITE(ICOUT,IFORMT)ISEADI
29755            CALL DPWRST('XXX','BUG ')
29756          ENDIF
29757        ENDIF
29758        GOTO8100
29759      ENDIF
29760C
29761CCCCC THE FOLLOWING SECTION WAS ADDED    DECEMBER  2015
29762C     *****************************************
29763C     **  CHECK FOR PROBE STANDARD INPUT     **
29764C     *****************************************
29765C
29766      IF(NUMARG.GE.2.AND. IHARG(1).EQ.'STAN' .AND.
29767     1   IHARG(2).EQ.'INPU')THEN
29768        IFOUND='YES'
29769        IF(IFEEDB.EQ.'ON')THEN
29770          WRITE(ICOUT,999)
29771          CALL DPWRST('XXX','BUG ')
29772          IF(ISTDIN.EQ.'NULL')THEN
29773            WRITE(ICOUT,11744)
2977411744       FORMAT('STANDARD INPUT IS FROM THE TERMINAL.')
29775            CALL DPWRST('XXX','BUG ')
29776          ELSE
29777            WRITE(ICOUT,11745)
2977811745       FORMAT('THE CURRENT STANDARD INPUT FILE = ')
29779            CALL DPWRST('XXX','BUG ')
29780            WRITE(ICOUT,1717)ISTDIN
29781            CALL DPWRST('XXX','BUG ')
29782          ENDIF
29783        ENDIF
29784        IPROBS(1:NCSTIN)=ISTDIN(1:NCSTIN)
29785        NCPROB=NCSTIN
29786        GOTO8100
29787      ENDIF
29788C
29789CCCCC THE FOLLOWING SECTION WAS ADDED        DECEMBER 2015
29790C     ********************************************
29791C     **  PROBE MAXIMUM COUNTER STANDARD INPUT  **
29792C     ********************************************
29793C
29794      IPART1='MAXI'
29795      IPART2='COUN'
29796      IPART3='STAN'
29797      IPART4='INPU'
29798      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
29799     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
29800         IV=ISTDCN
29801         GOTO5150
29802      ENDIF
29803C
29804CCCCC THE FOLLOWING SECTION WAS ADDED        OCTOBER 2018
29805C     ********************************************
29806C     **  PROBE IF LEVEL                        **
29807C     ********************************************
29808C
29809      IPART1='IF  '
29810      IPART2='LEVE'
29811      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
29812         IV=NUMIF
29813         GOTO5150
29814      ENDIF
29815C
29816CCCCC THE FOLLOWING SECTION WAS ADDED        DECEMBER 2015
29817C     ********************************************
29818C     **  PROBE DELAY STANDARD INPUT            **
29819C     ********************************************
29820C
29821      IPART1='DELA'
29822      IPART2='STAN'
29823      IPART3='INPU'
29824      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
29825     1   IHARG(3).EQ.IPART3)THEN
29826        AV=PSTDSL
29827        GOTO5170
29828      ENDIF
29829C
29830CCCCC THE FOLLOWING SECTION WAS ADDED        MAY 2016.
29831C     ******************************************
29832C     **  PROBE MACRO QUOTES STRIP            **
29833C     ******************************************
29834C
29835      IPART1='MACR'
29836      IPART2='QUOT'
29837      IPART3='STRI'
29838      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
29839     1   IHARG(3).EQ.IPART3)THEN
29840        IHV=IQUOST
29841        GOTO5160
29842      ENDIF
29843C
29844CCCCC THE FOLLOWING SECTION WAS ADDED        JUNE 2016.
29845C     ******************************************
29846C     **  PROBE HISTOGRAM MAXIMUM CLASSES     **
29847C     ******************************************
29848C
29849      IPART1='HIST'
29850      IPART2='MAXI'
29851      IPART3='CLAS'
29852      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
29853     1   IHARG(3).EQ.IPART3)THEN
29854        IV=IHSTMC
29855        GOTO5150
29856      ENDIF
29857C
29858CCCCC THE FOLLOWING SECTION WAS ADDED        JUNE 2016.
29859C     ******************************************
29860C     **  PROBE STREAM READ SIZE              **
29861C     ******************************************
29862C
29863      IPART1='STRE'
29864      IPART2='READ'
29865      IPART3='SIZE'
29866      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
29867     1   IHARG(3).EQ.IPART3)THEN
29868        IV=ISRESI
29869        GOTO5150
29870      ENDIF
29871C
29872CCCCC FOLLOWING SECTION ADDED JULY          2016.
29873C               *****************************************************
29874C               **  STEP 20.A--                                    **
29875C               **  PROBE STREAM READ GROUP VARIABLE               **
29876C               **        <VARIABLE NAME>                          **
29877C               *****************************************************
29878C
29879      IPART1='STRE'
29880      IPART2='READ'
29881      IPART3='GROU'
29882      IPART4='VARI'
29883      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
29884     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
29885        IFOUND='YES'
29886        WRITE(ICOUT,999)
29887        CALL DPWRST('XXX','BUG ')
29888        WRITE(ICOUT,55271)ISREVN
2988955271   FORMAT('THE STREAM READ GROUP VARIABLE HAS ',
29890     1         'BEEN SET TO ',A8)
29891        CALL DPWRST('XXX','BUG ')
29892        IPROBS=' '
29893        IPROBS(1:8)=ISREVN(1:8)
29894        NCPROB=8
29895        GOTO8100
29896      ENDIF
29897C
29898CCCCC FOLLOWING SECTION ADDED JULY          2016.
29899C               *****************************************************
29900C               **  STEP 20.A--                                    **
29901C               **  PROBE STREAM READ RESPONSE VARIABLE ONE        **
29902C               **  PROBE STREAM READ RESPONSE VARIABLE TWO        **
29903C               **  PROBE STREAM READ RESPONSE VARIABLE THREE      **
29904C               **        <VARIABLE NAME>                          **
29905C               *****************************************************
29906C
29907      IPART1='STRE'
29908      IPART2='READ'
29909      IPART3='RESP'
29910      IPART4='VARI'
29911      IPART5='ONE'
29912      IPART6='TWO'
29913      IPART7='THRE'
29914      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
29915     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
29916        IF(IHARG(5).EQ.IPART5)THEN
29917          IFOUND='YES'
29918          WRITE(ICOUT,999)
29919          CALL DPWRST('XXX','BUG ')
29920          WRITE(ICOUT,55273)ISRER1
2992155273     FORMAT('THE STREAM READ RESPONSE VARIABLE ONE HAS ',
29922     1           'BEEN SET TO ',A8)
29923          CALL DPWRST('XXX','BUG ')
29924          IPROBS=' '
29925          IPROBS(1:8)=ISRER1(1:8)
29926          NCPROB=8
29927          GOTO8100
29928        ELSEIF(IHARG(5).EQ.IPART6)THEN
29929          IFOUND='YES'
29930          WRITE(ICOUT,999)
29931          CALL DPWRST('XXX','BUG ')
29932          WRITE(ICOUT,55274)ISRER2
2993355274     FORMAT('THE STREAM READ RESPONSE VARIABLE TWO HAS ',
29934     1           'BEEN SET TO ',A8)
29935          CALL DPWRST('XXX','BUG ')
29936          IPROBS=' '
29937          IPROBS(1:8)=ISRER2(1:8)
29938          NCPROB=8
29939          GOTO8100
29940        ELSEIF(IHARG(5).EQ.IPART7)THEN
29941          IFOUND='YES'
29942          WRITE(ICOUT,999)
29943          CALL DPWRST('XXX','BUG ')
29944          WRITE(ICOUT,55275)ISRER3
2994555275     FORMAT('THE STREAM READ RESPONSE VARIABLE THREE HAS ',
29946     1           'BEEN SET TO ',A8)
29947          CALL DPWRST('XXX','BUG ')
29948          IPROBS=' '
29949          IPROBS(1:8)=ISRER3(1:8)
29950          NCPROB=8
29951          GOTO8100
29952        ENDIF
29953      ENDIF
29954C
29955CCCCC FOLLOWING SECTION ADDED JULY          2018.
29956C               *****************************************************
29957C               **  STEP 20.A--                                    **
29958C               **  PROBE STREAM READ CROSS TABULATE VARIABLE ONE  **
29959C               **  PROBE STREAM READ CROSS TABULATE VARIABLE TWO  **
29960C               **  PROBE STREAM READ CROSS TABULATE VARIABLE THREE**
29961C               **  PROBE STREAM READ CROSS TABULATE VARIABLE FOUR **
29962C               **        <VARIABLE NAME>                          **
29963C               *****************************************************
29964C
29965      IPART1='STRE'
29966      IPART2='READ'
29967      IPART3='CROS'
29968      IPART4='TABU'
29969      IPART5='VARI'
29970      IPART6='ONE'
29971      IPART7='TWO'
29972      IPART8='THRE'
29973      IPART9='FOUR'
29974      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
29975     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
29976     1   IHARG(5).EQ.IPART5)THEN
29977        IF(IHARG(6).EQ.IPART6)THEN
29978          IFOUND='YES'
29979          WRITE(ICOUT,999)
29980          CALL DPWRST('XXX','BUG ')
29981          WRITE(ICOUT,55283)ISREC1
2998255283     FORMAT('THE STREAM READ CROSS TABULATE VARIABLE ONE HAS ',
29983     1           'BEEN SET TO ',A8)
29984          CALL DPWRST('XXX','BUG ')
29985          IPROBS=' '
29986          IPROBS(1:8)=ISREC1(1:8)
29987          NCPROB=8
29988          GOTO8100
29989        ELSEIF(IHARG(6).EQ.IPART7)THEN
29990          IFOUND='YES'
29991          WRITE(ICOUT,999)
29992          CALL DPWRST('XXX','BUG ')
29993          WRITE(ICOUT,55285)ISREC2
2999455285     FORMAT('THE STREAM READ CROSS TABULATE VARIABLE TWO HAS ',
29995     1           'BEEN SET TO ',A8)
29996          CALL DPWRST('XXX','BUG ')
29997          IPROBS=' '
29998          IPROBS(1:8)=ISREC2(1:8)
29999          NCPROB=8
30000          GOTO8100
30001        ELSEIF(IHARG(6).EQ.IPART8)THEN
30002          IFOUND='YES'
30003          WRITE(ICOUT,999)
30004          CALL DPWRST('XXX','BUG ')
30005          WRITE(ICOUT,55287)ISREC3
3000655287     FORMAT('THE STREAM READ CROSS TABULATE VARIABLE THREE HAS ',
30007     1           'BEEN SET TO ',A8)
30008          CALL DPWRST('XXX','BUG ')
30009          IPROBS=' '
30010          IPROBS(1:8)=ISREC3(1:8)
30011          NCPROB=8
30012          GOTO8100
30013        ELSEIF(IHARG(6).EQ.IPART9)THEN
30014          IFOUND='YES'
30015          WRITE(ICOUT,999)
30016          CALL DPWRST('XXX','BUG ')
30017          WRITE(ICOUT,55289)ISREC4
3001855289     FORMAT('THE STREAM READ CROSS TABULATE VARIABLE FOUR HAS ',
30019     1           'BEEN SET TO ',A8)
30020          CALL DPWRST('XXX','BUG ')
30021          IPROBS=' '
30022          IPROBS(1:8)=ISREC4(1:8)
30023          NCPROB=8
30024          GOTO8100
30025        ENDIF
30026      ENDIF
30027C
30028CCCCC THE FOLLOWING SECTION WAS ADDED        JULY 2018.
30029C     ******************************************
30030C     **  PROBE STREAM READ GROUP LABEL       **
30031C     ******************************************
30032C
30033      IPART1='STRE'
30034      IPART2='READ'
30035      IPART3='GROU'
30036      IPART4='LABE'
30037      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
30038     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
30039        IHV=ISREGL
30040        GOTO5160
30041      ENDIF
30042C
30043CCCCC THE FOLLOWING SECTION WAS ADDED        JULY 2018.
30044C     ******************************************
30045C     **  PROBE STREAM READ VARIABLE TYPE     **
30046C     ******************************************
30047C
30048      IPART1='STRE'
30049      IPART2='READ'
30050      IPART3='VARI'
30051      IPART4='TYPE'
30052      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
30053     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
30054        IHV=ISREVT(1:4)
30055        GOTO5160
30056        IFOUND='YES'
30057        WRITE(ICOUT,999)
30058        CALL DPWRST('XXX','BUG ')
30059        WRITE(ICOUT,55291)ISREVT
3006055291   FORMAT('THE STREAM READ VARIABLE TYPE HAS BEEN SET TO ',A8)
30061        CALL DPWRST('XXX','BUG ')
30062        IPROBS=' '
30063        IPROBS(1:8)=ISREVT(1:8)
30064        NCPROB=8
30065        GOTO8100
30066      ENDIF
30067C
30068CCCCC THE FOLLOWING SECTION WAS ADDED        JUNE 2016.
30069C     **********************************************
30070C     **  PROBE STREAM READ NUMBER OF PERCENTILES **
30071C     **********************************************
30072C
30073      IPART1='STRE'
30074      IPART2='READ'
30075      IPART3='NUMB'
30076      IPART4='OF  '
30077      IPART5='PERC'
30078      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
30079     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
30080     1   IHARG(5).EQ.IPART5)THEN
30081        IV=ISRENP
30082        GOTO5150
30083      ENDIF
30084C
30085CCCCC FOLLOWING SECTION ADDED FEBRUARY      2020.
30086C               *****************************************************
30087C               **  STEP 20.A--                                    **
30088C               **  PROBE EXCEL SHEET <NAME>                       **
30089C               **  PROBE EXCEL NUMBER OF ROWS <VALUE>             **
30090C               **  PROBE EXCEL COLUMN LIST <VAR-NAME>             **
30091C               *****************************************************
30092C
30093      IPART1='EXCE'
30094      IPART2='SHEE'
30095      IPART3='STAR'
30096      IPART4='STOP'
30097      IPART5='ROW '
30098      IPART6='COLU'
30099      IF(IHARG(1).EQ.IPART1)THEN
30100        IF(IHARG(2).EQ.IPART2)THEN
30101          IFOUND='YES'
30102          WRITE(ICOUT,999)
30103          CALL DPWRST('XXX','BUG ')
30104          WRITE(ICOUT,55371)IEXCSH
3010555371     FORMAT('THE EXCEL SHEET NAME HAS BEEN SET TO ',A8)
30106          CALL DPWRST('XXX','BUG ')
30107          IPROBS=' '
30108          IPROBS(1:8)=IEXCSH(1:8)
30109          NCPROB=8
30110          GOTO8100
30111        ELSEIF(IHARG(2).EQ.IPART3 .AND. IHARG(3).EQ.IPART5)THEN
30112          IFOUND='YES'
30113          IV=IEXCR1
30114          GOTO5150
30115        ELSEIF(IHARG(2).EQ.IPART4 .AND. IHARG(3).EQ.IPART5)THEN
30116          IFOUND='YES'
30117          IV=IEXCR2
30118          GOTO5150
30119        ELSEIF(IHARG(2).EQ.IPART3 .AND. IHARG(3).EQ.IPART6)THEN
30120          IFOUND='YES'
30121          IV=IEXCC1
30122          GOTO5150
30123        ELSEIF(IHARG(2).EQ.IPART4 .AND. IHARG(3).EQ.IPART6)THEN
30124          IFOUND='YES'
30125          IV=IEXCC2
30126          GOTO5150
30127        ENDIF
30128      ENDIF
30129C
30130CCCCC THE FOLLOWING SECTION WAS ADDED        JUNE 2016.
30131C     ******************************************
30132C     **  PROBE DATE DELIMITER                **
30133C     ******************************************
30134C
30135      IPART1='DATE'
30136      IPART2='DELI'
30137      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
30138        IHV=IDATDL
30139        GOTO5160
30140      ENDIF
30141C
30142CCCCC THE FOLLOWING SECTION WAS ADDED        JUNE 2016.
30143C     ******************************************
30144C     **  PROBE TIME DELIMITER                **
30145C     ******************************************
30146C
30147      IPART1='TIME'
30148      IPART2='DELI'
30149      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
30150        IHV=ITIMDL
30151        GOTO5160
30152      ENDIF
30153C
30154CCCCC THE FOLLOWING SECTION WAS ADDED        FEBRUARY 2020.
30155C     ******************************************
30156C     **  PROBE INSERT OVERWRITE              **
30157C     ******************************************
30158C
30159      IPART1='INSE'
30160      IPART2='OVER'
30161      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
30162        IHV=IINSOW
30163        GOTO5160
30164      ENDIF
30165C
30166CCCCC THE FOLLOWING SECTION WAS ADDED        MAY 2016.
30167C     ******************************************
30168C     **  PROBE READ IP ADDRESSES             **
30169C     ******************************************
30170C
30171      IPART1='READ'
30172      IPART2='IP  '
30173      IPART3='ADDR'
30174      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
30175     1   IHARG(3).EQ.IPART3)THEN
30176        IHV=IRDIPA
30177        GOTO5160
30178      ENDIF
30179C
30180CCCCC THE FOLLOWING SECTION WAS ADDED    OCTOBER  2016
30181C     *****************************************************
30182C     **  CHECK FOR PROBE COMMAND LINE ARGUMENT  <NAME>  **
30183C     *****************************************************
30184C
30185      IF(NUMARG.GE.3.AND. IHARG(1).EQ.'COMM' .AND.
30186     1  IHARG(2).EQ.'LINE' .AND. IHARG(3).EQ.'ARGU')THEN
30187C
30188C       COMMAND LINE ARGUMENTS ARE CASE SENSITIVE, SO
30189C       EXTRACT FIFTH WORD IN CASE AS ENTERED.
30190C
30191        ISTRIN=' '
30192        ISTRI2=' '
30193        DO12752II=1,IWIDTH
30194          ISTRIN(II:II)=IANSLC(II)(1:1)
3019512752   CONTINUE
30196        ISTART=1
30197        ISTOP=IWIDTH
30198        IWORD=5
30199        CALL DPEXWO(ISTRIN,ISTART,ISTOP,IWORD,
30200     1              ICOL1,ICOL2,ISTRI2,NCSTRI,
30201     1              IBUGS2,ISUBRO,IERROR)
30202C
30203        IFOUND='YES'
30204        IV=0
30205        IF(NUMARG.GE.4 .AND. NMACLA.GE.1)THEN
30206          DO12753II=1,NMACLA
30207            IF(ISTRI2(1:8).EQ.IMACLA(II)(1:8))THEN
30208              IV=1
30209              GOTO5150
30210            ENDIF
3021112753     CONTINUE
30212        ENDIF
30213        GOTO5150
30214      ENDIF
30215C
30216CCCCC THE FOLLOWING SECTION WAS ADDED        FEBRUARY 2019
30217C     **********************************************
30218C     **  PROBE TAB EXPAND                        **
30219C     **        TAB COLOR                <INDEX>  **
30220C     **        TAB JUST                 <INDEX>  **
30221C     **        TAB FONT                 <INDEX>  **
30222C     **        TAB UNITS                <INDEX>  **
30223C     **        TAB SIZE                 <INDEX>  **
30224C     **        TAB HEIGHT               <INDEX>  **
30225C     **        TAB WIDTH                <INDEX>  **
30226C     **        TAB HORIZONTAL POSITION  <INDEX>  **
30227C     **        TAB VERTICAL   POSITION  <INDEX>  **
30228C     **********************************************
30229C
30230      IPART1='TAB '
30231      IPART2='EXPA'
30232      IF(IHARG(1).EQ.IPART2.AND.IHARG(2).EQ.IPART1)THEN
30233        IV=ITABNC
30234        GOTO5150
30235      ENDIF
30236C
30237      IF(IHARG(1).EQ.IPART1)THEN
30238        IF(IHARG(2).EQ.IPART2)THEN
30239          IV=ITABNC
30240          GOTO5150
30241        ELSEIF(IHARG(2).EQ.'COLO')THEN
30242          IF(NUMARG.EQ.2)THEN
30243            IINDX=1
30244          ELSEIF(NUMARG.GT.2)THEN
30245            IINDX=INT(ARG(3)+0.1)
30246          ENDIF
30247          IFOUND='YES'
30248          IF(IFEEDB.EQ.'ON')THEN
30249            WRITE(ICOUT,999)
30250            CALL DPWRST('XXX','BUG ')
30251            WRITE(ICOUT,31101)IINDX,ITABCO(IINDX)
3025231101       FORMAT('THE COLOR FOR TAB ',I3,' IS SET TO ',A4)
30253            CALL DPWRST('XXX','BUG ')
30254          ENDIF
30255          IHV=ITABCO(IINDX)
30256          GOTO5163
30257        ELSEIF(IHARG(2).EQ.'JUST')THEN
30258          IF(NUMARG.EQ.2)THEN
30259            IINDX=1
30260          ELSEIF(NUMARG.GT.2)THEN
30261            IINDX=INT(ARG(3)+0.1)
30262          ENDIF
30263          IFOUND='YES'
30264          IF(IFEEDB.EQ.'ON')THEN
30265            WRITE(ICOUT,999)
30266            CALL DPWRST('XXX','BUG ')
30267            WRITE(ICOUT,31111)IINDX,ITABJU(IINDX)
3026831111       FORMAT('THE JUSTIFICATION FOR TAB ',I3,' IS SET TO ',A4)
30269            CALL DPWRST('XXX','BUG ')
30270          ENDIF
30271          IHV=ITABJU(IINDX)
30272          GOTO5163
30273        ELSEIF(IHARG(2).EQ.'FONT')THEN
30274          IF(NUMARG.EQ.2)THEN
30275            IINDX=1
30276          ELSEIF(NUMARG.GT.2)THEN
30277            IINDX=INT(ARG(3)+0.1)
30278          ENDIF
30279          IFOUND='YES'
30280          IF(IFEEDB.EQ.'ON')THEN
30281            WRITE(ICOUT,999)
30282            CALL DPWRST('XXX','BUG ')
30283            WRITE(ICOUT,31121)IINDX,ITABFO(IINDX)
3028431121       FORMAT('THE FONT FOR TAB ',I3,' IS SET TO ',A4)
30285            CALL DPWRST('XXX','BUG ')
30286          ENDIF
30287          IHV=ITABFO(IINDX)
30288          GOTO5163
30289        ELSEIF(IHARG(2).EQ.'UNIT')THEN
30290          IF(NUMARG.EQ.2)THEN
30291            IINDX=1
30292          ELSEIF(NUMARG.GT.2)THEN
30293            IINDX=INT(ARG(3)+0.1)
30294          ENDIF
30295          IFOUND='YES'
30296          IF(IFEEDB.EQ.'ON')THEN
30297            WRITE(ICOUT,999)
30298            CALL DPWRST('XXX','BUG ')
30299            WRITE(ICOUT,31131)IINDX,ITABUN(IINDX)
3030031131       FORMAT('THE UNITS FOR TAB ',I3,' IS SET TO ',A4)
30301            CALL DPWRST('XXX','BUG ')
30302          ENDIF
30303          IHV=ITABUN(IINDX)
30304          GOTO5163
30305        ELSEIF(IHARG(2).EQ.'VERT' .AND. IHARG(3).EQ.'UNIT')THEN
30306          IF(NUMARG.EQ.3)THEN
30307            IINDX=1
30308          ELSEIF(NUMARG.GT.3)THEN
30309            IINDX=INT(ARG(4)+0.1)
30310          ENDIF
30311          IFOUND='YES'
30312          IF(IFEEDB.EQ.'ON')THEN
30313            WRITE(ICOUT,999)
30314            CALL DPWRST('XXX','BUG ')
30315            WRITE(ICOUT,31191)IINDX,ITABUV(IINDX)
3031631191       FORMAT('THE VERTICAL UNITS FOR TAB ',I3,' IS SET TO ',A4)
30317            CALL DPWRST('XXX','BUG ')
30318          ENDIF
30319          IHV=ITABUV(IINDX)
30320          GOTO5163
30321        ELSEIF(IHARG(2).EQ.'SIZE' .OR. IHARG(2).EQ.'HEIG')THEN
30322          IF(NUMARG.EQ.2)THEN
30323            IINDX=1
30324          ELSEIF(NUMARG.GT.2)THEN
30325            IINDX=INT(ARG(3)+0.1)
30326          ENDIF
30327          IFOUND='YES'
30328          IF(IFEEDB.EQ.'ON')THEN
30329            WRITE(ICOUT,999)
30330            CALL DPWRST('XXX','BUG ')
30331            WRITE(ICOUT,31141)IINDX,PTABHE(IINDX)
3033231141       FORMAT('THE SIZE (HEIGHT) FOR TAB ',I3,' IS SET TO ',F7.2)
30333            CALL DPWRST('XXX','BUG ')
30334          ENDIF
30335          AV=PTABHE(IINDX)
30336          GOTO5173
30337        ELSEIF(IHARG(2).EQ.'WIDT')THEN
30338          IF(NUMARG.EQ.2)THEN
30339            IINDX=1
30340          ELSEIF(NUMARG.GT.2)THEN
30341            IINDX=INT(ARG(3)+0.1)
30342          ENDIF
30343          IFOUND='YES'
30344          IF(IFEEDB.EQ.'ON')THEN
30345            WRITE(ICOUT,999)
30346            CALL DPWRST('XXX','BUG ')
30347            WRITE(ICOUT,31151)IINDX,PTABWI(IINDX)
3034831151       FORMAT('THE WIDTH FOR TAB ',I3,' IS SET TO ',F7.2)
30349            CALL DPWRST('XXX','BUG ')
30350          ENDIF
30351          AV=PTABWI(IINDX)
30352          GOTO5173
30353        ELSEIF(IHARG(2).EQ.'HORI' .AND. IHARG(3).EQ.'POSI')THEN
30354          IF(NUMARG.EQ.3)THEN
30355            IINDX=1
30356          ELSEIF(NUMARG.GT.3)THEN
30357            IINDX=INT(ARG(4)+0.1)
30358          ENDIF
30359          IFOUND='YES'
30360          IF(IFEEDB.EQ.'ON')THEN
30361            WRITE(ICOUT,999)
30362            CALL DPWRST('XXX','BUG ')
30363            WRITE(ICOUT,31161)IINDX,PTABHP(IINDX)
3036431161       FORMAT('THE HORIZONTAL POSITION FOR TAB ',I3,
30365     1             ' IS SET TO ',G15.7)
30366            CALL DPWRST('XXX','BUG ')
30367          ENDIF
30368          AV=PTABHP(IINDX)
30369          GOTO5173
30370        ELSEIF(IHARG(2).EQ.'VERT' .AND. IHARG(3).EQ.'POSI')THEN
30371          IF(NUMARG.EQ.3)THEN
30372            IINDX=1
30373          ELSEIF(NUMARG.GT.3)THEN
30374            IINDX=INT(ARG(4)+0.1)
30375          ENDIF
30376          IFOUND='YES'
30377          IF(IFEEDB.EQ.'ON')THEN
30378            WRITE(ICOUT,999)
30379            CALL DPWRST('XXX','BUG ')
30380            WRITE(ICOUT,31171)IINDX,PTABVP(IINDX)
3038131171       FORMAT('THE VERTICAL POSITION FOR TAB ',I3,
30382     1             ' IS SET TO ',G15.7)
30383            CALL DPWRST('XXX','BUG ')
30384          ENDIF
30385          AV=PTABVP(IINDX)
30386        ENDIF
30387      ENDIF
30388C
30389CCCCC THE FOLLOWING SECTION WAS ADDED        JUNE 2016.
30390C     ******************************************
30391C     **  PROBE HISTOGRAM OUTLIERS POINTS     **
30392C     ******************************************
30393C
30394      IPART1='HIST'
30395      IPART2='OUTL'
30396      IPART3='POIN'
30397      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
30398     1   IHARG(3).EQ.IPART3)THEN
30399        IHV=IHSTOP
30400        GOTO5160
30401      ENDIF
30402C
30403CCCCC FOLLOWING SECTION ADDED JANUARY       2010.
30404C               ***************************************
30405C               **  STEP 20.A--                      **
30406C               **  PROBE HISTOGRAM OUTLIERS         **
30407C               ***************************************
30408C
30409      IPART1='HIST'
30410      IPART2='OUTL'
30411      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
30412        IHV=IHSTOU
30413        GOTO5160
30414      ENDIF
30415C
30416CCCCC THE FOLLOWING SECTION WAS ADDED        JUNE 2016.
30417C     ******************************************
30418C     **  PROBE BOX PLOT EXTREME PERCENTILS   **
30419C     ******************************************
30420C
30421      IPART1='BOX '
30422      IPART2='PLOT'
30423      IPART3='EXTR'
30424      IPART4='PERC'
30425      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
30426     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
30427        IHV=IBXPDI
30428        GOTO5160
30429      ENDIF
30430C
30431CCCCC THE FOLLOWING SECTION WAS ADDED        JUNE 2016.
30432C     **********************************************************
30433C     **  PROBE QUANTILE QUANTILE PLOT BOOTSTRAP              **
30434C     **********************************************************
30435C
30436      IPART1='QUAN'
30437      IPART2='QUAN'
30438      IPART3='PLOT'
30439      IPART4='BOOT'
30440      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
30441     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
30442        IHV=IQQBOO
30443        GOTO5160
30444      ENDIF
30445C
30446      IPART1='QQ'
30447      IPART2='PLOT'
30448      IPART3='BOOT'
30449      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
30450     1   IHARG(3).EQ.IPART3)THEN
30451        IHV=IQQBOO
30452        GOTO5160
30453      ENDIF
30454C
30455CCCCC THE FOLLOWING SECTION WAS ADDED        JUNE 2016.
30456C     **********************************************************
30457C     **  PROBE QUANTILE QUANTILE PLOT NUMBER OF PERCENTILES  **
30458C     **********************************************************
30459C
30460      IPART1='QUAN'
30461      IPART2='QUAN'
30462      IPART3='PLOT'
30463      IPART4='NUMB'
30464      IPART5='OF  '
30465      IPART6='PERC'
30466      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
30467     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
30468     1   IHARG(5).EQ.IPART5.AND.IHARG(6).EQ.IPART6)THEN
30469        IV=IQQNPR
30470        GOTO5150
30471      ENDIF
30472C
30473      IPART1='QQ'
30474      IPART2='PLOT'
30475      IPART3='NUMB'
30476      IPART4='OF  '
30477      IPART5='PERC'
30478      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
30479     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
30480     1   IHARG(5).EQ.IPART5)THEN
30481        IV=IQQNPR
30482        GOTO5150
30483      ENDIF
30484C
30485CCCCC THE FOLLOWING SECTION WAS ADDED        JUNE 2016.
30486C     **********************************************************
30487C     **  PROBE TWO SAMPLE TESTS NUMBER OF PERCENTILES        **
30488C     **********************************************************
30489C
30490      IPART1='TWO '
30491      IPART2='SAMP'
30492      IPART3='TEST'
30493      IPART4='NUMB'
30494      IPART5='OF  '
30495      IPART6='PERC'
30496      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
30497     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
30498     1   IHARG(5).EQ.IPART5.AND.IHARG(6).EQ.IPART6)THEN
30499        IV=I2SNPR
30500        GOTO5150
30501      ENDIF
30502C
30503      IPART1='2   '
30504      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
30505     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
30506     1   IHARG(5).EQ.IPART5.AND.IHARG(6).EQ.IPART6)THEN
30507        IV=I2SNPR
30508        GOTO5150
30509      ENDIF
30510C
30511CCCCC THE FOLLOWING SECTION WAS ADDED        JUNE 2016.
30512C     ******************************************
30513C     **  PROBE CHECK NAME OUTPUT             **
30514C     ******************************************
30515C
30516      IPART1='CHEC'
30517      IPART2='NAME'
30518      IPART3='OUTP'
30519      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
30520     1   IHARG(3).EQ.IPART3)THEN
30521        IHV=ICHKNA
30522        GOTO5160
30523      ENDIF
30524C
30525CCCCC THE FOLLOWING SECTION WAS ADDED        FEBRUARY 2018.
30526C     ******************************************
30527C     **  PROBE CHECK LENGTH OUTPUT           **
30528C     ******************************************
30529C
30530      IPART1='CHEC'
30531      IPART2='LENG'
30532      IPART3='OUTP'
30533      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
30534     1   IHARG(3).EQ.IPART3)THEN
30535        IHV=ICHKLE
30536        GOTO5160
30537      ENDIF
30538C
30539CCCCC THE FOLLOWING SECTION WAS ADDED        APRIL 2018.
30540C     ******************************************
30541C     **  PROBE WEB SEARCH DATAPLOT <ON/OFF>  **
30542C     ******************************************
30543C
30544      IPART1='WEB '
30545      IPART2='SEAR'
30546      IPART3='DATA'
30547      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
30548     1   IHARG(3).EQ.IPART3)THEN
30549        IHV=IWBSDP
30550        GOTO5160
30551      ENDIF
30552C
30553CCCCC THE FOLLOWING SECTION WAS ADDED        APRIL 2018.
30554C     ************************************************
30555C     **  PROBE COMMAND LINE EXECUTE WAIT <ON/OFF>  **
30556C     ************************************************
30557C
30558      IPART1='COMM'
30559      IPART2='LINE'
30560      IPART3='EXEC'
30561      IPART4='WAIT'
30562      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
30563     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
30564        IHV=ICLEWT
30565        GOTO5160
30566      ENDIF
30567C
30568CCCCC THE FOLLOWING SECTION WAS ADDED        JUNE 2016.
30569C     ******************************************
30570C     **  PROBE STATUS DISTINCT               **
30571C     ******************************************
30572C
30573      IPART1='STAT'
30574      IPART2='DIST'
30575      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
30576        IHV=ISTADS
30577        GOTO5160
30578      ENDIF
30579C
30580CCCCC THE FOLLOWING SECTION WAS ADDED        DECEMBER 2013.
30581C     ******************************************
30582C     **  PROBE GHOSTSCRIPT VERSION           **
30583C     ******************************************
30584C
30585      IPART1='GHOS'
30586      IPART2='VERS'
30587      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
30588        IHV=IGSTVR
30589        GOTO5160
30590      ENDIF
30591C
30592CCCCC THE FOLLOWING SECTION WAS ADDED    NOVEMBER 2010
30593C     *****************************************
30594C     **  CHECK FOR PROBE GHOSTSCRIPT PATH   **
30595C     *****************************************
30596C
30597      IF(NUMARG.GE.2.AND.
30598     1  IHARG(1).EQ.'GHOS' .AND. IHARG2(1).EQ.'TSCR' .AND.
30599     1  IHARG(2).EQ.'PATH')THEN
30600        IFOUND='YES'
30601        IF(IFEEDB.EQ.'ON')THEN
30602          WRITE(ICOUT,999)
30603          CALL DPWRST('XXX','BUG ')
30604          WRITE(ICOUT,1746)
30605 1746     FORMAT('THE CURRENT GHOSTSCRIPT DIRECTORY = ')
30606          CALL DPWRST('XXX','BUG ')
30607          WRITE(ICOUT,1717)IGSTPA
30608          CALL DPWRST('XXX','BUG ')
30609        ENDIF
30610        IPROBS(1:NCGHPA)=IGSTPA(1:NCGHPA)
30611        NCPROB=NCGHPA
30612        GOTO8100
30613      ENDIF
30614C
30615CCCCC THE FOLLOWING SECTION WAS ADDED    NOVEMBER 2010
30616C     *****************************************
30617C     **  CHECK FOR PROBE GHOSTVIEW   PATH   **
30618C     *****************************************
30619C
30620      IF(NUMARG.GE.2.AND.
30621     1  IHARG(1).EQ.'GHOS' .AND. IHARG2(1).EQ.'TVIE' .AND.
30622     1  IHARG(2).EQ.'PATH')THEN
30623        IFOUND='YES'
30624        WRITE(ICOUT,999)
30625        CALL DPWRST('XXX','BUG ')
30626        IF(IFEEDB.EQ.'ON')THEN
30627          WRITE(ICOUT,1756)
30628 1756     FORMAT('THE CURRENT GHOSTVIEW DIRECTORY = ')
30629          CALL DPWRST('XXX','BUG ')
30630          WRITE(ICOUT,1717)IGSVPA
30631          CALL DPWRST('XXX','BUG ')
30632        ENDIF
30633        IPROBS(1:NCGSPA)=IGSVPA(1:NCGSPA)
30634        NCPROB=NCGSPA
30635        GOTO8100
30636      ENDIF
30637C
30638CCCCC THE FOLLOWING SECTION WAS ADDED    JANUARY 2019
30639C     *****************************************
30640C     **  CHECK FOR PROBE PYTHON      PATH   **
30641C     *****************************************
30642C
30643      IF(NUMARG.GE.2.AND.
30644     1  IHARG(1).EQ.'PYTH' .AND. IHARG(2).EQ.'PATH')THEN
30645        IFOUND='YES'
30646        IF(IFEEDB.EQ.'ON')THEN
30647          WRITE(ICOUT,999)
30648          CALL DPWRST('XXX','BUG ')
30649          WRITE(ICOUT,1757)
30650 1757     FORMAT('THE CURRENT PYTHON DIRECTORY = ')
30651          CALL DPWRST('XXX','BUG ')
30652          WRITE(ICOUT,1717)IPYTPA
30653          CALL DPWRST('XXX','BUG ')
30654        ENDIF
30655        IPROBS(1:NCPYTH)=IPYTPA(1:NCPYTH)
30656        NCPROB=NCPYTH
30657        GOTO8100
30658      ENDIF
30659C
30660CCCCC THE FOLLOWING SECTION WAS ADDED    NOVEMBER 2019
30661C     *****************************************
30662C     **  CHECK FOR PROBE R           PATH   **
30663C     *****************************************
30664C
30665      IF(NUMARG.GE.2.AND.
30666     1  IHARG(1).EQ.'R   ' .AND. IHARG(2).EQ.'PATH')THEN
30667        IFOUND='YES'
30668        IF(IFEEDB.EQ.'ON')THEN
30669          WRITE(ICOUT,999)
30670          CALL DPWRST('XXX','BUG ')
30671          WRITE(ICOUT,31757)
3067231757     FORMAT('THE CURRENT R DIRECTORY = ')
30673          CALL DPWRST('XXX','BUG ')
30674          WRITE(ICOUT,1717)IRRRPA
30675          CALL DPWRST('XXX','BUG ')
30676        ENDIF
30677        IPROBS(1:NCRPAT)=IRRRPA(1:NCRPAT)
30678        NCPROB=NCRPAT
30679        GOTO8100
30680      ENDIF
30681C
30682CCCCC THE FOLLOWING SECTION WAS ADDED    MARCH 2019
30683C     *****************************************
30684C     **  CHECK FOR PROBE EDITOR             **
30685C     *****************************************
30686C
30687      IF(NUMARG.GE.1.AND.
30688     1  IHARG(1).EQ.'EDIT')THEN
30689        IFOUND='YES'
30690        IF(IFEEDB.EQ.'ON')THEN
30691          WRITE(ICOUT,999)
30692          CALL DPWRST('XXX','BUG ')
30693          WRITE(ICOUT,1759)
30694 1759     FORMAT('THE CURRENT EDITOR IS = ')
30695          CALL DPWRST('XXX','BUG ')
30696          WRITE(ICOUT,1717)IEDITR
30697          CALL DPWRST('XXX','BUG ')
30698        ENDIF
30699        IPROBS(1:NCEDIT)=IEDITR(1:NCEDIT)
30700        NCPROB=NCEDIT
30701        GOTO8100
30702      ENDIF
30703C
30704CCCCC THE FOLLOWING SECTION WAS ADDED        JANUARY 2019.
30705C     ******************************************
30706C     **  PROBE PYTHON      VERSION           **
30707C     ******************************************
30708C
30709      IPART1='PYTH'
30710      IPART2='VERS'
30711      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
30712        IHV=IPYTVR
30713        GOTO5160
30714      ENDIF
30715C
30716CCCCC THE FOLLOWING SECTION WAS ADDED    AUGUST 2011
30717C     *****************************************
30718C     **  CHECK FOR PROBE POSTSCRIPT VIEWER  **
30719C     *****************************************
30720C
30721      IF(NUMARG.GE.2.AND.
30722     1  IHARG(1).EQ.'POST' .AND. IHARG(2).EQ.'VIEW')THEN
30723        IFOUND='YES'
30724        WRITE(ICOUT,999)
30725        CALL DPWRST('XXX','BUG ')
30726        IF(IFEEDB.EQ.'ON')THEN
30727          WRITE(ICOUT,1758)
30728 1758     FORMAT('THE CURRENT POSTSCRIPT VIEWER = ')
30729          CALL DPWRST('XXX','BUG ')
30730          WRITE(ICOUT,1717)IPSTVW
30731          CALL DPWRST('XXX','BUG ')
30732        ENDIF
30733        IPROBS(1:NCPSVW)=IPSTVW(1:NCPSVW)
30734        NCPROB=NCPSVW
30735        GOTO8100
30736      ENDIF
30737C
30738CCCCC THE FOLLOWING SECTION WAS ADDED    DECEMBER 2019
30739C     *****************************************
30740C     **  CHECK FOR PROBE PDF        VIEWER  **
30741C     *****************************************
30742C
30743      IF(NUMARG.GE.2.AND.
30744     1  IHARG(1).EQ.'PDF ' .AND. IHARG(2).EQ.'VIEW')THEN
30745        IFOUND='YES'
30746        WRITE(ICOUT,999)
30747        CALL DPWRST('XXX','BUG ')
30748        IF(IFEEDB.EQ.'ON')THEN
30749          WRITE(ICOUT,18758)
3075018758     FORMAT('THE CURRENT PDF VIEWER = ')
30751          CALL DPWRST('XXX','BUG ')
30752          WRITE(ICOUT,1717)IPDFVW
30753          CALL DPWRST('XXX','BUG ')
30754        ENDIF
30755        IPROBS(1:NCPDVW)=IPDFVW(1:NCPDVW)
30756        NCPROB=NCPDVW
30757        GOTO8100
30758      ENDIF
30759C
30760CCCCC THE FOLLOWING SECTION WAS ADDED    DECEMBER 2019
30761C     *****************************************
30762C     **  CHECK FOR PROBE IMAGE      VIEWER  **
30763C     *****************************************
30764C
30765      IF(NUMARG.GE.2.AND.
30766     1  IHARG(1).EQ.'IMAG' .AND. IHARG(2).EQ.'VIEW')THEN
30767        IFOUND='YES'
30768        WRITE(ICOUT,999)
30769        CALL DPWRST('XXX','BUG ')
30770        IF(IFEEDB.EQ.'ON')THEN
30771          WRITE(ICOUT,18759)
3077218759     FORMAT('THE CURRENT IMAGE VIEWER = ')
30773          CALL DPWRST('XXX','BUG ')
30774          WRITE(ICOUT,1717)IIMAVW
30775          CALL DPWRST('XXX','BUG ')
30776        ENDIF
30777        IPROBS(1:NCIMVW)=IIMAVW(1:NCIMVW)
30778        NCPROB=NCIMVW
30779        GOTO8100
30780      ENDIF
30781C
30782CCCCC THE FOLLOWING SECTION WAS ADDED    DECEMBER 2019
30783C     *****************************************
30784C     **  CHECK FOR PROBE BACKUP     VIEWER  **
30785C     *****************************************
30786C
30787      IF(NUMARG.GE.2.AND.
30788     1  IHARG(1).EQ.'BACK' .AND. IHARG(2).EQ.'VIEW')THEN
30789        IFOUND='YES'
30790        WRITE(ICOUT,999)
30791        CALL DPWRST('XXX','BUG ')
30792        IF(IFEEDB.EQ.'ON')THEN
30793          WRITE(ICOUT,18769)
3079418769     FORMAT('THE CURRENT BACKUP VIEWER = ')
30795          CALL DPWRST('XXX','BUG ')
30796          WRITE(ICOUT,1717)IBCKVW
30797          CALL DPWRST('XXX','BUG ')
30798        ENDIF
30799        IPROBS(1:NCBKVW)=IBCKVW(1:NCBKVW)
30800        NCPROB=NCBKVW
30801        GOTO8100
30802      ENDIF
30803C
30804CCCCC THE FOLLOWING SECTION WAS ADDED        NOVEMBER 2019.
30805C     ******************************************
30806C     **  PROBE LIST NEW WINDOW <ON/OFF>      **
30807C     ******************************************
30808C
30809      IPART1='LIST'
30810      IPART2='NEW '
30811      IPART3='WIND'
30812      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
30813     1   IHARG(3).EQ.IPART3)THEN
30814        IHV=ILSTNW
30815        GOTO5160
30816      ENDIF
30817C
30818CCCCC THE FOLLOWING SECTION WAS ADDED        NOVEMBER 2019.
30819C     ******************************************
30820C     **  PROBE HELP NEW WINDOW <ON/OFF>      **
30821C     ******************************************
30822C
30823      IPART1='HELP'
30824      IPART2='NEW '
30825      IPART3='WIND'
30826      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
30827     1   IHARG(3).EQ.IPART3)THEN
30828        IHV=IHLPNW
30829        GOTO5160
30830      ENDIF
30831C
30832CCCCC THE FOLLOWING SECTION WAS ADDED    NOVEMBER 2019
30833C     *****************************************
30834C     **  CHECK FOR PROBE LIST       VIEWER  **
30835C     *****************************************
30836C
30837      IF(NUMARG.GE.2.AND.
30838     1  IHARG(1).EQ.'LIST' .AND. IHARG(2).EQ.'VIEW')THEN
30839        IFOUND='YES'
30840        WRITE(ICOUT,999)
30841        CALL DPWRST('XXX','BUG ')
30842        DO11751II=80,1,-1
30843          IF(ILSTVW(II:II).NE.' ')THEN
30844            NCLSVW=II
30845            GOTO11753
30846          ENDIF
3084711751   CONTINUE
30848        NCLSVW=1
3084911753   CONTINUE
30850        IF(IFEEDB.EQ.'ON')THEN
30851          WRITE(ICOUT,11759)
3085211759     FORMAT('THE CURRENT LIST VIEWER = ')
30853          CALL DPWRST('XXX','BUG ')
30854          WRITE(ICOUT,1717)ILSTVW
30855          CALL DPWRST('XXX','BUG ')
30856        ENDIF
30857        IPROBS(1:NCLSVW)=ILSTVW(1:NCLSVW)
30858        NCPROB=NCLSVW
30859        GOTO8100
30860      ENDIF
30861C
30862CCCCC THE FOLLOWING SECTION WAS ADDED    NOVEMBER 2019
30863C     *****************************************
30864C     **  CHECK FOR PROBE LIST LAUNCHER      **
30865C     *****************************************
30866C
30867      IF(NUMARG.GE.2.AND.
30868     1  IHARG(1).EQ.'LIST' .AND. IHARG(2).EQ.'LAUN')THEN
30869        IFOUND='YES'
30870        WRITE(ICOUT,999)
30871        CALL DPWRST('XXX','BUG ')
30872        DO11851II=80,1,-1
30873          IF(ILSTLA(II:II).NE.' ')THEN
30874            NCLSLA=II
30875            GOTO11853
30876          ENDIF
3087711851   CONTINUE
30878        NCLSLA=1
3087911853   CONTINUE
30880        IF(IFEEDB.EQ.'ON')THEN
30881          WRITE(ICOUT,11859)
3088211859     FORMAT('THE CURRENT LIST LAUNCHER = ')
30883          CALL DPWRST('XXX','BUG ')
30884          WRITE(ICOUT,1717)ILSTLA
30885          CALL DPWRST('XXX','BUG ')
30886        ENDIF
30887        IPROBS(1:NCLSLA)=ILSTLA(1:NCLSLA)
30888        NCPROB=NCLSLA
30889        GOTO8100
30890      ENDIF
30891C
30892CCCCC THE FOLLOWING SECTION WAS ADDED    NOVEMBER 2019
30893C     *****************************************
30894C     **  CHECK FOR PROBE EXCEL      VIEWER  **
30895C     *****************************************
30896C
30897      IF(NUMARG.GE.2.AND.
30898     1  IHARG(1).EQ.'EXCE' .AND. IHARG(2).EQ.'VIEW')THEN
30899        IFOUND='YES'
30900        WRITE(ICOUT,999)
30901        CALL DPWRST('XXX','BUG ')
30902        DO11051II=80,1,-1
30903          IF(IEXCVW(II:II).NE.' ')THEN
30904            NCEXVW=II
30905            GOTO11053
30906          ENDIF
3090711051   CONTINUE
30908        NCEXVW=1
3090911053   CONTINUE
30910        IF(IFEEDB.EQ.'ON')THEN
30911          WRITE(ICOUT,11009)
3091211009     FORMAT('THE CURRENT EXCEL VIEWER = ')
30913          CALL DPWRST('XXX','BUG ')
30914          WRITE(ICOUT,1717)IEXCVW
30915          CALL DPWRST('XXX','BUG ')
30916        ENDIF
30917        IPROBS(1:NCEXVW)=IEXCVW(1:NCEXVW)
30918        NCPROB=NCEXVW
30919        GOTO8100
30920      ENDIF
30921C
30922CCCCC THE FOLLOWING SECTION WAS ADDED    NOVEMBER 2019
30923C     *****************************************
30924C     **  CHECK FOR PROBE WORD       VIEWER  **
30925C     *****************************************
30926C
30927      IF(NUMARG.GE.2.AND.
30928     1  IHARG(1).EQ.'WORD' .AND. IHARG(2).EQ.'VIEW')THEN
30929        IFOUND='YES'
30930        WRITE(ICOUT,999)
30931        CALL DPWRST('XXX','BUG ')
30932        DO11151II=80,1,-1
30933          IF(IWORVW(II:II).NE.' ')THEN
30934            NCWOVW=II
30935            GOTO11153
30936          ENDIF
3093711151   CONTINUE
30938        NCWOVW=1
3093911153   CONTINUE
30940        IF(IFEEDB.EQ.'ON')THEN
30941          WRITE(ICOUT,11719)
3094211719     FORMAT('THE CURRENT WORD VIEWER = ')
30943          CALL DPWRST('XXX','BUG ')
30944          WRITE(ICOUT,1717)IWORVW
30945          CALL DPWRST('XXX','BUG ')
30946        ENDIF
30947        IPROBS(1:NCWOVW)=IWORVW(1:NCWOVW)
30948        NCPROB=NCWOVW
30949        GOTO8100
30950      ENDIF
30951C
30952CCCCC THE FOLLOWING SECTION WAS ADDED    NOVEMBER 2019
30953C     *****************************************
30954C     **  CHECK FOR PROBE POWER POINT VIEWER **
30955C     *****************************************
30956C
30957      IF(NUMARG.GE.3.AND.
30958     1  IHARG(1).EQ.'POWE' .AND. IHARG(2).EQ.'POIN' .AND.
30959     1  IHARG(3).EQ.'VIEW')THEN
30960        IFOUND='YES'
30961        WRITE(ICOUT,999)
30962        CALL DPWRST('XXX','BUG ')
30963        DO11211II=80,1,-1
30964          IF(IPPTVW(II:II).NE.' ')THEN
30965            NCPPVW=II
30966            GOTO11253
30967          ENDIF
3096811211   CONTINUE
30969        NCPPVW=1
3097011253   CONTINUE
30971        IF(IFEEDB.EQ.'ON')THEN
30972          WRITE(ICOUT,11209)
3097311209     FORMAT('THE CURRENT POWER POINT VIEWER = ')
30974          CALL DPWRST('XXX','BUG ')
30975          WRITE(ICOUT,1717)IPPTVW
30976          CALL DPWRST('XXX','BUG ')
30977        ENDIF
30978        IPROBS(1:NCPPVW)=IPPTVW(1:NCPPVW)
30979        NCPROB=NCPPVW
30980        GOTO8100
30981      ENDIF
30982C
30983C               *********************************************
30984C               **  STEP 18--                              **
30985C               **  DEFINE SOME VARIABLES                  **
30986C               **  FOR THE GENERAL CASE                   **
30987C               *********************************************
30988C
30989      IV=IARG(NUMARG)
30990      AV=ARG(NUMARG)
30991      IHV=IHARG(NUMARG)
30992      IHV2=IHARG2(NUMARG)
30993C
30994CCCCC THE FOLLOWING SECTION WAS ADDED        MAY 2009.
30995C     ******************************************
30996C     **  PROBE NAME TABLE                    **
30997C     ******************************************
30998C
30999      IPART1='NAME'
31000      IPART2='TABL'
31001      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
31002         IF(IFEEDB.EQ.'OFF')GOTO9000
31003         WRITE(ICOUT,1731)NUMNAM
31004 1731    FORMAT('THE NUMBER OF DEFINED NAMES = ',I8)
31005         CALL DPWRST('XXX','BUG ')
31006         DO1733I=1,NUMNAM
31007           WRITE(ICOUT,1735)I,IHNAME(I),IHNAM2(I),IN(I),VALUE(I)
31008 1735      FORMAT('I,IHNAME(I),IHNAM2(I),IN(I),VALUE(I)=',
31009     1            I8,2X,2A4,2X,I8,2X,G15.7)
31010         CALL DPWRST('XXX','BUG ')
31011 1733    CONTINUE
31012         IFOUND='YES'
31013         GOTO9000
31014      ENDIF
31015C
31016CCCCC THE FOLLOWING SECTION WAS ADDED        OCTOBER 2015.
31017C     ******************************************
31018C     **  PROBE LOOP LINES                    **
31019C     **  PROBE LOOP STATUS                   **
31020C     ******************************************
31021C
31022      IPART1='LOOP'
31023      IPART2='STAT'
31024      IPART3='LINE'
31025      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
31026        IHV=ILOOST
31027        GOTO5160
31028      ELSEIF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART3)THEN
31029         IFOUND='YES'
31030         IF(IFEEDB.EQ.'ON')THEN
31031           WRITE(ICOUT,61731)ILOOLI
3103261731      FORMAT('THE NUMBER OF LOOP LINES = ',I8)
31033           CALL DPWRST('XXX','BUG ')
31034           IF(ILOOLI.GE.1)THEN
31035             DO61733I=1,ILOOLI
31036               WRITE(ICOUT,61735)I,(IANSLO(I,J)(1:1),J=1,80)
3103761735          FORMAT('I,IANSLO(I,*)=',I8,2X,80A1)
31038               CALL DPWRST('XXX','BUG ')
3103961733        CONTINUE
31040           ENDIF
31041         ENDIF
31042         IFOUND='YES'
31043         GOTO9000
31044       ENDIF
31045C
31046CCCCC THE FOLLOWING SECTION WAS ADDED        JULY 1995.
31047C     ******************************************
31048C     **  PROBE FIT ITERATIONS (#)            **
31049C     ******************************************
31050C
31051      IPART1='FIT'
31052      IPART2='ITER'
31053      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
31054         IV=IFITIT
31055         GOTO5150
31056      ENDIF
31057C
31058CCCCC THE FOLLOWING SECTION WAS ADDED        JULY 1995.
31059C     ******************************************
31060C     **  PROBE FIT STANDARD DEVIATION (#)    **
31061C     ******************************************
31062C
31063      IPART1='FIT '
31064      IPART2='STAN'
31065      IPART3='DEVI'
31066      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
31067         IF(IHARG(3).EQ.IPART3)THEN
31068            AV=FITSD
31069            GOTO5170
31070         ENDIF
31071      ENDIF
31072C
31073      IPART1='FIT '
31074      IPART2='SD'
31075      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
31076         AV=FITSD
31077         GOTO5170
31078      ENDIF
31079C
31080CCCCC THE FOLLOWING SECTION WAS ADDED        JULY 1995.
31081C     ********************************************
31082C     **  PROBE FIT ADDITIVE CONSTANT (ON/OFF)  **
31083C     ********************************************
31084C
31085      IPART1='FIT '
31086      IPART2='ADDI'
31087      IPART3='CONS'
31088      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
31089         IF(IHARG(3).EQ.IPART3)THEN
31090            IHV=IFITAC
31091            GOTO5160
31092         ENDIF
31093      ENDIF
31094C
31095      IPART1='FIT '
31096      IPART2='CONS'
31097      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
31098         IHV=IFITAC
31099         GOTO5160
31100      ENDIF
31101C
31102CCCCC FOLLOWING SECTION ADDED APRIL 1995.
31103C               *******************************
31104C               **  STEP 20.A--              **
31105C               **  PROBE UNFORMATTED COLUMNS**
31106C               *******************************
31107C
31108      IPART1='UNFO'
31109      IPART2='COLU'
31110      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)IV=IUNFMC
31111      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)GOTO5150
31112C
31113CCCCC FOLLOWING SECTION ADDED APRIL 1995.
31114C               *******************************
31115C               **  STEP 20.A--              **
31116C               **  PROBE UNFORMATTED RECORDS**
31117C               *******************************
31118C
31119      IPART1='UNFO'
31120      IPART2='COLU'
31121      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)IV=IUNFNR
31122      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)GOTO5150
31123C
31124CCCCC FOLLOWING SECTION ADDED APRIL 1995.
31125C               *******************************
31126C               **  STEP 20.A--              **
31127C               **  PROBE UNFORMATTED OFFSET **
31128C               *******************************
31129C
31130      IPART1='UNFO'
31131      IPART2='COLU'
31132      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)IV=IUNFOF
31133      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)GOTO5150
31134C
31135CCCCC THE FOLLOWING SECTION WAS ADDED    FEBRUARY 1996
31136C     ****************************************
31137C     **  CHECK FOR PROBE MENU PATH         **
31138C     ****************************************
31139C
31140      IF(NUMARG.GE.2.AND.IHARG(1).EQ.'MENU'
31141     1.AND.IHARG(2).EQ.'PATH')THEN
31142         IF(NCMPAT.GE.1)THEN
31143            IFOUND='YES'
31144            IF(IFEEDB.EQ.'OFF')GOTO9000
31145            WRITE(ICOUT,999)
31146            CALL DPWRST('XXX','BUG ')
31147            WRITE(ICOUT,1816)
31148 1816       FORMAT('THE CURRENT PATH FOR THE DATAPLOT MENU = ')
31149            CALL DPWRST('XXX','BUG ')
31150            WRITE(ICOUT,1817)MPATH
31151 1817       FORMAT(A80)
31152            CALL DPWRST('XXX','BUG ')
31153            WRITE(ICOUT,1818)NCMPAT
31154 1818       FORMAT('THE NUMBER OF CHARACTERS IN THE MENU PATH ',
31155     1      'NAME = ')
31156            CALL DPWRST('XXX','BUG ')
31157            IPROBS(1:NCMPAT)=MPATH(1:NCMPAT)
31158            NCPROB=NCMPAT
31159            GOTO8100
31160         ELSE IF(NCMPAT.LE.0)THEN
31161            IFOUND='YES'
31162            IF(IFEEDB.EQ.'OFF')GOTO9000
31163            WRITE(ICOUT,999)
31164            CALL DPWRST('XXX','BUG ')
31165            WRITE(ICOUT,1826)
31166 1826       FORMAT('THE CURRENT PATH FOR THE DATAPLOT MENU = ')
31167            CALL DPWRST('XXX','BUG ')
31168            WRITE(ICOUT,1827)
31169 1827       FORMAT('EMPTY (= NO PATH)')
31170            CALL DPWRST('XXX','BUG ')
31171            WRITE(ICOUT,1828)NCMPAT
31172 1828       FORMAT('THE NUMBER OF CHARACTERS IN THE MENU PATH ',
31173     1      'NAME = ')
31174            CALL DPWRST('XXX','BUG ')
31175            GOTO9000
31176         ENDIF
31177      ENDIF
31178C
31179CCCCC FOLLOWING SECTION ADDED MARCH 1996.
31180C               *******************************
31181C               **  STEP 20.A--              **
31182C               **  PROBE RELATIVE HISTOGRAM **
31183C               *******************************
31184C
31185      IPART1='RELA'
31186      IPART2='HIST'
31187      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)IHV=IRHSTG
31188      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)GOTO5160
31189C
31190CCCCC FOLLOWING SECTION ADDED APRIL 1997.
31191C               *******************************
31192C               **  STEP 20.A--              **
31193C               **  PROBE CONTROL CHART WEIGHT*
31194C               *******************************
31195C
31196      IPART1='CONT'
31197      IPART2='CHAR'
31198      IPART3='WEIG'
31199      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
31200     1IHARG(3).EQ.IPART3)THEN
31201        IHV=ICCHPR
31202        GOTO5160
31203      ENDIF
31204C
31205CCCCC FOLLOWING SECTION ADDED MAY 1998.
31206C               *******************************
31207C               **  STEP 20.A--              **
31208C               **  PROBE KAPLAN MEIER       **
31209C               *******************************
31210C
31211      IPART1='KAPL'
31212      IPART2='MEIE'
31213      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
31214        IHV=IKAPSW
31215        GOTO5160
31216      ENDIF
31217      IF(IHARG(1).EQ.IPART1)THEN
31218        IHV=IKAPSW
31219        GOTO5160
31220      ENDIF
31221C
31222CCCCC FOLLOWING SECTION ADDED SEPTEMBER 1998.
31223C               *******************************
31224C               **  STEP 20.A--              **
31225C               **  PROBE PERCENT POINT PLOT **
31226C               *******************************
31227C
31228      IPART1='PERC'
31229      IPART2='POIN'
31230      IPART3='PLOT'
31231      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
31232     1   IHARG(3).EQ.IPART3)THEN
31233        IHV=IPPTBI
31234        GOTO5160
31235      ENDIF
31236C
31237CCCCC FOLLOWING SECTION ADDED FEBRUARY 2012.
31238C               *******************************
31239C               **  STEP 20.A--              **
31240C               **  PROBE PIE CHART          **
31241C               *******************************
31242C
31243      IPART1='PIE '
31244      IPART2='CHAR'
31245      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
31246        IHV=IPIEBI
31247        GOTO5160
31248      ENDIF
31249C
31250CCCCC FOLLOWING SECTION ADDED SEPTEMBER 1998.
31251C               ***********************************
31252C               **  STEP 20.A--                  **
31253C               **  PROBE QUANTILE-QUANTILE PLOT **
31254C               ***********************************
31255C
31256      IPART1='QUAN'
31257      IPART2='QUAN'
31258      IPART3='PLOT'
31259      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
31260     1   IHARG(3).EQ.IPART3)THEN
31261        IHV=IQQPBI
31262        GOTO5160
31263      ENDIF
31264C
31265CCCCC FOLLOWING SECTION ADDED JULY 1999.
31266C               ***********************************
31267C               **  STEP 20.A--                  **
31268C               **  PROBE AUTOCORRELATION BAND   **
31269C               ***********************************
31270C
31271      IPART1='AUTO'
31272      IPART2='BAND'
31273      IPART3='PLOT'
31274      IF(IHARG(1).EQ.IPART1.AND.(IHARG(2).EQ.IPART2.OR.
31275     1   IHARG(2).EQ.IPART3))THEN
31276        IHV=IAUTCP
31277        GOTO5160
31278      ENDIF
31279C
31280CCCCC FOLLOWING SECTION ADDED FEBRUARY 2003.
31281C               ***************************************
31282C               **  STEP 20.A--                      **
31283C               **  PROBE AUTOCORRELATION LAG ZERO   **
31284C               ***************************************
31285C
31286      IPART1='AUTO'
31287      IPART2='LAG'
31288      IPART3='ZERO'
31289      IPART4='0'
31290      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
31291     1  (IHARG(3).EQ.IPART3.OR.IHARG(3).EQ.IPART4))THEN
31292        IHV=IAUTL0
31293        GOTO5160
31294      ENDIF
31295C
31296CCCCC FOLLOWING SECTION ADDED MARCH 2003.
31297C               ***************************************
31298C               **  STEP 20.A--                      **
31299C               **  PROBE PARALLEL COORDINATES STAND **
31300C               ***************************************
31301C
31302      IPART1='PARA'
31303      IPART2='COOR'
31304      IPART3='STAN'
31305      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
31306     1  IHARG(3).EQ.IPART3)THEN
31307        IHV=IPCCST
31308        GOTO5160
31309      ENDIF
31310C
31311CCCCC FOLLOWING SECTION ADDED MARCH 2003.
31312C               ***************************************
31313C               **  STEP 20.A--                      **
31314C               **  PROBE BOOTSTRAP GROUPS           **
31315C               ***************************************
31316C
31317      IPART1='BOOT'
31318      IPART2='GROU'
31319      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
31320        IHV=IBOOGR
31321        GOTO5160
31322      ENDIF
31323C
31324CCCCC FOLLOWING SECTION ADDED MAY 2003.
31325C               ***************************************
31326C               **  STEP 20.A--                      **
31327C               **  PROBE MULTIVARIATE NORMAL        **
31328C               ***************************************
31329C
31330      IPART1='MULT'
31331      IPART2='NORM'
31332      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
31333        IHV=IMVNTY
31334        GOTO5160
31335      ENDIF
31336C
31337CCCCC FOLLOWING SECTION ADDED SEPTEMBER 2003.
31338C               ***************************************
31339C               **  STEP 20.A--                      **
31340C               **  PROBE TABLE BORDER               **
31341C               ***************************************
31342C
31343      IPART1='TABL'
31344      IPART2='BORD'
31345      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
31346        IHV=ITABBR
31347        GOTO5160
31348      ENDIF
31349C
31350CCCCC FOLLOWING SECTION ADDED JULY 2010.
31351C               ***************************************
31352C               **  STEP 20.A--                      **
31353C               **  PROBE TABLE HEADER               **
31354C               ***************************************
31355C
31356      IPART1='TABL'
31357      IPART2='HEAD'
31358      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
31359        IHV=ITABHD
31360        GOTO5160
31361      ENDIF
31362C
31363CCCCC FOLLOWING SECTION ADDED SEPTEMBER 2003.
31364C               ***************************************
31365C               **  STEP 20.A--                      **
31366C               **  PROBE TABLE SPACING              **
31367C               ***************************************
31368C
31369      IPART1='TABL'
31370      IPART2='SPAC'
31371      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
31372        IV=ITABSP
31373        GOTO5150
31374      ENDIF
31375C
31376CCCCC FOLLOWING SECTION ADDED SEPTEMBER 2003.
31377C               ***************************************
31378C               **  STEP 20.A--                      **
31379C               **  PROBE TABLE WIDTH                **
31380C               ***************************************
31381C
31382      IPART1='TABL'
31383      IPART2='WIDT'
31384      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
31385        IV=ITABWD
31386        GOTO5150
31387      ENDIF
31388C
31389CCCCC FOLLOWING SECTION ADDED SEPTEMBER 2003.
31390C               ***************************************
31391C               **  STEP 20.A--                      **
31392C               **  PROBE TABLE HEIGHT               **
31393C               ***************************************
31394C
31395      IPART1='TABL'
31396      IPART2='HEIG'
31397      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
31398        IV=ITABHT
31399        GOTO5150
31400      ENDIF
31401C
31402CCCCC FOLLOWING SECTION ADDED SEPTEMBER 2003.
31403C               ***************************************
31404C               **  STEP 20.A--                      **
31405C               **  PROBE TABLE TITLE                **
31406C               ***************************************
31407C
31408      IPART1='TABL'
31409      IPART2='TITL'
31410      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
31411        IF(NCTABT.GT.0)THEN
31412          WRITE(ICOUT,7230)
31413 7230     FORMAT('THE CURRENT TABLE TITLE IS:')
31414          CALL DPWRST('XXX','BUG ')
31415          WRITE(ICOUT,7232)(ITABTI(I:I),I=1,MIN(80,NCTABT))
31416 7232     FORMAT(A80)
31417          CALL DPWRST('XXX','BUG ')
31418          GOTO9000
31419        ELSE
31420          WRITE(ICOUT,7234)
31421 7234     FORMAT('THE CURRENT TABLE TITLE IS CURRENTLY UNDEFINED.')
31422          CALL DPWRST('XXX','BUG ')
31423        ENDIF
31424        GOTO9000
31425      ENDIF
31426C
31427CCCCC FOLLOWING SECTION ADDED FEBRUARY  2005.
31428C               ***************************************
31429C               **  STEP 20.A--                      **
31430C               **  PROBE RTF FIXED FONT             **
31431C               ***************************************
31432C
31433      IPART1='RTF '
31434      IPART2='FIXE'
31435      IPART3='FONT'
31436      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
31437     1   IHARG(3).EQ.IPART3)THEN
31438        IF(NCRTF1.GT.0)THEN
31439          WRITE(ICOUT,7240)
31440 7240     FORMAT('THE CURRENT RTF FIXED FONT IS:')
31441          CALL DPWRST('XXX','BUG ')
31442          WRITE(ICOUT,7242)(IRTFFF(I:I),I=1,MIN(40,NCRTF1))
31443 7242     FORMAT(A40)
31444          CALL DPWRST('XXX','BUG ')
31445          GOTO9000
31446        ELSE
31447          WRITE(ICOUT,7244)
31448 7244     FORMAT('THE CURRENT RTF FIXED FONT IS CURRENTLY UNDEFINED.')
31449          CALL DPWRST('XXX','BUG ')
31450        ENDIF
31451        GOTO9000
31452      ENDIF
31453C
31454CCCCC FOLLOWING SECTION ADDED FEBRUARY  2005.
31455C               ***************************************
31456C               **  STEP 20.A--                      **
31457C               **  PROBE RTF PROPORTIONAL FONT      **
31458C               ***************************************
31459C
31460      IPART1='RTF '
31461      IPART2='PROP'
31462      IPART3='FONT'
31463      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
31464     1   IHARG(3).EQ.IPART3)THEN
31465        IF(NCRTF2.GT.0)THEN
31466          WRITE(ICOUT,7250)
31467 7250     FORMAT('THE CURRENT RTF PROPORTIONAL FONT IS:')
31468          CALL DPWRST('XXX','BUG ')
31469          WRITE(ICOUT,7252)(IRTFFP(I:I),I=1,MIN(40,NCRTF2))
31470 7252     FORMAT(A40)
31471          CALL DPWRST('XXX','BUG ')
31472          GOTO9000
31473        ELSE
31474          WRITE(ICOUT,7254)
31475 7254     FORMAT('THE CURRENT RTF PROPORTIONAL FONT IS CURRENTLY ',
31476     1           'UNDEFINED.')
31477          CALL DPWRST('XXX','BUG ')
31478        ENDIF
31479        GOTO9000
31480      ENDIF
31481C
31482CCCCC FOLLOWING SECTION ADDED JANUARY   2004.
31483C               ***************************************
31484C               **  STEP 20.A--                      **
31485C               **  PROBE READ VARIABLE LABEL        **
31486C               ***************************************
31487C
31488      IPART1='READ'
31489      IPART2='VARI'
31490      IPART3='LABE'
31491      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
31492     1   IHARG(3).EQ.IPART3)THEN
31493        IHV=IVARLA
31494        GOTO5160
31495      ENDIF
31496C
31497CCCCC FOLLOWING SECTION ADDED JANUARY   2004.
31498C               ***************************************
31499C               **  STEP 20.A--                      **
31500C               **  PROBE CONVERT CHARACTER          **
31501C               ***************************************
31502C
31503      IPART1='CONV'
31504      IPART2='CHAR'
31505      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
31506        IHV=IGRPAU
31507        GOTO5160
31508      ENDIF
31509C
31510CCCCC FOLLOWING SECTION ADDED JUNE 2018
31511C               ***********************************************
31512C               **  PROBE ROW LABEL COLUMN                   **
31513C               ***********************************************
31514C
31515      IPART1='ROW '
31516      IPART2='LABE'
31517      IPART3='COLU'
31518      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
31519     1   IHARG(3).EQ.IPART3)THEN
31520        IV=IRWLCO
31521        GOTO5150
31522      ENDIF
31523C
31524CCCCC FOLLOWING SECTION ADDED NOVEMBER 2019
31525C               ***********************************************
31526C               **  PROBE OUTPUT LINE NUMBERS                **
31527C               ***********************************************
31528C
31529      IPART1='OUTP'
31530      IPART2='LINE'
31531      IPART3='NUMB'
31532      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
31533     1   IHARG(3).EQ.IPART3)THEN
31534        IHV=IOUTLN
31535        GOTO5160
31536      ENDIF
31537C
31538CCCCC FOLLOWING SECTION ADDED JULY 2018
31539C               ***********************************************
31540C               **  PROBE KERNEL DENSITY RANDOM NUMBERS      **
31541C               ***********************************************
31542C
31543      IPART1='KERN'
31544      IPART2='DENS'
31545      IPART3='RAN'
31546      IPART4='NUMB'
31547      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
31548     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
31549        IV=IKDERN
31550        GOTO5150
31551      ENDIF
31552C
31553CCCCC FOLLOWING SECTION ADDED JULY   2018.
31554C               *************************************************
31555C               **  STEP 20.A--                                **
31556C               **  PROBE KERNEL DENSITY PROBABILITY FUNCTION  **
31557C               *************************************************
31558C
31559      IPART1='KERN'
31560      IPART2='DENS'
31561      IPART3='PROB'
31562      IPART4='FUNC'
31563      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
31564     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
31565        IHV=IKDEPF
31566        GOTO5160
31567      ENDIF
31568C
31569CCCCC FOLLOWING SECTION ADDED MARCH   2004.
31570C               ***************************************
31571C               **  STEP 20.A--                      **
31572C               **  PROBE GEOMETRIC DEFINITION       **
31573C               ***************************************
31574C
31575      IPART1='GEOM'
31576      IPART2='DEFI'
31577      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
31578        IHV=IGEODF
31579        GOTO5160
31580      ENDIF
31581C
31582CCCCC FOLLOWING SECTION ADDED MAY     2006.
31583C               ***************************************
31584C               **  STEP 20.A--                      **
31585C               **  PROBE BETA GEOMETRIC DEFINITION  **
31586C               ***************************************
31587C
31588      IPART1='BETA'
31589      IPART2='GEOM'
31590      IPART3='DEFI'
31591      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
31592     1   IHARG(3).EQ.IPART3)THEN
31593        IHV=IBGEDF
31594        GOTO5160
31595      ENDIF
31596C
31597CCCCC FOLLOWING SECTION ADDED JULY    2006.
31598C               ***************************************
31599C               **  STEP 20.A--                      **
31600C               **  PROBE GEETA          DEFINITION  **
31601C               ***************************************
31602C
31603      IPART1='GEET'
31604      IPART2='DEFI'
31605      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
31606        IHV=IGETDF
31607        GOTO5160
31608      ENDIF
31609C
31610CCCCC FOLLOWING SECTION ADDED AUGUST  2006.
31611C               ***************************************
31612C               **  STEP 20.A--                      **
31613C               **  PROBE CONSUL         DEFINITION  **
31614C               ***************************************
31615C
31616      IPART1='CONS'
31617      IPART2='DEFI'
31618      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
31619        IHV=ICONDF
31620        GOTO5160
31621      ENDIF
31622C
31623CCCCC FOLLOWING SECTION ADDED JANUARY 2007.
31624C               ***************************************
31625C               **  STEP 20.A--                      **
31626C               **  PROBE GOMPERTZ       DEFINITION  **
31627C               ***************************************
31628C
31629      IPART1='GOMP'
31630      IPART2='DEFI'
31631      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
31632        IHV=IGOMDF
31633        GOTO5160
31634      ENDIF
31635C
31636CCCCC FOLLOWING SECTION ADDED JULY  2008
31637C               *****************************************************
31638C               **  STEP 20.A--                                    **
31639C               **  PROBE GENERALZIED INVERSE GAUSSIAN DEFINITION  **
31640C               *****************************************************
31641C
31642      IPART1='GENE'
31643      IPART2='INVE'
31644      IPART3='GAUS'
31645      IPART4='DEFI'
31646      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
31647     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
31648        IHV=IGIGDF
31649        GOTO5160
31650      ENDIF
31651C
31652CCCCC FOLLOWING SECTION ADDED JANUARY 2007.
31653C               ***************************************
31654C               **  STEP 20.A--                      **
31655C               **  PROBE KATZ           DEFINITION  **
31656C               ***************************************
31657C
31658      IPART1='KATZ'
31659      IPART2='DEFI'
31660      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
31661        IHV=IKATDF
31662        GOTO5160
31663      ENDIF
31664C
31665CCCCC FOLLOWING SECTION ADDED JUNE     2006.
31666C               ***************************************
31667C               **  STEP 20.A--                      **
31668C               **  PROBE FORTRAN FORMAT CONTROL     **
31669C               ***************************************
31670C
31671      IPART1='FORT'
31672      IPART2='FORM'
31673      IPART3='CONT'
31674      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
31675     1   IHARG(3).EQ.IPART3)THEN
31676        IHV=IFORFM
31677        GOTO5160
31678      ENDIF
31679C
31680CCCCC FOLLOWING SECTION ADDED JUNE     2006.
31681C               *********************************************
31682C               **  STEP 20.A--                            **
31683C               **  THE FOLLOWING SECTION IS FOR THE       **
31684C               **  MEAN COMMAND.  YOU CAN TURN EACH       **
31685C               **  OF THE METHODS ON INDIVIDUALLY.        **
31686C               **  PROBE MANDEL PAULE                     **
31687C               **  PROBE MODIFIED MANDEL PAULE            **
31688C               **  PROBE VANGEL RUHKIN BOOTSTRAP          **
31689C               **  PROBE VANGEL RUHKIN                    **
31690C               **  PROBE BOB                              **
31691C               **  PROBE SCHILLER EBERHARDT               **
31692C               **  PROBE MEAN   OF MEANS                  **
31693C               **  PROBE MEDIAN OF MEANS                  **
31694C               **  PROBE TRIMMED MEAN OF MEANS            **
31695C               **  PROBE GRAYBILL DEAL                    **
31696C               **  PROBE GRAND MEAN                       **
31697C               **  PROBE GENERALIZED CONFIDENCE INTERVALS **
31698C               **  PROBE DERSIMONIAN LAIRD HHD            **
31699C               **  PROBE DERSIMONIAN LAIRD MINMAX         **
31700C               **  PROBE DERSIMONIAN LAIRD BOOTSTRAP      **
31701C               **  PROBE DERSIMONIAN LAIRD                **
31702C               **  PROBE FAIRWEATHER                      **
31703C               *********************************************
31704C
31705      IPART1='MAND'
31706      IPART2='PAUL'
31707      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
31708        IHV=IMMPCM
31709        GOTO5160
31710      ENDIF
31711C
31712      IPART1='MODI'
31713      IPART2='MAND'
31714      IPART3='PAUL'
31715      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
31716     1   IHARG(3).EQ.IPART3)THEN
31717        IHV=IMPACM
31718        GOTO5160
31719      ENDIF
31720C
31721      IPART1='VANG'
31722      IPART2='RUHK'
31723      IPART3='RUKH'
31724      IPART4='BOOT'
31725      IF(IHARG(1).EQ.IPART1.AND.
31726     1   (IHARG(2).EQ.IPART2.OR.IHARG(2).EQ.IPART3).AND.
31727     1   IHARG(3).EQ.IPART4)THEN
31728        IHV=IVRBCM
31729        GOTO5160
31730      ENDIF
31731      IPART1='RUHK'
31732      IPART2='VANG'
31733      IPART3='RUKH'
31734      IPART4='BOOT'
31735      IF((IHARG(1).EQ.IPART1.OR.IHARG(1).EQ.IPART3).AND.
31736     1  IHARG(2).EQ.IPART2.AND.IHARG(3).EQ.'BOOT')THEN
31737        IHV=IVRBCM
31738        GOTO5160
31739      ENDIF
31740      IPART1='MAXI'
31741      IPART2='LIKE'
31742      IPART3='BOOT'
31743      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
31744     1   IHARG(3).EQ.IPART3)THEN
31745        IHV=IVRBCM
31746        GOTO5160
31747      ENDIF
31748C
31749      IPART1='VANG'
31750      IPART2='RUHK'
31751      IPART3='RUKH'
31752      IF(IHARG(1).EQ.IPART1.AND.
31753     1   (IHARG(2).EQ.IPART2.OR.IHARG(2).EQ.IPART3))THEN
31754        IHV=IVRUCM
31755        GOTO5160
31756      ENDIF
31757      IPART1='RUHK'
31758      IPART2='VANG'
31759      IPART3='RUKH'
31760      IF((IHARG(1).EQ.IPART1.OR.IHARG(1).EQ.IPART3).AND.
31761     1  IHARG(2).EQ.IPART2)THEN
31762        IHV=IVRUCM
31763        GOTO5160
31764      ENDIF
31765      IPART1='MAXI'
31766      IPART2='LIKE'
31767      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
31768        IHV=IVRUCM
31769        GOTO5160
31770      ENDIF
31771C
31772      IPART1='BOB '
31773      IF(IHARG(1).EQ.IPART1)THEN
31774        IHV=IBOBCM
31775        GOTO5160
31776      ENDIF
31777C
31778      IPART1='SCHI'
31779      IPART2='EBER'
31780      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
31781        IHV=ISCECM
31782        GOTO5160
31783      ENDIF
31784C
31785      IPART1='MEAN'
31786      IPART2='OF  '
31787      IPART3='MEAN'
31788      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
31789     1   IHARG(3).EQ.IPART3)THEN
31790        IHV=IMOMCM
31791        GOTO5160
31792      ENDIF
31793C
31794      IPART1='MEDI'
31795      IPART2='OF  '
31796      IPART3='MEAN'
31797      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
31798     1   IHARG(3).EQ.IPART3)THEN
31799        IHV=IMEMCM
31800        GOTO5160
31801      ENDIF
31802C
31803      IPART1='TRIM'
31804      IPART2='MEAN'
31805      IPART3='OF  '
31806      IPART4='MEAN'
31807      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
31808     1   IHARG(3).EQ.IPART3.AND.IHARG(2).EQ.IPART4)THEN
31809        IHV=ITRMCM
31810        GOTO5160
31811      ENDIF
31812C
31813      IPART1='HUBE'
31814      IPART2='MEAN'
31815      IPART3='OF  '
31816      IPART4='MEAN'
31817      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
31818     1   IHARG(3).EQ.IPART3.AND.IHARG(2).EQ.IPART4)THEN
31819        IHV=IHUBCM
31820        GOTO5160
31821      ENDIF
31822C
31823      IPART1='GRAY'
31824      IPART2='DEAL'
31825      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
31826        IHV=IGRDCM
31827        GOTO5160
31828      ENDIF
31829C
31830      IPART1='GRAN'
31831      IPART2='MEAN'
31832      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
31833        IHV=IGMECM
31834        GOTO5160
31835      ENDIF
31836C
31837      IPART1='GENE'
31838      IPART2='CONF'
31839      IPART3='INTE'
31840      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
31841     1   IHARG(3).EQ.IPART3)THEN
31842        IHV=IGCICM
31843        GOTO5160
31844      ENDIF
31845C
31846      IPART1='DERS'
31847      IPART2='LAIR'
31848      IPART3='HHD'
31849      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
31850     1   IHARG(3).EQ.IPART3)THEN
31851        IHV=IDS2CM
31852        GOTO5160
31853      ENDIF
31854C
31855      IPART1='DERS'
31856      IPART2='LAIR'
31857      IPART3='MINM'
31858      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
31859     1   IHARG(3).EQ.IPART3)THEN
31860        IHV=IDS3CM
31861        GOTO5160
31862      ENDIF
31863C
31864      IPART1='DERS'
31865      IPART2='LAIR'
31866      IPART3='BOOT'
31867      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
31868     1   IHARG(3).EQ.IPART3)THEN
31869        IHV=IDS4CM
31870        GOTO5160
31871      ENDIF
31872C
31873      IPART1='DERS'
31874      IPART2='LAIR'
31875      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
31876        IHV=IDSLCM
31877        GOTO5160
31878      ENDIF
31879C
31880      IPART1='FAIR'
31881      IF(IHARG(1).EQ.IPART1)THEN
31882        IHV=IFAICM
31883        GOTO5160
31884      ENDIF
31885C
31886      IPART1='BAYE'
31887      IPART2='CONS'
31888      IPART3='PROC'
31889      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
31890     1   IHARG(3).EQ.IPART3)THEN
31891        IHV=IBCPCM
31892        GOTO5160
31893      ENDIF
31894C
31895CCCCC FOLLOWING SECTION ADDED FEBRUARY 2007
31896C               ***********************************************
31897C               **  PROBE BINOMIAL CONTINUITY CORRECTION     **
31898C               ***********************************************
31899C
31900      IPART1='BINO'
31901      IPART2='CONT'
31902      IPART3='CORR'
31903      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
31904     1   IHARG(3).EQ.IPART3)THEN
31905        IHV=IBINCC
31906        GOTO5160
31907      ENDIF
31908C
31909CCCCC FOLLOWING SECTION ADDED APRIL 2008
31910C               ***********************************************
31911C               **  PROBE BINOMIAL TAIL                      **
31912C               ***********************************************
31913C
31914      IPART1='BINO'
31915      IPART2='TAIL'
31916      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
31917        IHV=IBINTA
31918        GOTO5160
31919      ENDIF
31920C
31921CCCCC FOLLOWING SECTION ADDED APRIL 2007
31922C               ***********************************************
31923C               **  PROBE FATAL ERROR                        **
31924C               ***********************************************
31925C
31926      IPART1='FATA'
31927      IPART2='ERRO'
31928      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
31929        IHV=IERRFA
31930        GOTO5160
31931      ENDIF
31932C
31933CCCCC FOLLOWING SECTION ADDED OCTOBER 2015
31934C               ***********************************************
31935C               **  PROBE WARNING ERROR                      **
31936C               ***********************************************
31937C
31938      IPART1='WARN'
31939      IPART2='ERRO'
31940      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
31941        IHV=IERRWA
31942        GOTO5160
31943      ENDIF
31944C
31945CCCCC FOLLOWING SECTION ADDED MAY 2007
31946C               ***********************************************
31947C               **  PROBE POISSON PLOT LEVEL                 **
31948C               ***********************************************
31949C
31950      IPART1='POIS'
31951      IPART2='PLOT'
31952      IPART3='LEVE'
31953      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
31954     1   IHARG(3).EQ.IPART3)THEN
31955        IHV=IPOILV
31956        GOTO5160
31957      ENDIF
31958C
31959CCCCC FOLLOWING SECTION ADDED APRIL 2008
31960C               ***********************************************
31961C               **  PROBE FIT METHOD                         **
31962C               ***********************************************
31963C
31964      IPART1='FIT '
31965      IPART2='METH'
31966      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
31967        IHV=IFITME
31968        GOTO5160
31969      ENDIF
31970C
31971CCCCC FOLLOWING SECTION ADDED JUNE 2014
31972C               ***********************************************
31973C               **  PROBE FIT AUXILLARY FILES                **
31974C               ***********************************************
31975C
31976      IPART1='FIT '
31977      IPART2='AUXI'
31978      IPART3='FILE'
31979      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
31980     1   IHARG(3).EQ.IPART3)THEN
31981        IHV=IFITAU
31982        GOTO5160
31983      ENDIF
31984C
31985CCCCC FOLLOWING SECTION ADDED JULY 2014
31986C               ***********************************************
31987C               **  PROBE NORMAL PLOT AXES                   **
31988C               ***********************************************
31989C
31990      IPART1='NORM'
31991      IPART2='PLOT'
31992      IPART3='AXES'
31993      IPART4='AXIS'
31994      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
31995     1  (IHARG(3).EQ.IPART3 .OR. IHARG(3).EQ.IPART4))THEN
31996        IHV=INPLAX
31997        GOTO5160
31998      ENDIF
31999C
32000CCCCC FOLLOWING SECTION ADDED AUGUST 2014
32001C               ***********************************************
32002C               **  PROBE LATEX RESIZE                       **
32003C               ***********************************************
32004C
32005      IPART1='LATE'
32006      IPART2='RESI'
32007      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
32008        IHV=ILATRS
32009        GOTO5160
32010      ENDIF
32011C
32012CCCCC FOLLOWING SECTION ADDED SEPTEMBER 2014
32013C               ***********************************************
32014C               **  PROBE CIRCLE CORRECTION                  **
32015C               ***********************************************
32016C
32017      IPART1='CIRC'
32018      IPART2='CORR'
32019      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
32020        IHV=ICIRCR
32021        GOTO5160
32022      ENDIF
32023C
32024CCCCC FOLLOWING SECTION ADDED APRIL 2007
32025C
32026CCCCC FOLLOWING SECTION ADDED SEPTEMBER 2007
32027C               ***********************************************
32028C               **  PROBE IERROR                             **
32029C               ***********************************************
32030C
32031      IPART1='IERR'
32032      IPART2='OR  '
32033      IPART3='ERRO'
32034      IF(IHARG(1).EQ.IPART1.OR.IHARG(1).EQ.IPART3)THEN
32035        IV=0
32036        IF(IERRST.EQ.'YES')IV=1
32037        IF(IERRST.EQ.'ON')IV=1
32038        GOTO5150
32039      ENDIF
32040C
32041CCCCC FOLLOWING SECTION ADDED MAY 2007
32042C               ***********************************************
32043C               **  PROBE BINARY TABULATION PLOT GROUP NAME  **
32044C               ***********************************************
32045C
32046      IPART1='BINA'
32047      IPART2='TABU'
32048      IPART3='PLOT'
32049      IPART4='GROU'
32050      IPART5='NAME'
32051      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
32052     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
32053     1   IHARG(5).EQ.IPART5)THEN
32054        IFOUND='YES'
32055        WRITE(ICOUT,999)
32056        CALL DPWRST('XXX','BUG ')
32057        WRITE(ICOUT,51611)IPART1,IPART2,PART3,IPART4,IPART5,IBTAGN
3205851611   FORMAT('THE FORTRAN COMMON CHARACTER ',4(A4,1X),A4,
32059     1         ' HAS THE SETTING     ',A8)
32060        CALL DPWRST('XXX','BUG ')
32061        IPROBS=' '
32062        IPROBS(1:8)=IBTAGN(1:8)
32063        NCPROB=8
32064        GOTO8100
32065      ENDIF
32066C
32067CCCCC FOLLOWING SECTION ADDED MARCH   2004.
32068C               ***********************************************
32069C               **  STEP 20.A--                              **
32070C               **  PROBE HYPERGEOMETRIC MAXIMUM LIKELIHOOD  **
32071C               ***********************************************
32072C
32073      IPART1='HYPE'
32074      IPART2='MAXI'
32075      IPART3='LIKE'
32076      IPART4='MLE'
32077      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
32078     1   IHARG(3).EQ.IPART3)THEN
32079        IHV=IHYPTY
32080        GOTO5160
32081      ELSEIF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART4)THEN
32082        IHV=IHYPTY
32083        GOTO5160
32084      ENDIF
32085C
32086CCCCC FOLLOWING SECTION ADDED AUGUST     2004.
32087C               ****************************************************
32088C               **  STEP 20.A--                                   **
32089C               **  PROBE PPCC        PLOT DATA POINTS            **
32090C               ****************************************************
32091C
32092      IPART1='PPCC'
32093      IPART2='PLOT'
32094      IPART3='DATA'
32095      IPART4='POIN'
32096      IPART5='KS  '
32097      IF((IHARG(1).EQ.IPART1.OR.IHARG(1).EQ.IPART5).AND.
32098     1   IHARG(2).EQ.IPART2.AND.
32099     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
32100        IV=IPPCDP
32101        GOTO5150
32102      ENDIF
32103C
32104CCCCC FOLLOWING SECTION ADDED AUGUST     2004.
32105C               ****************************************************
32106C               **  STEP 20.A--                                   **
32107C               **  PROBE PPCC        PLOT AXIS POINTS            **
32108C               ****************************************************
32109C
32110      IPART1='PPCC'
32111      IPART2='PLOT'
32112      IPART3='AXIS'
32113      IPART4='POIN'
32114      IPART5='AXES'
32115      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
32116     1   (IHARG(3).EQ.IPART3 .OR. IHARG(3).EQ.IPART5).AND.
32117     1   IHARG(4).EQ.IPART4)THEN
32118        IV=IPPCAP(1)
32119        GOTO5150
32120      ENDIF
32121C
32122CCCCC FOLLOWING SECTION ADDED SEPTEMBER     2004.
32123C               ***************************************
32124C               **  STEP 20.A--                      **
32125C               **  PROBE PPCC PLOT AXIS ORDER       **
32126C               ***************************************
32127C
32128      IPART1='PPCC'
32129      IPART2='PLOT'
32130      IPART3='AXIS'
32131      IPART4='ORDE'
32132      IPART5='KS  '
32133      IF((IHARG(1).EQ.IPART1.OR.IHARG(1).EQ.IPART5).AND.
32134     1   IHARG(2).EQ.IPART2.AND.
32135     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
32136        IHV=IPPCAO
32137        GOTO5160
32138      ENDIF
32139C
32140CCCCC FOLLOWING SECTION ADDED OCTOBER       2004.
32141C               ***************************************
32142C               **  STEP 20.A--                      **
32143C               **  PROBE CENSORED PPCC PLOT         **
32144C               ***************************************
32145C
32146      IPART1='CENS'
32147      IPART2='PPCC'
32148      IPART3='PLOT'
32149      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
32150     1   IHARG(3).EQ.IPART3)THEN
32151        IHV=IPPCCN
32152        GOTO5160
32153      ENDIF
32154C
32155CCCCC FOLLOWING SECTION ADDED MARCH   2004.
32156C               ***************************************
32157C               **  STEP 20.A--                      **
32158C               **  PROBE PPCC PLOT                  **
32159C               ***************************************
32160C
32161      IPART1='PPCC'
32162      IPART2='PLOT'
32163      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
32164        IHV=IPPCCC
32165        GOTO5160
32166      ENDIF
32167C
32168CCCCC FOLLOWING SECTION ADDED MAY     2004.
32169C               ***************************************
32170C               **  STEP 20.A--                      **
32171C               **  PROBE PPCC FORMAT                **
32172C               ***************************************
32173C
32174      IPART1='PPCC'
32175      IPART2='FORM'
32176      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
32177        IHV=IPPCFO
32178        GOTO5160
32179      ENDIF
32180C
32181CCCCC FOLLOWING SECTION ADDED JUNE     2004.
32182C               ***************************************
32183C               **  STEP 20.A--                      **
32184C               **  PROBE DEFAULT POSTSCRIPT COLOR   **
32185C               **  PROBE POSTSCRIPT DEFAULT COLOR   **
32186C               **  PROBE POSTSCRIPT COLOR DEFAULT   **
32187C               ***************************************
32188C
32189      IPART1='DEFA'
32190      IPART2='POST'
32191      IPART3='COLO'
32192      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
32193     1   IHARG(3).EQ.IPART3)THEN
32194        IHV=IPSTDC
32195        GOTO5160
32196      ENDIF
32197C
32198      IPART1='POST'
32199      IPART2='DEFA'
32200      IPART3='COLO'
32201      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
32202     1   IHARG(3).EQ.IPART3)THEN
32203        IHV=IPSTDC
32204        GOTO5160
32205      ENDIF
32206C
32207      IPART1='POST'
32208      IPART2='COLO'
32209      IPART3='DEFA'
32210      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
32211     1   IHARG(3).EQ.IPART3)THEN
32212        IHV=IPSTDC
32213        GOTO5160
32214      ENDIF
32215C
32216CCCCC FOLLOWING SECTION ADDED JUNE     2004.
32217C               *****************************************************
32218C               **  STEP 20.A--                                    **
32219C               **  PROBE ASYMMETRIC DOUBLE EXPONENTIAL DEFINITION **
32220C               *****************************************************
32221C
32222      IPART1='ASYM'
32223      IPART2='DOUB'
32224      IPART3='EXPO'
32225      IPART4='DEFI'
32226      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
32227     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
32228        IHV=IADEDF
32229        GOTO5160
32230      ENDIF
32231C
32232      IPART1='ASYM'
32233      IPART2='LAPL'
32234      IPART3='DEFI'
32235      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
32236     1   IHARG(3).EQ.IPART3)THEN
32237        IHV=IADEDF
32238        GOTO5160
32239      ENDIF
32240C
32241CCCCC FOLLOWING SECTION ADDED JUNE     2004.
32242C               ******************************************************
32243C               **  STEP 20.A--                                     **
32244C               **  PROBE GENERALZIED PARETO             DEFINITION **
32245C               ******************************************************
32246C
32247      IPART1='GENE'
32248      IPART2='PARE'
32249      IPART3='DEFI'
32250      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
32251     1   IHARG(3).EQ.IPART3)THEN
32252        IHV=IGEPDF
32253        GOTO5160
32254      ENDIF
32255C
32256CCCCC FOLLOWING SECTION ADDED OCTOBER  2005.
32257C               ******************************************************
32258C               **  STEP 20.A--                                     **
32259C               **  PROBE GENERALZIED PARETO MLE STARTING VALUES    **
32260C               ******************************************************
32261C
32262      IPART1='GENE'
32263      IPART2='PARE'
32264      IPART3='MLE '
32265      IPART4='STAR'
32266      IPART5='VALU'
32267      IPART6='ML  '
32268      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
32269     1   (IHARG(3).EQ.IPART3.OR.IHARG(3).EQ.IPART6).AND.
32270     1   IHARG(4).EQ.IPART4.AND.IHARG(5).EQ.IPART5)THEN
32271        IHV=IGEPSV
32272        GOTO5160
32273      ENDIF
32274C
32275CCCCC FOLLOWING SECTION ADDED JULY     2005.
32276C               ******************************************************
32277C               **  STEP 20.A--                                     **
32278C               **  PROBE LOG GAMMA                      DEFINITION **
32279C               ******************************************************
32280C
32281      IPART1='LOG '
32282      IPART2='GAMM'
32283      IPART3='DEFI'
32284      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
32285     1   IHARG(3).EQ.IPART3)THEN
32286        IHV=ILGADF
32287        GOTO5160
32288      ENDIF
32289C
32290CCCCC FOLLOWING SECTION ADDED JULY     2005.
32291C               ******************************************************
32292C               **  STEP 20.A--                                     **
32293C               **  PROBE SKEW NORMAL                    DEFINITION **
32294C               ******************************************************
32295C
32296      IPART1='SKEW'
32297      IPART2='NORM'
32298      IPART3='DEFI'
32299      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
32300     1   IHARG(3).EQ.IPART3)THEN
32301        IHV=ISKNDF
32302        GOTO5160
32303      ENDIF
32304C
32305CCCCC FOLLOWING SECTION ADDED FEBRUARY 2006.
32306C               ******************************************************
32307C               **  STEP 20.A--                                     **
32308C               **  PROBE GENERALIZED TUKEY LAMBDA       DEFINITION **
32309C               ******************************************************
32310C
32311      IPART1='GENE'
32312      IPART2='TUKE'
32313      IPART3='LAMB'
32314      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
32315     1   IHARG(3).EQ.IPART3)THEN
32316        IHV=IGLDDF
32317        GOTO5160
32318      ENDIF
32319C
32320CCCCC FOLLOWING SECTION ADDED MARCH    2006.
32321C               ******************************************************
32322C               **  STEP 20.A--                                     **
32323C               **  PROBE TEMPORARY FILE <PID/IGNORE>    DEFINITION **
32324C               ******************************************************
32325C
32326      IPART1='TEMP'
32327      IPART2='FILE'
32328      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
32329        IHV=ITMPFI
32330        GOTO5160
32331      ENDIF
32332C
32333CCCCC FOLLOWING SECTION ADDED MAY      2006.
32334C               ******************************************************
32335C               **  STEP 20.A--                                     **
32336C               **  PROBE PPCC PLOT LOCATION SCALE                  **
32337C               ******************************************************
32338C
32339      IPART1='PPCC'
32340      IPART2='PLOT'
32341      IPART3='LOCA'
32342      IPART4='SCAL'
32343      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
32344     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
32345        IHV=IPPCBW
32346        GOTO5160
32347      ENDIF
32348C
32349CCCCC FOLLOWING SECTION ADDED JULY     2004.
32350C               ****************************************************
32351C               **  STEP 20.A--                                   **
32352C               **  PROBE GOMPERTZ-MAKEHAM   DEFINITION           **
32353C               ****************************************************
32354C
32355      IPART1='GOMP'
32356      IPART2='MAKE'
32357      IPART3='DEFI'
32358      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
32359     1   IHARG(3).EQ.IPART3)THEN
32360        IHV=IMAKDF
32361        GOTO5160
32362      ENDIF
32363C
32364CCCCC FOLLOWING SECTION ADDED AUGUST     2004.
32365C               ****************************************************
32366C               **  STEP 20.A--                                   **
32367C               **  PROBE BESSEL I-FUNCTION  DEFINITION           **
32368C               ****************************************************
32369C
32370      IPART1='BESS'
32371      IPART2='I   '
32372      IPART3='FUNC'
32373      IPART4='DEFI'
32374      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
32375     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
32376        IHV=IBEIDF
32377        GOTO5160
32378      ENDIF
32379C
32380CCCCC FOLLOWING SECTION ADDED AUGUST     2004.
32381C               ****************************************************
32382C               **  STEP 20.A--                                   **
32383C               **  PROBE BESSEL K-FUNCTION  DEFINITION           **
32384C               ****************************************************
32385C
32386      IPART1='BESS'
32387      IPART2='K   '
32388      IPART3='FUNC'
32389      IPART4='DEFI'
32390      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
32391     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
32392        IHV=IBEKDF
32393        GOTO5160
32394      ENDIF
32395C
32396CCCCC FOLLOWING SECTION ADDED AUGUST     2004.
32397C               ****************************************************
32398C               **  STEP 20.A--                                   **
32399C               **  PROBE PROBABILITY PLOT DATA POINTS            **
32400C               ****************************************************
32401C
32402      IPART1='PROB'
32403      IPART2='PLOT'
32404      IPART3='DATA'
32405      IPART4='POIN'
32406      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
32407     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
32408        IV=IPPLDP
32409        GOTO5150
32410      ENDIF
32411C
32412CCCCC FOLLOWING SECTION ADDED OCTOBER    2004.
32413C               ****************************************************
32414C               **  STEP 20.A--                                   **
32415C               **  PROBE CENSORED PROBABILITY PLOT               **
32416C               ****************************************************
32417C
32418      IPART1='CENS'
32419      IPART2='PROB'
32420      IPART3='PLOT'
32421      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
32422     1   IHARG(3).EQ.IPART3)THEN
32423        IHV=IPPLCN
32424        GOTO5160
32425      ENDIF
32426C
32427CCCCC FOLLOWING SECTION ADDED SEPTEMBER     2004.
32428C               ***************************************
32429C               **  STEP 20.A--                      **
32430C               **  PROBE HISTOGRAM CLASS WIDTH      **
32431C               ***************************************
32432C
32433      IPART1='HIST'
32434      IPART2='CLAS'
32435      IPART3='WIDT'
32436      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
32437     1   IHARG(3).EQ.IPART3)THEN
32438        IHV=IHSTCW
32439        GOTO5160
32440      ENDIF
32441C
32442CCCCC FOLLOWING SECTION ADDED JANUARY       2010.
32443C               ***************************************
32444C               **  STEP 20.A--                      **
32445C               **  PROBE HISTOGRAM EMPTY BINS       **
32446C               ***************************************
32447C
32448      IPART1='HIST'
32449      IPART2='EMPT'
32450      IPART3='BINS'
32451      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
32452     1   IHARG(3).EQ.IPART3)THEN
32453        IHV=IHSTEB
32454        GOTO5160
32455      ENDIF
32456C
32457CCCCC FOLLOWING SECTION ADDED SEPTEMBER  2012
32458C     *************************************************************
32459C     **  PROBE FIELD <ICOL> TYPE                                **
32460C     *************************************************************
32461C
32462      IPART1='FIEL'
32463      IPART3='TYPE'
32464      IF(IHARG(1).EQ.IPART1.AND.IHARG(3).EQ.IPART3)THEN
32465C
32466C       CHECK FOR COLUMN NUMBER
32467C
32468        IV=IARG(2)
32469        IFOUND='YES'
32470        IF(IV.LT.1 .OR. IV.GT.250)THEN
32471          WRITE(ICOUT,25251)
3247225251     FORMAT('***** ERROR IN THE PROBE COMMAND--')
32473          CALL DPWRST('XXX','BUG ')
32474          WRITE(ICOUT,25253)
3247525253     FORMAT('      FOR THE   PROBE FIELD <ICOL> TYPE  COMMAND, ',
32476     1           'THE')
32477          CALL DPWRST('XXX','BUG ')
32478          WRITE(ICOUT,25255)IV
3247925255     FORMAT('      SPECIFIED COLUMN, ',I8,', IS OUTSIDE THE ',
32480     1           '1 TO 250 RANGE.')
32481          CALL DPWRST('XXX','BUG ')
32482          GOTO9000
32483        ENDIF
32484        IVAL=IFIETY(IV)
32485        IF(IVAL.EQ.1)THEN
32486          WRITE(ICOUT,25263)IV
3248725263     FORMAT('THE TYPE FOR FIELD ',I3,' FOR SUBSEQUENT READ ',
32488     1           'COMMANDS IS SET TO CHARACTER.')
32489          CALL DPWRST('XXX','BUG ')
32490        ELSE
32491          WRITE(ICOUT,25261)IV
3249225261     FORMAT('THE TYPE FOR FIELD ',I3,' FOR SUBSEQUENT READ ',
32493     1           'COMMANDS IS SET TO NUMERIC.')
32494          CALL DPWRST('XXX','BUG ')
32495        ENDIF
32496        GOTO9000
32497      ENDIF
32498C
32499CCCCC FOLLOWING SECTION ADDED APRIL         2010.
32500C               ***************************************
32501C               **  STEP 20.A--                      **
32502C               **  PROBE LOD OUTPUT FILES           **
32503C               ***************************************
32504C
32505      IPART1='LOD '
32506      IPART2='OUTP'
32507      IPART3='FILE'
32508      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
32509     1   IHARG(3).EQ.IPART3)THEN
32510        IHV=ILODOF
32511        GOTO5160
32512      ENDIF
32513C
32514      IPART1='LIMI'
32515      IPART2='OF  '
32516      IPART3='DETE'
32517      IPART4='OUTP'
32518      IPART5='FILE'
32519      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
32520     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
32521     1   IHARG(5).EQ.IPART5)THEN
32522        IHV=ILODOF
32523        GOTO5160
32524      ENDIF
32525C
32526CCCCC FOLLOWING SECTION ADDED JULY          2012.
32527C               ***************************************
32528C               **  STEP 20.A--                      **
32529C               **  PROBE LOD SUMMARY TABLE          **
32530C               ***************************************
32531C
32532      IPART1='LOD '
32533      IPART2='SUMM'
32534      IPART3='TABL'
32535      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
32536     1   IHARG(3).EQ.IPART3)THEN
32537        IHV=ILODST
32538        GOTO5160
32539      ENDIF
32540C
32541      IPART1='LIMI'
32542      IPART2='OF  '
32543      IPART3='DETE'
32544      IPART4='SUMM'
32545      IPART5='TABL'
32546      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
32547     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
32548     1   IHARG(5).EQ.IPART5)THEN
32549        IHV=ILODST
32550        GOTO5160
32551      ENDIF
32552C
32553CCCCC FOLLOWING SECTION ADDED JULY         2012.
32554C               ***************************************
32555C               **  STEP 20.A--                      **
32556C               **  PROBE LOD LOD TABLE              **
32557C               ***************************************
32558C
32559      IPART1='LOD '
32560      IPART2='LOD '
32561      IPART3='TABL'
32562      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
32563     1   IHARG(3).EQ.IPART3)THEN
32564        IHV=ILODTA
32565        GOTO5160
32566      ENDIF
32567C
32568      IPART1='LIMI'
32569      IPART2='OF  '
32570      IPART3='DETE'
32571      IPART4='LOD '
32572      IPART5='TABL'
32573      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
32574     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
32575     1   IHARG(5).EQ.IPART5)THEN
32576        IHV=ILODTA
32577        GOTO5160
32578      ENDIF
32579C
32580CCCCC FOLLOWING SECTION ADDED JULY          2012.
32581C               ***************************************
32582C               **  STEP 20.A--                      **
32583C               **  PROBE LOD CRITICAL VALUE         **
32584C               ***************************************
32585C
32586      IPART1='LOD '
32587      IPART2='CRIT'
32588      IPART3='VALU'
32589      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
32590     1   IHARG(3).EQ.IPART3)THEN
32591        IHV=ILODCV
32592        GOTO5160
32593      ENDIF
32594C
32595      IPART1='LIMI'
32596      IPART2='OF  '
32597      IPART3='DETE'
32598      IPART4='CRIT'
32599      IPART5='VALU'
32600      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
32601     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
32602     1   IHARG(5).EQ.IPART5)THEN
32603        IHV=ILODCV
32604        GOTO5160
32605      ENDIF
32606C
32607CCCCC FOLLOWING SECTION ADDED JULY          2010.
32608C               ***************************************
32609C               **  STEP 20.A--                      **
32610C               **  PROBE DISTRIBUTIONAL FIT TYPE    **
32611C               **       <ML/MOMENT/LMOMENT>         **
32612C               ***************************************
32613C
32614      IPART1='DIST'
32615      IPART2='FIT '
32616      IPART3='TYPE'
32617      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
32618     1   IHARG(3).EQ.IPART3)THEN
32619        IHV=IDFTTY
32620        GOTO5160
32621      ENDIF
32622C
32623CCCCC FOLLOWING SECTION ADDED SEPTEMBER     2010.
32624C               ***************************************
32625C               **  STEP 20.A--                      **
32626C               **  PROBE BRITTLE FIBER WEIBULL      **
32627C               **        LENGTH <ON/OFF>            **
32628C               ***************************************
32629C
32630      IPART1='BRIT'
32631      IPART2='FIBE'
32632      IPART3='WEIB'
32633      IPART4='LENG'
32634      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
32635     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
32636        IHV=IBFWTY
32637        GOTO5160
32638      ENDIF
32639C
32640CCCCC FOLLOWING SECTION ADDED SEPTEMBER     2010.
32641C               ***************************************
32642C               **  STEP 20.A--                      **
32643C               **  PROBE BOOTSTRAP PERCENTILE       **
32644C               **        <PERCENT POINT/DATA>       **
32645C               ***************************************
32646C
32647      IPART1='BOOT'
32648      IPART2='PERC'
32649      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
32650        IHV=IBOOPE
32651        GOTO5160
32652      ENDIF
32653C
32654CCCCC FOLLOWING SECTION ADDED AUGUST        2011.
32655C               *************************************************
32656C               **  STEP 20.A--                                **
32657C               **  PROBE BOOTSTRAP DISTRIBUTIONAL PERCENTILE  **
32658C               **        <OFF/LOWER/UPPER/TWOSIDED>           **
32659C               *************************************************
32660C
32661      IPART1='BOOT'
32662      IPART2='DIST'
32663      IPART3='PERC'
32664      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
32665     1   IHARG(3).EQ.IPART3)THEN
32666        IHV=IBOODP
32667        GOTO5160
32668      ENDIF
32669C
32670CCCCC FOLLOWING SECTION ADDED AUGUST        2011.
32671C               *************************************************
32672C               **  STEP 20.A--                                **
32673C               **  PROBE BOOTSTRAP CONFIDENCE INTERVALS       **
32674C               **        <PERCENTILE/T>                       **
32675C               *************************************************
32676C
32677      IPART1='BOOT'
32678      IPART2='CONF'
32679      IPART3='INTE'
32680      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
32681     1   IHARG(3).EQ.IPART3)THEN
32682        IHV=IBOOCI
32683        GOTO5160
32684      ENDIF
32685C
32686CCCCC FOLLOWING SECTION ADDED OCTOBER       2011.
32687C               ******************************************************
32688C               **  STEP 20.A--                                     **
32689C               **  PROBE BOOTSTRAP T PERCENTILE STANDARD DEVIATION **
32690C               ******************************************************
32691C
32692      IPART1='BOOT'
32693      IPART2='T   '
32694      IPART3='PERC'
32695      IPART4='STAN'
32696      IPART5='DEVI'
32697      IPART6='ERRO'
32698      IF(IHARG(1).EQ.IPART1.AND.
32699     1  ((IHARG(2).EQ.IPART2.AND.IHARG(3).EQ.IPART3).OR.
32700     1   (IHARG(2).EQ.IPART3.AND.IHARG(3).EQ.IPART2)).AND.
32701     1    IHARG(4).EQ.IPART4.AND.
32702     1   (IHARG(5).EQ.IPART5.OR.IHARG(5).EQ.IPART6))THEN
32703        AV=PBOOTS
32704        GOTO5170
32705      ENDIF
32706C
32707      IPART4='SD  '
32708      IF(IHARG(1).EQ.IPART1.AND.
32709     1  ((IHARG(2).EQ.IPART2.AND.IHARG(3).EQ.IPART3).OR.
32710     1   (IHARG(2).EQ.IPART3.AND.IHARG(3).EQ.IPART2)).AND.
32711     1    IHARG(4).EQ.IPART4)THEN
32712        AV=PBOOTS
32713        GOTO5170
32714      ENDIF
32715C
32716CCCCC FOLLOWING SECTION ADDED OCTOBER       2011.
32717C               ***************************************************
32718C               **  STEP 20.A--                                  **
32719C               **  PROBE BOOTSTRAP SMOOTHING STANDARD DEVIATION **
32720C               ***************************************************
32721C
32722      IPART1='BOOT'
32723      IPART2='SMOO'
32724      IPART3='STAN'
32725      IPART4='DEVI'
32726      IPART5='ERRO'
32727      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
32728     1   IHARG(3).EQ.IPART3.AND.
32729     1  (IHARG(4).EQ.IPART4.OR.IHARG(4).EQ.IPART5))THEN
32730        AV=PBOOSM
32731        GOTO5170
32732      ENDIF
32733C
32734      IPART3='SD  '
32735      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
32736     1   IHARG(3).EQ.IPART3)THEN
32737        AV=PBOOSM
32738        GOTO5170
32739      ENDIF
32740C
32741CCCCC FOLLOWING SECTION ADDED OCTOBER       2011.
32742C               *************************************************
32743C               **  STEP 20.A--                                **
32744C               **  PROBE BOOTSTRAP SMOOTHING <ON/OFF/VALUE>   **
32745C               *************************************************
32746C
32747      IPART1='BOOT'
32748      IPART2='SMOO'
32749      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
32750        IHV=IBOOSM
32751        GOTO5160
32752      ENDIF
32753C
32754CCCCC FOLLOWING SECTION ADDED OCTOBER       2011.
32755C               *************************************************
32756C               **  STEP 20.A--                                **
32757C               **  PROBE CONSENSUS MEAN PLOT SORTED           **
32758C               **        <ON/OFF>                             **
32759C               *************************************************
32760C
32761      IPART1='CONS'
32762      IPART2='MEAN'
32763      IPART3='PLOT'
32764      IPART4='SORT'
32765      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
32766     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
32767        IHV=ICMPSO
32768        GOTO5160
32769      ENDIF
32770C
32771CCCCC FOLLOWING SECTION ADDED OCTOBER       2011.
32772C               *************************************************
32773C               **  STEP 20.A--                                **
32774C               **  PROBE CONSENSUS MEAN PLOT DATA             **
32775C               **        <ON/OFF>                             **
32776C               *************************************************
32777C
32778      IPART1='CONS'
32779      IPART2='MEAN'
32780      IPART3='PLOT'
32781      IPART4='DATA'
32782      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
32783     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
32784        IHV=ICMPDA
32785        GOTO5160
32786      ENDIF
32787C
32788CCCCC FOLLOWING SECTION ADDED OCTOBER       2011.
32789C               *************************************************
32790C               **  STEP 20.A--                                **
32791C               **  PROBE CONSENSUS MEAN PLOT ERROR            **
32792C               **        <CONF/1SE/2SE>                       **
32793C               *************************************************
32794C
32795      IPART1='CONS'
32796      IPART2='MEAN'
32797      IPART3='PLOT'
32798      IPART4='ERRO'
32799      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
32800     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
32801        IHV=ICMPER
32802        GOTO5160
32803      ENDIF
32804C
32805CCCCC FOLLOWING SECTION ADDED JUNE          2013.
32806C               *****************************************************
32807C               **  STEP 20.A--                                    **
32808C               **  PROBE CONSENSUS MEAN TABLE ONE <ON/OFF>        **
32809C               **  PROBE CONSENSUS MEAN TABLE TWO <ON/OFF>        **
32810C               **  PROBE CONSENSUS MEAN TABLE THREE <ON/OFF>      **
32811C               **  PROBE CONSENSUS MEAN TABLE FOUR <ON/OFF>       **
32812C               **  PROBE CONSENSUS MEAN DETAILED TABLE <ON/OFF>   **
32813C               *****************************************************
32814C
32815      IPART1='CONS'
32816      IPART2='MEAN'
32817      IPART3='TABL'
32818      IPART4='ONE '
32819      IPART5='1   '
32820      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
32821     1   IHARG(3).EQ.IPART3.AND.
32822     1   (IHARG(4).EQ.IPART4.AND.IHARG(5).EQ.IPART5))THEN
32823        IHV=ICMET1
32824        GOTO5160
32825      ENDIF
32826C
32827      IPART4='TWO '
32828      IPART5='2   '
32829      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
32830     1   IHARG(3).EQ.IPART3.AND.
32831     1   (IHARG(4).EQ.IPART4.AND.IHARG(5).EQ.IPART5))THEN
32832        IHV=ICMET2
32833        GOTO5160
32834      ENDIF
32835C
32836      IPART4='THRE'
32837      IPART5='3   '
32838      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
32839     1   IHARG(3).EQ.IPART3.AND.
32840     1   (IHARG(4).EQ.IPART4.AND.IHARG(5).EQ.IPART5))THEN
32841        IHV=ICMET3
32842        GOTO5160
32843      ENDIF
32844C
32845      IPART4='FOUR'
32846      IPART5='4   '
32847      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
32848     1   IHARG(3).EQ.IPART3.AND.
32849     1   (IHARG(4).EQ.IPART4.AND.IHARG(5).EQ.IPART5))THEN
32850        IHV=ICMET4
32851        GOTO5160
32852      ENDIF
32853C
32854      IPART4='DETA'
32855      IPART5='TABL'
32856      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
32857     1   IHARG(3).EQ.IPART3.AND.
32858     1   (IHARG(4).EQ.IPART4.AND.IHARG(5).EQ.IPART5))THEN
32859        IHV=ICMET5
32860        GOTO5160
32861      ENDIF
32862C
32863CCCCC FOLLOWING SECTION ADDED NOVEMBER      2016.
32864C               *************************************************
32865C               **  STEP 20.A--                                **
32866C               **  PROBE CONSENSUS MEAN PLOT OMIT LABS        **
32867C               *************************************************
32868C
32869      IPART1='CONS'
32870      IPART2='MEAN'
32871      IPART3='PLOT'
32872      IPART4='OMIT'
32873      IPART5='LABS'
32874      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
32875     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
32876     1   IHARG(5).EQ.IPART5)THEN
32877        IFOUND='YES'
32878        IF(ICMPNL.LE.0)THEN
32879          WRITE(ICOUT,5012)
32880 5012     FORMAT('NO LABS WILL BE OMITTED FROM THE CONSENSUS ',
32881     1           'MEAN PLOT')
32882          CALL DPWRST('XXX','BUG ')
32883        ELSE
32884          DO5014II=1,ICMPNL
32885            WRITE(ICOUT,5013)ICMPLL(II)
32886 5013       FORMAT('LAB ',I8,' WILL BE OMITTED FROM THE CONSENSUS ',
32887     1           'MEAN PLOT (BUT NOT THE ANALYSIS)')
32888            CALL DPWRST('XXX','BUG ')
32889 5014     CONTINUE
32890        ENDIF
32891        GOTO9000
32892      ENDIF
32893C
32894CCCCC FOLLOWING SECTION ADDED JANUARY       2017.
32895C               *************************************************
32896C               **  STEP 20.A--                                **
32897C               **  PROBE CONSENSUS MEAN TYPE B METHOD         **
32898C               **        <ADD/BOOTSTRAP>                      **
32899C               *************************************************
32900C
32901      IPART1='CONS'
32902      IPART2='MEAN'
32903      IPART3='TYPE'
32904      IPART4='B   '
32905      IPART5='METH'
32906      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
32907     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
32908     1   IHARG(5).EQ.IPART5)THEN
32909        IHV=ICMTYB
32910        GOTO5160
32911      ENDIF
32912C
32913CCCCC FOLLOWING SECTION ADDED JANUARY       2017.
32914C               *************************************************
32915C               **  STEP 20.A--                                **
32916C               **  PROBE CONSENSUS MEAN TYPE B VALUE <VALUE>  **
32917C               *************************************************
32918C
32919      IPART1='CONS'
32920      IPART2='MEAN'
32921      IPART3='TYPE'
32922      IPART4='B   '
32923      IPART5='VALU'
32924      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
32925     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
32926     1   IHARG(5).EQ.IPART5)THEN
32927        AV=PCMTYB
32928        GOTO5170
32929      ENDIF
32930C
32931CCCCC FOLLOWING SECTION ADDED APRIL         2017.
32932C               *************************************************
32933C               **  STEP 20.A--                                **
32934C               **  PROBE CONSENSUS MEAN PLOT OMIT METHOD      **
32935C               **        <ONE/TWO/THREE> <METHOD>             **
32936C               *************************************************
32937C
32938      IPART1='CONS'
32939      IPART2='MEAN'
32940      IPART3='PLOT'
32941      IPART4='OMIT'
32942      IPART5='METH'
32943      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
32944     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
32945     1   IHARG(5).EQ.IPART5)THEN
32946        IF(IHARG(6).EQ.'ONE ')THEN
32947          IHV=ICMPM1
32948        ELSEIF(IHARG(6).EQ.'TWO ')THEN
32949          IHV=ICMPM2
32950        ELSEIF(IHARG(6).EQ.'THRE')THEN
32951          IHV=ICMPM3
32952        ELSE
32953          IHV=ICMPM1
32954        ENDIF
32955        GOTO5160
32956      ENDIF
32957C
32958CCCCC FOLLOWING SECTION ADDED APRIL      2015.
32959C               *************************************************
32960C               **  STEP 20.A--                                **
32961C               **  PROBE E691 DATA SUMMARY TABLE <ON/OFF>     **
32962C               *************************************************
32963C
32964      IPART1='E691'
32965      IPART2='DATA'
32966      IPART3='SUMM'
32967      IPART4='TABL'
32968      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
32969     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
32970        IHV=I691DS
32971        GOTO5160
32972      ENDIF
32973C
32974CCCCC FOLLOWING SECTION ADDED FEBRUARY      2015.
32975C               *************************************************
32976C               **  STEP 20.A--                                **
32977C               **  PROBE E691 TEST RESULTS TABLE <ON/OFF>     **
32978C               *************************************************
32979C
32980      IPART1='E691'
32981      IPART2='TEST'
32982      IPART3='RESU'
32983      IPART4='TABL'
32984      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
32985     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
32986        IHV=I691TR
32987        GOTO5160
32988      ENDIF
32989C
32990CCCCC FOLLOWING SECTION ADDED FEBRUARY      2015.
32991C               *************************************************
32992C               **  STEP 20.A--                                **
32993C               **  PROBE E691 H CONSISTENCY TABLE <ON/OFF>    **
32994C               *************************************************
32995C
32996      IPART1='E691'
32997      IPART2='H   '
32998      IPART3='CONS'
32999      IPART4='TABL'
33000      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
33001     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
33002        IHV=I691HC
33003        GOTO5160
33004      ENDIF
33005C
33006CCCCC FOLLOWING SECTION ADDED FEBRUARY      2015.
33007C               *************************************************
33008C               **  STEP 20.A--                                **
33009C               **  PROBE E691 K CONSISTENCY TABLE <ON/OFF>    **
33010C               *************************************************
33011C
33012      IPART1='E691'
33013      IPART2='K   '
33014      IPART3='CONS'
33015      IPART4='TABL'
33016      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
33017     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
33018        IHV=I691KC
33019        GOTO5160
33020      ENDIF
33021C
33022CCCCC FOLLOWING SECTION ADDED FEBRUARY      2015.
33023C               ******************************************************
33024C               **  STEP 20.A--                                     **
33025C               **  PROBE E691 PRECISION STATISTICS TABLE <ON/OFF>  **
33026C               ******************************************************
33027C
33028      IPART1='E691'
33029      IPART2='PREC'
33030      IPART3='STAT'
33031      IPART4='TABL'
33032      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
33033     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
33034        IHV=I691PS
33035        GOTO5160
33036      ENDIF
33037C
33038CCCCC FOLLOWING SECTION ADDED APRIL       2015.
33039C               *************************************************
33040C               **  STEP 20.A--                                **
33041C               **  PROBE E691 MATERIAL ID GROUP LABEL         **
33042C               *************************************************
33043C
33044      IPART1='E691'
33045      IPART2='MATE'
33046      IPART3='ID  '
33047      IPART4='GROU'
33048      IPART5='LABE'
33049      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
33050     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
33051     1   IHARG(5).EQ.IPART5)THEN
33052        IFOUND='YES'
33053        WRITE(ICOUT,999)
33054        CALL DPWRST('XXX','BUG ')
33055        WRITE(ICOUT,55165)I691GL
3305655165   FORMAT('THE E691 MATERIAL ID GROUP LABEL VARIABLE HAS ',
33057     1         'BEEN SET TO ',A8)
33058        CALL DPWRST('XXX','BUG ')
33059        IPROBS=' '
33060        IPROBS(1:8)=I691GL(1:8)
33061        NCPROB=8
33062        GOTO8100
33063      ENDIF
33064C
33065CCCCC FOLLOWING SECTION ADDED APRIL         2015.
33066C               ******************************************************
33067C               **  STEP 20.A--                                     **
33068C               **  PROBE CNPK DEFINITION <AIRFORECE/PEARN>         **
33069C               ******************************************************
33070C
33071      IPART1='CNPK'
33072      IPART2='DEFI'
33073      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
33074        IHV=ICNPKD
33075        GOTO5160
33076      ENDIF
33077C
33078CCCCC FOLLOWING SECTION ADDED APRIL         2015.
33079C               ******************************************************
33080C               **  STEP 20.A--                                     **
33081C               **  PROBE STATISTIC PLOT REFERENCE LINE             **
33082C               **        <OVERALL/AVERAGE/MEDIAN>                  **
33083C               ******************************************************
33084C
33085      IPART1='STAT'
33086      IPART2='PLOT'
33087      IPART3='REFE'
33088      IPART4='LINE'
33089      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
33090     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
33091        IHV=ISPLRL
33092        GOTO5160
33093      ENDIF
33094C
33095CCCCC FOLLOWING SECTION ADDED SEPTEMBER         2015.
33096C               ******************************************************
33097C               **  STEP 20.A--                                     **
33098C               **  PROBE OPTIMIZATION <MINIMUM/MAXIMUM>            **
33099C               ******************************************************
33100C
33101      IPART1='OPTI'
33102      IF(IHARG(1).EQ.IPART1)THEN
33103        IHV=IOPTMM
33104        GOTO5160
33105      ENDIF
33106C
33107CCCCC FOLLOWING SECTION ADDED OCTOBER         2015.
33108C               ******************************************************
33109C               **  STEP 20.A--                                     **
33110C               **  PROBE JSCORE REPLICATION <AVERAGE/EXTREME/      **
33111C               **                            INDIVIDUAL>           **
33112C               ******************************************************
33113C
33114      IPART1='JSCO'
33115      IPART2='REPL'
33116      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2)THEN
33117        IHV=IJSREP
33118        GOTO5160
33119      ENDIF
33120C
33121CCCCC FOLLOWING SECTION ADDED OCTOBER         2015.
33122C               ******************************************************
33123C               **  STEP 20.A--                                     **
33124C               **  PROBE LOOP SUBSTITUTION <DEFERRED/IMMEDIATE>    **
33125C               ******************************************************
33126C
33127      IPART1='LOOP'
33128      IPART2='SUBS'
33129      IPART3='REPL'
33130      IF(IHARG(1).EQ.IPART1 .AND.
33131     1  (IHARG(2).EQ.IPART2 .OR. IHARG(2).EQ.IPART3))THEN
33132        IHV=ILOOSU
33133        GOTO5160
33134      ENDIF
33135C
33136CCCCC FOLLOWING SECTION ADDED NOVEMBER        2015.
33137C               ******************************************************
33138C               **  STEP 20.A--                                     **
33139C               **  PROBE WEB ENGINE <GOOGLE/BING/DUCK/WOW/YAHOO>   **
33140C               ******************************************************
33141C
33142      IPART1='SEAR'
33143      IPART2='ENGI'
33144      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2)THEN
33145        IHV=IWEBSE
33146        GOTO5160
33147      ENDIF
33148C
33149CCCCC FOLLOWING SECTION ADDED DECEMBER        2015.
33150C               ******************************************************
33151C               **  STEP 20.A--                                     **
33152C               **  PROBE DEVICE 2 SPLIT <ON/OFF>                   **
33153C               ******************************************************
33154C
33155      IPART1='DEVI'
33156      IPART2='2   '
33157      IPART3='SPLI'
33158      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
33159     1   IHARG(3).EQ.IPART3)THEN
33160        IHV=IDV2SP
33161        GOTO5160
33162      ENDIF
33163C
33164CCCCC FOLLOWING SECTION ADDED DECEMBER        2015.
33165C               ******************************************************
33166C               **  STEP 20.A--                                     **
33167C               **  PROBE DEVICE 3 NAME COUNTER <ON/OFF>            **
33168C               ******************************************************
33169C
33170      IPART1='DEVI'
33171      IPART2='3   '
33172      IPART3='NAME'
33173      IPART4='COUN'
33174      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
33175     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4)THEN
33176        IHV=IDV3NC
33177        GOTO5160
33178      ENDIF
33179C
33180CCCCC FOLLOWING SECTION ADDED NOVEMBER        2015.
33181C               ******************************************************
33182C               **  STEP 20.A--                                     **
33183C               **  PROBE DEVICE 3 <AUTOMATIC/USER>                 **
33184C               ******************************************************
33185C
33186      IPART1='DEVI'
33187      IPART2='3   '
33188      IPART3='THRE'
33189      IF(IHARG(1).EQ.IPART1 .AND.
33190     1  (IHARG(2).EQ.IPART2 .OR. IHARG(2).EQ.IPART3))THEN
33191        IHV=IDEVO3
33192        GOTO5160
33193      ENDIF
33194C
33195CCCCC FOLLOWING SECTION ADDED DECEMBER        2015.
33196C               ******************************************************
33197C               **  STEP 20.A--                                     **
33198C               **  PROBE FRAME LIMIT OFFSET <ON/OFF>               **
33199C               ******************************************************
33200C
33201      IPART1='FRAM'
33202      IPART2='LIMI'
33203      IPART3='OFFS'
33204      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
33205     1   IHARG(3).EQ.IPART3)THEN
33206        IHV=IFRALI
33207        GOTO5160
33208      ENDIF
33209C
33210CCCCC FOLLOWING SECTION ADDED DECEMBER        2015.
33211C               ******************************************************
33212C               **  STEP 20.A--                                     **
33213C               **  PROBE CAPTURE CUMULATIVE <ON/OFF>               **
33214C               ******************************************************
33215C
33216      IPART1='CAPT'
33217      IPART2='CUMU'
33218      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2)THEN
33219        IHV=ICAPCU
33220        GOTO5160
33221      ENDIF
33222C
33223CCCCC FOLLOWING SECTION ADDED DECEMBER        2015.
33224C               ******************************************************
33225C               **  STEP 20.A--                                     **
33226C               **  PROBE CAPTURE SPLIT <ON/OFF>                    **
33227C               ******************************************************
33228C
33229      IPART1='CAPT'
33230      IPART2='SPLI'
33231      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2)THEN
33232        IHV=ICAPSP
33233        GOTO5160
33234      ENDIF
33235C
33236CCCCC FOLLOWING SECTION ADDED NOVEMBER        2016.
33237C               ******************************************************
33238C               **  STEP 20.A--                                     **
33239C               **  PROBE CAPTURE SCRIPT LOOP SUBSTITUTION <ON/OFF> **
33240C               ******************************************************
33241C
33242      IPART1='CAPT'
33243      IPART2='SCRI'
33244      IPART3='LOOP'
33245      IPART4='SUBS'
33246      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
33247     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4)THEN
33248        IHV=ICSCSB
33249        GOTO5160
33250      ENDIF
33251C
33252CCCCC FOLLOWING SECTION ADDED DECEMBER        2016.
33253C               ******************************************************
33254C               **  STEP 20.A--                                     **
33255C               **  PROBE COEFFICIENT OF VARIATION CONFIDENCE LIMIT **
33256C               **        METHOD <VANGEL/MCKAY/MAXIMUM LIKELIHOOD>  **
33257C               ******************************************************
33258C
33259      IPART1='COEF'
33260      IPART2='OF  '
33261      IPART3='VARI'
33262      IPART4='CONF'
33263      IPART5='LIMI'
33264      IPART6='METH'
33265      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2. AND.
33266     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4 .AND.
33267     1   IHARG(5).EQ.IPART5 .AND. IHARG(6).EQ.IPART6)THEN
33268        IHV=ICVACI
33269        GOTO5160
33270      ENDIF
33271C
33272CCCCC FOLLOWING SECTION ADDED JANUARY        2017.
33273C               ******************************************************
33274C               **  STEP 20.A--                                     **
33275C               **  PROBE HYPHEN WORD SEPARATOR <ON/OFF>            **
33276C               ******************************************************
33277C
33278      IPART1='HYPH'
33279      IPART2='WORD'
33280      IPART3='SEPA'
33281      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2. AND.
33282     1   IHARG(3).EQ.IPART3)THEN
33283        IHV=IHYPSW
33284        GOTO5160
33285      ENDIF
33286C
33287CCCCC FOLLOWING SECTION ADDED APRIL          2018.
33288C               ******************************************************
33289C               **  STEP 20.A--                                     **
33290C               **  PROBE HYPHEN COMMAND LINE <ON/OFF>              **
33291C               ******************************************************
33292C
33293      IPART1='HYPH'
33294      IPART2='COMM'
33295      IPART3='LINE'
33296      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2. AND.
33297     1   IHARG(3).EQ.IPART3)THEN
33298        IHV=IHYPCL
33299        GOTO5160
33300      ENDIF
33301C
33302CCCCC FOLLOWING SECTION ADDED APRIL          2018.
33303C               ******************************************************
33304C               **  STEP 20.A--                                     **
33305C               **  PROBE COMMA  COMMAND LINE <ON/OFF>              **
33306C               ******************************************************
33307C
33308      IPART1='COMM'
33309      IPART2='COMM'
33310      IPART3='LINE'
33311      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2. AND.
33312     1   IHARG(3).EQ.IPART3)THEN
33313        IHV=ICOMCL
33314        GOTO5160
33315      ENDIF
33316C
33317CCCCC FOLLOWING SECTION ADDED APRIL          2018.
33318C               ******************************************************
33319C               **  STEP 20.A--                                     **
33320C               **  PROBE EQUAL  COMMAND LINE <ON/OFF>              **
33321C               ******************************************************
33322C
33323      IPART1='EQUA'
33324      IPART2='COMM'
33325      IPART3='LINE'
33326      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2. AND.
33327     1   IHARG(3).EQ.IPART3)THEN
33328        IHV=IEQUCL
33329        GOTO5160
33330      ENDIF
33331C
33332CCCCC FOLLOWING SECTION ADDED APRIL          2018.
33333C               ******************************************************
33334C               **  STEP 20.A--                                     **
33335C               **  PROBE GUENTHER CORRECTION <ON/OFF>              **
33336C               ******************************************************
33337C
33338      IPART1='GUEN'
33339      IPART2='CORR'
33340      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2)THEN
33341        IHV=ITOLGC
33342        GOTO5160
33343      ENDIF
33344C
33345CCCCC FOLLOWING SECTION ADDED MAY          2018.
33346C               ******************************************************
33347C               **  STEP 20.A--                                     **
33348C               **  PROBE TOLERANCE LIMITS METHOD <HOWE/WALD>       **
33349C               ******************************************************
33350C
33351      IPART1='TOLE'
33352      IPART2='LIMI'
33353      IPART3='METH'
33354      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
33355     1   IHARG(3).EQ.IPART3)THEN
33356        IHV=ITOLME
33357        GOTO5160
33358      ENDIF
33359C
33360CCCCC FOLLOWING SECTION ADDED MAY          2018.
33361C               ******************************************************
33362C               **  STEP 20.A--                                     **
33363C               **  PROBE TOLERANCE LIMITS ONES SIDED METHOD        **
33364C               **        <NONCENTRAL T/NORMAL/DEFAULT>             **
33365C               ******************************************************
33366C
33367      IPART1='TOLE'
33368      IPART2='LIMI'
33369      IPART3='ONE '
33370      IPART4='SIDE'
33371      IPART5='METH'
33372      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
33373     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4 .AND.
33374     1   IHARG(5).EQ.IPART5)THEN
33375        IHV=ITOLM2
33376        GOTO5160
33377      ENDIF
33378C
33379CCCCC FOLLOWING SECTION ADDED JUNE          2018.
33380C               ******************************************************
33381C               **  STEP 20.A--                                     **
33382C               **  PROBE DISTRIBUTIUONAL FIT PLOT SORT             **
33383C               **        <OFF/AVERAGE RANK>                        **
33384C               ******************************************************
33385C
33386      IPART1='DIST'
33387      IPART2='FIT '
33388      IPART3='PLOT'
33389      IPART4='SORT'
33390      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
33391     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4)THEN
33392        IHV=IDFISO
33393        GOTO5160
33394      ENDIF
33395C
33396CCCCC FOLLOWING SECTION ADDED JUNE          2018.
33397C               ******************************************************
33398C               **  STEP 20.A--                                     **
33399C               **  PROBE DISTRIBUTIUONAL FIT PLOT TYPE             **
33400C               **        <TABLE/SCATTER>                           **
33401C               ******************************************************
33402C
33403      IPART1='DIST'
33404      IPART2='FIT '
33405      IPART3='PLOT'
33406      IPART4='TYPE'
33407      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
33408     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4)THEN
33409        IHV=IDFITY
33410        GOTO5160
33411      ENDIF
33412C
33413CCCCC FOLLOWING SECTION ADDED JANUARY        2017.
33414C               ******************************************************
33415C               **  STEP 20.A--                                     **
33416C               **  PROBE WELCH SATTERTHWAITE <VARIANCE/STAN DEVI>  **
33417C               ******************************************************
33418C
33419      IPART1='WELC'
33420      IPART2='SATT'
33421      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2)THEN
33422        IHV=IWSAUN
33423        GOTO5160
33424      ENDIF
33425C
33426CCCCC FOLLOWING SECTION ADDED MARCH        2017.
33427C               ******************************************************
33428C               **  STEP 20.A--                                     **
33429C               **  PROBE K MEANS INITIAL <RANDOM/DISTANCE>         **
33430C               ******************************************************
33431C
33432      IPART1='K   '
33433      IPART2='MEAN'
33434      IPART3='INIT'
33435      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
33436     1   IHARG(3).EQ.IPART3)THEN
33437        IHV=IKMEIN
33438        GOTO5160
33439      ENDIF
33440C
33441CCCCC FOLLOWING SECTION ADDED MARCH        2017.
33442C               ******************************************************
33443C               **  STEP 20.A--                                     **
33444C               **  PROBE K MEANS SILHOUETTE <ON/OFF>               **
33445C               ******************************************************
33446C
33447      IPART1='K   '
33448      IPART2='MEAN'
33449      IPART3='SILH'
33450      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
33451     1   IHARG(3).EQ.IPART3)THEN
33452        IHV=IKMESI
33453        GOTO5160
33454      ENDIF
33455C
33456CCCCC FOLLOWING SECTION ADDED MARCH        2017.
33457C               ******************************************************
33458C               **  STEP 20.A--                                     **
33459C               **  PROBE K MEANS SCALE      <ON/OFF>               **
33460C               ******************************************************
33461C
33462      IPART1='K   '
33463      IPART2='MEAN'
33464      IPART3='SCAL'
33465      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
33466     1   IHARG(3).EQ.IPART3)THEN
33467        IHV=IKMESC
33468        GOTO5160
33469      ENDIF
33470C
33471CCCCC FOLLOWING SECTION ADDED APRIL        2017.
33472C               *******************************************************
33473C               **  STEP 20.A--                                      **
33474C               **  PROBE K MEANS ROW LABEL  <ON/OFF>                **
33475C               *******************************************************
33476C
33477      IPART1='K   '
33478      IPART2='MEAN'
33479      IPART3='ROW '
33480      IPART4='LABE'
33481      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
33482     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4)THEN
33483        IHV=IKMERL
33484        GOTO5160
33485      ENDIF
33486C
33487CCCCC FOLLOWING SECTION ADDED APRIL        2017.
33488C               ******************************************************
33489C               **  STEP 20.A--                                     **
33490C               **  PROBE NORMAL MIXTURE CLUSTER SCALE  <ON/OFF>    **
33491C               ******************************************************
33492C
33493      IPART1='NORM'
33494      IPART2='MIXT'
33495      IPART3='CLUS'
33496      IPART4='SCAL'
33497      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
33498     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4)THEN
33499        IHV=INMCSC
33500        GOTO5160
33501      ENDIF
33502C
33503CCCCC FOLLOWING SECTION ADDED APRIL        2017.
33504C               *******************************************************
33505C               **  STEP 20.A--                                      **
33506C               **  PROBE NORMAL MIXTURE CLUSTER ROW LABEL  <ON/OFF> **
33507C               *******************************************************
33508C
33509      IPART1='NORM'
33510      IPART2='MIXT'
33511      IPART3='CLUS'
33512      IPART4='ROW '
33513      IPART5='LABE'
33514      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
33515     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4 .AND.
33516     1   IHARG(5).EQ.IPART5)THEN
33517        IHV=INMCRL
33518        GOTO5160
33519      ENDIF
33520C
33521CCCCC FOLLOWING SECTION ADDED AUGUST       2017.
33522C               ******************************************************
33523C               **  STEP 20.A--                                     **
33524C               **  PROBE K MEDOID CLUSTER SCALE  <ON/OFF>          **
33525C               ******************************************************
33526C
33527      IPART1='K   '
33528      IPART2='MEDO'
33529      IPART3='CLUS'
33530      IPART4='SCAL'
33531      IPART5='MEDI'
33532      IF(IHARG(1).EQ.IPART1 .AND.
33533     1  (IHARG(2).EQ.IPART2 .OR. IHARG(2).EQ.IPART5) .AND.
33534     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4)THEN
33535        IHV=IKMDSC
33536        GOTO5160
33537      ENDIF
33538C
33539CCCCC FOLLOWING SECTION ADDED AUGUST       2017.
33540C               ******************************************************
33541C               **  STEP 20.A--                                     **
33542C               **  PROBE K MEDOID CLUSTER DISTANCE                 **
33543C               **        <EUCLIDEAN/MANHATTAN>                     **
33544C               ******************************************************
33545C
33546      IPART1='K   '
33547      IPART2='MEDO'
33548      IPART3='CLUS'
33549      IPART4='DIST'
33550      IPART5='MEDI'
33551      IF(IHARG(1).EQ.IPART1 .AND.
33552     1  (IHARG(2).EQ.IPART2 .OR. IHARG(2).EQ.IPART5) .AND.
33553     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4)THEN
33554        IHV=IKMDDI
33555        GOTO5160
33556      ENDIF
33557C
33558CCCCC FOLLOWING SECTION ADDED AUGUST       2017.
33559C               ******************************************************
33560C               **  STEP 20.A--                                     **
33561C               **  PROBE K MEDOID CLUSTER PRINT <ALL/FINAL>        **
33562C               ******************************************************
33563C
33564      IPART1='K   '
33565      IPART2='MEDO'
33566      IPART3='CLUS'
33567      IPART4='PRIN'
33568      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
33569     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4)THEN
33570        IHV=IKMDPR
33571        GOTO5160
33572      ENDIF
33573C
33574CCCCC FOLLOWING SECTION ADDED AUGUST       2017.
33575C               ******************************************************
33576C               **  STEP 20.A--                                     **
33577C               **  PROBE K MEDOID CLUSTER RANDOM NUMBER GENERATOR  **
33578C               **          <DATAPLOT/ROUSSEUW>                     **
33579C               ******************************************************
33580C
33581      IPART1='K   '
33582      IPART2='MEDO'
33583      IPART3='CLUS'
33584      IPART4='RAND'
33585      IPART5='NUMB'
33586      IPART6='GENE'
33587      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
33588     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4 .AND.
33589     1   IHARG(5).EQ.IPART5 .AND. IHARG(6).EQ.IPART6)THEN
33590        IHV=IKMDRN
33591        GOTO5160
33592      ENDIF
33593C
33594CCCCC FOLLOWING SECTION ADDED AUGUST       2017.
33595C               ******************************************************
33596C               **  STEP 20.A--                                     **
33597C               **  PROBE K MEDOID CLUSTER TYPE                     **
33598C               **          <MEASUREMENT/DISSIMILARITY>             **
33599C               ******************************************************
33600C
33601      IPART1='K   '
33602      IPART2='MEDO'
33603      IPART3='CLUS'
33604      IPART4='TYPE'
33605      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
33606     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4)THEN
33607        IHV=IKMDTY
33608        GOTO5160
33609      ENDIF
33610C
33611CCCCC FOLLOWING SECTION ADDED AUGUST       2017.
33612C               ******************************************************
33613C               **  STEP 20.A--                                     **
33614C               **  PROBE K MEDOID CLUSTER SAMPLE SIZE <VALUE>      **
33615C               ******************************************************
33616C
33617      IPART1='K   '
33618      IPART2='MEDO'
33619      IPART3='CLUS'
33620      IPART4='SAMP'
33621      IPART5='SIZE'
33622      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
33623     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4 .AND.
33624     1   IHARG(5).EQ.IPART5)THEN
33625        IV=IKMDSS
33626        GOTO5150
33627      ENDIF
33628C
33629CCCCC FOLLOWING SECTION ADDED AUGUST       2017.
33630C               ******************************************************
33631C               **  STEP 20.A--                                     **
33632C               **  PROBE K MEDOID CLUSTER NUMBER OF SAMPLES <VALUE> *
33633C               ******************************************************
33634C
33635      IPART1='K   '
33636      IPART2='MEDO'
33637      IPART3='CLUS'
33638      IPART4='NUMB'
33639      IPART5='OF  '
33640      IPART6='SAMP'
33641      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
33642     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4 .AND.
33643     1   IHARG(5).EQ.IPART5 .AND. IHARG(6).EQ.IPART6)THEN
33644        IV=IKMDNS
33645        GOTO5150
33646      ENDIF
33647C
33648CCCCC FOLLOWING SECTION ADDED AUGUST       2017.
33649C               ******************************************************
33650C               **  STEP 20.A--                                     **
33651C               **  PROBE K MEDOID CLUSTER PAM MAXIMUM SIZE  <VALUE> *
33652C               ******************************************************
33653C
33654      IPART1='K   '
33655      IPART2='MEDO'
33656      IPART3='CLUS'
33657      IPART4='PAM '
33658      IPART5='MAXI'
33659      IPART6='SIZE'
33660      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
33661     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4 .AND.
33662     1   IHARG(5).EQ.IPART5 .AND. IHARG(6).EQ.IPART6)THEN
33663        IV=IKMDPN
33664        GOTO5150
33665      ENDIF
33666C
33667CCCCC FOLLOWING SECTION ADDED AUGUST       2017.
33668C               ******************************************************
33669C               **  STEP 20.A--                                     **
33670C               **  PROBE AGNES    CLUSTER SCALE  <ON/OFF>          **
33671C               ******************************************************
33672C
33673      IPART1='AGNE'
33674      IPART2='CLUS'
33675      IPART3='SCAL'
33676      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
33677     1   IHARG(3).EQ.IPART3)THEN
33678        IHV=IAGNSC
33679        GOTO5160
33680      ENDIF
33681C
33682CCCCC FOLLOWING SECTION ADDED AUGUST       2017.
33683C               ******************************************************
33684C               **  STEP 20.A--                                     **
33685C               **  PROBE AGNES CLUSTER BANNER PLOT  <ON/OFF>       **
33686C               ******************************************************
33687C
33688      IPART1='AGNE'
33689      IPART2='CLUS'
33690      IPART3='BANN'
33691      IPART4='PLOT'
33692      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
33693     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4)THEN
33694        IHV=IAGNBA
33695        GOTO5160
33696      ENDIF
33697C
33698CCCCC FOLLOWING SECTION ADDED AUGUST       2017.
33699C               ******************************************************
33700C               **  STEP 20.A--                                     **
33701C               **  PROBE AGNES    CLUSTER DISTANCE                 **
33702C               **        <EUCLIDEAN/MANHATTAN>                     **
33703C               ******************************************************
33704C
33705      IPART1='AGNE'
33706      IPART2='CLUS'
33707      IPART3='DIST'
33708      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
33709     1   IHARG(3).EQ.IPART3)THEN
33710        IHV=IAGNDI
33711        GOTO5160
33712      ENDIF
33713C
33714CCCCC FOLLOWING SECTION ADDED AUGUST       2017.
33715C               ******************************************************
33716C               **  STEP 20.A--                                     **
33717C               **  PROBE AGNES    CLUSTER PRINT <ALL/FINAL>        **
33718C               ******************************************************
33719C
33720      IPART1='AGNE'
33721      IPART2='CLUS'
33722      IPART3='PRIN'
33723      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
33724     1   IHARG(3).EQ.IPART3)THEN
33725        IHV=IAGNPR
33726        GOTO5160
33727      ENDIF
33728C
33729CCCCC FOLLOWING SECTION ADDED AUGUST       2017.
33730C               *******************************************************
33731C               **  STEP 20.A--                                      **
33732C               **  PROBE AGNES CLUSTER TYPE <AGGLOMERATIVE/DIVISIVE **
33733C               *******************************************************
33734C
33735      IPART1='AGN '
33736      IPART2='CLUS'
33737      IPART3='TYPE'
33738      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
33739     1   IHARG(3).EQ.IPART3)THEN
33740        IHV=IAGNTY
33741        GOTO5160
33742      ENDIF
33743C
33744CCCCC FOLLOWING SECTION ADDED AUGUST       2017.
33745C               *******************************************************
33746C               **  STEP 20.A--                                      **
33747C               **  PROBE AGNES CLUSTER METHOD                       **
33748C               **        <AVERAGE LINKAGE/SINGLE LINKAGE/WARD/      **
33749C               **        COMPLETE LINKAGE/CENTROID/GOWER/           **
33750C               **        WEIGHTED AVERAGE LINKAGE>                  **
33751C               *******************************************************
33752C
33753      IPART1='AGN '
33754      IPART2='CLUS'
33755      IPART3='METH'
33756      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
33757     1   IHARG(3).EQ.IPART3)THEN
33758        IHV=IAGNME
33759        GOTO5160
33760      ENDIF
33761C
33762CCCCC FOLLOWING SECTION ADDED AUGUST       2017.
33763C               *******************************************************
33764C               **  STEP 20.A--                                      **
33765C               **  PROBE AGNES CLUSTER MAXIMUM SIZE <VALUE>         **
33766C               *******************************************************
33767C
33768      IPART1='AGN '
33769      IPART2='CLUS'
33770      IPART3='MAXI'
33771      IPART4='SIZE'
33772      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
33773     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4)THEN
33774        IV=IAGNMS
33775        GOTO5150
33776      ENDIF
33777C
33778CCCCC FOLLOWING SECTION ADDED AUGUST       2017.
33779C               ******************************************************
33780C               **  STEP 20.A--                                     **
33781C               **  PROBE FANNY    CLUSTER SCALE  <ON/OFF>          **
33782C               ******************************************************
33783C
33784      IPART1='FANN'
33785      IPART2='CLUS'
33786      IPART3='SCAL'
33787      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
33788     1   IHARG(3).EQ.IPART3)THEN
33789        IHV=IFANSC
33790        GOTO5160
33791      ENDIF
33792C
33793CCCCC FOLLOWING SECTION ADDED AUGUST       2017.
33794C               ******************************************************
33795C               **  STEP 20.A--                                     **
33796C               **  PROBE FANNY    CLUSTER DISTANCE                 **
33797C               **        <EUCLIDEAN/MANHATTAN>                     **
33798C               ******************************************************
33799C
33800      IPART1='FANN'
33801      IPART2='CLUS'
33802      IPART3='DIST'
33803      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
33804     1   IHARG(3).EQ.IPART3)THEN
33805        IHV=IFANDI
33806        GOTO5160
33807      ENDIF
33808C
33809CCCCC FOLLOWING SECTION ADDED AUGUST       2017.
33810C               ******************************************************
33811C               **  STEP 20.A--                                     **
33812C               **  PROBE FANNY    CLUSTER PRINT <ALL/FINAL>        **
33813C               ******************************************************
33814C
33815      IPART1='FANN'
33816      IPART2='CLUS'
33817      IPART3='PRIN'
33818      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
33819     1   IHARG(3).EQ.IPART3)THEN
33820        IHV=IFANPR
33821        GOTO5160
33822      ENDIF
33823C
33824CCCCC FOLLOWING SECTION ADDED AUGUST       2017.
33825C               *******************************************************
33826C               **  STEP 20.A--                                      **
33827C               **  PROBE FANNY CLUSTER MAXIMUM SIZE <VALUE>         **
33828C               *******************************************************
33829C
33830      IPART1='FANN'
33831      IPART2='CLUS'
33832      IPART3='MAXI'
33833      IPART4='SIZE'
33834      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
33835     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4)THEN
33836        IV=IFANMS
33837        GOTO5150
33838      ENDIF
33839C
33840CCCCC FOLLOWING SECTION ADDED JULY         2019.
33841C               ******************************************************
33842C               **  STEP 20.A--                                     **
33843C               **  PROBE BOXPLOT FENCE SKEWNESS <OFF/GALTON>       **
33844C               ******************************************************
33845C
33846      IPART1='BOXP'
33847      IPART2='FENC'
33848      IPART3='SKEW'
33849      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
33850     1   IHARG(3).EQ.IPART3)THEN
33851        IHV=IBXPSK
33852        GOTO5160
33853      ENDIF
33854C
33855      IPART1='BOX '
33856      IPART2='PLOT'
33857      IPART3='FENC'
33858      IPART4='SKEW'
33859      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
33860     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4)THEN
33861        IHV=IBXPSK
33862        GOTO5160
33863      ENDIF
33864C
33865CCCCC FOLLOWING SECTION ADDED AUGUST       2019.
33866C               ******************************************************
33867C               **  STEP 20.A--                                     **
33868C               **  PROBE ONE SAMPLE PROFICIENCY TEST IDENTIFY      **
33869C               **        LAB <DEFAULT/UNUSUA/EXTREMELY UNUSUAL>    **
33870C               ******************************************************
33871C
33872      IPART1='ONE '
33873      IPART2='SAMP'
33874      IPART3='PROF'
33875      IPART4='TEST'
33876      IPART5='IDEN'
33877      IPART6='LAB '
33878      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
33879     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4 .AND.
33880     1   IHARG(5).EQ.IPART5 .AND. IHARG(6)(1:3).EQ.IPART6)THEN
33881        IHV=I1PTOC
33882        GOTO5160
33883      ENDIF
33884C
33885CCCCC FOLLOWING SECTION ADDED SEPTEMBER    2019.
33886C               ******************************************************
33887C               **  STEP 20.A--                                     **
33888C               **  PROBE GREP CASE <IGNORE/NOIGNORE>               **
33889C               ******************************************************
33890C
33891      IPART1='GREP'
33892      IPART2='CASE'
33893      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2)THEN
33894        IHV=IGRPCA
33895        GOTO5160
33896      ENDIF
33897C
33898CCCCC FOLLOWING SECTION ADDED SEPTEMBER    2019.
33899C               ******************************************************
33900C               **  STEP 20.A--                                     **
33901C               **  PROBE GREP RECURSIVE <ON/OFF>                   **
33902C               ******************************************************
33903C
33904      IPART1='GREP'
33905      IPART2='RECU'
33906      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2)THEN
33907        IHV=IGRPRE
33908        GOTO5160
33909      ENDIF
33910C
33911CCCCC FOLLOWING SECTION ADDED SEPTEMBER    2019.
33912C               ******************************************************
33913C               **  STEP 20.A--                                     **
33914C               **  PROBE GREP LINE NUMBERS <ON/OFF>                **
33915C               ******************************************************
33916C
33917      IPART1='GREP'
33918      IPART2='LINE'
33919      IPART3='NUMB'
33920      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
33921     1   IHARG(3).EQ.IPART3)THEN
33922        IHV=IGRPLN
33923        GOTO5160
33924      ENDIF
33925C
33926CCCCC FOLLOWING SECTION ADDED SEPTEMBER    2019.
33927C               ******************************************************
33928C               **  STEP 20.A--                                     **
33929C               **  PROBE GREP EXACT MATCH <ON/OFF>                 **
33930C               ******************************************************
33931C
33932      IPART1='GREP'
33933      IPART2='EXAC'
33934      IPART3='MATC'
33935      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
33936     1   IHARG(3).EQ.IPART3)THEN
33937        IHV=IGRPEM
33938        GOTO5160
33939      ENDIF
33940C
33941CCCCC FOLLOWING SECTION ADDED SEPTEMBER    2019.
33942C               ******************************************************
33943C               **  STEP 20.A--                                     **
33944C               **  PROBE GREP NO MATCH <ON/OFF>                    **
33945C               ******************************************************
33946C
33947      IPART1='GREP'
33948      IPART2='NO  '
33949      IPART3='MATC'
33950      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
33951     1   IHARG(3).EQ.IPART3)THEN
33952        IHV=IGRPNM
33953        GOTO5160
33954      ENDIF
33955C
33956CCCCC FOLLOWING SECTION ADDED SEPTEMBER    2019.
33957C               ******************************************************
33958C               **  STEP 20.A--                                     **
33959C               **  PROBE GREP FILE NAME ONLY <ON/OFF>              **
33960C               ******************************************************
33961C
33962      IPART1='GREP'
33963      IPART2='FILE'
33964      IPART3='NAME'
33965      IPART4='ONLY'
33966      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
33967     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4)THEN
33968        IHV=IGRPFN
33969        GOTO5160
33970      ENDIF
33971C
33972CCCCC FOLLOWING SECTION ADDED SEPTEMBER    2019.
33973C               ******************************************************
33974C               **  STEP 20.A--                                     **
33975C               **  PROBE CAT MORE  <ON/OFF>                        **
33976C               ******************************************************
33977C
33978      IPART1='CAT '
33979      IPART2='MORE'
33980      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2)THEN
33981        IHV=ICATMO
33982        GOTO5160
33983      ENDIF
33984C
33985CCCCC FOLLOWING SECTION ADDED SEPTEMBER    2019.
33986C               ******************************************************
33987C               **  STEP 20.A--                                     **
33988C               **  PROBE DIR PAUSE  <ON/OFF>                       **
33989C               ******************************************************
33990C
33991      IPART1='DIR '
33992      IPART2='PAUS'
33993      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2)THEN
33994        IHV=IDIRPA
33995        GOTO5160
33996      ENDIF
33997C
33998CCCCC FOLLOWING SECTION ADDED SEPTEMBER    2019.
33999C               ******************************************************
34000C               **  STEP 20.A--                                     **
34001C               **  PROBE DIR SORT   <ALPHA/SIZE/DATE>              **
34002C               ******************************************************
34003C
34004      IPART1='DIR '
34005      IPART2='SORT'
34006      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2)THEN
34007        IHV=IDIRSO
34008        GOTO5160
34009      ENDIF
34010C
34011CCCCC FOLLOWING SECTION ADDED SEPTEMBER    2019.
34012C               ******************************************************
34013C               **  STEP 20.A--                                     **
34014C               **  PROBE DIR RECURSIVE  <ON/OFF>                   **
34015C               ******************************************************
34016C
34017      IPART1='DIR '
34018      IPART2='RECU'
34019      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2)THEN
34020        IHV=IDIRRE
34021        GOTO5160
34022      ENDIF
34023C
34024CCCCC FOLLOWING SECTION ADDED SEPTEMBER    2019.
34025C               ******************************************************
34026C               **  STEP 20.A--                                     **
34027C               **  PROBE DIR LONG LISTING  <ON/OFF>                **
34028C               ******************************************************
34029C
34030      IPART1='DIR '
34031      IPART2='LONG'
34032      IPART3='LIST'
34033      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
34034     1   IHARG(3).EQ.IPART3)THEN
34035        IHV=IDIRLL
34036        GOTO5160
34037      ENDIF
34038C
34039CCCCC FOLLOWING SECTION ADDED SEPTEMBER    2019.
34040C               ******************************************************
34041C               **  STEP 20.A--                                     **
34042C               **  PROBE STRING VARIABLE <APPEND/OVERWRITE>        **
34043C               ******************************************************
34044C
34045      IPART1='STRI'
34046      IPART2='VARI'
34047      IPART3='CHAR'
34048      IF((IHARG(1).EQ.IPART1 .OR. IHARG(1).EQ.IPART3) .AND.
34049     1    IHARG(2).EQ.IPART2)THEN
34050        IHV=ISTRVA
34051        GOTO5160
34052      ENDIF
34053C
34054CCCCC FOLLOWING SECTION ADDED SEPTEMBER    2019.
34055C               ******************************************************
34056C               **  STEP 20.A--                                     **
34057C               **  PROBE STRING COMBINE SEPARATOR  <VALUE>         **
34058C               ******************************************************
34059C
34060      IPART1='STRI'
34061      IPART2='COMB'
34062      IPART3='SEPA'
34063      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
34064     1   IHARG(3).EQ.IPART3)THEN
34065        IHV=ISTRCS
34066        GOTO5160
34067      ENDIF
34068C
34069CCCCC FOLLOWING SECTION ADDED SEPTEMBER    2019.
34070C               ******************************************************
34071C               **  STEP 20.A--                                     **
34072C               **  PROBE RATIO OF MEANS METHOD                     **
34073C               **        <FIELLER/LOG RATIO/LARGE SAMPLE>          **
34074C               ******************************************************
34075C
34076      IPART1='RATI'
34077      IPART2='OF  '
34078      IPART3='MEAN'
34079      IPART4='METH'
34080      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
34081     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4)THEN
34082        IHV=IRATME
34083        GOTO5160
34084      ENDIF
34085C
34086CCCCC FOLLOWING SECTION ADDED OCTOBER      2019.
34087C               ******************************************************
34088C               **  STEP 20.A--                                     **
34089C               **  PROBE DAVID TEST CRITICAL VALUES                **
34090C               **        <ASTM/DAVID/OFF>                          **
34091C               ******************************************************
34092C
34093      IPART1='DAVI'
34094      IPART2='TEST'
34095      IPART3='CRIT'
34096      IPART4='VALU'
34097      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
34098     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4)THEN
34099        IHV=IDAVTA
34100        GOTO5160
34101      ENDIF
34102C
34103CCCCC FOLLOWING SECTION ADDED OCTOBER      2019.
34104C               ******************************************************
34105C               **  STEP 20.A--                                     **
34106C               **  PROBE SKEW OUTLIER TEST CRITICAL VALUES         **
34107C               **        <ASTM/SIMULATION>                         **
34108C               ******************************************************
34109C
34110      IPART1='SKEW'
34111      IPART2='OUTL'
34112      IPART3='TEST'
34113      IPART4='CRIT'
34114      IPART5='VALU'
34115      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
34116     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4 .AND.
34117     1   IHARG(5).EQ.IPART5)THEN
34118        IHV=ISKOTA
34119        GOTO5160
34120      ENDIF
34121C
34122CCCCC FOLLOWING SECTION ADDED OCTOBER      2019.
34123C               ******************************************************
34124C               **  STEP 20.A--                                     **
34125C               **  PROBE KURTOSIS OUTLIER TEST TABLE               **
34126C               **        <ASTM/SIMULATION>                         **
34127C               ******************************************************
34128C
34129      IPART1='KURT'
34130      IPART2='OUTL'
34131      IPART3='TEST'
34132      IPART4='CRIT'
34133      IPART5='VALU'
34134      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
34135     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4 .AND.
34136     1   IHARG(5).EQ.IPART5)THEN
34137        IHV=IKUOTA
34138        GOTO5160
34139      ENDIF
34140C
34141CCCCC FOLLOWING SECTION ADDED OCTOBER      2019.
34142C               ******************************************************
34143C               **  STEP 20.A--                                     **
34144C               **  PROBE GRUBB TEST CRITICAL VALUES                **
34145C               **        <ASTM/FORMULA/SIMULATION>                 **
34146C               ******************************************************
34147C
34148      IPART1='GRUB'
34149      IPART2='TEST'
34150      IPART3='CRIT'
34151      IPART4='VALU'
34152      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
34153     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4)THEN
34154        IHV=IGRUTA
34155        GOTO5160
34156      ENDIF
34157C
34158CCCCC FOLLOWING SECTION ADDED OCTOBER      2019.
34159C               ******************************************************
34160C               **  STEP 20.A--                                     **
34161C               **  PROBE GRUBB TEST STANDARD DEVIATION <VALUE>     **
34162C               ******************************************************
34163C
34164      IPART1='GRUB'
34165      IPART2='TEST'
34166      IPART3='STAN'
34167      IPART4='DEVI'
34168      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
34169     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4)THEN
34170        AV=PGRUSD
34171        GOTO5170
34172      ENDIF
34173      IPART3='SD  '
34174      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
34175     1   IHARG(3).EQ.IPART3)THEN
34176        AV=PGRUSD
34177        GOTO5170
34178      ENDIF
34179C
34180      IPART1='GRUB'
34181      IPART2='STAN'
34182      IPART3='DEVI'
34183      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
34184     1   IHARG(3).EQ.IPART3)THEN
34185        AV=PGRUSD
34186        GOTO5170
34187      ENDIF
34188      IPART2='SD  '
34189      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2)THEN
34190        AV=PGRUSD
34191        GOTO5170
34192      ENDIF
34193C
34194CCCCC FOLLOWING SECTION ADDED OCTOBER      2019.
34195C               ******************************************************
34196C               **  STEP 20.A--                                     **
34197C               **  PROBE GRUBB TEST DEGREES OF FREEDOM <VALUE>     **
34198C               ******************************************************
34199C
34200      IPART1='GRUB'
34201      IPART2='TEST'
34202      IPART3='DEGR'
34203      IPART4='OF  '
34204      IPART5='FREE'
34205      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
34206     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4 .AND.
34207     1   IHARG(5).EQ.IPART5)THEN
34208        AV=PGRUDF
34209        GOTO5170
34210      ENDIF
34211      IPART3='DF  '
34212      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
34213     1   IHARG(3).EQ.IPART3)THEN
34214        AV=PGRUDF
34215        GOTO5170
34216      ENDIF
34217C
34218      IPART1='GRUB'
34219      IPART2='DEGR'
34220      IPART3='OF  '
34221      IPART4='FREE'
34222      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
34223     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4)THEN
34224        AV=PGRUDF
34225        GOTO5170
34226      ENDIF
34227      IPART2='DF  '
34228      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2)THEN
34229        AV=PGRUDF
34230        GOTO5170
34231      ENDIF
34232C
34233CCCCC FOLLOWING SECTION ADDED JUNE         2017.
34234C               *******************************************************
34235C               **  STEP 20.A--                                      **
34236C               **  PROBE TWO SAMPLE COEFFICIENT OF VARIATION TEST   **
34237C               *******************************************************
34238C
34239      IPART1='TWO '
34240      IPART2='SAMP'
34241      IPART3='COEF'
34242      IPART4='OF  '
34243      IPART5='VARI'
34244      IPART6='TEST'
34245      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
34246     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4 .AND.
34247     1   IHARG(5).EQ.IPART5 .AND. IHARG(6).EQ.IPART6)THEN
34248        IHV=ICVTTE
34249        GOTO5160
34250      ENDIF
34251C
34252CCCCC FOLLOWING SECTION ADDED JULY         2017.
34253C               *******************************************************
34254C               **  STEP 20.A--                                      **
34255C               **  PROBE BLAND ALTMAN PLOT STATISTIC                **
34256C               *******************************************************
34257C
34258      IPART1='BLAN'
34259      IPART2='ALTM'
34260      IPART3='PLOT'
34261      IPART4='STAT'
34262      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
34263     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4)THEN
34264        IHV=IBAPST
34265        GOTO5160
34266      ENDIF
34267C
34268CCCCC FOLLOWING SECTION ADDED JULY         2017.
34269C               *******************************************************
34270C               **  STEP 20.A--                                      **
34271C               **  PROBE BLAND ALTMAN PLOT BOOTSTRAP                **
34272C               *******************************************************
34273C
34274      IPART1='BLAN'
34275      IPART2='ALTM'
34276      IPART3='PLOT'
34277      IPART4='BOOT'
34278      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
34279     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4)THEN
34280        IHV=IBAPBO
34281        GOTO5160
34282      ENDIF
34283C
34284CCCCC FOLLOWING SECTION ADDED JULY         2017.
34285C               *******************************************************
34286C               **  STEP 20.A--                                      **
34287C               **  PROBE BLAND ALTMAN PLOT CONFIDENCE LIMIT         **
34288C               *******************************************************
34289C
34290      IPART1='BLAN'
34291      IPART2='ALTM'
34292      IPART3='PLOT'
34293      IPART4='CONF'
34294      IPART5='LIMI'
34295      IPART6='INTE'
34296      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
34297     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4 .AND.
34298     1   (IHARG(5).EQ.IPART5 .OR. IHARG(5).EQ.IPART6))THEN
34299        IHV=IBAPCL
34300        GOTO5160
34301      ENDIF
34302C
34303CCCCC FOLLOWING SECTION ADDED JULY         2017.
34304C               *******************************************************
34305C               **  STEP 20.A--                                      **
34306C               **  PROBE BLAND ALTMAN PLOT                          **
34307C               *******************************************************
34308C
34309      IPART1='BLAN'
34310      IPART2='ALTM'
34311      IPART3='PLOT'
34312      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
34313     1   IHARG(3).EQ.IPART3)THEN
34314        IHV=IBAPPE
34315        GOTO5160
34316      ENDIF
34317C
34318CCCCC FOLLOWING SECTION ADDED AUGUST       2017.
34319C               *******************************************************
34320C               **  STEP 20.A--                                      **
34321C               **  PROBE SAMPLE RANDOM PERMUTATION DISTINCT         **
34322C               *******************************************************
34323C
34324      IPART1='SAMP'
34325      IPART2='RAND'
34326      IPART3='PERM'
34327      IPART4='DIST'
34328      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
34329     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4)THEN
34330        IHV=ISRPDI
34331        GOTO5160
34332      ENDIF
34333C
34334CCCCC FOLLOWING SECTION ADDED APRIL        2017.
34335C               *******************************************************
34336C               **  STEP 20.A--                                      **
34337C               **  PROBE NORMAL MIXTURE CLUSTER TITLE <STRING>      **
34338C               *******************************************************
34339C
34340      IPART1='NORM'
34341      IPART2='MIXT'
34342      IPART3='CLUS'
34343      IPART4='TITL'
34344      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
34345     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4)THEN
34346        IHV=INMCTI(1:4)
34347        GOTO5160
34348      ENDIF
34349C
34350CCCCC FOLLOWING SECTION ADDED MAY           2015.
34351C               ******************************************************
34352C               **  STEP 20.A--                                     **
34353C               **  PROBE H CONSISTENCY PLOT TYPE                   **
34354C               **        <STACKED/DEFALT>                          **
34355C               ******************************************************
34356C
34357      IPART1='H   '
34358      IPART2='K   '
34359      IPART3='COCH'
34360      IPART4='CONS'
34361      IPART5='PLOT'
34362      IPART6='TYPE'
34363      IF(
34364     1  (IHARG(1).EQ.IPART1 .OR. IHARG(1).EQ.IPART2 .OR.
34365     1   IHARG(1).EQ.IPART3) .AND.
34366     1   IHARG(2).EQ.IPART4.AND. IHARG(3).EQ.IPART5 .AND.
34367     1   IHARG(4).EQ.IPART6)THEN
34368        IHV=IHKCPT
34369        GOTO5160
34370      ENDIF
34371C
34372CCCCC FOLLOWING SECTION ADDED MAY           2015.
34373C               ******************************************************
34374C               **  STEP 20.A--                                     **
34375C               **  PROBE H CONSISTENCY PLOT GAP <VALUE>            **
34376C               ******************************************************
34377C
34378      IPART1='H   '
34379      IPART2='K   '
34380      IPART3='COCH'
34381      IPART4='CONS'
34382      IPART5='PLOT'
34383      IPART6='GAP'
34384      IF(
34385     1  (IHARG(1).EQ.IPART1 .OR. IHARG(1).EQ.IPART2 .OR.
34386     1   IHARG(1).EQ.IPART3) .AND.
34387     1   IHARG(2).EQ.IPART4.AND. IHARG(3).EQ.IPART5 .AND.
34388     1   IHARG(4).EQ.IPART6)THEN
34389        IV=IHKCGP
34390        GOTO5150
34391      ENDIF
34392C
34393CCCCC FOLLOWING SECTION ADDED MAY           2015.
34394C               ******************************************************
34395C               **  STEP 20.A--                                     **
34396C               **  PROBE H CONSISTENCY PLOT MATERIAL FIRST <VALUE> **
34397C               ******************************************************
34398C
34399      IPART1='H   '
34400      IPART2='K   '
34401      IPART3='COCH'
34402      IPART4='CONS'
34403      IPART5='PLOT'
34404      IPART6='MATE'
34405      IPART7='FIRS'
34406      IF(
34407     1  (IHARG(1).EQ.IPART1 .OR. IHARG(1).EQ.IPART2 .OR.
34408     1   IHARG(1).EQ.IPART3) .AND.
34409     1   IHARG(2).EQ.IPART4 .AND. IHARG(3).EQ.IPART5 .AND.
34410     1   IHARG(4).EQ.IPART6 .AND. IHARG(5).EQ.IPART7)THEN
34411        IV=IHKCM1
34412        GOTO5150
34413      ENDIF
34414C
34415CCCCC FOLLOWING SECTION ADDED MAY           2015.
34416C               ******************************************************
34417C               **  STEP 20.A--                                     **
34418C               **  PROBE H CONSISTENCY PLOT MATERIAL LAST  <VALUE> **
34419C               ******************************************************
34420C
34421      IPART1='H   '
34422      IPART2='K   '
34423      IPART3='COCH'
34424      IPART4='CONS'
34425      IPART5='PLOT'
34426      IPART6='MATE'
34427      IPART7='LAST'
34428      IF(
34429     1  (IHARG(1).EQ.IPART1 .OR. IHARG(1).EQ.IPART2 .OR.
34430     1   IHARG(1).EQ.IPART3) .AND.
34431     1   IHARG(2).EQ.IPART4 .AND. IHARG(3).EQ.IPART5 .AND.
34432     1   IHARG(4).EQ.IPART6 .AND. IHARG(5).EQ.IPART7)THEN
34433        IV=IHKCM2
34434        GOTO5150
34435      ENDIF
34436C
34437CCCCC FOLLOWING SECTION ADDED MAY           2015.
34438C               ********************************************************
34439C               **  STEP 20.A--                                       **
34440C               **  PROBE H CONSISTENCY PLOT LABORATORY FIRST <VALUE> **
34441C               ********************************************************
34442C
34443      IPART1='H   '
34444      IPART2='K   '
34445      IPART3='COCH'
34446      IPART4='CONS'
34447      IPART5='PLOT'
34448      IPART6='LABO'
34449      IPART7='FIRS'
34450      IF(
34451     1  (IHARG(1).EQ.IPART1 .OR. IHARG(1).EQ.IPART2 .OR.
34452     1   IHARG(1).EQ.IPART3) .AND.
34453     1   IHARG(2).EQ.IPART4 .AND. IHARG(3).EQ.IPART5 .AND.
34454     1   IHARG(4)(1:3).EQ.IPART6(1:3) .AND. IHARG(5).EQ.IPART7)THEN
34455        IV=IHKCL1
34456        GOTO5150
34457      ENDIF
34458C
34459CCCCC FOLLOWING SECTION ADDED MAY           2015.
34460C               ********************************************************
34461C               **  STEP 20.A--                                       **
34462C               **  PROBE H CONSISTENCY PLOT LABORATORY LAST  <VALUE> **
34463C               ********************************************************
34464C
34465      IPART1='H   '
34466      IPART2='K   '
34467      IPART3='COCH'
34468      IPART4='CONS'
34469      IPART5='PLOT'
34470      IPART6='LABO'
34471      IPART7='LAST'
34472      IF(
34473     1  (IHARG(1).EQ.IPART1 .OR. IHARG(1).EQ.IPART2 .OR.
34474     1   IHARG(1).EQ.IPART3) .AND.
34475     1   IHARG(2).EQ.IPART4 .AND. IHARG(3).EQ.IPART5 .AND.
34476     1   IHARG(4)(1:3).EQ.IPART6(1:3) .AND. IHARG(5).EQ.IPART7)THEN
34477        IV=IHKCL2
34478        GOTO5150
34479      ENDIF
34480C
34481CCCCC FOLLOWING SECTION ADDED MAY           2015.
34482C               ******************************************************
34483C               **  STEP 20.A--                                     **
34484C               **  PROBE H CONSISTENCY PLOT                        **
34485C               **        <LABORATORIES WITHIN MATERIALS/           **
34486C               **         MATERIALS WITHIN LABORATORIES>           **
34487C               ******************************************************
34488C
34489      IPART1='H   '
34490      IPART2='K   '
34491      IPART3='COCH'
34492      IPART4='CONS'
34493      IPART5='PLOT'
34494      IF(
34495     1  (IHARG(1).EQ.IPART1 .OR. IHARG(1).EQ.IPART2 .OR.
34496     1   IHARG(1).EQ.IPART3) .AND.
34497     1   IHARG(2).EQ.IPART4.AND. IHARG(3).EQ.IPART5)THEN
34498        IHV=IHKCLM
34499        GOTO5160
34500      ENDIF
34501C
34502CCCCC FOLLOWING SECTION ADDED JUNE          2015.
34503C               ******************************************************
34504C               **  STEP 20.A--                                     **
34505C               **  PROBE TWO FACTOR  PLOT TYPE                     **
34506C               **        <STACKED/DEFALT>                          **
34507C               ******************************************************
34508C
34509      IPART1='TWO '
34510      IPART2='FACT'
34511      IPART3='PLOT'
34512      IPART4='TYPE'
34513      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
34514     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4)THEN
34515        IHV=ITWFPT
34516        GOTO5160
34517      ENDIF
34518C
34519CCCCC FOLLOWING SECTION ADDED JUNE          2015.
34520C               ******************************************************
34521C               **  STEP 20.A--                                     **
34522C               **  PROBE TWO FACTOR  PLOT GAP <VALUE>              **
34523C               ******************************************************
34524C
34525      IPART1='TWO '
34526      IPART2='FACT'
34527      IPART3='PLOT'
34528      IPART4='GAP'
34529      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
34530     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4)THEN
34531        IV=ITWFGP
34532        GOTO5150
34533      ENDIF
34534C
34535CCCCC FOLLOWING SECTION ADDED JUNE          2015.
34536C               ******************************************************
34537C               **  STEP 20.A--                                     **
34538C               **  PROBE TWO FACTOR  PLOT MATERIAL FIRST <VALUE>   **
34539C               ******************************************************
34540C
34541      IPART1='TWO '
34542      IPART2='FACT'
34543      IPART3='PLOT'
34544      IPART4='MATE'
34545      IPART5='FIRS'
34546      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
34547     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4 .AND.
34548     1   IHARG(5).EQ.IPART5)THEN
34549        IV=ITWFM1
34550        GOTO5150
34551      ENDIF
34552C
34553CCCCC FOLLOWING SECTION ADDED JUNE          2015.
34554C               ******************************************************
34555C               **  STEP 20.A--                                     **
34556C               **  PROBE TWO FACTOR  PLOT MATERIAL LAST  <VALUE>   **
34557C               ******************************************************
34558C
34559      IPART1='TWO '
34560      IPART2='FACT'
34561      IPART3='PLOT'
34562      IPART4='MATE'
34563      IPART5='LAST'
34564      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
34565     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4 .AND.
34566     1   IHARG(5).EQ.IPART5)THEN
34567        IV=ITWFM2
34568        GOTO5150
34569      ENDIF
34570C
34571CCCCC FOLLOWING SECTION ADDED JUNE          2015.
34572C               ********************************************************
34573C               **  STEP 20.A--                                       **
34574C               **  PROBE TWO FACTOR  PLOT LABORATORY FIRST <VALUE>   **
34575C               ********************************************************
34576C
34577      IPART1='TWO '
34578      IPART2='FACT'
34579      IPART3='PLOT'
34580      IPART4='LABO'
34581      IPART5='FIRS'
34582      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
34583     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4 .AND.
34584     1   IHARG(5).EQ.IPART5)THEN
34585        IV=ITWFL1
34586        GOTO5150
34587      ENDIF
34588C
34589CCCCC FOLLOWING SECTION ADDED JUNE          2015.
34590C               ********************************************************
34591C               **  STEP 20.A--                                       **
34592C               **  PROBE TWO FACTOR  PLOT LABORATORY LAST  <VALUE>   **
34593C               ********************************************************
34594C
34595      IPART1='TWO '
34596      IPART2='FACT'
34597      IPART3='PLOT'
34598      IPART4='LABO'
34599      IPART5='LAST'
34600      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
34601     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4 .AND.
34602     1   IHARG(5).EQ.IPART5)THEN
34603        IV=ITWFL2
34604        GOTO5150
34605      ENDIF
34606C
34607CCCCC FOLLOWING SECTION ADDED NOVEMBER      2015.
34608C               ********************************************************
34609C               **  STEP 20.A--                                       **
34610C               **  PROBE PERCENTILE DIGITS                 <VALUE>   **
34611C               ********************************************************
34612C
34613      IPART1='PERC'
34614      IPART2='DIGI'
34615      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2)THEN
34616        IV=IPCIDI
34617        GOTO5150
34618      ENDIF
34619C
34620CCCCC FOLLOWING SECTION ADDED JUNE          2015.
34621C               ******************************************************
34622C               **  STEP 20.A--                                     **
34623C               **  PROBE TWO FACTOR  PLOT                          **
34624C               **        <LABORATORIES WITHIN MATERIALS/           **
34625C               **         MATERIALS WITHIN LABORATORIES>           **
34626C               ******************************************************
34627C
34628      IPART1='TWO '
34629      IPART2='FACT'
34630      IPART3='PLOT'
34631      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
34632     1   IHARG(3).EQ.IPART3)THEN
34633        IHV=ITWFLM
34634        GOTO5160
34635      ENDIF
34636C
34637CCCCC FOLLOWING SECTION ADDED JUNE          2015.
34638C               ******************************************************
34639C               **  STEP 20.A--                                     **
34640C               **  PROBE TWO WAY PLOT Y AXIS                       **
34641C               **        <RAW/DEVIATION FROM AVERAGE>              **
34642C               ******************************************************
34643C
34644      IPART1='TWO '
34645      IPART2='WAY '
34646      IPART3='PLOT'
34647      IPART4='Y   '
34648      IPART5='AXIS'
34649      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
34650     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4 .AND.
34651     1   IHARG(5).EQ.IPART5)THEN
34652        IHV=ITWOYA
34653        GOTO5160
34654      ENDIF
34655C
34656CCCCC FOLLOWING SECTION ADDED JUNE          2015.
34657C               ******************************************************
34658C               **  STEP 20.A--                                     **
34659C               **  PROBE TWO WAY PLOT FIT TABLE <ON/OFF>           **
34660C               ******************************************************
34661C
34662      IPART1='TWO '
34663      IPART2='WAY '
34664      IPART3='PLOT'
34665      IPART4='FIT '
34666      IPART5='TABL'
34667      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
34668     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4 .AND.
34669     1   IHARG(5).EQ.IPART5)THEN
34670        IHV=ITWOFI
34671        GOTO5160
34672      ENDIF
34673C
34674CCCCC FOLLOWING SECTION ADDED JUNE          2015.
34675C               ******************************************************
34676C               **  STEP 20.A--                                     **
34677C               **  PROBE TWO WAY PLOT AVERAGES TABLE <ON/OFF>      **
34678C               ******************************************************
34679C
34680      IPART1='TWO '
34681      IPART2='WAY '
34682      IPART3='PLOT'
34683      IPART4='AVER'
34684      IPART5='TABL'
34685      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
34686     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4 .AND.
34687     1   IHARG(5).EQ.IPART5)THEN
34688        IHV=ITWOAV
34689        GOTO5160
34690      ENDIF
34691C
34692CCCCC FOLLOWING SECTION ADDED JUNE          2015.
34693C               ******************************************************
34694C               **  STEP 20.A--                                     **
34695C               **  PROBE TWO WAY PLOT ANOVA TABLE DECIMAL <VALUE>  **
34696C               ******************************************************
34697C
34698      IPART1='TWO '
34699      IPART2='WAY '
34700      IPART3='PLOT'
34701      IPART4='ANOV'
34702      IPART5='TABL'
34703      IPART6='DECI'
34704      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
34705     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4 .AND.
34706     1   IHARG(5).EQ.IPART5 .AND. IHARG(6).EQ.IPART6)THEN
34707        IV=ITWOAD
34708        GOTO5150
34709      ENDIF
34710C
34711CCCCC FOLLOWING SECTION ADDED JUNE          2015.
34712C               ******************************************************
34713C               **  STEP 20.A--                                     **
34714C               **  PROBE TWO WAY PLOT ANOVA TABLE <ON/OFF>         **
34715C               ******************************************************
34716C
34717      IPART1='TWO '
34718      IPART2='WAY '
34719      IPART3='PLOT'
34720      IPART4='ANOV'
34721      IPART5='TABL'
34722      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
34723     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4 .AND.
34724     1   IHARG(5).EQ.IPART5)THEN
34725        IHV=ITWOAN
34726        GOTO5160
34727      ENDIF
34728C
34729CCCCC FOLLOWING SECTION ADDED JUNE          2015.
34730C               ******************************************************
34731C               **  STEP 20.A--                                     **
34732C               **  PROBE TWO WAY PLOT FACTOR LABEL <CODED/VALUE>   **
34733C               ******************************************************
34734C
34735      IPART1='TWO '
34736      IPART2='WAY '
34737      IPART3='PLOT'
34738      IPART4='FACT'
34739      IPART5='LABE'
34740      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
34741     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4 .AND.
34742     1   IHARG(5).EQ.IPART5)THEN
34743        IHV=ITWOLA
34744        GOTO5160
34745      ENDIF
34746C
34747CCCCC FOLLOWING SECTION ADDED JUNE          2015.
34748C               ******************************************************
34749C               **  STEP 20.A--                                     **
34750C               **  PROBE TWO WAY PLOT FACTOR DECIMAL <VALUE>       **
34751C               ******************************************************
34752C
34753      IPART1='TWO '
34754      IPART2='WAY '
34755      IPART3='PLOT'
34756      IPART4='FACT'
34757      IPART5='DECI'
34758      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2 .AND.
34759     1   IHARG(3).EQ.IPART3 .AND. IHARG(4).EQ.IPART4 .AND.
34760     1   IHARG(5).EQ.IPART5)THEN
34761        IV=ITWODE
34762        GOTO5150
34763      ENDIF
34764C
34765CCCCC FOLLOWING SECTION ADDED OCTOBER     2010.
34766C               ***************************************
34767C               **  STEP 20.A--                      **
34768C               **  PROBE MOVING DIRECTION           **
34769C               **        <LEFT/CENTER/RIGHT>        **
34770C               ***************************************
34771C
34772      IPART1='MOVI'
34773      IPART2='DIRE'
34774      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
34775        IHV=IMOVDI
34776        GOTO5160
34777      ENDIF
34778C
34779CCCCC FOLLOWING SECTION ADDED OCTOBER     2010.
34780C               ***************************************
34781C               **  STEP 20.A--                      **
34782C               **  PROBE MOVING END POINT           **
34783C               **        <SKIP/PARTIAL/SYMMETRIC>   **
34784C               ***************************************
34785C
34786      IPART1='MOVI'
34787      IPART2='ENDP'
34788      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
34789        IHV=IMOVEP
34790        GOTO5160
34791      ENDIF
34792C
34793      IPART2='END '
34794      IPART3='POIN'
34795      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
34796     1   IHARG(3).EQ.IPART3)THEN
34797        IHV=IMOVEP
34798        GOTO5160
34799      ENDIF
34800C
34801CCCCC FOLLOWING SECTION ADDED MAY           2015.
34802C               ******************************************************
34803C               **  STEP 20.A--                                     **
34804C               **  PROBE MOVING STATISTIC PLOT GROUPS              **
34805C               **        <STACKED/DEFAULT>                         **
34806C               ******************************************************
34807C
34808      IPART1='MOVI'
34809      IPART2='STAT'
34810      IPART3='PLOT'
34811      IPART4='GROU'
34812      IPART5='CUMU'
34813      IF(
34814     1  (IHARG(1).EQ.IPART1 .OR. IHARG(1).EQ.IPART5) .AND.
34815     1   IHARG(2).EQ.IPART2.AND. IHARG(3).EQ.IPART3 .AND.
34816     1   IHARG(4).EQ.IPART4)THEN
34817        IHV=IMOVGR
34818        GOTO5160
34819      ENDIF
34820C
34821CCCCC FOLLOWING SECTION ADDED MARCH         2014.
34822C               *****************************************************
34823C               **  STEP 20.A--                                    **
34824C               **  PROBE CONSENSUS MEAN TYPE B <VARIABLE NAME>    **
34825C               *****************************************************
34826C
34827      IPART1='CONS'
34828      IPART2='MEAN'
34829      IPART3='TYPE'
34830      IPART4='B   '
34831      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
34832     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
34833     1   IHARG(5).NE.'METH'.AND.IHARG(5).NE.'VALU')THEN
34834        IFOUND='YES'
34835        WRITE(ICOUT,999)
34836        CALL DPWRST('XXX','BUG ')
34837        WRITE(ICOUT,55171)ICMETB
3483855171   FORMAT('THE CONSENSUS MEAN TYPE B VARIABLE HAS ',
34839     1         'BEEN SET TO ',A8)
34840        CALL DPWRST('XXX','BUG ')
34841        IPROBS=' '
34842        IPROBS(1:8)=ICMETB(1:8)
34843        NCPROB=8
34844        GOTO8100
34845      ENDIF
34846C
34847CCCCC FOLLOWING SECTION ADDED OCTOBER       2014.
34848C               *****************************************************
34849C               **  PROBE VARIABLE NAME <FILE/AUTOMATIC>           **
34850C               *****************************************************
34851C
34852      IPART1='VARI'
34853      IPART2='NAME'
34854      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
34855        IHV=IAVANM
34856        GOTO5160
34857      ENDIF
34858C
34859CCCCC FOLLOWING SECTION ADDED MARCH         2015.
34860C               *****************************************************
34861C               **  PROBE MACRO SWITCH <ON/OFF>                    **
34862C               *****************************************************
34863C
34864      IPART1='MACR'
34865      IPART2='SWIT'
34866      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
34867        IHV=IMACRO
34868        GOTO5160
34869      ENDIF
34870C
34871CCCCC FOLLOWING SECTION ADDED MARCH         2015.
34872C               *****************************************************
34873C               **  PROBE MACRO LEVEL <VALUE>                      **
34874C               *****************************************************
34875C
34876      IPART1='MACR'
34877      IPART2='LEVE'
34878      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
34879        IV=IMALEV
34880        GOTO5150
34881      ENDIF
34882C
34883C     ***********************************
34884C     **  CHECK FOR X11 CLIPBOARD      **
34885C     ***********************************
34886C
34887      IPART1='X11 '
34888      IPART2='CLIP'
34889      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
34890        IHV=IX11CB
34891        GOTO5160
34892      ENDIF
34893C
34894CCCCC FOLLOWING SECTION ADDED OCTOBER       2014.
34895C               *****************************************************
34896C               **  PROBE AUTOMATIC VARIABLE BASE NAME             **
34897C               **        <VARIABLE NAME>                          **
34898C               *****************************************************
34899C
34900      IPART1='AUTO'
34901      IPART2='VARI'
34902      IPART3='BASE'
34903      IPART4='NAME'
34904      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
34905     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
34906        IFOUND='YES'
34907        WRITE(ICOUT,999)
34908        CALL DPWRST('XXX','BUG ')
34909        WRITE(ICOUT,55172)IAVABN
3491055172   FORMAT('THE AUTOMATIC VARIABLE BASE NAME HAS BEEN SET TO ',A8)
34911        CALL DPWRST('XXX','BUG ')
34912        IPROBS=' '
34913        IPROBS(1:8)=IAVABN(1:8)
34914        NCPROB=8
34915        GOTO8100
34916      ENDIF
34917C
34918CCCCC FOLLOWING SECTION ADDED OCTOBER     2010.
34919C               ***************************************
34920C               **  STEP 20.A--                      **
34921C               **  PROBE BRITTLE FIBER WEIBULL L    **
34922C               **        <CONSTANT/VARIANCE>        **
34923C               ***************************************
34924C
34925      IPART1='BRIT'
34926      IPART2='FIBE'
34927      IPART3='WEIB'
34928      IPART4='L   '
34929      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
34930     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
34931        IHV=IBFWLI
34932        GOTO5160
34933      ENDIF
34934C
34935      IPART4='GAUG'
34936      IPART5='LENG'
34937      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
34938     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
34939     1   IHARG(5).EQ.IPART5)THEN
34940        IHV=IBFWLI
34941        GOTO5160
34942      ENDIF
34943C
34944CCCCC FOLLOWING SECTION ADDED OCTOBER     2010.
34945C               ***************************************
34946C               **  STEP 20.A--                      **
34947C               **  PROBE END EFFECTS WEIBULL L      **
34948C               **        <CONSTANT/VARIANCE>        **
34949C               ***************************************
34950C
34951      IPART1='END '
34952      IPART2='EFFE'
34953      IPART3='WEIB'
34954      IPART4='L   '
34955      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
34956     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
34957        IHV=IEEWLI
34958        GOTO5160
34959      ENDIF
34960C
34961      IPART4='GAUG'
34962      IPART5='LENG'
34963      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
34964     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
34965     1   IHARG(5).EQ.IPART5)THEN
34966        IHV=IEEWLI
34967        GOTO5160
34968      ENDIF
34969C
34970CCCCC FOLLOWING SECTION ADDED NOVEMBER     2010.
34971C               ***************************************
34972C               **  STEP 20.A--                      **
34973C               **  PROBE MATRIX TO VARIABLE         **
34974C               **        <COLUMN/ROW>               **
34975C               ***************************************
34976C
34977      IPART1='MATR'
34978      IPART2='TO'
34979      IPART3='VARI'
34980      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
34981     1   IHARG(3).EQ.IPART3)THEN
34982        IHV=IMATVA
34983        GOTO5160
34984      ENDIF
34985C
34986CCCCC FOLLOWING SECTION ADDED NOVEMBER     2010.
34987C               ***************************************
34988C               **  STEP 20.A--                      **
34989C               **  PROBE VARIABLE TO MATRIX         **
34990C               **        <COLUMN/ROW>               **
34991C               ***************************************
34992C
34993      IPART1='VARI'
34994      IPART2='TO'
34995      IPART3='MATR'
34996      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
34997     1   IHARG(3).EQ.IPART3)THEN
34998        IHV=IVARMA
34999        GOTO5160
35000      ENDIF
35001C
35002CCCCC FOLLOWING SECTION ADDED DECEMBER     2010.
35003C               ***************************************
35004C               **  STEP 20.A--                      **
35005C               **  PROBE HOMOSCEDASTICITY PLOT      **
35006C               **        LOCATION <STAT>            **
35007C               ***************************************
35008C
35009      IPART1='HOMO'
35010      IPART2='PLOT'
35011      IPART3='LOCA'
35012      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
35013     1   IHARG(3).EQ.IPART3)THEN
35014        IHV=IHOMLO
35015        GOTO5160
35016      ENDIF
35017C
35018CCCCC FOLLOWING SECTION ADDED DECEMBER     2010.
35019C               ***************************************
35020C               **  STEP 20.A--                      **
35021C               **  PROBE HOMOSCEDASTICITY PLOT      **
35022C               **        SCALE    <STAT>            **
35023C               ***************************************
35024C
35025      IPART1='HOMO'
35026      IPART2='PLOT'
35027      IPART3='SCAL'
35028      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
35029     1   IHARG(3).EQ.IPART3)THEN
35030        IHV=IHOMSC
35031        GOTO5160
35032      ENDIF
35033C
35034CCCCC FOLLOWING SECTION ADDED DECEMBER     2010.
35035C               ***************************************
35036C               **  STEP 20.A--                      **
35037C               **  PROBE HOMOSCEDASTICITY PLOT      **
35038C               **        CIRCLE TECHNIQUE <ON/OFF>  **
35039C               ***************************************
35040C
35041      IPART1='HOMO'
35042      IPART2='PLOT'
35043      IPART3='CIRC'
35044      IPART4='TECH'
35045      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
35046     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
35047        IHV=IHOMCT
35048        GOTO5160
35049      ENDIF
35050C
35051CCCCC FOLLOWING SECTION ADDED FEBRUARY     2011.
35052C               ***************************************
35053C               **  STEP 20.A--                      **
35054C               **  PROBE BEST FIT CRITERION         **
35055C               **        <AIC/PPCC/AD/KS/CHISQUARE> **
35056C               ***************************************
35057C
35058      IPART1='BEST'
35059      IPART2='FIT'
35060      IPART3='CRIT'
35061      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
35062     1   IHARG(3).EQ.IPART3)THEN
35063        IHV=IBFICR
35064        GOTO5160
35065      ENDIF
35066C
35067CCCCC FOLLOWING SECTION ADDED FEBRUARY     2011.
35068C               ***************************************
35069C               **  STEP 20.A--                      **
35070C               **  PROBE BEST FIT METHOD            **
35071C               **        <ML/PPCC/AD/KS/CHISQUARE>  **
35072C               ***************************************
35073C
35074      IPART1='BEST'
35075      IPART2='FIT'
35076      IPART3='METH'
35077      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
35078     1   IHARG(3).EQ.IPART3)THEN
35079        IHV=IBFIME
35080        GOTO5160
35081      ENDIF
35082C
35083CCCCC FOLLOWING SECTION ADDED JULY         2013.
35084C               ***************************************
35085C               **  STEP 20.A--                      **
35086C               **  PROBE BEST FIT FONG TYPE         **
35087C               **        <ON/OFF>                   **
35088C               **  PROBE BEST FIT FONG XVALUE       **
35089C               **        <VALUE>                    **
35090C               ***************************************
35091C
35092      IPART1='BEST'
35093      IPART2='FIT'
35094      IPART3='FONG'
35095      IPART4='TYPE'
35096      IPART5='XVAL'
35097      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
35098     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
35099        IHV=IBFITY
35100        GOTO5160
35101      ELSEIF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
35102     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART5)THEN
35103        AV=PBFIXV
35104        GOTO5170
35105      ENDIF
35106C
35107CCCCC FOLLOWING SECTION ADDED JANUARY      2013.
35108C               ***************************************
35109C               **  STEP 20.A--                      **
35110C               **  PROBE BEST FIT FONG              **
35111C               **        <ON/OFF>                   **
35112C               ***************************************
35113C
35114      IPART1='BEST'
35115      IPART2='FIT'
35116      IPART3='FONG'
35117      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
35118     1   IHARG(3).EQ.IPART3)THEN
35119        IHV=IBFIFO
35120        GOTO5160
35121      ENDIF
35122C
35123CCCCC FOLLOWING SECTION ADDED JUNE         2013.
35124C               ***************************************
35125C               **  STEP 20.A--                      **
35126C               **  PROBE BEST FIT LOWER LIMIT       **
35127C               **        <VALUE>                    **
35128C               ***************************************
35129C
35130      IPART1='BEST'
35131      IPART2='FIT'
35132      IPART3='LOWE'
35133      IPART3='LIMI'
35134      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
35135     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
35136        AV=PBFILL
35137        GOTO5170
35138      ENDIF
35139C
35140CCCCC FOLLOWING SECTION ADDED JUNE         2013.
35141C               ***************************************
35142C               **  STEP 20.A--                      **
35143C               **  PROBE BEST FIT UPPER LIMIT       **
35144C               **        <VALUE>                    **
35145C               ***************************************
35146C
35147      IPART1='BEST'
35148      IPART2='FIT'
35149      IPART3='UPPE'
35150      IPART3='LIMI'
35151      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
35152     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
35153        AV=PBFIUL
35154        GOTO5170
35155      ENDIF
35156C
35157CCCCC FOLLOWING SECTION ADDED APRIL        2020.
35158C               ***************************************
35159C               **  STEP 20.A--                      **
35160C               **  PROBE BEST FIT <DIST>            **
35161C               **        <ON/OFF>                   **
35162C               ***************************************
35163C
35164      IPART1='BEST'
35165      IPART2='FIT'
35166      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
35167        IF(IHARG(3).EQ.'NORM')THEN
35168          IHV=IBFINO
35169          GOTO5160
35170        ELSEIF(IHARG(3).EQ.'UNIF')THEN
35171          IHV=IBFIUN
35172          GOTO5160
35173        ELSEIF(IHARG(3).EQ.'2   ' .AND. IHARG(4).EQ.'PARA' .AND.
35174     1         IHARG(5).EQ.'BETA')THEN
35175          IHV=IBFI2B
35176          GOTO5160
35177        ELSEIF(IHARG(3).EQ.'TWO ' .AND. IHARG(4).EQ.'PARA' .AND.
35178     1         IHARG(5).EQ.'BETA')THEN
35179          IHV=IBFI2B
35180          GOTO5160
35181        ELSEIF(IHARG(3).EQ.'4   ' .AND. IHARG(4).EQ.'PARA' .AND.
35182     1         IHARG(5).EQ.'BETA')THEN
35183          IHV=IBFI4B
35184          GOTO5160
35185        ELSEIF(IHARG(3).EQ.'FOUR' .AND. IHARG(4).EQ.'PARA' .AND.
35186     1         IHARG(5).EQ.'BETA')THEN
35187          IHV=IBFI4B
35188          GOTO5160
35189        ELSEIF(IHARG(3).EQ.'POWE')THEN
35190          IHV=IBFIPW
35191          GOTO5160
35192        ELSEIF(IHARG(3).EQ.'REFL' .AND. IHARG(4).EQ.'POWE')THEN
35193          IHV=IBFIPW
35194          GOTO5160
35195        ELSEIF(IHARG(3).EQ.'ARCS')THEN
35196          IHV=IBFIAR
35197          GOTO5160
35198        ELSEIF(IHARG(3).EQ.'TRIA')THEN
35199          IHV=IBFITR
35200          GOTO5160
35201        ELSEIF(IHARG(3).EQ.'TOPP' .AND. IHARG(4).EQ.'AND ' .AND.
35202     1         IHARG(5).EQ.'LEON')THEN
35203          IHV=IBFITO
35204          GOTO5160
35205        ELSEIF(IHARG(3).EQ.'REFL' .AND. IHARG(4).EQ.'GENE' .AND.
35206     1         IHARG(5).EQ.'TOPP' .AND. IHARG(6).EQ.'AND ' .AND.
35207     1         IHARG(7).EQ.'LEON')THEN
35208          IHV=IBFIRG
35209          GOTO5160
35210        ELSEIF(IHARG(3).EQ.'TWO ' .AND. IHARG(4).EQ.'SIDE' .AND.
35211     1         IHARG(5).EQ.'POWE')THEN
35212          IHV=IBFITS
35213        ELSEIF(IHARG(3).EQ.'2   ' .AND. IHARG(4).EQ.'SIDE' .AND.
35214     1         IHARG(5).EQ.'POWE')THEN
35215          IHV=IBFITS
35216        ELSEIF(IHARG(3).EQ.'2   ' .AND. IHARG(4).EQ.'COMP' .AND.
35217     1         IHARG(5).EQ.'NORM' .AND. IHARG(6).EQ.'MIXT')THEN
35218          IHV=IBFINX
35219          GOTO5160
35220        ELSEIF(IHARG(3).EQ.'TWO ' .AND. IHARG(4).EQ.'COMP' .AND.
35221     1         IHARG(5).EQ.'NORM' .AND. IHARG(6).EQ.'MIXT')THEN
35222          IHV=IBFINX
35223          GOTO5160
35224        ELSEIF(IHARG(3).EQ.'GENE' .AND. IHARG(4).EQ.'EXTR' .AND.
35225     1         IHARG(5).EQ.'VALU' .AND. IHARG(6)(1:3).EQ.'MIN')THEN
35226          IHV=IBFGVN
35227          GOTO5160
35228        ELSEIF(IHARG(3).EQ.'GENE' .AND. IHARG(4).EQ.'EXTR' .AND.
35229     1         IHARG(5).EQ.'VALU' .AND. IHARG(6)(1:3).EQ.'MAX')THEN
35230          IHV=IBFGVX
35231          GOTO5160
35232        ELSEIF(IHARG(3).EQ.'GENE' .AND. IHARG(4).EQ.'PARE' .AND.
35233     1         IHARG(5)(1:3).EQ.'MIN')THEN
35234          IHV=IBFGPN
35235          GOTO5160
35236        ELSEIF(IHARG(3).EQ.'GENE' .AND. IHARG(4).EQ.'PARE' .AND.
35237     1         IHARG(5)(1:3).EQ.'MAX')THEN
35238          IHV=IBFGPX
35239          GOTO5160
35240        ELSEIF(IHARG(3).EQ.'FREC' .AND. IHARG(4)(1:3).EQ.'MAX')THEN
35241          IHV=IBFFRX
35242          GOTO5160
35243        ELSEIF(IHARG(3).EQ.'EXTR' .AND. IHARG(4).EQ.'VALU' .AND.
35244     1         IHARG(5).EQ.'TYPE' .AND. IHARG(6).EQ.'2   ' .AND.
35245     1         IHARG(7)(1:3).EQ.'MAX')THEN
35246          IHV=IBFFRX
35247          GOTO5160
35248        ELSEIF(IHARG(3).EQ.'EXTR' .AND. IHARG(4).EQ.'VALU' .AND.
35249     1         IHARG(5).EQ.'TYPE' .AND. IHARG(6).EQ.'TWO ' .AND.
35250     1         IHARG(7)(1:3).EQ.'MAX')THEN
35251          IHV=IBFFRX
35252          GOTO5160
35253        ELSEIF(IHARG(3).EQ.'EXTR' .AND. IHARG(4).EQ.'VALU' .AND.
35254     1         IHARG(5).EQ.'TYPE' .AND. IHARG(6).EQ.'II  ' .AND.
35255     1         IHARG(7)(1:3).EQ.'MAX')THEN
35256          IHV=IBFFRX
35257          GOTO5160
35258        ELSEIF(IHARG(3).EQ.'FREC' .AND. IHARG(4)(1:3).EQ.'MIN')THEN
35259          IHV=IBFFRN
35260          GOTO5160
35261        ELSEIF(IHARG(3).EQ.'EXTR' .AND. IHARG(4).EQ.'VALU' .AND.
35262     1         IHARG(5).EQ.'TYPE' .AND. IHARG(6).EQ.'2   ' .AND.
35263     1         IHARG(7)(1:3).EQ.'MIN')THEN
35264          IHV=IBFFRN
35265          GOTO5160
35266        ELSEIF(IHARG(3).EQ.'EXTR' .AND. IHARG(4).EQ.'VALU' .AND.
35267     1         IHARG(5).EQ.'TYPE' .AND. IHARG(6).EQ.'TWO ' .AND.
35268     1         IHARG(7)(1:3).EQ.'MIN')THEN
35269          IHV=IBFFRN
35270          GOTO5160
35271        ELSEIF(IHARG(3).EQ.'EXTR' .AND. IHARG(4).EQ.'VALU' .AND.
35272     1         IHARG(5).EQ.'TYPE' .AND. IHARG(6).EQ.'II  ' .AND.
35273     1         IHARG(7)(1:3).EQ.'MIN')THEN
35274          IHV=IBFFRN
35275          GOTO5160
35276        ELSEIF(IHARG(3).EQ.'GUMB' .AND. IHARG(4)(1:3).EQ.'MAX')THEN
35277          IHV=IBFGUX
35278          GOTO5160
35279        ELSEIF(IHARG(3).EQ.'GENE' .AND. IHARG(4).EQ.'EXTR' .AND.
35280     1         IHARG(5).EQ.'VALU' .AND. IHARG(6).EQ.'TYPE' .AND.
35281     1         IHARG(7).EQ.'1   ' .AND. IHARG(8)(1:3).EQ.'MAX')THEN
35282          IHV=IBFGUX
35283          GOTO5160
35284        ELSEIF(IHARG(3).EQ.'GENE' .AND. IHARG(4).EQ.'EXTR' .AND.
35285     1         IHARG(5).EQ.'VALU' .AND. IHARG(6).EQ.'TYPE' .AND.
35286     1         IHARG(7).EQ.'ONE ' .AND. IHARG(8)(1:3).EQ.'MAX')THEN
35287          IHV=IBFGUX
35288          GOTO5160
35289        ELSEIF(IHARG(3).EQ.'GENE' .AND. IHARG(4).EQ.'EXTR' .AND.
35290     1         IHARG(5).EQ.'VALU' .AND. IHARG(6).EQ.'TYPE' .AND.
35291     1         IHARG(7).EQ.'I   ' .AND. IHARG(8)(1:3).EQ.'MAX')THEN
35292          IHV=IBFGUX
35293          GOTO5160
35294        ELSEIF(IHARG(3).EQ.'GUMB' .AND. IHARG(4)(1:3).EQ.'MIN')THEN
35295          IHV=IBFGUN
35296          GOTO5160
35297        ELSEIF(IHARG(3).EQ.'GENE' .AND. IHARG(4).EQ.'EXTR' .AND.
35298     1         IHARG(5).EQ.'VALU' .AND. IHARG(6).EQ.'TYPE' .AND.
35299     1         IHARG(7).EQ.'1   ' .AND. IHARG(8)(1:3).EQ.'MIN')THEN
35300          IHV=IBFGUN
35301          GOTO5160
35302        ELSEIF(IHARG(3).EQ.'GENE' .AND. IHARG(4).EQ.'EXTR' .AND.
35303     1         IHARG(5).EQ.'VALU' .AND. IHARG(6).EQ.'TYPE' .AND.
35304     1         IHARG(7).EQ.'ONE ' .AND. IHARG(8)(1:3).EQ.'MIN')THEN
35305          IHV=IBFGUN
35306          GOTO5160
35307        ELSEIF(IHARG(3).EQ.'GENE' .AND. IHARG(4).EQ.'EXTR' .AND.
35308     1         IHARG(5).EQ.'VALU' .AND. IHARG(6).EQ.'TYPE' .AND.
35309     1         IHARG(7).EQ.'I   ' .AND. IHARG(8)(1:3).EQ.'MIN')THEN
35310          IHV=IBFGUN
35311          GOTO5160
35312        ELSEIF(IHARG(3).EQ.'PARE')THEN
35313          IHV=IBFIPA
35314          GOTO5160
35315        ELSEIF(IHARG(3).EQ.'LOGI')THEN
35316          IHV=IBFILO
35317          GOTO5160
35318        ELSEIF(IHARG(3).EQ.'HYPE' .AND. IHARG(4).EQ.'SECA')THEN
35319          IHV=IBFIHS
35320          GOTO5160
35321        ELSEIF(IHARG(3).EQ.'DOUB' .AND. IHARG(4).EQ.'EXPO')THEN
35322          IHV=IBFIDX
35323          GOTO5160
35324        ELSEIF(IHARG(3).EQ.'LAPL')THEN
35325          IHV=IBFIDX
35326          GOTO5160
35327        ELSEIF(IHARG(3).EQ.'DOUB' .AND. IHARG(4).EQ.'WEIB')THEN
35328          IHV=IBFIDW
35329          GOTO5160
35330        ELSEIF(IHARG(3).EQ.'DOUB' .AND. IHARG(4).EQ.'GAMM')THEN
35331          IHV=IBFIDG
35332          GOTO5160
35333        ELSEIF(IHARG(3).EQ.'ASYM' .AND. IHARG(4).EQ.'DOUB' .AND.
35334     1         IHARG(5).EQ.'EXPO')THEN
35335          IHV=IBFIAX
35336          GOTO5160
35337        ELSEIF(IHARG(3).EQ.'ASYM' .AND. IHARG(4).EQ.'LAPL')THEN
35338          IHV=IBFIAX
35339          GOTO5160
35340        ELSEIF(IHARG(3).EQ.'TUKE' .AND. IHARG(4).EQ.'LAMB')THEN
35341          IHV=IBFITL
35342          GOTO5160
35343        ELSEIF(IHARG(3).EQ.'GENE' .AND. IHARG(4).EQ.'TUKE' .AND.
35344     1         IHARG(5).EQ.'LAMB')THEN
35345          IHV=IBFIGT
35346          GOTO5160
35347        ELSEIF(IHARG(3).EQ.'ERRO')THEN
35348          IHV=IBFIER
35349          GOTO5160
35350        ELSEIF(IHARG(3).EQ.'G   ' .AND. IHARG(4).EQ.'AND ' .AND.
35351     1         IHARG(5).EQ.'H   ')THEN
35352          IHV=IBFIGH
35353        ELSEIF(IHARG(3).EQ.'G   ')THEN
35354          IHV=IBFIG
35355          GOTO5160
35356        ELSEIF(IHARG(3).EQ.'SLAS')THEN
35357          IHV=IBFISL
35358          GOTO5160
35359        ELSEIF(IHARG(3).EQ.'CAUC')THEN
35360          IHV=IBFICA
35361          GOTO5160
35362        ELSEIF(IHARG(3).EQ.'COSI')THEN
35363          IHV=IBFICO
35364          GOTO5160
35365        ELSEIF(IHARG(3).EQ.'FOLD' .AND. IHARG(4).EQ.'NORM')THEN
35366          IHV=IBFIFN
35367          GOTO5160
35368        ELSEIF(IHARG(3).EQ.'HALF' .AND. IHARG(4).EQ.'NORM')THEN
35369          IHV=IBFIHN
35370          GOTO5160
35371        ELSEIF(IHARG(3).EQ.'HALF' .AND. IHARG(4).EQ.'LOGI')THEN
35372          IHV=IBFIHL
35373          GOTO5160
35374        ELSEIF(IHARG(3).EQ.'LOG ' .AND. IHARG(4).EQ.'LOGI')THEN
35375          IHV=IBFILL
35376          GOTO5160
35377        ELSEIF(IHARG(3).EQ.'BRAD')THEN
35378          IHV=IBFIBR
35379          GOTO5160
35380        ELSEIF(IHARG(3).EQ.'ANGL')THEN
35381          IHV=IBFIAN
35382          GOTO5160
35383        ELSEIF(IHARG(3).EQ.'2   ' .AND. IHARG(4).EQ.'PARA' .AND.
35384     1         IHARG(5).EQ.'EXPO')THEN
35385          IHV=IBFI2E
35386        ELSEIF(IHARG(3).EQ.'TWO ' .AND. IHARG(4).EQ.'PARA' .AND.
35387     1         IHARG(5).EQ.'EXPO')THEN
35388          IHV=IBFI2E
35389        ELSEIF(IHARG(3).EQ.'1   ' .AND. IHARG(4).EQ.'PARA' .AND.
35390     1         IHARG(5).EQ.'EXPO')THEN
35391          IHV=IBFI1E
35392        ELSEIF(IHARG(3).EQ.'ONE ' .AND. IHARG(4).EQ.'PARA' .AND.
35393     1         IHARG(5).EQ.'EXPO')THEN
35394          IHV=IBFI1E
35395        ELSEIF(IHARG(3).EQ.'RAYL')THEN
35396          IHV=IBFIRA
35397          GOTO5160
35398        ELSEIF(IHARG(3).EQ.'MAXW')THEN
35399          IHV=IBFIMX
35400          GOTO5160
35401        ELSEIF(IHARG(3).EQ.'2   ' .AND. IHARG(4).EQ.'PARA' .AND.
35402     1         IHARG(5).EQ.'WEIB' .AND. IHARG(6).EQ.'MIN')THEN
35403          IHV=IBF2WN
35404        ELSEIF(IHARG(3).EQ.'TWO ' .AND. IHARG(4).EQ.'PARA' .AND.
35405     1         IHARG(5).EQ.'WEIB' .AND. IHARG(6).EQ.'MIN')THEN
35406          IHV=IBF2WN
35407        ELSEIF(IHARG(3).EQ.'2   ' .AND. IHARG(4).EQ.'PARA' .AND.
35408     1         IHARG(5).EQ.'WEIB' .AND. IHARG(6).EQ.'MAX')THEN
35409          IHV=IBF2WX
35410        ELSEIF(IHARG(3).EQ.'TWO ' .AND. IHARG(4).EQ.'PARA' .AND.
35411     1         IHARG(5).EQ.'WEIB' .AND. IHARG(6).EQ.'MAX')THEN
35412          IHV=IBF2WX
35413        ELSEIF(IHARG(3).EQ.'2   ' .AND. IHARG(4).EQ.'PARA' .AND.
35414     1         IHARG(5).EQ.'WEIB')THEN
35415          IHV=IBF2WX
35416        ELSEIF(IHARG(3).EQ.'TWO ' .AND. IHARG(4).EQ.'PARA' .AND.
35417     1         IHARG(5).EQ.'WEIB')THEN
35418          IHV=IBF2WX
35419        ELSEIF(IHARG(3).EQ.'3   ' .AND. IHARG(4).EQ.'PARA' .AND.
35420     1         IHARG(5).EQ.'WEIB' .AND. IHARG(6)(1:3).EQ.'MIN')THEN
35421          IHV=IBF3WN
35422        ELSEIF(IHARG(3).EQ.'THRE' .AND. IHARG(4).EQ.'PARA' .AND.
35423     1         IHARG(5).EQ.'WEIB' .AND. IHARG(6)(1:3).EQ.'MIN')THEN
35424          IHV=IBF3WN
35425        ELSEIF(IHARG(3).EQ.'3   ' .AND. IHARG(4).EQ.'PARA' .AND.
35426     1         IHARG(5).EQ.'WEIB' .AND. IHARG(6)(1:3).EQ.'MAX')THEN
35427          IHV=IBF3WX
35428        ELSEIF(IHARG(3).EQ.'THRE' .AND. IHARG(4).EQ.'PARA' .AND.
35429     1         IHARG(5).EQ.'WEIB' .AND. IHARG(6)(1:3).EQ.'MAX')THEN
35430          IHV=IBF3WX
35431        ELSEIF(IHARG(3).EQ.'INVE' .AND. IHARG(4).EQ.'WEIB')THEN
35432          IHV=IBFIIW
35433          GOTO5160
35434        ELSEIF(IHARG(3).EQ.'2   ' .AND. IHARG(4).EQ.'PARA' .AND.
35435     1         IHARG(5).EQ.'LOGN')THEN
35436          IHV=IBFI2L
35437        ELSEIF(IHARG(3).EQ.'TWO ' .AND. IHARG(4).EQ.'PARA' .AND.
35438     1         IHARG(5).EQ.'LOGN')THEN
35439          IHV=IBFI2L
35440        ELSEIF(IHARG(3).EQ.'3   ' .AND. IHARG(4).EQ.'PARA' .AND.
35441     1         IHARG(5).EQ.'LOGN')THEN
35442          IHV=IBFI3L
35443        ELSEIF(IHARG(3).EQ.'THRE' .AND. IHARG(4).EQ.'PARA' .AND.
35444     1         IHARG(5).EQ.'LOGN')THEN
35445          IHV=IBFI3L
35446        ELSEIF(IHARG(3).EQ.'GAMM')THEN
35447          IHV=IBFIGA
35448          GOTO5160
35449        ELSEIF(IHARG(3).EQ.'LOG ' .AND. IHARG(4).EQ.'GAMM')THEN
35450          IHV=IBFILG
35451          GOTO5160
35452        ELSEIF(IHARG(3).EQ.'INVE' .AND. IHARG(4).EQ.'GAMM')THEN
35453          IHV=IBFIIG
35454          GOTO5160
35455        ELSEIF(IHARG(3).EQ.'FATI' .AND. IHARG(4).EQ.'LIFE')THEN
35456          IHV=IBFIFL
35457          GOTO5160
35458        ELSEIF(IHARG(3).EQ.'BURR' .AND. IHARG(4).EQ.'TYPE' .AND.
35459     1         IHARG(5).EQ.'10  ')THEN
35460          IHV=IBFB10
35461        ELSEIF(IHARG(3).EQ.'BURR' .AND. IHARG(4).EQ.'TYPE' .AND.
35462     1         IHARG(5).EQ.'TEN ')THEN
35463          IHV=IBFB10
35464        ELSEIF(IHARG(3).EQ.'WALD')THEN
35465          IHV=IBFIWA
35466          GOTO5160
35467        ELSEIF(IHARG(3).EQ.'2   ' .AND. IHARG(4).EQ.'PARA' .AND.
35468     1         IHARG(5).EQ.'INVE' .AND. IHARG(6).EQ.'GAUS')THEN
35469          IHV=IBF2IG
35470        ELSEIF(IHARG(3).EQ.'TWO ' .AND. IHARG(4).EQ.'PARA' .AND.
35471     1         IHARG(5).EQ.'INVE' .AND. IHARG(6).EQ.'GAUS')THEN
35472          IHV=IBF2IG
35473        ELSEIF(IHARG(3).EQ.'3   ' .AND. IHARG(4).EQ.'PARA' .AND.
35474     1         IHARG(5).EQ.'INVE' .AND. IHARG(6).EQ.'GAUS')THEN
35475          IHV=IBF3IG
35476        ELSEIF(IHARG(3).EQ.'THRE' .AND. IHARG(4).EQ.'PARA' .AND.
35477     1         IHARG(5).EQ.'INVE' .AND. IHARG(6).EQ.'GAUS')THEN
35478          IHV=IBF3IG
35479        ELSEIF(IHARG(3).EQ.'LOGI' .AND. IHARG(4).EQ.'EXPO')THEN
35480          IHV=IBFILX
35481          GOTO5160
35482        ELSEIF(IHARG(3).EQ.'GEOM' .AND. IHARG(4).EQ.'EXTR' .AND.
35483     1         IHARG(4).EQ.'EXPO')THEN
35484          IHV=IBFIGX
35485          GOTO5160
35486        ELSEIF(IHARG(3).EQ.'LOG ' .AND. IHARG(4).EQ.'DOUB' .AND.
35487     1         IHARG(4).EQ.'EXPO')THEN
35488          IHV=IBFILD
35489          GOTO5160
35490        ELSEIF(IHARG(3).EQ.'1   ' .AND. IHARG(4)(1:3).EQ.'PAR' .AND.
35491     1         IHARG(5).EQ.'HALF' .AND. IHARG(6).EQ.'NORM')THEN
35492          IHV=IBF1HN
35493          GOTO5160
35494        ELSEIF(IHARG(3).EQ.'ONE ' .AND. IHARG(4)(1:3).EQ.'PAR' .AND.
35495     1         IHARG(5).EQ.'HALF' .AND. IHARG(6).EQ.'NORM')THEN
35496          IHV=IBF1HN
35497          GOTO5160
35498        ELSEIF(IHARG(3).EQ.'2   ' .AND. IHARG(4)(1:3).EQ.'PAR' .AND.
35499     1         IHARG(5).EQ.'HALF' .AND. IHARG(6).EQ.'NORM')THEN
35500          IHV=IBF2HN
35501          GOTO5160
35502        ELSEIF(IHARG(3).EQ.'TWO ' .AND. IHARG(4)(1:3).EQ.'PAR' .AND.
35503     1         IHARG(5).EQ.'HALF' .AND. IHARG(6).EQ.'NORM')THEN
35504          IHV=IBF2HN
35505          GOTO5160
35506        ELSEIF(IHARG(3).EQ.'HALF' .AND. IHARG(4).EQ.'NORM')THEN
35507          IHV=IBF2HN
35508          GOTO5160
35509        ELSEIF(IHARG(3).EQ.'1   ' .AND. IHARG(4)(1:3).EQ.'PAR' .AND.
35510     1         IHARG(5).EQ.'HALF' .AND. IHARG(6).EQ.'LOGI')THEN
35511          IHV=IBF1HL
35512          GOTO5160
35513        ELSEIF(IHARG(3).EQ.'ONE ' .AND. IHARG(4)(1:3).EQ.'PAR' .AND.
35514     1         IHARG(5).EQ.'HALF' .AND. IHARG(6).EQ.'LOGI')THEN
35515          IHV=IBF1HL
35516          GOTO5160
35517        ELSEIF(IHARG(3).EQ.'2   ' .AND. IHARG(4)(1:3).EQ.'PAR' .AND.
35518     1         IHARG(5).EQ.'HALF' .AND. IHARG(6).EQ.'LOGI')THEN
35519          IHV=IBF2HL
35520          GOTO5160
35521        ELSEIF(IHARG(3).EQ.'TWO ' .AND. IHARG(4)(1:3).EQ.'PAR' .AND.
35522     1         IHARG(5).EQ.'HALF' .AND. IHARG(6).EQ.'LOGI')THEN
35523          IHV=IBF2HL
35524          GOTO5160
35525        ELSEIF(IHARG(3).EQ.'HALF' .AND. IHARG(4).EQ.'LOGI')THEN
35526          IHV=IBF2HL
35527          GOTO5160
35528        ENDIF
35529      ENDIF
35530C
35531CCCCC FOLLOWING SECTION ADDED JULY         2013.
35532C               ***************************************
35533C               **  STEP 20.A--                      **
35534C               **  PROBE DISTRIBUTIONAL PERCENTILE  **
35535C               **        <LOWER/UPPER/TWOSIDED>     **
35536C               ***************************************
35537C
35538      IPART1='DIST'
35539      IPART2='PERC'
35540      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
35541        IHV=IDTYPR
35542        GOTO5160
35543      ENDIF
35544C
35545CCCCC FOLLOWING SECTION ADDED MARCH        2014.
35546C               *****************************************************
35547C               **  STEP 20.A--                                    **
35548C               **  PROBE BINOMIAL METHOD <WILSON/ADJUSTED WALD/   **
35549C               **        JEFFREYS/EXACT BINOMIAL/                 **
35550C               **        NORMAL APPROXIMATION/CONTINUITY CORR>    **
35551C               *****************************************************
35552C
35553      IPART1='BINO'
35554      IPART2='METH'
35555      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
35556        IHV=IBINME
35557        GOTO5160
35558      ENDIF
35559C
35560CCCCC FOLLOWING SECTION ADDED NOVEMBER     2017.
35561C               *******************************************
35562C               **  STEP 20.A--                          **
35563C               **  PROBE DIFFERENCE OF BINOMIAL METHOD  **
35564C               **        <ADJUSTED/BAYES/WALD>          **
35565C               *******************************************
35566C
35567      IPART1='DIFF'
35568      IPART2='OF  '
35569      IPART3='BINO'
35570      IPART4='METH'
35571      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
35572     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
35573        IHV=IBI2ME
35574        GOTO5160
35575      ENDIF
35576C
35577CCCCC FOLLOWING SECTION ADDED DECEMBER     2017.
35578C               *************************************************
35579C               **  STEP 20.A--                                **
35580C               **  PROBE BONETT STANDARD DEVIATION CONFIDENCE **
35581C               **        LIMIT ADJUSTED <ON/OFF>              **
35582C               *************************************************
35583C
35584      IPART1='BONE'
35585      IPART2='STAN'
35586      IPART3='DEVI'
35587      IPART4='CONF'
35588      IPART5='LIMI'
35589      IPART6='ADJU'
35590      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
35591     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
35592     1   IHARG(5).EQ.IPART5.AND.IHARG(6).EQ.IPART6)THEN
35593        IHV=IBONAD
35594        GOTO5160
35595      ENDIF
35596C
35597CCCCC FOLLOWING SECTION ADDED DECEMBER     2017.
35598C               *************************************************
35599C               **  STEP 20.A--                                **
35600C               **  PROBE BONETT STANDARD DEVIATION CONFIDENCE **
35601C               **        LIMIT <ON/OFF>                       **
35602C               *************************************************
35603C
35604      IPART1='BONE'
35605      IPART2='STAN'
35606      IPART3='DEVI'
35607      IPART4='CONF'
35608      IPART5='LIMI'
35609      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
35610     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
35611     1   IHARG(5).EQ.IPART5)THEN
35612        IHV=IBONSD
35613        GOTO5160
35614      ENDIF
35615C
35616CCCCC FOLLOWING SECTION ADDED JANUARY     2018.
35617C               *************************************************
35618C               **  STEP 20.A--                                **
35619C               **  PROBE DEX ORDERED PLOT IDENTIFICATION      **
35620C               **        <ON/OFF>                             **
35621C               *************************************************
35622C
35623      IPART1='DEX '
35624      IPART2='ORDE'
35625      IPART3='PLOT'
35626      IPART4='IDEN'
35627      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
35628     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
35629        IHV=IDPAID
35630        GOTO5160
35631      ENDIF
35632C
35633CCCCC FOLLOWING SECTION ADDED MARCH       2019.
35634C               *************************************************
35635C               **  STEP 20.A--                                **
35636C               **  PROBE SYSTEM PERSIST <ON/OFF>              **
35637C               *************************************************
35638C
35639      IPART1='SYST'
35640      IPART2='PERS'
35641      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
35642        IHV=ISYSPE
35643        GOTO5160
35644      ENDIF
35645C
35646CCCCC FOLLOWING SECTION ADDED MARCH       2019.
35647C               *************************************************
35648C               **  STEP 20.A--                                **
35649C               **  PROBE SYSTEM HIDDEN <ON/OFF>               **
35650C               *************************************************
35651C
35652      IPART1='SYST'
35653      IPART2='HIDD'
35654      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
35655        IHV=ISYSHI
35656        GOTO5160
35657      ENDIF
35658C
35659CCCCC FOLLOWING SECTION ADDED DECEMBER    2019.
35660C               *************************************************
35661C               **  STEP 20.A--                                **
35662C               **  PROBE HOME PATH     <ON/OFF>               **
35663C               *************************************************
35664C
35665      IPART1='HOME'
35666      IPART2='PATH'
35667      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
35668        IHV=IHOMPA
35669        GOTO5160
35670      ENDIF
35671C
35672CCCCC FOLLOWING SECTION ADDED JANUARY     2020.
35673C               *************************************************
35674C               **  STEP 20.A--                                **
35675C               **  PROBE IPLOT JITTER  <ON/OFF>               **
35676C               *************************************************
35677C
35678      IPART1='IPLO'
35679      IPART2='JITT'
35680      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
35681        IHV=IIPLJI
35682        GOTO5160
35683      ENDIF
35684C
35685CCCCC FOLLOWING SECTION ADDED FEBRUARY     2018.
35686C               *************************************************
35687C               **  STEP 20.A--                                **
35688C               **  PROBE DEX ORDERED PLOT UNCERTAINTY         **
35689C               **        <ON/OFF>                             **
35690C               *************************************************
35691C
35692      IPART1='DEX '
35693      IPART2='ORDE'
35694      IPART3='PLOT'
35695      IPART4='UNCE'
35696      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
35697     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
35698        IHV=IDPAUN
35699        GOTO5160
35700      ENDIF
35701C
35702CCCCC FOLLOWING SECTION ADDED JANUARY     2018.
35703C               *************************************************
35704C               **  STEP 20.A--                                **
35705C               **  PROBE DEX PARETO PLOT ORDER                **
35706C               **        <ASCENDING/DESCENDING>               **
35707C               *************************************************
35708C
35709      IPART1='DEX '
35710      IPART2='PARE'
35711      IPART3='PLOT'
35712      IPART4='ORDE'
35713      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
35714     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
35715        IHV=IDPADI
35716        GOTO5160
35717      ENDIF
35718C
35719CCCCC FOLLOWING SECTION ADDED FEBRUARY     2019.
35720C               *************************************************
35721C               **  STEP 20.A--                                **
35722C               **  PROBE DEX STATISTIC PLOT INTERACTION       **
35723C               **        <NONE/2/3>                           **
35724C               *************************************************
35725C
35726      IPART1='DEX '
35727      IPART2='STAT'
35728      IPART3='PLOT'
35729      IPART4='INTE'
35730      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
35731     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
35732        IHV=IDEXIN
35733        GOTO5160
35734      ENDIF
35735C
35736CCCCC FOLLOWING SECTION ADDED MARCH        2014.
35737C               **********************************************
35738C               **  STEP 20.A--                             **
35739C               **  PROBE WEIBULL MAXIMUM LIKELIHOOD METHOD **
35740C               **        <COHEN/PROFILE LIKELIHOOD>        **
35741C               **********************************************
35742C
35743      IPART1='WEIB'
35744      IPART2='MAXI'
35745      IPART3='LIKE'
35746      IPART4='METH'
35747      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
35748     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
35749        IHV=I3WEME
35750        GOTO5160
35751      ENDIF
35752C
35753CCCCC FOLLOWING SECTION ADDED MARCH        2014.
35754C               **********************************************
35755C               **  STEP 20.A--                             **
35756C               **  PROBE WEIBULL MAXIMUM LIKELIHOOD MINIMUM**
35757C               **        <VALUE>                           **
35758C               **********************************************
35759C
35760      IPART1='WEIB'
35761      IPART2='MAXI'
35762      IPART3='LIKE'
35763      IPART4='MINI'
35764      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
35765     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
35766        AV=P3WEMI
35767        GOTO5170
35768      ENDIF
35769C
35770CCCCC FOLLOWING SECTION ADDED MARCH        2013.
35771C               ***************************************
35772C               **  STEP 20.A--                      **
35773C               **  PROBE WEIBULL GAUGE LENGTH       **
35774C               **        <ON/OFF>                   **
35775C               ***************************************
35776C
35777      IPART1='WEIB'
35778      IPART2='GAUG'
35779      IPART3='LENG'
35780      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
35781     1   IHARG(3).EQ.IPART3)THEN
35782        IHV=IWEIGL
35783        GOTO5160
35784      ENDIF
35785C
35786CCCCC FOLLOWING SECTION ADDED APRIL        2013.
35787C               ***************************************
35788C               **  STEP 20.A--                      **
35789C               **  PROBE WEIBULL MAXIMUM LIKELIHOOD **
35790C               **        <ON/OFF>                   **
35791C               ***************************************
35792C
35793      IPART1='WEIB'
35794      IPART2='MAXI'
35795      IPART3='LIKE'
35796      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
35797     1   IHARG(3).EQ.IPART3)THEN
35798        IHV=IWEIML
35799        GOTO5160
35800      ENDIF
35801C
35802CCCCC FOLLOWING SECTION ADDED APRIL        2013.
35803C               ***************************************
35804C               **  STEP 20.A--                      **
35805C               **  PROBE WEIBULL MODIFIED MOMENTS   **
35806C               **        <ON/OFF>                   **
35807C               ***************************************
35808C
35809      IPART1='WEIB'
35810      IPART2='MODI'
35811      IPART3='MOME'
35812      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
35813     1   IHARG(3).EQ.IPART3)THEN
35814        IHV=IWEIMM
35815        GOTO5160
35816      ENDIF
35817C
35818CCCCC FOLLOWING SECTION ADDED APRIL        2013.
35819C               ***************************************
35820C               **  STEP 20.A--                      **
35821C               **  PROBE WEIBULL MOMENTS <ON/OFF>   **
35822C               ***************************************
35823C
35824      IPART1='WEIB'
35825      IPART2='MOME'
35826      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
35827        IHV=IWEIMO
35828        GOTO5160
35829      ENDIF
35830C
35831CCCCC FOLLOWING SECTION ADDED SEPTEMBER    2014.
35832C               ***************************************************
35833C               **  STEP 20.A--                                  **
35834C               **  PROBE WEIBULL ELEMENTAL PERCENTILES <ON/OFF> **
35835C               ***************************************************
35836C
35837      IPART1='WEIB'
35838      IPART2='ELEM'
35839      IPART3='PERC'
35840      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
35841     1   IHARG(3).EQ.IPART3)THEN
35842        IHV=IWEIEP
35843        GOTO5160
35844      ENDIF
35845C
35846CCCCC FOLLOWING SECTION ADDED SEPTEMBER    2014.
35847C               ***************************************************
35848C               **  STEP 20.A--                                  **
35849C               **  PROBE WEIBULL L MOMENTS             <ON/OFF> **
35850C               ***************************************************
35851C
35852      IPART1='WEIB'
35853      IPART2='L   '
35854      IPART3='MOME'
35855      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
35856     1   IHARG(3).EQ.IPART3)THEN
35857        IHV=IWEILM
35858        GOTO5160
35859      ENDIF
35860C
35861CCCCC FOLLOWING SECTION ADDED OCTOBER    2014.
35862C               ***************************************************
35863C               **  STEP 20.A--                                  **
35864C               **  PROBE GEV MAXIMUM LIKELIHOOD        <ON/OFF> **
35865C               ***************************************************
35866C
35867      IPART1='GEV '
35868      IPART2='MAXI'
35869      IPART3='LIKE'
35870      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
35871     1   IHARG(3).EQ.IPART3)THEN
35872        IHV=IGEVML
35873        GOTO5160
35874      ENDIF
35875C
35876CCCCC FOLLOWING SECTION ADDED NOVEMBER     2014.
35877C               ***************************************
35878C               **  STEP 20.A--                      **
35879C               **  PROBE CLIPBOARD SKIP  <ON/OFF>   **
35880C               ***************************************
35881C
35882      IPART1='CLIP'
35883      IPART2='SKIP'
35884      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
35885        IHV=ICLISK
35886        GOTO5160
35887      ENDIF
35888C
35889CCCCC FOLLOWING SECTION ADDED NOVEMBER     2014.
35890C               ***************************************
35891C               **  STEP 20.A--                      **
35892C               **  PROBE CLIPBOARD DELAY <VALUE>    **
35893C               ***************************************
35894C
35895      IPART1='CLIP'
35896      IPART2='DELA'
35897      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
35898        AV=PCLIDE
35899        GOTO5170
35900      ENDIF
35901C
35902CCCCC FOLLOWING SECTION ADDED NOVEMBER     2014.
35903C               *****************************************
35904C               **  STEP 20.A--                        **
35905C               **  PROBE CLIPBOARD LOOP LINES <VALUE> **
35906C               *****************************************
35907C
35908      IPART1='CLIP'
35909      IPART2='LOOP'
35910      IPART3='LINE'
35911      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
35912     1   IHARG(3).EQ.IPART3)THEN
35913        IV=ICLILL
35914        GOTO5150
35915      ENDIF
35916C
35917CCCCC FOLLOWING SECTION ADDED NOVEMBER     2014.
35918C               ***************************************
35919C               **  STEP 20.A--                      **
35920C               **  PROBE CLIPBOARD LINES <VAL>      **
35921C               ***************************************
35922C
35923      IPART1='CLIP'
35924      IPART2='LINE'
35925      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
35926        IOUNIT=-99
35927        ITYPE='NLIN'
35928        CALL DPCLI2(ITYPE,IOUNIT,IHELMX,ILINRD,IBUGU2,ISUBRO,IERROR)
35929        IV=ILINRD
35930        GOTO5150
35931      ENDIF
35932C
35933CCCCC FOLLOWING SECTION ADDED APRIL        2014.
35934C               ************************************************
35935C               **  STEP 20.A--                               **
35936C               **  PROBE LOGNORMAL MAXIMUM LIKELIHOOD METHOD **
35937C               **        <COHEN/PROFILE LIKELIHOOD>          **
35938C               ************************************************
35939C
35940      IPART1='LOGN'
35941      IPART2='MAXI'
35942      IPART3='LIKE'
35943      IPART4='METH'
35944      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
35945     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
35946        IHV=I3LNME
35947        GOTO5160
35948      ENDIF
35949C
35950CCCCC FOLLOWING SECTION ADDED APRIL        2014.
35951C               **************************************************
35952C               **  STEP 20.A--                                 **
35953C               **  PROBE LOGNORMAL MAXIMUM LIKELIHOOD MINIMUM  **
35954C               **        <VALUE>                               **
35955C               **************************************************
35956C
35957      IPART1='LOGN'
35958      IPART2='MAXI'
35959      IPART3='LIKE'
35960      IPART4='MINI'
35961      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
35962     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
35963        AV=P3LNMI
35964        GOTO5170
35965      ENDIF
35966C
35967CCCCC FOLLOWING SECTION ADDED APRIL        2014.
35968C               ************************************************
35969C               **  STEP 20.A--                               **
35970C               **  PROBE GAMMA     MAXIMUM LIKELIHOOD METHOD **
35971C               **        <COHEN/PROFILE LIKELIHOOD>          **
35972C               ************************************************
35973C
35974      IPART1='GAMM'
35975      IPART2='MAXI'
35976      IPART3='LIKE'
35977      IPART4='METH'
35978      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
35979     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
35980        IHV=I3GAME
35981        GOTO5160
35982      ENDIF
35983C
35984CCCCC FOLLOWING SECTION ADDED APRIL        2014.
35985C               **************************************************
35986C               **  STEP 20.A--                                 **
35987C               **  PROBE GAMMA     MAXIMUM LIKELIHOOD MINIMUM  **
35988C               **        <VALUE>                               **
35989C               **************************************************
35990C
35991      IPART1='GAMM'
35992      IPART2='MAXI'
35993      IPART3='LIKE'
35994      IPART4='MINI'
35995      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
35996     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
35997        AV=P3GAMI
35998        GOTO5170
35999      ENDIF
36000C
36001CCCCC FOLLOWING SECTION ADDED APRIL        2014.
36002C               ************************************************
36003C               **  STEP 20.A--                               **
36004C               **  PROBE INVERSE GAUSSIAN DEFINITION         **
36005C               **        <TWEEDIE/CHAN>                      **
36006C               ************************************************
36007C
36008      IPART1='INVE'
36009      IPART2='GAUS'
36010      IPART3='DEFI'
36011      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
36012     1   IHARG(3).EQ.IPART3)THEN
36013        IHV=IGAUDF
36014        GOTO5160
36015      ENDIF
36016C
36017CCCCC FOLLOWING SECTION ADDED APRIL        2014.
36018C               ************************************************
36019C               **  STEP 20.A--                               **
36020C               **  PROBE INVERSE GAUSSIAN CONFIDENCE LIMITS  **
36021C               **        METHOD <MLE/MODIFIED MOMENTS>       **
36022C               ************************************************
36023C
36024      IPART1='INVE'
36025      IPART2='GAUS'
36026      IPART3='CONF'
36027      IPART4='LIMI'
36028      IPART5='METH'
36029      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
36030     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
36031     1   IHARG(5).EQ.IPART5)THEN
36032        IHV=IGAUME
36033        GOTO5160
36034      ENDIF
36035C
36036CCCCC FOLLOWING SECTION ADDED APRIL        2013.
36037C               ***************************************
36038C               **  STEP 20.A--                      **
36039C               **  PROBE SKEWNESS DEFINITION        **
36040C               ***************************************
36041C
36042      IPART1='SKEW'
36043      IPART2='DEFI'
36044      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
36045        IHV=ISKWDF
36046        GOTO5160
36047      ENDIF
36048C
36049CCCCC FOLLOWING SECTION ADDED APRIL        2013.
36050C               ***************************************
36051C               **  STEP 20.A--                      **
36052C               **  PROBE PERCENTILE DIRECTION       **
36053C               ***************************************
36054C
36055      IPART1='PERC'
36056      IPART2='DIRE'
36057      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
36058        IHV=IPERDI
36059        GOTO5160
36060      ENDIF
36061C
36062CCCCC FOLLOWING SECTION ADDED MARCH        2013.
36063C               ****************************************
36064C               **  STEP 20.A--                       **
36065C               **  PROBE KENDALL TAU CRITICAL VALUES **
36066C               **        <TABLE/NORMAL APPROXIMATION>**
36067C               ****************************************
36068C
36069      IPART1='KEND'
36070      IPART2='TAU'
36071      IPART3='CRIT'
36072      IPART4='VALU'
36073      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
36074     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
36075        IHV=IKTATA
36076        GOTO5160
36077      ENDIF
36078C
36079CCCCC FOLLOWING SECTION ADDED MARCH        2013.
36080C               *********************************************
36081C               **  STEP 20.A--                            **
36082C               **  PROBE RANK CORRELATION CRITICAL VALUES **
36083C               **        <TABLE/NORMAL APPROXIMATION>     **
36084C               *********************************************
36085C
36086      IPART1='RANK'
36087      IPART2='CORR'
36088      IPART3='CRIT'
36089      IPART4='VALU'
36090      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
36091     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
36092        IHV=IRCRTA
36093        GOTO5160
36094      ENDIF
36095C
36096CCCCC FOLLOWING SECTION ADDED FEBRUARY     2011.
36097C               ***************************************
36098C               **  STEP 20.A--                      **
36099C               **  PROBE LEVENE GROUP STATISTICS    **
36100C               **        <ON/OFF>                   **
36101C               ***************************************
36102C
36103      IPART1='LEVE'
36104      IPART2='GROU'
36105      IPART3='STAT'
36106      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
36107     1   IHARG(3).EQ.IPART3)THEN
36108        IHV=ILEVGS
36109        GOTO5160
36110      ENDIF
36111C
36112CCCCC FOLLOWING SECTION ADDED FEBRUARY     2011.
36113C               ********************************************
36114C               **  STEP 20.A--                           **
36115C               **  PROBE KRUSKAL-WALLIS GROUP STATISTICS **
36116C               **        <ON/OFF>                        **
36117C               ********************************************
36118C
36119      IPART1='KRUS'
36120      IPART2='WALL'
36121      IPART3='GROU'
36122      IPART4='STAT'
36123      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
36124     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
36125        IHV=IKRUGS
36126        GOTO5160
36127      ENDIF
36128C
36129CCCCC FOLLOWING SECTION ADDED FEBRUARY     2012.
36130C               *************************************************
36131C               **  STEP 20.A--                                **
36132C               **  PROBE KRUSKAL-WALLIS MULTIPLE COMPARISONS  **
36133C               **        <ON/OFF>                             **
36134C               *************************************************
36135C
36136      IPART1='KRUS'
36137      IPART2='WALL'
36138      IPART3='MULT'
36139      IPART4='COMP'
36140      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
36141     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
36142        IHV=IKRUMC
36143        GOTO5160
36144      ENDIF
36145C
36146CCCCC FOLLOWING SECTION ADDED FEBRUARY     2012.
36147C               *************************************************
36148C               **  STEP 20.A--                                **
36149C               **  PROBE ISO 13528 PLOT STATISTC              **
36150C               *************************************************
36151C
36152      IPART1='ISO '
36153      IPART2='1352'
36154      IPART3='PLOT'
36155      IPART4='STAT'
36156      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
36157     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
36158        IHV=IISOME
36159        GOTO5160
36160      ENDIF
36161C
36162CCCCC FOLLOWING SECTION ADDED FEBRUARY     2012.
36163C               *************************************************
36164C               **  STEP 20.A--                                **
36165C               **  PROBE ISO 13528 PLOT                       **
36166C               *************************************************
36167C
36168      IPART1='ISO '
36169      IPART2='1352'
36170      IPART3='PLOT'
36171      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
36172     1   IHARG(3).EQ.IPART3)THEN
36173        IHV=IISOLA
36174        GOTO5160
36175      ENDIF
36176C
36177CCCCC FOLLOWING SECTION ADDED FEBRUARY     2012.
36178C               *************************************************
36179C               **  STEP 20.A--                                **
36180C               **  PROBE RLP PLOT LABELS                      **
36181C               *************************************************
36182C
36183      IPART1='RLP '
36184      IPART2='PLOT'
36185      IPART3='LABE'
36186      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
36187     1   IHARG(3).EQ.IPART3)THEN
36188        IHV=IRLPLA
36189        GOTO5160
36190      ENDIF
36191C
36192CCCCC FOLLOWING SECTION ADDED APRIL        2012.
36193C               *************************************************
36194C               **  STEP 20.A--                                **
36195C               **  PROBE BLOCK PLOT FILTER                    **
36196C               *************************************************
36197C
36198      IPART1='BLOC'
36199      IPART2='PLOT'
36200      IPART3='FILT'
36201      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
36202     1   IHARG(3).EQ.IPART3)THEN
36203        IHV=IBPLFI
36204        GOTO5160
36205      ENDIF
36206C
36207CCCCC FOLLOWING SECTION ADDED APRIL        2012.
36208C               *************************************************
36209C               **  STEP 20.A--                                **
36210C               **  PROBE BLOCK PLOT LABEL                     **
36211C               *************************************************
36212C
36213      IPART1='BLOC'
36214      IPART2='PLOT'
36215      IPART3='LABE'
36216      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
36217     1   IHARG(3).EQ.IPART3)THEN
36218        IHV=IBPLLA
36219        GOTO5160
36220      ENDIF
36221C
36222CCCCC FOLLOWING SECTION ADDED DECEMBER     2012.
36223C               *************************************************
36224C               **  STEP 20.A--                                **
36225C               **  PROBE BLOCK PLOT BACKGROUND                **
36226C               *************************************************
36227C
36228      IPART1='BLOC'
36229      IPART2='PLOT'
36230      IPART3='BACK'
36231      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
36232     1   IHARG(3).EQ.IPART3)THEN
36233        IHV=IBPLBG
36234        GOTO5160
36235      ENDIF
36236C
36237CCCCC FOLLOWING SECTION ADDED APRIL        2012.
36238C               *************************************************
36239C               **  STEP 20.A--                                **
36240C               **  PROBE CAPTURE FLUSH ERASE                  **
36241C               *************************************************
36242C
36243      IPART1='CAPT'
36244      IPART2='FLUS'
36245      IPART3='ERAS'
36246      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
36247     1   IHARG(3).EQ.IPART3)THEN
36248        IHV=ICAPFE
36249        GOTO5160
36250      ENDIF
36251C
36252CCCCC FOLLOWING SECTION ADDED APRIL        2012.
36253C               *************************************************
36254C               **  STEP 20.A--                                **
36255C               **  PROBE BLOCK PLOT WIDTH                     **
36256C               *************************************************
36257C
36258      IPART1='BLOC'
36259      IPART2='PLOT'
36260      IPART3='WIDT'
36261      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
36262     1   IHARG(3).EQ.IPART3)THEN
36263        AV=PBPLWI
36264        GOTO5170
36265      ENDIF
36266C
36267CCCCC FOLLOWING SECTION ADDED NOVEMBER     2016.
36268C               *************************************************
36269C               **  STEP 20.A--                                **
36270C               **  PROBE BLOCK PLOT JITTER                    **
36271C               *************************************************
36272C
36273      IPART1='BLOC'
36274      IPART2='PLOT'
36275      IPART3='JITT'
36276      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
36277     1   IHARG(3).EQ.IPART3)THEN
36278        AV=PBPLJI
36279        GOTO5170
36280      ENDIF
36281C
36282CCCCC FOLLOWING SECTION ADDED JULY         2017.
36283C               *************************************************
36284C               **  STEP 20.A--                                **
36285C               **  PROBE POINCARE PLOT LAG                    **
36286C               *************************************************
36287C
36288      IPART1='POIN'
36289      IPART2='PLOT'
36290      IPART3='LAG '
36291      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
36292     1   IHARG(3).EQ.IPART3)THEN
36293        AV=PPPLLA
36294        GOTO5170
36295      ENDIF
36296C
36297CCCCC FOLLOWING SECTION ADDED JULY         2017.
36298C               *************************************************
36299C               **  STEP 20.A--                                **
36300C               **  PROBE NORMAL KERNEL DENSITY MIXTURE PLOT   **
36301C               **        EXPANSION FACTOR                     **
36302C               *************************************************
36303C
36304      IPART1='NORM'
36305      IPART2='KERN'
36306      IPART3='DENS'
36307      IPART4='MIXT'
36308      IPART5='PLOT'
36309      IPART6='EXPA'
36310      IPART7='FACT'
36311      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
36312     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
36313     1   IHARG(5).EQ.IPART5.AND.IHARG(6).EQ.IPART6.AND.
36314     1   IHARG(7).EQ.IPART7)THEN
36315        AV=PNKDEF
36316        GOTO5170
36317      ENDIF
36318C
36319CCCCC FOLLOWING SECTION ADDED FEBRUARY     2019.
36320C               *************************************************
36321C               **  STEP 20.A--                                **
36322C               **  PROBE CARRIAGE RETURN GAP                  **
36323C               *************************************************
36324C
36325      IPART1='CARR'
36326      IPART2='RETU'
36327      IPART3='GAP '
36328      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
36329     1   IHARG(3).EQ.IPART3)THEN
36330        AV=PWRTGA
36331        GOTO5170
36332      ENDIF
36333C
36334CCCCC FOLLOWING SECTION ADDED APRIL        2019.
36335C               *************************************************
36336C               **  STEP 20.A--                                **
36337C               **  PROBE AUXILLARY FILES DECIMAL POINTS       **
36338C               *************************************************
36339C
36340      IPART1='AUXI'
36341      IPART2='FILE'
36342      IPART3='DECI'
36343      IPART4='POIN'
36344      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
36345     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
36346        IV=IAUXDP
36347        GOTO5150
36348      ENDIF
36349C
36350CCCCC FOLLOWING SECTION ADDED OCTOBER      2019.
36351C               *************************************************
36352C               **  STEP 20.A--                                **
36353C               **  PROBE HEAD LINES                           **
36354C               *************************************************
36355C
36356      IPART1='HEAD'
36357      IPART2='LINE'
36358      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
36359        IV=IHEALI
36360        GOTO5150
36361      ENDIF
36362C
36363CCCCC FOLLOWING SECTION ADDED OCTOBER      2019.
36364C               *************************************************
36365C               **  STEP 20.A--                                **
36366C               **  PROBE TAIL LINES                           **
36367C               *************************************************
36368C
36369      IPART1='TAIL'
36370      IPART2='LINE'
36371      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
36372        IV=ITAILI
36373        GOTO5150
36374      ENDIF
36375C
36376CCCCC FOLLOWING SECTION ADDED NOVEMBER     2019.
36377C               *************************************************
36378C               **  STEP 20.A--                                **
36379C               **  PROBE BROWSER HEIGHT                       **
36380C               *************************************************
36381C
36382      IPART1='BROW'
36383      IPART2='HEIG'
36384      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
36385        IV=IBROHE
36386        GOTO5150
36387      ENDIF
36388C
36389CCCCC FOLLOWING SECTION ADDED NOVEMBER     2019.
36390C               *************************************************
36391C               **  STEP 20.A--                                **
36392C               **  PROBE BROWSER WIDTH                        **
36393C               *************************************************
36394C
36395      IPART1='BROW'
36396      IPART2='WIDT'
36397      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
36398        IV=IBROWI
36399        GOTO5150
36400      ENDIF
36401C
36402CCCCC FOLLOWING SECTION ADDED NOVEMBER     2019.
36403C               *************************************************
36404C               **  STEP 20.A--                                **
36405C               **  PROBE RANLUX LEVEL                         **
36406C               *************************************************
36407C
36408      IPART1='RANL'
36409      IPART2='LEVE'
36410      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
36411        IV=IRLXLE
36412        GOTO5150
36413      ENDIF
36414C
36415CCCCC FOLLOWING SECTION ADDED DECEMBER        2012.
36416C               *************************************************
36417C               **  STEP 20.A--                                **
36418C               **  PROBE TOLERANCE LIMITS DEGREES OF FREEDOM  **
36419C               *************************************************
36420C
36421      IPART1='TOLE'
36422      IPART2='LIMI'
36423      IPART3='DEGR'
36424      IPART4='OF  '
36425      IPART5='FREE'
36426      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
36427     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
36428     1   IHARG(5).EQ.IPART5)THEN
36429        AV=PTOLDF
36430        GOTO5170
36431      ENDIF
36432C
36433CCCCC FOLLOWING SECTION ADDED APRIL        2011.
36434C               *************************************************
36435C               **  STEP 20.A--                                **
36436C               **  PROBE T TEST VARIANCE <EQUAL/UNEQUAL/BOTH> **
36437C               *************************************************
36438C
36439      IPART1='T   '
36440      IPART2='TEST'
36441      IPART3='VARI'
36442      IPART4='TTES'
36443      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
36444     1   IHARG(3).EQ.IPART3)THEN
36445        IHV=ITTEVA
36446        GOTO5160
36447      ELSEIF(IHARG(1).EQ.IPART4.AND.IHARG(2).EQ.IPART3)THEN
36448        IHV=ITTEVA
36449        GOTO5160
36450      ENDIF
36451C
36452CCCCC FOLLOWING SECTION ADDED SEPTEMBER     2004.
36453C               *************************************************
36454C               **  STEP 20.A--                                **
36455C               **  PROBE ASH WEIGHTING                        **
36456C               **  PROBE AVERAGE SHIFTED HISTOGRAM WEIGHTING  **
36457C               *************************************************
36458C
36459      IPART1='ASH '
36460      IPART2='WEIG'
36461      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
36462        IHV=IASHWT
36463        GOTO5160
36464      ENDIF
36465C
36466      IPART1='AVER'
36467      IPART2='SHIF'
36468      IPART3='HIST'
36469      IPART4='WEIG'
36470      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
36471     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
36472        IHV=IASHWT
36473        GOTO5160
36474      ENDIF
36475C
36476CCCCC FOLLOWING SECTION ADDED OCTOBER       2004.
36477C               *************************************************
36478C               **  STEP 20.A--                                **
36479C               **  PROBE MAXIMUM LIKELIHOOD QUANTILES         **
36480C               *************************************************
36481C
36482      IPART1='MAXI'
36483      IPART2='LIKE'
36484      IPART3='QUAN'
36485      IPART4='PERC'
36486      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
36487     1  (IHARG(3).EQ.IPART3.OR.IHARG(3).EQ.IPART4))THEN
36488        IFOUND='YES'
36489        WRITE(ICOUT,999)
36490        CALL DPWRST('XXX','BUG ')
36491        WRITE(ICOUT,55161)IQUAVR
3649255161   FORMAT('THE MAXIMUM LIKEHOOD PERCENTILES VARIABLE HAS ',
36493     1         'BEEN SET TO ',A8)
36494        CALL DPWRST('XXX','BUG ')
36495        IPROBS=' '
36496        IPROBS(1:8)=IQUAVR(1:8)
36497        NCPROB=8
36498        GOTO8100
36499      ENDIF
36500C
36501CCCCC FOLLOWING SECTION ADDED DECEMBER      2004.
36502C               *************************************************
36503C               **  STEP 20.A--                                **
36504C               **  PROBE MAXIMUM LIKELIHOOD RELIABILITY       **
36505C               *************************************************
36506C
36507      IPART1='MAXI'
36508      IPART2='LIKE'
36509      IPART3='RELI'
36510      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
36511     1  IHARG(3).EQ.IPART3)THEN
36512        IFOUND='YES'
36513        WRITE(ICOUT,999)
36514        CALL DPWRST('XXX','BUG ')
36515        WRITE(ICOUT,55163)IRELVR
3651655163   FORMAT('THE MAXIMUM LIKEHOOD RELIABILITY VARIABLE HAS ',
36517     1         'BEEN SET TO ',A8)
36518        CALL DPWRST('XXX','BUG ')
36519        IPROBS=' '
36520        IPROBS(1:8)=IRELVR(1:8)
36521        NCPROB=8
36522        GOTO8100
36523      ENDIF
36524C
36525CCCCC FOLLOWING SECTION ADDED OCTOBER       2004.
36526C               *************************************************
36527C               **  STEP 20.A--                                **
36528C               **  PROBE EXPONENTIAL BIAS CORRECTED           **
36529C               *************************************************
36530C
36531      IPART1='EXPO'
36532      IPART2='BIAS'
36533      IPART3='CORR'
36534      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
36535     1  IHARG(3).EQ.IPART3)THEN
36536        IHV=IEXPBC
36537        GOTO5160
36538      ENDIF
36539C
36540CCCCC FOLLOWING SECTION ADDED NOVEMBER       2004.
36541C               *************************************************
36542C               **  STEP 20.A--                                **
36543C               **  PROBE WEIBULL     BIAS CORRECTED           **
36544C               *************************************************
36545C
36546      IPART1='WEIB'
36547      IPART2='BIAS'
36548      IPART3='CORR'
36549      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
36550     1  IHARG(3).EQ.IPART3)THEN
36551        IHV=IWEIBC
36552        GOTO5160
36553      ENDIF
36554C
36555CCCCC FOLLOWING SECTION ADDED MAY            2005.
36556C               *************************************************
36557C               **  STEP 20.A--                                **
36558C               **  PROBE GRUBBS ONE SIDED                     **
36559C               *************************************************
36560C
36561      IPART1='GRUB'
36562      IPART2='ONE '
36563      IPART3='SIDE'
36564      IPART4='1   '
36565      IF(IHARG(1).EQ.IPART1.AND.
36566     1   (IHARG(2).EQ.IPART2.OR.IHARG(2).EQ.IPART4).AND.
36567     1   IHARG(3).EQ.IPART3)THEN
36568        IHV=IGRU1S
36569        GOTO5160
36570      ENDIF
36571C
36572CCCCC FOLLOWING SECTION ADDED MAY            2005.
36573C               *************************************************
36574C               **  STEP 20.A--                                **
36575C               **  PROBE FRECHET     BIAS CORRECTED           **
36576C               *************************************************
36577C
36578      IPART1='FREC'
36579      IPART2='BIAS'
36580      IPART3='CORR'
36581      IPART4='EV2 '
36582      IF((IHARG(1).EQ.IPART1.OR.IHARG(1).EQ.IPART4).AND.
36583     1    IHARG(2).EQ.IPART2.AND.IHARG(3).EQ.IPART3)THEN
36584        IHV=IFREBC
36585        GOTO5160
36586      ENDIF
36587C
36588CCCCC FOLLOWING SECTION ADDED NOVEMBER       2004.
36589C               *************************************************
36590C               **  STEP 20.A--                                **
36591C               **  PROBE GUMBEL      BIAS CORRECTED           **
36592C               *************************************************
36593C
36594      IPART1='GUMB'
36595      IPART2='BIAS'
36596      IPART3='CORR'
36597      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
36598     1  IHARG(3).EQ.IPART3)THEN
36599        IHV=IGUMBC
36600        GOTO5160
36601      ENDIF
36602C
36603CCCCC FOLLOWING SECTION ADDED NOVEMBER       2004.
36604C               *************************************************
36605C               **  STEP 20.A--                                **
36606C               **  PROBE MATRIX CORRELATION DIRECTION         **
36607C               *************************************************
36608C
36609      IPART1='MATR'
36610      IPART2='CORR'
36611      IPART3='DIRE'
36612      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
36613     1  IHARG(3).EQ.IPART3)THEN
36614        IHV=ICORDI
36615        GOTO5160
36616      ENDIF
36617C
36618CCCCC FOLLOWING SECTION ADDED NOVEMBER       2004.
36619C               *************************************************
36620C               **  STEP 20.A--                                **
36621C               **  PROBE MATRIX COVARIANCE  DIRECTION         **
36622C               *************************************************
36623C
36624      IPART1='MATR'
36625      IPART2='COVA'
36626      IPART3='DIRE'
36627      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
36628     1  IHARG(3).EQ.IPART3)THEN
36629        IHV=ICOVDI
36630        GOTO5160
36631      ENDIF
36632C
36633CCCCC FOLLOWING SECTION ADDED MAY            2008.
36634C               *************************************************
36635C               **  STEP 20.A--                                **
36636C               **  PROBE GUI FEEDBACK <ON/OFF>                **
36637C               *************************************************
36638C
36639      IPART1='GUI '
36640      IPART2='FEED'
36641      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2)THEN
36642        IHV=IGUIFB
36643        GOTO5160
36644      ENDIF
36645C
36646CCCCC FOLLOWING SECTION ADDED DECEMBER       2004.
36647C               *************************************************
36648C               **  STEP 20.A--                                **
36649C               **  PROBE GUI <ON/OFF>                         **
36650C               *************************************************
36651C
36652      IPART1='GUI '
36653      IF(IHARG(1).EQ.IPART1)THEN
36654        IHV=IGUIFL
36655        GOTO5160
36656      ENDIF
36657C
36658CCCCC FOLLOWING SECTION ADDED JULY           2009.
36659C               *************************************************
36660C               **  STEP 20.A--                                **
36661C               **  PROBE PROMPT ADVANCE <ON/OFF>              **
36662C               *************************************************
36663C
36664      IPART1='PROM'
36665      IPART2='ADVA'
36666      IF(IHARG(1).EQ.IPART1 .AND. IHARG(2).EQ.IPART2)THEN
36667        IHV=IPROAD
36668        GOTO5160
36669      ENDIF
36670C
36671CCCCC FOLLOWING SECTION ADDED MARCH 2002.
36672C               ***********************************
36673C               **  STEP 20.A--                  **
36674C               **  PROBE BOX PLOT WIDTH         **
36675C               ***********************************
36676C
36677      IPART1='BOX '
36678      IPART2='PLOT'
36679      IPART3='WIDT'
36680      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
36681     1   IHARG(3).EQ.IPART3)THEN
36682        IHV=IBXPWI
36683        GOTO5160
36684      ENDIF
36685C
36686CCCCC FOLLOWING SECTION ADDED MARCH 2002.
36687C               ***********************************
36688C               **  STEP 20.A--                  **
36689C               **  PROBE 4-PLOT MULTIPLOT       **
36690C               ***********************************
36691C
36692      IPART1='4   '
36693      IPART2='PLOT'
36694      IPART3='MULT'
36695      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
36696     1   IHARG(3).EQ.IPART3)THEN
36697        IHV=I4PLMC
36698        GOTO5160
36699      ENDIF
36700C
36701      IPART1='4PLO'
36702      IPART2='MULT'
36703      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
36704        IHV=I4PLMC
36705        GOTO5160
36706      ENDIF
36707C
36708CCCCC FOLLOWING SECTION ADDED MARCH 2002.
36709C               ***********************************
36710C               **  STEP 20.A--                  **
36711C               **  PROBE 6-PLOT MULTIPLOT       **
36712C               ***********************************
36713C
36714      IPART1='6   '
36715      IPART2='PLOT'
36716      IPART3='MULT'
36717      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
36718     1   IHARG(3).EQ.IPART3)THEN
36719        IHV=I6PLMC
36720        GOTO5160
36721      ENDIF
36722C
36723      IPART1='6PLO'
36724      IPART2='MULT'
36725      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
36726        IHV=I6PLMC
36727        GOTO5160
36728      ENDIF
36729C
36730CCCCC FOLLOWING SECTION ADDED MAY 2002.
36731C               ***********************************
36732C               **  STEP 20.A--                  **
36733C               **  PROBE RANDOM NUMBER GENERATOR**
36734C               ***********************************
36735C
36736      IPART1='RAND'
36737      IPART2='NUMB'
36738      IPART3='GENE'
36739      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
36740     1   IHARG(3).EQ.IPART3)THEN
36741        IHV=IRANAL
36742        GOTO5160
36743      ENDIF
36744C
36745CCCCC FOLLOWING SECTION ADDED JUNE 2002.
36746C               ***********************************
36747C               **  STEP 20.A--                  **
36748C               **  PROBE NUMBER OF CP           **
36749C               ***********************************
36750C
36751      IPART1='NUMB'
36752      IPART2='OF  '
36753      IPART3='CP  '
36754      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
36755     1   IHARG(3).EQ.IPART3)THEN
36756        IV=INUMCP
36757        GOTO5150
36758      ENDIF
36759C
36760CCCCC FOLLOWING SECTION ADDED JULY 2002.
36761C               ***********************************
36762C               **  STEP 20.A--                  **
36763C               **  PROBE QUANTILE METHOD        **
36764C               ***********************************
36765C
36766      IPART1='QUAN'
36767      IPART2='METH'
36768      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
36769        IHV=IQUAME
36770        GOTO5160
36771      ENDIF
36772C
36773CCCCC FOLLOWING SECTION ADDED JULY 2002.
36774C               **************************************************
36775C               **  STEP 20.A--                                 **
36776C               **  PROBE QUANTILE STANDARD ERROR METHOD        **
36777C               **************************************************
36778C
36779      IPART1='QUAN'
36780      IPART2='STAN'
36781      IPART3='ERRO'
36782      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
36783     1   IHARG(3).EQ.IPART3)THEN
36784        IHV=IQUASE
36785        GOTO5160
36786      ENDIF
36787C
36788CCCCC FOLLOWING SECTION ADDED JULY 2002.
36789C               **************************************************
36790C               **  STEP 20.A--                                 **
36791C               **  PROBE COVARIANCE TYPE                       **
36792C               **************************************************
36793C
36794      IPART1='COVA'
36795      IPART2='TYPE'
36796      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
36797        IHV=ICOVTY
36798        GOTO5160
36799      ENDIF
36800C
36801CCCCC FOLLOWING SECTION ADDED JULY 2002.
36802C               **************************************************
36803C               **  STEP 20.A--                                 **
36804C               **  PROBE CORRELATION TYPE                      **
36805C               **************************************************
36806C
36807      IPART1='CORR'
36808      IPART2='TYPE'
36809      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
36810        IHV=ICORTY
36811        GOTO5160
36812      ENDIF
36813C
36814CCCCC FOLLOWING SECTION ADDED SEPTEMBER 2016.
36815C               **************************************************
36816C               **  STEP 20.A--                                 **
36817C               **  PROBE CORRELATION ABSOLUTE VALUE            **
36818C               **************************************************
36819C
36820      IPART1='CORR'
36821      IPART2='ABSO'
36822      IPART3='VALU'
36823      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
36824     1   IHARG(3).EQ.IPART3)THEN
36825        IHV=ICORAV
36826        GOTO5160
36827      ENDIF
36828C
36829CCCCC FOLLOWING SECTION ADDED SEPTEMBER 2016.
36830C               **************************************************
36831C               **  STEP 20.A--                                 **
36832C               **  PROBE CORRELATION PERCENTAGE VALUE          **
36833C               **************************************************
36834C
36835      IPART1='CORR'
36836      IPART2='PERC'
36837      IPART3='VALU'
36838      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
36839     1   IHARG(3).EQ.IPART3)THEN
36840        IHV=ICORPV
36841        GOTO5160
36842      ENDIF
36843C
36844CCCCC FOLLOWING SECTION ADDED SEPTEMBER 2016.
36845C               **************************************************
36846C               **  STEP 20.A--                                 **
36847C               **  PROBE CORRELATION DIGITS                    **
36848C               **************************************************
36849C
36850      IPART1='CORR'
36851      IPART2='DIGI'
36852      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
36853        IV=ICORDG
36854        GOTO5150
36855      ENDIF
36856C
36857CCCCC FOLLOWING SECTION ADDED OCTOBER 2016.
36858C               **************************************************
36859C               **  STEP 20.A--                                 **
36860C               **  PROBE PSVIEW FILE CLOSE                     **
36861C               **************************************************
36862C
36863      IPART1='PSVI'
36864      IPART2='FILE'
36865      IPART3='CLOS'
36866      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
36867     1   IHARG(3).EQ.IPART3)THEN
36868        IHV=IPSVCL
36869        GOTO5160
36870      ENDIF
36871C
36872CCCCC FOLLOWING SECTION ADDED JULY 2002.
36873C               **************************************************
36874C               **  STEP 20.A--                                 **
36875C               **  PROBE FILE NAME QUOTE                       **
36876C               **************************************************
36877C
36878      IPART1='FILE'
36879      IPART2='NAME'
36880      IPART3='QUOT'
36881      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
36882     1   IHARG(3).EQ.IPART3)THEN
36883        IHV=IFILQU
36884        GOTO5160
36885      ENDIF
36886C
36887CCCCC FOLLOWING SECTION ADDED JULY 2002.
36888C               **************************************************
36889C               **  STEP 20.A--                                 **
36890C               **  PROBE BOOTSTRAP FIT METHOD                  **
36891C               **************************************************
36892C
36893      IPART1='BOOT'
36894      IPART2='FIT '
36895      IPART2='METH'
36896      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
36897     1   IHARG(3).EQ.IPART3)THEN
36898        IHV=IBOOME
36899        GOTO5160
36900      ENDIF
36901C
36902CCCCC FOLLOWING SECTION ADDED FEBRUARY 2005.
36903C               **************************************************
36904C               **  STEP 20.A--                                 **
36905C               **  PROBE BOOTSTRAP DISTRIBUTIONAL BOOTSTRAP    **
36906C               **************************************************
36907C
36908      IPART1='DIST'
36909      IPART2='BOOT'
36910      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
36911        IHV=IBOOPA
36912        GOTO5160
36913      ENDIF
36914C
36915CCCCC FOLLOWING SECTION ADDED APRIL 2005.
36916C               **************************************************
36917C               **  STEP 20.A--                                 **
36918C               **  PROBE DECIMAL POINT                         **
36919C               **************************************************
36920C
36921      IPART1='DECI'
36922      IPART2='POIN'
36923      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
36924        IHV=IDECPT
36925        GOTO5160
36926      ENDIF
36927C
36928CCCCC FOLLOWING SECTION ADDED OCTOBER 2006.
36929C               **************************************************
36930C               **  STEP 20.A--                                 **
36931C               **  PROBE 4PLOT DISTRIBUTION                    **
36932C               **************************************************
36933C
36934      IPART1='4PLO'
36935      IPART2='DIST'
36936      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
36937        IHV=I4PLDI
36938        GOTO5160
36939      ENDIF
36940C
36941      IPART1='4   '
36942      IPART2='PLOT'
36943      IPART3='DIST'
36944      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
36945     1   IHARG(3).EQ.IPART3)THEN
36946        IHV=I4PLDI
36947        GOTO5160
36948      ENDIF
36949C
36950C
36951CCCCC FOLLOWING SECTION ADDED APRIL 2005.
36952C               **************************************************
36953C               **  STEP 20.A--                                 **
36954C               **  PROBE PEAKS OVER THRESHOLD METHOD           **
36955C               **************************************************
36956C
36957      IPART1='PEAK'
36958      IPART2='OVER'
36959      IPART3='THRE'
36960      IPART4='METH'
36961      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
36962     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
36963        IHV=IPOTME
36964        GOTO5160
36965      ENDIF
36966C
36967      IPART1='POT '
36968      IPART2='METH'
36969      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
36970        IHV=IPOTME
36971        GOTO5160
36972      ENDIF
36973C
36974CCCCC FOLLOWING SECTION ADDED APRIL 2005.
36975C               **************************************************
36976C               **  STEP 20.A--                                 **
36977C               **  PROBE PEAKS OVER THRESHOLD LOAD FACTOR      **
36978C               **************************************************
36979C
36980      IPART1='PEAK'
36981      IPART2='OVER'
36982      IPART3='THRE'
36983      IPART4='LOAD'
36984      IPART5='FACT'
36985      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
36986     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
36987     1   IHARG(5).EQ.IPART5)THEN
36988        IHV=IPOTLF
36989        GOTO5160
36990      ENDIF
36991C
36992      IPART1='POT '
36993      IPART2='LOAD'
36994      IPART3='FACT'
36995      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
36996     1   IHARG(3).EQ.IPART3)THEN
36997        IHV=IPOTLF
36998        GOTO5160
36999      ENDIF
37000C
37001CCCCC FOLLOWING SECTION ADDED APRIL 2005.
37002C               **************************************************
37003C               **  STEP 20.A--                                 **
37004C               **  PROBE PEAKS OVER THRESHOLD X AXIS           **
37005C               **************************************************
37006C
37007      IPART1='PEAK'
37008      IPART2='OVER'
37009      IPART3='THRE'
37010      IPART4='X   '
37011      IPART5='AXIS'
37012      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
37013     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
37014     1   IHARG(5).EQ.IPART5)THEN
37015        IHV=IPOTAX
37016        GOTO5160
37017      ENDIF
37018C
37019      IPART1='POT '
37020      IPART2='X   '
37021      IPART3='AXIS'
37022      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
37023     1   IHARG(3).EQ.IPART3)THEN
37024        IHV=IPOTAX
37025        GOTO5160
37026      ENDIF
37027C
37028CCCCC FOLLOWING SECTION ADDED APRIL 2005.
37029C               **************************************************
37030C               **  STEP 20.A--                                 **
37031C               **  PROBE PEAKS OVER THRESHOLD DISTRIBUTION     **
37032C               **************************************************
37033C
37034      IPART1='PEAK'
37035      IPART2='OVER'
37036      IPART3='THRE'
37037      IPART4='DIST'
37038      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
37039     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
37040        IHV=IPOTDI
37041        GOTO5160
37042      ENDIF
37043C
37044      IPART1='POT '
37045      IPART2='METH'
37046      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
37047        IHV=IPOTDI
37048        GOTO5160
37049      ENDIF
37050C
37051CCCCC FOLLOWING SECTION ADDED APRIL 2005.
37052C               **************************************************
37053C               **  STEP 20.A--                                 **
37054C               **  PROBE PEAKS OVER THRESHOLD INITIAL POINTS   **
37055C               **************************************************
37056C
37057      IPART1='PEAK'
37058      IPART2='OVER'
37059      IPART3='THRE'
37060      IPART4='INIT'
37061      IPART5='POIN'
37062      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
37063     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
37064     1   IHARG(5).EQ.IPART5)THEN
37065        IV=IPOTNP
37066        GOTO5150
37067      ENDIF
37068C
37069      IPART1='POT '
37070      IPART2='INIT'
37071      IPART3='POIN'
37072      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
37073     1   IHARG(3).EQ.IPART3)THEN
37074        IV=IPOTNP
37075        GOTO5150
37076      ENDIF
37077C
37078CCCCC FOLLOWING SECTION ADDED APRIL 2005.
37079C               **************************************************
37080C               **  STEP 20.A--                                 **
37081C               **  PROBE PEAKS OVER THRESHOLD ITERATIONS       **
37082C               **************************************************
37083C
37084      IPART1='PEAK'
37085      IPART2='OVER'
37086      IPART3='THRE'
37087      IPART4='ITER'
37088      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
37089     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
37090        IV=IPOTIT
37091        GOTO5150
37092      ENDIF
37093C
37094      IPART1='POT '
37095      IPART2='IITE'
37096      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
37097        IV=IPOTIT
37098        GOTO5150
37099      ENDIF
37100C
37101CCCCC FOLLOWING SECTION ADDED APRIL 2005.
37102C               **************************************************
37103C               **  STEP 20.A--                                 **
37104C               **  PROBE PEAKS OVER THRESHOLD INITIAL THRESHOLD**
37105C               **************************************************
37106C
37107      IPART1='PEAK'
37108      IPART2='OVER'
37109      IPART3='THRE'
37110      IPART4='INIT'
37111      IPART5='THRE'
37112      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
37113     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
37114     1   IHARG(5).EQ.IPART5)THEN
37115        AV=PPOTTH
37116        GOTO5170
37117      ENDIF
37118C
37119      IPART1='POT '
37120      IPART2='INIT'
37121      IPART3='THRE'
37122      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
37123     1   IHARG(3).EQ.IPART3)THEN
37124        AV=PPOTTH
37125        GOTO5170
37126      ENDIF
37127C
37128CCCCC FOLLOWING SECTION ADDED APRIL 2005.
37129C               **************************************************
37130C               **  STEP 20.A--                                 **
37131C               **  PROBE PEAKS OVER THRESHOLD INCREMENT        **
37132C               **************************************************
37133C
37134      IPART1='PEAK'
37135      IPART2='OVER'
37136      IPART3='THRE'
37137      IPART4='INCR'
37138      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
37139     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
37140        AV=PPOTIN
37141        GOTO5170
37142      ENDIF
37143C
37144      IPART1='POT '
37145      IPART2='INCR'
37146      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
37147        AV=PPOTIN
37148        GOTO5170
37149      ENDIF
37150C
37151CCCCC FOLLOWING SECTION ADDED APRIL 2005.
37152C               **************************************************
37153C               **  STEP 20.A--                                 **
37154C               **  PROBE PEAKS OVER THRESHOLD INCREMENT        **
37155C               **************************************************
37156C
37157      IPART1='PEAK'
37158      IPART2='OVER'
37159      IPART3='THRE'
37160      IPART4='PERI'
37161      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
37162     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
37163        AV=PPOTPE
37164        GOTO5170
37165      ENDIF
37166C
37167      IPART1='POT '
37168      IPART2='INCR'
37169      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
37170        AV=PPOTPE
37171        GOTO5170
37172      ENDIF
37173C
37174CCCCC FOLLOWING SECTION ADDED APRIL 2005.
37175C               **************************************************
37176C               **  STEP 20.A--                                 **
37177C               **  PROBE PEAKS OVER THRESHOLD TOLERANCE        **
37178C               **************************************************
37179C
37180      IPART1='PEAK'
37181      IPART2='OVER'
37182      IPART3='THRE'
37183      IPART4='TOLE'
37184      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
37185     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
37186        AV=PPOTTO
37187        GOTO5170
37188      ENDIF
37189C
37190      IPART1='POT '
37191      IPART2='INCR'
37192      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
37193        AV=PPOTTO
37194        GOTO5170
37195      ENDIF
37196C
37197CCCCC FOLLOWING SECTION ADDED AUGUST 2008.
37198C               **************************************************
37199C               **  STEP 20.A--                                 **
37200C               **  PROBE MERGE MATCH VARIABLES                 **
37201C               **************************************************
37202C
37203      IPART1='MERG'
37204      IPART2='MATC'
37205      IPART3='VARI'
37206      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
37207     1   IHARG(3).EQ.IPART3)THEN
37208        IV=IMERMA
37209        GOTO5150
37210      ENDIF
37211C
37212CCCCC FOLLOWING SECTION ADDED AUGUST 2008.
37213C               **************************************************
37214C               **  STEP 20.A--                                 **
37215C               **  PROBE MERGE CARRY VARIABLES                 **
37216C               **************************************************
37217C
37218      IPART1='MERG'
37219      IPART2='CARR'
37220      IPART3='VARI'
37221      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
37222     1   IHARG(3).EQ.IPART3)THEN
37223        IV=IMERCA
37224        GOTO5150
37225      ENDIF
37226C
37227CCCCC FOLLOWING SECTION ADDED MARCH 2009.
37228C               **************************************************
37229C               **  STEP 20.A--                                 **
37230C               **  PROBE CONVERT DENSITY HORIZONTAL            **
37231C               **************************************************
37232C
37233      IPART1='CONV'
37234      IPART2='DENS'
37235      IPART3='HORI'
37236      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
37237     1   IHARG(3).EQ.IPART3)THEN
37238        IV=ICONDH
37239        GOTO5150
37240      ENDIF
37241C
37242CCCCC FOLLOWING SECTION ADDED MARCH 2009.
37243C               **************************************************
37244C               **  STEP 20.A--                                 **
37245C               **  PROBE CONVERT DENSITY VERTICAL              **
37246C               **************************************************
37247C
37248      IPART1='CONV'
37249      IPART2='DENS'
37250      IPART3='VERT'
37251      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
37252     1   IHARG(3).EQ.IPART3)THEN
37253        IV=ICONDV
37254        GOTO5150
37255      ENDIF
37256C
37257CCCCC FOLLOWING SECTION ADDED MARCH 2009.
37258C               **************************************************
37259C               **  STEP 20.A--                                 **
37260C               **  PROBE CONVERT DENSITY                       **
37261C               **************************************************
37262C
37263      IPART1='CONV'
37264      IPART2='DENS'
37265      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
37266        IV=ICONDH
37267        GOTO5150
37268      ENDIF
37269C
37270CCCCC FOLLOWING SECTION ADDED APRIL 2009.
37271C               **************************************************
37272C               **  STEP 20.A--                                 **
37273C               **  PROBE LATEX POINT SIZE                      **
37274C               **************************************************
37275C
37276      IPART1='LATE'
37277      IPART2='POIN'
37278      IPART3='SIZE'
37279      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
37280     1   IHARG(3).EQ.IPART3)THEN
37281        IV=ILATPS
37282        GOTO5150
37283      ENDIF
37284C
37285CCCCC FOLLOWING SECTION ADDED JUNE 2009.
37286C               **************************************************
37287C               **  STEP 20.A--                                 **
37288C               **  PROBE CODE CROSS TABULATE OFFSET            **
37289C               **************************************************
37290C
37291      IPART1='CODE'
37292      IPART2='CROS'
37293      IPART3='TABU'
37294      IPART4='OFFS'
37295      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
37296     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
37297        IV=ICCTOF
37298        GOTO5150
37299      ENDIF
37300C
37301CCCCC FOLLOWING SECTION ADDED JUNE 2009.
37302C               **************************************************
37303C               **  STEP 20.A--                                 **
37304C               **  PROBE CODE CROSS TABULATE GROUP SIZE        **
37305C               **************************************************
37306C
37307      IPART1='CODE'
37308      IPART2='CROS'
37309      IPART3='TABU'
37310      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
37311     1   IHARG(3).EQ.IPART3)THEN
37312        IV=ICCTOF
37313        GOTO5150
37314      ENDIF
37315C
37316CCCCC FOLLOWING SECTION ADDED JUNE 2009.
37317C               **************************************************
37318C               **  STEP 20.A--                                 **
37319C               **  PROBE CODE CROSS TABULATE GROUP SIZE        **
37320C               **************************************************
37321C
37322      IPART1='CODE'
37323      IPART2='CROS'
37324      IPART3='TABU'
37325      IPART4='GROU'
37326      IPART5='SIZE'
37327      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
37328     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
37329     1   IHARG(5).EQ.IPART5)THEN
37330        IF(IHARG(6).EQ.'ONE' .OR. IHARG(6).EQ.'1')THEN
37331          IV=ICCTG1
37332        ELSEIF(IHARG(6).EQ.'TWO' .OR. IHARG(6).EQ.'2')THEN
37333          IV=ICCTG2
37334        ELSEIF(IHARG(6).EQ.'THRE' .OR. IHARG(6).EQ.'3')THEN
37335          IV=ICCTG3
37336        ELSEIF(IHARG(6).EQ.'FOUR' .OR. IHARG(6).EQ.'4')THEN
37337          IV=ICCTG4
37338        ELSEIF(IHARG(6).EQ.'FIVE' .OR. IHARG(6).EQ.'5')THEN
37339          IV=ICCTG5
37340        ELSEIF(IHARG(6).EQ.'SIX' .OR. IHARG(6).EQ.'6')THEN
37341          IV=ICCTG5
37342        ELSE
37343          IV=ICCTG1
37344        ENDIF
37345        GOTO5150
37346      ENDIF
37347C
37348CCCCC FOLLOWING SECTION ADDED JULY 2006.
37349C               **************************************************
37350C               **  STEP 20.A--                                 **
37351C               **  PROBE CHISQUARE LIMIT                       **
37352C               **************************************************
37353C
37354      IPART1='CHIS'
37355      IPART2='LIMI'
37356      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
37357        AV=PCHSLM
37358        GOTO5170
37359      ENDIF
37360C
37361      IPART1='CHI '
37362      IPART2='SQUA'
37363      IPART3='LIMI'
37364      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
37365     1   IHARG(3).EQ.IPART3)THEN
37366        AV=PCHSLM
37367        GOTO5170
37368      ENDIF
37369C
37370CCCCC FOLLOWING SECTION ADDED OCTOBER 2006.
37371C               **************************************************
37372C               **  STEP 20.A--                                 **
37373C               **  PROBE MAXWELL LOCATION                      **
37374C               **************************************************
37375C
37376      IPART1='MAXW'
37377      IPART2='LOCA'
37378      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
37379        AV=PMAXLO
37380        GOTO5170
37381      ENDIF
37382C
37383CCCCC FOLLOWING SECTION ADDED FEBRUARY 2007
37384C               ****************************************************
37385C               **  STEP 20.A--                                   **
37386C               **  PROBE BINOMIAL NORMAL APPROXIMATION THRESHOLD **
37387C               ****************************************************
37388C
37389      IPART1='BINO'
37390      IPART2='NORM'
37391      IPART3='APPR'
37392      IPART4='THRE'
37393      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
37394     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
37395        AV=PBINTH
37396        GOTO5170
37397      ENDIF
37398C
37399CCCCC FOLLOWING SECTION ADDED MARCH   2007
37400C               ****************************************************
37401C               **  STEP 20.A--                                   **
37402C               **  PROBE FISHER EXACT EXPECTED MINIMUM           **
37403C               ****************************************************
37404C
37405      IPART1='FISH'
37406      IPART2='EXAC'
37407      IPART3='EXPE'
37408      IPART4='MINI'
37409      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
37410     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
37411        AV=PFISEM
37412        GOTO5170
37413      ENDIF
37414C
37415CCCCC FOLLOWING SECTION ADDED MARCH   2007
37416C               ****************************************************
37417C               **  STEP 20.A--                                   **
37418C               **  PROBE FISHER EXACT EXPECTED                   **
37419C               ****************************************************
37420C
37421      IPART1='FISH'
37422      IPART2='EXAC'
37423      IPART3='EXPE'
37424      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
37425     1   IHARG(3).EQ.IPART3)THEN
37426        AV=PFISEX
37427        GOTO5170
37428      ENDIF
37429C
37430CCCCC FOLLOWING SECTION ADDED MARCH   2007
37431C               ****************************************************
37432C               **  STEP 20.A--                                   **
37433C               **  PROBE FISHER EXACT PERCENT                    **
37434C               ****************************************************
37435C
37436      IPART1='FISH'
37437      IPART2='EXAC'
37438      IPART3='PERC'
37439      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
37440     1   IHARG(3).EQ.IPART3)THEN
37441        AV=PFISPC
37442        GOTO5170
37443      ENDIF
37444C
37445CCCCC FOLLOWING SECTION ADDED APRIL   2007
37446C               ****************************************************
37447C               **  STEP 20.A--                                   **
37448C               **  PROBE STATISTIC MISSING VALUE                 **
37449C               ****************************************************
37450C
37451      IPART1='STAT'
37452      IPART2='MISS'
37453      IPART3='VALU'
37454      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
37455     1   IHARG(3).EQ.IPART3)THEN
37456        AV=PSTAMV
37457        GOTO5170
37458      ENDIF
37459C
37460CCCCC FOLLOWING SECTION ADDED APRIL   2008
37461C               ****************************************************
37462C               **  STEP 20.A--                                   **
37463C               **  PROBE CROSS TABULATE MISSING VALUE            **
37464C               ****************************************************
37465C
37466      IPART1='CROS'
37467      IPART2='TABU'
37468      IPART3='MISS'
37469      IPART4='VALU'
37470      IF(IHARG(1).EQ.IPART1.AND.IHARG(2)(1:3).EQ.IPART2(1:3).AND.
37471     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
37472        AV=PCTAMV
37473        GOTO5170
37474      ENDIF
37475C
37476CCCCC FOLLOWING SECTION ADDED APRIL   2008
37477C               ****************************************************
37478C               **  STEP 20.A--                                   **
37479C               **  PROBE CROSS TABULATE MISSING VALUE            **
37480C               ****************************************************
37481C
37482      IPART1='CROS'
37483      IPART2='TABU'
37484      IPART3='MISS'
37485      IF(IHARG(1).EQ.IPART1.AND.IHARG(2)(1:3).EQ.IPART2(1:3).AND.
37486     1   IHARG(3).EQ.IPART3)THEN
37487        IHV=ICTAMV
37488        GOTO5160
37489      ENDIF
37490C
37491CCCCC FOLLOWING SECTION ADDED MAY   2008
37492C               ****************************************************
37493C               **  STEP 20.A--                                   **
37494C               **  PROBE FLUCATION PLOT FLOOR <VALUE>            **
37495C               ****************************************************
37496C
37497      IPART1='FLUC'
37498      IPART2='PLOT'
37499      IPART3='FLOO'
37500      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
37501     1   IHARG(3).EQ.IPART3)THEN
37502        AV=PFLUFL
37503        GOTO5170
37504      ENDIF
37505C
37506CCCCC FOLLOWING SECTION ADDED MAY   2008
37507C               ****************************************************
37508C               **  STEP 20.A--                                   **
37509C               **  PROBE FLUCATION PLOT CEILING <VALUE>          **
37510C               ****************************************************
37511C
37512      IPART1='FLUC'
37513      IPART2='PLOT'
37514      IPART3='CEIL'
37515      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
37516     1   IHARG(3).EQ.IPART3)THEN
37517        AV=PFLUCL
37518        GOTO5170
37519      ENDIF
37520C
37521CCCCC FOLLOWING SECTION ADDED MAY   2008
37522C               ****************************************************
37523C               **  STEP 20.A--                                   **
37524C               **  PROBE FLUCATION PLOT WIDTH <FIXED/PROPORTIONAL>*
37525C               ****************************************************
37526C
37527      IPART1='FLUC'
37528      IPART2='PLOT'
37529      IPART3='WIDT'
37530      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
37531     1   IHARG(3).EQ.IPART3)THEN
37532        IHV=IFLUWI
37533        GOTO5160
37534      ENDIF
37535C
37536CCCCC FOLLOWING SECTION ADDED SEPTEMBER   2009
37537C               ****************************************************
37538C               **  STEP 20.A--                                   **
37539C               **  PROBE FLUCATION PLOT UNCERTAINTY INTERVAL     **
37540C               **        <ON/OFF>                                **
37541C               ****************************************************
37542C
37543      IPART1='FLUC'
37544      IPART2='PLOT'
37545      IPART3='UNCE'
37546      IPART4='INTE'
37547      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
37548     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
37549        IHV=IFLUUN
37550        GOTO5160
37551      ENDIF
37552C
37553CCCCC FOLLOWING SECTION ADDED JANUARY     2010
37554C               ****************************************************
37555C               **  STEP 20.A--                                   **
37556C               **  PROBE FLUCATION PLOT CODED <ON/OFF>           **
37557C               ****************************************************
37558C
37559      IPART1='FLUC'
37560      IPART2='PLOT'
37561      IPART3='CODE'
37562      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
37563     1   IHARG(3).EQ.IPART3)THEN
37564        IHV=IFLUCD
37565        GOTO5160
37566      ENDIF
37567C
37568CCCCC FOLLOWING SECTION ADDED APRIL       2010
37569C               ****************************************************
37570C               **  STEP 20.A--                                   **
37571C               **  PROBE FLUCATION CONTOUR BINOMIAL PROPORTION   **
37572C               **        <POINT/LOWER LIMIT/UPPER LIMIT>         **
37573C               ****************************************************
37574C
37575      IPART1='FLUC'
37576      IPART2='CONT'
37577      IPART3='BINO'
37578      IPART4='PROP'
37579      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
37580     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
37581        IHV=IFLUBP
37582        GOTO5160
37583      ENDIF
37584C
37585CCCCC FOLLOWING SECTION ADDED JANUARY     2010
37586C               ****************************************************
37587C               **  STEP 20.A--                                   **
37588C               **  PROBE TABULATION PLOT CODED <ON/OFF>          **
37589C               ****************************************************
37590C
37591      IPART1='TABU'
37592      IPART2='PLOT'
37593      IPART3='CODE'
37594      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
37595     1   IHARG(3).EQ.IPART3)THEN
37596        IHV=ITPLCD
37597        GOTO5160
37598      ENDIF
37599C
37600CCCCC FOLLOWING SECTION ADDED JUNE        2010
37601C               ****************************************************
37602C               **  STEP 20.A--                                   **
37603C               **  PROBE TABULATION PLOT SORTED <ON/OFF>         **
37604C               ****************************************************
37605C
37606      IPART1='TABU'
37607      IPART2='PLOT'
37608      IPART3='SORT'
37609      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
37610     1   IHARG(3).EQ.IPART3)THEN
37611        IHV=ITPLSO
37612        GOTO5160
37613      ENDIF
37614C
37615CCCCC FOLLOWING SECTION ADDED JUNE        2010
37616C               ****************************************************
37617C               **  STEP 20.A--                                   **
37618C               **  PROBE TABULATION PLOT ROW SORT DIRECTION      **
37619C               **        <ASCENDING/DESCENDING>                  **
37620C               ****************************************************
37621C
37622      IPART1='TABU'
37623      IPART2='PLOT'
37624      IPART3='ROW'
37625      IPART4='SORT'
37626      IPART5='DIRE'
37627      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
37628     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
37629     1   IHARG(5).EQ.IPART5)THEN
37630        IHV=ITPLSR
37631        GOTO5160
37632      ENDIF
37633C
37634CCCCC FOLLOWING SECTION ADDED JUNE        2010
37635C               ****************************************************
37636C               **  STEP 20.A--                                   **
37637C               **  PROBE TABULATION PLOT COLUMN SORT DIRECTION   **
37638C               **        <ASCENDING/DESCENDING>                  **
37639C               ****************************************************
37640C
37641      IPART1='TABU'
37642      IPART2='PLOT'
37643      IPART3='COLU'
37644      IPART4='SORT'
37645      IPART5='DIRE'
37646      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
37647     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
37648     1   IHARG(5).EQ.IPART5)THEN
37649        IHV=ITPLSC
37650        GOTO5160
37651      ENDIF
37652C
37653CCCCC FOLLOWING SECTION ADDED JUNE        2010
37654C               ****************************************************
37655C               **  STEP 20.A--                                   **
37656C               **  PROBE TABULATION PLOT ROW MINMAX <ON/OFF>     **
37657C               ****************************************************
37658C
37659      IPART1='TABU'
37660      IPART2='PLOT'
37661      IPART3='ROW '
37662      IPART4='MINM'
37663      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
37664     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
37665        IHV=ITPLRM
37666        GOTO5160
37667      ENDIF
37668C
37669CCCCC FOLLOWING SECTION ADDED JUNE        2010
37670C               ****************************************************
37671C               **  STEP 20.A--                                   **
37672C               **  PROBE TABULATION PLOT COLUMN MINMAX <ON/OFF>  **
37673C               ****************************************************
37674C
37675      IPART1='TABU'
37676      IPART2='PLOT'
37677      IPART3='COLU'
37678      IPART4='MINM'
37679      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
37680     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
37681        IHV=ITPLCM
37682        GOTO5160
37683      ENDIF
37684C
37685CCCCC FOLLOWING SECTION ADDED JUNE        2010
37686C               ****************************************************
37687C               **  STEP 20.A--                                   **
37688C               **  PROBE FLUCTUATION PLOT SORTED <ON/OFF>        **
37689C               ****************************************************
37690C
37691      IPART1='FLUC'
37692      IPART2='PLOT'
37693      IPART3='SORT'
37694      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
37695     1   IHARG(3).EQ.IPART3)THEN
37696        IHV=IFLUSO
37697        GOTO5160
37698      ENDIF
37699C
37700CCCCC FOLLOWING SECTION ADDED JUNE        2010
37701C               ****************************************************
37702C               **  STEP 20.A--                                   **
37703C               **  PROBE FLUCTUATION PLOT ROW SORT DIRECTION     **
37704C               **        <ASCENDING/DESCENDING>                  **
37705C               ****************************************************
37706C
37707      IPART1='FLUC'
37708      IPART2='PLOT'
37709      IPART3='ROW'
37710      IPART4='SORT'
37711      IPART5='DIRE'
37712      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
37713     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
37714     1   IHARG(5).EQ.IPART5)THEN
37715        IHV=IFLUSR
37716        GOTO5160
37717      ENDIF
37718C
37719CCCCC FOLLOWING SECTION ADDED JUNE        2010
37720C               ****************************************************
37721C               **  STEP 20.A--                                   **
37722C               **  PROBE FLUCTUATION PLOT COLUMN SORT DIRECTION  **
37723C               **        <ASCENDING/DESCENDING>                  **
37724C               ****************************************************
37725C
37726      IPART1='FLUC'
37727      IPART2='PLOT'
37728      IPART3='COLU'
37729      IPART4='SORT'
37730      IPART5='DIRE'
37731      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
37732     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
37733     1   IHARG(5).EQ.IPART5)THEN
37734        IHV=IFLUSC
37735        GOTO5160
37736      ENDIF
37737C
37738CCCCC FOLLOWING SECTION ADDED OCTOBER   2008
37739C               ****************************************************
37740C               **  STEP 20.A--                                   **
37741C               **  PROBE STRIP PLOT INCREMENT   <VALUE>          **
37742C               ****************************************************
37743C
37744      IPART1='STRI'
37745      IPART2='PLOT'
37746      IPART3='INCR'
37747      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
37748     1   IHARG(3).EQ.IPART3)THEN
37749        AV=PSTRIN
37750        GOTO5170
37751      ENDIF
37752C
37753CCCCC FOLLOWING SECTION ADDED APRIL     2009
37754C               ****************************************************
37755C               **  STEP 20.A--                                   **
37756C               **  PROBE BIPLOT COEFFICIENT     <VALUE>          **
37757C               ****************************************************
37758C
37759      IPART1='BIPL'
37760      IPART2='COEF'
37761      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
37762        AV=PBPLCO
37763        GOTO5170
37764      ENDIF
37765C
37766CCCCC FOLLOWING SECTION ADDED SEPTEMBER     2009
37767C               ****************************************************
37768C               **  STEP 20.A--                                   **
37769C               **  PROBE TABULATION PLOT X INCREMENT <VALUE>     **
37770C               ****************************************************
37771C
37772      IPART1='TABU'
37773      IPART2='PLOT'
37774      IPART3='X   '
37775      IPART4='INCR'
37776      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
37777     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
37778        AV=PTPLXI
37779        GOTO5170
37780      ENDIF
37781C
37782CCCCC FOLLOWING SECTION ADDED SEPTEMBER     2009
37783C               ****************************************************
37784C               **  STEP 20.A--                                   **
37785C               **  PROBE TABULATION PLOT Y INCREMENT <VALUE>     **
37786C               ****************************************************
37787C
37788      IPART1='TABU'
37789      IPART2='PLOT'
37790      IPART3='Y   '
37791      IPART4='INCR'
37792      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
37793     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
37794        AV=PTPLYI
37795        GOTO5170
37796      ENDIF
37797C
37798CCCCC FOLLOWING SECTION ADDED DECEMBER      2009
37799C               ****************************************************
37800C               **  STEP 20.A--                                   **
37801C               **  PROBE TABULATION PLOT NUMBER OF UNCERTAINTY   **
37802C               **                        INTERVALS               **
37803C               ****************************************************
37804C
37805      IPART1='TABU'
37806      IPART2='PLOT'
37807      IPART3='NUMB'
37808      IPART4='OF  '
37809      IPART5='UNCE'
37810      IPART6='INTE'
37811      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
37812     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
37813     1   IHARG(5).EQ.IPART5.AND.IHARG(6).EQ.IPART6)THEN
37814        IV=ITPLNI
37815        GOTO5150
37816      ENDIF
37817C
37818CCCCC FOLLOWING SECTION ADDED JUNE          2011
37819C               ****************************************************
37820C               **  STEP 20.A--                                   **
37821C               **  PROBE MEDIAN TEST QUANTILE        <VALUE>     **
37822C               ****************************************************
37823C
37824      IPART1='MEDI'
37825      IPART2='TEST'
37826      IPART3='QUAN'
37827      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
37828     1   IHARG(3).EQ.IPART3)THEN
37829        AV=PMTEQU
37830        GOTO5170
37831      ENDIF
37832C
37833CCCCC FOLLOWING SECTION ADDED SEPTEMBER     2010
37834C               ****************************************************
37835C               **  STEP 20.A--                                   **
37836C               **  PROBE PAUSE LINES                             **
37837C               ****************************************************
37838C
37839      IPART1='PAUS'
37840      IPART2='LINE'
37841      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
37842        IV=IPAULI
37843        GOTO5150
37844      ENDIF
37845C
37846CCCCC FOLLOWING SECTION ADDED APRIL      2017
37847C               ****************************************************
37848C               **  STEP 20.A--                                   **
37849C               **  PROBE CHARACTER FIELD COMMA DELIMITER <ON/OFF>**
37850C               ****************************************************
37851C
37852      IPART1='CHAR'
37853      IPART2='FIEL'
37854      IPART3='COMM'
37855      IPART4='DELI'
37856      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
37857     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
37858        IHV=IREACD
37859        GOTO5160
37860      ENDIF
37861C
37862CCCCC FOLLOWING SECTION ADDED DECEMBER      2011
37863C               ****************************************************
37864C               **  STEP 20.A--                                   **
37865C               **  PROBE CHARACTER AUTOMATIC OFFSET              **
37866C               ****************************************************
37867C
37868      IPART1='CHAR'
37869      IPART2='AUTO'
37870      IPART3='OFFS'
37871      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
37872     1   IHARG(3).EQ.IPART3)THEN
37873        IV=ICHAOF
37874        GOTO5150
37875      ENDIF
37876C
37877CCCCC FOLLOWING SECTION ADDED JUNE          2012
37878C               ****************************************************
37879C               **  STEP 20.A--                                   **
37880C               **  PROBE CHARACTER REPEAT OFFSET                 **
37881C               ****************************************************
37882C
37883      IPART1='CHAR'
37884      IPART2='REPE'
37885      IPART3='OFFS'
37886      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
37887     1   IHARG(3).EQ.IPART3)THEN
37888        IV=ICHARO
37889        GOTO5150
37890      ENDIF
37891C
37892CCCCC FOLLOWING SECTION ADDED MARCH         2013
37893C               ****************************************************
37894C               **  STEP 20.A--                                   **
37895C               **  PROBE CUMULATIVE STATISTIC START              **
37896C               ****************************************************
37897C
37898      IPART1='CUMU'
37899      IPART2='STAT'
37900      IPART3='STAR'
37901      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
37902     1   IHARG(3).EQ.IPART3)THEN
37903        IV=ICSTSV
37904        GOTO5150
37905      ENDIF
37906C
37907CCCCC FOLLOWING SECTION ADDED NOVEMBER   2008
37908C               ****************************************************
37909C               **  STEP 20.A--                                   **
37910C               **  PROBE STRIP PLOT STYLE                        **
37911C               ****************************************************
37912C
37913      IPART1='STRI'
37914      IPART2='PLOT'
37915      IPART3='STYL'
37916      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
37917     1   IHARG(3).EQ.IPART3)THEN
37918        IHV=ISTRPL
37919        GOTO5160
37920      ENDIF
37921C
37922CCCCC FOLLOWING SECTION ADDED MARCH   2009
37923C               ****************************************************
37924C               **  STEP 20.A--                                   **
37925C               **  PROBE STATISTIC PLOT FORMAT                   **
37926C               ****************************************************
37927C
37928      IPART1='STAT'
37929      IPART2='PLOT'
37930      IPART3='FORM'
37931      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
37932     1   IHARG(3).EQ.IPART3)THEN
37933        IHV=ISTAFO
37934        GOTO5160
37935      ENDIF
37936C
37937CCCCC FOLLOWING SECTION ADDED MARCH   2009
37938C               ****************************************************
37939C               **  STEP 20.A--                                   **
37940C               **  PROBE STATISTIC PLOT SUMMARY                  **
37941C               ****************************************************
37942C
37943      IPART1='STAT'
37944      IPART2='PLOT'
37945      IPART3='SUMM'
37946      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
37947     1   IHARG(3).EQ.IPART3)THEN
37948        IHV=ISTASM
37949        GOTO5160
37950      ENDIF
37951C
37952CCCCC FOLLOWING SECTION ADDED APRIL   2009
37953C               ****************************************************
37954C               **  STEP 20.A--                                   **
37955C               **  PROBE BIPLOT SCALE                            **
37956C               ****************************************************
37957C
37958      IPART1='BIPL'
37959      IPART2='SCAL'
37960      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
37961        IHV=IBPLSC
37962        GOTO5160
37963      ENDIF
37964C
37965CCCCC FOLLOWING SECTION ADDED APRIL   2009
37966C               ****************************************************
37967C               **  STEP 20.A--                                   **
37968C               **  PROBE DATA MISSING VALUE                      **
37969C               ****************************************************
37970C
37971      IPART1='DATA'
37972      IPART2='MISS'
37973      IPART3='VALU'
37974      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
37975     1   IHARG(3).EQ.IPART3)THEN
37976        IHV=IDATMV
37977        GOTO5160
37978      ENDIF
37979C
37980CCCCC FOLLOWING SECTION ADDED JULY   2011
37981C               ****************************************************
37982C               **  STEP 20.A--                                   **
37983C               **  PROBE LET CROSS TABULATE EMPTY                **
37984C               ****************************************************
37985C
37986      IPART1='LET '
37987      IPART2='CROS'
37988      IPART3='TABU'
37989      IPART4='EMPT'
37990      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
37991     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
37992        IHV=ICTAEM
37993        GOTO5160
37994      ENDIF
37995C
37996CCCCC FOLLOWING SECTION ADDED JUNE   2016
37997C               ****************************************************
37998C               **  STEP 20.A--                                   **
37999C               **  PROBE LET CROSS TABULATE GROUPS               **
38000C               ****************************************************
38001C
38002      IPART1='LET '
38003      IPART2='CROS'
38004      IPART3='TABU'
38005      IPART4='GROU'
38006      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
38007     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
38008        IHV=ICTAGR
38009        GOTO5160
38010      ENDIF
38011C
38012CCCCC FOLLOWING SECTION ADDED FEBRUARY   2009
38013C               ****************************************************
38014C               **  STEP 20.A--                                   **
38015C               **  PROBE LET CROSS TABULATE                      **
38016C               ****************************************************
38017C
38018      IPART1='LET '
38019      IPART2='CROS'
38020      IPART3='TABU'
38021      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
38022     1   IHARG(3).EQ.IPART3)THEN
38023        IHV=ICTALT
38024        GOTO5160
38025      ENDIF
38026C
38027CCCCC FOLLOWING SECTION ADDED FEBRUARY   2009
38028C               ****************************************************
38029C               **  STEP 20.A--                                   **
38030C               **  PROBE STRING SPACE                            **
38031C               ****************************************************
38032C
38033      IPART1='STRI'
38034      IPART2='SPAC'
38035      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
38036        IHV=ISTRSP
38037        GOTO5160
38038      ENDIF
38039C
38040CCCCC FOLLOWING SECTION ADDED SEPTEMBER   2009
38041C               ****************************************************
38042C               **  STEP 20.A--                                   **
38043C               **  PROBE KOLMOGOROV SMIRNOV CRITICAL VALUE       **
38044C               ****************************************************
38045C
38046      IPART1='KOLM'
38047      IPART2='SMIR'
38048      IPART3='CRIT'
38049      IPART4='VALU'
38050      IPART5='KS  '
38051      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
38052     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
38053        IHV=IKSCVM
38054        GOTO5160
38055      ELSEIF(IHARG(1).EQ.IPART5.AND.
38056     1   IHARG(2).EQ.IPART3.AND.IHARG(3).EQ.IPART4)THEN
38057        IHV=IKSCVM
38058        GOTO5160
38059      ENDIF
38060C
38061CCCCC FOLLOWING SECTION ADDED SEPTEMBER   2009
38062C               ****************************************************
38063C               **  STEP 20.A--                                   **
38064C               **  PROBE ANDERSON DARLING   CRITICAL VALUE       **
38065C               ****************************************************
38066C
38067      IPART1='ANDE'
38068      IPART2='DARL'
38069      IPART3='CRIT'
38070      IPART4='VALU'
38071      IPART5='AD  '
38072      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
38073     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
38074        IHV=IADCVM
38075        GOTO5160
38076      ELSEIF(IHARG(1).EQ.IPART5.AND.
38077     1   IHARG(2).EQ.IPART3.AND.IHARG(3).EQ.IPART4)THEN
38078        IHV=IADCVM
38079        GOTO5160
38080      ENDIF
38081C
38082CCCCC FOLLOWING SECTION ADDED SEPTEMBER   2009
38083C               ****************************************************
38084C               **  STEP 20.A--                                   **
38085C               **  PROBE CONTROL CHART LIMITS                    **
38086C               ****************************************************
38087C
38088      IPART1='CONT'
38089      IPART2='CHAR'
38090      IPART3='LIMI'
38091      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
38092     1   IHARG(3).EQ.IPART3)THEN
38093        IHV=ICONWC
38094        GOTO5160
38095      ENDIF
38096C
38097CCCCC FOLLOWING SECTION ADDED SEPTEMBER   2009
38098C               ****************************************************
38099C               **  STEP 20.A--                                   **
38100C               **  PROBE TABULATION PLOT DIRECTION               **
38101C               ****************************************************
38102C
38103      IPART1='TABU'
38104      IPART2='PLOT'
38105      IPART3='DIRE'
38106      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
38107     1   IHARG(3).EQ.IPART3)THEN
38108        IHV=ITPLDI
38109        GOTO5160
38110      ENDIF
38111C
38112CCCCC FOLLOWING SECTION ADDED JUNE  2010
38113C               ****************************************************
38114C               **  STEP 20.A--                                   **
38115C               **  PROBE FLUCTUATION PLOT DIRECTION              **
38116C               ****************************************************
38117C
38118      IPART1='FLUC'
38119      IPART2='PLOT'
38120      IPART3='DIRE'
38121      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
38122     1   IHARG(3).EQ.IPART3)THEN
38123        IHV=IFLUDI
38124        GOTO5160
38125      ENDIF
38126C
38127CCCCC FOLLOWING SECTION ADDED APRIL 2013
38128C               ****************************************************
38129C               **  STEP 20.A--                                   **
38130C               **  PROBE FLUCTUATION PLOT BAR DIRECTION          **
38131C               ****************************************************
38132C
38133      IPART1='FLUC'
38134      IPART2='PLOT'
38135      IPART3='BAR '
38136      IPART4='DIRE'
38137      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
38138     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
38139        IHV=IFLUBD
38140        GOTO5160
38141      ENDIF
38142C
38143CCCCC FOLLOWING SECTION ADDED MAY     2011
38144C               ****************************************************
38145C               **  STEP 20.A--                                   **
38146C               **  PROBE GOODNESS OF FIT FIT METHOD              **
38147C               ****************************************************
38148C
38149      IPART1='GOOD'
38150      IPART2='OF  '
38151      IPART3='FIT '
38152      IPART4='FIT '
38153      IPART5='METH'
38154      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
38155     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
38156     1   IHARG(5).EQ.IPART5)THEN
38157        IHV=IGOFFM
38158        GOTO5160
38159      ENDIF
38160C
38161CCCCC FOLLOWING SECTION ADDED OCTOBER     2009
38162C               ****************************************************
38163C               **  STEP 20.A--                                   **
38164C               **  PROBE GOODNESS OF FIT FULLY SPECIFIED         **
38165C               ****************************************************
38166C
38167      IPART1='GOOD'
38168      IPART2='OF  '
38169      IPART3='FIT '
38170      IPART4='FULL'
38171      IPART5='SPEC'
38172      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
38173     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
38174     1   IHARG(5).EQ.IPART5)THEN
38175        IHV=IGOFFS
38176        GOTO5160
38177      ENDIF
38178C
38179CCCCC FOLLOWING SECTION ADDED SEPTEMBER   2009
38180C               ****************************************************
38181C               **  STEP 20.A--                                   **
38182C               **  PROBE HORIZONTAL CURSOR POSITION              **
38183C               ****************************************************
38184C
38185      IPART1='HORI'
38186      IPART2='CURS'
38187      IPART3='POSI'
38188      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
38189     1   IHARG(3).EQ.IPART3)THEN
38190        AV=PXSTAR
38191        GOTO5170
38192      ENDIF
38193C
38194CCCCC FOLLOWING SECTION ADDED SEPTEMBER   2009
38195C               ****************************************************
38196C               **  STEP 20.A--                                   **
38197C               **  PROBE VERTICAL   CURSOR POSITION              **
38198C               ****************************************************
38199C
38200      IPART1='VERT'
38201      IPART2='CURS'
38202      IPART3='POSI'
38203      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
38204     1   IHARG(3).EQ.IPART3)THEN
38205        AV=PYSTAR
38206        GOTO5170
38207      ENDIF
38208C
38209CCCCC FOLLOWING SECTION ADDED MARCH   2008
38210C               ****************************************************
38211C               **  STEP 20.A--                                   **
38212C               **  PROBE COLOR MAXIMUM                           **
38213C               ****************************************************
38214C
38215      IPART1='COLO'
38216      IPART2='MAXI'
38217      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
38218        AV=PCOLMX
38219        GOTO5170
38220      ELSEIF(IHARG(1).EQ.IPART2.AND.IHARG(2).EQ.IPART1)THEN
38221        AV=PCOLMX
38222        GOTO5170
38223      ENDIF
38224C
38225C               ****************************************************
38226C               **  STEP 20.A--                                   **
38227C               **  PROBE POT INITIAL THRESHOLD                   **
38228C               ****************************************************
38229C
38230      IPART1='BINO'
38231      IPART1='POT '
38232      IPART2='INIT'
38233      IPART3='THRE'
38234      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
38235     1   IHARG(3).EQ.IPART3)THEN
38236        AV=PPOTTH
38237        GOTO5170
38238      ENDIF
38239C
38240CCCCC FOLLOWING SECTION ADDED NOVEMBER 2002.
38241C               **************************************************
38242C               **  STEP 20.A--                                 **
38243C               **  PROBE QWIN SYSTEM                           **
38244C               **************************************************
38245C
38246      IPART1='QWIN'
38247      IPART2='SYST'
38248      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
38249        IHV=IQWNSY
38250        GOTO5160
38251      ENDIF
38252C
38253CCCCC FOLLOWING SECTION ADDED APRIL 2018.
38254C               **************************************************
38255C               **  STEP 20.A--                                 **
38256C               **  PROBE LINUX SYSTEM                          **
38257C               **************************************************
38258C
38259      IPART1='LINU'
38260      IPART2='SYST'
38261      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
38262        IHV=ILINSY
38263        GOTO5160
38264      ENDIF
38265C
38266CCCCC FOLLOWING SECTION ADDED NOVEMBER 2002.
38267C               **************************************************
38268C               **  STEP 20.A--                                 **
38269C               **  PROBE GHOSTSCRIPT PRINTER                   **
38270C               **************************************************
38271C
38272      IPART1='GHOS'
38273      IPART2='PRIN'
38274      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
38275        IHV=IPRNGS
38276        GOTO5160
38277      ENDIF
38278C
38279CCCCC FOLLOWING SECTION ADDED JANUARY 2003.
38280C               **************************************************
38281C               **  STEP 20.A--                                 **
38282C               **  PROBE POSTSCRIPT BOUNDING BOX               **
38283C               **************************************************
38284C
38285      IPART1='POST'
38286      IPART2='BOUN'
38287      IPART3='BOX '
38288      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
38289     1   IHARG(3).EQ.IPART3)THEN
38290        IHV=IPSTBB
38291        GOTO5160
38292      ENDIF
38293C
38294CCCCC FOLLOWING SECTION ADDED JANUARY 2003.
38295C               **************************************************
38296C               **  STEP 20.A--                                 **
38297C               **  PROBE POSTSCRIPT CONVERT                    **
38298C               **************************************************
38299C
38300      IPART1='POST'
38301      IPART2='BOUN'
38302      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
38303        IHV=IPSTDV
38304        GOTO5160
38305      ENDIF
38306C
38307CCCCC FOLLOWING SECTION ADDED MARCH 2001.
38308C               ***********************************
38309C               **  STEP 20.A--                  **
38310C               **  PROBE LOCATION STATISTIC     **
38311C               ***********************************
38312C
38313      IPART1='LOCA'
38314      IPART2='STAT'
38315      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
38316        IHV=ISTALO
38317        GOTO5160
38318      ENDIF
38319C
38320CCCCC FOLLOWING SECTION ADDED MARCH 2001.
38321C               ***********************************
38322C               **  STEP 20.A--                  **
38323C               **  PROBE SCALE    STATISTIC     **
38324C               ***********************************
38325C
38326      IPART1='SCAL'
38327      IPART2='STAT'
38328      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
38329        IHV=ISTASC
38330        GOTO5160
38331      ENDIF
38332C
38333CCCCC FOLLOWING SECTION ADDED MARCH 2001.
38334C               ***********************************
38335C               **  STEP 20.A--                  **
38336C               **  PROBE SUPERSCRIPT HORI SCALE **
38337C               ***********************************
38338C
38339      IPART1='SUPE'
38340      IPART2='HORI'
38341      IPART3='SCAL'
38342      IPART4='SUBS'
38343      IPART5='X   '
38344      IF((IHARG(1).EQ.IPART1.OR.IHARG(1).EQ.IPART4).AND.
38345     1   (IHARG(2).EQ.IPART2.OR.IHARG(2).EQ.IPART5).AND.
38346     1    IHARG(3).EQ.IPART3)THEN
38347        AV=PSUPXS
38348        GOTO5170
38349      ENDIF
38350C
38351CCCCC FOLLOWING SECTION ADDED MARCH 2001.
38352C               ***********************************
38353C               **  STEP 20.A--                  **
38354C               **  PROBE SUPERSCRIPT VERT SCALE **
38355C               ***********************************
38356C
38357      IPART1='SUPE'
38358      IPART2='VERT'
38359      IPART3='SCAL'
38360      IPART4='SUBS'
38361      IPART5='Y   '
38362      IF((IHARG(1).EQ.IPART1.OR.IHARG(1).EQ.IPART4).AND.
38363     1   (IHARG(2).EQ.IPART2.OR.IHARG(2).EQ.IPART5).AND.
38364     1    IHARG(3).EQ.IPART3)THEN
38365        AV=PSUPYS
38366        GOTO5170
38367      ENDIF
38368C
38369CCCCC FOLLOWING SECTION ADDED APRIL 2001.
38370C               ***************************************************
38371C               **  STEP 20.A--                                  **
38372C               **  PROBE ORTHOGNAL DISTANCE TRUST REGION RADIUS **
38373C               ***************************************************
38374C
38375      IPART1='ORTH'
38376      IPART2='DIST'
38377      IPART3='TRUS'
38378      IPART4='REGI'
38379      IPART5='RADI'
38380      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
38381     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
38382     1    IHARG(5).EQ.IPART5)THEN
38383        AV=PODRTF
38384        GOTO5170
38385      ENDIF
38386C
38387CCCCC FOLLOWING SECTION ADDED APRIL 2001.
38388C               ***************************************************
38389C               **  STEP 20.A--                                  **
38390C               **  PROBE ORTHOGNAL DISTANCE STOP TOLERANCE      **
38391C               ***************************************************
38392C
38393      IPART1='ORTH'
38394      IPART2='DIST'
38395      IPART3='STOP'
38396      IPART4='TOLE'
38397      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
38398     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
38399        AV=PODRST
38400        GOTO5170
38401      ENDIF
38402C
38403CCCCC FOLLOWING SECTION ADDED APRIL 2001.
38404C               ***************************************************
38405C               **  STEP 20.A--                                  **
38406C               **  PROBE ORTHOGNAL DISTANCE PARAMETER TOLERANCE **
38407C               ***************************************************
38408C
38409      IPART1='ORTH'
38410      IPART2='DIST'
38411      IPART3='PARA'
38412      IPART4='TOLE'
38413      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
38414     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
38415        AV=PODRPT
38416        GOTO5170
38417      ENDIF
38418C
38419CCCCC FOLLOWING SECTION ADDED APRIL 2001.
38420C               ***************************************************
38421C               **  STEP 20.A--                                  **
38422C               **  PROBE ORTHOGNAL DISTANCE PRINT OPTION        **
38423C               ***************************************************
38424C
38425      IPART1='ORTH'
38426      IPART2='DIST'
38427      IPART3='PRIN'
38428      IPART4='OPTI'
38429      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
38430     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
38431        IHV=IODRPO
38432        GOTO5160
38433      ENDIF
38434C
38435CCCCC FOLLOWING SECTION ADDED FEBRUARY 2005
38436C               ***********************************
38437C               **  STEP 20.A--                  **
38438C               **  PROBE PARAMETER EXPAND DIGIT **
38439C               ***********************************
38440C
38441      IPART1='PARA'
38442      IPART2='EXPA'
38443      IPART3='DIGI'
38444      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
38445     1   IHARG(3).EQ.IPART3)THEN
38446        IV=IEXPDI
38447        GOTO5150
38448      ENDIF
38449C
38450CCCCC FOLLOWING SECTION ADDED MARCH   2005
38451C               ***********************************
38452C               **  STEP 20.A--                  **
38453C               **  PROBE LINE PRINTER COLUMNS   **
38454C               ***********************************
38455C
38456      IPART1='LINE'
38457      IPART2='PRIN'
38458      IPART3='COLU'
38459      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
38460     1   IHARG(3).EQ.IPART3)THEN
38461        IV=ILPRCO
38462        GOTO5150
38463      ENDIF
38464C
38465CCCCC FOLLOWING SECTION ADDED DECEMBER 1999.
38466C               ***********************************
38467C               **  STEP 20.A--                  **
38468C               **  PROBE PARAMETER EXPAND       **
38469C               ***********************************
38470C
38471      IPART1='PARA'
38472      IPART2='EXPA'
38473      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
38474        IHV=IEXPPA
38475        GOTO5160
38476      ENDIF
38477C
38478CCCCC FOLLOWING SECTION ADDED DECEMBER 1999.
38479C               ***********************************
38480C               **  STEP 20.A--                  **
38481C               **  PROBE VARIABLE LABEL EXPAND  **
38482C               ***********************************
38483C
38484      IPART1='VARI'
38485      IPART2='LABE'
38486      IPART3='EXPA'
38487      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
38488     1   IHARG(3).EQ.IPART3)THEN
38489        IHV=IVNMEX
38490        GOTO5160
38491      ENDIF
38492C
38493CCCCC FOLLOWING SECTION ADDED JANUARY 2000.
38494C               ******************************************
38495C               **  STEP 20.A--                         **
38496C               **  PROBE CROSS TABULATE PLOT DIMENSION **
38497C               ******************************************
38498C
38499      IPART1='CROS'
38500      IPART2='TABU'
38501      IPART3='PLOT'
38502      IPART3='DIME'
38503      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
38504     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
38505        IHV=ICTBDI
38506        GOTO5160
38507      ENDIF
38508C
38509CCCCC FOLLOWING SECTION ADDED JANUARY 2000.
38510C               ******************************************
38511C               **  STEP 20.A--                         **
38512C               **  PROBE SORT DIRECTION                **
38513C               ******************************************
38514C
38515      IPART1='SORT'
38516      IPART2='DIRE'
38517      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
38518        IHV=ISORDI
38519        GOTO5160
38520      ENDIF
38521C
38522CCCCC FOLLOWING SECTION ADDED OCTOBER 2000.
38523C               ******************************************
38524C               **  STEP 20.A--                         **
38525C               **  PROBE MANDEL PAULE                  **
38526C               ******************************************
38527C
38528      IPART1='MAND'
38529      IPART2='PAUL'
38530      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
38531        IHV=ISORDI
38532        GOTO5160
38533      ENDIF
38534C
38535CCCCC FOLLOWING SECTION ADDED FEBRUARY 2000.
38536C               ******************************************
38537C               **  STEP 20.A--                         **
38538C               **  PROBE DEX CONTOUR PLOT DIRECTION    **
38539C               ******************************************
38540C
38541      IPART1='DEX '
38542      IPART2='CONT'
38543      IPART3='PLOT'
38544      IPART4='DIRE'
38545      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
38546     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
38547        IHV=IDCPDI
38548        GOTO5160
38549      ENDIF
38550C
38551CCCCC FOLLOWING SECTION ADDED FEBRUARY 2000.
38552C               ******************************************
38553C               **  STEP 20.A--                         **
38554C               **  PROBE DEX CONTOUR PLOT MODEL        **
38555C               ******************************************
38556C
38557      IPART1='DEX '
38558      IPART2='CONT'
38559      IPART3='PLOT'
38560      IPART4='MODE'
38561      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
38562     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
38563        IHV=IDCPFI
38564        GOTO5160
38565      ENDIF
38566C
38567CCCCC FOLLOWING SECTION ADDED SEPTEMBER 1999.
38568C               *****************************************
38569C               **  STEP 20.A--                        **
38570C               **  PROBE SCATTER PLOT MATRIX LABELS   **
38571C               *****************************************
38572C
38573      IPART1='SCAT'
38574      IPART2='PLOT'
38575      IPART3='MATR'
38576      IPART4='LABE'
38577      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
38578     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
38579        IHV=ISPMLA
38580        GOTO5160
38581      ENDIF
38582C
38583      IPART1='MATR'
38584      IPART2='PLOT'
38585      IPART3='LABE'
38586      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
38587     1   IHARG(3).EQ.IPART3)THEN
38588        IHV=ISPMLA
38589        GOTO5160
38590      ENDIF
38591C
38592CCCCC FOLLOWING SECTION ADDED SEPTEMBER 1999.
38593C               *****************************************
38594C               **  STEP 20.A--                        **
38595C               **  PROBE CONDITIONING PLOT LABELS     **
38596C               *****************************************
38597C
38598      IPART1='COND'
38599      IPART2='PLOT'
38600      IPART3='LABE'
38601      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
38602     1   IHARG(3).EQ.IPART3)THEN
38603        IHV=ICPLLA
38604        GOTO5160
38605      ENDIF
38606C
38607      IPART1='SUBS'
38608      IPART2='PLOT'
38609      IPART3='LABE'
38610      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
38611     1   IHARG(3).EQ.IPART3)THEN
38612        IHV=ICPLLA
38613        GOTO5160
38614      ENDIF
38615C
38616CCCCC FOLLOWING SECTION ADDED SEPTEMBER 1999.
38617C               *****************************************
38618C               **  STEP 20.A--                        **
38619C               **  PROBE FACTOR       PLOT LABELS     **
38620C               *****************************************
38621C
38622      IPART1='FACT'
38623      IPART2='PLOT'
38624      IPART3='LABE'
38625      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
38626     1   IHARG(3).EQ.IPART3)THEN
38627        IHV=IFPLLA
38628        GOTO5160
38629      ENDIF
38630C
38631      IPART1='SCAT'
38632      IPART2='PLOT'
38633      IPART3='LABE'
38634      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
38635     1   IHARG(3).EQ.IPART3)THEN
38636        IHV=IFPLLA
38637        GOTO5160
38638      ENDIF
38639C
38640CCCCC FOLLOWING SECTION ADDED SEPTEMBER 1999.
38641C               *****************************************
38642C               **  STEP 20.A--                        **
38643C               **  PROBE SCATTER PLOT MATRIX DIAGONAL **
38644C               *****************************************
38645C
38646      IPART1='SCAT'
38647      IPART2='PLOT'
38648      IPART3='MATR'
38649      IPART4='DIAG'
38650      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
38651     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
38652        IHV=ISPMDI
38653        GOTO5160
38654      ENDIF
38655C
38656      IPART1='MATR'
38657      IPART2='PLOT'
38658      IPART3='DIAG'
38659      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
38660     1   IHARG(3).EQ.IPART3)THEN
38661        IHV=ISPMDI
38662        GOTO5160
38663      ENDIF
38664C
38665CCCCC FOLLOWING SECTION ADDED MARCH 2015.
38666C               *************************************************
38667C               **  STEP 20.A--                               **
38668C               **  PROBE SCATTER PLOT MATRIX SHADED DIAGONAL **
38669C               ************************************************
38670C
38671      IPART1='SCAT'
38672      IPART2='PLOT'
38673      IPART3='MATR'
38674      IPART4='SHAD'
38675      IPART5='DIAG'
38676      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
38677     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
38678     1   IHARG(5).EQ.IPART5)THEN
38679        IHV=ISPMDS
38680        GOTO5160
38681      ENDIF
38682C
38683      IPART1='MATR'
38684      IPART2='PLOT'
38685      IPART3='SHAD'
38686      IPART4='DIAG'
38687      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
38688     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
38689        IHV=ISPMDS
38690        GOTO5160
38691      ENDIF
38692C
38693CCCCC FOLLOWING SECTION ADDED SEPTEMBER 1999.
38694C               *****************************************
38695C               **  STEP 20.A--                        **
38696C               **  PROBE SCATTER PLOT MATRIX FIT      **
38697C               *****************************************
38698C
38699      IPART1='SCAT'
38700      IPART2='PLOT'
38701      IPART3='MATR'
38702      IPART4='FIT '
38703      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
38704     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
38705        IHV=ISPMFI
38706        GOTO5160
38707      ENDIF
38708C
38709      IPART1='MATR'
38710      IPART2='PLOT'
38711      IPART3='FIT '
38712      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
38713     1   IHARG(3).EQ.IPART3)THEN
38714        IHV=ISPMFI
38715        GOTO5160
38716      ENDIF
38717C
38718CCCCC FOLLOWING SECTION ADDED SEPTEMBER 1999.
38719C               *****************************************
38720C               **  STEP 20.A--                        **
38721C               **  PROBE CONDITIONING PLOT FIT        **
38722C               *****************************************
38723C
38724      IPART1='COND'
38725      IPART2='PLOT'
38726      IPART3='FIT '
38727      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
38728     1   IHARG(3).EQ.IPART3)THEN
38729        IHV=ICPLFI
38730        GOTO5160
38731      ENDIF
38732C
38733      IPART1='SUBS'
38734      IPART2='PLOT'
38735      IPART3='FIT '
38736      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
38737     1   IHARG(3).EQ.IPART3)THEN
38738        IHV=ICPLFI
38739        GOTO5160
38740      ENDIF
38741C
38742CCCCC FOLLOWING SECTION ADDED SEPTEMBER 1999.
38743C               *****************************************
38744C               **  STEP 20.A--                        **
38745C               **  PROBE FACTOR       PLOT FIT        **
38746C               *****************************************
38747C
38748      IPART1='FACT'
38749      IPART2='PLOT'
38750      IPART3='FIT '
38751      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
38752     1   IHARG(3).EQ.IPART3)THEN
38753        IHV=IFPLFI
38754        GOTO5160
38755      ENDIF
38756C
38757      IPART1='SCAT'
38758      IPART2='PLOT'
38759      IPART3='FIT '
38760      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
38761     1   IHARG(3).EQ.IPART3)THEN
38762        IHV=IFPLFI
38763        GOTO5160
38764      ENDIF
38765C
38766CCCCC FOLLOWING SECTION ADDED SEPTEMBER 1999.
38767C               ***********************************************
38768C               **  STEP 20.A--                              **
38769C               **  PROBE SCATTER PLOT MATRIX LOWER DIAGONAL **
38770C               ***********************************************
38771C
38772      IPART1='SCAT'
38773      IPART2='PLOT'
38774      IPART3='MATR'
38775      IPART4='LOWE'
38776      IPART5='DIAG'
38777      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
38778     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
38779     1   IHARG(5).EQ.IPART5)THEN
38780        IHV=ISPMLD
38781        GOTO5160
38782      ENDIF
38783C
38784      IPART1='MATR'
38785      IPART2='PLOT'
38786      IPART3='LOWE'
38787      IPART4='DIAG'
38788      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
38789     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
38790        IHV=ISPMLD
38791        GOTO5160
38792      ENDIF
38793C
38794CCCCC FOLLOWING SECTION ADDED SEPTEMBER 1999.
38795C               ***********************************************
38796C               **  STEP 20.A--                              **
38797C               **  PROBE CONDITIONING PLOT LOWER DIAGONAL   **
38798C               ***********************************************
38799C
38800CCCCC IPART1='COND'
38801CCCCC IPART2='PLOT'
38802CCCCC IPART3='LOWE'
38803CCCCC IPART4='DIAG'
38804CCCCC IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
38805CCCCC1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
38806CCCCC   IHV=ICPLLD
38807CCCCC   GOTO5160
38808CCCCC ENDIF
38809C
38810CCCCC IPART1='SUBS'
38811CCCCC IPART2='PLOT'
38812CCCCC IPART3='LOWE'
38813CCCCC IPART4='DIAG'
38814CCCCC IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
38815CCCCC1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
38816CCCCC   IHV=ICPLLD
38817CCCCC   GOTO5160
38818CCCCC ENDIF
38819C
38820CCCCC FOLLOWING SECTION ADDED SEPTEMBER 1999.
38821C               ***********************************************
38822C               **  STEP 20.A--                              **
38823C               **  PROBE SCATTER PLOT MATRIX TAG            **
38824C               ***********************************************
38825C
38826      IPART1='SCAT'
38827      IPART2='PLOT'
38828      IPART3='MATR'
38829      IPART4='TAG '
38830      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
38831     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
38832        IHV=ISPMTA
38833        GOTO5160
38834      ENDIF
38835C
38836      IPART1='MATR'
38837      IPART2='PLOT'
38838      IPART3='TAG '
38839      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
38840     1   IHARG(3).EQ.IPART3)THEN
38841        IHV=ISPMTA
38842        GOTO5160
38843      ENDIF
38844C
38845CCCCC FOLLOWING SECTION ADDED SEPTEMBER 1999.
38846C               ***********************************************
38847C               **  STEP 20.A--                              **
38848C               **  PROBE CONDITIONING PLOT TAG              **
38849C               ***********************************************
38850C
38851      IPART1='COND'
38852      IPART2='PLOT'
38853      IPART3='TAG '
38854      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
38855     1   IHARG(3).EQ.IPART3)THEN
38856        IHV=ICPLTA
38857        GOTO5160
38858      ENDIF
38859C
38860      IPART1='SUBS'
38861      IPART2='PLOT'
38862      IPART3='TAG '
38863      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
38864     1   IHARG(3).EQ.IPART3)THEN
38865        IHV=ICPLTA
38866        GOTO5160
38867      ENDIF
38868C
38869CCCCC FOLLOWING SECTION ADDED SEPTEMBER 1999.
38870C               ***********************************************
38871C               **  STEP 20.A--                              **
38872C               **  PROBE FACTOR       PLOT TAG              **
38873C               ***********************************************
38874C
38875      IPART1='FACT'
38876      IPART2='PLOT'
38877      IPART3='TAG '
38878      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
38879     1   IHARG(3).EQ.IPART3)THEN
38880        IHV=IFPLTA
38881        GOTO5160
38882      ENDIF
38883C
38884      IPART1='SCAT'
38885      IPART2='PLOT'
38886      IPART3='TAG '
38887      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
38888     1   IHARG(3).EQ.IPART3)THEN
38889        IHV=IFPLTA
38890        GOTO5160
38891      ENDIF
38892C
38893CCCCC FOLLOWING SECTION ADDED FEBRUARY 2018.
38894C               **********************************************
38895C               **  STEP 20.A--                             **
38896C               **  PROBE SCATTER PLOT MATRIX XTIC LABELS   **
38897C               **********************************************
38898C
38899      IPART1='SCAT'
38900      IPART2='PLOT'
38901      IPART3='MATR'
38902      IPART4='XTIC'
38903      IPART5='LABE'
38904      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
38905     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
38906     1   IHARG(5).EQ.IPART5)THEN
38907        IHV=ISPMXL
38908        GOTO5160
38909      ENDIF
38910C
38911      IPART1='MATR'
38912      IPART2='PLOT'
38913      IPART3='XTIC'
38914      IPART4='LABE'
38915      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
38916     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
38917        IHV=ISPMXL
38918        GOTO5160
38919      ENDIF
38920C
38921CCCCC FOLLOWING SECTION ADDED FEBRUARY 2018.
38922C               **********************************************
38923C               **  STEP 20.A--                             **
38924C               **  PROBE SCATTER PLOT MATRIX XTIC          **
38925C               **********************************************
38926C
38927      IPART1='SCAT'
38928      IPART2='PLOT'
38929      IPART3='MATR'
38930      IPART4='XTIC'
38931      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
38932     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
38933        IHV=ISPMXT
38934        GOTO5160
38935      ENDIF
38936C
38937      IPART1='MATR'
38938      IPART2='PLOT'
38939      IPART3='XTIC'
38940      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
38941     1   IHARG(3).EQ.IPART3)THEN
38942        IHV=ISPMXT
38943        GOTO5160
38944      ENDIF
38945C
38946CCCCC FOLLOWING SECTION ADDED FEBRUARY 2018.
38947C               **********************************************
38948C               **  STEP 20.A--                             **
38949C               **  PROBE SCATTER PLOT MATRIX YTIC LABELS   **
38950C               **********************************************
38951C
38952      IPART1='SCAT'
38953      IPART2='PLOT'
38954      IPART3='MATR'
38955      IPART4='YTIC'
38956      IPART5='LABE'
38957      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
38958     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
38959     1   IHARG(5).EQ.IPART5)THEN
38960        IHV=ISPMYL
38961        GOTO5160
38962      ENDIF
38963C
38964      IPART1='MATR'
38965      IPART2='PLOT'
38966      IPART3='YTIC'
38967      IPART4='LABE'
38968      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
38969     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
38970        IHV=ISPMYL
38971        GOTO5160
38972      ENDIF
38973C
38974CCCCC FOLLOWING SECTION ADDED FEBRUARY 2018.
38975C               **********************************************
38976C               **  STEP 20.A--                             **
38977C               **  PROBE SCATTER PLOT MATRIX YTIC          **
38978C               **********************************************
38979C
38980      IPART1='SCAT'
38981      IPART2='PLOT'
38982      IPART3='MATR'
38983      IPART4='YTIC'
38984      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
38985     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
38986        IHV=ISPMYT
38987        GOTO5160
38988      ENDIF
38989C
38990      IPART1='MATR'
38991      IPART2='PLOT'
38992      IPART3='YTIC'
38993      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
38994     1   IHARG(3).EQ.IPART3)THEN
38995        IHV=ISPMYT
38996        GOTO5160
38997      ENDIF
38998C
38999CCCCC FOLLOWING SECTION ADDED SEPTEMBER 1999.
39000C               ***********************************************
39001C               **  STEP 20.A--                              **
39002C               **  PROBE SCATTER PLOT MATRIX PLOT TYPE      **
39003C               ***********************************************
39004C
39005      IPART1='SCAT'
39006      IPART2='PLOT'
39007      IPART3='MATR'
39008      IPART4='TYPE'
39009      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
39010     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
39011        IHV=ISPMPT
39012        GOTO5160
39013      ENDIF
39014C
39015      IPART1='MATR'
39016      IPART2='PLOT'
39017      IPART3='TYPE'
39018      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
39019     1   IHARG(3).EQ.IPART3)THEN
39020        IHV=ISPMPT
39021        GOTO5160
39022      ENDIF
39023C
39024CCCCC FOLLOWING SECTION ADDED SEPTEMBER 1999.
39025C               ***********************************************
39026C               **  STEP 20.A--                              **
39027C               **  PROBE CONDITIONING PLOT PLOT TYPE        **
39028C               ***********************************************
39029C
39030      IPART1='COND'
39031      IPART2='PLOT'
39032      IPART3='TYPE'
39033      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
39034     1   IHARG(3).EQ.IPART3)THEN
39035        IHV=ICPLPT
39036        GOTO5160
39037      ENDIF
39038C
39039      IPART1='SUBS'
39040      IPART2='PLOT'
39041      IPART3='TYPE'
39042      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
39043     1   IHARG(3).EQ.IPART3)THEN
39044        IHV=ICPLPT
39045        GOTO5160
39046      ENDIF
39047C
39048CCCCC FOLLOWING SECTION ADDED SEPTEMBER 1999.
39049C               ***********************************************
39050C               **  STEP 20.A--                              **
39051C               **  PROBE FACTOR       PLOT PLOT TYPE        **
39052C               ***********************************************
39053C
39054      IPART1='FACT'
39055      IPART2='PLOT'
39056      IPART3='TYPE'
39057      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
39058     1   IHARG(3).EQ.IPART3)THEN
39059        IHV=IFPLPT
39060        GOTO5160
39061      ENDIF
39062C
39063      IPART1='SCAT'
39064      IPART2='PLOT'
39065      IPART3='TYPE'
39066      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
39067     1   IHARG(3).EQ.IPART3)THEN
39068        IHV=IFPLPT
39069        GOTO5160
39070      ENDIF
39071C
39072CCCCC FOLLOWING SECTION ADDED SEPTEMBER 1999.
39073C               ***********************************************
39074C               **  STEP 20.A--                              **
39075C               **  PROBE SCATTER PLOT MATRIX FRAME          **
39076C               ***********************************************
39077C
39078      IPART1='SCAT'
39079      IPART2='PLOT'
39080      IPART3='MATR'
39081      IPART4='FRAM'
39082      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
39083     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
39084        IHV=ISPMFR
39085        GOTO5160
39086      ENDIF
39087C
39088      IPART1='MATR'
39089      IPART2='PLOT'
39090      IPART3='FRAM'
39091      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
39092     1   IHARG(3).EQ.IPART3)THEN
39093        IHV=ISPMFR
39094        GOTO5160
39095      ENDIF
39096C
39097CCCCC FOLLOWING SECTION ADDED SEPTEMBER 1999.
39098C               ***********************************************
39099C               **  STEP 20.A--                              **
39100C               **  PROBE CONDITIONING PLOT FRAME            **
39101C               ***********************************************
39102C
39103      IPART1='COND'
39104      IPART2='PLOT'
39105      IPART3='FRAM'
39106      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
39107     1   IHARG(3).EQ.IPART3)THEN
39108        IHV=ICPLFR
39109        GOTO5160
39110      ENDIF
39111C
39112      IPART1='SUBS'
39113      IPART2='PLOT'
39114      IPART3='FRAM'
39115      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
39116     1   IHARG(3).EQ.IPART3)THEN
39117        IHV=ICPLFR
39118        GOTO5160
39119      ENDIF
39120C
39121CCCCC FOLLOWING SECTION ADDED SEPTEMBER 1999.
39122C               ***********************************************
39123C               **  STEP 20.A--                              **
39124C               **  PROBE FACTOR       PLOT FRAME            **
39125C               ***********************************************
39126C
39127      IPART1='FACT'
39128      IPART2='PLOT'
39129      IPART3='FRAM'
39130      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
39131     1   IHARG(3).EQ.IPART3)THEN
39132        IHV=IFPLFR
39133        GOTO5160
39134      ENDIF
39135C
39136      IPART1='SCAT'
39137      IPART2='PLOT'
39138      IPART3='FRAM'
39139      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
39140     1   IHARG(3).EQ.IPART3)THEN
39141        IHV=IFPLFR
39142        GOTO5160
39143      ENDIF
39144C
39145CCCCC FOLLOWING SECTION ADDED MARCH 2015.
39146C               ***********************************************
39147C               **  STEP 20.A--                              **
39148C               **  PROBE SCATTER PLOT MATRIX X2LABEL        **
39149C               ***********************************************
39150C
39151      IPART1='SCAT'
39152      IPART2='PLOT'
39153      IPART3='MATR'
39154      IPART4='X2LA'
39155      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
39156     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
39157        IHV=ISPX2L
39158        GOTO5160
39159      ENDIF
39160C
39161      IPART1='MATR'
39162      IPART2='PLOT'
39163      IPART3='X2LA'
39164      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
39165     1   IHARG(3).EQ.IPART3)THEN
39166        IHV=ISPX2L
39167        GOTO5160
39168      ENDIF
39169C
39170CCCCC FOLLOWING SECTION ADDED MARCH 2015.
39171C               ***********************************************
39172C               **  STEP 20.A--                              **
39173C               **  PROBE SCATTER PLOT MATRIX X1LABEL        **
39174C               ***********************************************
39175C
39176      IPART1='SCAT'
39177      IPART2='PLOT'
39178      IPART3='MATR'
39179      IPART4='X1LA'
39180      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
39181     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
39182        IHV=ISPX1L
39183        GOTO5160
39184      ENDIF
39185C
39186      IPART1='MATR'
39187      IPART2='PLOT'
39188      IPART3='X1LA'
39189      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
39190     1   IHARG(3).EQ.IPART3)THEN
39191        IHV=ISPX1L
39192        GOTO5160
39193      ENDIF
39194C
39195CCCCC FOLLOWING SECTION ADDED SEPTEMBER 1999.
39196C               ***********************************************
39197C               **  STEP 20.A--                              **
39198C               **  PROBE CONDITIONING PLOT PRE-SORT         **
39199C               ***********************************************
39200C
39201CCCCC IPART1='COND'
39202CCCCC IPART2='PLOT'
39203CCCCC IPART3='PRE '
39204CCCCC IPART4='SORT'
39205CCCCC IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
39206CCCCC1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
39207CCCCC   IHV=ICPLPS
39208CCCCC   GOTO5160
39209CCCCC ENDIF
39210C
39211CCCCC IPART1='SUBS'
39212CCCCC IPART2='PLOT'
39213CCCCC IPART3='PRE '
39214CCCCC IPART4='SORT'
39215CCCCC IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
39216CCCCC1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
39217CCCCC   IHV=ICPLPS
39218CCCCC   GOTO5160
39219CCCCC ENDIF
39220C
39221CCCCC FOLLOWING SECTION ADDED SEPTEMBER 1999.
39222C               ***********************************************
39223C               **  STEP 20.A--                              **
39224C               **  PROBE FACTOR       PLOT RESPONSE VARIABLES*
39225C               ***********************************************
39226C
39227      IPART1='FACT'
39228      IPART2='PLOT'
39229      IPART3='RESP'
39230      IPART4='VARI'
39231      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
39232     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
39233        AV=PFPLRV
39234        GOTO5170
39235      ENDIF
39236C
39237      IPART1='SCAT'
39238      IPART2='PLOT'
39239      IPART3='RESP'
39240      IPART4='VARI'
39241      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
39242     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
39243        AV=PFPLRV
39244        GOTO5170
39245      ENDIF
39246C
39247CCCCC FOLLOWING SECTION ADDED MAY 1998.
39248C               *******************************
39249C               **  STEP 20.A--              **
39250C               **  PROBE CENSORING TYPE     **
39251C               *******************************
39252C
39253      IPART1='CENS'
39254      IPART2='TYPE'
39255      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
39256        IHV=ICENTY
39257        GOTO5160
39258      ENDIF
39259C
39260CCCCC FOLLOWING SECTION ADDED JUNE 1998.
39261C               *******************************
39262C               **  STEP 20.A--              **
39263C               **  PROBE MATRIX SCALE       **
39264C               *******************************
39265C
39266      IPART1='MATR'
39267      IPART2='SCAL'
39268      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
39269        IHV=IMATSC
39270        GOTO5160
39271      ENDIF
39272C
39273CCCCC FOLLOWING SECTION ADDED APRIL 1997.
39274C               *******************************
39275C               **  STEP 20.A--              **
39276C               **  PROBE CONTROL CHART      **
39277C               *******************************
39278C
39279      IPART1='CONT'
39280      IPART2='CHAR'
39281      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)IHV=ICCHPR
39282      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)GOTO5160
39283C
39284CCCCC FOLLOWING SECTION ADDED AUGUST       2013.
39285C               ***************************************
39286C               **  STEP 20.A--                      **
39287C               **  PROBE RGB MAXIMUM VALUE <VALUE>  **
39288C               ***************************************
39289C
39290      IPART1='RGB '
39291      IPART2='MAXI'
39292      IPART3='VALU'
39293      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
39294     1   IHARG(3).EQ.IPART3)THEN
39295        IV=IRGBMX
39296        GOTO5150
39297      ENDIF
39298C
39299CCCCC FOLLOWING SECTION ADDED AUGUST       2013.
39300C               *****************************************************
39301C               **  STEP 20.A--                                    **
39302C               **  PROBE MCCOOL WEIBULL LOCATION TEST R1 <VALUE>  **
39303C               *****************************************************
39304C
39305      IPART1='MCCO'
39306      IPART2='WEIB'
39307      IPART3='LOCA'
39308      IPART4='TEST'
39309      IPART5='R1  '
39310      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
39311     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4.AND.
39312     1   IHARG(5).EQ.IPART5)THEN
39313        IV=IMCCR1
39314        GOTO5150
39315      ENDIF
39316C
39317CCCCC FOLLOWING SECTION ADDED APRIL 1997.
39318C               *******************************
39319C               **  STEP 20.A--              **
39320C               **  PROBE NETSCAPE           **
39321C               *******************************
39322C
39323      IPART1='NETS'
39324      IF(IHARG(1).EQ.IPART1)IHV=INETSW
39325      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)GOTO5160
39326C
39327CCCCC THE FOLLOWING SECTION WAS ADDED    APRIL 1997
39328C     ****************************************
39329C     **  CHECK FOR PROBE DATAPLOT URL      **
39330C     ****************************************
39331C
39332      IF(NUMARG.GE.2.AND.IHARG(1).EQ.'DATA'
39333     1.AND.IHARG(2).EQ.'URL ')THEN
39334        DO2202I=80,1,-1
39335          NCURL=I
39336          IF(IDPURL(I:I).NE.' ')GOTO2203
39337 2202   CONTINUE
39338 2203   CONTINUE
39339        IFOUND='YES'
39340        IPROBS(1:NCURL)=IDPURL(1:NCURL)
39341        NCPROB=NCURL
39342        IF(IFEEDB.EQ.'ON')THEN
39343          WRITE(ICOUT,999)
39344          CALL DPWRST('XXX','BUG ')
39345          WRITE(ICOUT,2216)
39346 2216     FORMAT('THE CURRENT DATAPLOT URL FOR THE WEB HELP COMMAND = ')
39347          CALL DPWRST('XXX','BUG ')
39348          WRITE(ICOUT,2217)IDPURL(1:NCURL)
39349 2217     FORMAT(A80)
39350          CALL DPWRST('XXX','BUG ')
39351        ENDIF
39352        GOTO8100
39353      ENDIF
39354C
39355CCCCC THE FOLLOWING SECTION WAS ADDED    APRIL 1997
39356C     ****************************************
39357C     **  CHECK FOR PROBE BROWSER           **
39358C     ****************************************
39359C
39360      IF(NUMARG.GE.1.AND.IHARG(1).EQ.'BROW')THEN
39361        DO2302I=80,1,-1
39362          NCBROW=I
39363          IF(IBROWS(I:I).NE.' ')GOTO2303
39364 2302   CONTINUE
39365 2303   CONTINUE
39366        IPROBS(1:NCBROW)=IBROWS(1:NCBROW)
39367        NCPROB=NCBROW
39368        IFOUND='YES'
39369        IF(IFEEDB.EQ.'ON')THEN
39370          WRITE(ICOUT,999)
39371          CALL DPWRST('XXX','BUG ')
39372          WRITE(ICOUT,2316)
39373 2316     FORMAT('THE CURRENT BROWSER FOR THE WEB HELP COMMAND = ')
39374          CALL DPWRST('XXX','BUG ')
39375          WRITE(ICOUT,2317)IBROWS
39376 2317     FORMAT(A80)
39377          CALL DPWRST('XXX','BUG ')
39378        ENDIF
39379        GOTO8100
39380      ENDIF
39381C
39382CCCCC THE FOLLOWING SECTION WAS ADDED    APRIL 1997
39383C     ****************************************
39384C     **  CHECK FOR PROBE URL               **
39385C     ****************************************
39386C
39387      IF(NUMARG.GE.1.AND.IHARG(1).EQ.'URL ')THEN
39388        DO2402I=80,1,-1
39389          NCURL=I
39390          IF(IURL(I:I).NE.' ')GOTO2403
39391 2402   CONTINUE
39392 2403   CONTINUE
39393        IFOUND='YES'
39394        IPROBS(1:NCURL)=IURL(1:NCURL)
39395        NCPROB=NCURL
39396        IF(IFEEDB.EQ.'ON')THEN
39397          WRITE(ICOUT,999)
39398          CALL DPWRST('XXX','BUG ')
39399          WRITE(ICOUT,2416)
39400 2416     FORMAT('THE CURRENT URL FOR THE WEB COMMAND = ')
39401          CALL DPWRST('XXX','BUG ')
39402          WRITE(ICOUT,2417)IURL(1:NCURL)
39403 2417     FORMAT(A80)
39404          CALL DPWRST('XXX','BUG ')
39405        ENDIF
39406        GOTO8100
39407      ENDIF
39408C
39409CCCCC THE FOLLOWING SECTION WAS ADDED    MARCH 1999
39410C     ****************************************
39411C     **  CHECK FOR PROBE HANDBOOK URL      **
39412C     ****************************************
39413C
39414      IF(NUMARG.GE.2.AND.IHARG(1).EQ.'HAND'.AND.IHARG(2).EQ.'URL ')THEN
39415        DO2452I=80,1,-1
39416          NCHURL=I
39417          IF(IHBURL(I:I).NE.' ')GOTO2453
39418 2452   CONTINUE
39419 2453   CONTINUE
39420        IFOUND='YES'
39421        IPROBS(1:NCHURL)=IHBURL(1:NCHURL)
39422        NCPROB=NCHURL
39423        IF(IFEEDB.EQ.'ON')THEN
39424          WRITE(ICOUT,999)
39425          CALL DPWRST('XXX','BUG ')
39426          WRITE(ICOUT,2466)
39427 2466     FORMAT('THE CURRENT URL FOR THE WEB HANDBOOK COMMAND = ')
39428          CALL DPWRST('XXX','BUG ')
39429          WRITE(ICOUT,2467)IHBURL(1:NCHURL)
39430 2467     FORMAT(A80)
39431          CALL DPWRST('XXX','BUG ')
39432        ENDIF
39433        GOTO8100
39434      ENDIF
39435C
39436CCCCC THE FOLLOWING SECTION WAS ADDED    FEBRUARY 1998
39437C     ****************************************
39438C     **  CHECK FOR PROBE PRINTER           **
39439C     ****************************************
39440C
39441      IF(NUMARG.GE.1.AND.IHARG(1).EQ.'PRIN')THEN
39442        IFOUND='YES'
39443        IF(IFEEDB.EQ.'OFF')GOTO9000
39444        WRITE(ICOUT,999)
39445        CALL DPWRST('XXX','BUG ')
39446        WRITE(ICOUT,2516)
39447 2516   FORMAT('THE CURRENT PRINTER (FOR THE PP COMMAND) = ')
39448        CALL DPWRST('XXX','BUG ')
39449        WRITE(ICOUT,2517)IPRNTR(1:NCPRNT)
39450 2517   FORMAT(A40)
39451        CALL DPWRST('XXX','BUG ')
39452        IPROBS(1:NCPRNT)=IPRNTR(1:NCPRNT)
39453        NCPROB=NCPRNT
39454        GOTO8100
39455      ENDIF
39456C
39457C               *******************************
39458C               **  STEP 21--                **
39459C               **  PROBE MACHINE CONSTANTS  **
39460C               *******************************
39461C
39462      IPART1='IRD '
39463      IPART2='    '
39464      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IV=IRD
39465      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
39466C
39467      IPART1='IPR '
39468      IPART2='    '
39469      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IV=IPR
39470      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
39471C
39472      IPART1='CPUM'
39473      IPART2='IN  '
39474      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)AV=CPUMIN
39475      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5170
39476C
39477      IPART1='CPUM'
39478      IPART2='AX  '
39479      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)AV=CPUMAX
39480      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5170
39481C
39482      IPART1='NUMB'
39483      IPART2='PC  '
39484      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IV=NUMBPC
39485      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
39486C
39487      IPART1='NUMC'
39488      IPART2='PW  '
39489      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IV=NUMCPW
39490      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
39491C
39492      IPART1='NUMB'
39493      IPART2='PW  '
39494      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IV=NUMBPW
39495      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
39496C
39497      IPART1='IFEE'
39498      IPART2='DB  '
39499      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IHV=IFEEDB
39500      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
39501C
39502      IPART1='IPRI'
39503      IPART2='NT  '
39504      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IHV=IPRINT
39505      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
39506C
39507      IPART1='IECH'
39508      IPART2='O   '
39509      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IHV=IECHO
39510      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
39511C
39512C               ************************************
39513C               **  STEP 2--                      **
39514C               **  PROBE HOUSEKEEPING VARIABLES  **
39515C               ************************************
39516C
39517CCCCC OCTOBER 2011.  CHECK FOR DEFAULT/CURRENT COLOR/CASE/THICKNESS
39518C
39519      IPART1='IDEF'
39520      IPART2='CO  '
39521      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)THEN
39522        IHV=IDEFCO
39523        GOTO5160
39524      ENDIF
39525C
39526      IPART1='DEFA'
39527      IPART2='COLO'
39528      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
39529        IHV=IDEFCO
39530        GOTO5160
39531      ENDIF
39532C
39533      IPART1='ITEX'
39534      IPART2='CO  '
39535      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)THEN
39536        IHV=ITEXCO
39537        GOTO5160
39538      ENDIF
39539C
39540      IPART1='CURR'
39541      IPART2='COLO'
39542      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
39543        IHV=ITEXCO
39544        GOTO5160
39545      ENDIF
39546C
39547      IPART1='IDEF'
39548      IPART2='CA  '
39549      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)THEN
39550        IHV=IDEFCA
39551        GOTO5160
39552      ENDIF
39553C
39554      IPART1='DEFA'
39555      IPART2='CASE'
39556      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
39557        IHV=IDEFCA
39558        GOTO5160
39559      ENDIF
39560C
39561      IPART1='ITEX'
39562      IPART2='CA  '
39563      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)THEN
39564        IHV=ITEXCA
39565        GOTO5160
39566      ENDIF
39567C
39568      IPART1='CURR'
39569      IPART2='CASE'
39570      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
39571        IHV=ITEXCA
39572        GOTO5160
39573      ENDIF
39574C
39575      IPART1='IDEF'
39576      IPART2='FO  '
39577      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)THEN
39578        IHV=IDEFFO
39579        GOTO5160
39580      ENDIF
39581C
39582      IPART1='DEFA'
39583      IPART2='FONT'
39584      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
39585        IHV=IDEFFO
39586        GOTO5160
39587      ENDIF
39588C
39589      IPART1='ITEX'
39590      IPART2='FO  '
39591      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)THEN
39592        IHV=ITEXFO
39593        GOTO5160
39594      ENDIF
39595C
39596      IPART1='CURR'
39597      IPART2='FONT'
39598      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
39599        IHV=ITEXFO
39600        GOTO5160
39601      ENDIF
39602C
39603      IPART1='PDEF'
39604      IPART2='TH  '
39605      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)THEN
39606        AV=PDEFTH
39607        GOTO5170
39608      ENDIF
39609C
39610      IPART1='DEFA'
39611      IPART2='THIC'
39612      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
39613        AV=PDEFTH
39614        GOTO5170
39615      ENDIF
39616C
39617      IPART1='PTEX'
39618      IPART2='TH  '
39619      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)THEN
39620        AV=PTEXTH
39621        GOTO5170
39622      ENDIF
39623C
39624      IPART1='CURR'
39625      IPART2='THIC'
39626      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
39627        AV=PTEXTH
39628        GOTO5170
39629      ENDIF
39630C
39631      IPART1='PDEF'
39632      IPART2='HE  '
39633      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)THEN
39634        AV=PDEFHE
39635        GOTO5170
39636      ENDIF
39637C
39638      IPART1='DEFA'
39639      IPART2='HEIG'
39640      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
39641        AV=PDEFHE
39642        GOTO5170
39643      ENDIF
39644C
39645      IPART1='DEFA'
39646      IPART2='SIZE'
39647      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
39648        AV=PDEFHE
39649        GOTO5170
39650      ENDIF
39651C
39652      IPART1='PTEX'
39653      IPART2='HE  '
39654      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)THEN
39655        AV=PTEXHE
39656        GOTO5170
39657      ENDIF
39658C
39659      IPART1='CURR'
39660      IPART2='HEIG'
39661      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
39662        AV=PTEXHE
39663        GOTO5170
39664      ENDIF
39665C
39666      IPART1='CURR'
39667      IPART2='SIZE'
39668      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
39669        AV=PTEXHE
39670        GOTO5170
39671      ENDIF
39672C
39673CCCCC JUNE 2002.  CHECK FOR OPERATING SYSTEM
39674C
39675      IPART1='IOPS'
39676      IPART2='Y1  '
39677      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)THEN
39678        IHV=IOPSY1
39679        APROBE=0.0
39680        IF(IHV.EQ.'UNIX')APROBE=1.0
39681        IF(IHV.EQ.'PC-D')APROBE=2.0
39682        IF(IHV.EQ.'VMS ')APROBE=3.0
39683        CALL DPADDP('PROB','EVAL',APROBE,IHOST1,ISUBN0,
39684     1              IHNAME,IHNAM2,IUSE,VALUE,IVALUE,NUMNAM,MAXNAM,
39685     1               IANS,IWIDTH,IBUGUG,IERROR)
39686        GOTO5160
39687      ENDIF
39688C
39689CCCCC JUNE 2002.  CHECK FOR COMPILER
39690C
39691      IPART1='ICOM'
39692      IPART2='PI  '
39693      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)THEN
39694        IHV=ICOMPI
39695        APROBE=0.0
39696        IF(IHV.EQ.'f77 ')APROBE=1.0
39697        IF(IHV.EQ.'MS-F')APROBE=2.0
39698        IF(IHV.EQ.'LAHE')APROBE=3.0
39699        CALL DPADDP('PROB','EVAL',APROBE,IHOST1,ISUBN0,
39700     1              IHNAME,IHNAM2,IUSE,VALUE,IVALUE,NUMNAM,MAXNAM,
39701     1              IANS,IWIDTH,IBUGUG,IERROR)
39702        GOTO5160
39703      ENDIF
39704C
39705      IPART1='MAXW'
39706      IPART2='ID  '
39707      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IV=MAXWID
39708      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
39709C
39710      IPART1='IWID'
39711      IPART2='TH  '
39712      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IV=IWIDTH
39713      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
39714C
39715      IPART1='MAXW'
39716      IPART2='SV  '
39717      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IV=MAXWSV
39718      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
39719C
39720      IPART1='IWID'
39721      IPART2='SV  '
39722      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IV=IWIDSV
39723      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
39724C
39725      IPART1='ICOM'
39726      IPART2='    '
39727      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IHV=ICOM
39728      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
39729C
39730      IPART1='ICOM'
39731      IPART2='2   '
39732      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IHV=ICOM2
39733      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
39734C
39735      IPART1='MAXA'
39736      IPART2='RG  '
39737      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IV=MAXARG
39738      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
39739C
39740      IPART1='NUMA'
39741      IPART2='RG  '
39742      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IV=NUMARG
39743      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
39744C
39745      IPART1='MAXN'
39746      IPART2='AM  '
39747      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IV=MAXNAM
39748      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
39749C
39750      IPART1='NUMN'
39751      IPART2='AM  '
39752      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IV=NUMNAM
39753      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
39754C
39755C ..........
39756C
39757      IPART1='IMES'
39758      IPART2='NU  '
39759      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IV=IMESNU
39760      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
39761C
39762      IPART1='INEW'
39763      IPART2='NU  '
39764      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IV=INEWNU
39765      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
39766C
39767      IPART1='IMAI'
39768      IPART2='NU  '
39769      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IV=IMAINU
39770      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
39771C
39772      IPART1='IHEL'
39773      IPART2='NU  '
39774      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IV=IHELNU
39775      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
39776C
39777      IPART1='IBUG'
39778      IPART2='NU  '
39779      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IV=IBUGNU
39780      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
39781C
39782      IPART1='IQUE'
39783      IPART2='NU  '
39784      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IV=IQUENU
39785      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
39786C
39787      IPART1='ILOG'
39788      IPART2='NU  '
39789      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IV=ILOGNU
39790      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
39791C
39792      IPART1='IREA'
39793      IPART2='NU  '
39794      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IV=IREANU
39795      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
39796C
39797      IPART1='IREA'
39798      IPART2='N1  '
39799      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IV=IREAN1
39800      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
39801C
39802      IPART1='IREA'
39803      IPART2='N2  '
39804      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IV=IREAN2
39805      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
39806C
39807      IPART1='IREA'
39808      IPART2='N3  '
39809      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IV=IREAN3
39810      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
39811C
39812      IPART1='IWRI'
39813      IPART2='NU  '
39814      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IV=IWRINU
39815      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
39816C
39817      IPART1='IWRI'
39818      IPART2='N1  '
39819      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IV=IWRIN1
39820      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
39821C
39822      IPART1='IWRI'
39823      IPART2='N2  '
39824      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IV=IWRIN2
39825      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
39826C
39827      IPART1='IWRI'
39828      IPART2='N3  '
39829      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IV=IWRIN3
39830      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
39831C
39832      IPART1='ICRE'
39833      IPART2='NU  '
39834      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IV=ICRENU
39835      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
39836C
39837      IPART1='ISAV'
39838      IPART2='NU  '
39839      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IV=ISAVNU
39840      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
39841C
39842      IPART1='ISCR'
39843      IPART2='NU  '
39844      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IV=ISCRNU
39845      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
39846C
39847      IPART1='IDAT'
39848      IPART2='NU  '
39849      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IV=IDATNU
39850      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
39851C
39852      IPART1='IPL1'
39853      IPART2='NU  '
39854      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IV=IPL1NU
39855      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
39856C
39857      IPART1='IPL2'
39858      IPART2='NU  '
39859      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IV=IPL2NU
39860      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
39861C
39862C ..........
39863C
39864      IPART1='IMES'
39865      IPART2='NA  '
39866      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ISTRIN=IMESNA
39867      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
39868C
39869      IPART1='INEW'
39870      IPART2='NA  '
39871      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ISTRIN=INEWNA
39872      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5370
39873C
39874      IPART1='IMAI'
39875      IPART2='NA  '
39876      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ISTRIN=IMAINA
39877      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5370
39878C
39879      IPART1='IHEL'
39880      IPART2='NA  '
39881      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ISTRIN=IHELNA
39882      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5370
39883C
39884      IPART1='IBUG'
39885      IPART2='NA  '
39886      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ISTRIN=IBUGNA
39887      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5370
39888C
39889      IPART1='IQUE'
39890      IPART2='NA  '
39891      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ISTRIN=IQUENA
39892      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5370
39893C
39894      IPART1='ILOG'
39895      IPART2='NA  '
39896      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ISTRIN=ILOGNA
39897      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5370
39898C
39899      IPART1='IREA'
39900      IPART2='NA  '
39901      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ISTRIN=IREANA
39902      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5370
39903C
39904      IPART1='IWRI'
39905      IPART2='NA  '
39906      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ISTRIN=IWRINA
39907      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5370
39908C
39909      IPART1='ICRE'
39910      IPART2='NA  '
39911      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ISTRIN=ICRENA
39912      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5370
39913C
39914      IPART1='ISAV'
39915      IPART2='NA  '
39916      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ISTRIN=ISAVNA
39917      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5370
39918C
39919      IPART1='ISCR'
39920      IPART2='NA  '
39921      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ISTRIN=ISCRNA
39922      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5370
39923C
39924      IPART1='IDAT'
39925      IPART2='NA  '
39926      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ISTRIN=IDATNA
39927      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5370
39928C
39929      IPART1='IPL1'
39930      IPART2='NA  '
39931      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ISTRIN=IPL1NA
39932      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5370
39933C
39934      IPART1='IPL2'
39935      IPART2='NA  '
39936      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ISTRIN=IPL2NA
39937      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5370
39938C
39939      IPART1='IZCH'
39940      IPART2='NA  '
39941      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ISTRIN=IZCHNA
39942      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5370
39943C
39944C ..........
39945C
39946      IPART1='IMES'
39947      IPART2='ST  '
39948      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ISTRIN(1:12)=IMESST
39949      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5360
39950C
39951      IPART1='INEW'
39952      IPART2='ST  '
39953      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ISTRIN(1:12)=INEWST
39954      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5360
39955C
39956      IPART1='IMAI'
39957      IPART2='ST  '
39958      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ISTRIN(1:12)=IMAIST
39959      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5360
39960C
39961      IPART1='IHEL'
39962      IPART2='ST  '
39963      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ISTRIN(1:12)=IHELST
39964      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5360
39965C
39966      IPART1='IBUG'
39967      IPART2='ST  '
39968      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ISTRIN(1:12)=IBUGST
39969      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5360
39970C
39971      IPART1='IQUE'
39972      IPART2='ST  '
39973      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ISTRIN(1:12)=IQUEST
39974      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5360
39975C
39976      IPART1='ILOG'
39977      IPART2='ST  '
39978      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ISTRIN(1:12)=ILOGST
39979      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5360
39980C
39981      IPART1='IREA'
39982      IPART2='ST  '
39983      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ISTRIN(1:12)=IREAST
39984      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5360
39985C
39986      IPART1='IWRI'
39987      IPART2='ST  '
39988      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ISTRIN(1:12)=IWRIST
39989      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5360
39990C
39991      IPART1='ICRE'
39992      IPART2='ST  '
39993      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ISTRIN(1:12)=ICREST
39994      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5360
39995C
39996      IPART1='ISAV'
39997      IPART2='ST  '
39998      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ISTRIN(1:12)=ISAVST
39999      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5360
40000C
40001      IPART1='ISCR'
40002      IPART2='ST  '
40003      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ISTRIN(1:12)=ISCRST
40004      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5360
40005C
40006      IPART1='IDAT'
40007      IPART2='ST  '
40008      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ISTRIN(1:12)=IDATST
40009      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5360
40010C
40011      IPART1='IPL1'
40012      IPART2='ST  '
40013      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ISTRIN(1:12)=IPL1ST
40014      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5360
40015C
40016      IPART1='IPL2'
40017      IPART2='ST  '
40018      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ISTRIN(1:12)=IPL2ST
40019      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5360
40020C
40021      IPART1='IHAR'
40022      IPART2='G   '
40023      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IEL=IARG(2)
40024      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IHV=IHARG(IEL)
40025      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ICASPR='IHAR'
40026      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5260
40027C
40028      IPART1='IHAR'
40029      IPART2='G2  '
40030      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IEL=IARG(2)
40031      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IHV=IHARG2(IEL)
40032      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ICASPR='IHA2'
40033      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5260
40034C
40035      IPART1='IARG'
40036      IPART2='    '
40037      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IEL=IARG(2)
40038      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IV=IARG(IEL)
40039      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ICASPR='IARG'
40040      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5250
40041C
40042      IPART1='ARG '
40043      IPART2='    '
40044      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IEL=IARG(2)
40045      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)AV=ARG(IEL)
40046      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ICASPR='ARG '
40047      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5270
40048C
40049      IPART1='IHNA'
40050      IPART2='ME  '
40051      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IEL=IARG(2)
40052      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IHV=IHNAME(IEL)
40053      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ICASPR='IHNA'
40054      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5260
40055C
40056      IPART1='IHNA'
40057      IPART2='M2  '
40058      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IEL=IARG(2)
40059      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IHV=IHNAM2(IEL)
40060      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ICASPR='IHN2'
40061      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5260
40062C
40063      IPART1='IUSE'
40064      IPART2='    '
40065      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IEL=IARG(2)
40066      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IHV=IUSE(IEL)
40067      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ICASPR='IUSE'
40068      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5260
40069C
40070      IPART1='IVAL'
40071      IPART2='UE  '
40072      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IEL=IARG(2)
40073      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IV=IVALUE(IEL)
40074      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ICASPR='IVAL'
40075      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5250
40076C
40077      IPART1='IVAL'
40078      IPART2='U2  '
40079      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IEL=IARG(2)
40080      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IV=IVALU2(IEL)
40081      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ICASPR='IVA2'
40082      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5250
40083C
40084      IPART1='VALU'
40085      IPART2='E   '
40086      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IEL=IARG(2)
40087      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)AV=VALUE(IEL)
40088      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ICASPR='VALU'
40089      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5270
40090C
40091      IPART1='IN  '
40092      IPART2='    '
40093      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IEL=IARG(2)
40094      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IV=IN(IEL)
40095      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ICASPR='IN  '
40096      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5250
40097C
40098      IPART1='IVST'
40099      IPART2='AR  '
40100      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IEL=IARG(2)
40101      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IV=IVSTAR(IEL)
40102      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ICASPR='IVST'
40103      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5250
40104C
40105      IPART1='IVST'
40106      IPART2='OP  '
40107      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IEL=IARG(2)
40108      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IV=IVSTOP(IEL)
40109      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)ICASPR='IVSP'
40110      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5250
40111C
40112C               ***************************
40113C               **  STEP 3--             **
40114C               **  PROBE BUG VARIABLES  **
40115C               ***************************
40116C
40117      IPART1='IBUG'
40118      IPART2='MA  '
40119      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IHV=IBUGMA
40120      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
40121C
40122      IPART1='IBUG'
40123      IPART2='IN  '
40124      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IHV=IBUGIN
40125      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
40126C
40127      IPART1='IBUG'
40128      IPART2='LS  '
40129      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IHV=IBUGLS
40130      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
40131C
40132      IPART1='IBUG'
40133      IPART2='MS  '
40134      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IHV=IBUGMS
40135      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
40136C
40137      IPART1='IBUG'
40138      IPART2='GC  '
40139      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IHV=IBUGGC
40140      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
40141C
40142      IPART1='IBUG'
40143      IPART2='TY  '
40144      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IHV=IBUGTY
40145      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
40146C
40147      IPART1='IBUG'
40148      IPART2='TE  '
40149      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IHV=IBUGTE
40150      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
40151C
40152      IPART1='IBUG'
40153      IPART2='PC  '
40154      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IHV=IBUGPC
40155      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
40156C
40157      IPART1='IBUG'
40158      IPART2='P2  '
40159      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IHV=IBUGP2
40160      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
40161C
40162      IPART1='IBUG'
40163      IPART2='OD  '
40164      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IHV=IBUGOD
40165      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
40166C
40167      IPART1='IBUG'
40168      IPART2='O2  '
40169      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IHV=IBUGO2
40170      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
40171C
40172      IPART1='IBUG'
40173      IPART2='SU  '
40174      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IHV=IBUGSU
40175      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
40176C
40177      IPART1='IBUG'
40178      IPART2='S2  '
40179      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IHV=IBUGS2
40180      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
40181C
40182      IPART1='IBUG'
40183      IPART2='GR  '
40184      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IHV=IBUGGR
40185      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
40186C
40187      IPART1='IBUG'
40188      IPART2='G2  '
40189      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IHV=IBUGG2
40190      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
40191C
40192      IPART1='IBUG'
40193      IPART2='G3  '
40194      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IHV=IBUGG3
40195      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
40196C
40197      IPART1='IBUG'
40198      IPART2='AN  '
40199      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IHV=IBUGAN
40200      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
40201C
40202      IPART1='IBUG'
40203      IPART2='A2  '
40204      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IHV=IBUGA2
40205      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
40206C
40207      IPART1='IBUG'
40208      IPART2='A3  '
40209      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IHV=IBUGA3
40210      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
40211C
40212      IPART1='IBUG'
40213      IPART2='PL  '
40214      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IHV=IBUGPL
40215      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
40216C
40217      IPART1='IBUG'
40218      IPART2='P   '
40219      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IHV=IBUGP
40220      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
40221C
40222      IPART1='IBUG'
40223      IPART2='P1  '
40224      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IHV=IBUGP1
40225      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
40226C
40227      IPART1='IBUG'
40228      IPART2='P3  '
40229      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IHV=IBUGP3
40230      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
40231C
40232      IPART1='IBUG'
40233      IPART2='DG  '
40234      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IHV=IBUGDG
40235      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
40236C
40237      IPART1='IBUG'
40238      IPART2='D2  '
40239      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IHV=IBUGD2
40240      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
40241C
40242      IPART1='IBUG'
40243      IPART2='CO  '
40244      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IHV=IBUGCO
40245      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
40246C
40247      IPART1='IBUG'
40248      IPART2='EV  '
40249      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IHV=IBUGEV
40250      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
40251C
40252      IPART1='IBUG'
40253      IPART2='Q   '
40254      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IHV=IBUGQ
40255      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
40256C
40257      IPART1='IBUG'
40258      IPART2='RE  '
40259      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IHV=IBUGRE
40260      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
40261C
40262      IPART1='IBUG'
40263      IPART2='WR  '
40264      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IHV=IBUGWR
40265      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
40266C
40267      IPART1='IBUG'
40268      IPART2='SO  '
40269      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IHV=IBUGSO
40270      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
40271C
40272      IPART1='IBUG'
40273      IPART2='TO  '
40274      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IHV=IBUGTO
40275      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
40276C
40277      IPART1='IBUG'
40278      IPART2='UG  '
40279      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IHV=IBUGUG
40280      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
40281C
40282      IPART1='IBUG'
40283      IPART2='U2  '
40284      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IHV=IBUGU2
40285      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
40286C
40287      IPART1='IBUG'
40288      IPART2='U3  '
40289      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IHV=IBUGU3
40290      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
40291C
40292      IPART1='IBUG'
40293      IPART2='U4  '
40294      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IHV=IBUGU4
40295      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
40296C
40297      IPART1='IBUG'
40298      IPART2='EX  '
40299      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IHV=IBUGEX
40300      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
40301C
40302      IPART1='IBUG'
40303      IPART2='E2  '
40304      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IHV=IBUGE2
40305      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
40306C
40307      IPART1='IBUG'
40308      IPART2='HE  '
40309      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IHV=IBUGHE
40310      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
40311C
40312      IPART1='IBUG'
40313      IPART2='H2  '
40314      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IHV=IBUGH2
40315      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
40316C
40317      IPART1='IBUG'
40318      IPART2='LO  '
40319      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IHV=IBUGLO
40320      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
40321C
40322      IPART1='ISUB'
40323      IPART2='RO  '
40324      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IHV=ISUBRO
40325      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
40326C
40327      IPART1='ITRA'
40328      IPART2='NS  '
40329      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IHV=ITRANS
40330      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
40331C
40332      IPART1='IFTE'
40333      IPART2='XP  '
40334      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IHV=IFTEXP
40335      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
40336C
40337      IPART1='FOUR'
40338      IPART2='IER '
40339      IPART3='EXPO'
40340      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2.AND.
40341     1IHARG(2).EQ.IPART3)IHV=IFTEXP
40342      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2.AND.
40343     1IHARG(2).EQ.IPART3)GOTO5160
40344C
40345      IPART1='IFTO'
40346      IPART2='RD  '
40347      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IHV=IFTORD
40348      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
40349C
40350      IPART1='FOUR'
40351      IPART2='IER '
40352      IPART3='ORDE'
40353      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2.AND.
40354     1IHARG(2).EQ.IPART3)IHV=IFTORD
40355      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2.AND.
40356     1IHARG(2).EQ.IPART3)GOTO5160
40357C
40358      IPART1='WRIT'
40359      IPART2='E   '
40360      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IHV=IFORSW
40361      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
40362C
40363      IPART1='IFOR'
40364      IPART2='SW  '
40365      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IHV=IFORSW
40366      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
40367C
40368      IPART1='GENE'
40369      IPART2='RAL '
40370      IPART3='JUST'
40371      IPART4='IFIC'
40372      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2
40373     1.AND.IHARG(2).EQ.IPART3.AND.IHARG2(2).EQ.IPART4)IHV=IJUSSW
40374      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2
40375     1.AND.IHARG(2).EQ.IPART3.AND.IHARG2(2).EQ.IPART4)GOTO5160
40376C
40377      IPART1='GENE'
40378      IPART2='RAL '
40379      IPART3='REGI'
40380      IPART4='ON  '
40381      IPART5='FILL'
40382      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2
40383     1.AND.IHARG(2).EQ.IPART3.AND.IHARG2(2).EQ.IPART4
40384     1.AND.IHARG(3).EQ.IPART5)IHV=IRFLSW
40385      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2
40386     1.AND.IHARG(2).EQ.IPART3.AND.IHARG2(2).EQ.IPART4
40387     1.AND.IHARG(3).EQ.IPART5)GOTO5160
40388C
40389      IPART1='GENE'
40390      IPART2='RAL '
40391      IPART3='PEN '
40392      IPART4='    '
40393      IPART5='WIDT'
40394      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2
40395     1.AND.IHARG(2).EQ.IPART3.AND.IHARG2(2).EQ.IPART4
40396     1.AND.IHARG(3).EQ.IPART5)AV=PPENSW
40397      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2
40398     1.AND.IHARG(2).EQ.IPART3.AND.IHARG2(2).EQ.IPART4
40399     1.AND.IHARG(3).EQ.IPART5)GOTO5170
40400C
40401      IPART1='GENE'
40402      IPART2='RAL '
40403      IPART3='PEN '
40404      IPART4='    '
40405      IPART5='THIC'
40406      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2
40407     1.AND.IHARG(2).EQ.IPART3.AND.IHARG2(2).EQ.IPART4
40408     1.AND.IHARG(3).EQ.IPART5)IHV=IPTHSW
40409      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2
40410     1.AND.IHARG(2).EQ.IPART3.AND.IHARG2(2).EQ.IPART4
40411     1.AND.IHARG(3).EQ.IPART5)GOTO5160
40412C
40413      IPART1='GENE'
40414      IPART2='RAL '
40415      IPART3='FONT'
40416      IPART4='    '
40417      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2
40418     1.AND.IHARG(2).EQ.IPART3)IHV=IJUSSW
40419      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2
40420     1.AND.IHARG(2).EQ.IPART3)GOTO5160
40421C
40422C     ************************************************************
40423C     **  ADDED MAY       1988                                  **
40424C     **  SET QUIC/QMS FONT <NUMBER> OR                         **
40425C     **  SET QUIC/QMS LANDSCAPE LEFT MARGIN <NUMB>             **
40426C     **  SET QUIC/QMS LANDSCAPE RIGHT MARGIN <NUMB>            **
40427C     **  SET QUIC/QMS LANDSCAPE TOP  MARGIN <NUMB>             **
40428C     **  SET QUIC/QMS LANDSCAPE BOTTOM MARGIN <NUMB>           **
40429C     **  SET QUIC/QMS LANDSCAPE LEFT MARGIN <NUMB>             **
40430C     **  SET QUIC/QMS LANDSCAPE RIGHT MARGIN <NUMB>            **
40431C     **  SET QUIC/QMS LANDSCAPE TOP  MARGIN <NUMB>             **
40432C     **  SET QUIC/QMS LANDSCAPE BOTTOM MARGIN <NUMB>           **
40433C     **  SET QUIC/QMS DOT <NUMB>                               **
40434C     ************************************************************
40435C
40436C     ***********************************
40437C     **  CHECK FOR FONT               **
40438C     ***********************************
40439C
40440      IPART1='QUIC'
40441      IPART2='FONT'
40442      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)IV=IQUIFN
40443      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)GOTO5150
40444      IPART1='QMS '
40445      IPART2='FONT'
40446      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)IV=IQUIFN
40447      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)GOTO5150
40448C
40449C     ***********************************
40450C     **  CHECK FOR MARGINS            **
40451C     ***********************************
40452C
40453      IPART1='QUIC'
40454      IPART2='LAND'
40455      IPART3='LEFT'
40456      IPART4='MARG'
40457      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
40458     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)IV=IQUILM
40459      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
40460     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)GOTO5150
40461C
40462      IPART1='QUIC'
40463      IPART2='LAND'
40464      IPART3='RIGH'
40465      IPART4='MARG'
40466      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
40467     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)IV=IQUIRM
40468      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
40469     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)GOTO5150
40470C
40471      IPART1='QUIC'
40472      IPART2='LAND'
40473      IPART3='TOP '
40474      IPART4='MARG'
40475      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
40476     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)IV=IQUITM
40477      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
40478     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)GOTO5150
40479C
40480      IPART1='QUIC'
40481      IPART2='LAND'
40482      IPART3='BOTT'
40483      IPART4='MARG'
40484      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
40485     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)IV=IQUIBM
40486      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
40487     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)GOTO5150
40488C
40489      IPART1='QUIC'
40490      IPART2='PORT'
40491      IPART3='LEFT'
40492      IPART4='MARG'
40493      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
40494     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)IV=IQU2LM
40495      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
40496     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)GOTO5150
40497C
40498      IPART1='QUIC'
40499      IPART2='PORT'
40500      IPART3='RIGH'
40501      IPART4='MARG'
40502      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
40503     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)IV=IQU2RM
40504      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
40505     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)GOTO5150
40506C
40507      IPART1='QUIC'
40508      IPART2='PORT'
40509      IPART3='TOP '
40510      IPART4='MARG'
40511      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
40512     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)IV=IQU2TM
40513      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
40514     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)GOTO5150
40515C
40516      IPART1='QUIC'
40517      IPART2='PORT'
40518      IPART3='BOTT'
40519      IPART4='MARG'
40520      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
40521     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)IV=IQU2BM
40522      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
40523     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)GOTO5150
40524C
40525      IPART1='QMS'
40526      IPART2='LAND'
40527      IPART3='LEFT'
40528      IPART4='MARG'
40529      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
40530     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)IV=IQUILM
40531      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
40532     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)GOTO5150
40533C
40534      IPART1='QMS'
40535      IPART2='LAND'
40536      IPART3='RIGH'
40537      IPART4='MARG'
40538      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
40539     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)IV=IQUIRM
40540      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
40541     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)GOTO5150
40542C
40543      IPART1='QMS'
40544      IPART2='LAND'
40545      IPART3='TOP '
40546      IPART4='MARG'
40547      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
40548     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)IV=IQUITM
40549      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
40550     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)GOTO5150
40551C
40552      IPART1='QMS'
40553      IPART2='LAND'
40554      IPART3='BOTT'
40555      IPART4='MARG'
40556      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
40557     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)IV=IQUIBM
40558      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
40559     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)GOTO5150
40560C
40561      IPART1='QMS'
40562      IPART2='PORT'
40563      IPART3='LEFT'
40564      IPART4='MARG'
40565      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
40566     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)IV=IQU2LM
40567      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
40568     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)GOTO5150
40569C
40570      IPART1='QMS'
40571      IPART2='PORT'
40572      IPART3='RIGH'
40573      IPART4='MARG'
40574      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
40575     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)IV=IQU2RM
40576      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
40577     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)GOTO5150
40578C
40579      IPART1='QMS'
40580      IPART2='PORT'
40581      IPART3='TOP '
40582      IPART4='MARG'
40583      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
40584     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)IV=IQU2TM
40585      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
40586     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)GOTO5150
40587C
40588      IPART1='QMS'
40589      IPART2='PORT'
40590      IPART3='BOTT'
40591      IPART4='MARG'
40592      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
40593     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)IV=IQU2BM
40594      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
40595     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)GOTO5150
40596C
40597C     *********************************
40598C     **  SET DOTS/INCH              **
40599C     *********************************
40600C
40601      IPART1='QUIC'
40602      IPART2='PPI '
40603      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)AV=QUIPPI
40604      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)GOTO5170
40605      IPART1='QMS '
40606      IPART2='PPI '
40607      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)AV=QUIPPI
40608      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)GOTO5170
40609C
40610C     ************************************************************
40611C     **  ADDED MAY       1988                                  **
40612C     **  SET POSTSCRI FONT <NUMBER> OR                         **
40613C     **  SET POSTSCRI LANDSCAPE LEFT MARGIN <NUMB>             **
40614C     **  SET POSTSCRI LANDSCAPE RIGHT MARGIN <NUMB>            **
40615C     **  SET POSTSCRI LANDSCAPE TOP  MARGIN <NUMB>             **
40616C     **  SET POSTSCRI LANDSCAPE BOTTOM MARGIN <NUMB>           **
40617C     **  SET POSTSCRI LANDSCAPE LEFT MARGIN <NUMB>             **
40618C     **  SET POSTSCRI LANDSCAPE RIGHT MARGIN <NUMB>            **
40619C     **  SET POSTSCRI LANDSCAPE TOP  MARGIN <NUMB>             **
40620C     **  SET POSTSCRI LANDSCAPE BOTTOM MARGIN <NUMB>           **
40621C     **  SET POSTSCRI DOT <NUMB>                               **
40622C     **  SET POSTSCRI SPACE <ON/OFF> ADDED OCTOBER 1991        **
40623C     **  SET POSTSCRI HARDWARE FILL <ON/OFF> ADDED JUNE 1994   **
40624C     ************************************************************
40625C
40626C     ***********************************
40627C     **  CHECK FOR FONT               **
40628C     ***********************************
40629C
40630      IPART1='POST'
40631      IPART2='FONT'
40632      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)IHV=IPSTFN
40633      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)GOTO5160
40634C
40635C     ***********************************
40636C     **  CHECK FOR MARGINS            **
40637C     ***********************************
40638C
40639      IPART1='POST'
40640      IPART2='LAND'
40641      IPART3='LEFT'
40642      IPART4='MARG'
40643      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
40644     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)IV=IPSTLM
40645      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
40646     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)GOTO5150
40647C
40648      IPART1='POST'
40649      IPART2='LAND'
40650      IPART3='RIGH'
40651      IPART4='MARG'
40652      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
40653     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)IV=IPSTRM
40654      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
40655     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)GOTO5150
40656C
40657      IPART1='POST'
40658      IPART2='LAND'
40659      IPART3='TOP '
40660      IPART4='MARG'
40661      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
40662     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)IV=IPSTTM
40663      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
40664     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)GOTO5150
40665C
40666      IPART1='POST'
40667      IPART2='LAND'
40668      IPART3='BOTT'
40669      IPART4='MARG'
40670      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
40671     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)IV=IPSTBM
40672      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
40673     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)GOTO5150
40674C
40675      IPART1='POST'
40676      IPART2='PORT'
40677      IPART3='LEFT'
40678      IPART4='MARG'
40679      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
40680     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)IV=IPS2LM
40681      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
40682     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)GOTO5150
40683C
40684      IPART1='POST'
40685      IPART2='PORT'
40686      IPART3='RIGH'
40687      IPART4='MARG'
40688      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
40689     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)IV=IPS2RM
40690      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
40691     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)GOTO5150
40692C
40693      IPART1='POST'
40694      IPART2='PORT'
40695      IPART3='TOP '
40696      IPART4='MARG'
40697      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
40698     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)IV=IPS2TM
40699      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
40700     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)GOTO5150
40701C
40702      IPART1='POST'
40703      IPART2='PORT'
40704      IPART3='BOTT'
40705      IPART4='MARG'
40706      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
40707     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)IV=IPS2BM
40708      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2
40709     1.AND.IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)GOTO5150
40710C
40711C
40712C     *********************************
40713C     **  SET DOTS/INCH              **
40714C     *********************************
40715C
40716      IPART1='POST'
40717      IPART2='PPI '
40718      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)AV=PSTPPI
40719      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)GOTO5170
40720C
40721C     *******************************************
40722C     **  CHECK FOR POSTSCRIPT SPACE <ON/OFF>  **
40723C     **  ADDED OCTOBER 1991.                  **
40724C     *******************************************
40725C
40726      IPART1='POST'
40727      IPART2='SPAC'
40728      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)IHV=IPSTSP
40729      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)GOTO5160
40730C
40731C     ***************************************************
40732C     **  CHECK FOR POSTSCRIPT HARDWARE FILL <ON/OFF>  **
40733C     **  ADDED JUNE 1994.                             **
40734C     ***************************************************
40735C
40736      IPART1='POST'
40737      IPART2='HARD'
40738      IPART3='FILL'
40739      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
40740     1   IHARG(3).EQ.IPART3)IHV=IPSTFS
40741      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
40742     1   IHARG(3).EQ.IPART3)GOTO5160
40743C
40744C     ************************************************************
40745C     **  ADDED SEPTEMBER 1988                                  **
40746C     **  SET CALCOMP COLORS <NUMBER>                           **
40747C     **  SET CALCOMP WIDTH <NUMBER>                            **
40748C     ************************************************************
40749C
40750C     ***********************************
40751C     **  CHECK FOR COLORS             **
40752C     ***********************************
40753C
40754      IPART1='CALC'
40755      IPART2='COLO'
40756      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)IV=ICALCL
40757      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)GOTO5150
40758C
40759C     ***********************************
40760C     **  CHECK FOR PEN WIDTH          **
40761C     ***********************************
40762C
40763      IPART1='CALC'
40764      IPART2='WIDT'
40765      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)AV=PCALTH
40766      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)GOTO5170
40767C
40768C     ************************************************************
40769C     **  ADDED JULY 1996                                       **
40770C     **  SET LAHEY   SWITCH   <ON/OFF>                         **
40771C     **  SET LAHEY   GRAPHICS <DIRECT/BIOS>                    **
40772C     **  SET LAHEY   CLOSE    <ON/OFF>                         **
40773C     **  SET LAHEY   PAUSE    <ON/OFF>                         **
40774C     **  SET LAHEY   WIDTH   <NUMBER>                          **
40775C     ************************************************************
40776C
40777C     ***********************************
40778C     **  CHECK FOR SWITCH             **
40779C     ***********************************
40780C
40781      IPART1='LAHE'
40782      IPART2='SWIT'
40783      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)IHV=ILAHSW
40784      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)GOTO5160
40785C
40786C     ***********************************
40787C     **  CHECK FOR GRAPHICS           **
40788C     ***********************************
40789C
40790      IPART1='LAHE'
40791      IPART2='GRAP'
40792      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)IHV=ILAHGR
40793      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)GOTO5160
40794C
40795C     ***********************************
40796C     **  CHECK FOR CLOSE              **
40797C     ***********************************
40798C
40799      IPART1='LAHE'
40800      IPART2='CLOS'
40801      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)IHV=ILAHCL
40802      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)GOTO5160
40803C
40804C
40805C     ***********************************
40806C     **  CHECK FOR PAUSE              **
40807C     ***********************************
40808C
40809      IPART1='LAHE'
40810      IPART2='PAUS'
40811      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)IHV=ILAHPA
40812      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)GOTO5160
40813C
40814C     ***********************************
40815C     **  CHECK FOR PEN WIDTH          **
40816C     ***********************************
40817C
40818      IPART1='LAHE'
40819      IPART2='WIDT'
40820      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)AV=PLAHTH
40821      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)GOTO5170
40822C
40823C     ************************************************************
40824C     **  ADDED NOVEMBER 1996                                   **
40825C     **  SET QUICK-WIN   FOCUS   <TEXT/GRAPHICS>               **
40826C     **  SET QUICK-WIN   COLOR   <VGA/SVGA/DIRE>               **
40827C     **  SET QUICK-WIN   FONT    <NAME>                        **
40828C     ************************************************************
40829C
40830C     ***********************************
40831C     **  CHECK FOR FOCUS              **
40832C     ***********************************
40833C
40834      IPART1='QWIN'
40835      IPART2='FOCU'
40836      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)IHV=IQWNFC
40837      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)GOTO5160
40838C
40839C     ***********************************
40840C     **  CHECK FOR COLOR              **
40841C     ***********************************
40842C
40843      IPART1='QWIN'
40844      IPART2='COLO'
40845      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)IHV=IQWNCL
40846      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)GOTO5160
40847C
40848C     ********************************************************
40849C     **  CHECK FOR QWIN TEXT FOREGROUND COLOR              **
40850C     ********************************************************
40851C
40852      IPART1='QWIN'
40853      IPART2='TEXT'
40854      IPART3='FORE'
40855      IPART4='COLO'
40856      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
40857     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
40858         IV=IQWNF2
40859         GOTO5150
40860      ENDIF
40861C
40862C     ********************************************************
40863C     **  CHECK FOR QWIN TEXT BACKGROUND COLOR              **
40864C     ********************************************************
40865C
40866      IPART1='QWIN'
40867      IPART2='TEXT'
40868      IPART3='BACK'
40869      IPART4='COLO'
40870      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
40871     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
40872         IV=IQWNBC
40873         GOTO5150
40874      ENDIF
40875C
40876C     ***********************************
40877C     **  CHECK FOR FONT NAME          **
40878C     ***********************************
40879C
40880      IPART1='QWIN'
40881      IPART2='FONT'
40882      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)IHV=IQWNFZ(1:4)
40883      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)GOTO5160
40884C
40885C     ************************************************************
40886C     **  ADDED SEPTEMBER 1988                                  **
40887C     **  SET ZETA    COLORS <NUMBER>                           **
40888C     **  SET ZETA    WIDTH <NUMBER>                            **
40889C     ************************************************************
40890C
40891C     ***********************************
40892C     **  CHECK FOR COLORS             **
40893C     ***********************************
40894C
40895      IPART1='ZETA'
40896      IPART2='COLO'
40897      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)IV=IZETCL
40898      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)GOTO5150
40899C
40900C     ***********************************
40901C     **  CHECK FOR PEN WIDTH          **
40902C     ***********************************
40903C
40904      IPART1='CALC'
40905      IPART2='WIDT'
40906      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)AV=PCALTH
40907      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)GOTO5170
40908C
40909C     **************************************************************
40910C     **  ADDED MARCH 2002                                        **
40911C     **  PROBE SVG FONT <SANS-SERIF/SERIF/MONOSPACE>             **
40912C     **  PROBE SVG FONT WEIGHT <BOLD/NORM>                       **
40913C     **  PROBE SVG FONT STYLE <NORM/ITALIC>                      **
40914C     **  PROBE SVG CAP <BUTT/ROUND/PROJECT>                      **
40915C     **  PROBE SVG JOIN <MITER/ROUND/BEVEL>                      **
40916C     **  PROBE SVG FOREGROUND COLOR <COLOR>                      **
40917C     **  PROBE SVG HARDWARE FILL <EVENODD/NONZERO/OFF>           **
40918C     **  PROBE SVG STYLE SHEET <NONE/INTERNAL/EXTERNAL USE/      **
40919C     **                      EXTERNAL CREATE>                    **
40920C     **  PROBE SVG STYLE SHEET NAME                              **
40921C     **  ADDED JULY  2015                                        **
40922C     **************************************************************
40923C
40924C     ***********************************
40925C     **  CHECK FOR SVG FONT WEIGHT    **
40926C     ***********************************
40927C
40928      IPART1='SVG '
40929      IPART2='FONT'
40930      IPART3='WEIG'
40931      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
40932     1IHARG(3).EQ.IPART3)THEN
40933        IHV=ISVGFW
40934        GOTO5160
40935      ENDIF
40936C
40937C     ***********************************
40938C     **  CHECK FOR SVG FONT STYLE     **
40939C     ***********************************
40940C
40941      IPART1='SVG '
40942      IPART2='FONT'
40943      IPART3='STYL'
40944      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
40945     1IHARG(3).EQ.IPART3)THEN
40946        IHV=ISVGST
40947        GOTO5160
40948      ENDIF
40949C
40950C     ***********************************
40951C     **  CHECK FOR SVG FONT NAME      **
40952C     ***********************************
40953C
40954      IPART1='SVG '
40955      IPART2='FONT'
40956      IPART3='NAME'
40957      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
40958     1IHARG(3).EQ.IPART3)THEN
40959        IFOUND='YES'
40960        WRITE(ICOUT,999)
40961        CALL DPWRST('XXX','BUG ')
40962        WRITE(ICOUT,2761)IPART1,IPART2,IPART3
40963 2761   FORMAT('THE FORTRAN COMMON CHARACTER ',A4,A4,A4,
40964     1         ' HAS THE SETTING     ')
40965        CALL DPWRST('XXX','BUG ')
40966        WRITE(ICOUT,2763)ISVGFN
40967 2763   FORMAT(A80)
40968        CALL DPWRST('XXX','BUG ')
40969        IPROBS=' '
40970        IPROBS(1:32)=ISVGFN(1:32)
40971        NCPROB=32
40972        GOTO8100
40973      ENDIF
40974C
40975C     ***********************************
40976C     **  CHECK FOR SVG URL            **
40977C     ***********************************
40978C
40979      IPART1='SVG '
40980      IPART2='URL '
40981      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
40982        IFOUND='YES'
40983        WRITE(ICOUT,999)
40984        CALL DPWRST('XXX','BUG ')
40985        WRITE(ICOUT,2866)IPART1,IPART2
40986 2866   FORMAT('THE FORTRAN COMMON CHARACTER ',A4,A4,
40987     1         ' HAS THE SETTING     ')
40988        CALL DPWRST('XXX','BUG ')
40989        WRITE(ICOUT,2868)ISVGUR
40990 2868   FORMAT(A80)
40991        CALL DPWRST('XXX','BUG ')
40992        IPROBS=' '
40993        IPROBS(1:80)=ISVGUR(1:80)
40994        NCPROB=80
40995        GOTO8100
40996      ENDIF
40997C
40998C     ***********************************
40999C     **  CHECK FOR SVG CAP            **
41000C     ***********************************
41001C
41002      IPART1='SVG '
41003      IPART2='CAP '
41004      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
41005        IHV=ISVGCA
41006        GOTO5160
41007      ENDIF
41008C
41009C     ***********************************
41010C     **  CHECK FOR SVG JOIN           **
41011C     ***********************************
41012C
41013      IPART1='SVG '
41014      IPART3='JOIN'
41015      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
41016        IHV=ISVGJS
41017        GOTO5160
41018      ENDIF
41019C
41020C     ***********************************
41021C     **  CHECK FOR SVG FOREGROUND COLOR*
41022C     ***********************************
41023C
41024      IPART1='SVG '
41025      IPART2='FORE'
41026      IPART3='COLO'
41027      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
41028     1IHARG(3).EQ.IPART3)THEN
41029        IHV=ISVGFC
41030        GOTO5160
41031      ENDIF
41032C
41033C     ***********************************
41034C     **  CHECK FOR SVG HARDWARE FILL  **
41035C     ***********************************
41036C
41037      IPART1='SVG '
41038      IPART2='HARD'
41039      IPART3='FILL'
41040      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
41041     1IHARG(3).EQ.IPART3)THEN
41042        IHV=ISVGFS
41043        GOTO5160
41044      ENDIF
41045C
41046C     ***********************************
41047C     **  CHECK FOR SVG STYLE SHEET    **
41048C     ***********************************
41049C
41050      IPART1='SVG '
41051      IPART2='STYL'
41052      IPART3='SHEE'
41053      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
41054     1IHARG(3).EQ.IPART3)THEN
41055        IHV=ISVGSS
41056        GOTO5160
41057      ENDIF
41058C
41059C     ***********************************
41060C     **  CHECK FOR SVG BACKUP FILE    **
41061C     ***********************************
41062C
41063      IPART1='SVG '
41064      IPART2='BACK'
41065      IPART3='FILE'
41066      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
41067     1IHARG(3).EQ.IPART3)THEN
41068        IHV=ISVGBU
41069        GOTO5160
41070      ENDIF
41071C
41072C     ***********************************
41073C     **  CHECK FOR SVG STYLE SHEET NAME*
41074C     ***********************************
41075C
41076      IPART1='SVG '
41077      IPART2='STYL'
41078      IPART3='SHEE'
41079      IPART4='NAME'
41080      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
41081     1IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
41082        IFOUND='YES'
41083        WRITE(ICOUT,999)
41084        CALL DPWRST('XXX','BUG ')
41085        WRITE(ICOUT,2771)IPART1,IPART2,IPART3,IPART4
41086 2771   FORMAT('THE FORTRAN COMMON CHARACTER ',A4,A4,A4,A4,
41087     1         ' HAS THE SETTING     ')
41088        CALL DPWRST('XXX','BUG ')
41089        WRITE(ICOUT,2773)ISVGSN
41090 2773   FORMAT(A80)
41091        CALL DPWRST('XXX','BUG ')
41092        IPROBS=' '
41093        IPROBS(1:80)=ISVGSN(1:80)
41094        NCPROB=32
41095        GOTO8100
41096      ENDIF
41097C
41098C     ****************************************
41099C     **  CHECK FOR AQUATERM FONT NAME      **
41100C     ****************************************
41101C
41102      IPART1='AQUA'
41103      IPART2='FONT'
41104      IPART3='NAME'
41105      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
41106     1IHARG(3).EQ.IPART3)THEN
41107        IFOUND='YES'
41108        WRITE(ICOUT,999)
41109        CALL DPWRST('XXX','BUG ')
41110        WRITE(ICOUT,22761)IPART1,IPART2,IPART3
4111122761   FORMAT('THE FORTRAN COMMON CHARACTER ',A4,A4,A4,
41112     1         ' HAS THE SETTING     ')
41113        CALL DPWRST('XXX','BUG ')
41114        WRITE(ICOUT,2763)IAQUFN
41115        CALL DPWRST('XXX','BUG ')
41116        IPROBS=' '
41117        IPROBS(1:80)=IAQUFN(1:80)
41118        NCPROB=80
41119        GOTO8100
41120      ENDIF
41121C
41122C     **************************************************************
41123C     **  ADDED JANUARY  2014                                     **
41124C     **  PROBE CAIRO FONT                                        **
41125C     **  PROBE CAIRO FONT WEIGHT <BOLD/NORM>                     **
41126C     **  PROBE CAIRO FONT SLANT <NORM/ITALIC>                    **
41127C     **  PROBE CAIRO CAP <BUTT/ROUND/SQUARE>                     **
41128C     **  PROBE CAIRO JOIN <MITER/ROUND/BEVEL>                    **
41129C     **  PROBE CAIRO HARDWARE FILL <ON/OFF>                      **
41130C     **  PROBE CAIRO POINTS PER INCH <VALUE>                     **
41131C     **************************************************************
41132C
41133C     ***********************************
41134C     **  CHECK FOR CAIRO FONT WEIGHT  **
41135C     ***********************************
41136C
41137      IPART1='CAIR'
41138      IPART2='FONT'
41139      IPART3='WEIG'
41140      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
41141     1IHARG(3).EQ.IPART3)THEN
41142        IHV=ICAIFW
41143        GOTO5160
41144      ENDIF
41145C
41146C     ***********************************
41147C     **  CHECK FOR CAIRO FONT SLANT   **
41148C     ***********************************
41149C
41150      IPART1='CAIR'
41151      IPART2='FONT'
41152      IPART3='SLAN'
41153      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
41154     1IHARG(3).EQ.IPART3)THEN
41155        IHV=ICAISL
41156        GOTO5160
41157      ENDIF
41158C
41159C     ***********************************
41160C     **  CHECK FOR CAIRO FONT NAME    **
41161C     ***********************************
41162C
41163      IPART1='CAIR'
41164      IPART2='FONT'
41165      IPART3='NAME'
41166      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
41167     1IHARG(3).EQ.IPART3)THEN
41168        IFOUND='YES'
41169        WRITE(ICOUT,999)
41170        CALL DPWRST('XXX','BUG ')
41171        WRITE(ICOUT,2766)IPART1,IPART2,IPART3
41172 2766   FORMAT('THE FORTRAN COMMON CHARACTER ',A4,A4,A4,
41173     1         ' HAS THE SETTING     ')
41174        CALL DPWRST('XXX','BUG ')
41175        WRITE(ICOUT,2768)ICAIFN
41176 2768   FORMAT(A80)
41177        CALL DPWRST('XXX','BUG ')
41178        IPROBS=' '
41179        IPROBS(1:32)=ICAIFN(1:32)
41180        NCPROB=32
41181        GOTO8100
41182      ENDIF
41183C
41184C     ***********************************
41185C     **  CHECK FOR CAIRO CAP          **
41186C     ***********************************
41187C
41188      IPART1='CAIR'
41189      IPART2='CAP '
41190      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
41191        IHV=ICAICA
41192        GOTO5160
41193      ENDIF
41194C
41195C     ***********************************
41196C     **  CHECK FOR CAIRO JOIN         **
41197C     ***********************************
41198C
41199      IPART1='CAIR'
41200      IPART3='JOIN'
41201      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
41202        IHV=ICAIJS
41203        GOTO5160
41204      ENDIF
41205C
41206C     *************************************
41207C     **  CHECK FOR CAIRO HARDWARE FILL  **
41208C     *************************************
41209C
41210      IPART1='CAIR'
41211      IPART2='HARD'
41212      IPART3='FILL'
41213      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
41214     1IHARG(3).EQ.IPART3)THEN
41215        IHV=ICAIFS
41216        GOTO5160
41217      ENDIF
41218C
41219C     *************************************
41220C     **  CHECK FOR CAIRO BLANK PAGE     **
41221C     *************************************
41222C
41223      IPART1='CAIR'
41224      IPART2='BLAN'
41225      IPART3='PAGE'
41226      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
41227     1IHARG(3).EQ.IPART3)THEN
41228        IHV=ICAIBP
41229        GOTO5160
41230      ENDIF
41231C
41232C     **************************************
41233C     **  CHECK FOR CAIRO POINTS PER INCH **
41234C     **************************************
41235C
41236      IPART1='CAIR'
41237      IPART2='POIN'
41238      IPART3='PER '
41239      IPART4='INCH'
41240      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
41241     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
41242        AV=CAIPPI
41243        GOTO5170
41244      ENDIF
41245C
41246C     ***********************************
41247C     **  CHECK FOR AQUATERM CAP       **
41248C     ***********************************
41249C
41250      IPART1='AQUA'
41251      IPART2='CAP '
41252      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
41253        IHV=IAQUCS(1:4)
41254        GOTO5160
41255      ENDIF
41256C
41257C     ***********************************
41258C     **  CHECK FOR AQUATERM JOIN      **
41259C     ***********************************
41260C
41261      IPART1='AQUA'
41262      IPART3='JOIN'
41263      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
41264        IHV=IAQUJS(1:4)
41265        GOTO5160
41266      ENDIF
41267C
41268C     ****************************************
41269C     **  CHECK FOR AQUATERM HARDWARE FILL  **
41270C     ****************************************
41271C
41272      IPART1='AQUA'
41273      IPART2='HARD'
41274      IPART3='FILL'
41275      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
41276     1IHARG(3).EQ.IPART3)THEN
41277        IHV=IAQUFS
41278        GOTO5160
41279      ENDIF
41280C
41281C     ****************************************
41282C     **  CHECK FOR LATEX    HARDWARE FILL  **
41283C     ****************************************
41284C
41285      IPART1='LATE'
41286      IPART2='HARD'
41287      IPART3='FILL'
41288      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
41289     1IHARG(3).EQ.IPART3)THEN
41290        IHV=ILATFS
41291        GOTO5160
41292      ENDIF
41293C
41294C     ****************************************
41295C     **  CHECK FOR LATEX    LINE THICKNESS **
41296C     ****************************************
41297C
41298      IPART1='LATE'
41299      IPART2='LINE'
41300      IPART3='THIC'
41301      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
41302     1IHARG(3).EQ.IPART3)THEN
41303        IHV=ILATLT
41304        GOTO5160
41305      ENDIF
41306C
41307C     ****************************************
41308C     **  CHECK FOR LATEX    COLOR          **
41309C     ****************************************
41310C
41311      IPART1='LATE'
41312      IPART2='COLO'
41313      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
41314        IHV=ILATCO
41315        GOTO5160
41316      ENDIF
41317C
41318C     ***********************************
41319C     **  CHECK FOR GD COLOR           **
41320C     ***********************************
41321C
41322      IPART1='GD  '
41323      IPART2='COLO'
41324      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
41325        IHV=IGDCO
41326        GOTO5160
41327      ENDIF
41328C
41329C     ****************************************
41330C     **  CHECK FOR GD       FONT NAME      **
41331C     ****************************************
41332C
41333      IPART1='GD  '
41334      IPART2='FONT'
41335      IPART3='NAME'
41336      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
41337     1IHARG(3).EQ.IPART3)THEN
41338        IFOUND='YES'
41339        WRITE(ICOUT,999)
41340        CALL DPWRST('XXX','BUG ')
41341        WRITE(ICOUT,22761)IPART1,IPART2,IPART3
41342        CALL DPWRST('XXX','BUG ')
41343        WRITE(ICOUT,2763)IGDFN
41344        CALL DPWRST('XXX','BUG ')
41345        IPROBS=' '
41346        IPROBS(1:80)=IGDFN(1:80)
41347        NCPROB=80
41348        GOTO8100
41349      ENDIF
41350C
41351C     ****************************************
41352C     **  CHECK FOR LIBPLOT  FONT NAME      **
41353C     ****************************************
41354C
41355      IPART1='LIBP'
41356      IPART2='FONT'
41357      IPART3='NAME'
41358      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
41359     1IHARG(3).EQ.IPART3)THEN
41360        IFOUND='YES'
41361        WRITE(ICOUT,999)
41362        CALL DPWRST('XXX','BUG ')
41363        WRITE(ICOUT,22761)IPART1,IPART2,IPART3
41364        CALL DPWRST('XXX','BUG ')
41365        WRITE(ICOUT,2763)ILPLFN
41366        CALL DPWRST('XXX','BUG ')
41367        IPROBS=' '
41368        IPROBS(1:80)=ILPLFN(1:80)
41369        NCPROB=80
41370        GOTO8100
41371      ENDIF
41372C
41373C     ***********************************
41374C     **  CHECK FOR LIBPLOT  CAP       **
41375C     ***********************************
41376C
41377      IPART1='LIBP'
41378      IPART2='CAP '
41379      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
41380        IHV=ILPLCS(1:4)
41381        GOTO5160
41382      ENDIF
41383C
41384C     ***********************************
41385C     **  CHECK FOR LIBPLOT  JOIN      **
41386C     ***********************************
41387C
41388      IPART1='LIBP'
41389      IPART3='JOIN'
41390      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
41391        IHV=ILPLJS(1:4)
41392        GOTO5160
41393      ENDIF
41394C
41395C     ****************************************
41396C     **  CHECK FOR LIBPLOT  HARDWARE FILL  **
41397C     ****************************************
41398C
41399      IPART1='LIBP'
41400      IPART2='HARD'
41401      IPART3='FILL'
41402      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
41403     1IHARG(3).EQ.IPART3)THEN
41404        IHV=ILPLFS
41405        GOTO5160
41406      ENDIF
41407C
41408C     ****************************************
41409C     **  CHECK FOR LIBPLOT  PAUSE          **
41410C     ****************************************
41411C
41412      IPART1='LIBP'
41413      IPART2='PAUS'
41414      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
41415        IHV=ILPLPA
41416        GOTO5160
41417      ENDIF
41418C
41419C     ****************************************
41420C     **  CHECK FOR LIBPLOT  XSIZE          **
41421C     ****************************************
41422C
41423      IPART1='LIBP'
41424      IPART2='X   '
41425      IPART3='SIZE'
41426      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
41427     1   IHARG(3).EQ.IPART3)THEN
41428        IV=ILPLXS
41429        GOTO5150
41430      ENDIF
41431C
41432      IPART1='LIBP'
41433      IPART2='XSIZ'
41434      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
41435        IV=ILPLXS
41436        GOTO5150
41437      ENDIF
41438C
41439C     ****************************************
41440C     **  CHECK FOR LIBPLOT  YSIZE          **
41441C     ****************************************
41442C
41443      IPART1='LIBP'
41444      IPART2='Y   '
41445      IPART3='SIZE'
41446      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
41447     1   IHARG(3).EQ.IPART3)THEN
41448        IV=ILPLYS
41449        GOTO5150
41450      ENDIF
41451C
41452      IPART1='LIBP'
41453      IPART2='YSIZ'
41454      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
41455        IV=ILPLYS
41456        GOTO5150
41457      ENDIF
41458C
41459C     ****************************************
41460C     **  CHECK FOR LIBPLOT  ROTATE         **
41461C     ****************************************
41462C
41463      IPART1='LIBP'
41464      IPART2='ROTA'
41465      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2)THEN
41466        AV=PLPLRO
41467        GOTO5170
41468      ENDIF
41469C
41470CCCCC JUST IFX1MIN, IGX1MIN, DX1MIN, ETC.
41471C               ************************************
41472C               **  STEP 4A--                     **
41473C               **  PROBE PLOT CONTROL VARIABLES  **
41474C               ************************************
41475C
41476      IPART1='FX1M'
41477      IPART2='IN  '
41478      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)AV=FX1MIN
41479      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5170
41480C
41481      IPART1='FX1M'
41482      IPART2='AX  '
41483      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)AV=FX1MAX
41484      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5170
41485C
41486      IPART1='FX2M'
41487      IPART2='IN  '
41488      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)AV=FX2MIN
41489      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5170
41490C
41491      IPART1='FX2M'
41492      IPART2='AX  '
41493      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)AV=FX2MAX
41494      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5170
41495C
41496      IPART1='FY1M'
41497      IPART2='IN  '
41498      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)AV=FY1MIN
41499      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5170
41500C
41501      IPART1='FY1M'
41502      IPART2='AX  '
41503      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)AV=FY1MAX
41504      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5170
41505C
41506      IPART1='FY2M'
41507      IPART2='IN  '
41508      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)AV=FY2MIN
41509      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5170
41510C
41511      IPART1='FY2M'
41512      IPART2='AX  '
41513      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)AV=FY2MAX
41514      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5170
41515C
41516      IPART1='GX1M'
41517      IPART2='IN  '
41518      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)AV=GX1MIN
41519      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5170
41520C
41521      IPART1='GX1M'
41522      IPART2='AX  '
41523      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)AV=GX1MAX
41524      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5170
41525C
41526      IPART1='GX2M'
41527      IPART2='IN  '
41528      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)AV=GX2MIN
41529      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5170
41530C
41531      IPART1='GX2M'
41532      IPART2='AX  '
41533      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)AV=GX2MAX
41534      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5170
41535C
41536      IPART1='GY1M'
41537      IPART2='IN  '
41538      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)AV=GY1MIN
41539      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5170
41540C
41541      IPART1='GY1M'
41542      IPART2='AX  '
41543      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)AV=GY1MAX
41544      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5170
41545C
41546      IPART1='GY2M'
41547      IPART2='IN  '
41548      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)AV=GY2MIN
41549      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5170
41550C
41551      IPART1='GY2M'
41552      IPART2='AX  '
41553      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)AV=GY2MAX
41554      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5170
41555C
41556      IPART1='DX1M'
41557      IPART2='IN  '
41558      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)AV=DX1MIN
41559      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5170
41560C
41561      IPART1='DX1M'
41562      IPART2='AX  '
41563      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)AV=DX1MAX
41564      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5170
41565C
41566      IPART1='DX2M'
41567      IPART2='IN  '
41568      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)AV=DX2MIN
41569      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5170
41570C
41571      IPART1='DX2M'
41572      IPART2='AX  '
41573      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)AV=DX2MAX
41574      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5170
41575C
41576      IPART1='DY1M'
41577      IPART2='IN  '
41578      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)AV=DY1MIN
41579      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5170
41580C
41581      IPART1='DY1M'
41582      IPART2='AX  '
41583      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)AV=DY1MAX
41584      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5170
41585C
41586      IPART1='DY2M'
41587      IPART2='IN  '
41588      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)AV=DY2MIN
41589      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5170
41590C
41591      IPART1='DY2M'
41592      IPART2='AX  '
41593      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)AV=DY2MAX
41594      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5170
41595C
41596CCCCC NX1COO, ETC.
41597C               ************************************
41598C               **  STEP 4A--                     **
41599C               **  PROBE PLOT CONTROL VARIABLES  **
41600C               ************************************
41601C
41602      IPART1='NX1C'
41603      IPART2='OO  '
41604      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)THEN
41605        IV=NX1COO
41606        GOTO5150
41607      ENDIF
41608C
41609      IPART1='MAJO'
41610      IPART2='X1TI'
41611      IPART3='MARK'
41612      IPART4='NUMB'
41613      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
41614     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
41615        IV=NX1COO
41616        GOTO5150
41617      ENDIF
41618C
41619      IPART1='NX2C'
41620      IPART2='OO  '
41621      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)THEN
41622        IV=NX2COO
41623        GOTO5150
41624      ENDIF
41625C
41626      IPART1='MAJO'
41627      IPART2='X2TI'
41628      IPART3='MARK'
41629      IPART4='NUMB'
41630      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
41631     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
41632        IV=NX2COO
41633        GOTO5150
41634      ENDIF
41635C
41636      IPART1='NY1C'
41637      IPART2='OO  '
41638      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)THEN
41639        IV=NY1COO
41640        GOTO5150
41641      ENDIF
41642C
41643      IPART1='MAJO'
41644      IPART2='Y1TI'
41645      IPART3='MARK'
41646      IPART4='NUMB'
41647      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
41648     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
41649        IV=NY1COO
41650        GOTO5150
41651      ENDIF
41652C
41653      IPART1='NY2C'
41654      IPART2='OO  '
41655      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)THEN
41656        IV=NY2COO
41657        GOTO5150
41658      ENDIF
41659C
41660      IPART1='MAJO'
41661      IPART2='Y2TI'
41662      IPART3='MARK'
41663      IPART4='NUMB'
41664      IF(IHARG(1).EQ.IPART1.AND.IHARG(2).EQ.IPART2.AND.
41665     1   IHARG(3).EQ.IPART3.AND.IHARG(4).EQ.IPART4)THEN
41666        IV=NY2COO
41667        GOTO5150
41668      ENDIF
41669C
41670C               ****************************
41671C               **  STEP 4--              **
41672C               **  PROBE DATA VARIABLES  **
41673C               ****************************
41674C
41675      IPART1='MAXN'
41676      IPART2='K   '
41677      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IV=MAXNK
41678      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
41679C
41680      IPART1='NK  '
41681      IPART2='    '
41682      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IV=NK
41683      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
41684C
41685      IPART1='MAXC'
41686      IPART2='OL  '
41687      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IV=MAXCOL
41688      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
41689C
41690      IPART1='NUMC'
41691      IPART2='OL  '
41692      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IV=NUMCOL
41693      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
41694C
41695      IPART1='MAXN'
41696      IPART2='    '
41697      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IV=MAXN
41698      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
41699C
41700      IPART1='N   '
41701      IPART2='    '
41702      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IV=N
41703      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
41704C
41705      IPART1='MAXC'
41706      IPART2='HF  '
41707      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IV=MAXCHF
41708      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
41709C
41710      IPART1='NUMC'
41711      IPART2='HF  '
41712      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IV=NUMCHF
41713      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
41714C
41715      IPART1='MAXF'
41716      IPART2='UN  '
41717      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IV=MAXFUN
41718      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
41719C
41720      IPART1='NUMF'
41721      IPART2='UN  '
41722      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IV=NUMFUN
41723      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
41724C
41725      IPART1='MAXC'
41726      IPART2='HM  '
41727      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IV=MAXCHM
41728      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
41729C
41730      IPART1='NPLO'
41731      IPART2='TP  '
41732      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IV=NPLOTP
41733      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
41734C
41735      IPART1='ILIS'
41736      IPART2='MX  '
41737      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IV=ILISMX
41738      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
41739C
41740      IPART1='LIST'
41741      IPART2='    '
41742      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IV=ILISMX
41743      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
41744C
41745      IPART1='IHEL'
41746      IPART2='MX  '
41747      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IV=IHELMX
41748      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
41749C
41750      IPART1='HELP'
41751      IPART2='    '
41752      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IV=IHELMX
41753      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
41754C
41755      IPART1='REPL'
41756      IPART2='ACE '
41757      IHV='    '
41758      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IHV(1:1)=IREPCH
41759      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
41760C
41761      IPART1='IO  '
41762      IPART2='    '
41763      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IHV=IOSW
41764      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
41765C
41766CCCCC THE FOLLOWING BOX WAS ADDED   MAY 1992
41767C               ****************************
41768C               **  STEP 5--              **
41769C               **  PROBE OTHER VARIABLES **
41770C               ****************************
41771C
41772CCCCC THE FOLLOWING SECTION WAS ADDED   MAY 1992
41773      IPART1='IPL1'
41774      IPART2='CS  '
41775      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)THEN
41776         IFOUND='YES'
41777         WRITE(ICOUT,999)
41778         CALL DPWRST('XXX','BUG ')
41779         WRITE(ICOUT,7011)IPART1,IPART2,IPL1CS
41780 7011    FORMAT('THE FORTRAN 12-CHARACTER VARIABLE ',A4,A4,
41781     1'    HAS THE SETTING     ',A12)
41782         CALL DPWRST('XXX','BUG ')
41783         IPROBS(1:12)=IPL1CS(1:12)
41784         NCPROB=12
41785         GOTO8100
41786      ENDIF
41787C
41788CCCCC THE FOLLOWING SECTION WAS ADDED   MAY 1992
41789      IPART1='IPL2'
41790      IPART2='CS  '
41791      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)THEN
41792         IFOUND='YES'
41793         WRITE(ICOUT,999)
41794         CALL DPWRST('XXX','BUG ')
41795         WRITE(ICOUT,7012)IPART1,IPART2,IPL2CS
41796 7012    FORMAT('THE FORTRAN 12-CHARACTER VARIABLE ',A4,A4,
41797     1'    HAS THE SETTING     ',A12)
41798         CALL DPWRST('XXX','BUG ')
41799         IPROBS(1:12)=IPL2CS(1:12)
41800         NCPROB=12
41801         GOTO8100
41802      ENDIF
41803C
41804C
41805CCCCC THE FOLLOWING SECTION WAS ADDED   MAY 1992
41806      IPART1='IPST'
41807      IPART2='BP  '
41808      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IHV=IPSTBP
41809      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5160
41810C
41811CCCCC THE FOLLOWING SECTION WAS ADDED   MAY 1992
41812      IPART1='IPST'
41813      IPART2='PN  '
41814      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IV=IPSTPN
41815      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
41816C
41817CCCCC THE FOLLOWING SECTION WAS ADDED   FEBRUARY 1993
41818      IF(IHARG(1).EQ.'IMAN'.AND.IHARG2(1).EQ.'UF  ')THEN
41819         IFOUND='YES'
41820         WRITE(ICOUT,999)
41821         CALL DPWRST('XXX','BUG ')
41822         WRITE(ICOUT,7021)IMANUF
41823 7021    FORMAT('THE FORTRAN 4-CHARACTER VARIABLE    IMANUF ',
41824     1'    HAS THE SETTING     ',A4)
41825         CALL DPWRST('XXX','BUG ')
41826         IPROBS(1:4)=IMANUF(1:4)
41827         NCPROB=4
41828         GOTO8100
41829      ENDIF
41830C
41831CCCCC THE FOLLOWING SECTION WAS ADDED   FEBRUARY 1993
41832      IF(IHARG(1).EQ.'IMOD'.AND.IHARG2(1).EQ.'EL  ')THEN
41833         IFOUND='YES'
41834         WRITE(ICOUT,999)
41835         CALL DPWRST('XXX','BUG ')
41836         WRITE(ICOUT,7022)IMODEL
41837 7022    FORMAT('THE FORTRAN 4-CHARACTER VARIABLE    IMODEL ',
41838     1'    HAS THE SETTING     ',A4)
41839         CALL DPWRST('XXX','BUG ')
41840         IPROBS(1:4)=IMODEL(1:4)
41841         NCPROB=4
41842         GOTO8100
41843      ENDIF
41844C
41845CCCCC THE FOLLOWING SECTION WAS ADDED   FEBRUARY 1993
41846      IF(IHARG(1).EQ.'TCLO'.AND.IHARG2(1).EQ.'AD  ')THEN
41847         IFOUND='YES'
41848         WRITE(ICOUT,999)
41849         CALL DPWRST('XXX','BUG ')
41850         WRITE(ICOUT,7023)TCLOAD
41851 7023    FORMAT('THE FORTRAN 4-CHARACTER VARIABLE    TCLOAD ',
41852     1'    HAS THE SETTING     ',A4)
41853         CALL DPWRST('XXX','BUG ')
41854         GOTO9000
41855      ENDIF
41856C
41857CCCCC THE FOLLOWING SECTION WAS ADDED   FEBRUARY 1993
41858      IF(IHARG(1).EQ.'TCME'.AND.IHARG2(1).EQ.'NU  ')THEN
41859         IFOUND='YES'
41860         WRITE(ICOUT,999)
41861         CALL DPWRST('XXX','BUG ')
41862         WRITE(ICOUT,7024)TCMENU
41863 7024    FORMAT('THE FORTRAN 4-CHARACTER VARIABLE    TCMENU ',
41864     1'    HAS THE SETTING     ',A4)
41865         CALL DPWRST('XXX','BUG ')
41866         GOTO9000
41867      ENDIF
41868C
41869CCCCC THE FOLLOWING SECTION WAS ADDED   FEBRUARY 1993
41870      IF(IHARG(1).EQ.'TCPL'.AND.IHARG2(1).EQ.'FI  ')THEN
41871         IFOUND='YES'
41872         WRITE(ICOUT,999)
41873         CALL DPWRST('XXX','BUG ')
41874         WRITE(ICOUT,7025)TCPLFI
41875 7025    FORMAT('THE FORTRAN 4-CHARACTER VARIABLE    TCPLFI ',
41876     1'    HAS THE SETTING     ',A4)
41877         CALL DPWRST('XXX','BUG ')
41878         GOTO9000
41879      ENDIF
41880C
41881CCCCC THE FOLLOWING SECTION WAS ADDED   FEBRUARY 1993
41882      IF(IHARG(1).EQ.'TCTE'.AND.IHARG2(1).EQ.'FI  ')THEN
41883         IFOUND='YES'
41884         WRITE(ICOUT,999)
41885         CALL DPWRST('XXX','BUG ')
41886         WRITE(ICOUT,7026)TCTEFI
41887 7026    FORMAT('THE FORTRAN 4-CHARACTER VARIABLE    TCTEFI ',
41888     1'    HAS THE SETTING     ',A4)
41889         CALL DPWRST('XXX','BUG ')
41890         GOTO9000
41891      ENDIF
41892C
41893CCCCC THE FOLLOWING SECTION WAS ADDED   FEBRUARY 1993
41894      IF(IHARG(1).EQ.'IPLA'.AND.IHARG2(1).EQ.'TF  ')THEN
41895         IFOUND='YES'
41896         WRITE(ICOUT,999)
41897         CALL DPWRST('XXX','BUG ')
41898         WRITE(ICOUT,7027)IPLATF
41899 7027    FORMAT('THE FORTRAN 10-CHARACTER VARIABLE    IPLATF ',
41900     1'    HAS THE SETTING     ',A10)
41901         CALL DPWRST('XXX','BUG ')
41902         IPROBS(1:10)=IPLATF(1:10)
41903         NCPROB=10
41904         GOTO8100
41905      ENDIF
41906CCCCC THE FOLLOWING SECTION WAS ADDED   FEBRUARY 1993
41907CCCCC JUNE 2002.  UPDATE FOR:
41908CCCCC             IDMANU(1),  IDMODE(1), IDMOD2(1), IDMOD3(1)
41909CCCCC             IDMANU(2),  IDMODE(2), IDMOD2(2), IDMOD3(2)
41910CCCCC             IDMANU(3),  IDMODE(3), IDMOD2(3), IDMOD3(3)
41911CCCCC             (TRUNCATE TO IDMAN(1), IDMOD(1), IDMO2(1), IDMO3(1),
41912CCCCC             ETC.)
41913C
41914      IF(IHARG(1).EQ.'IDMA'.AND.IHARG2(1).EQ.'NU  ')THEN
41915         IFOUND='YES'
41916         WRITE(ICOUT,999)
41917         CALL DPWRST('XXX','BUG ')
41918         DO7031I=1,3
41919            WRITE(ICOUT,7032)I,IDMANU(I)
41920 7032       FORMAT('THE FORTRAN 4-CHARACTER VARIABLE ',
41921     1'     IDMANU(',I1,')    HAS THE SETTING     ',A4)
41922         CALL DPWRST('XXX','BUG ')
41923 7031    CONTINUE
41924         IPROBS(1:4)=IDMANU(1)(1:4)
41925         NCPROB=4
41926         GOTO8100
41927      ENDIF
41928C
41929      IF(IHARG(1).EQ.'IDMA'.AND.IHARG2(1).EQ.'N(1)')THEN
41930         IFOUND='YES'
41931         WRITE(ICOUT,999)
41932         CALL DPWRST('XXX','BUG ')
41933         WRITE(ICOUT,7042)IDMANU(1)
41934 7042    FORMAT('THE FORTRAN 4-CHARACTER VARIABLE ',
41935     1'     IDMANU(1) HAS THE SETTING     ',A4)
41936         CALL DPWRST('XXX','BUG ')
41937         IPROBS(1:4)=IDMANU(1)(1:4)
41938         NCPROB=4
41939         APROBE=-1.0
41940         IF(IDMANU(1).EQ.'X11')APROBE=1.0
41941         IF(IDMANU(1).EQ.'QWIN')APROBE=2.0
41942         IF(IDMANU(1).EQ.'REGI')APROBE=3.0
41943         IF(IDMANU(1).EQ.'TEKT')APROBE=4.0
41944         IF(IDMANU(1).EQ.'OPGL')APROBE=5.0
41945         IF(IDMANU(1).EQ.'QUAR')APROBE=6.0
41946         IF(IDMANU(1).EQ.'MACI')APROBE=6.0
41947         IF(IDMANU(1).EQ.'POST')APROBE=7.0
41948         IF(IDMANU(1).EQ.'PS  ')APROBE=7.0
41949         IF(IDMANU(1).EQ.'HP')APROBE=8.0
41950         IF(IDMANU(1).EQ.'HPGL')APROBE=8.0
41951         IF(IDMANU(1).EQ.'GENE')APROBE=9.0
41952         IF(IDMANU(1).EQ.'GD')APROBE=10.0
41953         IF(IDMANU(1).EQ.'QUIC')APROBE=11.0
41954         IF(IDMANU(1).EQ.'CALC')APROBE=12.0
41955         IF(IDMANU(1).EQ.'ZETA')APROBE=13.0
41956         IF(IDMANU(1).EQ.'GKS')APROBE=14.0
41957         IF(IDMANU(1).EQ.'LAHE')APROBE=15.0
41958         IF(IDMANU(1).EQ.'PRIN')APROBE=16.0
41959         IF(IDMANU(1).EQ.'LATE')APROBE=17.0
41960         IF(IDMANU(1).EQ.'SVG')APROBE=18.0
41961         IF(IDMANU(1).EQ.'DISC')APROBE=19.0
41962         CALL DPADDP('PROB','EVAL',APROBE,IHOST1,ISUBN0,
41963     1               IHNAME,IHNAM2,IUSE,VALUE,IVALUE,NUMNAM,MAXNAM,
41964     1                IANS,IWIDTH,IBUGUG,IERROR)
41965         GOTO8100
41966      ENDIF
41967C
41968      IF(IHARG(1).EQ.'IDMA'.AND.IHARG2(1).EQ.'N(2)')THEN
41969         IFOUND='YES'
41970         WRITE(ICOUT,999)
41971         CALL DPWRST('XXX','BUG ')
41972         WRITE(ICOUT,7044)IDMANU(2)
41973 7044    FORMAT('THE FORTRAN 4-CHARACTER VARIABLE ',
41974     1'     IDMANU(2) HAS THE SETTING     ',A4)
41975         CALL DPWRST('XXX','BUG ')
41976         IPROBS(1:4)=IDMANU(2)(1:4)
41977         NCPROB=4
41978         APROBE=-1.0
41979         IF(IDMANU(2).EQ.'X11')APROBE=1.0
41980         IF(IDMANU(2).EQ.'QWIN')APROBE=2.0
41981         IF(IDMANU(2).EQ.'REGI')APROBE=3.0
41982         IF(IDMANU(2).EQ.'TEKT')APROBE=4.0
41983         IF(IDMANU(2).EQ.'OPGL')APROBE=5.0
41984         IF(IDMANU(2).EQ.'QUAR')APROBE=6.0
41985         IF(IDMANU(2).EQ.'MACI')APROBE=6.0
41986         IF(IDMANU(2).EQ.'POST')APROBE=7.0
41987         IF(IDMANU(2).EQ.'PS  ')APROBE=7.0
41988         IF(IDMANU(2).EQ.'HP')APROBE=8.0
41989         IF(IDMANU(2).EQ.'GENE')APROBE=9.0
41990         IF(IDMANU(2).EQ.'GD')APROBE=10.0
41991         IF(IDMANU(2).EQ.'QUIC')APROBE=11.0
41992         IF(IDMANU(2).EQ.'CALC')APROBE=12.0
41993         IF(IDMANU(2).EQ.'ZETA')APROBE=13.0
41994         IF(IDMANU(2).EQ.'GKS')APROBE=14.0
41995         IF(IDMANU(2).EQ.'LAHE')APROBE=15.0
41996         IF(IDMANU(2).EQ.'PRIN')APROBE=16.0
41997         IF(IDMANU(2).EQ.'LATE')APROBE=17.0
41998         IF(IDMANU(2).EQ.'SVG')APROBE=18.0
41999         IF(IDMANU(2).EQ.'DISC')APROBE=19.0
42000         CALL DPADDP('PROB','EVAL',APROBE,IHOST1,ISUBN0,
42001     1               IHNAME,IHNAM2,IUSE,VALUE,IVALUE,NUMNAM,MAXNAM,
42002     1                IANS,IWIDTH,IBUGUG,IERROR)
42003         GOTO8100
42004      ENDIF
42005C
42006      IF(IHARG(1).EQ.'IDMA'.AND.IHARG2(1).EQ.'N(3)')THEN
42007         IFOUND='YES'
42008         WRITE(ICOUT,999)
42009         CALL DPWRST('XXX','BUG ')
42010         WRITE(ICOUT,7046)IDMANU(3)
42011 7046    FORMAT('THE FORTRAN 4-CHARACTER VARIABLE ',
42012     1'     IDMANU(3) HAS THE SETTING     ',A4)
42013         CALL DPWRST('XXX','BUG ')
42014         IPROBS(1:4)=IDMANU(3)(1:4)
42015         NCPROB=4
42016         APROBE=-1.0
42017         IF(IDMANU(3).EQ.'X11')APROBE=1.0
42018         IF(IDMANU(3).EQ.'QWIN')APROBE=2.0
42019         IF(IDMANU(3).EQ.'REGI')APROBE=3.0
42020         IF(IDMANU(3).EQ.'TEKT')APROBE=4.0
42021         IF(IDMANU(3).EQ.'OPGL')APROBE=5.0
42022         IF(IDMANU(3).EQ.'QUAR')APROBE=6.0
42023         IF(IDMANU(3).EQ.'MACI')APROBE=6.0
42024         IF(IDMANU(3).EQ.'POST')APROBE=7.0
42025         IF(IDMANU(3).EQ.'PS  ')APROBE=7.0
42026         IF(IDMANU(3).EQ.'HP')APROBE=8.0
42027         IF(IDMANU(3).EQ.'GENE')APROBE=9.0
42028         IF(IDMANU(3).EQ.'GD')APROBE=10.0
42029         IF(IDMANU(3).EQ.'QUIC')APROBE=11.0
42030         IF(IDMANU(3).EQ.'CALC')APROBE=12.0
42031         IF(IDMANU(3).EQ.'ZETA')APROBE=13.0
42032         IF(IDMANU(3).EQ.'GKS')APROBE=14.0
42033         IF(IDMANU(3).EQ.'LAHE')APROBE=15.0
42034         IF(IDMANU(3).EQ.'PRIN')APROBE=16.0
42035         IF(IDMANU(3).EQ.'LATE')APROBE=17.0
42036         IF(IDMANU(3).EQ.'SVG')APROBE=18.0
42037         IF(IDMANU(3).EQ.'DISC')APROBE=19.0
42038         CALL DPADDP('PROB','EVAL',APROBE,IHOST1,ISUBN0,
42039     1               IHNAME,IHNAM2,IUSE,VALUE,IVALUE,NUMNAM,MAXNAM,
42040     1                IANS,IWIDTH,IBUGUG,IERROR)
42041         GOTO8100
42042      ENDIF
42043C
42044      IF(IHARG(1).EQ.'IDMO'.AND.IHARG2(1).EQ.'D(1)')THEN
42045         IFOUND='YES'
42046         WRITE(ICOUT,999)
42047         CALL DPWRST('XXX','BUG ')
42048         WRITE(ICOUT,7052)IDMODE(1)
42049 7052    FORMAT('THE FORTRAN 4-CHARACTER VARIABLE ',
42050     1'     IDMODE(1) HAS THE SETTING     ',A4)
42051         CALL DPWRST('XXX','BUG ')
42052         IPROBS(1:4)=IDMODE(1)(1:4)
42053         NCPROB=4
42054         GOTO8100
42055      ENDIF
42056C
42057      IF(IHARG(1).EQ.'IDMO'.AND.IHARG2(1).EQ.'D(2)')THEN
42058         IFOUND='YES'
42059         WRITE(ICOUT,999)
42060         CALL DPWRST('XXX','BUG ')
42061         WRITE(ICOUT,7054)IDMODE(2)
42062 7054    FORMAT('THE FORTRAN 4-CHARACTER VARIABLE ',
42063     1'     IDMODE(2) HAS THE SETTING     ',A4)
42064         CALL DPWRST('XXX','BUG ')
42065         IPROBS(1:4)=IDMODE(2)(1:4)
42066         NCPROB=4
42067         GOTO8100
42068      ENDIF
42069C
42070      IF(IHARG(1).EQ.'IDMO'.AND.IHARG2(1).EQ.'D(3)')THEN
42071         IFOUND='YES'
42072         WRITE(ICOUT,999)
42073         CALL DPWRST('XXX','BUG ')
42074         WRITE(ICOUT,7056)IDMODE(3)
42075 7056    FORMAT('THE FORTRAN 4-CHARACTER VARIABLE ',
42076     1'     IDMODE(3) HAS THE SETTING     ',A4)
42077         CALL DPWRST('XXX','BUG ')
42078         IPROBS(1:4)=IDMODE(3)(1:4)
42079         NCPROB=4
42080         GOTO8100
42081      ENDIF
42082C
42083      IF(IHARG(1).EQ.'IDMO'.AND.IHARG2(1).EQ.'2(1)')THEN
42084         IFOUND='YES'
42085         WRITE(ICOUT,999)
42086         CALL DPWRST('XXX','BUG ')
42087         WRITE(ICOUT,7062)IDMOD2(1)
42088 7062    FORMAT('THE FORTRAN 4-CHARACTER VARIABLE ',
42089     1'     IDMOD2(1) HAS THE SETTING     ',A4)
42090         CALL DPWRST('XXX','BUG ')
42091         IPROBS(1:4)=IDMOD2(1)(1:4)
42092         NCPROB=4
42093         GOTO8100
42094      ENDIF
42095C
42096      IF(IHARG(1).EQ.'IDMO'.AND.IHARG2(1).EQ.'2(2)')THEN
42097         IFOUND='YES'
42098         WRITE(ICOUT,999)
42099         CALL DPWRST('XXX','BUG ')
42100         WRITE(ICOUT,7064)IDMOD2(2)
42101 7064    FORMAT('THE FORTRAN 4-CHARACTER VARIABLE ',
42102     1'     IDMOD2(2) HAS THE SETTING     ',A4)
42103         CALL DPWRST('XXX','BUG ')
42104         IPROBS(1:4)=IDMOD2(2)(1:4)
42105         NCPROB=4
42106         GOTO8100
42107      ENDIF
42108C
42109      IF(IHARG(1).EQ.'IDMO'.AND.IHARG2(1).EQ.'2(3)')THEN
42110         IFOUND='YES'
42111         WRITE(ICOUT,999)
42112         CALL DPWRST('XXX','BUG ')
42113         WRITE(ICOUT,7066)IDMOD2(3)
42114 7066    FORMAT('THE FORTRAN 4-CHARACTER VARIABLE ',
42115     1'     IDMOD2(3) HAS THE SETTING     ',A4)
42116         CALL DPWRST('XXX','BUG ')
42117         IPROBS(1:4)=IDMOD2(3)(1:4)
42118         NCPROB=4
42119         GOTO8100
42120      ENDIF
42121C
42122      IF(IHARG(1).EQ.'IDMO'.AND.IHARG2(1).EQ.'3(1)')THEN
42123         IFOUND='YES'
42124         WRITE(ICOUT,999)
42125         CALL DPWRST('XXX','BUG ')
42126         WRITE(ICOUT,7072)IDMOD3(1)
42127 7072    FORMAT('THE FORTRAN 4-CHARACTER VARIABLE ',
42128     1'     IDMOD3(1) HAS THE SETTING     ',A4)
42129         CALL DPWRST('XXX','BUG ')
42130         IPROBS(1:4)=IDMOD3(1)(1:4)
42131         NCPROB=4
42132         GOTO8100
42133      ENDIF
42134C
42135      IF(IHARG(1).EQ.'IDMO'.AND.IHARG2(1).EQ.'3(2)')THEN
42136         IFOUND='YES'
42137         WRITE(ICOUT,999)
42138         CALL DPWRST('XXX','BUG ')
42139         WRITE(ICOUT,7074)IDMOD3(2)
42140 7074    FORMAT('THE FORTRAN 4-CHARACTER VARIABLE ',
42141     1'     IDMOD3(2) HAS THE SETTING     ',A4)
42142         CALL DPWRST('XXX','BUG ')
42143         IPROBS(1:4)=IDMOD3(2)(1:4)
42144         NCPROB=4
42145         GOTO8100
42146      ENDIF
42147C
42148      IF(IHARG(1).EQ.'IDMO'.AND.IHARG2(1).EQ.'3(3)')THEN
42149         IFOUND='YES'
42150         WRITE(ICOUT,999)
42151         CALL DPWRST('XXX','BUG ')
42152         WRITE(ICOUT,7076)IDMOD3(3)
42153 7076    FORMAT('THE FORTRAN 4-CHARACTER VARIABLE ',
42154     1'     IDMOD3(3) HAS THE SETTING     ',A4)
42155         CALL DPWRST('XXX','BUG ')
42156         IPROBS(1:4)=IDMOD3(3)(1:4)
42157         NCPROB=4
42158         GOTO8100
42159      ENDIF
42160C
42161CCCCC THE FOLLOWING SECTION WAS ADDED   MAY 1993
42162      IPART1='MINM'
42163      IPART2='AX  '
42164      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)IV=MINMAX
42165      IF(IHARG(1).EQ.IPART1.AND.IHARG2(1).EQ.IPART2)GOTO5150
42166C
42167CCCCC THE FOLLOWING BOX WAS ADDED   MAY 1992
42168C               ****************************
42169C               **  STEP 6--              **
42170C               **  WRITE OUT VALUES      **
42171C               ****************************
42172C
42173C
42174      IERROR='YES'
42175      WRITE(ICOUT,999)
42176  999 FORMAT(1X)
42177      CALL DPWRST('XXX','BUG ')
42178      WRITE(ICOUT,5131)
42179 5131 FORMAT('***** ERROR IN DPPROB--')
42180      CALL DPWRST('XXX','BUG ')
42181      WRITE(ICOUT,5132)
42182 5132 FORMAT('      THE SPECIFIED FORTRAN COMMON VARIABLE ')
42183      CALL DPWRST('XXX','BUG ')
42184      WRITE(ICOUT,5133)
42185 5133 FORMAT('      IN THE PROBE COMMAND WAS NOT FOUND.')
42186      CALL DPWRST('XXX','BUG ')
42187      WRITE(ICOUT,5134)IHARG(1),IHARG2(1)
42188 5134 FORMAT('      THE SPECIFIED FORTRAN COMMON VARIABLE WAS ',
42189     1A4,A4)
42190      CALL DPWRST('XXX','BUG ')
42191      WRITE(ICOUT,5135)
42192 5135 FORMAT('      ILLUSTRATIVE EXAMPLE TO DEMONSTRATE')
42193      CALL DPWRST('XXX','BUG ')
42194      WRITE(ICOUT,5136)
42195 5136 FORMAT('      THE PROPER FORM--')
42196      CALL DPWRST('XXX','BUG ')
42197      WRITE(ICOUT,5137)
42198 5137 FORMAT('      SUPPOSE THE ANALYST WISHES TO DUMP OUT')
42199      CALL DPWRST('XXX','BUG ')
42200      WRITE(ICOUT,5138)
42201 5138 FORMAT('      THE CURRENT VALUE OF THE FORTRAN COMMON ')
42202      CALL DPWRST('XXX','BUG ')
42203      WRITE(ICOUT,5139)
42204 5139 FORMAT('      VARIABLE   MAXCOL   ,')
42205      CALL DPWRST('XXX','BUG ')
42206      WRITE(ICOUT,5140)
42207 5140 FORMAT('      THIS MAY BE DONE BY ENTERING')
42208      CALL DPWRST('XXX','BUG ')
42209      WRITE(ICOUT,5141)
42210 5141 FORMAT('      PROBE MAXCOL')
42211      CALL DPWRST('XXX','BUG ')
42212      GOTO9000
42213C
42214 5150 CONTINUE
42215      IFOUND='YES'
42216      WRITE(ICOUT,999)
42217      CALL DPWRST('XXX','BUG ')
42218      WRITE(ICOUT,5151)IPART1,IPART2,IV
42219 5151 FORMAT('THE FORTRAN COMMON SCALAR ',A4,A4,
42220     1' HAS THE VALUE ',I8)
42221      CALL DPWRST('XXX','BUG ')
42222C
42223      APROBE=REAL(IV)
42224      GOTO8000
42225C
42226 5160 CONTINUE
42227      IFOUND='YES'
42228      WRITE(ICOUT,999)
42229      CALL DPWRST('XXX','BUG ')
42230      WRITE(ICOUT,5161)IPART1,IPART2,IHV
42231 5161 FORMAT('THE FORTRAN COMMON CHARACTER ',A4,A4,
42232     1' HAS THE SETTING     ',A4,2X,A4)
42233      CALL DPWRST('XXX','BUG ')
42234C
42235 5163 CONTINUE
42236      IPROBS=' '
42237      IPROBS(1:4)=IHV(1:4)
42238      NCPROB=4
42239      GOTO8100
42240C
42241 5170 CONTINUE
42242      IFOUND='YES'
42243      WRITE(ICOUT,999)
42244      CALL DPWRST('XXX','BUG ')
42245      WRITE(ICOUT,5171)IPART1,IPART2,AV
42246 5171 FORMAT('THE FORTRAN COMMON SCALAR ',A4,A4,
42247     1' HAS THE VALUE ',E15.7)
42248      CALL DPWRST('XXX','BUG ')
42249C
42250 5173 CONTINUE
42251      APROBE=AV
42252      GOTO8000
42253C
42254 5250 CONTINUE
42255      IFOUND='YES'
42256      WRITE(ICOUT,999)
42257      CALL DPWRST('XXX','BUG ')
42258      WRITE(ICOUT,5251)IEL,IPART1,IPART2,IV
42259 5251 FORMAT('ELEMENT ',I8,' OF THE FORTRAN COMMON VARIABLE ',A4,A4,
42260     1' HAS THE VALUE ',I8)
42261      CALL DPWRST('XXX','BUG ')
42262      APROBE=REAL(IV+0.5)
42263      GOTO8000
42264C
42265 5260 CONTINUE
42266      IFOUND='YES'
42267      WRITE(ICOUT,999)
42268      CALL DPWRST('XXX','BUG ')
42269      WRITE(ICOUT,5261)IEL,IPART1,IPART2,IHV
42270 5261 FORMAT('ELEMENT ',I8,' OF THE FORTRAN COMMON VARIABLE ',A4,A4,
42271     1' HAS THE SETTING     ',A4)
42272      CALL DPWRST('XXX','BUG ')
42273      IPROBS(1:4)=IHV(1:4)
42274      NCPROB=4
42275      GOTO8100
42276C
42277 5270 CONTINUE
42278      IFOUND='YES'
42279      WRITE(ICOUT,999)
42280      CALL DPWRST('XXX','BUG ')
42281      WRITE(ICOUT,5271)IEL,IPART1,IPART2,AV
42282 5271 FORMAT('ELEMENT ',I8,' OF THE FORTRAN COMMON VARIABLE ',A4,A4,
42283     1' HAS THE VALUE ',E15.7)
42284      CALL DPWRST('XXX','BUG ')
42285      APROBE=AV
42286      GOTO8000
42287C
42288 5360 CONTINUE
42289      IFOUND='YES'
42290      WRITE(ICOUT,999)
42291      CALL DPWRST('XXX','BUG ')
42292      WRITE(ICOUT,5361)IPART1,IPART2,ISTRIN(1:12)
42293 5361 FORMAT('THE FORTRAN COMMON CHARACTER VARIABLE ',A4,A4,
42294     1' HAS THE SETTING ',A12)
42295      CALL DPWRST('XXX','BUG ')
42296      IPROBS(1:12)=ISTRIN(1:12)
42297      NCPROB=12
42298      GOTO8100
42299C
42300 5370 CONTINUE
42301      IFOUND='YES'
42302      WRITE(ICOUT,999)
42303      CALL DPWRST('XXX','BUG ')
42304      WRITE(ICOUT,5371)IPART1,IPART2,ISTRIN
42305 5371 FORMAT('THE FORTRAN COMMON CHAR. VAR. ',A4,A4,
42306     1' = ',A80)
42307      CALL DPWRST('XXX','BUG ')
42308      IPROBS(1:80)=ISTRIN(1:80)
42309      NCPROB=80
42310      GOTO8100
42311C
42312 5410 CONTINUE
42313      IFOUND='YES'
42314      WRITE(ICOUT,999)
42315      CALL DPWRST('XXX','BUG ')
42316      WRITE(ICOUT,5411)NUMNAM
42317 5411 FORMAT('NUMNAM = ',I8)
42318      CALL DPWRST('XXX','BUG ')
42319      WRITE(ICOUT,5412)
42320 5412 FORMAT('I,IHNAME(I),IHNAME2(I),IUSE(I),IN(I),',
42321     1'IVALUE(I),IVALU2(I),VALUE(I)')
42322      CALL DPWRST('XXX','BUG ')
42323      DO5413I=1,NUMNAM
42324      WRITE(ICOUT,5414)I,IHNAME(I),IHNAM2(I),IUSE(I),IN(I),
42325     1IVALUE(I),IVALU2(I),VALUE(I)
42326 5414 FORMAT(I8,2X,A4,2X,A4,2X,A4,I8,I8,I8,E15.7)
42327      CALL DPWRST('XXX','BUG ')
42328 5413 CONTINUE
42329      GOTO9000
42330C
42331C               ********************
42332C               **  STEP 80--     **
42333C               **  UPDATE APROBE **
42334C               ********************
42335C
42336 8000 CONTINUE
42337      CALL DPADDP('PROB','EVAL',APROBE,IHOST1,ISUBN0,
42338     1IHNAME,IHNAM2,IUSE,VALUE,IVALUE,NUMNAM,MAXNAM,
42339     1IANS,IWIDTH,IBUGUG,IERROR)
42340      GOTO9000
42341C
42342C               ********************
42343C               **  STEP 81--     **
42344C               **  UPDATE IPROBS **
42345C               ********************
42346C
42347 8100 CONTINUE
42348      NJUNK=NCPROB
42349      DO8110J=NJUNK,1,-1
42350        NCPROB=J
42351        IF(IPROBS(J:J).NE.' ')GOTO8112
42352 8110 CONTINUE
42353 8112 CONTINUE
42354C
42355      DO5110I=1,NCPROB
42356        IFUNC3(I)(1:4)='    '
42357        IFUNC3(I)(1:1)=IPROBS(I:I)
423585110  CONTINUE
42359      CALL UPDATF('PROB','ESTR',IFUNC3,NCPROB,'CHAD','NO  ',
42360     1   IHNAME,IHNAM2,IUSE,IN,IVSTAR,IVSTOP,
42361     1   NUMNAM,MAXNAM,IANS,IWIDTH,ILISTL,NEWNAM,MAXN3,
42362     1   IFUNC,NUMCHF,MAXCHF,IBUGUG,ILOCN,IFOUND,IERROR)
42363C
42364CCCCC JUNE 2002.  IF PROBS IS <ON/OFF> OR <OPEN/CLOSED>, THEN
42365CCCCC SET APROBE TO 1/0.
42366C
42367      IF(IPROBS(1:3).EQ.'OFF' .OR. IPROBS(1:6).EQ.'CLOSED' .OR.
42368     1   IPROBS(1:2).EQ.'NO')THEN
42369         APROBE=0.0
42370         CALL DPADDP('PROB','EVAL',APROBE,IHOST1,ISUBN0,
42371     1               IHNAME,IHNAM2,IUSE,VALUE,IVALUE,NUMNAM,MAXNAM,
42372     1               IANS,IWIDTH,IBUGUG,IERROR)
42373      ELSEIF(IPROBS(1:2).EQ.'ON' .OR. IPROBS(1:4).EQ.'OPEN' .OR.
42374     1   IPROBS(1:3).EQ.'YES')THEN
42375         APROBE=1.0
42376         CALL DPADDP('PROB','EVAL',APROBE,IHOST1,ISUBN0,
42377     1               IHNAME,IHNAM2,IUSE,VALUE,IVALUE,NUMNAM,MAXNAM,
42378     1               IANS,IWIDTH,IBUGUG,IERROR)
42379      ENDIF
42380      GOTO9000
42381C
42382C               *****************
42383C               **  STEP 90--  **
42384C               **   EXIT      **
42385C               *****************
42386C
42387 9000 CONTINUE
42388      RETURN
42389      END
42390      SUBROUTINE INITPC(IBUGIN)
42391C
42392C     PURPOSE--THIS IS SUBROUTING INITPC.
42393C              (THE   PC    AT THE END OF    INITPC   STANDS FOR   PLOT CO
42394C              THIS SUBROUTINE INITIALIZES PLOT CONTROL VARIABLES AND PARAMETERS
42395C     WRITTEN BY--JAMES J. FILLIBEN
42396C                 STATISTICAL ENGINEERING DIVISION
42397C                 INFORMATION TECHNOLOGY LABORATORY
42398C                 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY
42399C                 GAITHERSBURG, MD 20899
42400C                 PHONE--301-975-2855
42401C     NOTE--DATAPLOT IS A REGISTERED TRADEMARK
42402C           OF THE NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY.
42403C     LANGUAGE--ANSI FORTRAN (1977)
42404C     VERSION NUMBER--82.6
42405C     ORIGINAL VERSION--SEPTEMBER 1980.
42406C     UPDATED         --MARCH     1981.
42407C     UPDATED         --APRIL     1981.
42408C     UPDATED         --JUNE      1981.
42409C     UPDATED         --AUGUST    1981.
42410C     UPDATED         --SEPTEMBER 1981.
42411C     UPDATED         --OCTOBER   1981.
42412C     UPDATED         --NOVEMBER  1981.
42413C     UPDATED         --MAY       1982.
42414C     UPDATED         --DECEMBER  1987.  FINAL CURSOR POS. FOR TEK TO QMS (ALAN)
42415C     UPDATED         --SEPTEMBER 1988.  (MOVE 3-D EYE, ETC. TO INIT3D)
42416C     UPDATED         --JANUARY   1989.  (NON-SOLID REGION FILL INFINITE LOOP)
42417C     UPDATED         --FEBRUARY  1989.  Z AXIS (FOR 3-D) SETTINGS
42418C     UPDATED         --FEBRUARY  1989.  SOFT-CODING (ALAN)
42419C     UPDATED         --APRIL     1989.  SOFT-CODED BACKSLASH FOR UNIX
42420C     UPDATED         --APRIL     1989.  ANIMATION SWITCH
42421C     UPDATED         --APRIL     1989.  BOX COLOR FROM BLUE TO WHITE
42422C     UPDATED         --JULY      1989.  CHANGE Y & ZLABEL DISPLACEMENT
42423C     UPDATED         --AUGUST    1990.  WINDOW MANAGER
42424C     UPDATED         --AUGUST    1990.  MENU SELECTOR
42425C     UPDATED         --JUNE      1992.  DEFAULT BACKGROUND TO WHITE
42426C     UPDATED         --AUGUST    1992.  BOX SHADOW HEIGHT & WIDTH
42427C     UPDATED         --AUGUST    1992.  BOX DEFAULTS
42428C     UPDATED         --OCTOBER   1992.  ADD CHARACTER STATEMENTS
42429C     UPDATED         --OCTOBER   1993.  ADD REGION BASE INTERPOLATE
42430C     UPDATED         --MARCH     1994.  ADD REGION BASE POLYGON
42431C     UPDATED         --DECEMBER  1994.  EXACT CHARACTER MAPPING
42432C     UPDATED         --NOVEMBER  1997.  NEW SETTINGS
42433C     UPDATED         --FEBRUARY  1998.  ILINPO, ICHAPO
42434C     UPDATED         --SEPTEMBER 1998.  AMPSCH, AMPSCW
42435C     UPDATED         --OCTOBER   1999.  I..LJU, P..LOF
42436C     UPDATED         --NOVEMBER  1999.  I..LDI, P..LAN
42437C     UPDATED         --NOVEMBER  1999.  SUBREGIONS
42438C     UPDATED         --DECEMBER  1999.  LEGEND UNITS
42439C     UPDATED         --MAY       2015.  EMBED SETTINGS
42440C     UPDATED         --JANUARY   2018.  ICHATY, ILINTY
42441C     UPDATED         --OCTOBER   2018.  PX1LXC, PX1LYC
42442C     UPDATED         --OCTOBER   2018.  PX2LXC, PX2LYC
42443C     UPDATED         --OCTOBER   2018.  PX3LXC, PX3LYC
42444C     UPDATED         --OCTOBER   2018.  PY1LXC, PY1LYC
42445C     UPDATED         --OCTOBER   2018.  PY2LXC, PY2LYC
42446C     UPDATED         --FEBRUARY  2019.  PX1ZGA, PX2ZGA, PY1ZGA, PY2ZGA
42447C
42448C-----CHARACTER STATEMENTS FOR NON-COMMON VARIABLES-------------------
42449C
42450      CHARACTER*4 IBUGIN
42451C
42452      CHARACTER*4 IDEFGC
42453C
42454CCCCC THE FOLLOWING 4 LINES WERE ADDED OCTOBER 1992
42455C
42456      CHARACTER*4 IDEFWM
42457      CHARACTER*4 IWINMA
42458      CHARACTER*4 IDEFMS
42459      CHARACTER*4 IMENSE
42460C
42461C-----COMMON----------------------------------------------------------
42462C
42463      INCLUDE 'DPCOPA.INC'
42464      INCLUDE 'DPCOMC.INC'
42465      INCLUDE 'DPCOPC.INC'
42466      INCLUDE 'DPCODG.INC'
42467      INCLUDE 'DPCOST.INC'
42468CCCCC THE FOLLOWING LINE WAS INSERTED APRIL 1989
42469      INCLUDE 'DPCONP.INC'
42470C
42471C-----COMMON VARIABLES (GENERAL)--------------------------------------
42472C
42473      INCLUDE 'DPCOP2.INC'
42474C
42475C-----START POINT-----------------------------------------------------
42476C
42477      IF(IBUGIN.EQ.'OFF')GOTO99
42478      WRITE(ICOUT,90)
42479   90 FORMAT(1X)
42480      CALL DPWRST('XXX','BUG ')
42481      WRITE(ICOUT,95)
42482   95 FORMAT('***** AT THE BEGINNING OF INITPC--')
42483      CALL DPWRST('XXX','BUG ')
42484   99 CONTINUE
42485C
42486C               ***********************
42487C               **  DEFINE DEFAULTS  **
42488C               ***********************
42489C
42490C     THE FOLLOWING CHANGE WAS MADE AT THE SUGGESTION
42491C     OF MIKE STOLNICKI
42492C
42493CCCCC IDEFGC='RED'
42494CCCCC AUGUST 1992.  DEFAULT BACKGROUND IS WHITE, SET TO BLACK
42495CCCCC IDEFGC='WHIT'
42496      IDEFGC='BLAC'
42497C
42498      IDEFPA='SOLI'
42499      IDEFFO='TEKT'
42500      IDEFCA='UPPE'
42501      IDEFJU='LEFT'
42502      IDEFDI='HORI'
42503      IDEFAU='RADI'
42504      IDEFFI='OFF'
42505      IDEFCO=IDEFGC
42506CCCCC THE FOLLOWING LINE WAS ADDED         DECEMBER 1994
42507CCCCC IDCMAP = DEFAULT CHARACTER MAPPING   DECEMBER 1994
42508      IDCMAP='RANK'
42509CCCCC THE FOLLOWING LINE WAS ADDED         DECEMBER 1999
42510      IDEFUZ='SCRE'
42511C
42512      IDEFDP=(-1)
42513C
42514      PDEFHE=2.0
42515CCCCC PDEFWI=1.5
42516      PDEFWI=1.0
42517CCCCC PDEFVG=1.0
42518      PDEFVG=0.75
42519CCCCC PDEFHG=0.75
42520      PDEFHG=0.25
42521      ADEFAN=0.0
42522      PDEFTH=0.1
42523      PDEFLE=1.0
42524C     FEBRUARY, 1988: INITIALIZE CHARACTER OFFSET
42525      PDEFOF=0.0
42526C
42527CCCCC PDEFDS=3.5
42528      PDEFDS=3.0
42529C
42530CCCCC THE FOLLOWING LINE WAS FIXED TO CURE INVISIBLE TEK 4115 BOXES APRIL 1989
42531CCCCC IDEFXC='BLUE'
42532CCCCC AUGUST 1992.  DEFAULT BACKGROUND IS WHITE, SET TO BLACK
42533CCCCC IDEFXC='WHIT'
42534      IDEFXC='BLAC'
42535      PDEFGA=1.0
42536CCCCC TEKTRONIX CHARACTER CUTOFFS ARE 2.75 2.2 1.65
42537C
42538      PDEFL2=1.0
42539      PDEFL3=1.0
42540      PDEFGA=1.0
42541      PDEFG2=1.0
42542      PDEFG3=1.0
42543C
42544      IDEFCR='ON'
42545      IDEFLF='ON'
42546CCCCC THE FOLLOWING LINE WAS FIXED (SOFT-CODE BACKSLASH) APRIL 1989
42547      IDEFSY=IBASLC
42548      IDEFSP='PROP'
42549      PDEFMR=50.0
42550C
42551CCCCC THE FOLLOWING 2 LINES WERE ADDED AUGUST 1992
42552CCCCC FOR BOX SHADOW HEIGHT & WIDTH AUGUST 1992
42553      PDEFSH=0.8
42554      PDEFSW=0.6
42555C
42556C               ****************************
42557C               **  TREAT THE ARROW CASE  **
42558C               ****************************
42559C
42560C     MAXARR=100
42561      MAXARR=MAXAR
42562      NUMARR=0
42563C
42564      DO100I=1,MAXARR
42565      IARRPA(I)=IDEFPA
42566      IARRCO(I)=IDEFCO
42567      IARHFI(I)=IDEFFI
42568      PARRTH(I)=PDEFTH
42569      PARHLE(I)=PDEFWI
42570      PARHWI(I)=PDEFWI
42571  100 CONTINUE
42572C
42573      DO200I=1,MAXARR
42574      PARRXC(I,1)=CPUMIN
42575      PARRXC(I,2)=CPUMIN
42576      PARRYC(I,1)=CPUMIN
42577      PARRYC(I,2)=CPUMIN
42578  200 CONTINUE
42579C
42580C               ***************************************************
42581C               **  TREAT THE BACKGROUND AND MARGIN COLORS CASE  **
42582C               ***************************************************
42583C
42584CCCCC THE FOLLOWING LINE WAS FIXED JUNE 1992 (JJF)
42585CCCCC TO ACCOMODATE TURBO C FRONT END WHITE BACKGROUND JUNE 1992 (JJF)
42586CCCCC IDEFBK='BLUE'
42587      IDEFBK='WHIT'
42588      IBACCO=IDEFBK
42589C
42590CCCCC AUGUST 1992.  MAKE MARGIN SAME COLOR AS BACKGROUND
42591CCCCC IDEFMC='BLUE'
42592CCCCC IDEFMC='BLUE'
42593      IDEFMC='WHIT'
42594      IMARCO=IDEFMC
42595C
42596CCCCC THE FOLLOWING ANIMATION CHUNCK WAS ADDED APRIL 1989
42597C               **************************************************
42598C               **  TREAT THE ANIMATION SWITCH CASE             **
42599C               **************************************************
42600C
42601      IANISW='OFF'
42602C
42603C               **************************
42604C               **  TREAT THE BOX CASE  **
42605C               **************************
42606C
42607C     MAXBOX=100
42608      MAXBOX=MAXBX
42609      NUMBOX=0
42610C
42611      DO500I=1,MAXBOX
42612      IBOBFI(I)=IDEFFI
42613      IBOBCO(I)=IDEFCO
42614      IBOPPA(I)=IDEFPA
42615CCCCC AUGUST 1992.  FOLLOWING LINE MODIFIED
42616CCCCC IBOPCO(I)=IDEFCO
42617      IBOBPA(I)=IDEFPA
42618CCCCC AUGUST 1992. FOLLOWING LINE MODIFIED
42619CCCCC IBOFPA(I)=IDEFPA
42620      IBOFPA(I)=IDEFFI
42621      IBOFCO(I)=IDEFXC
42622      PBOPTH(I)=PDEFTH
42623      PBOPGA(I)=PDEFGA
42624      PBOFTH(I)=PDEFTH
42625CCCCC THE FOLLOWING 2 LINES WERE ADDED AUGUST 1992
42626CCCCC FOR BOX SHADOW HEIGHT & WIDTH AUGUST 1992
42627      PBOSHE(I)=PDEFSH
42628      PBOSWI(I)=PDEFSW
42629  500 CONTINUE
42630C
42631      DO600I=1,MAXBOX
42632      PBOXXC(I,1)=CPUMIN
42633      PBOXXC(I,2)=CPUMIN
42634      PBOXYC(I,1)=CPUMIN
42635      PBOXYC(I,2)=CPUMIN
42636  600 CONTINUE
42637C
42638C               *********************************
42639C               **  TREAT THE CHARACTERS CASE  **
42640C               *********************************
42641C
42642C     MAXCHA=100
42643      MAXCHA=MAXCH2
42644CCCCC THE FOLLOWING LINE WAS ADDED     DECEMBER 1994
42645CCCCC ICHMAP = CHARACTER MAPPING       DECEMBER 1994
42646      ICHMAP=IDCMAP
42647C
42648      DO700I=1,MAXCHA
42649      ICHAPA(I)='    '
42650CCCCC ADD FOLLOWING LINE FEBRUARY 1998.
42651      ICHAPO(I)='    '
42652      ICHAFO(I)=IDEFFO
42653      ICHACA(I)=IDEFCA
42654      ICHAJU(I)='CECE'
42655      ICHADI(I)=IDEFDI
42656      ICHAFI(I)=IDEFFI
42657      ICHACO(I)=IDEFCO
42658      ICHATY(I)='DD'
42659      PCHAHE(I)=PDEFHE
42660      PCHAWI(I)=PDEFWI
42661      PCHAVG(I)=PDEFVG
42662      PCHAHG(I)=PDEFHG
42663      PCHATH(I)=PDEFTH
42664      ACHAAN(I)=ADEFAN
42665      PCHAHO(I)=PDEFOF
42666      PCHAVO(I)=PDEFOF
42667  700 CONTINUE
42668C
42669C               *********************************
42670C               **  TREAT THE CROSS-HAIR CASE  **
42671C               *********************************
42672C
42673C               ****************************
42674C               **  TREAT THE FRAME CASE  **
42675C               ****************************
42676C
42677      IX1FSW='ON'
42678      IX2FSW='ON'
42679      IY1FSW='ON'
42680      IY2FSW='ON'
42681C
42682      IX1FPA=IDEFPA
42683      IX2FPA=IDEFPA
42684      IY1FPA=IDEFPA
42685      IY2FPA=IDEFPA
42686C
42687      IX1FCO=IDEFCO
42688      IX2FCO=IDEFCO
42689      IY1FCO=IDEFCO
42690      IY2FCO=IDEFCO
42691C
42692      PFRATH=PDEFTH
42693C
42694C               *****************************
42695C               **  TREAT THE LIMITS CASE  **
42696C               *****************************
42697C
42698      PXMIN=15.0
42699      PYMIN=20.0
42700      PXMAX=85.0
42701      PYMAX=90.0
42702C
42703      PWXMIN=0.0
42704      PWYMIN=0.0
42705      PWXMAX=100.0
42706      PWYMAX=100.0
42707C
42708      IX1MIN='FLOA'
42709      IX1MAX='FLOA'
42710      IY1MIN='FLOA'
42711      IY1MAX='FLOA'
42712      IZ1MIN='FLOA'
42713      IZ1MAX='FLOA'
42714C
42715      IX2MIN='FLOA'
42716      IX2MAX='FLOA'
42717      IY2MIN='FLOA'
42718      IY2MAX='FLOA'
42719      IZ2MIN='FLOA'
42720      IZ2MAX='FLOA'
42721C
42722      PDXMIN=CPUMIN
42723      PDXMAX=CPUMAX
42724      PDYMIN=CPUMIN
42725      PDYMAX=CPUMAX
42726      PDZMIN=CPUMIN
42727      PDZMAX=CPUMAX
42728C
42729      PGXMIN=CPUMIN
42730      PGXMAX=CPUMAX
42731      PGYMIN=CPUMIN
42732      PGYMAX=CPUMAX
42733      PGZMIN=CPUMIN
42734      PGZMAX=CPUMAX
42735C
42736      GX1MIN=CPUMIN
42737      GX1MAX=CPUMAX
42738      GY1MIN=CPUMIN
42739      GY1MAX=CPUMAX
42740      GZ1MIN=CPUMIN
42741      GZ1MAX=CPUMAX
42742C
42743      GX2MIN=CPUMIN
42744      GX2MAX=CPUMAX
42745      GY2MIN=CPUMIN
42746      GY2MAX=CPUMAX
42747      GZ2MIN=CPUMIN
42748      GZ2MAX=CPUMAX
42749C
42750      DX1MIN=CPUMIN
42751      DX1MAX=CPUMAX
42752      DY1MIN=CPUMIN
42753      DY1MAX=CPUMAX
42754      DZ1MIN=CPUMIN
42755      DZ1MAX=CPUMAX
42756C
42757      DX2MIN=CPUMIN
42758      DX2MAX=CPUMAX
42759      DY2MIN=CPUMIN
42760      DY2MAX=CPUMAX
42761      DZ2MIN=CPUMIN
42762      DZ2MAX=CPUMAX
42763C
42764      FX1MIN=CPUMIN
42765      FX1MAX=CPUMAX
42766      FY1MIN=CPUMIN
42767      FY1MAX=CPUMAX
42768      FZ1MIN=CPUMIN
42769      FZ1MAX=CPUMAX
42770C
42771      FX2MIN=CPUMIN
42772      FX2MAX=CPUMAX
42773      FY2MIN=CPUMIN
42774      FY2MAX=CPUMAX
42775      FZ2MIN=CPUMIN
42776      FZ2MAX=CPUMAX
42777C
42778CCCCC NOVEMBER 1997.  ADD FOLLOWING LINE
42779      FX1MNZ=CPUMIN
42780      FX1MXZ=CPUMAX
42781      FY1MNZ=CPUMIN
42782      FY1MXZ=CPUMAX
42783      FX2MNZ=CPUMIN
42784      FX2MXZ=CPUMAX
42785      FY2MNZ=CPUMIN
42786      FY2MXZ=CPUMAX
42787C
42788C               ***************************
42789C               **  TREAT THE GRID CASE  **
42790C               ***************************
42791C
42792      IVGRSW='OFF'
42793      IHGRSW='OFF'
42794C
42795C     TH FOLLOWING CHANGES WERE MADE AT THE SUGGESTION
42796C     OF MIKE STOLNICKI
42797C
42798CCCCC IVGRPA=IDEFPA
42799      IVGRPA='DOT'
42800CCCCC IHGRPA=IDEFPA
42801      IHGRPA='DOT'
42802C
42803      IVGRCO=IDEFCO
42804      IHGRCO=IDEFCO
42805C
42806      PVGRTH=PDEFTH
42807      PHGRTH=PDEFTH
42808C
42809C               ****************************
42810C               **  TREAT THE LABEL CASE  **
42811C               ****************************
42812C
42813C     DO1710J=1,130
42814      DO1710J=1,MAXCH
42815      IX1LTE(I)=' '
42816      IX2LTE(I)=' '
42817      IX3LTE(I)=' '
42818      IY1LTE(I)=' '
42819      IY2LTE(I)=' '
42820      IZ1LTE(I)=' '
42821      IZ2LTE(I)=' '
42822 1710 CONTINUE
42823C
42824      NCX1LA=0
42825      IX1LFO=IDEFFO
42826      IX1LCA=IDEFCA
42827      IX1LFI=IDEFFI
42828      IX1LCO=IDEFCO
42829      IX1LJU='CEBO'
42830      IX1LDI='HORI'
42831      PX1LHE=PDEFHE
42832      PX1LWI=PDEFWI
42833      PX1LVG=PDEFVG
42834      PX1LHG=PDEFHG
42835      PX1LTH=PDEFTH
42836CCCCC PX1LDS=2.0*PDEFDS
42837      PX1LDS=2.0+2.0*PDEFDS
42838      PX1LOF=0.0
42839      PX1LAN=0.0
42840      PX1LXC=CPUMIN
42841      PX1LYC=CPUMIN
42842C
42843      NCX2LA=0
42844      IX2LFO=IDEFFO
42845      IX2LCA=IDEFCA
42846      IX2LFI=IDEFFI
42847      IX2LCO=IDEFCO
42848      IX2LJU='CEBO'
42849      IX2LDI='HORI'
42850      PX2LHE=PDEFHE
42851      PX2LWI=PDEFWI
42852      PX2LVG=PDEFVG
42853      PX2LHG=PDEFHG
42854      PX2LTH=PDEFTH
42855CCCCC PX2LDS=3.0*PDEFDS
42856      PX2LDS=2.0+3.0*PDEFDS
42857      PX2LOF=0.0
42858      PX2LAN=0.0
42859      PX2LXC=CPUMIN
42860      PX2LYC=CPUMIN
42861C
42862      NCX3LA=0
42863      IX3LFO=IDEFFO
42864      IX3LCA=IDEFCA
42865      IX3LFI=IDEFFI
42866      IX3LCO=IDEFCO
42867      IX3LJU='CEBO'
42868      IX3LDI='HORI'
42869      PX3LHE=PDEFHE
42870      PX3LWI=PDEFWI
42871      PX3LVG=PDEFVG
42872      PX3LHG=PDEFHG
42873      PX3LTH=PDEFTH
42874CCCCC PX3LDS=4.0*PDEFDS
42875      PX3LDS=2.0+4.0*PDEFDS
42876      PX3LOF=0.0
42877      PX3LAN=0.0
42878      PX3LXC=CPUMIN
42879      PX3LYC=CPUMIN
42880C
42881      NCY1LA=0
42882      IY1LFO=IDEFFO
42883      IY1LCA=IDEFCA
42884      IY1LFI=IDEFFI
42885      IY1LCO=IDEFCO
42886      IY1LJU='CECE'
42887      IY1LDI='VERT'
42888      PY1LHE=PDEFHE
42889      PY1LWI=PDEFWI
42890      PY1LVG=PDEFVG
42891      PY1LHG=PDEFHG
42892      PY1LTH=PDEFTH
42893CCCCC PY1LDS=3.5*PDEFDS
42894CCCCC THE FOLLOWING LINE WAS FIXED JULY 1989
42895CCCCC PY1LDS=2.0+3.0*PDEFDS
42896      PY1LDS=2.0+2.0*PDEFDS
42897      PY1LOF=0.0
42898      PY1LAN=90.0
42899      PY1LXC=CPUMIN
42900      PY1LYC=CPUMIN
42901C
42902      NCY2LA=0
42903      IY2LFO=IDEFFO
42904      IY2LCA=IDEFCA
42905      IY2LFI=IDEFFI
42906      IY2LCO=IDEFCO
42907      IY2LJU='CECE'
42908      IY2LDI='VERT'
42909      PY2LHE=PDEFHE
42910      PY2LWI=PDEFWI
42911      PY2LVG=PDEFVG
42912      PY2LHG=PDEFHG
42913      PY2LTH=PDEFTH
42914CCCCC PY2LDS=3.5*PDEFDS
42915CCCCC THE FOLLOWING LINE WAS FIXED JULY 1989
42916CCCCC PY2LDS=2.0+3.0*PDEFDS
42917      PY2LDS=2.0+2.0*PDEFDS
42918      PY2LOF=0.0
42919      PY2LAN=90.0
42920      PY2LXC=CPUMIN
42921      PY2LYC=CPUMIN
42922C
42923      NCZ1LA=0
42924      IZ1LFO=IDEFFO
42925      IZ1LCA=IDEFCA
42926      IZ1LFI=IDEFFI
42927      IZ1LCO=IDEFCO
42928      IZ1LJU='CENT'
42929      IZ1LDI='HORI'
42930      PZ1LHE=PDEFHE
42931      PZ1LWI=PDEFWI
42932      PZ1LVG=PDEFVG
42933      PZ1LHG=PDEFHG
42934      PZ1LTH=PDEFTH
42935CCCCC PZ1LDS=3.5*PDEFDS
42936CCCCC THE FOLLOWING LINE WAS FIXED JULY 1989
42937CCCCC PZ1LDS=2.0+3.0*PDEFDS
42938      PZ1LDS=2.0+2.0*PDEFDS
42939      PZ1LOF=0.0
42940      PZ1LAN=0.0
42941C
42942      NCZ2LA=0
42943      IZ2LFO=IDEFFO
42944      IZ2LCA=IDEFCA
42945      IZ2LFI=IDEFFI
42946      IZ2LCO=IDEFCO
42947      IZ2LJU='CENT'
42948      IZ2LDI='HORI'
42949      PZ2LHE=PDEFHE
42950      PZ2LWI=PDEFWI
42951      PZ2LVG=PDEFVG
42952      PZ2LHG=PDEFHG
42953      PZ2LTH=PDEFTH
42954CCCCC PZ2LDS=3.5*PDEFDS
42955CCCCC THE FOLLOWING LINE WAS FIXED JULY 1989
42956CCCCC PZ2LDS=2.0+3.0*PDEFDS
42957      PZ2LDS=2.0+2.0*PDEFDS
42958      PZ2LOF=0.0
42959      PZ2LAN=0.0
42960C
42961C               *****************************
42962C               **  TREAT THE LEGEND CASE  **
42963C               *****************************
42964C
42965C     MAXLEG=100
42966      MAXLEG=MAXLG
42967      NUMLEG=0
42968C
42969      DO2000I=1,MAXLEG
42970      ILEGNA(I)=' '
42971      ILEGST(I)=0
42972      ILEGSP(I)=0
42973      ILEGFO(I)=IDEFFO
42974      ILEGCA(I)=IDEFCA
42975      ILEGJU(I)=IDEFJU
42976      ILEGDI(I)=IDEFDI
42977      ILEGFI(I)=IDEFFI
42978      ILEGCO(I)=IDEFCO
42979      PLEGHE(I)=PDEFHE
42980      PLEGWI(I)=PDEFWI
42981      PLEGVG(I)=PDEFVG
42982      PLEGHG(I)=PDEFHG
42983      PLEGTH(I)=PDEFTH
42984      ALEGAN(I)=ADEFAN
42985      ILEGUN(I)=IDEFUZ
42986      PLEGXC(I)=20.0
42987      AI=I
42988      PLEGYC(I)=84.0-(AI-1.0)*4.0
42989 2000 CONTINUE
42990C
42991C     MXCLEG=1000
42992      MXCLEG=MAXLG2
42993      NCLEG=0
42994C
42995      DO2010I=1,MXCLEG
42996      ILEGTE(I)=' '
42997 2010 CONTINUE
42998C
42999C               *********************************
43000C               **  TREAT THE LINES      CASE  **
43001C               *********************************
43002C
43003C     MAXLIN=100
43004      MAXLIN=MAXLN
43005C
43006      DO2500I=1,MAXLIN
43007      ILINPA(I)=IDEFPA
43008CCCCC ADD FOLLOWING LINE FEBRUARY 1998.
43009      ILINPO(I)=IDEFPA
43010      ILINCO(I)=IDEFCO
43011      ILINTY(I)='DD'
43012      PLINTH(I)=PDEFTH
43013      PLINLE(I)=PDEFLE
43014      PLINL2(I)=PDEFL2
43015      PLINL3(I)=PDEFL3
43016      PLINGA(I)=PDEFGA
43017      PLING2(I)=PDEFG2
43018      PLING3(I)=PDEFG3
43019 2500 CONTINUE
43020C
43021C               ***********************************************
43022C               **  TREAT THE ...SCALE (LINEAR OR LOG) CASE  **
43023C               ***********************************************
43024C
43025      IX1TSW='LINE'
43026      IX2TSW='LINE'
43027      IY1TSW='LINE'
43028      IY2TSW='LINE'
43029      IZ1TSW='LINE'
43030      IZ1TSW='LINE'
43031C
43032C               *******************************
43033C               **  TREAT THE PRE-SORT CASE  **
43034C               *******************************
43035C
43036      ISORSW='ON'
43037C
43038C               ****************************
43039C               **  TREAT THE SEGMENT CASE  **
43040C               ****************************
43041C
43042C     MAXSEG=100
43043       MAXSEG=MAXSG
43044      NUMSEG=0
43045C
43046      DO3800I=1,MAXSEG
43047      ISEGPA(I)=IDEFPA
43048      ISEGCO(I)=IDEFCO
43049      PSEGTH(I)=PDEFTH
43050 3800 CONTINUE
43051C
43052      DO3900I=1,MAXSEG
43053      PSEGXC(I,1)=CPUMIN
43054      PSEGXC(I,2)=CPUMIN
43055      PSEGYC(I,1)=CPUMIN
43056      PSEGYC(I,2)=CPUMIN
43057 3900 CONTINUE
43058C
43059C               *****************************
43060C               **  TREAT THE ...TIC CASE  **
43061C               *****************************
43062C
43063      IX1TSW='ON'
43064      IX2TSW='OFF'
43065      IY1TSW='ON'
43066      IY2TSW='OFF'
43067      IZ1TSW='ON'
43068      IZ2TSW='OFF'
43069C
43070      IX1JSW='FLOA'
43071      IX2JSW='FLOA'
43072      IY1JSW='FLOA'
43073      IY2JSW='FLOA'
43074      IZ1JSW='FLOA'
43075      IZ2JSW='FLOA'
43076C
43077      IX1NSW='FLOA'
43078      IX2NSW='FLOA'
43079      IY1NSW='FLOA'
43080      IY2NSW='FLOA'
43081      IZ1NSW='FLOA'
43082      IZ2NSW='FLOA'
43083C
43084      IX1TSC='LINE'
43085      IX2TSC='LINE'
43086      IY1TSC='LINE'
43087      IY2TSC='LINE'
43088      IZ1TSC='LINE'
43089      IZ2TSC='LINE'
43090C
43091      IX1TJU='OUT'
43092      IX2TJU='OUT'
43093      IY1TJU='OUT'
43094      IY2TJU='OUT'
43095      IZ1TJU='OUT'
43096      IZ2TJU='OUT'
43097C
43098      IX1TCO=IDEFCO
43099      IX2TCO=IDEFCO
43100      IY1TCO=IDEFCO
43101      IY2TCO=IDEFCO
43102      IZ1TCO=IDEFCO
43103      IZ2TCO=IDEFCO
43104C
43105      NMJX1T=(-1)
43106      NMJX2T=(-1)
43107      NMJY1T=(-1)
43108      NMJY2T=(-1)
43109      NMJZ1T=(-1)
43110      NMJZ2T=(-1)
43111C
43112      NMNX1T=(-1)
43113      NMNX2T=(-1)
43114      NMNY1T=(-1)
43115      NMNY2T=(-1)
43116      NMNZ1T=(-1)
43117      NMNZ2T=(-1)
43118C
43119      NX1COO=(-1)
43120      NX2COO=(-1)
43121      NY1COO=(-1)
43122      NY2COO=(-1)
43123      NZ1COO=(-1)
43124      NZ2COO=(-1)
43125C
43126      NX1CMN=(-1)
43127      NX2CMN=(-1)
43128      NY1CMN=(-1)
43129      NY2CMN=(-1)
43130      NZ1CMN=(-1)
43131      NZ2CMN=(-1)
43132C
43133      PX1TLE=2.0
43134      PX2TLE=2.0
43135      PY1TLE=2.0
43136      PY2TLE=2.0
43137      PZ1TLE=2.0
43138      PZ2TLE=2.0
43139      PTICTH=0.1
43140      PMNTFA=0.5
43141C
43142C     MAXTIC=100
43143      MAXTIC=MAXTC
43144      DO4310I=1,MAXTIC
43145      PX1COO(I)=CPUMIN
43146      PX2COO(I)=CPUMIN
43147      PY1COO(I)=CPUMIN
43148      PY2COO(I)=CPUMIN
43149      PZ1COO(I)=CPUMIN
43150      PZ2COO(I)=CPUMIN
43151      PX1CMN(I)=CPUMIN
43152      PX2CMN(I)=CPUMIN
43153      PY1CMN(I)=CPUMIN
43154      PY2CMN(I)=CPUMIN
43155      PZ1CMN(I)=CPUMIN
43156      PZ2CMN(I)=CPUMIN
43157 4310 CONTINUE
43158C  FOLLOWING TIC OFFSET VARIABLES ADDED MAY, 1990.
43159      DEFTOF=0.
43160      IDEFTU='DATA'
43161C
43162      ITICUN=IDEFTU
43163      ITICX1=IDEFTU
43164      ITICX2=IDEFTU
43165      ITICY1=IDEFTU
43166      ITICY2=IDEFTU
43167      PX1TOL=DEFTOF
43168      PX2TOL=DEFTOF
43169      PY1TOB=DEFTOF
43170      PY2TOB=DEFTOF
43171      PX1TOR=DEFTOF
43172      PX2TOR=DEFTOF
43173      PY1TOT=DEFTOF
43174      PY2TOT=DEFTOF
43175C  END CHANGES
43176C
43177C               *********************************
43178C               **  TREAT THE TIC LABELS CASE  **
43179C               *********************************
43180C
43181      IX1ZSW='ON'
43182      IX2ZSW='OFF'
43183      IY1ZSW='ON'
43184      IY2ZSW='OFF'
43185      IZ1ZSW='ON'
43186      IZ2ZSW='OFF'
43187C
43188      IX1ZFO=IDEFFO
43189      IX2ZFO=IDEFFO
43190      IY1ZFO=IDEFFO
43191      IY2ZFO=IDEFFO
43192      IZ1ZFO=IDEFFO
43193      IZ2ZFO=IDEFFO
43194C
43195      IX1ZCA=IDEFCA
43196      IX2ZCA=IDEFCA
43197      IY1ZCA=IDEFCA
43198      IY2ZCA=IDEFCA
43199      IZ1ZCA=IDEFCA
43200      IZ2ZCA=IDEFCA
43201C
43202      IX1ZJU='CETO'
43203      IX2ZJU='CEBO'
43204      IY1ZJU='RICE'
43205      IY2ZJU='LECE'
43206      IZ1ZJU='RICE'
43207      IZ2ZJU='LECE'
43208C
43209      IX1ZDI=IDEFDI
43210      IX2ZDI=IDEFDI
43211      IY1ZDI=IDEFDI
43212      IY2ZDI=IDEFDI
43213      IZ1ZDI=IDEFDI
43214      IZ2ZDI=IDEFDI
43215C
43216      IX1ZFI=IDEFFI
43217      IX2ZFI=IDEFFI
43218      IY1ZFI=IDEFFI
43219      IY2ZFI=IDEFFI
43220      IZ1ZFI=IDEFFI
43221      IZ2ZFI=IDEFFI
43222C
43223      IX1ZCO=IDEFCO
43224      IX2ZCO=IDEFCO
43225      IY1ZCO=IDEFCO
43226      IY2ZCO=IDEFCO
43227      IZ1ZCO=IDEFCO
43228      IZ2ZCO=IDEFCO
43229C
43230      IX1ZDP=IDEFDP
43231      IX2ZDP=IDEFDP
43232      IY1ZDP=IDEFDP
43233      IY2ZDP=IDEFDP
43234      IZ1ZDP=IDEFDP
43235      IZ2ZDP=IDEFDP
43236C
43237      PX1ZDS=3.0
43238      PX2ZDS=3.0
43239      PY1ZDS=2.5
43240      PY2ZDS=2.5
43241      PZ1ZDS=2.5
43242      PZ2ZDS=2.5
43243C
43244      PX1ZGA=CPUMIN
43245      PX2ZGA=CPUMIN
43246      PY1ZGA=CPUMIN
43247      PY2ZGA=CPUMIN
43248      PZ1ZGA=CPUMIN
43249      PZ2ZGA=CPUMIN
43250C
43251      AX1ZAN=0.0
43252      AX2ZAN=0.0
43253      AY1ZAN=0.0
43254      AY2ZAN=0.0
43255      AZ1ZAN=0.0
43256      AZ2ZAN=0.0
43257C
43258      PX1ZHE=PDEFHE
43259      PX2ZHE=PDEFHE
43260      PY1ZHE=PDEFHE
43261      PY2ZHE=PDEFHE
43262      PZ1ZHE=PDEFHE
43263      PZ2ZHE=PDEFHE
43264C
43265      PX1ZWI=PDEFWI
43266      PX2ZWI=PDEFWI
43267      PY1ZWI=PDEFWI
43268      PY2ZWI=PDEFWI
43269      PZ1ZWI=PDEFWI
43270      PZ2ZWI=PDEFWI
43271C
43272      PX1ZVG=PDEFVG
43273      PX2ZVG=PDEFVG
43274      PY1ZVG=PDEFVG
43275      PY2ZVG=PDEFVG
43276      PZ1ZVG=PDEFVG
43277      PZ2ZVG=PDEFVG
43278C
43279      PX1ZHG=PDEFHG
43280      PX2ZHG=PDEFHG
43281      PY1ZHG=PDEFHG
43282      PY2ZHG=PDEFHG
43283      PZ1ZHG=PDEFHG
43284      PZ2ZHG=PDEFHG
43285C
43286      PTIZTH=PDEFTH
43287C
43288C               ****************************
43289C               **  TREAT THE TITLE CASE  **
43290C               ****************************
43291C
43292C     DO4500I=1,130
43293      DO4500I=1,MAXCH
43294      ITITTE(I)=' '
43295 4500 CONTINUE
43296C
43297      NCTITL=0
43298      ITITFO=IDEFFO
43299      ITITCA=IDEFCA
43300      ITITFI=IDEFFI
43301      ITITCO=IDEFCO
43302      PTITHE=PDEFHE
43303      PTITWI=PDEFWI
43304      PTITVG=PDEFVG
43305      PTITHG=PDEFHG
43306      PTITTH=PDEFTH
43307CCCCC PTITDS=2.0*PDEFDS
43308CCCCC PTITDS=2.0+2.0*PDEFDS
43309      PTITDS=1.0+2.0*PDEFDS
43310C
43311C               ************************************
43312C               **  TREAT THE MISCELLANEOUS CASE  **
43313C               ************************************
43314C
43315      IBELSW='ON'
43316      NUMRIN=1
43317      IERASW='ON'
43318      ICOPSW='OFF'
43319      NUMCOP=1
43320      IPENSW='OFF'
43321      IFENSW='OFF'
43322      INEGSW='OFF'
43323      IHORSW='OFF'
43324      ISEQSW='OFF'
43325      NUMSEQ=1
43326C
43327      BAWIDT=1.0
43328      BARSPA=0.1
43329      DEFBAS=0.1
43330C
43331      PGRAXF=5.0
43332      PGRAYF=95.0
43333C  DECEMBER 1987: FOR TEKTRONIX FILE SENT TO QMS, LEAVING CURSUR
43334C  AT BOTTOM OF SCREEN CAUSES "HOLD SCREENS" ON QMS, RESULTING
43335C  IN NUMEROUS UNDESIRED "PAGE EJECTS".  POSITION AT TOP OF
43336C  SCREEN.
43337CCCCC PGRAYF=15.0
43338CCCCC PDIAXC=5.0
43339CCCCC PDIAYC=95.0
43340      PDIAXC=5.0
43341CCCCC PDIAYC=15.0
43342      PDIAYC=95.0
43343      PDIAX2=PDIAXC
43344      PDIAY2=PDIAYC
43345      PDIAHE=PDEFHE/2.0
43346      PDIAWI=PDEFWI/2.0
43347CCCCC PDIAVG=PDEFVG/2.0
43348      PDIAVG=0.0
43349      PDIAHG=PDEFHG/2.0
43350C
43351C               ***************************
43352C               **  TREAT THE TEXT CASE  **
43353C               ***************************
43354C
43355      ITEXPA=IDEFPA
43356      ITEXFO=IDEFFO
43357      ITEXCA=IDEFCA
43358      ITEXJU=IDEFJU
43359      ITEXDI=IDEFDI
43360      ITEXAU=IDEFAU
43361      ITEXFI=IDEFFI
43362      ITEXCO=IDEFCO
43363C
43364      PTEXHE=PDEFHE
43365      PTEXWI=PDEFWI
43366      PTEXVG=PDEFVG
43367      PTEXHG=PDEFHG
43368      PTEXTH=PDEFTH
43369      PTEXLE=PDEFLE
43370      ATEXAN=ADEFAN
43371C
43372      NCTEXT=0
43373C     MXCTEX=130
43374      MXCTEX=MAXCH
43375      DO1000I=1,MXCTEX
43376      ITEXTE(I)=' '
43377 1000 CONTINUE
43378C
43379C               ***************************
43380C               **  STEP XX--            **
43381C               **  TREAT THE FILL CASE  **
43382C               ***************************
43383C
43384      IDEFFS='OFF'
43385      IDEFFP='SOLI'
43386      IDEFFC=IDEFGC
43387      PDEFFS=0.1
43388      PDEFFT=0.1
43389      ADEFFB=0.0
43390C     MAXFIL=100
43391      MAXFIL=MAXFL
43392C
43393      DO1100I=1,MAXFIL
43394      IFILSW(I)=IDEFFS
43395      IFILPA(I)=IDEFFP
43396      IFILCO(I)=IDEFFC
43397      PFILSP(I)=PDEFFS
43398      PFILTH(I)=PDEFFT
43399      AFILBA(I)=ADEFFB
43400 1100 CONTINUE
43401C
43402C               ******************************
43403C               **  STEP XX--               **
43404C               **  TREAT THE PATTERN CASE  **
43405C               ******************************
43406C
43407      IDEFPS='OFF'
43408      IDEFPP='SOLI'
43409      IDEFPL='SOLI'
43410      IDEFPC=IDEFGC
43411      PDEFPW=CPUMIN
43412      PDEFPH=CPUMIN
43413      PDEFPS=1.0
43414      PDEFPT=0.1
43415C     MAXPAT=100
43416      MAXPAT=MAXPT
43417C
43418      DO1200I=1,MAXPAT
43419      IPATSW(I)=IDEFPS
43420      IPATPA(I)=IDEFPP
43421      IPATLI(I)=IDEFPL
43422      IPATCO(I)=IDEFPC
43423      PPATHE(I)=PDEFPH
43424      PPATWI(I)=PDEFPW
43425      PPATSP(I)=PDEFPS
43426      PPATTH(I)=PDEFPT
43427 1200 CONTINUE
43428C
43429C               ****************************
43430C               **  STEP XX--             **
43431C               **  TREAT THE SPIKE CASE  **
43432C               ****************************
43433C
43434      IDEFSS='OFF'
43435      IDEFSL='SOLI'
43436      IDEFSC=IDEFGC
43437      IDEFSD='V'
43438      PDEFST=0.1
43439      ADEFSB=0.0
43440C     MAXSPI=100
43441      MAXSPI=MAXSP
43442C
43443      DO1300I=1,MAXSPI
43444      ISPISW(I)=IDEFSS
43445      ISPILI(I)=IDEFSL
43446      ISPICO(I)=IDEFSC
43447      ISPIDI(I)=IDEFSD
43448      PSPITH(I)=PDEFST
43449      ASPIBA(I)=ADEFSB
43450 1300 CONTINUE
43451C
43452C      ----------BARS----------------------------------------------
43453C
43454C               ****************************
43455C               **  STEP XX--             **
43456C               **  TREAT THE BARS  CASE  **
43457C               ****************************
43458C
43459      IDEBSW='OFF'
43460      IDEBBL='SOLI'
43461      IDEBBC=IDEFGC
43462      IDEBFS='OFF'
43463      IDEBFC=IDEFGC
43464      IDEBPT='SOLI'
43465      IDEBPL='SOLI'
43466      IDEBPC=IDEFGC
43467      IDEBTY='2'
43468      IDEBDI='V'
43469      ADEBBA=0.0
43470      ADEBWI=CPUMIN
43471      PDEBBT=0.1
43472      PDEBPT=0.1
43473      PDEBPS=1.0
43474C     MAXBAR=100
43475      MAXBAR=MAXBA
43476C
43477      DO1400I=1,MAXBAR
43478      IBARSW(I)=IDEBSW
43479      IBABLI(I)=IDEBBL
43480      IBABCO(I)=IDEBBC
43481      IBAFSW(I)=IDEBFS
43482      IBAFCO(I)=IDEBFC
43483      IBAPTY(I)=IDEBPT
43484      IBAPLI(I)=IDEBPL
43485      IBAPCO(I)=IDEBPC
43486      IBARTY(I)=IDEBTY
43487      IBARDI(I)=IDEBDI
43488      ABARBA(I)=ADEBBA
43489      ABARWI(I)=ADEBWI
43490      PBABTH(I)=PDEBBT
43491      PBAPTH(I)=PDEBPT
43492      PBAPSP(I)=PDEBPS
43493 1400 CONTINUE
43494C
43495C     ----------END OF BARS-------------------------------------------------
43496C
43497C      ----------REGIONS----------------------------------------------
43498C
43499C               *******************************
43500C               **  STEP XX--                **
43501C               **  TREAT THE REGIONS  CASE  **
43502C               *******************************
43503C
43504      IDERSW='OFF'
43505      IDERBL='SOLI'
43506      IDERBC=IDEFGC
43507      IDERFS='OFF'
43508      IDERFC=IDEFGC
43509      IDERPT='SOLI'
43510      IDERPL='SOLI'
43511      IDERPC=IDEFGC
43512      ADERBA=0.0
43513      ADERWI=CPUMIN
43514      PDERBT=0.1
43515      PDERPT=0.1
43516      PDEBPS=1.0
43517CCCCC THE FOLLOWING LINE WAS INSERTED JANUARY 1989
43518CCCCC TO FIX INFINITE LOOP IN GRFIRE IN NON-SOLID REGION FILL (JANUARY 1989)
43519CCCCC DEFINE DEFAULT REGION PATTERN SPACING (JANUARY 1989)
43520      PDERPS=1.0
43521C
43522C     MAXREG=100
43523      MAXREG=MAXRG
43524C
43525      DO1500I=1,MAXREG
43526      IREGSW(I)=IDERSW
43527      IREBLI(I)=IDERBL
43528      IREBCO(I)=IDERBC
43529      IREFSW(I)=IDERFS
43530      IREFCO(I)=IDERFC
43531      IREPTY(I)=IDERPT
43532      IREPLI(I)=IDERPL
43533      IREPCO(I)=IDERPC
43534      AREGBA(I)=ADERBA
43535      AREGWI(I)=ADERWI
43536      PREBTH(I)=PDERBT
43537      PREPTH(I)=PDERPT
43538      PBAPSP(I)=PDEBPS
43539CCCCC THE FOLLOWING LINE WAS INSERTED JANUARY 1989
43540CCCCC TO FIX INFINITE LOOP IN GRFIRE IN NON-SOLID REGION FILL (JANUARY 1989)
43541      PREPSP(I)=PDERPS
43542      IREFC2(I,1)=-999
43543      IREFC2(I,2)=-999
43544      IREFC2(I,3)=-999
43545 1500 CONTINUE
43546CCCCC OCTOBER 1993.  ADD FOLLOWING LINE
43547      IREBIN='OFF'
43548CCCCC MARCH 1994.  ADD FOLLOWING LINE
43549      IREBPL='OFF'
43550C
43551C     ----------END OF REGIONS----------------------------------------
43552C
43553C      ----------MARKERS----------------------------------------------
43554C
43555C               *******************************
43556C               **  STEP XX--                **
43557C               **  TREAT THE MARKERS  CASE  **
43558C               *******************************
43559C
43560      IDEMSW='OFF'
43561      IDEMBL='SOLI'
43562      IDEMBC=IDEFGC
43563      IDEMFS='OFF'
43564      IDEMFC=IDEFGC
43565      IDEMPT='SOLI'
43566      IDEMPL='SOLI'
43567      IDEMPC=IDEFGC
43568      ADEMBA=0.0
43569      ADEMWI=CPUMIN
43570      PDEMBT=0.1
43571      PDEMPT=0.1
43572      PDEBPS=1.0
43573C     MAXMAR=100
43574      MAXMAR=MAXMR
43575C
43576      DO1600I=1,MAXMAR
43577      IMARSW(I)=IDEMSW
43578      IMABLI(I)=IDEMBL
43579      IMABCO(I)=IDEMBC
43580      IMAFSW(I)=IDEMFS
43581      IMAFCO(I)=IDEMFC
43582      IMAPTY(I)=IDEMPT
43583      IMAPLI(I)=IDEMPL
43584      IMAPCO(I)=IDEMPC
43585      AMARBA(I)=ADEMBA
43586      AMARWI(I)=ADEMWI
43587      PMABTH(I)=PDEMBT
43588      PMAPTH(I)=PDEMPT
43589      PMAPSP(I)=PDEBPS
43590 1600 CONTINUE
43591C
43592C     ----------END OF MARKERS-------------------------------------------------
43593C
43594C      ----------TEXTS----------------------------------------------
43595C
43596C               *****************************
43597C               **  STEP XX--              **
43598C               **  TREAT THE TEXTS  CASE  **
43599C               *****************************
43600C
43601      IDETSW='OFF'
43602      IDETBL='SOLI'
43603      IDETBC=IDEFGC
43604      IDETFS='OFF'
43605      IDETFC=IDEFGC
43606      IDETPT='SOLI'
43607      IDETPL='SOLI'
43608      IDETPC=IDEFGC
43609      ADETBA=0.0
43610      ADETWI=CPUMIN
43611      PDETBT=0.1
43612      PDETPT=0.1
43613      PDEBPS=1.0
43614C     MAXTEX=100
43615      MAXTEX=MAXTX
43616C
43617      DO1700I=1,MAXTEX
43618      ITEXSW(I)=IDETSW
43619      ITEBLI(I)=IDETBL
43620      ITEBCO(I)=IDETBC
43621      ITEFSW(I)=IDETFS
43622      ITEFCO(I)=IDETFC
43623      ITEPTY(I)=IDETPT
43624      ITEPLI(I)=IDETPL
43625      ITEPCO(I)=IDETPC
43626      ATEXBA(I)=ADETBA
43627      ATEXWI(I)=ADETWI
43628      PTEBTH(I)=PDETBT
43629      PTEPTH(I)=PDETPT
43630      PTEPSP(I)=PDEBPS
43631 1700 CONTINUE
43632C
43633C     ----------END OF TEXTS-------------------------------------------------
43634C
43635C               ****************************************************
43636C               **  TREAT THE START CHARACTER/END CHARACTER CASE  **
43637C               ****************************************************
43638C
43639      PXSTAR=50.0
43640      PYSTAR=50.0
43641C
43642      PXEND=50.0
43643      PYEND=50.0
43644C
43645      ITEXCR=IDEFCR
43646      ITEXLF=IDEFLF
43647      PTEXMR=PDEFMR
43648C
43649      ITEXSY=IDEFSY
43650      ITEXSP=IDEFSP
43651C  FOLLOWING ADDED MAY,1988.
43652C
43653C               ****************************************************
43654C               **  TREAT THE ORIENTATION                   CASE  **
43655C               ****************************************************
43656C
43657      IORNSW='FULL'
43658C
43659CCCCC THE FOLLOWING SECTION WAS ADDED AUGUST 1990
43660C               **************************************************
43661C               **  TREAT THE WINDOW MANAGER CASE               **
43662C               **  TREAT THE MENU SELECTOR CASE                **
43663C               **************************************************
43664C
43665      IDEFWM='GENE'
43666      IWINMA=IDEFWM
43667      IDEFMS='NUMB'
43668      IMENSE=IDEFMS
43669C
43670CCCCC THE FOLLOWING SECTION WAS ADDED SEPTEMBER 1998
43671C               **************************************************
43672C               **  TREAT THE MULTIPLOT SCALE FACTOR CASE       **
43673C               **************************************************
43674C
43675      AMPSCH=1.0
43676      AMPSCW=1.0
43677C
43678CCCCC THE FOLLOWING SECTION WAS ADDED NOVEMBER 1999
43679C               **************************************************
43680C               **  TREAT THE SUBREGIONS             CASE       **
43681C               **************************************************
43682C
43683      IDEFSB='OFF'
43684      ISUBNU=0
43685      DO1800I=1,MAXSUB
43686        ISUBSW(I)=IDEFSB
43687        ISUBTY(I)='BOX'
43688        ASUBXL(I)=CPUMIN
43689        ASUBXU(I)=CPUMAX
43690        ASUBYL(I)=CPUMIN
43691        ASUBYU(I)=CPUMAX
43692 1800 CONTINUE
43693C
43694CCCCC THE FOLLOWING SECTION WAS ADDED MAY 2015
43695C               **************************************************
43696C               **  TREAT THE EMBED                  CASE       **
43697C               **************************************************
43698C
43699      IEMBSW='OFF'
43700      IEMBJH='LEFT'
43701      IEMBJV='BOTT'
43702C
43703      IEMCNT=0
43704C
43705      PEMXC1=CPUMIN
43706      PEMXC2=CPUMIN
43707      PEMXY1=CPUMIN
43708      PEMXY2=CPUMIN
43709      PEMXMN=CPUMIN
43710      PEMXMX=CPUMIN
43711      PEMYMN=CPUMIN
43712      PEMYMX=CPUMIN
43713      PEMHEI=CPUMIN
43714      PEMWID=CPUMIN
43715      PEMPOX=CPUMIN
43716      PEMPOY=CPUMIN
43717C
43718C               *******************************
43719C               **  EXIT AND RETURN TO MAIN  **
43720C               *******************************
43721C
43722      IF(IBUGIN.EQ.'ON')THEN
43723        WRITE(ICOUT,9990)
43724 9990   FORMAT(1X)
43725        CALL DPWRST('XXX','BUG ')
43726        WRITE(ICOUT,9995)
43727 9995   FORMAT('***** AT THE END       OF INITPC--')
43728        CALL DPWRST('XXX','BUG ')
43729      ENDIF
43730C
43731      RETURN
43732      END
43733      SUBROUTINE PRINFI(FILE1,IFTYPE,IBUGS2,ISUBRO,IERROR)
43734C
43735C     PURPOSE--COPY A FILE TO THE PRINTER
43736C
43737C     LANGUAGE--ANSI FORTRAN (1977)
43738C     VERSION NUMBER--92/4
43739C     ORIGINAL VERSION--MARCH     1992.
43740C     UPDATED         --APRIL     1992. MAKE HOST DEPENDENT (ALAN)
43741C                                       USE DPSYS2 TO MAKE OPERATING
43742C                                       SYSTEM DEPENDENT CALL
43743C     UPDATED         --MAY       1992. COPY --> PRINT FOR PC
43744C     UPDATED         --JANUARY   1994. NOTE--PRINTING VAX/ALPHA
43745C     UPDATED         --AUGUST    1997. FOR WINDOWS 95, USE COPY
43746C                                       INSTEAD OF PRINT
43747C     UPDATED         --FEBRUARY  1998. SUPPORT USE OF SET PRINTER
43748C                                       FOR UNIX AND WINDOWS 95/NT
43749C     UPDATED         --NOVEMBER  1998. SUPPORT NEW LAHEY COMPILER
43750C     UPDATED         --NOVEMBER  2002. FOR PC, USE GSPRINT COMMAND
43751C                                       (REQUIRES GS 6.50 OR HIGHER)
43752C     UPDATED         --NOVEMBER  2015. SOME TWEAKS FOR WINDOWS
43753C     UPDATED         --MARCH     2019. SET SYSTEM PERSIST
43754C                                       SET SYSTEM HIDDEN
43755C     UPDATED         --MARCH     2019. RECODE
43756C     UPDATED         --MARCH     2019. FOR WINDOWS, USE WORDPAD TO
43757C                                       PRINT
43758C
43759C-----CHARACTER STATEMENTS FOR NON-COMMON VARIABLES-------------------
43760C
43761      INCLUDE 'DPCOPA.INC'
43762C
43763CCCCC CHARACTER*80 FILE1
43764CCCCC CHARACTER*80 FILE2
43765      CHARACTER (LEN=*) :: FILE1
43766      CHARACTER (LEN=MAXFNC) :: FILE2
43767      CHARACTER*4 IFTYPE
43768      CHARACTER*4 IBUGS2
43769      CHARACTER*4 ISUBRO
43770      CHARACTER*4 IERROR
43771C
43772      CHARACTER*1 IQUOTE
43773      CHARACTER*4 ISSAV1
43774      CHARACTER*4 ISSAV2
43775      CHARACTER*512 ISTRIN
43776C
43777C-----COMMON VARIABLES (GENERAL)--------------------------------------
43778C
43779C  APRIL 1992.  ADD HOST INCLUDE FILE
43780C
43781      INCLUDE 'DPCOHO.INC'
43782      INCLUDE 'DPCOST.INC'
43783      INCLUDE 'DPCONP.INC'
43784C
43785      INCLUDE 'DPCOP2.INC'
43786C
43787C-----START POINT-----------------------------------------------------
43788C
43789      IF(IBUGS2.EQ.'ON'.OR.ISUBRO.EQ.'INFI')THEN
43790        WRITE(ICOUT,999)
43791  999   FORMAT(1X)
43792        CALL DPWRST('XXX','BUG ')
43793        WRITE(ICOUT,51)
43794   51   FORMAT('***** AT THE BEGINNING OF PRINFI--')
43795        CALL DPWRST('XXX','BUG ')
43796        WRITE(ICOUT,53)IBUGS2,ISUBRO,IERROR,ISYSPE,ISYSHI
43797   53   FORMAT('IBUGS2,ISUBRO,IERROR,ISYSPE,ISYSHI = ',4(A4,2X),A4)
43798        CALL DPWRST('XXX','BUG ')
43799        WRITE(ICOUT,54)FILE1(1:80)
43800   54   FORMAT('FILE1 = ',A80)
43801        CALL DPWRST('XXX','BUG ')
43802        WRITE(ICOUT,61)IHOST1,IHMOD1,IOPSY1,ICOMPI,ISITE
43803   61   FORMAT('HOST,MODEL,OP-SYS,COMPILER,SITE = ',4(A4,2X),A4)
43804        CALL DPWRST('XXX','BUG ')
43805        WRITE(ICOUT,67)IPRNGS,IFTYPE
43806   67   FORMAT('IPRNGS,IFTYPE = ',A4,2X,A4)
43807        CALL DPWRST('XXX','BUG ')
43808      ENDIF
43809C
43810C     2019/03: IF FILE CONTAINS A SPACE, THEN MAKE SURE FILE NAME IS
43811C              QUOTED.
43812C
43813C              STEP 1: CHECK FOR SPACE IN FILE NAME
43814C
43815      CALL STRLEZ(FILE1,MAXFNC,N1)
43816      IFLAG=0
43817      DO120II=1,N1
43818        IF(FILE1(II:II).EQ.' ')THEN
43819          IF(FILE1(1:1).NE.'"' .OR. FILE1(N1:N1).NE.'"')THEN
43820            IFLAG=1
43821          ENDIF
43822          GOTO129
43823        ENDIF
43824  120 CONTINUE
43825  129 CONTINUE
43826C
43827C              STEP 2: ENCLOSE IN QUOTES IF NEEDED
43828C
43829      IF(IFLAG.EQ.1 .AND. FILE1(1:1).NE.'"')THEN
43830        DO130II=N1,1,-1
43831          FILE1(II+1:II+1)=FILE1(II:II)
43832  130   CONTINUE
43833        FILE1(1:1)='"'
43834        FILE1(N1+2:N1+2)='"'
43835        N1=N1+2
43836      ENDIF
43837C
43838C  APRIL 1992.  ADD HOST DEPENDENT BRANCH
43839C
43840C               ********************************
43841C               **  STEP 1--                  **
43842C               **  STEP THROUGH EACH HOST    **
43843C               ********************************
43844C
43845      ISTRIN=' '
43846      IQUOTE='"'
43847      IBASLC=CHAR(92)
43848C
43849      IF(IHOST1.EQ.'IBM-')THEN
43850C
43851C               **************************************
43852C               **  STEP 2A--                       **
43853C               **  IBM/PC 386 WITH INTEL COMPILER  **
43854C               **  USE COPY INSTEAD OF PRINT!      **
43855C               **  ALSO USE PRINTER ID             **
43856C               **************************************
43857C
43858C       MARCH 2019: USE WORDPAD TO PRINT TO DEFAULT PRINTER
43859C
43860C                      WRITE.EXE /p <filename>
43861C
43862C                   (EARLIER METHODS REQUIRED SETTING THE PRINTER, ALSO
43863C                   GSPRINT IS ONLY FOR POSTSCRIPT/PDF FILES).
43864C
43865C                   THIS COULD ALSO BE DONE USING "NOTEPAD /p".  HOWEVER,
43866C                   WORDPAD SUPPORTS A GREATER NUMBER OF FILE TYPES (E.G.,
43867C                   RTF, DOC) AND CAN HANDLE LINUX/MAC LINE FEED/CARRIAGE
43868C                   RETURN CONVENTIONS.
43869C
43870C                   THE PP COMMAND IS USED TO PRINT A POSTSCRIPT FILE.
43871C                   USE THE COMMAND (2002/11):
43872C
43873C                      GSPRINT.EXE -printer "printer-name"   file-name
43874C
43875C                   2015/11: MAKE A FEW TWEAKS.
43876C
43877C                       1. IF PRINTER IS SET TO "DEFAULT" OR "NULL",
43878C                          OMIT THE -printer OPTION.
43879C
43880C                       2. IF PRINTER IS SET TO "PRN:", "LPT1:", OR
43881C                          "LPT2:", USE "-port" INSTEAD OF "-printer".
43882C
43883C                       3. MAKE SURE PRINTER NAME IS ENCLOSED IN QUOTES.
43884C
43885C                   FOR POSTSCRIPT, ALWAYS USE THE GSPRINT METHOD.
43886C                   THE "COPY" METHOD IS NO LONGER SUPPORTED.
43887C
43888        IF(IFTYPE.EQ.'ASCI')THEN
43889C
43890C         ASCII FILE: USE WORDPAD
43891C
43892          N0=1
43893          ISTRIN(N0:N0+12)='WRITE.EXE /p '
43894          N0=N0+12
43895          ISTRIN(N0+1:N0+N1)=FILE1(1:N1)
43896          N0=N0+N1
43897C
43898          ISSAV1=ISYSPE
43899          ISSAV2=ISYSHI
43900          ISYSPE='OFF'
43901          ISYSHI='ON'
43902          IF(IFLAG.EQ.1)ISYSHI='OFF'
43903          CALL DPSYS2(ISTRIN,N0,ISUBRO,IERROR)
43904          ISYSPE=ISSAV1
43905          ISYSHI=ISSAV2
43906        ELSE
43907C
43908C         POSTSCRIPT FILE: USE WORDPAD
43909C
43910          N0=0
43911          IF(IGSVPA(1:1).NE.IQUOTE)THEN
43912            ISTRIN(1:1)=IQUOTE
43913            ISTRIN(2:NCGSPA+1)=IGSVPA(1:NCGSPA)
43914            N0=NCGSPA+1
43915          ELSE
43916            ISTRIN(1:NCGSPA)=IGSVPA(1:NCGSPA)
43917            N0=NCGSPA
43918          ENDIF
43919          IF(IGSVPA(NCGSPA:NCGSPA).NE.IBASLC)THEN
43920            N0=N0+1
43921            ISTRIN(N0:N0)=IBASLC
43922          ENDIF
43923          N0=N0+1
43924          ISTRIN(N0:N0+10)='GSPRINT.EXE'
43925          N0=N0+10
43926          IF(IGSVPA(1:1).NE.IQUOTE)THEN
43927            N0=N0+1
43928            ISTRIN(N0:N0)=IQUOTE
43929          ENDIF
43930          N0=N0+1
43931          ISTRIN(N0:N0)=' '
43932          FILE2=' '
43933C
43934          IF(IPRNTR(1:7).EQ.'DEFAULT' .OR. IPRNTR(1:4).EQ.'NULL')THEN
43935            CONTINUE
43936          ELSEIF(IPRNTR(1:7).EQ.'default'.OR.IPRNTR(1:4).EQ.'null')THEN
43937            CONTINUE
43938          ELSEIF(IPRNTR(1:4).EQ.'PRN:' .OR. IPRNTR(1:4).EQ.'prn:')THEN
43939            N0=N0+1
43940            ISTRIN(N0:N0+10)='-port PRN: '
43941            N0=N0+10
43942          ELSEIF(IPRNTR(1:5).EQ.'LPT1:' .OR. IPRNTR(1:5).EQ.'lpt1:')THEN
43943            N0=N0+1
43944            ISTRIN(N0:N0+11)='-port LPT1: '
43945            N0=N0+11
43946          ELSEIF(IPRNTR(1:5).EQ.'LPT2:' .OR. IPRNTR(1:5).EQ.'lpt2:')THEN
43947            N0=N0+1
43948            ISTRIN(N0:N0+11)='-port LPT2: '
43949            N0=N0+11
43950          ELSEIF(NCPRNT.GT.0)THEN
43951            N0=N0+1
43952            ISTRIN(N0:N0+8)='-printer '
43953            N0=N0+8
43954            IF(IPRNTR(1:1).NE.IQUOTE)THEN
43955              FILE2(1:1)=IQUOTE
43956              FILE2(2:NCPRNT+1)=IPRNTR(1:NCPRNT)
43957              N2=NCPRNT+1
43958              IF(IPRNTR(NCPRNT:NCPRNT).NE.IQUOTE)THEN
43959                N2=N2+1
43960                FILE2(N2:N2)=IQUOTE
43961              ENDIF
43962            ELSE
43963              N2=NCPRNT
43964              FILE2(1:N2)=IPRNTR(1:N2)
43965              IF(IPRNTR(NCPRNT:NCPRNT).NE.IQUOTE)THEN
43966                N2=N2+1
43967                FILE2(N2:N2)=IQUOTE
43968              ENDIF
43969            ENDIF
43970            CALL STRLEZ(FILE2,MAXFNC,N2)
43971            ISTRIN(N0+1:N0+1+N2)=FILE2(1:N2)
43972            N0=N0+1+N2
43973            N0=N0+1
43974            ISTRIN(N0:N0)=' '
43975          ENDIF
43976C
43977          CALL STRLEZ(FILE1,MAXFNC,N1)
43978          N0=N0+1
43979          ISTRIN(N0:N0+N1)=FILE1(1:N1)
43980          N0=N0+N1
43981C
43982          IF(IBUGS2.EQ.'ON'.OR.ISUBRO.EQ.'INFI')THEN
43983            WRITE(ICOUT,999)
43984            CALL DPWRST('XXX','BUG ')
43985            WRITE(ICOUT,1111)
43986 1111       FORMAT('***** FROM THE MIDDLE OF PRINFI--')
43987            CALL DPWRST('XXX','BUG ')
43988            WRITE(ICOUT,1112)FILE1(1:80)
43989 1112       FORMAT('FILE1 = ',A80)
43990            CALL DPWRST('XXX','BUG ')
43991            WRITE(ICOUT,1113)FILE2(1:80)
43992 1113       FORMAT('FILE2 = ',A80)
43993            CALL DPWRST('XXX','BUG ')
43994            WRITE(ICOUT,1114)N0,N1,N2
43995 1114       FORMAT('N0,N1,N2 = ',3I8)
43996            CALL DPWRST('XXX','BUG ')
43997            WRITE(ICOUT,1115)ISTRIN(1:110)
43998 1115       FORMAT('ISTRIN = ',A110)
43999            CALL DPWRST('XXX','BUG ')
44000          ENDIF
44001C
44002          CALL DPSYS2(ISTRIN,N0,ISUBRO,IERROR)
44003        ENDIF
44004      ELSEIF(IOPSY1.EQ.'UNIX')THEN
44005C
44006C               ************************************
44007C               **  STEP 2C--                     **
44008C               **  UNIX OPERATING SYSTEM         **
44009C               **  USE  lpr  TO DEFAULT PRINTER. **
44010C               ************************************
44011C
44012CCCCC   ADD SUPPORT FOR SET PRINTER COMMAND     FEBRUARY 1998.
44013C
44014        IF(NCPRNT.LE.0)THEN
44015          N0=4
44016          ISTRIN(1:N0)='lpr '
44017        ELSE
44018          N0=6
44019          ISTRIN(1:N0)='lpr -P'
44020          N0=N0+1
44021          ISTRIN(N0+1:N0+NCPRNT)=IPRNTR(1:NCPRNT)
44022          N0=N0+NCPRNT+1
44023          ISTRIN(N0:N0)=' '
44024        ENDIF
44025C
44026        ISTRIN(N0+1:N0+N1)=FILE1(1:N1)
44027        N0=N0+N1+1
44028        ISTRIN(N0:N0)=' '
44029        CALL DPSYS2(ISTRIN,N0,ISUBRO,IERROR)
44030      ELSEIF(IHOST1.EQ.'NVE')THEN
44031C
44032C               ********************************
44033C               **  STEP 2B--                 **
44034C               **  CYBER WITH NOS/VE         **
44035C               **  USE PRINT_FILE TO DEFAULT **
44036C               **  PRINTER.  NO PROVISION YET**
44037C               **  FOR NAMING PRINTER.       **
44038C               ********************************
44039C
44040        N0=11
44041        ISTRIN(1:N0)='PRINT_FILE '
44042        ISTRIN(N0+1:N0+N1)=FILE1(1:N1)
44043        N0=N0+N1+1
44044        ISTRIN(N0:N0)=' '
44045        CALL DPSYS2(ISTRIN,N012,ISUBRO,IERROR)
44046      ELSEIF(IHOST1.EQ.'VAX')THEN
44047C
44048C               ********************************
44049C               **  STEP 2D--                 **
44050C               **  VAX/VMS                   **
44051C               **  USE PRINT.    USE DEFAULT **
44052C               **  PRINTER.  NO PROVISION YET**
44053C               **  FOR NAMING PRINTER.       **
44054C               ********************************
44055C
44056C     NOTE--ON A VAX OR AN ALPHA (RUNNING VMS),      JANUARY 1994
44057C           TO MAKE THE    PP   (PRINT A PLOT)       JANUARY 1994
44058C           COMMAND WORK, THEN THE STRING            JANUARY 1994
44059C              PRINT DPPL2F.DAT                      JANUARY 1994
44060C           SHOULD GET CHANGED TO                    JANUARY 1994
44061C              PRINT /QUEUE=something DPPL2F.DAT     JANUARY 1994
44062C           (E.G., PRINT/QUEUE=DPPRINTER DPPL2F.DAT) JANUARY 1994
44063C           AND THEN HAVE THE ANALYST DEFINE         JANUARY 1994
44064C           DPPRINTER (VIA  ASSIGN DPPRINTER = etc.) JANUARY 1994
44065C           EITHER OUTSIDE OF DATAPLOT               JANUARY 1994
44066C           IN HIS/HER VAX LOGIN FILE, OR            JANUARY 1994
44067C           INSIDE DATAPLOT VIA                      JANUARY 1994
44068C           DATAPLOT'S     SYSTEM     COMMAND        JANUARY 1994
44069C           (E.G., SYSTEM ASSIGN DPPRINTER = etc.)   JANUARY 1994
44070C
44071C               ********************************
44072C
44073C
44074        N0=6
44075        ISTRIN(1:N0)='PRINT '
44076        ISTRIN(N0+1:N0+N1)=FILE1(1:N1)
44077        N0=N0+N1+1
44078        ISTRIN(N0:N0)=' '
44079        CALL DPSYS2(ISTRIN,N0,ISUBRO,IERROR)
44080      ELSE
44081C
44082C               ********************************
44083C               **  STEP 2E--                 **
44084C               **  UNSUPPORTED SYSTEMS.      **
44085C               ********************************
44086C
44087        WRITE(ICOUT,999)
44088        CALL DPWRST('XXX','BUG ')
44089        WRITE(ICOUT,8011)
44090 8011   FORMAT('THE PRINT FILE CAPABILITY NOT SUPPORTED')
44091        CALL DPWRST('XXX','BUG ')
44092        WRITE(ICOUT,8012)IHOST1
44093 8012   FORMAT('ON HOST ',A4)
44094        CALL DPWRST('XXX','BUG ')
44095        WRITE(ICOUT,8013)
44096 8013   FORMAT('CONTACT YOUR SITE INSTALLER.')
44097        CALL DPWRST('XXX','BUG ')
44098      ENDIF
44099C
44100C               *****************
44101C               **  STEP 90--  **
44102C               **  EXIT       **
44103C               *****************
44104C
44105      IF(IBUGS2.EQ.'ON'.OR.ISUBRO.EQ.'INFI')THEN
44106        WRITE(ICOUT,999)
44107        CALL DPWRST('XXX','BUG ')
44108        WRITE(ICOUT,9011)
44109 9011   FORMAT('***** AT THE END       OF PRINFI--')
44110        CALL DPWRST('XXX','BUG ')
44111        WRITE(ICOUT,9013)IERROR
44112 9013   FORMAT('IERROR = ',A4)
44113        CALL DPWRST('XXX','BUG ')
44114        WRITE(ICOUT,9015)FILE1(1:80)
44115 9015   FORMAT('FILE1 = ',A80)
44116        CALL DPWRST('XXX','BUG ')
44117        WRITE(ICOUT,9017)FILE2(1:80)
44118 9017   FORMAT('FILE2 = ',A80)
44119        CALL DPWRST('XXX','BUG ')
44120        WRITE(ICOUT,9019)N0,N1,N2
44121 9019   FORMAT('N0,N1,N2,N012 = ',4I8)
44122        CALL DPWRST('XXX','BUG ')
44123        WRITE(ICOUT,9021)ISTRIN(1:MIN(255,N0))
44124 9021   FORMAT('ISTRIN = ',A255)
44125        CALL DPWRST('XXX','BUG ')
44126        WRITE(ICOUT,9023)IPRNGS
44127 9023   FORMAT('IPRNGS = ',A4)
44128        CALL DPWRST('XXX','BUG ')
44129      ENDIF
44130C
44131      RETURN
44132      END
44133      SUBROUTINE COPYFI(FILE1,FILE2,IBUGS2,ISUBRO,IERROR)
44134C
44135C     PURPOSE--COPY A FILE TO ANOTHER FILE
44136C
44137C     LANGUAGE--ANSI FORTRAN (1977)
44138C     VERSION NUMBER--92/4
44139C     ORIGINAL VERSION--MARCH     1992.
44140C     UPDATED         --APRIL     1992. ADD OPERATING SYSTEM BRANCHES
44141C     UPDATED         --MARCH     2019. SET SYSTEM PERSIST
44142C                                       SET SYSTEM HIDDEN
44143C     UPDATED         --MARCH     2019. RECODE
44144C
44145C-----CHARACTER STATEMENTS FOR NON-COMMON VARIABLES-------------------
44146C
44147      INCLUDE 'DPCOPA.INC'
44148C
44149CCCCC CHARACTER*80 FILE1
44150CCCCC CHARACTER*80 FILE2
44151      CHARACTER (LEN=*) :: FILE1
44152      CHARACTER (LEN=*) :: FILE2
44153      CHARACTER*4 IBUGS2
44154      CHARACTER*4 ISUBRO
44155      CHARACTER*4 IERROR
44156      CHARACTER*4 ISSAV1
44157      CHARACTER*4 ISSAV2
44158C
44159CCCCC CHARACTER*255 ISTRIN
44160      CHARACTER (LEN=MAXSTR) :: ISTRIN
44161C
44162C-----COMMON VARIABLES (GENERAL)--------------------------------------
44163C
44164C  APRIL 1992.  ADD FOLLOWING INCLUDE FILE
44165C
44166      INCLUDE 'DPCOHO.INC'
44167      INCLUDE 'DPCOST.INC'
44168C
44169      INCLUDE 'DPCOP2.INC'
44170C
44171C-----START POINT-----------------------------------------------------
44172C
44173      IF(IBUGS2.EQ.'ON'.OR.ISUBRO.EQ.'PYFI')THEN
44174        WRITE(ICOUT,999)
44175  999   FORMAT(1X)
44176        CALL DPWRST('XXX','BUG ')
44177        WRITE(ICOUT,51)
44178   51   FORMAT('***** AT THE BEGINNING OF COPYFI--')
44179        CALL DPWRST('XXX','BUG ')
44180        WRITE(ICOUT,53)IBUGS2,ISUBRO,IERROR,ISYSPE,ISYSHI
44181   53   FORMAT('IBUGS2,ISUBRO,IERROR,ISYSPE,ISYSHI = ',4(A4,2X),A4)
44182        CALL DPWRST('XXX','BUG ')
44183        WRITE(ICOUT,54)FILE1(1:80)
44184   54   FORMAT('FILE1 = ',A80)
44185        CALL DPWRST('XXX','BUG ')
44186        WRITE(ICOUT,55)FILE2(1:80)
44187   55   FORMAT('FILE2 = ',A80)
44188        CALL DPWRST('XXX','BUG ')
44189        WRITE(ICOUT,61)IHOST1,IHMOD1,IOPSYS1,ICOMPI,ISITE
44190   61   FORMAT('HOST,MODEL,OP-SYS,ICOMPI,ISITE = ',4(A4,2X),A4)
44191        CALL DPWRST('XXX','BUG ')
44192      ENDIF
44193C
44194C     2019/03: CHECK FOR SPACES IN FILE NAME.  IF FOUND, THEN
44195C              QUOTE THE FILE NAME (BUT CHECK IF FILE NAME IS
44196C              ALREADY QUOTED).
44197C
44198      IFLAG=0
44199      CALL STRLEZ(FILE1,MAXFNC,N1)
44200      DO110II=1,N1
44201        IF(FILE1(II:II).EQ.' ')THEN
44202          IF(FILE1(1:1).NE.'"' .OR. FILE1(N1:N1).NE.'"')THEN
44203            IFLAG=1
44204          ENDIF
44205          GOTO119
44206        ENDIF
44207  110 CONTINUE
44208  119 CONTINUE
44209C
44210      CALL STRLEZ(FILE2,MAXFNC,N2)
44211      DO120II=1,N2
44212        IF(FILE2(II:II).EQ.' ')THEN
44213          IF(FILE2(1:1).NE.'"' .OR. FILE2(N2:N2).NE.'"')THEN
44214            IFLAG=1
44215          ENDIF
44216          GOTO129
44217        ENDIF
44218  120 CONTINUE
44219  129 CONTINUE
44220C
44221      IF(IFLAG.EQ.1)THEN
44222        DO130II=N1,1,-1
44223          FILE1(II+1:II+1)=FILE1(II:II)
44224  130   CONTINUE
44225        FILE1(1:1)='"'
44226        N1=N1+2
44227        FILE1(N1:N1)='"'
44228C
44229        DO140II=N2,1,-1
44230          FILE2(II+1:II+1)=FILE2(II:II)
44231  140   CONTINUE
44232        FILE2(1:1)='"'
44233        N2=N2+2
44234        FILE2(N2:N2)='"'
44235      ENDIF
44236C
44237      ISTRIN=' '
44238C
44239C     APRIL 1992.  ADD HOST DEPENDENT BRANCHES
44240C
44241C               ********************************
44242C               **  STEP 1--                  **
44243C               **  STEP THROUGH EACH HOST    **
44244C               ********************************
44245C
44246      IF(IHOST1.EQ.'IBM-')THEN
44247C
44248C               ********************************
44249C               **  STEP 2A--                 **
44250C               **  WINDOWS                   **
44251C               ********************************
44252C
44253        N0=5
44254        ISTRIN(1:N0)='COPY '
44255        ISTRIN(N0+1:N0+N1)=FILE1(1:N1)
44256        N0=N0+N1+1
44257        ISTRIN(N0:N0)=' '
44258        ISTRIN(N0+1:N0+N2)=FILE2(1:N2)
44259        N0=N0+N2
44260C
44261        IF(IHOST1.EQ.'IBM-'.AND.ICOMPI.EQ.'OTG ')THEN
44262CCCCC     CALL CISSUE(ISTRIN(1:N0),IFAIL)
44263CCCCC     IERROR='NO'
44264CCCCC     IF(IFAIL.EQ.1)IERROR='YES'
44265        ELSE
44266          ISSAV1=ISYSPE
44267          ISSAV2=ISYSHI
44268          ISYSPE='OFF'
44269          IF(IFLAG.EQ.0)THEN
44270            ISYSHI='ON'
44271          ELSE
44272            ISYSHI='OFF'
44273          ENDIF
44274          CALL DPSYS2(ISTRIN,N0,ISUBRO,IERROR)
44275          ISYSPE=ISSAV1
44276          ISYSHI=ISSAV2
44277        ENDIF
44278      ELSEIF(IHOST1.EQ.'NVE')THEN
44279C
44280C               ********************************
44281C               **  STEP 2B--                 **
44282C               **  CYBER WITH NOS/VE         **
44283C               **  USE COPY_FILE COMMAND     **
44284C               ********************************
44285C
44286C
44287        N0=10
44288        ISTRIN(1:N0)='COPY_FILE '
44289        ISTRIN(N0+1:N0+N1)=FILE1(1:N1)
44290        N0=N0+N1+1
44291        ISTRIN(N0:N0)=' '
44292        ISTRIN(N0+1:N0+N2)=FILE2(1:N2)
44293        N0=N0+N2
44294        CALL DPSYS2(ISTRIN,N0,ISUBRO,IERROR)
44295      ELSEIF(IOPSY1.EQ.'UNIX')THEN
44296C
44297C               ********************************
44298C               **  STEP 2C--                 **
44299C               **  UNIX OPERATING SYSTEM     **
44300C               **  USE cp        COMMAND     **
44301C               ********************************
44302C
44303        N0=3
44304        ISTRIN(1:N0)='cp '
44305        ISTRIN(N0+1:N0+N1)=FILE1(1:N1)
44306        N0=N0+N1+1
44307        ISTRIN(N0:N0)=' '
44308        ISTRIN(N0+1:N0+N2)=FILE2(1:N2)
44309        N0=N0+N2
44310        CALL DPSYS2(ISTRIN,N0,ISUBRO,IERROR)
44311      ELSEIF(IHOST1.EQ.'VAX')THEN
44312C
44313C               ********************************
44314C               **  STEP 2D--                 **
44315C               **  VAX/VMS                   **
44316C               **  USE COPY      COMMAND     **
44317C               ********************************
44318C
44319        N0=5
44320        ISTRIN(1:N0)='COPY '
44321        ISTRIN(N0+1:N0+N1)=FILE1(1:N1)
44322        N0=N0+N1+1
44323        ISTRIN(N0:N0)=' '
44324        ISTRIN(N0+1:N0+N2)=FILE2(1:N2)
44325        N0=N0+N2
44326        CALL DPSYS2(ISTRIN,N0,ISUBRO,IERROR)
44327      ELSE
44328C
44329C               ********************************
44330C               **  STEP 2E--                 **
44331C               **  UNSUPPORTED SYSTEMS.      **
44332C               ********************************
44333C
44334        WRITE(ICOUT,999)
44335        CALL DPWRST('XXX','BUG ')
44336        WRITE(ICOUT,8011)
44337 8011   FORMAT('THE COPY FILE CAPABILITY NOT SUPPORTED')
44338        CALL DPWRST('XXX','BUG ')
44339        WRITE(ICOUT,8012)IHOST1
44340 8012   FORMAT('ON HOST ',A4)
44341        CALL DPWRST('XXX','BUG ')
44342        WRITE(ICOUT,8013)
44343 8013   FORMAT('CONTACT YOUR SITE INSTALLER.')
44344        CALL DPWRST('XXX','BUG ')
44345      ENDIF
44346C
44347C               *****************
44348C               **  STEP 90--  **
44349C               **  EXIT       **
44350C               *****************
44351C
44352      IF(IBUGS2.EQ.'ON'.OR.ISUBRO.EQ.'PYFI')THEN
44353        WRITE(ICOUT,999)
44354        CALL DPWRST('XXX','BUG ')
44355        WRITE(ICOUT,9011)
44356 9011   FORMAT('***** AT THE END       OF COPYFI--')
44357        CALL DPWRST('XXX','BUG ')
44358        WRITE(ICOUT,9013)IERROR
44359 9013   FORMAT('IERROR = ',A4)
44360        CALL DPWRST('XXX','BUG ')
44361        WRITE(ICOUT,9022)FILE1(1:80)
44362 9022   FORMAT('FILE1 = ',A80)
44363        CALL DPWRST('XXX','BUG ')
44364        WRITE(ICOUT,9023)FILE2(1:80)
44365 9023   FORMAT('FILE2 = ',A80)
44366        CALL DPWRST('XXX','BUG ')
44367        WRITE(ICOUT,9024)N0,N1,N2,N012
44368 9024   FORMAT('N0,N1,N2,N012 = ',4I8)
44369        CALL DPWRST('XXX','BUG ')
44370        WRITE(ICOUT,9025)ISTRIN(1:80)
44371 9025   FORMAT('ISTRIN = ',A80)
44372        CALL DPWRST('XXX','BUG ')
44373      ENDIF
44374C
44375      RETURN
44376      END
44377      SUBROUTINE VIEWFI(FILE1,ICASE2,IBUGS2,ISUBRO,IERROR)
44378C
44379C     PURPOSE--VIEW DPPL2F.DAT USING POSTSCRIPT VIEWER
44380C              (PSVIEW COMMAND)
44381C
44382C     LANGUAGE--ANSI FORTRAN (1977)
44383C     VERSION NUMBER--2011/9
44384C     ORIGINAL VERSION--SEPTEMBER 2011.
44385C     UPDATED         --OCTOBER   2015. USE "WINEXEC" FOR WINDOWS
44386C     UPDATED         --JUNE      2016. WINEXEC SEEMS TO HAVE AN
44387C                                       ISSUE, SO TURN THIS OPTION
44388C                                       OFF FOR NOW.
44389C     UPDATED         --JUNE      2016. IF SET POSTSCRIPT DEVICE
44390C                                       COMMAND ENTERED, OPTION
44391C                                       TO SET THE FILE TO THE
44392C                                       CONVERTED FILE INSTEAD
44393C     UPDATED         --MARCH     2019. SET SYSTEM PERSIST
44394C                                       SET SYSTEM HIDDEN
44395C     UPDATED         --DECEMBER  2019. ALLOW VIEWING PDF AND IMAGE
44396C                                       FILES AS WELL AS POSTSCRIPT
44397C                                       FILES.
44398C
44399C-----CHARACTER STATEMENTS FOR NON-COMMON VARIABLES-------------------
44400C
44401      INCLUDE 'DPCOPA.INC'
44402C
44403CCCCC CHARACTER*80 FILE1
44404      CHARACTER (LEN=*) :: FILE1
44405      CHARACTER*4 ICASE2
44406      CHARACTER*4 IBUGS2
44407      CHARACTER*4 ISUBRO
44408      CHARACTER*4 IERROR
44409      CHARACTER*1 IQUOTE
44410      CHARACTER*4 ISSAV1
44411      CHARACTER*4 ISSAV2
44412      CHARACTER*4 ICLESV
44413      CHARACTER*4 ICASE
44414C
44415CCCCC CHARACTER*255 ISTRIN
44416      CHARACTER (LEN=MAXSTR) :: ISTRIN
44417C
44418C-----COMMON VARIABLES (GENERAL)--------------------------------------
44419C
44420      INCLUDE 'DPCOHO.INC'
44421      INCLUDE 'DPCOST.INC'
44422      INCLUDE 'DPCONP.INC'
44423C
44424C     2016/06: SAVE CONVERTED FILE FROM DPDEP2
44425C
44426      CHARACTER (LEN=MAXFNC) :: FILE2
44427      COMMON/ICFILE/FILE2,NCFIL2
44428C
44429      INCLUDE 'DPCOP2.INC'
44430C
44431C-----START POINT-----------------------------------------------------
44432C
44433      IF(IBUGS2.EQ.'ON'.OR.ISUBRO.EQ.'EWFI')THEN
44434        WRITE(ICOUT,999)
44435  999   FORMAT(1X)
44436        CALL DPWRST('XXX','BUG ')
44437        WRITE(ICOUT,51)
44438   51   FORMAT('***** AT THE BEGINNING OF VIEWFI--')
44439        CALL DPWRST('XXX','BUG ')
44440        WRITE(ICOUT,53)ICASE2,IBUGS2,ISUBRO,IERROR
44441   53   FORMAT('ICASE2,IBUGS2,ISUBRO,IERROR = ',3(A4,2X),A4)
44442        CALL DPWRST('XXX','BUG ')
44443        WRITE(ICOUT,54)FILE1(1:80)
44444   54   FORMAT('FILE1 = ',A80)
44445        CALL DPWRST('XXX','BUG ')
44446        WRITE(ICOUT,56)IPSTVW(1:80)
44447   56   FORMAT('POSTSCRIPT VIEWER = ',A80)
44448        CALL DPWRST('XXX','BUG ')
44449        WRITE(ICOUT,57)IPDFVW(1:80)
44450   57   FORMAT('PDF VIEWER = ',A80)
44451        CALL DPWRST('XXX','BUG ')
44452        WRITE(ICOUT,58)IIMAVW(1:80)
44453   58   FORMAT('IMAGE VIEWER = ',A80)
44454        CALL DPWRST('XXX','BUG ')
44455        WRITE(ICOUT,59)IBCKVW(1:80)
44456   59   FORMAT('BACKUP VIEWER = ',A80)
44457        CALL DPWRST('XXX','BUG ')
44458        WRITE(ICOUT,61)IHOST1,IHMOD1,IOPSYS1,ICOMPI,ISITE
44459   61   FORMAT(' HOST,MODEL,OP-SYS,COMPILER,SITE = ',5(A4,2X),A4)
44460        CALL DPWRST('XXX','BUG ')
44461      ENDIF
44462C
44463C               ********************************
44464C               **  STEP 1--                  **
44465C               **  STEP THROUGH EACH HOST    **
44466C               ********************************
44467C
44468C     2016/06: IF SET POSTSCRIPT CONVERT IS SET, VIEW THE
44469C              CONVERTED FILE INSTEAD OF THE ORIGINAL
44470C              POSTSCRIPT FILE.
44471C
44472      IF(ICASE2.EQ.'FILE')THEN
44473        CALL STRLEZ(FILE1,MAXFNC,N1)
44474        FILE2(1:N1)=FILE1(1:N1)
44475      ELSEIF(ICASE2.EQ.'IPL1')THEN
44476CCCCC   CALL STRLEZ(FILE1,MAXFNC,N1)
44477CCCCC   FILE2(1:N1)=FILE1(1:N1)
44478        IF(IPSTDV.EQ.'NULL' .OR. NCFIL2.EQ.0)THEN
44479          CALL STRLEZ(FILE1,MAXFNC,N1)
44480          FILE2(1:N1)=FILE1(1:N1)
44481        ELSE
44482          N1=NCFIL2
44483        ENDIF
44484      ELSEIF(ICASE2.EQ.'IPL2')THEN
44485        IF(IPSTDV.EQ.'NULL' .OR. NCFIL2.EQ.0)THEN
44486          CALL STRLEZ(FILE1,MAXFNC,N1)
44487          FILE2(1:N1)=FILE1(1:N1)
44488        ELSE
44489          N1=NCFIL2
44490        ENDIF
44491      ENDIF
44492C
44493      IF(IBUGS2.EQ.'ON'.OR.ISUBRO.EQ.'EWFI')THEN
44494        WRITE(ICOUT,94)N1,FILE2
44495   94   FORMAT('N1,FILE2 = ',I5,2X,A80)
44496        CALL DPWRST('XXX','BUG ')
44497      ENDIF
44498C
44499C     NOTE 2019/12: CHECK FOR VARIOUS FILE EXTENSIONS:
44500C
44501C                   .DAT   - USE POSTSCRIPT VIEWER
44502C                            (THESE ARE TYPICALLY DPPL1F.DAT OR
44503C                            DPPL2F.DAT)
44504C                   .PS    - USE POSTSCRIPT VIEWER
44505C                   .PDF   - USE PDF VIEWER
44506C                   .GIF   - USE IMAGE VIEWER
44507C                   .JPG   - USE IMAGE VIEWER
44508C                   .TIF   - USE IMAGE VIEWER
44509C                   .PNG   - USE IMAGE VIEWER
44510C
44511C                   IF AN UNKNOWN EXTENSION GIVEN, THEN USE IMAGE
44512C                   VIEWER.
44513C
44514      ICASE='UNKN'
44515      IF(N1.GE.4)THEN
44516        DO110II=N1-2,1,-1
44517          IF(FILE2(II:II).EQ.'.')THEN
44518            IF(FILE2(II+1:II+3).EQ.'DAT' .OR.
44519     1         FILE2(II+1:II+3).EQ.'dat')THEN
44520              ICASE='DAT'
44521            ELSEIF(FILE2(II+1:II+2).EQ.'PS' .OR.
44522     1             FILE2(II+1:II+2).EQ.'ps')THEN
44523              ICASE='POST'
44524            ELSEIF(FILE2(II+1:II+3).EQ.'EPS' .OR.
44525     1             FILE2(II+1:II+3).EQ.'eps')THEN
44526              ICASE='POST'
44527            ELSEIF(FILE2(II+1:II+3).EQ.'PDF' .OR.
44528     1             FILE2(II+1:II+3).EQ.'pdf')THEN
44529              ICASE='PDF'
44530            ELSEIF(FILE2(II+1:II+3).EQ.'PNG' .OR.
44531     1             FILE2(II+1:II+3).EQ.'png')THEN
44532              ICASE='IMAG'
44533            ELSEIF(FILE2(II+1:II+3).EQ.'JPG' .OR.
44534     1             FILE2(II+1:II+3).EQ.'jpg')THEN
44535              ICASE='IMAG'
44536            ELSEIF(FILE2(II+1:II+3).EQ.'JPEG' .OR.
44537     1             FILE2(II+1:II+3).EQ.'jpeg')THEN
44538              ICASE='IMAG'
44539            ELSEIF(FILE2(II+1:II+3).EQ.'GIF' .OR.
44540     1             FILE2(II+1:II+3).EQ.'gif')THEN
44541              ICASE='IMAG'
44542            ELSEIF(FILE2(II+1:II+3).EQ.'TIF' .OR.
44543     1             FILE2(II+1:II+3).EQ.'tif')THEN
44544              ICASE='IMAG'
44545            ELSEIF(FILE2(II+1:II+3).EQ.'BMP' .OR.
44546     1           FILE2(II+1:II+3).EQ.'bmp')THEN
44547              ICASE='IMAG'
44548            ELSEIF(FILE2(II+1:II+3).EQ.'SVG' .OR.
44549     1             FILE2(II+1:II+3).EQ.'svg')THEN
44550              ICASE='IMAG'
44551            ENDIF
44552            GOTO119
44553          ENDIF
44554  110   CONTINUE
44555  119   CONTINUE
44556      ENDIF
44557C
44558      IF(IBUGS2.EQ.'ON'.OR.ISUBRO.EQ.'EWFI')THEN
44559        WRITE(ICOUT,116)ICASE
44560  116   FORMAT('ICASE = ',A4)
44561        CALL DPWRST('XXX','BUG ')
44562      ENDIF
44563C
44564      N0=0
44565      IFLAG=0
44566      IFLAG9=0
44567      DO120II=1,N1
44568        IF(FILE2(II:II).EQ.' ')THEN
44569          IF(FILE2(1:1).NE.'"' .OR. FILE2(N1:N1).NE.'"')THEN
44570            IFLAG=1
44571          ENDIF
44572          GOTO129
44573        ENDIF
44574  120 CONTINUE
44575  129 CONTINUE
44576C
44577      ISTRIN=' '
44578      IF(IOPSY1.EQ.'UNIX' .AND.
44579     1  (ICASE.EQ.'POST' .OR. ICASE.EQ.'DAT') .AND.
44580     1   NCPSVW.LE.0)THEN
44581        WRITE(ICOUT,999)
44582        CALL DPWRST('XXX','BUG ')
44583        WRITE(ICOUT,3001)
44584 3001   FORMAT('***** ERROR IN VIEW PLOT--')
44585        CALL DPWRST('XXX','BUG ')
44586        WRITE(ICOUT,3003)
44587 3003   FORMAT('      NO POSTSCRIPT VIEWER DEFINED.')
44588        CALL DPWRST('XXX','BUG ')
44589        IERROR='YES'
44590        GOTO9000
44591      ELSEIF(IOPSY1.EQ.'UNIX' .AND. ICASE.EQ.'PDF' .AND.
44592     1   NCPDVW.LE.0)THEN
44593        WRITE(ICOUT,999)
44594        CALL DPWRST('XXX','BUG ')
44595        WRITE(ICOUT,3001)
44596        CALL DPWRST('XXX','BUG ')
44597        WRITE(ICOUT,3005)
44598 3005   FORMAT('      NO PDF VIEWER DEFINED.')
44599        CALL DPWRST('XXX','BUG ')
44600        IERROR='YES'
44601        GOTO9000
44602      ELSEIF(IOPSY1.EQ.'UNIX' .AND.
44603     1      (ICASE.EQ.'IMAG' .OR. ICASE.EQ.'UNKN') .AND.
44604     1   NCIMVW.LE.0)THEN
44605        WRITE(ICOUT,999)
44606        CALL DPWRST('XXX','BUG ')
44607        WRITE(ICOUT,3001)
44608        CALL DPWRST('XXX','BUG ')
44609        WRITE(ICOUT,3007)
44610 3007   FORMAT('      NO IMAGE VIEWER DEFINED.')
44611        CALL DPWRST('XXX','BUG ')
44612        IERROR='YES'
44613        GOTO9000
44614      ELSE
44615        IQUOTE='"'
44616C
44617        IFLAG2=0
44618        DO3110II=1,NCPSVW
44619          IF(IPSTVW(II:II).EQ.' ')THEN
44620            IFLAG2=1
44621            GOTO3119
44622          ENDIF
44623 3110   CONTINUE
44624 3119   CONTINUE
44625C
44626        IFLAG3=0
44627        DO3120II=1,NCPDVW
44628          IF(IPDFVW(II:II).EQ.' ')THEN
44629            IFLAG3=1
44630            GOTO3129
44631          ENDIF
44632 3120   CONTINUE
44633 3129   CONTINUE
44634C
44635        IFLAG4=0
44636        DO3130II=1,NCIMVW
44637          IF(IIMAVW(II:II).EQ.' ')THEN
44638            IFLAG4=1
44639            GOTO3139
44640          ENDIF
44641 3130   CONTINUE
44642 3139   CONTINUE
44643C
44644        IFLAG5=0
44645        DO3140II=1,NCBKVW
44646          IF(IBCKVW(II:II).EQ.' ')THEN
44647            IFLAG5=1
44648            GOTO3149
44649          ENDIF
44650 3140   CONTINUE
44651 3149   CONTINUE
44652C
44653        IF(ICASE.EQ.'POST')THEN
44654          N0=NCPSVW
44655          IF(IFLAG2.EQ.1)THEN
44656            ISTRIN(1:1)=IQUOTE
44657            N0=1
44658            IFLAG9=1
44659          ELSE
44660            N0=0
44661          ENDIF
44662          ISTRIN(N0+1:N0+NCPSVW)=IPSTVW(1:NCPSVW)
44663          N0=N0+NCPSVW
44664          IF(IFLAG2.EQ.1)THEN
44665            ISTRIN(N0+1:N0+1)=IQUOTE
44666            N0=N0+1
44667          ENDIF
44668        ELSEIF(ICASE.EQ.'DAT')THEN
44669          IF((IOPSY2.EQ.'MAC ' .AND. IPSTVW(1:4).EQ.'open') .OR.
44670     1       (IOPSY1.EQ.'UNIX' .AND. IPSTVW(1:8).EQ.'xdg-open'))THEN
44671            N0=NCBKVW
44672            IF(IFLAG5.EQ.1)THEN
44673              ISTRIN(1:1)=IQUOTE
44674              N0=1
44675              IFLAG9=1
44676            ELSE
44677              N0=0
44678            ENDIF
44679            ISTRIN(N0+1:N0+NCBKVW)=IBCKVW(1:NCBKVW)
44680            N0=N0+NCBKVW
44681            IF(IFLAG5.EQ.1)THEN
44682              ISTRIN(N0+1:N0+1)=IQUOTE
44683              N0=N0+1
44684            ENDIF
44685          ELSE
44686            N0=NCPSVW
44687            IF(IFLAG2.EQ.1)THEN
44688              ISTRIN(1:1)=IQUOTE
44689              N0=1
44690              IFLAG9=1
44691            ELSE
44692              N0=0
44693            ENDIF
44694            ISTRIN(N0+1:N0+NCPSVW)=IPSTVW(1:NCPSVW)
44695            N0=N0+NCPSVW
44696            IF(IFLAG2.EQ.1)THEN
44697              ISTRIN(N0+1:N0+1)=IQUOTE
44698              N0=N0+1
44699            ENDIF
44700          ENDIF
44701        ELSEIF(ICASE.EQ.'PDF')THEN
44702          N0=NCPDVW
44703          IF(IFLAG3.EQ.1)THEN
44704            ISTRIN(1:1)=IQUOTE
44705            N0=1
44706            IFLAG9=1
44707          ELSE
44708            N0=0
44709          ENDIF
44710          ISTRIN(N0+1:N0+NCPDVW)=IPDFVW(1:NCPDVW)
44711          N0=N0+NCPDVW
44712          IF(IFLAG3.EQ.1)THEN
44713            ISTRIN(N0+1:N0+1)=IQUOTE
44714            N0=N0+1
44715          ENDIF
44716        ELSEIF(ICASE.EQ.'IMAG' .OR. ICASE.EQ.'UNKN')THEN
44717          N0=NCIMVW
44718          IF(IFLAG4.EQ.1)THEN
44719            ISTRIN(1:1)=IQUOTE
44720            N0=1
44721            IFLAG9=1
44722          ELSE
44723            N0=0
44724          ENDIF
44725          ISTRIN(N0+1:N0+NCIMVW)=IIMAVW(1:NCIMVW)
44726          N0=N0+NCIMVW
44727          IF(IFLAG4.EQ.1)THEN
44728            ISTRIN(N0+1:N0+1)=IQUOTE
44729            N0=N0+1
44730          ENDIF
44731        ENDIF
44732      ENDIF
44733      N0=N0+1
44734      ISTRIN(N0:N0)=' '
44735C
44736C     2019/03: IF FILE CONTAINS A SPACE, THEN MAKE SURE FILE NAME IS
44737C              QUOTED.
44738C
44739      IF(IFLAG.EQ.1)THEN
44740        N0=N0+1
44741        ISTRIN(N0:N0)='"'
44742        ISTRIN(N0+1:N0+N1)=FILE2(1:N1)
44743        N0=N0+N1
44744        N0=N0+1
44745        ISTRIN(N0:N0)='"'
44746      ELSE
44747        ISTRIN(N0+1:N0+N1)=FILE2(1:N1)
44748        N0=N0+N1
44749      ENDIF
44750CCCCC N0=N0+1
44751CCCCC ISTRIN(N0:N0)=' '
44752C
44753      IF(IBUGS2.EQ.'ON'.OR.ISUBRO.EQ.'EWFI')THEN
44754        WRITE(ICOUT,3090)N0,ISTRIN(1:MIN(255,n0))
44755 3090   FORMAT('N0,ISTRIN = ',I5,2X,255A1)
44756        CALL DPWRST('XXX','BUG ')
44757      ENDIF
44758C
44759      IF(IOPSY1.EQ.'PC-D')THEN
44760C
44761C               ********************************
44762C               **  STEP 2A--                 **
44763C               **  PC WINDOWS                **
44764C               ********************************
44765C
44766        ISSAV1=ISYSPE
44767        ISSAV2=ISYSHI
44768        ICLESV=ICLEWT
44769        ISYSPE='OFF'
44770        ICLEWT='OFF'
44771        ISYSHI='ON'
44772        IF(IFLAG.EQ.1 .OR. IFLAG9.EQ.1)THEN
44773CCCCC     ISYSHI='OFF'
44774        ENDIF
44775        CALL DPSYS2(ISTRIN,N0,ISUBRO,IERROR)
44776        ISYSPE=ISSAV1
44777        ISYSHI=ISSAV2
44778        ICLEWT=ICLESV
44779      ELSEIF(IOPSY1.EQ.'UNIX')THEN
44780C
44781C               ********************************
44782C               **  STEP 2C--                 **
44783C               **  UNIX OPERATING SYSTEM     **
44784C               ********************************
44785C
44786        CALL DPSYS2(ISTRIN,N0,ISUBRO,IERROR)
44787      ELSE
44788C
44789C               ********************************
44790C               **  STEP 2E--                 **
44791C               **  UNSUPPORTED SYSTEMS.      **
44792C               ********************************
44793C
44794        WRITE(ICOUT,999)
44795        CALL DPWRST('XXX','BUG ')
44796        WRITE(ICOUT,8011)
44797 8011   FORMAT('THE VIEW PLOT CAPABILITY IS NOT SUPPORTED')
44798        CALL DPWRST('XXX','BUG ')
44799        WRITE(ICOUT,8012)IHOST1
44800 8012   FORMAT('ON HOST ',A4)
44801        CALL DPWRST('XXX','BUG ')
44802        WRITE(ICOUT,8013)
44803 8013   FORMAT('CONTACT YOUR SITE INSTALLER.')
44804        CALL DPWRST('XXX','BUG ')
44805      ENDIF
44806C
44807C               *****************
44808C               **  STEP 90--  **
44809C               **  EXIT       **
44810C               *****************
44811C
44812 9000 CONTINUE
44813      IF(IBUGS2.EQ.'ON'.OR.ISUBRO.EQ.'EWFI')THEN
44814        WRITE(ICOUT,999)
44815        CALL DPWRST('XXX','BUG ')
44816        WRITE(ICOUT,9011)
44817 9011   FORMAT('***** AT THE END       OF VIEWFI--')
44818        CALL DPWRST('XXX','BUG ')
44819        WRITE(ICOUT,9013)N0,N1,IERROR
44820 9013   FORMAT('N0,N1,IERROR = ',2I8,2X,A4)
44821        CALL DPWRST('XXX','BUG ')
44822        WRITE(ICOUT,9015)ISTRIN(1:MIN(255,N0))
44823 9015   FORMAT('ISTRIN(1:N0) = ',255A1)
44824        CALL DPWRST('XXX','BUG ')
44825      ENDIF
44826C
44827      RETURN
44828      END
44829