• VTF
  • FSI
  • AMROC
  • SFC
  • Motion
  • STLIB
  • Main Page
  • src/1d/dummy-routines/saux1xx.f

    c
    c     =====================================================
          subroutine setaux(maxmx,meqn,mbc,ibx,mx,q,
         &     aux,maux,cornx,dx,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)
          dimension aux(maux, 1-ibx*mbc:maxmx+ibx*mbc)
    c
          return
          end
    

<