LAPACK
3.5.0
LAPACK: Linear Algebra PACKage
Main Page
Data Types List
Files
File List
File Members
All
Classes
Files
Functions
Variables
Typedefs
Macros
xerbla-c
Go to the documentation of this file.
1
#!/bin/sh
2
set
-ue
3
cd $ADTTMP
4
5
cat << EOF > tmp.c
6
#include <stdio.h>
7
#include <
lapacke.h
>
8
void
LAPACKE_xerbla
(
const
char
*name,
lapack_int
info )
9
{
10
if
( info < 0 ) {
11
printf(
"OVERRIDE SUCCESSFUL override %d in %s\n"
, -(
int
) info, name );
12
}
13
}
14
15
16
int
main
(
int
argc,
const
char
* argv[])
17
{
18
double
a[5][3] = {1,1,1,2,3,4,3,5,2,4,2,5,5,4,3};
19
double
b
[5][2] = {-10,-3,12,14,14,12,16,16,18,16};
20
lapack_int
info,m,n,lda,ldb,nrhs;
21
int
i,
j
;
22
23
m = 5;
24
n = 9;
25
nrhs = 2;
26
lda = 3;
27
ldb = 2;
28
29
info =
LAPACKE_dgels
(
LAPACK_ROW_MAJOR
,
'N'
,m,n,nrhs,*a,lda,*b,ldb);
30
return
(info);
31
}
32
EOF
33
gcc tmp.c -llapacke
34
./a.out 2>&1 | grep
"OVERRIDE SUCCESSFUL"
35
debian
tests
xerbla-c
Generated on Mon Dec 30 2013 16:09:13 for LAPACK by
1.8.1.2