LAPACK  3.6.1
LAPACK: Linear Algebra PACKage
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 82 of file xerbla_array.f.

82 *
83 * -- Reference BLAS level1 routine (version 3.4.0) --
84 * -- Reference BLAS is a software package provided by Univ. of Tennessee, --
85 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
86 * November 2011
87 *
88 * .. Scalar Arguments ..
89  INTEGER srname_len, info
90 * ..
91 * .. Array Arguments ..
92  CHARACTER(1) srname_array(srname_len)
93 * ..
94 *
95 * =====================================================================
96 *
97 * ..
98 * .. Local Scalars ..
99  INTEGER i
100 * ..
101 * .. Local Arrays ..
102  CHARACTER*32 srname
103 * ..
104 * .. Intrinsic Functions ..
105  INTRINSIC min, len
106 * ..
107 * .. External Functions ..
108  EXTERNAL xerbla
109 * ..
110 * .. Executable Statements ..
111  srname = ''
112  DO i = 1, min( srname_len, len( srname ) )
113  srname( i:i ) = srname_array( i )
114  END DO
115 
116  CALL xerbla( srname, info )
117 
118  RETURN
xerbla
subroutine xerbla(SRNAME, INFO)
XERBLA
Definition: xerbla.f:62

Here is the call graph for this function: