Update euler.f90