M_blas Module


Uses


Contents

Variables

Abstract Interfaces

Functions

Subroutines


Variables

Type Visibility Attributes Name Initial
procedure(xerbla_interface), public, pointer :: xerbla => std_xerbla

Abstract Interfaces

abstract interface

  • public subroutine xerbla_interface(srname, info)

    Arguments

    Type IntentOptional Attributes Name
    character(len=*), intent(in) :: srname
    integer, intent(in) :: info

Functions

public function cdotc(n, cx, incx, cy, incy)

CDOTC forms the dot product of two complex vectors

Read more…

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: n
complex, intent(in) :: cx(*)
integer, intent(in) :: incx
complex, intent(in) :: cy(*)
integer, intent(in) :: incy

Return Value complex

public function cdotu(n, cx, incx, cy, incy)

CDOTU forms the dot product of two complex vectors

Read more…

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: n
complex, intent(in) :: cx(*)
integer, intent(in) :: incx
complex, intent(in) :: cy(*)
integer, intent(in) :: incy

Return Value complex

public pure function dasum(n, dx, incx)

N

Read more…

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: n
double precision, intent(in) :: dx(*)
integer, intent(in) :: incx

Return Value doubleprecision

public pure function dcabs1(z)

DCABS1 computes |Re(.)| + |Im(.)| of a double complex number

Read more…

Arguments

Type IntentOptional Attributes Name
complex(kind=real64), intent(in) :: z

Return Value doubleprecision

public pure function ddot(n, dx, incx, dy, incy)

N

Read more…

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: n
double precision, intent(in) :: dx(*)
integer, intent(in) :: incx
double precision, intent(in) :: dy(*)
integer, intent(in) :: incy

Return Value doubleprecision

public pure function dnrm2(n, x, incx)

DNRM2 returns the euclidean norm of a vector via the function name, so that

Read more…

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: n
real(kind=wp), intent(in) :: x(*)
integer, intent(in) :: incx

Return Value real(kind=wp)

public pure function dsdot(n, sx, incx, sy, incy)

Compute the inner product of two vectors with extended precision accumulation and result.

Read more…

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: n
real, intent(in) :: sx(*)
integer, intent(in) :: incx
real, intent(in) :: sy(*)
integer, intent(in) :: incy

Return Value doubleprecision

public function dzasum(n, zx, incx)

N

Read more…

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: n
complex(kind=real64), intent(inout) :: zx(*)
integer, intent(in) :: incx

Return Value doubleprecision

public pure function dznrm2(n, x, incx)

DZNRM2 returns the euclidean norm of a vector via the function name, so that

Read more…

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: n
complex(kind=wp), intent(in) :: x(*)
integer, intent(in) :: incx

Return Value real(kind=wp)

public pure function icamax(n, cx, incx)

N

Read more…

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: n
complex, intent(in) :: cx(*)
integer, intent(in) :: incx

Return Value integer

public pure function idamax(n, dx, incx)

N

Read more…

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: n
double precision, intent(in) :: dx(*)
integer, intent(in) :: incx

Return Value integer

public function isamax(n, sx, incx)

N

Read more…

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: n
real, intent(in) :: sx(*)
integer, intent(in) :: incx

Return Value integer

public pure function izamax(n, zx, incx)

N number of elements in input vector(s) ZX array, dimension ( 1 + ( N - 1 )*abs( INCX ) ) INCX storage spacing between elements of ZX

Read more…

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: n
complex(kind=real64), intent(in) :: zx(*)
integer, intent(in) :: incx

Return Value integer

public pure function lsame(ca, cb)

LSAME returns .TRUE. if CA is the same letter as CB regardless of case.

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: ca
character(len=1), intent(in) :: cb

Return Value logical

public pure function sasum(n, sx, incx)

N

Read more…

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: n
real, intent(in) :: sx(*)
integer, intent(in) :: incx

Return Value real

public pure elemental function scabs1(z)

SCABS1 computes |Re(.)| + |Im(.)| of a complex number

Read more…

Arguments

Type IntentOptional Attributes Name
complex, intent(in) :: z

Return Value real

public function scasum(n, cx, incx)

N

Read more…

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: n
complex, intent(inout) :: cx(*)
integer, intent(in) :: incx

Return Value real

public pure function scnrm2(n, x, incx)

SCNRM2 returns the euclidean norm of a vector via the function name, so that

Read more…

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: n
complex(kind=wp), intent(in) :: x(*)
integer, intent(in) :: incx

Return Value real(kind=wp)

public pure function sdot(n, sx, incx, sy, incy)

N

Read more…

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: n
real, intent(in) :: sx(*)
integer, intent(in) :: incx
real, intent(in) :: sy(*)
integer, intent(in) :: incy

Return Value real

public pure function sdsdot(n, sb, sx, incx, sy, incy)

SDSDOT := SUM SX * SY (accumulated double precision, returned single)

Read more…

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: n
real, intent(in) :: sb
real, intent(in) :: sx(*)
integer, intent(in) :: incx
real, intent(in) :: sy(*)
integer, intent(in) :: incy

Return Value real

public function snrm2(n, x, incx)

SNRM2 := square root of sum of SX(I)**2

Read more…

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: n
real(kind=wp), intent(in) :: x(*)
integer, intent(in) :: incx

Return Value real(kind=wp)

public pure function zdotc(n, zx, incx, zy, incy)

ZDOTC forms the dot product of two complex vectors ZDOTC = X^H * Y

Read more…

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: n
complex(kind=real64), intent(in) :: zx(*)
integer, intent(in) :: incx
complex(kind=real64), intent(in) :: zy(*)
integer, intent(in) :: incy

Return Value complex(kind=real64)

public pure function zdotu(n, zx, incx, zy, incy)

ZDOTU forms the dot product of two complex vectors ZDOTU = X^T * Y

Read more…

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: n
complex(kind=real64), intent(in) :: zx(*)
integer, intent(in) :: incx
complex(kind=real64), intent(in) :: zy(*)
integer, intent(in) :: incy

Return Value complex(kind=real64)


Subroutines

public subroutine caxpy(n, ca, cx, incx, cy, incy)

November 2017

Read more…

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: n
complex, intent(in) :: ca
complex, intent(in) :: cx(*)
integer, intent(in) :: incx
complex, intent(inout) :: cy(*)
integer, intent(in) :: incy

public subroutine ccopy(n, cx, incx, cy, incy)

date:November 2017

Read more…

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: n
complex, intent(in) :: cx(*)
integer, intent(in) :: incx
complex, intent(out) :: cy(*)
integer, intent(in) :: incy

public subroutine cgbmv(trans, m, n, kl, ku, alpha, a, lda, x, incx, beta, y, incy)

CGBMV performs one of the matrix-vector operations

Read more…

Arguments

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

public subroutine cgemm(transa, transb, m, n, k, alpha, a, lda, b, ldb, beta, c, ldc)

CGEMM performs one of the matrix-matrix operations

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: transa
character(len=1), intent(in) :: transb
integer, intent(in) :: m
integer, intent(in) :: n
integer, intent(in) :: k
complex, intent(in) :: alpha
complex, intent(in) :: a(lda,*)
integer, intent(in) :: lda
complex, intent(in) :: b(ldb,*)
integer, intent(in) :: ldb
complex, intent(in) :: beta
complex, intent(inout) :: c(ldc,*)
integer, intent(in) :: ldc

