double procedure sas_neg(v)

double v

begin
	return (sqrt (abs (v)))
end
#---------------------------------------------------------------------------
# End of sas_neg
#---------------------------------------------------------------------------
double procedure sas_zero (v)

double	v

begin
	return (0.d0)
end
#---------------------------------------------------------------------------
# End of sas_zero
#---------------------------------------------------------------------------