c
c
c ==========================================================
subroutine chk1ac(q,mx,lb,ub,lbr,ubr,shaper,meqn,
& mout,mresult)
c ==========================================================
c
implicit none
integer meqn, mx, mout
double precision q(meqn,mx)
c
integer lb(1), ub(1), lbr(1), ubr(1), shaper(1),
& mresult, stride, imin(1), imax(1), i, getindx
c
return
end