chopmod.f 26.5 KB