c
c
c ==========================================================
subroutine chk1(q,mx,lb,ub,lbr,ubr,shaper,meqn,mout,mresult)
c ==========================================================
c
c # Check the consistency of physical values.
c # An essential debugging tool for AMROC.
c
implicit none
c
integer meqn, mx, mout
double precision q(meqn,mx)
integer lb(1), ub(1), lbr(1), ubr(1), shaper(1),
& mresult, stride, imin(1), imax(1), i, getindx
c
return
end