public subroutine cgemv(trans, m, n, alpha, a, lda, x, incx, beta, y, incy)

CGEMV performs one of the matrix-vector operations

Read more…

Arguments

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

public subroutine cgerc(m, n, alpha, x, incx, y, incy, a, lda)

CGERC performs the rank 1 operation

Read more…

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: m
integer, intent(in) :: n
complex, intent(in) :: alpha
complex, intent(in) :: x(*)
integer, intent(in) :: incx
complex, intent(in) :: y(*)
integer, intent(in) :: incy
complex, intent(inout) :: a(lda,*)
integer, intent(in) :: lda

public subroutine cgeru(m, n, alpha, x, incx, y, incy, a, lda)

CGERU performs the rank 1 operation

Read more…

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: m
integer, intent(in) :: n
complex, intent(in) :: alpha
complex, intent(in) :: x(*)
integer, intent(in) :: incx
complex, intent(in) :: y(*)
integer, intent(in) :: incy
complex, intent(inout) :: a(lda,*)
integer, intent(in) :: lda

public subroutine chbmv(uplo, n, k, alpha, a, lda, x, incx, beta, y, incy)

CHBMV(3f) performs the matrix-vector operation

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
integer, intent(in) :: n
integer, intent(in) :: k
complex, intent(in) :: alpha
complex, intent(in) :: a(lda,*)
integer, intent(in) :: lda
complex, intent(in) :: x(*)
integer, intent(in) :: incx
complex, intent(in) :: beta
complex, intent(inout) :: y(*)
integer, intent(in) :: incy

public subroutine chemm(side, uplo, m, n, alpha, a, lda, b, ldb, beta, c, ldc)

CHEMM performs one of the matrix-matrix operations

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: side
character(len=1), intent(in) :: uplo
integer, intent(in) :: m
integer, intent(in) :: n
complex, intent(in) :: alpha
complex, intent(in) :: a(lda,*)
integer, intent(in) :: lda
complex, intent(in) :: b(ldb,*)
integer, intent(in) :: ldb
complex, intent(in) :: beta
complex, intent(inout) :: c(ldc,*)
integer, intent(in) :: ldc

public subroutine chemv(uplo, n, alpha, a, lda, x, incx, beta, y, incy)

CHEMV performs the matrix-vector operation

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
integer, intent(in) :: n
complex, intent(in) :: alpha
complex, intent(in) :: a(lda,*)
integer, intent(in) :: lda
complex, intent(in) :: x(*)
integer, intent(in) :: incx
complex, intent(in) :: beta
complex, intent(inout) :: y(*)
integer, intent(in) :: incy

public subroutine cher(uplo, n, alpha, x, incx, a, lda)

CHER performs the hermitian rank 1 operation

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
integer, intent(in) :: n
real, intent(in) :: alpha
complex, intent(in) :: x(*)
integer, intent(in) :: incx
complex, intent(inout) :: a(lda,*)
integer, intent(in) :: lda

public subroutine cher2(uplo, n, alpha, x, incx, y, incy, a, lda)

CHER2 performs the hermitian rank 2 operation

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
integer, intent(in) :: n
complex, intent(in) :: alpha
complex, intent(in) :: x(*)
integer, intent(in) :: incx
complex, intent(in) :: y(*)
integer, intent(in) :: incy
complex, intent(inout) :: a(lda,*)
integer, intent(in) :: lda

public subroutine cher2k(uplo, trans, n, k, alpha, a, lda, b, ldb, beta, c, ldc)

CHER2K performs one of the hermitian rank 2k operations

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
character(len=1), intent(in) :: trans
integer, intent(in) :: n
integer, intent(in) :: k
complex, intent(in) :: alpha
complex, intent(in) :: a(lda,*)
integer, intent(in) :: lda
complex, intent(in) :: b(ldb,*)
integer, intent(in) :: ldb
real, intent(in) :: beta
complex, intent(inout) :: c(ldc,*)
integer, intent(in) :: ldc

public subroutine cherk(uplo, trans, n, k, alpha, a, lda, beta, c, ldc)

C:=alphaATRANSPOSE(A)+beta*C, C hermitian.

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
character(len=1), intent(in) :: trans
integer, intent(in) :: n
integer, intent(in) :: k
real, intent(in) :: alpha
complex, intent(in) :: a(lda,*)
integer, intent(in) :: lda
real, intent(in) :: beta
complex, intent(inout) :: c(ldc,*)
integer, intent(in) :: ldc

public subroutine chpmv(uplo, n, alpha, ap, x, incx, beta, y, incy)

CY := alphaACX + beta*CY, A a (square) hermitian packed matrix.

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
integer, intent(in) :: n
complex, intent(in) :: alpha
complex, intent(in) :: ap(*)
complex, intent(in) :: x(*)
integer, intent(in) :: incx
complex, intent(in) :: beta
complex, intent(inout) :: y(*)
integer, intent(in) :: incy

public subroutine chpr(uplo, n, alpha, x, incx, ap)

A := A + alphaCXCONJUGATE-TRANSPOSE(CX), a a (square) hermitian packed.

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
integer, intent(in) :: n
real, intent(in) :: alpha
complex, intent(in) :: x(*)
integer, intent(in) :: incx
complex, intent(inout) :: ap(*)

public subroutine chpr2(uplo, n, alpha, x, incx, y, incy, ap)

A := A + alphaCXCONJUGATE-TRANSPOSE(CY)n + CONJUGATE(ALPHA)CYCONJUGATE-TRANSPOSE(CX),n A a (square) hermitian packed matrix.

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
integer, intent(in) :: n
complex, intent(in) :: alpha
complex, intent(in) :: x(*)
integer, intent(in) :: incx
complex, intent(in) :: y(*)
integer, intent(in) :: incy
complex, intent(inout) :: ap(*)

public subroutine crotg(a, b, c, s)

CROTG constructs a plane rotation

Read more…

Arguments

Type IntentOptional Attributes Name
complex(kind=wp), intent(inout) :: a
complex(kind=wp), intent(in) :: b
real(kind=wp), intent(out) :: c
complex(kind=wp), intent(out) :: s

public subroutine cscal(n, ca, cx, incx)

CX:=CA*CX (complex multiplier)

Read more…

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: n
complex, intent(in) :: ca
complex, intent(inout) :: cx(*)
integer, intent(in) :: incx

public subroutine csrot(n, cx, incx, cy, incy, c, s)

CSROT applies a plane rotation, where the cos and sin (c and s) are real and the vectors cx and cy are complex. jack dongarra, linpack, 3/11/78.

Read more…

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: n
complex, intent(inout) :: cx(*)
integer, intent(in) :: incx
complex, intent(inout) :: cy(*)
integer, intent(in) :: incy
real, intent(in) :: c
real, intent(in) :: s

public subroutine csscal(n, sa, cx, incx)

CX:=SA*CX (real multiplier).

Read more…

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: n
real, intent(in) :: sa
complex, intent(inout) :: cx(*)
integer, intent(in) :: incx

public subroutine cswap(n, cx, incx, cy, incy)

N

Read more…

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: n
complex, intent(inout) :: cx(*)
integer, intent(in) :: incx
complex, intent(inout) :: cy(*)
integer, intent(in) :: incy

public subroutine csymm(side, uplo, m, n, alpha, a, lda, b, ldb, beta, c, ldc)

