File tree Expand file tree Collapse file tree 1 file changed +2
-2
lines changed Expand file tree Collapse file tree 1 file changed +2
-2
lines changed Original file line number Diff line number Diff line change @@ -56,7 +56,7 @@ module test_linalg_determinant
56
56
call check(error,state%ok(),state%print())
57
57
if (allocated(error)) return
58
58
59
- call check(error, abs(deta-1.0_${rk}$)<tiny (0.0_${rk}$), 'det(eye(n))==1')
59
+ call check(error, abs(deta-1.0_${rk}$)<epsilon (0.0_${rk}$), 'det(eye(n))==1')
60
60
61
61
end subroutine test_${rt[0]}$${rk}$_eye_determinant
62
62
@@ -126,7 +126,7 @@ module test_linalg_determinant
126
126
call check(error,state%ok(),state%print())
127
127
if (allocated(error)) return
128
128
129
- call check(error, all(abs(res-deta)<=tiny (0.0_${ck}$)), &
129
+ call check(error, all(abs(res-deta)<=epsilon (0.0_${ck}$)), &
130
130
'det((1+i)*eye(n)) does not match result')
131
131
132
132
end subroutine test_${ct[0]}$${ck}$_complex_determinant
You can’t perform that action at this time.
0 commit comments