Commit 52d42aeb authored by Andreas Marek's avatar Andreas Marek

Fix ELPA1 GPU version

parent 2d2bd148
......@@ -860,7 +860,7 @@
!check_memcpy_cuda("tridiag: a_dev 4a5a", successCUDA)
successCUDA = cuda_memcpy(a_dev + a_offset, int(loc(a_mat(l_rows, l_cols)),kind=c_size_t), &
int(1 * size_of_datatype, kind=c_size_t), cudaMemcpyDeviceToHost)
int(1 * size_of_datatype, kind=c_size_t), cudaMemcpyHostToDevice)
check_memcpy_cuda("tridiag: a_dev 4", successCUDA)
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