C:=alphaAB+beta*C, A symmetric, B, C rectangular.

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: side
character(len=1), intent(in) :: uplo
integer, intent(in) :: m
integer, intent(in) :: n
complex, intent(in) :: alpha
complex, intent(in) :: a(lda,*)
integer, intent(in) :: lda
complex, intent(in) :: b(ldb,*)
integer, intent(in) :: ldb
complex, intent(in) :: beta
complex, intent(inout) :: c(ldc,*)
integer, intent(in) :: ldc

public subroutine csyr2k(uplo, trans, n, k, alpha, a, lda, b, ldb, beta, c, ldc)

C:=alphaATRANSPOSE(B)+alphaBTRANSPOSE(A)+beta*C, C symmetric.

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
character(len=1), intent(in) :: trans
integer, intent(in) :: n
integer, intent(in) :: k
complex, intent(in) :: alpha
complex, intent(in) :: a(lda,*)
integer, intent(in) :: lda
complex, intent(in) :: b(ldb,*)
integer, intent(in) :: ldb
complex, intent(in) :: beta
complex, intent(inout) :: c(ldc,*)
integer, intent(in) :: ldc

public subroutine csyrk(uplo, trans, n, k, alpha, a, lda, beta, c, ldc)

C:=alphaATRANSPOSE(A)+beta*C, C symmetric.

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
character(len=1), intent(in) :: trans
integer, intent(in) :: n
integer, intent(in) :: k
complex, intent(in) :: alpha
complex, intent(in) :: a(lda,*)
integer, intent(in) :: lda
complex, intent(in) :: beta
complex, intent(inout) :: c(ldc,*)
integer, intent(in) :: ldc

public subroutine ctbmv(uplo, trans, diag, n, k, a, lda, x, incx)

CX := A*CX, A is a triangular band matrix.

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
character(len=1), intent(in) :: trans
character(len=1), intent(in) :: diag
integer, intent(in) :: n
integer, intent(in) :: k
complex, intent(in) :: a(lda,*)
integer, intent(in) :: lda
complex, intent(inout) :: x(*)
integer, intent(in) :: incx

public subroutine ctbsv(uplo, trans, diag, n, k, a, lda, x, incx)

CX := INVERSE(A)*CX, where A is a triangular band matrix.

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
character(len=1), intent(in) :: trans
character(len=1), intent(in) :: diag
integer, intent(in) :: n
integer, intent(in) :: k
complex, intent(in) :: a(lda,*)
integer, intent(in) :: lda
complex, intent(inout) :: x(*)
integer, intent(in) :: incx

public subroutine ctpmv(uplo, trans, diag, n, ap, x, incx)

CX := A*CX, A is a packed triangular band matrix.

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
character(len=1), intent(in) :: trans
character(len=1), intent(in) :: diag
integer, intent(in) :: n
complex, intent(in) :: ap(*)
complex, intent(inout) :: x(*)
integer, intent(in) :: incx

public subroutine ctpsv(uplo, trans, diag, n, ap, x, incx)

CX := INVERSE(A)*CX, where A is a packed triangular band matrix.

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
character(len=1), intent(in) :: trans
character(len=1), intent(in) :: diag
integer, intent(in) :: n
complex, intent(in) :: ap(*)
complex, intent(inout) :: x(*)
integer, intent(in) :: incx

public subroutine ctrmm(side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb)

B:=AB or B:=BA, A triangular, B rectangular.

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: side
character(len=1), intent(in) :: uplo
character(len=1), intent(in) :: transa
character(len=1), intent(in) :: diag
integer, intent(in) :: m
integer, intent(in) :: n
complex, intent(in) :: alpha
complex, intent(in) :: a(lda,*)
integer, intent(in) :: lda
complex, intent(inout) :: b(ldb,*)
integer, intent(in) :: ldb

public subroutine ctrmv(uplo, trans, diag, n, a, lda, x, incx)

CX := A*CX, A is a triangular matrix.

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
character(len=1), intent(in) :: trans
character(len=1), intent(in) :: diag
integer, intent(in) :: n
complex, intent(in) :: a(lda,*)
integer, intent(in) :: lda
complex, intent(inout) :: x(*)
integer, intent(in) :: incx

public subroutine ctrsm(side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb)

B:=INVERSE(A)C or B:=CINVERSE(A), B, C rectangular, A triangular.

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: side
character(len=1), intent(in) :: uplo
character(len=1), intent(in) :: transa
character(len=1), intent(in) :: diag
integer, intent(in) :: m
integer, intent(in) :: n
complex, intent(in) :: alpha
complex, intent(in) :: a(lda,*)
integer, intent(in) :: lda
complex, intent(inout) :: b(ldb,*)
integer, intent(in) :: ldb

public subroutine ctrsv(uplo, trans, diag, n, a, lda, x, incx)

CX := INVERSE(A)*CX, where A is a triangular matrix.

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
character(len=1), intent(in) :: trans
character(len=1), intent(in) :: diag
integer, intent(in) :: n
complex, intent(in) :: a(lda,*)
integer, intent(in) :: lda
complex, intent(inout) :: x(*)
integer, intent(in) :: incx

public subroutine daxpy(n, da, dx, incx, dy, incy)

N

Read more…

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: n
double precision, intent(in) :: da
double precision, intent(in) :: dx(*)
integer, intent(in) :: incx
double precision, intent(inout) :: dy(*)
integer, intent(in) :: incy

public subroutine dcopy(n, dx, incx, dy, incy)

N

Read more…

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: n
double precision, intent(in) :: dx(*)
integer, intent(in) :: incx
double precision, intent(out) :: dy(*)
integer, intent(in) :: incy

public subroutine dgbmv(trans, m, n, kl, ku, alpha, a, lda, x, incx, beta, y, incy)

DGBMV performs one of the matrix-vector operations

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: trans
integer, intent(in) :: m
integer, intent(in) :: n
integer, intent(in) :: kl
integer, intent(in) :: ku
double precision, intent(in) :: alpha
double precision, intent(in) :: a(lda,*)
integer, intent(in) :: lda
double precision, intent(in) :: x(*)
integer, intent(in) :: incx
double precision, intent(in) :: beta
double precision, intent(inout) :: y(*)
integer, intent(in) :: incy

public subroutine dgemm(transa, transb, m, n, k, alpha, a, lda, b, ldb, beta, c, ldc)

DGEMM performs one of the matrix-matrix operations

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: transa
character(len=1), intent(in) :: transb
integer, intent(in) :: m
integer, intent(in) :: n
integer, intent(in) :: k
double precision, intent(in) :: alpha
double precision, intent(in) :: a(lda,*)
integer, intent(in) :: lda
double precision, intent(in) :: b(ldb,*)
integer, intent(in) :: ldb
double precision, intent(in) :: beta
double precision, intent(inout) :: c(ldc,*)
integer, intent(in) :: ldc

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

DGEMV performs one of the matrix-vector operations

Read more…

Arguments

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

public subroutine dger(m, n, alpha, x, incx, y, incy, a, lda)

DGER performs the rank 1 operation

Read more…

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: m
integer, intent(in) :: n
double precision, intent(in) :: alpha
double precision, intent(in) :: x(*)
integer, intent(in) :: incx
double precision, intent(in) :: y(*)
integer, intent(in) :: incy
double precision, intent(inout) :: a(lda,*)
integer, intent(in) :: lda

public subroutine drot(n, dx, incx, dy, incy, c, s)

