Commit a0e565e5 authored by Andreas Marek's avatar Andreas Marek

Wrong datatype in blas calls

parent 9e46bcd2
......@@ -265,7 +265,7 @@ program test_cholesky
! tmp1 = a**H
#ifdef WITH_MPI
call pztranc(na, na, 1.0_rk8, a, 1, 1, sc_desc, CZERO, tmp1, 1, 1, sc_desc)
call pztranc(na, na, CONE, a, 1, 1, sc_desc, CZERO, tmp1, 1, 1, sc_desc)
#else
tmp1 = transpose(conjg(a))
#endif
......
......@@ -265,7 +265,7 @@ program test_cholesky
! tmp1 = a**H
#ifdef WITH_MPI
call pctranc(na, na, 1.0_rk4, a, 1, 1, sc_desc, CZERO, tmp1, 1, 1, sc_desc)
call pctranc(na, na, CONE, a, 1, 1, sc_desc, CZERO, tmp1, 1, 1, sc_desc)
#else
tmp1 = transpose(conjg(a))
#endif
......
......@@ -253,7 +253,7 @@ program test_transpose_multiply
! tmp1 = a**T
#ifdef WITH_MPI
call pztranc(na, na, 1.0_rk8, a, 1, 1, sc_desc, CZERO, tmp1, 1, 1, sc_desc)
call pztranc(na, na, CONE, a, 1, 1, sc_desc, CZERO, tmp1, 1, 1, sc_desc)
#else
tmp1 = transpose(conjg(a))
#endif
......
......@@ -253,7 +253,7 @@ program test_transpose_multiply
! tmp1 = a**T
#ifdef WITH_MPI
call pctranc(na, na, 1.0_rk4, a, 1, 1, sc_desc, CZERO, tmp1, 1, 1, sc_desc)
call pctranc(na, na, CONE, a, 1, 1, sc_desc, CZERO, tmp1, 1, 1, sc_desc)
#else
tmp1 = transpose(conjg(a))
#endif
......
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