stdlib_linalg_blas_aux 模块


使用


接口

public interface stdlib_cabs1

  • private pure elemental function stdlib_scabs1(z)

    DCABS1 计算双精度复数的 |Re(.)| + |Im(.)|。

    参数

    类型 意图可选 属性 名称
    complex(kind=sp), intent(in) :: z

    返回值 real(kind=sp)

  • private pure elemental function stdlib_dcabs1(z)

    DCABS1 计算双精度复数的 |Re(.)| + |Im(.)|。

    参数

    类型 意图可选 属性 名称
    complex(kind=dp), intent(in) :: z

    返回值 real(kind=dp)


函数

public pure function stdlib_icamax(n, zx, incx)

参数

类型 意图可选 属性 名称
integer(kind=ilp), intent(in) :: n
complex(kind=sp), intent(in) :: zx(*)
integer(kind=ilp), intent(in) :: incx

返回值 integer(kind=ilp)

public pure function stdlib_idamax(n, dx, incx)

参数

类型 意图可选 属性 名称
integer(kind=ilp), intent(in) :: n
real(kind=dp), intent(in) :: dx(*)
integer(kind=ilp), intent(in) :: incx

返回值 integer(kind=ilp)

public pure function stdlib_isamax(n, dx, incx)

参数

类型 意图可选 属性 名称
integer(kind=ilp), intent(in) :: n
real(kind=sp), intent(in) :: dx(*)
integer(kind=ilp), intent(in) :: incx

返回值 integer(kind=ilp)

public pure function stdlib_izamax(n, zx, incx)

参数

类型 意图可选 属性 名称
integer(kind=ilp), intent(in) :: n
complex(kind=dp), intent(in) :: zx(*)
integer(kind=ilp), intent(in) :: incx

返回值 integer(kind=ilp)

public pure elemental function stdlib_lsame(ca, cb)

LSAME 返回 .TRUE. 如果 CA 与 CB 是相同的字母，不区分大小写。

参数

类型 意图可选 属性 名称
character(len=1), intent(in) :: ca
character(len=1), intent(in) :: cb

返回值 logical(kind=lk)


子例程

public pure subroutine stdlib_xerbla(srname, info)

XERBLA 是 LAPACK 例程的错误处理程序。如果输入参数值无效，LAPACK 例程会调用它。系统会打印一条消息并停止执行。安装程序可以考虑修改 STOP 语句以调用特定于系统的异常处理机制。

参数

类型 意图可选 属性 名称
character(len=*), intent(in) :: srname
integer(kind=ilp), intent(in) :: info

public pure subroutine stdlib_xerbla_array(srname_array, srname_len, info)

XERBLA_ARRAY 帮助其他语言调用 XERBLA（LAPACK 和 BLAS 错误处理程序）。XERBLA_ARRAY 不是采用 Fortran 字符串参数作为函数名，而是采用单个字符的数组以及数组的长度。然后 XERBLA_ARRAY 将该数组的最多 32 个字符复制到 Fortran 字符串中，并将其传递给 XERBLA。如果调用时 SRNAME_LEN 不为正数，XERBLA_ARRAY 将使用全空白字符的字符串调用 XERBLA。假设某个宏或其他设备通过名为 lapack_xerbla 的名称以及通用的 Fortran 调用约定为 C99 提供了 XERBLA_ARRAY。然后，C99 程序可以通过以下方式调用 XERBLA：{ int flen = strlen(func); lapack_xerbla(func, } 提供 XERBLA_ARRAY 不是拦截 LAPACK 错误的必要条件。XERBLA_ARRAY 调用 XERBLA。

参数

类型 意图可选 属性 名称
character(len=1), intent(in) :: srname_array(srname_len)
integer(kind=ilp), intent(in) :: srname_len
integer(kind=ilp), intent(in) :: info