417
417
ipart(1,imo)=ipart(1,ida2)
418
418
ipart(2,imo)=ipart(1,ida1)
421
427
write(*,*) idmo,'>', idda1, idda2, 'color', get_color(idmo),'>', get_color(idda1), get_color(idda2)
422
428
write(*,*) "failed for ipartupdate. Please retry without MLM/default dynamical scale"