mirror of
https://github.com/autc04/Retro68.git
synced 2025-01-11 02:30:42 +00:00
17 lines
520 B
C
17 lines
520 B
C
! 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
|
|
|