function [tout,yout,dt]=stepeuler(time,y,dt)
% stepeuler makes one Euler step.
% this routine would be modified to include the
% time-step control and extrapolation
% if it was not for the time-step control it would be more reasonable
% to lump stepeuler and euler into a single routine
[tout,yout]=euler(time,y,dt);