N number of elements in input vector(s) DX array, dimension ( 1 + ( N - 1 )*abs( INCX ) ) INCX

Read more…

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: n
double precision, intent(inout) :: dx(*)
integer, intent(in) :: incx
double precision, intent(inout) :: dy(*)
integer, intent(in) :: incy
double precision, intent(in) :: c
double precision, intent(in) :: s

public subroutine drotg(a, b, c, s)

DROTG constructs a plane rotation

Read more…

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(inout) :: a
real(kind=wp), intent(inout) :: b
real(kind=wp), intent(out) :: c
real(kind=wp), intent(out) :: s

public subroutine drotm(n, dx, incx, dy, incy, dparam)

N number of elements in input vector(s) DX DX is DOUBLE PRECISION array, dimension ( 1 + ( N - 1 )*abs( INCX ) )

Read more…

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: n
double precision, intent(inout) :: dx(*)
integer, intent(in) :: incx
double precision, intent(inout) :: dy(*)
integer, intent(in) :: incy
double precision, intent(in) :: dparam(5)

public subroutine drotmg(dd1, dd2, dx1, dy1, dparam)

DD1

Read more…

Arguments

Type IntentOptional Attributes Name
double precision, intent(inout) :: dd1
double precision, intent(inout) :: dd2
double precision, intent(inout) :: dx1
double precision, intent(in) :: dy1
double precision, intent(out) :: dparam(5)

public subroutine dsbmv(uplo, n, k, alpha, a, lda, x, incx, beta, y, incy)

DSBMV performs the matrix-vector operation

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
integer, intent(in) :: n
integer, intent(in) :: k
double precision, intent(in) :: alpha
double precision, intent(in) :: a(lda,*)
integer, intent(in) :: lda
double precision, intent(in) :: x(*)
integer, intent(in) :: incx
double precision, intent(in) :: beta
double precision, intent(inout) :: y(*)
integer, intent(in) :: incy

public subroutine dscal(n, da, dx, incx)

N number of elements in input vector(s) DA On entry, DA specifies the scalar alpha. DX array, dimension ( 1 + ( N - 1 )*abs( INCX ) ) INCX storage spacing between elements of DX

Read more…

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: n
double precision, intent(in) :: da
double precision, intent(inout) :: dx(*)
integer, intent(in) :: incx

public subroutine dspmv(uplo, n, alpha, ap, x, incx, beta, y, incy)

DSPMV performs the matrix-vector operation

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
integer, intent(in) :: n
double precision, intent(in) :: alpha
double precision, intent(in) :: ap(*)
double precision, intent(in) :: x(*)
integer, intent(in) :: incx
double precision, intent(in) :: beta
double precision, intent(inout) :: y(*)
integer, intent(in) :: incy

public subroutine dspr(uplo, n, alpha, x, incx, ap)

DSPR performs the symmetric rank 1 operation

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
integer, intent(in) :: n
double precision, intent(in) :: alpha
double precision, intent(in) :: x(*)
integer, intent(in) :: incx
double precision, intent(inout) :: ap(*)

public subroutine dspr2(uplo, n, alpha, x, incx, y, incy, ap)

DSPR2 performs the symmetric rank 2 operation

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
integer, intent(in) :: n
double precision, intent(in) :: alpha
double precision, intent(in) :: x(*)
integer, intent(in) :: incx
double precision, intent(in) :: y(*)
integer, intent(in) :: incy
double precision, intent(inout) :: ap(*)

public subroutine dswap(n, dx, incx, dy, incy)

N

Read more…

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: n
double precision, intent(inout) :: dx(*)
integer, intent(in) :: incx
double precision, intent(inout) :: dy(*)
integer, intent(in) :: incy

public subroutine dsymm(side, uplo, m, n, alpha, a, lda, b, ldb, beta, c, ldc)

DSYMM performs one of the matrix-matrix operations

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: side
character(len=1), intent(in) :: uplo
integer, intent(in) :: m
integer, intent(in) :: n
double precision, intent(in) :: alpha
double precision, intent(in) :: a(lda,*)
integer, intent(in) :: lda
double precision, intent(in) :: b(ldb,*)
integer, intent(in) :: ldb
double precision, intent(in) :: beta
double precision, intent(inout) :: c(ldc,*)
integer, intent(in) :: ldc

public subroutine dsymv(uplo, n, alpha, a, lda, x, incx, beta, y, incy)

DSYMV performs the matrix-vector operation

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
integer, intent(in) :: n
double precision, intent(in) :: alpha
double precision, intent(in) :: a(lda,*)
integer, intent(in) :: lda
double precision, intent(in) :: x(*)
integer, intent(in) :: incx
double precision, intent(in) :: beta
double precision, intent(inout) :: y(*)
integer, intent(in) :: incy

public subroutine dsyr(uplo, n, alpha, x, incx, a, lda)

DSYR performs the symmetric rank 1 operation

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
integer, intent(in) :: n
double precision, intent(in) :: alpha
double precision, intent(in) :: x(*)
integer, intent(in) :: incx
double precision, intent(inout) :: a(lda,*)
integer, intent(in) :: lda

public subroutine dsyr2(uplo, n, alpha, x, incx, y, incy, a, lda)

DSYR2 performs the symmetric rank 2 operation

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
integer, intent(in) :: n
double precision, intent(in) :: alpha
double precision, intent(in) :: x(*)
integer, intent(in) :: incx
double precision, intent(in) :: y(*)
integer, intent(in) :: incy
double precision, intent(inout) :: a(lda,*)
integer, intent(in) :: lda

public subroutine dsyr2k(uplo, trans, n, k, alpha, a, lda, b, ldb, beta, c, ldc)

DSYR2K performs one of the symmetric rank 2k operations

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
character(len=1), intent(in) :: trans
integer, intent(in) :: n
integer, intent(in) :: k
double precision, intent(in) :: alpha
double precision, intent(in) :: a(lda,*)
integer, intent(in) :: lda
double precision, intent(in) :: b(ldb,*)
integer, intent(in) :: ldb
double precision, intent(in) :: beta
double precision, intent(inout) :: c(ldc,*)
integer, intent(in) :: ldc

public subroutine dsyrk(uplo, trans, n, k, alpha, a, lda, beta, c, ldc)

DSYRK performs one of the symmetric rank k operations

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
character(len=1), intent(in) :: trans
integer, intent(in) :: n
integer, intent(in) :: k
double precision, intent(in) :: alpha
double precision, intent(in) :: a(lda,*)
integer, intent(in) :: lda
double precision, intent(in) :: beta
double precision, intent(inout) :: c(ldc,*)
integer, intent(in) :: ldc

public subroutine dtbmv(uplo, trans, diag, n, k, a, lda, x, incx)

DTBMV performs one of the matrix-vector operations

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
character(len=1), intent(in) :: trans
character(len=1), intent(in) :: diag
integer, intent(in) :: n
integer, intent(in) :: k
double precision, intent(in) :: a(lda,*)
integer, intent(in) :: lda
double precision, intent(inout) :: x(*)
integer, intent(in) :: incx

public subroutine dtbsv(uplo, trans, diag, n, k, a, lda, x, incx)

DTBSV solves one of the systems of equations

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
character(len=1), intent(in) :: trans
character(len=1), intent(in) :: diag
integer, intent(in) :: n
integer, intent(in) :: k
double precision, intent(in) :: a(lda,*)
integer, intent(in) :: lda
double precision, intent(inout) :: x(*)
integer, intent(in) :: incx

