682
682
do j = 1, repair_field%dim
684
684
if(halo_send_count(halo, i) > 0) then
685
call mpi_isend(repair_field%val(j)%ptr, 1, send_types(i), i - 1, &
685
call mpi_isend(repair_field%val(j,:), 1, send_types(i), i - 1, &
686
686
tag, communicator, requests((i - 1) * repair_field%dim + j), ierr)
687
687
assert(ierr == MPI_SUCCESS)