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
5656 call check(error,state%ok(),state%print())
5757 if (allocated(error)) return
5858
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')
6060
6161 end subroutine test_${rt[0]}$${rk}$_eye_determinant
6262
@@ -126,7 +126,7 @@ module test_linalg_determinant
126126 call check(error,state%ok(),state%print())
127127 if (allocated(error)) return
128128
129- call check(error, all(abs(res-deta)<=tiny (0.0_${ck}$)), &
129+ call check(error, all(abs(res-deta)<=epsilon (0.0_${ck}$)), &
130130 'det((1+i)*eye(n)) does not match result')
131131
132132 end subroutine test_${ct[0]}$${ck}$_complex_determinant
You can’t perform that action at this time.
0 commit comments