XERBLA_ARRAY(1) LAPACK auxiliary routine (version 3.0) XERBLA_ARRAY(1)NAME
XERBLA_ARRAY - assists other languages in calling XERBLA, the LAPACK
and BLAS error handler
SYNOPSIS
SUBROUTINE XERBLA_ARRAY(SRNAME_ARRAY, SRNAME_LEN, INFO)
IMPLICIT NONE
INTEGER SRNAME_LEN, INFO
CHARACTER(1)SRNAME_ARRAY(SRNAME_LEN)PURPOSE
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 char‐
acters 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__, &flen, &info);
}
Providing XERBLA_ARRAY is not necessary for intercepting LAPACK errors.
XERBLA_ARRAY calls XERBLA.
ARGUMENTS
SRNAME_ARRAY (input) CHARACTER(1) array, dimension (SRNAME_LEN) The
name of the routine which called XERBLA_ARRAY. SRNAME_LEN (input)
INTEGER The length of the name in SRNAME_ARRAY.
INFO (input) INTEGER
The position of the invalid parameter in the parameter list of
the calling routine.
LAPACK auxiliary routine (versioNovember 2008 XERBLA_ARRAY(1)