











      INTEGER      MAXCLL, MAXCLU, MAXFAM
      PARAMETER    (MAXCLL = 500)
      PARAMETER    (MAXCLU = 20)
      PARAMETER    (MAXFAM = 50)

      INTEGER      FAMILY(2,MAXFAM), CLUSTR(MAXCLL,MAXCLU), 
     +             NUMCLU, NUMFAM, LENCLU(MAXCLL),
     +             IQ7330, IQ7331
      CHARACTER*80 FAMNAM(MAXFAM), CLUNAM(MAXCLL)
      CHARACTER*4  AQ7331
      LOGICAL      FAM_ONCE, CLU_ONCE
      EQUIVALENCE  (AQ7331,IQ7331)

      COMMON      /WIFCL1/
     +             FAMILY, CLUSTR, NUMCLU, LENCLU, NUMFAM, IQ7330

      COMMON      /WIFCL2/
     +             FAMNAM, CLUNAM, AQ7331

      COMMON      /WIFCL3/
     +             FAM_ONCE, CLU_ONCE
