c -*- Fortran -*- c ::::: cuser.i: user parameters for specific problem c c # Euler equations: common /param/ gamma,gamma1 common /problem/ qin double precision gamma,gamma1,qin(4)