LAPACK  3.5.0
LAPACK: Linear Algebra PACKage
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