add refineutil.f90