anchor.diff:           if (idir .eq. 0) then
   c           # this ensures that we get 'hanging' corners
   
  +            do ibc = 1,mbc/2
               if (iface_coarse .eq. 0) then
  -               ic = 1
  +               ic = ibc
               elseif (iface_coarse .eq. 1) then
  -               ic = mx
  +               ic = mx - ibc + 1
               endif
               do jc = 1,mx
                  i1 = ic
  
positive.code:             qfine(iff,jff,mq) = value
           enddo
  
        enddo
  
        end
  
negative.code:                   enddo
                 endif
              enddo
              enddo
           else
              do jbc = 1,mbc/2
              if (iface_coarse .eq. 2) then
                 jc = jbc
              elseif (iface_coarse .eq. 3) then
                 jc = my - jbc + 1
              endif
              do ic = 1,mx
      1          i1 = ic
  