tiny fix

3cf77a0a · Pavel Kus · 85b93396 · 3cf77a0a
Commit 3cf77a0a authored Mar 24, 2017 by Pavel Kus
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

src/elpa1_tridiag_template.X90 src/elpa1_tridiag_template.X90 +1 -1

No files found.
--- a/src/elpa1_tridiag_template.X90
+++ b/src/elpa1_tridiag_template.X90
@@ -353,7 +353,7 @@
        check_alloc_cuda("tridiag: a_dev", successCUDA)

        successCUDA = cuda_memcpy(a_dev, loc(a_mat(1,1)), lda * matrixCols * size_of_datatype, cudaMemcpyHostToDevice)
-        check_alloc_cuda("tridiag: a_dev", successCUDA)
+        check_memcpy_cuda("tridiag: a_dev", successCUDA)
      endif

      ! main cycle of tridiagonalization