function [tout,yout,dt,success]=stepeuleroc(time,y,dt,tol)
global diff;
[tout,yout]=euler(time,y,dt);
success=1;
