anchor.diff:        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,
  +      subroutine tag4coarsening(mx,my,mbc,meqn,xlower,ylower,dx,dy,
        &      qcoarsened, tag_patch)
         implicit none
   
  
positive.code:       subroutine tag_for_refinement(mx,my,mbc,meqn,xlower,ylower,dx,dy,
       &      q,init_flag, tag_patch)
        implicit none
  
  
negative.code:          do j = 1,my
              qmin = min(q(i,j,1),qmin)
              qmax = max(q(i,j,1),qmax)
              if (qmax - qmin .gt. 0.5d0) then
                 tag_patch = 1
                 return
              endif
  