_RL GM_K3D_EadyMaxDepth
& GM_K3D_EadyMaxDepth, GM_K3D_Lambda,
IF (-rF(k).GE.GM_K3D_EadyMaxDepth) EXIT
GM_K3D_EadyMaxDepth = 1000.0
& GM_K3D_EadyMinDepth, GM_K3D_EadyMaxDepth,