2d/dummy-routines/src2xx.f

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