LAPACK  3.5.0
LAPACK: Linear Algebra PACKage
 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 
lapack_int LAPACKE_dgels(int matrix_order, char trans, lapack_int m, lapack_int n, lapack_int nrhs, double *a, lapack_int lda, double *b, lapack_int ldb)
Definition: lapacke_dgels.c:36
debian since it interferes with the way the OPTS variable must be set
Definition: changelog:375
set ue cd $ADTTMP cat<< EOF > tmp f Program LinearEquations Implicit none Real b(3) integer i
#define LAPACK_ROW_MAJOR
Definition: lapacke.h:119
set ue cd $ADTTMP cat<< EOF > tmp f Program LinearEquations Implicit none Real j
Definition: xerbla-fortran:9
int main(int argc, const char *argv[])
Definition: xerbla-c:16
set ue cd $ADTTMP cat<< EOF > tmp c void LAPACKE_xerbla(const char *name, lapack_int info)
Definition: xerbla-c:8
#define lapack_int
Definition: lapacke.h:47