function DOUBLES_EQUAL(expected,actual,atol)

if abs(expected-actual)>atol
  error(sprintf('DOUBLES_EQUAL fails: expected %g but got %g',expected,actual));
end