Commit 9db1c251 authored by Andreas Marek's avatar Andreas Marek
Browse files

Fix error in trans_ev_tridi

parent c79d2841
......@@ -2149,6 +2149,7 @@ subroutine trans_ev_tridi_to_band_&
reshape(aIntern(1:csw,n_off+1:n_off+bottom_msg_length,i,:), (/ b_len /))
#ifdef WITH_MPI
if (wantDebug) call obj%timer%start("mpi_communication")
!call MPI_Isend(bottom_border_send_buffer(1,i), int(b_len,kind=MPI_KIND), &
call MPI_Isend(bottom_border_send_buffer(1,i), int(bottom_msg_length*stripe_width,kind=MPI_KIND), &
MPI_MATH_DATATYPE_PRECISION_EXPL, int(my_prow+1,kind=MPI_KIND), int(top_recv_tag,kind=MPI_KIND), &
int(mpi_comm_rows,kind=MPI_KIND), bottom_send_request(i), mpierr)
......@@ -2385,7 +2386,7 @@ subroutine trans_ev_tridi_to_band_&
reshape(aIntern(1:csw,n_off+1:n_off+bottom_msg_length,i,:), (/ b_len /))
#ifdef WITH_MPI
if (wantDebug) call obj%timer%start("mpi_communication")
call MPI_Isend(bottom_border_send_buffer(1,i), int(bottom_msg_length*stripe_width,kind=MPI_KIND), &
call MPI_Isend(bottom_border_send_buffer(1,i), int(b_len,kind=MPI_KIND), &
MPI_MATH_DATATYPE_PRECISION_EXPL, int(my_prow+1,kind=MPI_KIND), int(top_recv_tag,kind=MPI_KIND), &
int(mpi_comm_rows,kind=MPI_KIND), bottom_send_request(i), mpierr)
if (wantDebug) call obj%timer%stop("mpi_communication")
......
......@@ -46,8 +46,6 @@
#ifdef WITH_CUDA_AWARE_MPI
#define WITH_CUDA_AWARE_MPI_TRANS_TRIDI_TO_BAND
#else
#undef WITH_CUDA_AWARE_MPI_TRANS_TRIDI_TO_BAND
#endif
subroutine pack_row_group_&
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment