Commit b28f067d authored by Andreas Marek's avatar Andreas Marek
Browse files

Wrong datatype in some scalapack calls in test programms

parent 43d232a1
...@@ -265,7 +265,7 @@ program test_cholesky ...@@ -265,7 +265,7 @@ program test_cholesky
! tmp1 = a**H ! tmp1 = a**H
#ifdef WITH_MPI #ifdef WITH_MPI
call pztranc(na, na, 1.0_rk, 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 #else
tmp1 = transpose(conjg(a)) tmp1 = transpose(conjg(a))
#endif #endif
...@@ -294,7 +294,7 @@ program test_cholesky ...@@ -294,7 +294,7 @@ program test_cholesky
print *," Maximum error of result: ", normmax print *," Maximum error of result: ", normmax
endif endif
if (normmax .gt. 5e-11) then if (normmax .gt. 5e-11_rk) then
status = 1 status = 1
endif endif
......
...@@ -320,7 +320,7 @@ program test_invert_trm ...@@ -320,7 +320,7 @@ program test_invert_trm
print *," Maximum error of result: ", normmax print *," Maximum error of result: ", normmax
endif endif
if (normmax .gt. 5e-11) then if (normmax .gt. 5e-11_rk) then
status = 1 status = 1
endif endif
......
...@@ -253,7 +253,7 @@ program test_transpose_multiply ...@@ -253,7 +253,7 @@ program test_transpose_multiply
! tmp1 = a**T ! tmp1 = a**T
#ifdef WITH_MPI #ifdef WITH_MPI
call pztranc(na, na, 1.0_rk, 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 #else
tmp1 = transpose(conjg(a)) tmp1 = transpose(conjg(a))
#endif #endif
...@@ -282,7 +282,7 @@ program test_transpose_multiply ...@@ -282,7 +282,7 @@ program test_transpose_multiply
print *," Maximum error of result: ", normmax print *," Maximum error of result: ", normmax
endif endif
if (normmax .gt. 5e-11) then if (normmax .gt. 5e-11_rk) then
status = 1 status = 1
endif endif
......
Supports Markdown
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