public subroutine dtpmv(uplo, trans, diag, n, ap, x, incx)

DTPMV performs one of the matrix-vector operations

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
character(len=1), intent(in) :: trans
character(len=1), intent(in) :: diag
integer, intent(in) :: n
double precision, intent(in) :: ap(*)
double precision, intent(inout) :: x(*)
integer, intent(in) :: incx

public subroutine dtpsv(uplo, trans, diag, n, ap, x, incx)

DTPSV solves one of the systems of equations

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
character(len=1), intent(in) :: trans
character(len=1), intent(in) :: diag
integer, intent(in) :: n
double precision, intent(in) :: ap(*)
double precision, intent(inout) :: x(*)
integer, intent(in) :: incx

public subroutine dtrmm(side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb)

DTRMM performs one of the matrix-matrix operations

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: side
character(len=1), intent(in) :: uplo
character(len=1), intent(in) :: transa
character(len=1), intent(in) :: diag
integer, intent(in) :: m
integer, intent(in) :: n
double precision, intent(in) :: alpha
double precision, intent(in) :: a(lda,*)
integer, intent(in) :: lda
double precision, intent(inout) :: b(ldb,*)
integer, intent(in) :: ldb

public subroutine dtrmv(uplo, trans, diag, n, a, lda, x, incx)

DTRMV performs one of the matrix-vector operations

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
character(len=1), intent(in) :: trans
character(len=1), intent(in) :: diag
integer, intent(in) :: n
double precision, intent(in) :: a(lda,*)
integer, intent(in) :: lda
double precision, intent(inout) :: x(*)
integer, intent(in) :: incx

public subroutine dtrsm(side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb)

DTRSM solves one of the matrix equations

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: side
character(len=1), intent(in) :: uplo
character(len=1), intent(in) :: transa
character(len=1), intent(in) :: diag
integer, intent(in) :: m
integer, intent(in) :: n
double precision, intent(in) :: alpha
double precision, intent(in) :: a(lda,*)
integer, intent(in) :: lda
double precision, intent(inout) :: b(ldb,*)
integer, intent(in) :: ldb

public subroutine dtrsv(uplo, trans, diag, n, a, lda, x, incx)

DTRSV solves one of the systems of equations

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
character(len=1), intent(in) :: trans
character(len=1), intent(in) :: diag
integer, intent(in) :: n
double precision, intent(in) :: a(lda,*)
integer, intent(in) :: lda
double precision, intent(inout) :: x(*)
integer, intent(in) :: incx

public subroutine saxpy(n, sa, sx, incx, sy, incy)

N number of elements in input vector(s) SA On entry, SA specifies the scalar alpha. SX SX is REAL array, dimension ( 1 + ( N - 1 )abs( INCX ) ) INCX storage spacing between elements of SX SY SY is REAL array, dimension ( 1 + ( N - 1 )abs( INCY ) ) INCY storage spacing between elements of SY

Read more…

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: n
real, intent(in) :: sa
real, intent(in) :: sx(*)
integer, intent(in) :: incx
real, intent(inout) :: sy(*)
integer, intent(in) :: incy

public subroutine scopy(n, sx, incx, sy, incy)

N

Read more…

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: n
real, intent(in) :: sx(*)
integer, intent(in) :: incx
real, intent(out) :: sy(*)
integer, intent(in) :: incy

public subroutine set_xerbla(proc)

Arguments

Type IntentOptional Attributes Name
procedure(xerbla_interface) :: proc

public subroutine sgbmv(trans, m, n, kl, ku, alpha, a, lda, x, incx, beta, y, incy)

SY:=alphaASX+beta*SY, A a band matrix.

Read more…

Arguments

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

public subroutine sgemm(transa, transb, m, n, k, alpha, a, lda, b, ldb, beta, c, ldc)

C:=alphaAB+beta*C, A, B, C rectangular.

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: transa
character(len=1), intent(in) :: transb
integer, intent(in) :: m
integer, intent(in) :: n
integer, intent(in) :: k
real, intent(in) :: alpha
real, intent(in) :: a(lda,*)
integer, intent(in) :: lda
real, intent(in) :: b(ldb,*)
integer, intent(in) :: ldb
real, intent(in) :: beta
real, intent(inout) :: c(ldc,*)
integer, intent(in) :: ldc

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

SY:=alphaASX+beta*SY, A a rectangular matrix.

Read more…

Arguments

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

public subroutine sger(m, n, alpha, x, incx, y, incy, a, lda)

A:=A+alphaSXTRANSPOSE(SY), rank 1 update, A a rectangular matrix.

Read more…

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: m
integer, intent(in) :: n
real, intent(in) :: alpha
real, intent(in) :: x(*)
integer, intent(in) :: incx
real, intent(in) :: y(*)
integer, intent(in) :: incy
real, intent(inout) :: a(lda,*)
integer, intent(in) :: lda

public subroutine srot(n, sx, incx, sy, incy, c, s)

N

Read more…

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: n
real, intent(inout) :: sx(*)
integer, intent(in) :: incx
real, intent(inout) :: sy(*)
integer, intent(in) :: incy
real, intent(in) :: c
real, intent(in) :: s

public subroutine srotg(a, b, c, s)

subroutine srotg( a, b, c, s )

Read more…

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(inout) :: a
real(kind=wp), intent(inout) :: b
real(kind=wp), intent(out) :: c
real(kind=wp), intent(out) :: s

public subroutine srotm(n, sx, incx, sy, incy, sparam)

N

Read more…

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: n
real, intent(inout) :: sx(*)
integer, intent(in) :: incx
real, intent(inout) :: sy(*)
integer, intent(in) :: incy
real, intent(in) :: sparam(5)

public subroutine srotmg(sd1, sd2, sx1, sy1, sparam)

SD1

Read more…

Arguments

Type IntentOptional Attributes Name
real, intent(inout) :: sd1
real, intent(inout) :: sd2
real, intent(inout) :: sx1
real, intent(in) :: sy1
real, intent(out) :: sparam(5)

public subroutine ssbmv(uplo, n, k, alpha, a, lda, x, incx, beta, y, incy)

SSBMV performs the matrix-vector operation

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
integer, intent(in) :: n
integer, intent(in) :: k
real, intent(in) :: alpha
real, intent(in) :: a(lda,*)
integer, intent(in) :: lda
real, intent(in) :: x(*)
integer, intent(in) :: incx
real, intent(in) :: beta
real, intent(inout) :: y(*)
integer, intent(in) :: incy

public subroutine sscal(n, sa, sx, incx)

N

Read more…

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: n
real, intent(in) :: sa
real, intent(inout) :: sx(*)
integer, intent(in) :: incx

public subroutine sspmv(uplo, n, alpha, ap, x, incx, beta, y, incy)

SSPMV performs the matrix-vector operation

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
integer, intent(in) :: n
real, intent(in) :: alpha
real, intent(in) :: ap(*)
real, intent(in) :: x(*)
integer, intent(in) :: incx
real, intent(in) :: beta
real, intent(inout) :: y(*)
integer, intent(in) :: incy

public subroutine sspr(uplo, n, alpha, x, incx, ap)

SSPR performs the symmetric rank 1 operation

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
integer, intent(in) :: n
real, intent(in) :: alpha
real, intent(in) :: x(*)
integer, intent(in) :: incx
real, intent(inout) :: ap(*)

