12345678910111213141516 |
- ! CUDA BLAS interface binding for SAXPY.
-
- use iso_c_binding
- interface
- subroutine cublassaxpy(N, alpha, x, incx, y, incy)
- 1 bind(c, name="cublasSaxpy")
- use iso_c_binding
- integer(kind=c_int), value :: N
- real(kind=c_float), value :: alpha
- type(*), dimension(*) :: x
- integer(kind=c_int), value :: incx
- type(*), dimension(*) :: y
- integer(kind=c_int), value :: incy
- end subroutine cublassaxpy
- end interface
|