Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
elpa
elpa
Commits
3b96be67
Commit
3b96be67
authored
Aug 17, 2017
by
Andreas Marek
Browse files
Disable hermitian multiply test
parent
30ded3ab
Changes
2
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
generate_automake_test_programs.py
View file @
3b96be67
...
...
@@ -62,7 +62,7 @@ for m, g, t, p, d, s, l in product(
if
(
t
==
"hermitian_multiply"
and
(
s
==
"2stage"
)):
continue
if
(
t
==
"hermitian_multiply"
and
(
p
==
"single"
)
):
if
(
t
==
"hermitian_multiply"
):
continue
for
kernel
in
[
"all_kernels"
,
"default_kernel"
]
if
s
==
"2stage"
else
[
"nokernel"
]:
...
...
test/shared/test_check_correctness_template.F90
View file @
3b96be67
...
...
@@ -524,11 +524,20 @@ function check_correctness_&
status
=
0
#if REALCASE == 1
#ifdef DOUBLE_PRECISION_REAL
tmp1
(:,:)
=
0.0_rk8
#else
tmp1
(:,:)
=
0.0_rk4
#endif
#endif /* REALCASE */
#if COMPLEXCASE == 1
#ifdef DOUBLE_PRECISION_COMPLEX
tmp1
(:,:)
=
0.0_ck8
#else
tmp1
(:,:)
=
0.0_ck4
#endif
#endif /* COMPLEXCASE */
#if REALCASE == 1
...
...
@@ -672,12 +681,13 @@ function check_correctness_&
#endif /* WITH_MPI */
#endif /*
REAL
CASE == 1 */
#endif /*
COMPLEX
CASE == 1 */
if
(
myid
.eq.
0
)
then
print
*
,
" Maximum error of result: "
,
normmax
endif
#if REALCASE == 1
#ifdef DOUBLE_PRECISION_REAL
if
(
normmax
.gt.
5e-12_rk8
)
then
status
=
1
...
...
@@ -687,7 +697,19 @@ function check_correctness_&
status
=
1
endif
#endif
#endif
#if COMPLEXCASE == 1
#ifdef DOUBLE_PRECISION_COMPLEX
if
(
normmax
.gt.
5e-11_rk8
)
then
status
=
1
endif
#else
if
(
normmax
.gt.
5e-3_rk4
)
then
status
=
1
endif
#endif
#endif
end
function
function
check_correctness_hermitian_multiply_
&
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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