1 double precision emuca(4*maxres),nemuca(4*maxres),
2 & nemuca2(4*maxres),elow,ehigh,factor,
3 & elowi(maxprocs),ehighi(maxprocs),hbin,
4 & hist(4*maxres),factor_min
5 integer nmuca,imtime,muca_smooth
6 common /double_muca/ emuca,nemuca,
7 & nemuca2,elow,ehigh,factor,hbin,hist,factor_min
8 common /integer_muca/ nmuca,imtime,muca_smooth
9 common /mucarem/ elowi,ehighi