anchor.diff:           end do
         endif
   
  -c     # Set corners for an xsweep      
  +c     # Cubed sphere : Set corners for an x-sweep
  +c     # This does nothing for non-cubed-sphere grids. 
         sweep_dir = 0
         call clawpack46_fix_corners(mx,my,mbc,meqn,qold,sweep_dir,
        &             block_corner_count)
  
positive.code:                q1d(j,m) = qold(i,j,m)
              enddo
           enddo
  
  c         if (i .eq. 0) then
  c            do m = 1,meqn
  c               if (block_corner_count(0) .eq. 3) then
  c                  do jbc = 1,mbc
  c                     q1d(1-jbc,m) = qold(0,jbc,m)
  c                  enddo
  c               endif
  c               if (block_corner_count(2) .eq. 3) then
  c                  do jbc = 1,mbc
  c                     q1d(my+jbc,m) = qold(0,my-jbc+1,m)
  c                  enddo
  c               endif
  c            enddo
  c         else if (i .eq. mx+1) then
  c            do m = 1,meqn
  c               if (block_corner_count(1) .eq. 3) then
  c                  do jbc = 1,mbc
  c                     q1d(1-jbc,m) = qold(mx+1,jbc,m)
  c                  enddo
  c               endif
  c               if (block_corner_count(3) .eq. 3) then
  c                  do jbc= 1,mbc
  c                     q1d(my+jbc,m) = qold(mx+1,my-jbc+1,m)
  c                  enddo
  c               endif
  c            enddo
  c         endif
  
  c
           if (mcapa .gt. 0)  then
             do  j = 1-mbc, my+mbc
  
negative.code: c     ==================
  c
  
  c     # Cubed sphere : Set corners for an y-sweep
  c     # This does nothing for non-cubed-sphere grids. 
        sweep_dir = 1
        call clawpack46_fix_corners(mx,my,mbc,meqn,qold,sweep_dir,
       &             block_corner_count)
  