_RL GM_K3D_EadyMinDepth
& GM_K3D_gamma, GM_K3D_b1, GM_K3D_EadyMinDepth,
IF (-rF(k+1) .LE. GM_K3D_EadyMinDepth) CYCLE
GM_K3D_EadyMinDepth = 50.0
& GM_K3D_EadyMinDepth, GM_K3D_EadyMaxDepth,