modify muon generater in source.f