subroutine eular (y,x,dx) real x, y, dx real slope slope = 2*x y = y + slope*dx end