Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
On Thursday, 7th July from 1 to 3 pm there will be a maintenance with a short downtime of GitLab.
Open sidebar
elpa
elpa
Commits
f89f9816
Commit
f89f9816
authored
Mar 18, 2018
by
Pavel Kus
Browse files
test_analytic sanity check issues warning instead of assert
parent
8c8c79bd
Changes
1
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
test/shared/test_analytic_template.F90
View file @
f89f9816
...
...
@@ -481,6 +481,14 @@
MATH_DATATYPE
(
kind
=
rck
)
::
A
(
na
,
na
),
S
(
na
,
na
),
L
(
na
,
na
),
res
(
na
,
na
)
integer
(
kind
=
ik
)
::
i
,
j
,
decomposition
(
num_primes
)
real
(
kind
=
rk
)
::
err
#ifdef DOUBLE_PRECISION
real
(
kind
=
rk
),
parameter
::
TOL
=
1e-8
#endif
#ifdef SINGLE_PRECISION
real
(
kind
=
rk
),
parameter
::
TOL
=
1e-4
#endif
assert
(
decompose
(
na
,
decomposition
))
do
i
=
1
,
na
...
...
@@ -504,13 +512,12 @@
end
do
res
=
matmul
(
A
,
S
)
-
matmul
(
S
,
L
)
#ifdef DOUBLE_PRECISION
assert
(
maxval
(
abs
(
res
))
<
1e-8
)
#elif SINGLE_PRECISION
assert
(
maxval
(
abs
(
res
))
<
1e-4
)
#else
assert
(
.false.
)
#endif
err
=
maxval
(
abs
(
res
))
if
(
err
>
TOL
)
then
print
*
,
"WARNING: sanity test in module analytic failed, error is "
,
err
end
if
if
(
.false.
)
then
!if(na == 2 .or. na == 5) then
call
print_matrix
(
myid
,
na
,
A
,
"A"
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment