From c68ef1845fbff81f7e971b9a49951dc7c6d67305 Mon Sep 17 00:00:00 2001
From: Andreas Marek <amarek@rzg.mpg.de>
Date: Wed, 3 Feb 2016 12:29:13 +0100
Subject: [PATCH] Wrong intent declaration

---
 src/elpa2_compute.F90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/elpa2_compute.F90 b/src/elpa2_compute.F90
index de91417..c43a62f 100644
--- a/src/elpa2_compute.F90
+++ b/src/elpa2_compute.F90
@@ -1646,7 +1646,7 @@ module ELPA2_compute
 #else
       real(kind=rk)                 :: q(ldq,matrixCols)
 #endif
-      real(kind=rk), intent(out)    :: hh_trans_real(:,:)
+      real(kind=rk), intent(in)     :: hh_trans_real(:,:)
       integer(kind=ik)              :: np_rows, my_prow, np_cols, my_pcol
 
       integer(kind=ik)              :: i, j, ip, sweep, nbuf, l_nev, a_dim2
-- 
GitLab