v0.10.0
third_party
cblas
xerbla.c
Go to the documentation of this file.
1
#include <stdio.h>
2
#include <ctype.h>
3
#include "
cblas.h
"
4
#include "
cblas_f77.h
"
5
6
#define XerblaStrLen 6
7
#define XerblaStrLen1 7
8
9
#ifdef F77_CHAR
10
void
F77_xerbla
(F77_CHAR F77_srname,
void
*vinfo)
11
#else
12
void
F77_xerbla
(
char
*srname,
void
*vinfo)
13
#endif
14
15
{
16
#ifdef F77_CHAR
17
char
*srname;
18
#endif
19
20
char
rout[] = {
'c'
,
'b'
,
'l'
,
'a'
,
's'
,
'_'
,
'\0'
,
'\0'
,
'\0'
,
'\0'
,
'\0'
,
'\0'
,
'\0'
};
21
22
#ifdef F77_INT
23
F77_INT *info=vinfo;
24
F77_INT
i
;
25
#else
26
int
*info=vinfo;
27
int
i
;
28
#endif
29
30
extern
int
CBLAS_CallFromC
;
31
32
#ifdef F77_CHAR
33
srname = F2C_STR(F77_srname,
XerblaStrLen
);
34
#endif
35
36
if
(
CBLAS_CallFromC
)
37
{
38
for
(
i
=0;
i
!=
XerblaStrLen
;
i
++) rout[
i
+6] = tolower(srname[
i
]);
39
rout[
XerblaStrLen
+6] =
'\0'
;
40
cblas_xerbla
(*info+1,rout,
""
);
41
}
42
else
43
{
44
fprintf(stderr,
"Parameter %d to routine %s was incorrect\n"
,
45
*info, srname);
46
}
47
}
cblas_xerbla
void cblas_xerbla(int p, const char *rout, const char *form,...)
Definition:
cblas_xerbla.c:8
cblas_f77.h
cblas.h
F77_xerbla
void F77_xerbla(char *srname, void *vinfo)
Definition:
xerbla.c:12
XerblaStrLen
#define XerblaStrLen
Definition:
xerbla.c:6
CBLAS_CallFromC
int CBLAS_CallFromC
Definition:
cblas_globals.c:1
i
FTensor::Index< 'i', 3 > i
Definition:
matrix_function.cpp:18
Generated on Tue Jan 19 2021 13:52:59 for MoFEM by
Doxygen
1.8.20 and hosted at