libgomp/testsuite/libgomp.oacc-fortran/cublas-fixed.h

   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