--- /dev/null
+ 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
+