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
Open sidebar
elpa
elpa
Commits
b9bbba2f
Commit
b9bbba2f
authored
Mar 22, 2017
by
Andreas Marek
Browse files
Fix another error for builds without MPI
parent
eff1665e
Changes
2
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
src/compute_hh_trafo.X90
View file @
b9bbba2f
...
...
@@ -736,7 +736,7 @@
& (c_loc(a(1,jjj+off+a_off-1,istripe,my_thread)), w, nbw, nl, stripe_width, nbw)
#else
call double_hh_trafo_&
&PRECSION&
&PREC
I
SION&
&_sse_2hv_&
&PRECISION&
& (c_loc(a(1,jjj+off+a_off-1,istripe)), w, nbw, nl, stripe_width, nbw)
...
...
test/shared/check_correctnes.F90
View file @
b9bbba2f
...
...
@@ -186,9 +186,9 @@ module mod_check_correctness
if
(
myid
==
0
)
print
*
if
(
myid
==
0
)
print
*
,
'Error Residual :'
,
errmax
#ifdef DOUBLE_PRECISION_COMPLEX
if
(
errmax
.gt.
5e-12_rk8
)
then
if
(
errmax
.gt.
5e-12_rk8
.or.
errmax
.eq.
0.0_rk8
)
then
#else
if
(
errmax
.gt.
3e-3_rk4
)
then
if
(
errmax
.gt.
3e-3_rk4
.or.
errmax
.eq.
0.0_rk4
)
then
#endif
status
=
1
endif
...
...
@@ -257,9 +257,9 @@ module mod_check_correctness
if
(
myid
==
0
)
print
*
,
'Error Orthogonality:'
,
errmax
#ifdef DOUBLE_PRECISION_COMPLEX
if
(
errmax
.gt.
5e-12_rk8
)
then
if
(
errmax
.gt.
5e-12_rk8
.or.
errmax
.eq.
0.0_rk8
)
then
#else
if
(
errmax
.gt.
9e-4_rk4
)
then
if
(
errmax
.gt.
9e-4_rk4
.or.
errmax
.eq.
0.0_rk4
)
then
#endif
status
=
1
endif
...
...
@@ -427,10 +427,10 @@ module mod_check_correctness
if
(
myid
==
0
)
print
*
if
(
myid
==
0
)
print
*
,
'Error Residual :'
,
errmax
#ifdef DOUBLE_PRECISION_COMPLEX
if
(
errmax
.gt.
5e-12_rk8
)
then
if
(
errmax
.gt.
5e-12_rk8
.or.
errmax
.eq.
0.0_rk8
)
then
#else
! if (errmax .gt. 8e-4_rk4) then
if
(
errmax
.gt.
8e-2_rk4
)
then
if
(
errmax
.gt.
8e-2_rk4
.or.
errmax
.eq.
0.0_rk4
)
then
#endif
status
=
1
endif
...
...
@@ -499,10 +499,10 @@ module mod_check_correctness
if
(
myid
==
0
)
print
*
,
'Error Orthogonality:'
,
errmax
#ifdef DOUBLE_PRECISION_COMPLEX
if
(
errmax
.gt.
5e-12_rk8
)
then
if
(
errmax
.gt.
5e-12_rk8
.or.
errmax
.eq.
0.0_rk8
)
then
#else
! if (errmax .gt. 6e-5_rk4) then
if
(
errmax
.gt.
8e-2_rk4
)
then
if
(
errmax
.gt.
8e-2_rk4
.or.
errmax
.eq.
0.0_rk4
)
then
#endif
status
=
1
endif
...
...
@@ -675,9 +675,9 @@ module mod_check_correctness
if
(
myid
==
0
)
print
*
if
(
myid
==
0
)
print
*
,
'Error Residual :'
,
errmax
#ifdef DOUBLE_PRECISION_REAL
if
(
errmax
.gt.
9e-12_rk8
)
then
if
(
errmax
.gt.
9e-12_rk8
.or.
errmax
.eq.
0.0_rk8
)
then
#else
if
(
errmax
.gt.
3e-3_rk4
)
then
if
(
errmax
.gt.
3e-3_rk4
.or.
errmax
.eq.
0.0_rk4
)
then
#endif
status
=
1
endif
...
...
@@ -755,9 +755,9 @@ module mod_check_correctness
#endif /* WITH_MPI */
if
(
myid
==
0
)
print
*
,
'Error Orthogonality:'
,
errmax
#ifdef DOUBLE_PRECISION_REAL
if
(
errmax
.gt.
9e-12_rk8
)
then
if
(
errmax
.gt.
9e-12_rk8
.or.
errmax
.eq.
0.0_rk8
)
then
#else
if
(
errmax
.gt.
9e-4_rk4
)
then
if
(
errmax
.gt.
9e-4_rk4
.or.
errmax
.eq.
0.0_rk4
)
then
#endif
status
=
1
endif
...
...
@@ -926,10 +926,10 @@ module mod_check_correctness
if
(
myid
==
0
)
print
*
if
(
myid
==
0
)
print
*
,
'Error Residual :'
,
errmax
#ifdef DOUBLE_PRECISION_REAL
if
(
errmax
.gt.
9e-12_rk8
)
then
if
(
errmax
.gt.
9e-12_rk8
.or.
errmax
.eq.
0.0_rk8
)
then
#else
! if (errmax .gt. 8e-4_rk4) then
if
(
errmax
.gt.
8e-2_rk4
)
then
if
(
errmax
.gt.
8e-2_rk4
.or.
errmax
.eq.
0.0_rk4
)
then
#endif
status
=
1
endif
...
...
@@ -1008,10 +1008,10 @@ module mod_check_correctness
if
(
myid
==
0
)
print
*
,
'Error Orthogonality:'
,
errmax
#ifdef DOUBLE_PRECISION_REAL
if
(
errmax
.gt.
9e-12_rk8
)
then
if
(
errmax
.gt.
9e-12_rk8
.or.
errmax
.eq.
0.0_rk8
)
then
#else
! if (errmax .gt. 6e-5_rk4) then
if
(
errmax
.gt.
8e-2_rk4
)
then
if
(
errmax
.gt.
8e-2_rk4
.or.
errmax
.eq.
0.0_rk4
)
then
#endif
status
=
1
endif
...
...
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