anchor.diff:        return
         end
   
  -
  +c     #  See 'cubed_sphere_corners.ipynb'
         subroutine clawpack46_fix_corners(mx,my,mbc,meqn,q,sweep_dir,
        &             block_corner_count)
         implicit none
  
positive.code: c     ==================
  c
  
  c     # Set corners for an y-sweep      
        sweep_dir = 1
        call clawpack46_fix_corners(mx,my,mbc,meqn,qold,sweep_dir,
       &             block_corner_count)
  
negative.code:                q1d(j,m) = qold(i,j,m)
              enddo
           enddo
  c
           if (mcapa .gt. 0)  then
             do  j = 1-mbc, my+mbc
  