diff --git a/src/elpa2.F90 b/src/elpa2.F90 index cbe2541e1308b6a8e21ab2fa5e40acf315954ba3..a9e8d756cec73863ae9756c903e2db6d6464876d 100644 --- a/src/elpa2.F90 +++ b/src/elpa2.F90 @@ -1739,7 +1739,7 @@ subroutine tridiag_band_real(na, nb, nblk, a, lda, d, e, mpi_comm_rows, mpi_comm #ifdef WITH_OPENMP call mpi_wait(ireq_hv,MPI_STATUS_IGNORE,mpierr) #else - call mpi_wait(ireq_ab,MPI_STATUS_IGNORE,mpierr) + call mpi_wait(ireq_hv,MPI_STATUS_IGNORE,mpierr) #endif hv_s(1) = tau_new hv_s(2:) = hv_new(2:)