From f485da2e8ed4b56e773a6d0a08ac6960bed19837 Mon Sep 17 00:00:00 2001
From: Andreas Marek <amarek@rzg.mpg.de>
Date: Mon, 1 Jun 2015 08:58:08 +0200
Subject: [PATCH] Port back of memory leak fix
---
src/elpa2.F90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/elpa2.F90 b/src/elpa2.F90
index cbe2541e..a9e8d756 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:)
--
GitLab