Commit 83d721f5 authored by Pavel Kus's avatar Pavel Kus
Browse files

fix minor (bug?) where real and complex diverged

parent 6a935004
...@@ -121,9 +121,9 @@ ...@@ -121,9 +121,9 @@
#else /* WITH_MPI */ #else /* WITH_MPI */
#ifdef DOUBLE_PRECISION_COMPLEX #ifdef DOUBLE_PRECISION_COMPLEX
call zscal(na,xc,tmp2(1,i),1) call zscal(na,xc,tmp2(:,i),1)
#else #else
call cscal(na,xc,tmp2(1,i),1) call cscal(na,xc,tmp2(:,i),1)
#endif #endif
#endif /* WITH_MPI */ #endif /* WITH_MPI */
......
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