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

    c
    c ===================================================================
          subroutine rec3(ixyz,maxm,meqn,mwaves,mbc,mx,
         &     q,method,mthlim,ql,qr)
    c ===================================================================
    c
    c      # dummy subroutine for user defined slope-limiting.
    c      # If method(2)<=3 then this routine is never called, but its
    c      # existence is required.
    c
          implicit double precision (a-h,o-z)
          dimension    q(1-mbc:maxm+mbc, meqn)
          dimension   ql(1-mbc:maxm+mbc, meqn)
          dimension   qr(1-mbc:maxm+mbc, meqn)
    c
          write(6,*) '*** Dummy function for rec3() called.'
          write(6,*) '*** Use own function or set method(2)=3.'
          stop
          end
    

<