Create Euler1D.f90