












      INTEGER      MAXTAB, MAXTAL
      PARAMETER    (MAXTAB = 100)
      PARAMETER    (MAXTAL = MAXAA)
      INTEGER      NUMTAB, TABLEN(MAXTAB), TABTYP(MAXTAB), 
     +             TABUSE(MAXTAB), IQ7344, IQ7346, NXTTAB
      CHARACTER*4  AQ7346
      CHARACTER*80 TABNAM(MAXTAB)
      EQUIVALENCE  (IQ7346,AQ7346)

      COMMON      /WIFTB1/
     +             NUMTAB, TABLEN, TABTYP, TABUSE, NXTTAB, IQ7344

      COMMON      /WIFTB2/
     +             TABNAM, AQ7346
