
























      INTEGER      MAXDG
      PARAMETER    (MAXDG = 100)
      REAL         FTCRDS(4,MAXIG), QFCSTR(MAXDG,10), 
     +             DGWVAL(MAXIG), DGMAT(3,3,MAXDG,10), 
     +             DGVEC(3,MAXDG,10), QFACTS(MAXSP), CBETA(3),
     +             SCORES(MAXDG), QUASCO(MAXDG), BUMPVAL(MAXDG), 
     +             TSC(MAXDG), QFLOC(MAXDG), 
     +             HBOVAL(MAXDG), ACCHIT(MAXDG)

      INTEGER      DGWHER(2,10), INDXCA(200), IQ7312, IQ7391,
     +             IQ7392, IQ7393, IQ7394, IQ7395, IQ7396, IQ7397, 
     +             IQ7398, IQ7399

      COMMON      /MUTDGL1/
     +
     +             FTCRDS, IQ7391, QFACTS, DGWVAL, IQ7392, DGMAT,  
     +             CBETA,  IQ7393, DGVEC,  IQ7394, QFCSTR, IQ7312
 

      COMMON      /MUTDGL2/
     +
     +             INDXCA, IQ7395, DGWHER, IQ7396

      COMMON      /MUTDGL3/
     +
     +             SCORES, QUASCO, BUMPVAL, IQ7397, TSC,   QFLOC, 
     +             IQ7398, HBOVAL,  ACCHIT, IQ7399
