diff --git a/src/elpa2_compute.F90 b/src/elpa2_compute.F90
index de9141709a0fc9b130f3265bab3c2d6e5084a223..c43a62fa321c322c939e5eda3afddd80e4f6c0fb 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