public subroutine sspr2(uplo, n, alpha, x, incx, y, incy, ap)

SSPR2 performs the symmetric rank 2 operation

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
integer, intent(in) :: n
real, intent(in) :: alpha
real, intent(in) :: x(*)
integer, intent(in) :: incx
real, intent(in) :: y(*)
integer, intent(in) :: incy
real, intent(inout) :: ap(*)

public subroutine sswap(n, sx, incx, sy, incy)

N

Read more…

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: n
real, intent(inout) :: sx(*)
integer, intent(in) :: incx
real, intent(inout) :: sy(*)
integer, intent(in) :: incy

public subroutine ssymm(side, uplo, m, n, alpha, a, lda, b, ldb, beta, c, ldc)

SSYMM performs one of the matrix-matrix operations

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: side
character(len=1), intent(in) :: uplo
integer, intent(in) :: m
integer, intent(in) :: n
real, intent(in) :: alpha
real, intent(in) :: a(lda,*)
integer, intent(in) :: lda
real, intent(in) :: b(ldb,*)
integer, intent(in) :: ldb
real, intent(in) :: beta
real, intent(inout) :: c(ldc,*)
integer, intent(in) :: ldc

public subroutine ssymv(uplo, n, alpha, a, lda, x, incx, beta, y, incy)

SSYMV performs the matrix-vector operation

Read more…

Arguments

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

public subroutine ssyr(uplo, n, alpha, x, incx, a, lda)

SSYR performs the symmetric rank 1 operation

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
integer, intent(in) :: n
real, intent(in) :: alpha
real, intent(in) :: x(*)
integer, intent(in) :: incx
real, intent(inout) :: a(lda,*)
integer, intent(in) :: lda

public subroutine ssyr2(uplo, n, alpha, x, incx, y, incy, a, lda)

SSYR2 performs the symmetric rank 2 operation

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
integer, intent(in) :: n
real, intent(in) :: alpha
real, intent(in) :: x(*)
integer, intent(in) :: incx
real, intent(in) :: y(*)
integer, intent(in) :: incy
real, intent(inout) :: a(lda,*)
integer, intent(in) :: lda

public subroutine ssyr2k(uplo, trans, n, k, alpha, a, lda, b, ldb, beta, c, ldc)

SSYR2K performs one of the symmetric rank 2k operations

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
character(len=1), intent(in) :: trans
integer, intent(in) :: n
integer, intent(in) :: k
real, intent(in) :: alpha
real, intent(in) :: a(lda,*)
integer, intent(in) :: lda
real, intent(in) :: b(ldb,*)
integer, intent(in) :: ldb
real, intent(in) :: beta
real, intent(inout) :: c(ldc,*)
integer, intent(in) :: ldc

public subroutine ssyrk(uplo, trans, n, k, alpha, a, lda, beta, c, ldc)

SSYRK performs one of the symmetric rank k operations

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
character(len=1), intent(in) :: trans
integer, intent(in) :: n
integer, intent(in) :: k
real, intent(in) :: alpha
real, intent(in) :: a(lda,*)
integer, intent(in) :: lda
real, intent(in) :: beta
real, intent(inout) :: c(ldc,*)
integer, intent(in) :: ldc

public subroutine stbmv(uplo, trans, diag, n, k, a, lda, x, incx)

STBMV performs one of the matrix-vector operations

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
character(len=1), intent(in) :: trans
character(len=1), intent(in) :: diag
integer, intent(in) :: n
integer, intent(in) :: k
real, intent(in) :: a(lda,*)
integer, intent(in) :: lda
real, intent(inout) :: x(*)
integer, intent(in) :: incx

public subroutine stbsv(uplo, trans, diag, n, k, a, lda, x, incx)

STBSV solves one of the systems of equations

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
character(len=1), intent(in) :: trans
character(len=1), intent(in) :: diag
integer, intent(in) :: n
integer, intent(in) :: k
real, intent(in) :: a(lda,*)
integer, intent(in) :: lda
real, intent(inout) :: x(*)
integer, intent(in) :: incx

public subroutine stpmv(uplo, trans, diag, n, ap, x, incx)

STPMV performs one of the matrix-vector operations

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
character(len=1), intent(in) :: trans
character(len=1), intent(in) :: diag
integer, intent(in) :: n
real, intent(in) :: ap(*)
real, intent(inout) :: x(*)
integer, intent(in) :: incx

public subroutine stpsv(uplo, trans, diag, n, ap, x, incx)

STPSV solves one of the systems of equations

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
character(len=1), intent(in) :: trans
character(len=1), intent(in) :: diag
integer, intent(in) :: n
real, intent(in) :: ap(*)
real, intent(inout) :: x(*)
integer, intent(in) :: incx

public subroutine strmm(side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb)

STRMM performs one of the matrix-matrix operations

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: side
character(len=1), intent(in) :: uplo
character(len=1), intent(in) :: transa
character(len=1), intent(in) :: diag
integer, intent(in) :: m
integer, intent(in) :: n
real, intent(in) :: alpha
real, intent(in) :: a(lda,*)
integer, intent(in) :: lda
real, intent(inout) :: b(ldb,*)
integer, intent(in) :: ldb

public subroutine strmv(uplo, trans, diag, n, a, lda, x, incx)

STRMV performs one of the matrix-vector operations

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
character(len=1), intent(in) :: trans
character(len=1), intent(in) :: diag
integer, intent(in) :: n
real, intent(in) :: a(lda,*)
integer, intent(in) :: lda
real, intent(inout) :: x(*)
integer, intent(in) :: incx

public subroutine strsm(side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb)

STRSM solves one of the matrix equations

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: side
character(len=1), intent(in) :: uplo
character(len=1), intent(in) :: transa
character(len=1), intent(in) :: diag
integer, intent(in) :: m
integer, intent(in) :: n
real, intent(in) :: alpha
real, intent(in) :: a(lda,*)
integer, intent(in) :: lda
real, intent(inout) :: b(ldb,*)
integer, intent(in) :: ldb

public subroutine strsv(uplo, trans, diag, n, a, lda, x, incx)

STRSV solves one of the systems of equations

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
character(len=1), intent(in) :: trans
character(len=1), intent(in) :: diag
integer, intent(in) :: n
real, intent(in) :: a(lda,*)
integer, intent(in) :: lda
real, intent(inout) :: x(*)
integer, intent(in) :: incx

public subroutine xerbla_array(srname_array, srname_len, info)

XERBLA_ARRAY assists other languages in calling XERBLA, the LAPACK and BLAS error handler. Rather than taking a Fortran string argument as the function’s name, XERBLA_ARRAY takes an array of single characters along with the array’s length. XERBLA_ARRAY then copies up to 32 characters of that array into a Fortran string and passes that to XERBLA. If called with a non-positive SRNAME_LEN, XERBLA_ARRAY will call XERBLA with a string of all blank characters.

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: srname_array(srname_len)
integer, intent(in) :: srname_len
integer, intent(in) :: info

public subroutine zaxpy(n, za, zx, incx, zy, incy)

N number of elements in input vector(s) ZA On entry, ZA specifies the scalar alpha. ZX ZX is complex(kind=real64) array, dimension ( 1 + ( N - 1 )abs( INCX ) ) INCX storage spacing between elements of ZX ZY ZY is complex(kind=real64) array, dimension ( 1 + ( N - 1 )abs( INCY ) ) INCY storage spacing between elements of ZY

