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 @@
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
......
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