adaptivemeshrefinementfortran\AnEfficientDynamicallyAdaptiveMeshforpotentiallysingularsolutions