c c ===================================================== subroutine setaux(maxmx,maxmy,maxmz,meqn,mbc,ibx,iby,ibz, & mx,my,mz,q,aux,maux,cornx,corny,cornz,dx,dy,dz,t,dt) c ===================================================== c c # dummy subroutine for use when equation has no aux array. c # If method(7)=0 then this routine is never called, but its c # existence is required. c implicit double precision (a-h, o-z) dimension q(meqn, 1-ibx*mbc:maxmx+ibx*mbc, & 1-iby*mbc:maxmy+iby*mbc, 1-ibz*mbc:maxmz+ibz*mbc) dimension aux(maux, 1-ibx*mbc:maxmx+ibx*mbc, & 1-iby*mbc:maxmy+iby*mbc, 1-ibz*mbc:maxmz+ibz*mbc) c return end