anchor.diff:        ix_m=NX_table(ixy_m)
         iy_m=NY_table(ixy_m)
         if(NXYsplit /= 1)then
  -        zu(:,:,:)=zu_m(:,:,:,ixy_m)
  -        Vh(:)=Vh_m(:,ixy_m)
  -        Vexc(:)=Vexc_m(:,ixy_m)
  -        Eexc(:)=Eexc_m(:,ixy_m)
  -        Vloc(:)=Vloc_m(:,ixy_m)
  -        Vloc_old(:,:)=Vloc_old_m(:,:,ixy_m)
  +        call get_macro_data(ixy_m)
         end if
         call timer_end(LOG_OTHER)
   
  
positive.code:   call comm_finalize
  
  contains
    subroutine reset_gs_timer
      implicit none
      integer :: i
  
negative.code:       call timer_begin(LOG_OTHER)
  ! sato ---------------------------------------
        if(NXYsplit /= 1)then
          call put_macro_data(ixy_m)
        end if
        kAc(:,1)=kAc0(:,1)+Ac_new_m(1,ix_m,iy_m)
        kAc(:,2)=kAc0(:,2)+Ac_new_m(2,ix_m,iy_m)
  