setflags.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	setflags (iflags, isize, jsize, rctold, idim3, mitot, mjtot, mptr)

Function/Subroutine Documentation

setflags()

subroutine setflags	(	integer(kind=1), dimension(0:isize+1,0:jsize+1)	iflags,
			isize,
			jsize,
		dimension(idim3,mitot,mjtot)	rctold,
			idim3,
			mitot,
			mjtot,
			mptr
	)

transfer flagged arrays into 1 large array of entire domain makes buffering, projecting, etc. easier without searching through all kinds of grids

Definition at line 6 of file setflags.f.

References amr_module::ndilo, amr_module::ndjlo, amr_module::nghost, and amr_module::node.

Referenced by fixcapaq().

c
      use amr_module
      implicit double precision (a-h,o-z)


      dimension rctold(idim3,mitot,mjtot)
      integer(kind=1) iflags(0:isize+1,0:jsize+1)

c :::::::::::::::::::::: SETFLAGS ::::::::::::::::::::::::::::::::::
c :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
c

      ibeg = node(ndilo,mptr) - nghost
      jbeg = node(ndjlo,mptr) - nghost

      do 10 j = nghost+1, mjtot-nghost
      do 10 i = nghost+1, mitot-nghost
        iflags(ibeg+i,jbeg+j) = iflags(ibeg+i,jbeg+j) + rctold(1,i,j)
 10   continue
c
 99   return

Here is the caller graph for this function: