double precision emuca(4*maxres),nemuca(4*maxres),
     &        nemuca2(4*maxres),elow,ehigh,factor,
     &        elowi(maxprocs),ehighi(maxprocs),hbin,
     &        hist(4*maxres),factor_min
      integer nmuca,imtime,muca_smooth
      common /double_muca/ emuca,nemuca,
     &        nemuca2,elow,ehigh,factor,hbin,hist,factor_min
      common /integer_muca/ nmuca,imtime,muca_smooth
      common /mucarem/ elowi,ehighi