anchor.diff:        double precision xlower, ylower, dx, dy
         double precision qcoarsened(1-mbc:mx+mbc,1-mbc:my+mbc,meqn)
   
  -      integer i,j, mq
  +      integer i,j
         double precision qmin, qmax
   
   c     # The difference between this and the true "refinement" above is
  
positive.code:       end
  
  c     # We tag for coarsening if this coarsened patch isn't tagged for refinement
        subroutine tag_for_coarsening(mx,my,mbc,meqn,xlower,ylower,dx,dy,
       &      qcoarsened, tag_patch)
        implicit none
  
  
negative.code:       subroutine tag4refinement(mx,my,mbc,meqn,xlower,ylower,dx,dy,
       &      q,init_flag, tag_patch)
        implicit none
  
  