anchor.diff:                 if (.not. skip_this_grid) then
                     fineval = qfine_dummy(i2(1),j2(1),mq)
                     if (iface_coarse .eq. 2) then
  -                     deltac = fineval + gpcoarse2(ic,mq) + efc2(ic,mq)
  +                     deltac = fineval + gpcoarse2(ic,mq) + efc2(ic,mq,0)
                        areac = area2(ic)
                     else
  -                     deltac = fineval + gmcoarse3(ic,mq) + efc3(ic,mq)
  +                     deltac = fineval + gmcoarse3(ic,mq) + efc3(ic,mq,0)
                        areac = area3(ic)
                     endif
                     qcoarse(ic,jc,mq) = qcoarse(ic,jc,mq) + deltac/areac
  
positive.code: c    # -----------------------------------------------------------------
  c    # These are called from ghost filling routines
  c    # -----------------------------------------------------------------
  
  
  c    # Called from averaging routine, using fine grid (possibly from
  c    # a ghost patch) to compute correction terms.
        subroutine clawpack46_fort_time_sync_f2c(mx,my,mbc,meqn,
       &                                          idir, iface_coarse,
       &                                          area0, area1,
  
negative.code:      &                                          qcoarse,
       &                                          fpcoarse0,fmcoarse1,
       &                                          gpcoarse2,gmcoarse3,
       &                                          fmfine0, fpfine1,
       &                                          gmfine2, gpfine3,
       &                                          efc0, efc1, efc2, efc3,
       &                                          eff0, eff1, eff2, eff3,
       &                                          maskfine, qfine_dummy,
  