Commit b9bbba2f authored by Andreas Marek's avatar Andreas Marek

Fix another error for builds without MPI

parent eff1665e
...@@ -736,7 +736,7 @@ ...@@ -736,7 +736,7 @@
& (c_loc(a(1,jjj+off+a_off-1,istripe,my_thread)), w, nbw, nl, stripe_width, nbw) & (c_loc(a(1,jjj+off+a_off-1,istripe,my_thread)), w, nbw, nl, stripe_width, nbw)
#else #else
call double_hh_trafo_& call double_hh_trafo_&
&PRECSION& &PRECISION&
&_sse_2hv_& &_sse_2hv_&
&PRECISION& &PRECISION&
& (c_loc(a(1,jjj+off+a_off-1,istripe)), w, nbw, nl, stripe_width, nbw) & (c_loc(a(1,jjj+off+a_off-1,istripe)), w, nbw, nl, stripe_width, nbw)
......
...@@ -186,9 +186,9 @@ module mod_check_correctness ...@@ -186,9 +186,9 @@ module mod_check_correctness
if (myid==0) print * if (myid==0) print *
if (myid==0) print *,'Error Residual :',errmax if (myid==0) print *,'Error Residual :',errmax
#ifdef DOUBLE_PRECISION_COMPLEX #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 #else
if (errmax .gt. 3e-3_rk4) then if (errmax .gt. 3e-3_rk4 .or. errmax .eq. 0.0_rk4) then
#endif #endif
status = 1 status = 1
endif endif
...@@ -257,9 +257,9 @@ module mod_check_correctness ...@@ -257,9 +257,9 @@ module mod_check_correctness
if (myid==0) print *,'Error Orthogonality:',errmax if (myid==0) print *,'Error Orthogonality:',errmax
#ifdef DOUBLE_PRECISION_COMPLEX #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 #else
if (errmax .gt. 9e-4_rk4) then if (errmax .gt. 9e-4_rk4 .or. errmax .eq. 0.0_rk4) then
#endif #endif
status = 1 status = 1
endif endif
...@@ -427,10 +427,10 @@ module mod_check_correctness ...@@ -427,10 +427,10 @@ module mod_check_correctness
if (myid==0) print * if (myid==0) print *
if (myid==0) print *,'Error Residual :',errmax if (myid==0) print *,'Error Residual :',errmax
#ifdef DOUBLE_PRECISION_COMPLEX #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 #else
! if (errmax .gt. 8e-4_rk4) then ! 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 #endif
status = 1 status = 1
endif endif
...@@ -499,10 +499,10 @@ module mod_check_correctness ...@@ -499,10 +499,10 @@ module mod_check_correctness
if (myid==0) print *,'Error Orthogonality:',errmax if (myid==0) print *,'Error Orthogonality:',errmax
#ifdef DOUBLE_PRECISION_COMPLEX #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 #else
! if (errmax .gt. 6e-5_rk4) then ! 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 #endif
status = 1 status = 1
endif endif
...@@ -675,9 +675,9 @@ module mod_check_correctness ...@@ -675,9 +675,9 @@ module mod_check_correctness
if (myid==0) print * if (myid==0) print *
if (myid==0) print *,'Error Residual :',errmax if (myid==0) print *,'Error Residual :',errmax
#ifdef DOUBLE_PRECISION_REAL #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 #else
if (errmax .gt. 3e-3_rk4) then if (errmax .gt. 3e-3_rk4 .or. errmax .eq. 0.0_rk4) then
#endif #endif
status = 1 status = 1
endif endif
...@@ -755,9 +755,9 @@ module mod_check_correctness ...@@ -755,9 +755,9 @@ module mod_check_correctness
#endif /* WITH_MPI */ #endif /* WITH_MPI */
if (myid==0) print *,'Error Orthogonality:',errmax if (myid==0) print *,'Error Orthogonality:',errmax
#ifdef DOUBLE_PRECISION_REAL #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 #else
if (errmax .gt. 9e-4_rk4) then if (errmax .gt. 9e-4_rk4 .or. errmax .eq. 0.0_rk4) then
#endif #endif
status = 1 status = 1
endif endif
...@@ -926,10 +926,10 @@ module mod_check_correctness ...@@ -926,10 +926,10 @@ module mod_check_correctness
if (myid==0) print * if (myid==0) print *
if (myid==0) print *,'Error Residual :',errmax if (myid==0) print *,'Error Residual :',errmax
#ifdef DOUBLE_PRECISION_REAL #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 #else
! if (errmax .gt. 8e-4_rk4) then ! 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 #endif
status = 1 status = 1
endif endif
...@@ -1008,10 +1008,10 @@ module mod_check_correctness ...@@ -1008,10 +1008,10 @@ module mod_check_correctness
if (myid==0) print *,'Error Orthogonality:',errmax if (myid==0) print *,'Error Orthogonality:',errmax
#ifdef DOUBLE_PRECISION_REAL #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 #else
! if (errmax .gt. 6e-5_rk4) then ! 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 #endif
status = 1 status = 1
endif 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