Remove complex GPU call from OpenMP region

This closes issue #51.

Remove complex GPU call from OpenMP region
This closes issue #51.
8638a970 · Andreas Marek · 22cb9eb1 · 8638a970
Commit 8638a970 authored Aug 31, 2017 by Andreas Marek
Show whitespace changes
Inline Side-by-side

Showing with 9 additions and 9 deletions

src/elpa2/elpa2_trans_ev_tridi_to_band_template.F90 src/elpa2/elpa2_trans_ev_tridi_to_band_template.F90 +9 -9

No files found.
--- a/src/elpa2/elpa2_trans_ev_tridi_to_band_template.F90
+++ b/src/elpa2/elpa2_trans_ev_tridi_to_band_template.F90
@@ -712,15 +712,15 @@
                row_group(:, row_group_size) = q(src_offset, 1:l_nev)
 #else /* WITH_OPENMP */

-#if COMPLEXCASE == 1
-! why is an cuda call in the openmp region?
-                call unpack_and_prepare_row_group_complex_gpu_&
-                     &PRECISION&
-                     &(row_group, row_group_dev, aIntern_dev, stripe_count, stripe_width, &
-                      last_stripe_width, a_dim2, l_nev, row_group_size, nblk,      &
-                      unpack_idx, i - limits(ip),.false.)
-                      row_group(:, row_group_size) = q(src_offset, 1:l_nev)
-#endif
+!#if COMPLEXCASE == 1
+!! why is an cuda call in the openmp region?
+!                call unpack_and_prepare_row_group_complex_gpu_&
+!                     &PRECISION&
+!                     &(row_group, row_group_dev, aIntern_dev, stripe_count, stripe_width, &
+!                      last_stripe_width, a_dim2, l_nev, row_group_size, nblk,      &
+!                      unpack_idx, i - limits(ip),.false.)
+!                      row_group(:, row_group_size) = q(src_offset, 1:l_nev)
+!#endif

 #endif /* not OpenMP */
              else