Commit 18aa6e7b authored by Andreas Marek's avatar Andreas Marek
Browse files

Move check out of OpenMP region

parent 0278642d
...@@ -220,10 +220,7 @@ ...@@ -220,10 +220,7 @@
endif endif
#endif #endif
#ifdef WITH_OPENMP
#ifndef WITH_OPENMP
nl = merge(stripe_width, last_stripe_width, istripe<stripe_count)
#else /* WITH_OPENMP */
#if REALCASE == 1 #if REALCASE == 1
if (kernel .eq. ELPA_2STAGE_REAL_GPU) then if (kernel .eq. ELPA_2STAGE_REAL_GPU) then
...@@ -241,6 +238,12 @@ ...@@ -241,6 +238,12 @@
stop 1 stop 1
endif endif
#endif #endif
#endif /* WITH_OPENMP */
#ifndef WITH_OPENMP
nl = merge(stripe_width, last_stripe_width, istripe<stripe_count)
#else /* WITH_OPENMP */
if (istripe<stripe_count) then if (istripe<stripe_count) then
nl = stripe_width nl = stripe_width
else else
...@@ -1370,7 +1373,7 @@ ...@@ -1370,7 +1373,7 @@
#ifndef WITH_FIXED_REAL_KERNEL #ifndef WITH_FIXED_REAL_KERNEL
endif endif
#endif /* not WITH_FIXED_REAL_KERNEL */ #endif /* not WITH_FIXED_REAL_KERNEL */
#endif /* WITH_REAL_SSE_BLOCK4_KERNEL */ #endif /* WITH_REAL_SSE_BLOCK6_KERNEL */
#endif /* REALCASE */ #endif /* REALCASE */
......
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