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