2D AMRCLAW
coarseGridFlagSet.f
Go to the documentation of this file.
1 c
6 c -------------------------------------------------------------
7 c
8  subroutine coarsegridflagset(iflags,ixlo,ixhi,jxlo,jxhi,
9  . ilo_coarse,ihi_coarse,
10  . jlo_coarse,jhi_coarse,mbuff)
11 
12 
13  integer*1 iflags(ilo_coarse-mbuff:ihi_coarse+mbuff,
14  . jlo_coarse-mbuff:jhi_coarse+mbuff)
15 
16 c
17 c whole point of this routine is to index using the integer cords, not the
18 c way its dimensioned and indexed in the calling routine setdomflags
19 c
20  do 25 j = jxlo,jxhi
21  do 25 i = ixlo,ixhi
22  iflags(i,j) = 1
23  25 continue
24 
25  return
26  end
subroutine coarsegridflagset(iflags, ixlo, ixhi, jxlo, jxhi, ilo_coarse, ihi_coarse, jlo_coarse, jhi_coarse, mbuff)
Flag a whole subregion from (ixlo,ixhi) to (jxlo, jxhi) with integer.