dftd4_blas Module

Interface to BLAS library


Uses


Interfaces

public interface blas_gemv

Performs one of the matrix-vector operations

y := alphaAx + betay, or y := alphaATx + betay,

where alpha and beta are scalars, x and y are vectors and A is an m by n matrix.

  • private pure subroutine dgemv(trans, m, n, alpha, a, lda, x, incx, beta, y, incy)

    Arguments

    Type IntentOptional Attributes Name
    character(len=1), intent(in) :: trans
    integer(kind=ik), intent(in) :: m
    integer(kind=ik), intent(in) :: n
    real(kind=dp), intent(in) :: alpha
    real(kind=dp), intent(in) :: a(lda,*)
    integer(kind=ik), intent(in) :: lda
    real(kind=dp), intent(in) :: x(*)
    integer(kind=ik), intent(in) :: incx
    real(kind=dp), intent(in) :: beta
    real(kind=dp), intent(inout) :: y(*)
    integer(kind=ik), intent(in) :: incy

  • private pure subroutine sgemv(trans, m, n, alpha, a, lda, x, incx, beta, y, incy)

    Arguments

    Type IntentOptional Attributes Name
    character(len=1), intent(in) :: trans
    integer(kind=ik), intent(in) :: m
    integer(kind=ik), intent(in) :: n
    real(kind=sp), intent(in) :: alpha
    real(kind=sp), intent(in) :: a(lda,*)
    integer(kind=ik), intent(in) :: lda
    real(kind=sp), intent(in) :: x(*)
    integer(kind=ik), intent(in) :: incx
    real(kind=sp), intent(in) :: beta
    real(kind=sp), intent(inout) :: y(*)
    integer(kind=ik), intent(in) :: incy

public interface d4_gemv

Performs one of the matrix-vector operations

y := alphaAx + betay, or y := alphaATx + betay,

where alpha and beta are scalars, x and y are vectors and A is an m by n matrix.

  • private pure subroutine d4_sgemv(amat, xvec, yvec, alpha, beta, trans)

    Arguments

    Type IntentOptional Attributes Name
    real(kind=sp), intent(in) :: amat(:,:)
    real(kind=sp), intent(in) :: xvec(:)
    real(kind=sp), intent(inout) :: yvec(:)
    real(kind=sp), intent(in), optional :: alpha
    real(kind=sp), intent(in), optional :: beta
    character(len=1), intent(in), optional :: trans

  • private pure subroutine d4_dgemv(amat, xvec, yvec, alpha, beta, trans)

    Arguments

    Type IntentOptional Attributes Name
    real(kind=dp), intent(in) :: amat(:,:)
    real(kind=dp), intent(in) :: xvec(:)
    real(kind=dp), intent(inout) :: yvec(:)
    real(kind=dp), intent(in), optional :: alpha
    real(kind=dp), intent(in), optional :: beta
    character(len=1), intent(in), optional :: trans

  • private subroutine d4_sgemv312(amat, xvec, yvec, alpha, beta, trans)

    Arguments

    Type IntentOptional Attributes Name
    real(kind=sp), intent(in), contiguous, target :: amat(:,:,:)
    real(kind=sp), intent(in) :: xvec(:)
    real(kind=sp), intent(inout), contiguous, target :: yvec(:,:)
    real(kind=sp), intent(in), optional :: alpha
    real(kind=sp), intent(in), optional :: beta
    character(len=1), intent(in), optional :: trans

  • private subroutine d4_sgemv321(amat, xvec, yvec, alpha, beta, trans)

    Arguments

    Type IntentOptional Attributes Name
    real(kind=sp), intent(in), contiguous, target :: amat(:,:,:)
    real(kind=sp), intent(in), contiguous, target :: xvec(:,:)
    real(kind=sp), intent(inout) :: yvec(:)
    real(kind=sp), intent(in), optional :: alpha
    real(kind=sp), intent(in), optional :: beta
    character(len=1), intent(in), optional :: trans

  • private subroutine d4_dgemv312(amat, xvec, yvec, alpha, beta, trans)

    Arguments

    Type IntentOptional Attributes Name
    real(kind=dp), intent(in), contiguous, target :: amat(:,:,:)
    real(kind=dp), intent(in) :: xvec(:)
    real(kind=dp), intent(inout), contiguous, target :: yvec(:,:)
    real(kind=dp), intent(in), optional :: alpha
    real(kind=dp), intent(in), optional :: beta
    character(len=1), intent(in), optional :: trans

  • private subroutine d4_dgemv321(amat, xvec, yvec, alpha, beta, trans)

    Arguments

    Type IntentOptional Attributes Name
    real(kind=dp), intent(in), contiguous, target :: amat(:,:,:)
    real(kind=dp), intent(in), contiguous, target :: xvec(:,:)
    real(kind=dp), intent(inout) :: yvec(:)
    real(kind=dp), intent(in), optional :: alpha
    real(kind=dp), intent(in), optional :: beta
    character(len=1), intent(in), optional :: trans

Subroutines

private pure subroutine d4_dgemv(amat, xvec, yvec, alpha, beta, trans)

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(in) :: amat(:,:)
real(kind=dp), intent(in) :: xvec(:)
real(kind=dp), intent(inout) :: yvec(:)
real(kind=dp), intent(in), optional :: alpha
real(kind=dp), intent(in), optional :: beta
character(len=1), intent(in), optional :: trans

private subroutine d4_dgemv312(amat, xvec, yvec, alpha, beta, trans)

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(in), contiguous, target :: amat(:,:,:)
real(kind=dp), intent(in) :: xvec(:)
real(kind=dp), intent(inout), contiguous, target :: yvec(:,:)
real(kind=dp), intent(in), optional :: alpha
real(kind=dp), intent(in), optional :: beta
character(len=1), intent(in), optional :: trans

private subroutine d4_dgemv321(amat, xvec, yvec, alpha, beta, trans)

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(in), contiguous, target :: amat(:,:,:)
real(kind=dp), intent(in), contiguous, target :: xvec(:,:)
real(kind=dp), intent(inout) :: yvec(:)
real(kind=dp), intent(in), optional :: alpha
real(kind=dp), intent(in), optional :: beta
character(len=1), intent(in), optional :: trans

private pure subroutine d4_sgemv(amat, xvec, yvec, alpha, beta, trans)

Arguments

Type IntentOptional Attributes Name
real(kind=sp), intent(in) :: amat(:,:)
real(kind=sp), intent(in) :: xvec(:)
real(kind=sp), intent(inout) :: yvec(:)
real(kind=sp), intent(in), optional :: alpha
real(kind=sp), intent(in), optional :: beta
character(len=1), intent(in), optional :: trans

private subroutine d4_sgemv312(amat, xvec, yvec, alpha, beta, trans)

Arguments

Type IntentOptional Attributes Name
real(kind=sp), intent(in), contiguous, target :: amat(:,:,:)
real(kind=sp), intent(in) :: xvec(:)
real(kind=sp), intent(inout), contiguous, target :: yvec(:,:)
real(kind=sp), intent(in), optional :: alpha
real(kind=sp), intent(in), optional :: beta
character(len=1), intent(in), optional :: trans

private subroutine d4_sgemv321(amat, xvec, yvec, alpha, beta, trans)

Arguments

Type IntentOptional Attributes Name
real(kind=sp), intent(in), contiguous, target :: amat(:,:,:)
real(kind=sp), intent(in), contiguous, target :: xvec(:,:)
real(kind=sp), intent(inout) :: yvec(:)
real(kind=sp), intent(in), optional :: alpha
real(kind=sp), intent(in), optional :: beta
character(len=1), intent(in), optional :: trans