Read more…

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: n
complex(kind=real64), intent(in) :: za
complex(kind=real64), intent(in) :: zx(*)
integer, intent(in) :: incx
complex(kind=real64), intent(inout) :: zy(*)
integer, intent(in) :: incy

public subroutine zcopy(n, zx, incx, zy, incy)

N

Read more…

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: n
complex(kind=real64), intent(in) :: zx(*)
integer, intent(in) :: incx
complex(kind=real64), intent(out) :: zy(*)
integer, intent(in) :: incy

public subroutine zdrot(n, zx, incx, zy, incy, c, s)

Applies a plane rotation, where the cos and sin (c and s) are real and the vectors cx and cy are complex. jack dongarra, linpack, 3/11/78.

Read more…

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: n
complex(kind=real64), intent(inout) :: zx(*)
integer, intent(in) :: incx
complex(kind=real64), intent(inout) :: zy(*)
integer, intent(in) :: incy
double precision, intent(in) :: c
double precision, intent(in) :: s

public subroutine zdscal(n, da, zx, incx)

N

Read more…

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: n
double precision, intent(in) :: da
complex(kind=real64), intent(inout) :: zx(*)
integer, intent(in) :: incx

public subroutine zgbmv(trans, m, n, kl, ku, alpha, a, lda, x, incx, beta, y, incy)

ZGBMV performs one of the matrix-vector operations

Read more…

Arguments

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

public subroutine zgemm(transa, transb, m, n, k, alpha, a, lda, b, ldb, beta, c, ldc)

ZGEMM performs one of the matrix-matrix operations

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: transa
character(len=1), intent(in) :: transb
integer, intent(in) :: m
integer, intent(in) :: n
integer, intent(in) :: k
complex(kind=real64), intent(in) :: alpha
complex(kind=real64), intent(in) :: a(lda,*)
integer, intent(in) :: lda
complex(kind=real64), intent(in) :: b(ldb,*)
integer, intent(in) :: ldb
complex(kind=real64), intent(in) :: beta
complex(kind=real64), intent(inout) :: c(ldc,*)
integer, intent(in) :: ldc

public subroutine zgemv(trans, m, n, alpha, a, lda, x, incx, beta, y, incy)

ZGEMV performs one of the matrix-vector operations

Read more…

Arguments

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

public subroutine zgerc(m, n, alpha, x, incx, y, incy, a, lda)

ZGERC performs the rank 1 operation

Read more…

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: m
integer, intent(in) :: n
complex(kind=real64), intent(in) :: alpha
complex(kind=real64), intent(in) :: x(*)
integer, intent(in) :: incx
complex(kind=real64), intent(in) :: y(*)
integer, intent(in) :: incy
complex(kind=real64), intent(inout) :: a(lda,*)
integer, intent(in) :: lda

public subroutine zgeru(m, n, alpha, x, incx, y, incy, a, lda)

ZGERU performs the rank 1 operation

Read more…

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: m
integer, intent(in) :: n
complex(kind=real64), intent(in) :: alpha
complex(kind=real64), intent(in) :: x(*)
integer, intent(in) :: incx
complex(kind=real64), intent(in) :: y(*)
integer, intent(in) :: incy
complex(kind=real64), intent(inout) :: a(lda,*)
integer, intent(in) :: lda

public subroutine zhbmv(uplo, n, k, alpha, a, lda, x, incx, beta, y, incy)

ZHBMV performs the matrix-vector operation

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
integer, intent(in) :: n
integer, intent(in) :: k
complex(kind=real64), intent(in) :: alpha
complex(kind=real64), intent(in) :: a(lda,*)
integer, intent(in) :: lda
complex(kind=real64), intent(in) :: x(*)
integer, intent(in) :: incx
complex(kind=real64), intent(in) :: beta
complex(kind=real64), intent(inout) :: y(*)
integer, intent(in) :: incy

public subroutine zhemm(side, uplo, m, n, alpha, a, lda, b, ldb, beta, c, ldc)

ZHEMM performs one of the matrix-matrix operations

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: side
character(len=1), intent(in) :: uplo
integer, intent(in) :: m
integer, intent(in) :: n
complex(kind=real64), intent(in) :: alpha
complex(kind=real64), intent(in) :: a(lda,*)
integer, intent(in) :: lda
complex(kind=real64), intent(in) :: b(ldb,*)
integer, intent(in) :: ldb
complex(kind=real64), intent(in) :: beta
complex(kind=real64), intent(inout) :: c(ldc,*)
integer, intent(in) :: ldc

public subroutine zhemv(uplo, n, alpha, a, lda, x, incx, beta, y, incy)

ZHEMV performs the matrix-vector operation

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
integer, intent(in) :: n
complex(kind=real64), intent(in) :: alpha
complex(kind=real64), intent(in) :: a(lda,*)
integer, intent(in) :: lda
complex(kind=real64), intent(in) :: x(*)
integer, intent(in) :: incx
complex(kind=real64), intent(in) :: beta
complex(kind=real64), intent(inout) :: y(*)
integer, intent(in) :: incy

public subroutine zher(uplo, n, alpha, x, incx, a, lda)

ZHER performs the hermitian rank 1 operation

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
integer, intent(in) :: n
double precision, intent(in) :: alpha
complex(kind=real64), intent(in) :: x(*)
integer, intent(in) :: incx
complex(kind=real64), intent(inout) :: a(lda,*)
integer, intent(in) :: lda

public subroutine zher2(uplo, n, alpha, x, incx, y, incy, a, lda)

ZHER2 performs the hermitian rank 2 operation

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
integer, intent(in) :: n
complex(kind=real64), intent(in) :: alpha
complex(kind=real64), intent(in) :: x(*)
integer, intent(in) :: incx
complex(kind=real64), intent(in) :: y(*)
integer, intent(in) :: incy
complex(kind=real64), intent(inout) :: a(lda,*)
integer, intent(in) :: lda

public subroutine zher2k(uplo, trans, n, k, alpha, a, lda, b, ldb, beta, c, ldc)

ZHER2K performs one of the hermitian rank 2k operations

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
character(len=1), intent(in) :: trans
integer, intent(in) :: n
integer, intent(in) :: k
complex(kind=real64), intent(in) :: alpha
complex(kind=real64), intent(in) :: a(lda,*)
integer, intent(in) :: lda
complex(kind=real64), intent(in) :: b(ldb,*)
integer, intent(in) :: ldb
double precision, intent(in) :: beta
complex(kind=real64), intent(inout) :: c(ldc,*)
integer, intent(in) :: ldc

public subroutine zherk(uplo, trans, n, k, alpha, a, lda, beta, c, ldc)

ZHERK performs one of the hermitian rank k operations

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
character(len=1), intent(in) :: trans
integer, intent(in) :: n
integer, intent(in) :: k
double precision, intent(in) :: alpha
complex(kind=real64), intent(in) :: a(lda,*)
integer, intent(in) :: lda
double precision, intent(in) :: beta
complex(kind=real64), intent(inout) :: c(ldc,*)
integer, intent(in) :: ldc

public subroutine zhpmv(uplo, n, alpha, ap, x, incx, beta, y, incy)

