f77_blas_cublas Module
Uses
Interfaces
interface
-
public pure function cublasSgemm(handle, transa, transb, m, n, k, alpha, a, lda, b, ldb, beta, c, ldc) result(stat) bind(C,name="cublasSgemm_v2")
sgemm GPU (cublas v2) version
Arguments
Type Intent Optional Attributes Name type(c_ptr), intent(in), value :: handle integer(kind=c_int), intent(in), value :: transa integer(kind=c_int), intent(in), value :: transb integer(kind=c_int), intent(in), value :: m integer(kind=c_int), intent(in), value :: n integer(kind=c_int), intent(in), value :: k type(c_ptr), intent(in), value :: alpha type(c_ptr), intent(in), value :: a integer(kind=c_int), intent(in), value :: lda type(c_ptr), intent(in), value :: b integer(kind=c_int), intent(in), value :: ldb type(c_ptr), intent(in), value :: beta type(c_ptr), intent(in), value :: c integer(kind=c_int), intent(in), value :: ldc Return Value integer(kind=c_int)
interface
-
public pure function cublasSgemv(handle, trans, m, n, alpha, a, lda, x, incx, beta, y, incy) result(stat) bind(C,name="cublasSgemv_v2")
sgemv GPU (cublas v2) version
Arguments
Type Intent Optional Attributes Name type(c_ptr), intent(in), value :: handle integer(kind=c_int), intent(in), value :: trans integer(kind=c_int), intent(in), value :: m integer(kind=c_int), intent(in), value :: n type(c_ptr), intent(in), value :: alpha type(c_ptr), intent(in), value :: a integer(kind=c_int), intent(in), value :: lda type(c_ptr), intent(in), value :: x integer(kind=c_int), intent(in), value :: incx type(c_ptr), intent(in), value :: beta type(c_ptr), intent(in), value :: y integer(kind=c_int), intent(in), value :: incy Return Value integer(kind=c_int)
interface
-
public pure function cublasStrmm(handle, side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb) result(stat) bind(C,name="cublasStrmm_v2")
strmm GPU (cublas v2) version
Arguments
Type Intent Optional Attributes Name type(c_ptr), intent(in), value :: handle integer(kind=c_int), intent(in), value :: side integer(kind=c_int), intent(in), value :: uplo integer(kind=c_int), intent(in), value :: transa integer(kind=c_int), intent(in), value :: diag integer(kind=c_int), intent(in), value :: m integer(kind=c_int), intent(in), value :: n type(c_ptr), intent(in), value :: alpha type(c_ptr), intent(in), value :: a integer(kind=c_int), intent(in), value :: lda type(c_ptr), intent(in), value :: b integer(kind=c_int), intent(in), value :: ldb Return Value integer(kind=c_int)
interface
-
public pure function cublasStrsm(handle, side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb) result(stat) bind(C,name="cublasStrsm_v2")
strsm GPU (cublas v2) version
Arguments
Type Intent Optional Attributes Name type(c_ptr), intent(in), value :: handle integer(kind=c_int), intent(in), value :: side integer(kind=c_int), intent(in), value :: uplo integer(kind=c_int), intent(in), value :: transa integer(kind=c_int), intent(in), value :: diag integer(kind=c_int), intent(in), value :: m integer(kind=c_int), intent(in), value :: n type(c_ptr), intent(in), value :: alpha type(c_ptr), intent(in), value :: a integer(kind=c_int), intent(in), value :: lda type(c_ptr), intent(in), value :: b integer(kind=c_int), intent(in), value :: ldb Return Value integer(kind=c_int)
interface
-
public pure function cublasDgemm(handle, transa, transb, m, n, k, alpha, a, lda, b, ldb, beta, c, ldc) result(stat) bind(C,name="cublasDgemm_v2")
dgemm GPU (cublas v2) version
Arguments
Type Intent Optional Attributes Name type(c_ptr), intent(in), value :: handle integer(kind=c_int), intent(in), value :: transa integer(kind=c_int), intent(in), value :: transb integer(kind=c_int), intent(in), value :: m integer(kind=c_int), intent(in), value :: n integer(kind=c_int), intent(in), value :: k type(c_ptr), intent(in), value :: alpha type(c_ptr), intent(in), value :: a integer(kind=c_int), intent(in), value :: lda type(c_ptr), intent(in), value :: b integer(kind=c_int), intent(in), value :: ldb type(c_ptr), intent(in), value :: beta type(c_ptr), intent(in), value :: c integer(kind=c_int), intent(in), value :: ldc Return Value integer(kind=c_int)
interface
-
public pure function cublasDgemv(handle, trans, m, n, alpha, a, lda, x, incx, beta, y, incy) result(stat) bind(C,name="cublasDgemv_v2")
dgemv GPU (cublas v2) version
Arguments
Type Intent Optional Attributes Name type(c_ptr), intent(in), value :: handle integer(kind=c_int), intent(in), value :: trans integer(kind=c_int), intent(in), value :: m integer(kind=c_int), intent(in), value :: n type(c_ptr), intent(in), value :: alpha type(c_ptr), intent(in), value :: a integer(kind=c_int), intent(in), value :: lda type(c_ptr), intent(in), value :: x integer(kind=c_int), intent(in), value :: incx type(c_ptr), intent(in), value :: beta type(c_ptr), intent(in), value :: y integer(kind=c_int), intent(in), value :: incy Return Value integer(kind=c_int)
interface
-
public pure function cublasDtrmm(handle, side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb) result(stat) bind(C,name="cublasDtrmm_v2")
dtrmm GPU (cublas v2) version
Arguments
Type Intent Optional Attributes Name type(c_ptr), intent(in), value :: handle integer(kind=c_int), intent(in), value :: side integer(kind=c_int), intent(in), value :: uplo integer(kind=c_int), intent(in), value :: transa integer(kind=c_int), intent(in), value :: diag integer(kind=c_int), intent(in), value :: m integer(kind=c_int), intent(in), value :: n type(c_ptr), intent(in), value :: alpha type(c_ptr), intent(in), value :: a integer(kind=c_int), intent(in), value :: lda type(c_ptr), intent(in), value :: b integer(kind=c_int), intent(in), value :: ldb Return Value integer(kind=c_int)
interface
-
public pure function cublasDtrsm(handle, side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb) result(stat) bind(C,name="cublasDtrsm_v2")
dtrsm GPU (cublas v2) version
Arguments
Type Intent Optional Attributes Name type(c_ptr), intent(in), value :: handle integer(kind=c_int), intent(in), value :: side integer(kind=c_int), intent(in), value :: uplo integer(kind=c_int), intent(in), value :: transa integer(kind=c_int), intent(in), value :: diag integer(kind=c_int), intent(in), value :: m integer(kind=c_int), intent(in), value :: n type(c_ptr), intent(in), value :: alpha type(c_ptr), intent(in), value :: a integer(kind=c_int), intent(in), value :: lda type(c_ptr), intent(in), value :: b integer(kind=c_int), intent(in), value :: ldb Return Value integer(kind=c_int)
interface
-
public pure function cublasCgemm(handle, transa, transb, m, n, k, alpha, a, lda, b, ldb, beta, c, ldc) result(stat) bind(C,name="cublasCgemm_v2")
cgemm GPU (cublas v2) version
Arguments
Type Intent Optional Attributes Name type(c_ptr), intent(in), value :: handle integer(kind=c_int), intent(in), value :: transa integer(kind=c_int), intent(in), value :: transb integer(kind=c_int), intent(in), value :: m integer(kind=c_int), intent(in), value :: n integer(kind=c_int), intent(in), value :: k type(c_ptr), intent(in), value :: alpha type(c_ptr), intent(in), value :: a integer(kind=c_int), intent(in), value :: lda type(c_ptr), intent(in), value :: b integer(kind=c_int), intent(in), value :: ldb type(c_ptr), intent(in), value :: beta type(c_ptr), intent(in), value :: c integer(kind=c_int), intent(in), value :: ldc Return Value integer(kind=c_int)
interface
-
public pure function cublasCgemv(handle, trans, m, n, alpha, a, lda, x, incx, beta, y, incy) result(stat) bind(C,name="cublasCgemv_v2")
cgemv GPU (cublas v2) version
Arguments
Type Intent Optional Attributes Name type(c_ptr), intent(in), value :: handle integer(kind=c_int), intent(in), value :: trans integer(kind=c_int), intent(in), value :: m integer(kind=c_int), intent(in), value :: n type(c_ptr), intent(in), value :: alpha type(c_ptr), intent(in), value :: a integer(kind=c_int), intent(in), value :: lda type(c_ptr), intent(in), value :: x integer(kind=c_int), intent(in), value :: incx type(c_ptr), intent(in), value :: beta type(c_ptr), intent(in), value :: y integer(kind=c_int), intent(in), value :: incy Return Value integer(kind=c_int)
interface
-
public pure function cublasCtrmm(handle, side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb) result(stat) bind(C,name="cublasCtrmm_v2")
ctrmm GPU (cublas v2) version
Arguments
Type Intent Optional Attributes Name type(c_ptr), intent(in), value :: handle integer(kind=c_int), intent(in), value :: side integer(kind=c_int), intent(in), value :: uplo integer(kind=c_int), intent(in), value :: transa integer(kind=c_int), intent(in), value :: diag integer(kind=c_int), intent(in), value :: m integer(kind=c_int), intent(in), value :: n type(c_ptr), intent(in), value :: alpha type(c_ptr), intent(in), value :: a integer(kind=c_int), intent(in), value :: lda type(c_ptr), intent(in), value :: b integer(kind=c_int), intent(in), value :: ldb Return Value integer(kind=c_int)
interface
-
public pure function cublasCtrsm(handle, side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb) result(stat) bind(C,name="cublasCtrsm_v2")
ctrsm GPU (cublas v2) version
Arguments
Type Intent Optional Attributes Name type(c_ptr), intent(in), value :: handle integer(kind=c_int), intent(in), value :: side integer(kind=c_int), intent(in), value :: uplo integer(kind=c_int), intent(in), value :: transa integer(kind=c_int), intent(in), value :: diag integer(kind=c_int), intent(in), value :: m integer(kind=c_int), intent(in), value :: n type(c_ptr), intent(in), value :: alpha type(c_ptr), intent(in), value :: a integer(kind=c_int), intent(in), value :: lda type(c_ptr), intent(in), value :: b integer(kind=c_int), intent(in), value :: ldb Return Value integer(kind=c_int)
interface
-
public pure function cublasZgemm(handle, transa, transb, m, n, k, alpha, a, lda, b, ldb, beta, c, ldc) result(stat) bind(C,name="cublasZgemm_v2")
zgemm GPU (cublas v2) version
Arguments
Type Intent Optional Attributes Name type(c_ptr), intent(in), value :: handle integer(kind=c_int), intent(in), value :: transa integer(kind=c_int), intent(in), value :: transb integer(kind=c_int), intent(in), value :: m integer(kind=c_int), intent(in), value :: n integer(kind=c_int), intent(in), value :: k type(c_ptr), intent(in), value :: alpha type(c_ptr), intent(in), value :: a integer(kind=c_int), intent(in), value :: lda type(c_ptr), intent(in), value :: b integer(kind=c_int), intent(in), value :: ldb type(c_ptr), intent(in), value :: beta type(c_ptr), intent(in), value :: c integer(kind=c_int), intent(in), value :: ldc Return Value integer(kind=c_int)
interface
-
public pure function cublasZgemv(handle, trans, m, n, alpha, a, lda, x, incx, beta, y, incy) result(stat) bind(C,name="cublasZgemv_v2")
zgemv GPU (cublas v2) version
Arguments
Type Intent Optional Attributes Name type(c_ptr), intent(in), value :: handle integer(kind=c_int), intent(in), value :: trans integer(kind=c_int), intent(in), value :: m integer(kind=c_int), intent(in), value :: n type(c_ptr), intent(in), value :: alpha type(c_ptr), intent(in), value :: a integer(kind=c_int), intent(in), value :: lda type(c_ptr), intent(in), value :: x integer(kind=c_int), intent(in), value :: incx type(c_ptr), intent(in), value :: beta type(c_ptr), intent(in), value :: y integer(kind=c_int), intent(in), value :: incy Return Value integer(kind=c_int)
interface
-
public pure function cublasZtrmm(handle, side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb) result(stat) bind(C,name="cublasZtrmm_v2")
ztrmm GPU (cublas v2) version
Arguments
Type Intent Optional Attributes Name type(c_ptr), intent(in), value :: handle integer(kind=c_int), intent(in), value :: side integer(kind=c_int), intent(in), value :: uplo integer(kind=c_int), intent(in), value :: transa integer(kind=c_int), intent(in), value :: diag integer(kind=c_int), intent(in), value :: m integer(kind=c_int), intent(in), value :: n type(c_ptr), intent(in), value :: alpha type(c_ptr), intent(in), value :: a integer(kind=c_int), intent(in), value :: lda type(c_ptr), intent(in), value :: b integer(kind=c_int), intent(in), value :: ldb Return Value integer(kind=c_int)
interface
-
public pure function cublasZtrsm(handle, side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb) result(stat) bind(C,name="cublasZtrsm_v2")
ztrsm GPU (cublas v2) version
Arguments
Type Intent Optional Attributes Name type(c_ptr), intent(in), value :: handle integer(kind=c_int), intent(in), value :: side integer(kind=c_int), intent(in), value :: uplo integer(kind=c_int), intent(in), value :: transa integer(kind=c_int), intent(in), value :: diag integer(kind=c_int), intent(in), value :: m integer(kind=c_int), intent(in), value :: n type(c_ptr), intent(in), value :: alpha type(c_ptr), intent(in), value :: a integer(kind=c_int), intent(in), value :: lda type(c_ptr), intent(in), value :: b integer(kind=c_int), intent(in), value :: ldb Return Value integer(kind=c_int)