anchor.diff:              if (iface_coarse .eq. 0) then
                  ic = ibc
               elseif (iface_coarse .eq. 1) then
  -               ic = mx + ibc - 1
  +               ic = mx - ibc + 1
               endif
               do jc = 1,mx
                  i1 = ic
  
positive.code:          ic = ibc
           jc = jbc
        elseif (icorner_coarse .eq. 1) then
           ic = mx + ibc-1
           jc = jbc
        elseif (icorner_coarse .eq. 2) then
           ic = ibc
           jc = my + jbc-1
        elseif (icorner_coarse .eq. 3) then
           ic = mx + ibc-1
           jc = my + jbc-1
        endif
  
  c     # Interpolate coarse grid corners to fine grid corner ghost cells
  
negative.code:                      qfine(iff,jff,mq) = qc + value
                    end do
                 endif                    !! Don't skip this grid
              enddo                       !! ic loop
              enddo                       !! end of jbc loop
           endif                          !! end idir branch
        enddo                             !! endo mq loop
  
  