ZHPMV performs the matrix-vector operation

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
integer, intent(in) :: n
complex(kind=real64), intent(in) :: alpha
complex(kind=real64), intent(in) :: ap(*)
complex(kind=real64), intent(in) :: x(*)
integer, intent(in) :: incx
complex(kind=real64), intent(in) :: beta
complex(kind=real64), intent(inout) :: y(*)
integer, intent(in) :: incy

public subroutine zhpr(uplo, n, alpha, x, incx, ap)

ZHPR performs the hermitian rank 1 operation

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
integer, intent(in) :: n
double precision, intent(in) :: alpha
complex(kind=real64), intent(in) :: x(*)
integer, intent(in) :: incx
complex(kind=real64), intent(inout) :: ap(*)

public subroutine zhpr2(uplo, n, alpha, x, incx, y, incy, ap)

ZHPR2 performs the hermitian rank 2 operation

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
integer, intent(in) :: n
complex(kind=real64), intent(in) :: alpha
complex(kind=real64), intent(in) :: x(*)
integer, intent(in) :: incx
complex(kind=real64), intent(in) :: y(*)
integer, intent(in) :: incy
complex(kind=real64), intent(inout) :: ap(*)

public subroutine zrotg(a, b, c, s)

ZROTG constructs a plane rotation

Read more…

Arguments

Type IntentOptional Attributes Name
complex(kind=wp), intent(inout) :: a
complex(kind=wp), intent(in) :: b
real(kind=wp), intent(out) :: c
complex(kind=wp), intent(out) :: s

public subroutine zscal(n, za, zx, incx)

N

Read more…

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: n
complex(kind=real64), intent(in) :: za
complex(kind=real64), intent(inout) :: zx(*)
integer, intent(in) :: incx

public subroutine zswap(n, zx, incx, zy, incy)

N

Read more…

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: n
complex(kind=real64), intent(inout) :: zx(*)
integer, intent(in) :: incx
complex(kind=real64), intent(inout) :: zy(*)
integer, intent(in) :: incy

public subroutine zsymm(side, uplo, m, n, alpha, a, lda, b, ldb, beta, c, ldc)

ZSYMM performs one of the matrix-matrix operations

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: side
character(len=1), intent(in) :: uplo
integer, intent(in) :: m
integer, intent(in) :: n
complex(kind=real64), intent(in) :: alpha
complex(kind=real64), intent(in) :: a(lda,*)
integer, intent(in) :: lda
complex(kind=real64), intent(in) :: b(ldb,*)
integer, intent(in) :: ldb
complex(kind=real64), intent(in) :: beta
complex(kind=real64), intent(inout) :: c(ldc,*)
integer, intent(in) :: ldc

public subroutine zsyr2k(uplo, trans, n, k, alpha, a, lda, b, ldb, beta, c, ldc)

ZSYR2K performs one of the symmetric rank 2k operations

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
character(len=1), intent(in) :: trans
integer, intent(in) :: n
integer, intent(in) :: k
complex(kind=real64), intent(in) :: alpha
complex(kind=real64), intent(in) :: a(lda,*)
integer, intent(in) :: lda
complex(kind=real64), intent(in) :: b(ldb,*)
integer, intent(in) :: ldb
complex(kind=real64), intent(in) :: beta
complex(kind=real64), intent(inout) :: c(ldc,*)
integer, intent(in) :: ldc

public subroutine zsyrk(uplo, trans, n, k, alpha, a, lda, beta, c, ldc)

ZSYRK performs one of the symmetric rank k operations

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
character(len=1), intent(in) :: trans
integer, intent(in) :: n
integer, intent(in) :: k
complex(kind=real64), intent(inout) :: alpha
complex(kind=real64), intent(in) :: a(lda,*)
integer, intent(in) :: lda
complex(kind=real64), intent(inout) :: beta
complex(kind=real64), intent(inout) :: c(ldc,*)
integer, intent(in) :: ldc

public subroutine ztbmv(uplo, trans, diag, n, k, a, lda, x, incx)

ZTBMV performs one of the matrix-vector operations

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
character(len=1), intent(in) :: trans
character(len=1), intent(in) :: diag
integer, intent(in) :: n
integer, intent(in) :: k
complex(kind=real64), intent(in) :: a(lda,*)
integer, intent(in) :: lda
complex(kind=real64), intent(inout) :: x(*)
integer, intent(in) :: incx

public subroutine ztbsv(uplo, trans, diag, n, k, a, lda, x, incx)

ZTBSV solves one of the systems of equations

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
character(len=1), intent(in) :: trans
character(len=1), intent(in) :: diag
integer, intent(in) :: n
integer, intent(in) :: k
complex(kind=real64), intent(in) :: a(lda,*)
integer, intent(in) :: lda
complex(kind=real64), intent(inout) :: x(*)
integer, intent(in) :: incx

public subroutine ztpmv(uplo, trans, diag, n, ap, x, incx)

ZTPMV performs one of the matrix-vector operations

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
character(len=1), intent(in) :: trans
character(len=1), intent(in) :: diag
integer, intent(in) :: n
complex(kind=real64), intent(in) :: ap(*)
complex(kind=real64), intent(inout) :: x(*)
integer, intent(in) :: incx

public subroutine ztpsv(uplo, trans, diag, n, ap, x, incx)

ZTPSV solves one of the systems of equations

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
character(len=1), intent(in) :: trans
character(len=1), intent(in) :: diag
integer, intent(in) :: n
complex(kind=real64), intent(in) :: ap(*)
complex(kind=real64), intent(inout) :: x(*)
integer, intent(in) :: incx

public subroutine ztrmm(side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb)

ZTRMM performs one of the matrix-matrix operations

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: side
character(len=1), intent(in) :: uplo
character(len=1), intent(in) :: transa
character(len=1), intent(in) :: diag
integer, intent(in) :: m
integer, intent(in) :: n
complex(kind=real64), intent(in) :: alpha
complex(kind=real64), intent(in) :: a(lda,*)
integer, intent(in) :: lda
complex(kind=real64), intent(inout) :: b(ldb,*)
integer, intent(in) :: ldb

public subroutine ztrmv(uplo, trans, diag, n, a, lda, x, incx)

ZTRMV performs one of the matrix-vector operations

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
character(len=1), intent(in) :: trans
character(len=1), intent(in) :: diag
integer, intent(in) :: n
complex(kind=real64), intent(in) :: a(lda,*)
integer, intent(in) :: lda
complex(kind=real64), intent(inout) :: x(*)
integer, intent(in) :: incx

public subroutine ztrsm(side, uplo, transa, diag, m, n, alpha, a, lda, b, ldb)

ZTRSM solves one of the matrix equations

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: side
character(len=1), intent(in) :: uplo
character(len=1), intent(in) :: transa
character(len=1), intent(in) :: diag
integer, intent(in) :: m
integer, intent(in) :: n
complex(kind=real64), intent(in) :: alpha
complex(kind=real64), intent(in) :: a(lda,*)
integer, intent(in) :: lda
complex(kind=real64), intent(inout) :: b(ldb,*)
integer, intent(in) :: ldb

public subroutine ztrsv(uplo, trans, diag, n, a, lda, x, incx)

ZTRSV solves one of the systems of equations

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: uplo
character(len=1), intent(in) :: trans
character(len=1), intent(in) :: diag
integer, intent(in) :: n
complex(kind=real64), intent(in) :: a(lda,*)
integer, intent(in) :: lda
complex(kind=real64), intent(inout) :: x(*)
integer, intent(in) :: incx