Commit bb589505 authored by Andreas Marek's avatar Andreas Marek
Browse files

Some cleanup

parent 2eb0db54
...@@ -277,12 +277,12 @@ module gpu_c_kernel ...@@ -277,12 +277,12 @@ module gpu_c_kernel
integer(kind=c_intptr_t) :: a_dev integer(kind=c_intptr_t) :: a_dev
integer(kind=c_intptr_t) :: row_group_dev integer(kind=c_intptr_t) :: row_group_dev
#ifdef WITH_NVIDIA_GPU_VERSION #ifdef WITH_NVIDIA_GPU_VERSION
call launch_my_pack_c_cuda_kernel_complex_single(row_count, n_offset, max_idx,stripe_width,a_dim2, stripe_count, l_nev, & call launch_my_pack_c_cuda_kernel_complex_single(row_count, n_offset, max_idx,stripe_width,a_dim2, stripe_count, l_nev, a_dev, &
a_dev, row_group_dev) row_group_dev)
#endif #endif
#ifdef WITH_AMD_GPU_VERSION #ifdef WITH_NVIDIA_GPU_VERSION
call launch_my_pack_c_hip_kernel_complex_single(row_count, n_offset, max_idx,stripe_width,a_dim2, stripe_count, l_nev, & call launch_my_pack_c_hip_kernel_complex_single(row_count, n_offset, max_idx,stripe_width,a_dim2, stripe_count, l_nev, a_dev, &
a_dev, row_group_dev) row_group_dev)
#endif #endif
end subroutine end subroutine
#endif #endif
......
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