Skip to content

GitLab

elpa
elpa
Commit b9bbba2f authored by Andreas Marek's avatar Andreas Marek
Browse files
Options

Fix another error for builds without MPI

parent eff1665e
Hide whitespace changes
Inline Side-by-side
Showing with 17 additions and 17 deletions
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&
&PRECISION&
&_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
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment