From 8638a970e97e189c3f74e871230250dba90054e7 Mon Sep 17 00:00:00 2001 From: Andreas Marek Date: Thu, 31 Aug 2017 15:03:57 +0200 Subject: [PATCH] Remove complex GPU call from OpenMP region This closes issue #51. --- .../elpa2_trans_ev_tridi_to_band_template.F90 | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/src/elpa2/elpa2_trans_ev_tridi_to_band_template.F90 b/src/elpa2/elpa2_trans_ev_tridi_to_band_template.F90 index 614ebe00..a6f9ecf2 100644 --- 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 -- GitLab