blob: 4a5f61ae560bc3b50bc022a9a1c27f44fe8958de (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
! 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
|
