stdlib_linalg_blas_aux Module


Uses


Functions

public pure function stdlib_dcabs1(z)

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

Arguments

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

Return Value real(kind=dp)

public pure function stdlib_icamax(n, cx, incx)

ICAMAX finds the index of the first element having maximum |Re(.)| + |Im(.)|

Arguments

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

Return Value integer(kind=ilp)

public pure function stdlib_idamax(n, dx, incx)

IDAMAX finds the index of the first element having maximum absolute value.

Arguments

Type IntentOptional Attributes Name
integer(kind=ilp), intent(in) :: n
real(kind=dp), intent(in) :: dx(*)
integer(kind=ilp), intent(in) :: incx

Return Value integer(kind=ilp)

public pure function stdlib_isamax(n, sx, incx)

ISAMAX finds the index of the first element having maximum absolute value.

Arguments

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

Return Value integer(kind=ilp)

public pure function stdlib_izamax(n, zx, incx)

IZAMAX finds the index of the first element having maximum |Re(.)| + |Im(.)|

Arguments

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

Return Value integer(kind=ilp)

public pure function stdlib_lsame(ca, cb)

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

Arguments

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

Return Value logical(kind=lk)

public pure function stdlib_scabs1(z)

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

Arguments

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

Return Value real(kind=sp)


Subroutines

public pure subroutine stdlib_xerbla(srname, info)

XERBLA is an error handler for the LAPACK routines. It is called by an LAPACK routine if an input parameter has an invalid value. A message is printed and execution stops. Installers may consider modifying the STOP statement in order to call system-specific exception-handling facilities.

Arguments

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

public pure subroutine stdlib_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. Say some macro or other device makes XERBLA_ARRAY available to C99 by a name lapack_xerbla and with a common Fortran calling convention. Then a C99 program could invoke XERBLA via: { int flen = strlen(func); lapack_xerbla(func, } Providing XERBLA_ARRAY is not necessary for intercepting LAPACK errors. XERBLA_ARRAY calls XERBLA.

Arguments

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