function [ka] = Csurf_Ground_m (Sut)
%  This routine computes the surface correction factor for a ground surface
%  given the ultimate tensile strength
%
%   Sut = ultimate tensile strength in MPa

ka = 1.58 * Sut ^ (-0.085);

end

