LAPACK
3.12.1
LAPACK: Linear Algebra PACKage
Toggle main menu visibility
Main Page
Related Pages
Routines
Modules
Modules List
Module Members
All
c
d
s
z
Functions/Subroutines
Variables
c
d
s
z
Data Types
Data Types List
Data Type Index
Data Fields
All
Functions/Subroutines
Variables
Files
File List
File Members
All
_
a
b
c
d
f
g
h
i
l
m
p
r
s
t
u
x
z
Functions/Subroutines
_
a
c
d
f
g
h
i
l
m
s
t
x
z
Variables
c
l
r
Typedefs
Enumerations
Enumerator
Macros
a
b
c
f
i
p
t
u
x
▼
LAPACK
►
LAPACK
►
Routines
►
Modules
►
Data Types
▼
Files
▼
File List
►
BLAS
▼
CBLAS
►
examples
►
include
▼
src
►
cblas_caxpy.c
►
cblas_ccopy.c
►
cblas_cdotc_sub.c
►
cblas_cdotu_sub.c
►
cblas_cgbmv.c
►
cblas_cgemm.c
►
cblas_cgemmtr.c
►
cblas_cgemv.c
►
cblas_cgerc.c
►
cblas_cgeru.c
►
cblas_chbmv.c
►
cblas_chemm.c
►
cblas_chemv.c
►
cblas_cher.c
►
cblas_cher2.c
►
cblas_cher2k.c
►
cblas_cherk.c
►
cblas_chpmv.c
►
cblas_chpr.c
►
cblas_chpr2.c
►
cblas_crotg.c
►
cblas_cscal.c
►
cblas_csrot.c
►
cblas_csscal.c
►
cblas_cswap.c
►
cblas_csymm.c
►
cblas_csyr2k.c
►
cblas_csyrk.c
►
cblas_ctbmv.c
►
cblas_ctbsv.c
►
cblas_ctpmv.c
►
cblas_ctpsv.c
►
cblas_ctrmm.c
►
cblas_ctrmv.c
►
cblas_ctrsm.c
►
cblas_ctrsv.c
►
cblas_dasum.c
►
cblas_daxpy.c
►
cblas_dcabs1.c
►
cblas_dcopy.c
►
cblas_ddot.c
►
cblas_dgbmv.c
►
cblas_dgemm.c
►
cblas_dgemmtr.c
►
cblas_dgemv.c
►
cblas_dger.c
►
cblas_dnrm2.c
►
cblas_drot.c
►
cblas_drotg.c
►
cblas_drotm.c
►
cblas_drotmg.c
►
cblas_dsbmv.c
►
cblas_dscal.c
►
cblas_dsdot.c
►
cblas_dspmv.c
►
cblas_dspr.c
►
cblas_dspr2.c
►
cblas_dswap.c
►
cblas_dsymm.c
►
cblas_dsymv.c
►
cblas_dsyr.c
►
cblas_dsyr2.c
►
cblas_dsyr2k.c
►
cblas_dsyrk.c
►
cblas_dtbmv.c
►
cblas_dtbsv.c
►
cblas_dtpmv.c
►
cblas_dtpsv.c
►
cblas_dtrmm.c
►
cblas_dtrmv.c
►
cblas_dtrsm.c
►
cblas_dtrsv.c
►
cblas_dzasum.c
►
cblas_dznrm2.c
►
cblas_globals.c
►
cblas_icamax.c
►
cblas_idamax.c
►
cblas_isamax.c
►
cblas_izamax.c
►
cblas_sasum.c
►
cblas_saxpy.c
►
cblas_scabs1.c
►
cblas_scasum.c
►
cblas_scnrm2.c
►
cblas_scopy.c
►
cblas_sdot.c
►
cblas_sdsdot.c
►
cblas_sgbmv.c
►
cblas_sgemm.c
►
cblas_sgemmtr.c
►
cblas_sgemv.c
►
cblas_sger.c
►
cblas_snrm2.c
►
cblas_srot.c
►
cblas_srotg.c
►
cblas_srotm.c
►
cblas_srotmg.c
►
cblas_ssbmv.c
►
cblas_sscal.c
►
cblas_sspmv.c
►
cblas_sspr.c
►
cblas_sspr2.c
►
cblas_sswap.c
►
cblas_ssymm.c
►
cblas_ssymv.c
►
cblas_ssyr.c
►
cblas_ssyr2.c
►
cblas_ssyr2k.c
►
cblas_ssyrk.c
►
cblas_stbmv.c
►
cblas_stbsv.c
►
cblas_stpmv.c
►
cblas_stpsv.c
►
cblas_strmm.c
►
cblas_strmv.c
►
cblas_strsm.c
►
cblas_strsv.c
►
cblas_xerbla.c
►
cblas_zaxpy.c
►
cblas_zcopy.c
►
cblas_zdotc_sub.c
►
cblas_zdotu_sub.c
►
cblas_zdrot.c
►
cblas_zdscal.c
►
cblas_zgbmv.c
►
cblas_zgemm.c
►
cblas_zgemmtr.c
►
cblas_zgemv.c
►
cblas_zgerc.c
►
cblas_zgeru.c
►
cblas_zhbmv.c
►
cblas_zhemm.c
►
cblas_zhemv.c
►
cblas_zher.c
►
cblas_zher2.c
►
cblas_zher2k.c
►
cblas_zherk.c
►
cblas_zhpmv.c
►
cblas_zhpr.c
►
cblas_zhpr2.c
►
cblas_zrotg.c
►
cblas_zscal.c
►
cblas_zswap.c
►
cblas_zsymm.c
►
cblas_zsyr2k.c
►
cblas_zsyrk.c
►
cblas_ztbmv.c
►
cblas_ztbsv.c
►
cblas_ztpmv.c
►
cblas_ztpsv.c
►
cblas_ztrmm.c
►
cblas_ztrmv.c
►
cblas_ztrsm.c
►
cblas_ztrsv.c
►
cdotcsub.f
►
cdotusub.f
►
dasumsub.f
►
dcabs1sub.f
►
ddotsub.f
►
dnrm2sub.f
►
dsdotsub.f
►
dzasumsub.f
►
dznrm2sub.f
►
icamaxsub.f
►
idamaxsub.f
►
isamaxsub.f
►
izamaxsub.f
►
sasumsub.f
►
scabs1sub.f
►
scasumsub.f
►
scnrm2sub.f
►
sdotsub.f
►
sdsdotsub.f
►
snrm2sub.f
►
xerbla.c
►
zdotcsub.f
►
zdotusub.f
►
testing
DOCS
►
INSTALL
►
SRC
►
TESTING
►
File Members
•
All
Classes
Namespaces
Files
Functions
Variables
Typedefs
Enumerations
Enumerator
Macros
Modules
Pages
Loading...
Searching...
No Matches
cblas_xerbla.c
Go to the documentation of this file.
1
#include <stdio.h>
2
#include <stdlib.h>
3
#include <string.h>
4
#include <stdarg.h>
5
#include "
cblas.h
"
6
#include "
cblas_f77.h
"
7
8
void
9
#ifdef HAS_ATTRIBUTE_WEAK_SUPPORT
10
__attribute__((weak))
11
#endif
12
API_SUFFIX
(
cblas_xerbla
)(
CBLAS_INT
info,
const
char
*rout,
const
char
*form, ...)
13
{
14
extern
int
RowMajorStrg
;
15
char
empty[1] =
""
;
16
va_list argptr;
17
18
va_start(argptr, form);
19
20
if
(
RowMajorStrg
)
21
{
22
if
(strstr(rout,
"gemm"
) != 0)
23
{
24
if
(info == 5 ) info = 4;
25
else
if
(info == 4 ) info = 5;
26
else
if
(info == 11) info = 9;
27
else
if
(info == 9 ) info = 11;
28
}
29
else
if
(strstr(rout,
"symm"
) != 0 || strstr(rout,
"hemm"
) != 0)
30
{
31
if
(info == 5 ) info = 4;
32
else
if
(info == 4 ) info = 5;
33
}
34
else
if
(strstr(rout,
"trmm"
) != 0 || strstr(rout,
"trsm"
) != 0)
35
{
36
if
(info == 7 ) info = 6;
37
else
if
(info == 6 ) info = 7;
38
}
39
else
if
(strstr(rout,
"gemv"
) != 0)
40
{
41
if
(info == 4) info = 3;
42
else
if
(info == 3) info = 4;
43
}
44
else
if
(strstr(rout,
"gbmv"
) != 0)
45
{
46
if
(info == 4) info = 3;
47
else
if
(info == 3) info = 4;
48
else
if
(info == 6) info = 5;
49
else
if
(info == 5) info = 6;
50
}
51
else
if
(strstr(rout,
"ger"
) != 0)
52
{
53
if
(info == 3) info = 2;
54
else
if
(info == 2) info = 3;
55
else
if
(info == 8) info = 6;
56
else
if
(info == 6) info = 8;
57
}
58
else
if
( (strstr(rout,
"her2"
) != 0 || strstr(rout,
"hpr2"
) != 0)
59
&& strstr(rout,
"her2k"
) == 0 )
60
{
61
if
(info == 8) info = 6;
62
else
if
(info == 6) info = 8;
63
}
64
}
65
if
(info)
66
fprintf(stderr,
"Parameter %"
CBLAS_IFMT
" to routine %s was incorrect\n"
, info, rout);
67
vfprintf(stderr, form, argptr);
68
va_end(argptr);
69
if
(info && !info)
70
F77_xerbla
(empty, &info);
/* Force link of our F77 error handler */
71
exit(-1);
72
}
12
API_SUFFIX
(
cblas_xerbla
)(
CBLAS_INT
info,
const
char
*rout,
const
char
*form, ...) {
…
}
CBLAS_IFMT
#define CBLAS_IFMT
Definition
cblas.h:35
API_SUFFIX
#define API_SUFFIX(a)
Definition
cblas.h:57
CBLAS_INT
#define CBLAS_INT
Definition
cblas.h:24
cblas.h
F77_xerbla
#define F77_xerbla(...)
Definition
cblas_f77.h:578
cblas_f77.h
RowMajorStrg
int RowMajorStrg
Definition
cblas_globals.c:2
cblas_xerbla
void API_SUFFIX cblas_xerbla(CBLAS_INT info, const char *rout, const char *form,...)
Definition
cblas_xerbla.c:12
CBLAS
src
cblas_xerbla.c
Generated on Mon Jan 20 2025 17:18:06 for LAPACK by
1.11.0