c c c ========================================================= subroutine src(maxmx,maxmy,meqn,mbc,ibx,iby,mx,my,q, & aux,maux,t,dt,ibnd) c ========================================================= c c # dummy subroutine for use when equation has no source term. c # If method(5)=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) dimension aux(maux, 1-ibx*mbc:maxmx+ibx*mbc, & 1-iby*mbc:maxmy+iby*mbc) c write(6,*) '*** Dummy function for src() called.' write(6,*) '*** Use own function or set method(5)=0.' stop end