1  ! CUDA BLAS interface binding for SAXPY.
       2        
       3        use iso_c_binding
       4        interface
       5          subroutine cublassaxpy(N, alpha, x, incx, y, incy)
       6       1    bind(c, name="cublasSaxpy")
       7            use iso_c_binding
       8            integer(kind=c_int), value :: N
       9            real(kind=c_float), value :: alpha
      10            type(*), dimension(*) :: x
      11            integer(kind=c_int), value :: incx
      12            type(*), dimension(*) :: y
      13            integer(kind=c_int), value :: incy
      14          end subroutine cublassaxpy
      15        end interface
      16