
















      INTEGER       MAXCLM, MAXPDB, MAXSIN, MAXEXC
      PARAMETER     (MAXCLM = 30)
      PARAMETER     (MAXPDB = 100000)
      PARAMETER     (MAXSIN = 1000 + 80*MAXCLM)
      PARAMETER     (MAXEXC = 1000)

      INTEGER       PDFUNT, DRAUNT, NUMEXC, IQ7336, IQ7337
      LOGICAL       SELUSE(MAXCLM), USEEXC
      CHARACTER*4   SELEXC(MAXEXC)
      CHARACTER*80  SELNAM(MAXCLM), PNMTXT, PNMUNF

      CHARACTER*4   AQ7337, AQ7336
      EQUIVALENCE   (AQ7336,IQ7336)
      EQUIVALENCE   (AQ7337,IQ7337)
      
      COMMON        /WIFSL1/
     +              SELUSE, USEEXC

      COMMON        /WIFSL2/
     +              SELNAM, AQ7336, PNMTXT, PNMUNF, SELEXC, AQ7337

      COMMON        /WIFSL3/
     +              PDFUNT, DRAUNT, NUMEXC
