anchor.diff:        integer ic_add, jc_add, ic, jc, mth
         double precision shiftx, shifty, gradx, grady, qc, sl, sr, value
         double precision compute_slopes
  +
  +      write(6,'(A,A)') 'mb_interpolate_face_ghost (ghost_twopatch.f) : ',
  +     &      'This has been replaced by a routine in claw2d_utils.f'
  +      stop
   
   c     # To be figured out later
         mth = 5
  
positive.code: 
        integer i,j,ibc,jbc,mq
  
        write(6,*) 'In ghost_twopatch.f'
        stop
  
        do mq = 1,meqn
  
negative.code:                   enddo
                    kc = areacoarse(i1,j1)
                    qcoarse(i1,j1,mq) = sum/kc
                 enddo
              enddo
           else
  