Update detachment_model.f