



















      INTEGER      MAXHST
      PARAMETER    (MAXHST=2500)

      INTEGER      HSTTAB(4,MAXHST), NUMFRG,  
     +             HSTTOT, HSTUNT, IQ7520, IQ7521, IQ7522, IQ7523,
     +             IQ7524, IQ7525, IQ7526, IQ7527, IQ7528, IQ7529,
     +             TRIPLT(3,8000), CHOUFA(3,20), ICF3(3)
      REAL         CHOUFR(3,20)
      LOGICAL      HSTDON
      CHARACTER*1  LOCHST(MAXAA), TMPHST(MAXAA)
      CHARACTER*4  AQ7520
      EQUIVALENCE  (AQ7520,IQ7520)

      COMMON       /WIFHS1/
     +             HSTDON, IQ7521

      COMMON       /WIFHS2/
     +             LOCHST, TMPHST, AQ7520

      COMMON       /WIFHS3/
     +             HSTTAB, HSTTOT, IQ7522, NUMFRG, IQ7523,  
     +             IQ7524, ICF3,   IQ7525, TRIPLT, IQ7526, HSTUNT,
     +             IQ7527, CHOUFA, IQ7528

      COMMON       /WIFHS4/
     +             CHOUFR, IQ7529 
