AMROC Main     Blockstructured Adaptive Mesh Refinement in object-oriented C++


Main Page   Class Hierarchy   Compound List   File List  

Makefile  combl.f  cuser.i  init2.f  physbd2.f  sauxrx2.f  srcrx2.f  rpn2eu.f  rpt2eu.f  chk2eu.f  Problem.h  amr_main.C 

applications/euler/2d/Cyl/src/sauxrx2.f

c
c
c     =====================================================
       subroutine setaux(maxmx,maxmy,meqn,mbc,ibx,iby,mx,my,q,
     &     aux,maux,xc,yc,dx,dy,t,dt)
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
       do 10 j = 1-iby*mbc, my+iby*mbc
          aux(1,1-ibx*mbc,j) = corny + (j+iby*mbc-.5)*dy
          do 10 i = 2-ibx*mbc, mx+ibx*mbc
             aux(1,i,j) = aux(1,1-ibx*mbc,j)
 10    continue
       return
       end


Quickstart     Users Guide     Programmers Reference     Installation      Examples     Download



AMROC Main      Home      Contact
last update: 06/01/04