Wrong intent declaration

c68ef184 · Andreas Marek · 34fbaebf · c68ef184
Unverified Commit c68ef184 authored Feb 03, 2016 by Andreas Marek
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

src/elpa2_compute.F90 src/elpa2_compute.F90 +1 -1

No files found.
--- 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