anchor.diff:         call MPI_BARRIER( ADM_COMM_world, ierr )
          call DEBUG_rapend  ('Node imbalance adjustment')
       endif
  +
  +    !$acc wait
   
       call DEBUG_rapstart('COMM data_transfer')
   
  
positive.code:           call ADM_proc_stop
         endif
      endif
  
      !-----------------------------------------
      ! call MPI_IRECV
  
negative.code:       endif
      endif
    end subroutine
  
    !(20101207) added by teraim
    subroutine get_tempsb(icol, irow, ret)
      implicit none
  