Wrong intent declaration

parent 34fbaebf
...@@ -1646,7 +1646,7 @@ module ELPA2_compute ...@@ -1646,7 +1646,7 @@ module ELPA2_compute
#else #else
real(kind=rk) :: q(ldq,matrixCols) real(kind=rk) :: q(ldq,matrixCols)
#endif #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) :: np_rows, my_prow, np_cols, my_pcol
integer(kind=ik) :: i, j, ip, sweep, nbuf, l_nev, a_dim2 integer(kind=ik) :: i, j, ip, sweep, nbuf, l_nev, a_dim2
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment