stdlib_xerbla_array 子程序

public pure subroutine stdlib_xerbla_array(srname_array, srname_len, info)

XERBLA_ARRAY 帮助其他语言调用 XERBLA，即 LAPACK 和 BLAS 错误处理程序。与将 Fortran 字符串作为函数名称的参数不同，XERBLA_ARRAY 使用单字符数组及其长度作为参数。然后，XERBLA_ARRAY 将该数组最多 32 个字符复制到 Fortran 字符串中，并将其传递给 XERBLA。如果以非正 SRNAME_LEN 调用 XERBLA_ARRAY，则 XERBLA_ARRAY 将使用全空格字符串调用 XERBLA。假设某些宏或其他设备通过名称 lapack_xerbla 并使用常见的 Fortran 调用约定使 XERBLA_ARRAY 可用于 C99。然后，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

源代码

     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.
        ! -- reference blas level1 routine --
        ! -- reference blas is a software package provided by univ. of tennessee,    --
        ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..--
           ! Scalar Arguments 
           integer(ilp), intent(in) :: srname_len, info
           ! Array Arguments 
           character(1), intent(in) :: srname_array(srname_len)
       ! =====================================================================
           ! Local Scalars 
           integer(ilp) :: i
           ! Local Arrays 
           character*32 srname
           ! Intrinsic Functions 
           intrinsic :: min,len
           ! Executable Statements 
           srname = ''
           do i = 1, min( srname_len, len( srname ) )
              srname( i:i ) = srname_array( i )
           end do
           call stdlib_xerbla( srname, info )
           return
     end subroutine stdlib_xerbla_array