& grdchk_eps
_RL grdchk_eps
localEps = abs(grdchk_eps)
localEps = - abs(grdchk_eps)
if ( grdchk_eps .eq. 0. ) then
& /(grdchk_epsfac*grdchk_eps)
&' EPS = ',grdchk_eps
& grdchk_eps,
grdchk_eps = 1. _d 0
&' eps: ',grdchk_eps