1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
|
---
:name: xerbla_array
:md5sum: 320702fa47907817bf73aecb5577c631
:category: :subroutine
:arguments:
- srname_array:
:type: char
:intent: input
:dims:
- srname_len
- srname_len:
:type: integer
:intent: input
- info:
:type: integer
:intent: input
:substitutions: {}
:fortran_help: " SUBROUTINE XERBLA_ARRAY( SRNAME_ARRAY, SRNAME_LEN, INFO)\n\n\
* Purpose\n\
* =======\n\
*\n\
* XERBLA_ARRAY assists other languages in calling XERBLA, the LAPACK\n\
* and BLAS error handler. Rather than taking a Fortran string argument\n\
* as the function's name, XERBLA_ARRAY takes an array of single\n\
* characters along with the array's length. XERBLA_ARRAY then copies\n\
* up to 32 characters of that array into a Fortran string and passes\n\
* that to XERBLA. If called with a non-positive SRNAME_LEN,\n\
* XERBLA_ARRAY will call XERBLA with a string of all blank characters.\n\
*\n\
* Say some macro or other device makes XERBLA_ARRAY available to C99\n\
* by a name lapack_xerbla and with a common Fortran calling convention.\n\
* Then a C99 program could invoke XERBLA via:\n\
* {\n\
* int flen = strlen(__func__);\n\
* lapack_xerbla(__func__, &flen, &info);\n\
* }\n\
*\n\
* Providing XERBLA_ARRAY is not necessary for intercepting LAPACK\n\
* errors. XERBLA_ARRAY calls XERBLA.\n\
*\n\n\
* Arguments\n\
* =========\n\
*\n\
* SRNAME_ARRAY (input) CHARACTER(1) array, dimension (SRNAME_LEN)\n\
* The name of the routine which called XERBLA_ARRAY.\n\
*\n\
* SRNAME_LEN (input) INTEGER\n\
* The length of the name in SRNAME_ARRAY.\n\
*\n\
* INFO (input) INTEGER\n\
* The position of the invalid parameter in the parameter list\n\
* of the calling routine.\n\
*\n\n\
* =====================================================================\n\
*\n\
* ..\n\
* .. Local Scalars ..\n INTEGER I\n\
* ..\n\
* .. Local Arrays ..\n CHARACTER*32 SRNAME\n\
* ..\n\
* .. Intrinsic Functions ..\n INTRINSIC MIN, LEN\n\
* ..\n\
* .. External Functions ..\n EXTERNAL XERBLA\n\
* ..\n"
|
