1XERBLA_ARRAY(1)     LAPACK auxiliary routine (version 3.0)     XERBLA_ARRAY(1)
2
3
4

NAME

6       XERBLA_ARRAY  -  assists  other languages in calling XERBLA, the LAPACK
7       and BLAS error handler
8

SYNOPSIS

10       SUBROUTINE XERBLA_ARRAY(SRNAME_ARRAY, SRNAME_LEN, INFO)
11
12           IMPLICIT                          NONE
13
14           INTEGER                           SRNAME_LEN, INFO
15
16           CHARACTER(1)                      SRNAME_ARRAY(SRNAME_LEN)
17

PURPOSE

19       XERBLA_ARRAY assists other languages in calling XERBLA, the LAPACK  and
20       BLAS  error  handler.   Rather than taking a Fortran string argument as
21       the function's name, XERBLA_ARRAY takes an array of  single  characters
22       along with the array's length.  XERBLA_ARRAY then copies up to 32 char‐
23       acters of that array into a Fortran string and passes that  to  XERBLA.
24       If called with a non-positive SRNAME_LEN, XERBLA_ARRAY will call XERBLA
25       with a string of all blank characters.  Say some macro or other  device
26       makes  XERBLA_ARRAY available to C99 by a name lapack_xerbla and with a
27       common Fortran calling convention.  Then a  C99  program  could  invoke
28       XERBLA via:
29          {
30            int flen = strlen(__func__);
31            lapack_xerbla(__func__, &flen, &info);
32          }
33       Providing XERBLA_ARRAY is not necessary for intercepting LAPACK errors.
34       XERBLA_ARRAY calls XERBLA.
35

ARGUMENTS

37       SRNAME_ARRAY (input) CHARACTER(1)  array,  dimension  (SRNAME_LEN)  The
38       name  of  the  routine  which  called XERBLA_ARRAY.  SRNAME_LEN (input)
39       INTEGER The length of the name in SRNAME_ARRAY.
40
41       INFO    (input) INTEGER
42               The position of the invalid parameter in the parameter list  of
43               the calling routine.
44
45
46
47 LAPACK auxiliary routine (versionNo3v.e0m)ber 2008                 XERBLA_ARRAY(1)
Impressum