anchor.diff: -      subroutine tag_for_refinement(mx,my,mbc,meqn,xlower,ylower,dx,dy,
  +      subroutine tag4refinement(mx,my,mbc,meqn,xlower,ylower,dx,dy,
        &      q,init_flag, tag_patch)
         implicit none
   
  
positive.code:       double precision xlower, ylower, dx, dy
        double precision qcoarsened(1-mbc:mx+mbc,1-mbc:my+mbc,meqn)
  
        integer i,j, mq
        double precision qmin, qmax
  
  c     # The difference between this and the true "refinement" above is
  
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
  