anchor.diff:  
         integer i,j,ibc,jbc,mq
   
  -      write(6,*) 'In ghost_twopatch.f'
  +      write(6,'(A,A)') 'mb_exchange_face_ghost (ghost_two_patch.f) : ',
  +     &      'This has been replaced by a routine in claw2d_utils.f'
         stop
   
         do mq = 1,meqn
  
positive.code:       parameter(rr2 = 4)
        integer i2(0:rr2-1),j2(0:rr2-1)
  
        r2 = refratio*refratio
        if (r2 .ne. rr2) then
           write(6,*) 'average_face_ghost (claw2d_utils.f) ',
  
negative.code:                   kc = areacoarse(i1,j1)
                    qcoarse(i1,j1,mq) = sum/kc
  
                 enddo
              enddo
           endif
  