Commit 8638a970 authored by Andreas Marek's avatar Andreas Marek

Remove complex GPU call from OpenMP region

This closes issue #51.
parent 22cb9eb1
...@@ -712,15 +712,15 @@ ...@@ -712,15 +712,15 @@
row_group(:, row_group_size) = q(src_offset, 1:l_nev) row_group(:, row_group_size) = q(src_offset, 1:l_nev)
#else /* WITH_OPENMP */ #else /* WITH_OPENMP */
#if COMPLEXCASE == 1 !#if COMPLEXCASE == 1
! why is an cuda call in the openmp region? !! why is an cuda call in the openmp region?
call unpack_and_prepare_row_group_complex_gpu_& ! call unpack_and_prepare_row_group_complex_gpu_&
&PRECISION& ! &PRECISION&
&(row_group, row_group_dev, aIntern_dev, stripe_count, stripe_width, & ! &(row_group, row_group_dev, aIntern_dev, stripe_count, stripe_width, &
last_stripe_width, a_dim2, l_nev, row_group_size, nblk, & ! last_stripe_width, a_dim2, l_nev, row_group_size, nblk, &
unpack_idx, i - limits(ip),.false.) ! unpack_idx, i - limits(ip),.false.)
row_group(:, row_group_size) = q(src_offset, 1:l_nev) ! row_group(:, row_group_size) = q(src_offset, 1:l_nev)
#endif !#endif
#endif /* not OpenMP */ #endif /* not OpenMP */
else else
......
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