xerbla_array.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	xerbla_array (SRNAME_ARRAY, SRNAME_LEN, INFO)
	XERBLA_ARRAY

---

Function/Subroutine Documentation

subroutine xerbla_array	(	character(1), dimension(srname_len)	SRNAME_ARRAY,
		integer	SRNAME_LEN,
		integer	INFO
	)

XERBLA_ARRAY

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 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.

Parameters:

[in]	SRNAME_ARRAY	SRNAME_ARRAY is CHARACTER(1) array, dimension (SRNAME_LEN) The name of the routine which called XERBLA_ARRAY.
[in]	SRNAME_LEN	SRNAME_LEN is INTEGER The length of the name in SRNAME_ARRAY.
[in]	INFO	INFO is INTEGER The position of the invalid parameter in the parameter list of the calling routine.

Author:

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date:

November 2011

Definition at line 81 of file xerbla_array.f.

Here is the call graph for this function: