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