xerbla_array (l) - Linux Manuals

xerbla_array: assists other languages in calling XERBLA, the LAPACK and BLAS error handler

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 functionaqs name, XERBLA_ARRAY takes an array of single characters along with the arrayaqs 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__, &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.