Commit 2e908e06 authored by Andreas Marek's avatar Andreas Marek

Merge branch 'bugfixes_current_release'

parents 8fe80381 b28f067d
......@@ -265,7 +265,7 @@ program test_cholesky
! tmp1 = a**H
#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
tmp1 = transpose(conjg(a))
#endif
......@@ -294,7 +294,7 @@ program test_cholesky
print *," Maximum error of result: ", normmax
endif
if (normmax .gt. 5e-11) then
if (normmax .gt. 5e-11_rk) then
status = 1
endif
......
......@@ -320,7 +320,7 @@ program test_invert_trm
print *," Maximum error of result: ", normmax
endif
if (normmax .gt. 5e-11) then
if (normmax .gt. 5e-11_rk) then
status = 1
endif
......
......@@ -253,7 +253,7 @@ program test_transpose_multiply
! tmp1 = a**T
#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
tmp1 = transpose(conjg(a))
#endif
......@@ -282,7 +282,7 @@ program test_transpose_multiply
print *," Maximum error of result: ", normmax
endif
if (normmax .gt. 5e-11) then
if (normmax .gt. 5e-11_rk) then
status = 1
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