double precision EHIST(4,1000,100)   
      integer IHISTOMATCH(100),ICOUNTHISTO                    
      COMMON/EHISTO/EHIST,IHISTOMATCH,ICOUNTHISTO