cavity_refine.f

It is done in the following way: