# ERRZERO -- Error function to deal with division by or sqrt of invalid argument

real procedure errzero( x )

real x

begin
   return 0.0
end