Commit 2cb6e81a authored by Andreas Marek's avatar Andreas Marek
Browse files

Different error margins for single precision

parent 5011a02f
......@@ -320,7 +320,7 @@ program test_invert_trm
print *," Maximum error of result: ", normmax
endif
if (normmax .gt. 5e-11_rk4) then
if (normmax .gt. 5e-4_rk4) then
status = 1
endif
......
......@@ -326,7 +326,7 @@ program test_invert_trm
print *," Maximum error of result: ", normmax
endif
if (normmax .gt. 5e-12_rk4) then
if (normmax .gt. 5e-4_rk4) then
status = 1
endif
......
......@@ -282,7 +282,7 @@ program test_transpose_multiply
print *," Maximum error of result: ", normmax
endif
if (normmax .gt. 5e-11_rk4) then
if (normmax .gt. 5e-4_rk4) then
status = 1
endif
......
......@@ -284,7 +284,7 @@ program test_transpose_multiply
print *," Maximum error of result: ", normmax
endif
if (normmax .gt. 5e-11_rk4) then
if (normmax .gt. 5e-4_rk4) 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