C
      INTEGER   MXRCH,MXHDW,MXPTL,MXDAM,MXJUN,MXTIM,MXPLT
C-DWD
C-DWD ##### Begin change ############################
C-DWD Date: Monday, 28 October 1991.  Time: 07:41:15.
C-DWD Date: Wednesday, 23 February 1994.  Time: 11:27:34.
C-DWD -----------------------------------------------
C-DWD Modified parameter values to match QUAL2E MAIN.VAR file.
C-DWD
C      PARAMETER (MXRCH=50,MXHDW=10,MXPTL=50,MXDAM=10,MXJUN=9,
C     1           MXTIM=40,MXPLT= 5)
      PARAMETER (MXRCH=200,MXHDW=20,MXPTL=200,MXDAM=25,MXJUN=19,
     1           MXTIM=40,MXPLT= 5)
C-DWD
C-DWD ##### End change ##############################
C
      COMMON /Q2VAL/ NSOPT,    NPOPT,   PCIVL,      PCRVL,
     1               GPARM,         THEIND,         THEVAL,
     2               DAT2,          DAT3I,          DAT3R,
     3               NCMPEL,        CMPELF,         DAT5,
     4               DAT5A,         DAT6,           DAT6A,
     5               DAT6B,         DAT7,           DAT7A,
     6               DAT8,          DAT8A,          DAT9,
     7               DAT10,         DAT10A,         DAT11,
     8               DAT11A,        DAT12,          DAT13,
     9               DAT13A,        CLDTM,          CLDAT,
     A               NUMPLT,        PLTSTR,         PLTRCH,
     B               BODOPT
C
      INTEGER        NSOPT(11),NPOPT(7),PCIVL(7),
     1                              THEIND(20),
     3                              DAT3I(MXRCH),
     4               NCMPEL(MXRCH), CMPELF(20,MXRCH),
     2               CLDTM(4,MXTIM),                NUMPLT,
     3               PLTSTR(MXPLT), PLTRCH(MXRCH,MXPLT), BODOPT
      REAL                                          PCRVL(13),
     1               GPARM(22),                     THEVAL(20),
     2               DAT2(3,MXRCH),                 DAT3R(8,MXRCH),
     3               DAT5(7,MXRCH), DAT5A(8,MXRCH),
     4               DAT6(8,MXRCH), DAT6A(9,MXRCH), DAT6B(8,MXRCH),
     5               DAT7(9,MXRCH), DAT7A(8,MXRCH), DAT8(10,MXRCH),
     6               DAT8A(8,MXRCH),DAT9(4,MXJUN),  DAT10(8,MXHDW),
     7               DAT10A(10,MXHDW),DAT11(9,MXPTL),DAT11A(10,MXPTL),
     8               DAT12(7,MXDAM),DAT13(8),       DAT13A(7),
     9                              CLDAT(6,MXTIM)
C
C     * * * EQUIVALENCES * * *
      INTEGER     METFLG,NUMRCH,NUMJUN,NUMHDW,NUMPTL
      REAL        MAXITR
      EQUIVALENCE (PCIVL(2),METFLG),(PCIVL(4),NUMRCH),(PCIVL(5),NUMJUN),
     1            (PCIVL(6),NUMHDW),(PCIVL(7),NUMPTL),(PCRVL(3),MAXITR)
C
      COMMON /Q2CHR/ QTITLE,    BNAME,    CNAME,     CUNITS,
     1               CSOPT,      NTHET,      RCHNAM,
     2               JUNNAM,          HDWNAM,
     3               PTLNAM
C
      CHARACTER*1    QTITLE(59),BNAME(59),CNAME(4,4),CUNITS(4,4),
     1               CSOPT(3,11),NTHET(8,20),RCHNAM(16,MXRCH),
     2               JUNNAM(16,MXJUN),HDWNAM(16,MXHDW),
     3               PTLNAM(12,MXPTL)
C
