Applying patch provided by Julien Schueller (Phimeca) on March 20th 2015 via Lapack...

diff --git a/LAPACKE/example/example_DGELS_colmajor.c b/LAPACKE/example/example_DGELS_colmajor.c
index 7b0064c..5d902ed 100644 (file)
--- a/LAPACKE/example/example_DGELS_colmajor.c
+++ b/LAPACKE/example/example_DGELS_colmajor.c
@@ -66,10 +66,9 @@
 int main (int argc, const char * argv[])
 {
    /* Locals */
-   double A[5][3] = {1,2,3,4,5,1,3,5,2,4,1,4,2,5,3};
-   double b[5][2] = {-10,12,14,16,18,-3,14,12,16,16};
+   double A[5][3] = {{1,2,3},{4,5,1},{3,5,2},{4,1,4},{2,5,3}};
+   double b[5][2] = {{-10,12},{14,16},{18,-3},{14,12},{16,16}};
    lapack_int info,m,n,lda,ldb,nrhs;
-   int i,j;
 
    /* Initialization */
    m = 5;
@@ -92,5 +91,5 @@ int main (int argc, const char * argv[])
    /* Print Solution */
    print_matrix_colmajor( "Solution", n, nrhs, *b, ldb );
    printf( "\n" );
-   exit( 0 );
+   exit( info );
 } /* End of LAPACKE_dgels Example */

diff --git a/LAPACKE/example/example_DGESV_colmajor.c b/LAPACKE/example/example_DGESV_colmajor.c
index be0432c..6583740 100644 (file)
--- a/LAPACKE/example/example_DGESV_colmajor.c
+++ b/LAPACKE/example/example_DGESV_colmajor.c
@@ -44,9 +44,8 @@ int main(int argc, char **argv) {
         /* Locals */
         lapack_int n, nrhs, lda, ldb, info;
                int i, j;
-               double normr, normb;
         /* Local arrays */
-               double *A, *b, *Acopy, *bcopy;
+               double *A, *b;
                lapack_int *ipiv;
                
         /* Default Value */

diff --git a/LAPACKE/example/example_DGESV_rowmajor.c b/LAPACKE/example/example_DGESV_rowmajor.c
index 4406733..5144237 100644 (file)
--- a/LAPACKE/example/example_DGESV_rowmajor.c
+++ b/LAPACKE/example/example_DGESV_rowmajor.c
@@ -43,9 +43,8 @@ int main(int argc, char **argv) {
         /* Locals */
         lapack_int n, nrhs, lda, ldb, info;
                int i, j;
-               double normr, normb;
         /* Local arrays */
-               double *A, *b, *Acopy, *bcopy;
+               double *A, *b;
                lapack_int *ipiv;
                
         /* Default Value */

diff --git a/LAPACKE/src/lapacke_ctpmqrt_work.c b/LAPACKE/src/lapacke_ctpmqrt_work.c
index 4a69f51..cbf62d8 100644 (file)
--- a/LAPACKE/src/lapacke_ctpmqrt_work.c
+++ b/LAPACKE/src/lapacke_ctpmqrt_work.c
@@ -51,7 +51,6 @@ lapack_int LAPACKE_ctpmqrt_work( int matrix_layout, char side, char trans,
             info = info - 1;
         }
     } else if( matrix_layout == LAPACK_ROW_MAJOR ) {
-        lapack_int r = LAPACKE_lsame( side, 'r' ) ? k : k;
         lapack_int lda_t = MAX(1,k);
         lapack_int ldb_t = MAX(1,m);
         lapack_int ldt_t = MAX(1,ldt);

diff --git a/LAPACKE/src/lapacke_ctprfb_work.c b/LAPACKE/src/lapacke_ctprfb_work.c
index 8ae2d34..3c4b5c9 100644 (file)
--- a/LAPACKE/src/lapacke_ctprfb_work.c
+++ b/LAPACKE/src/lapacke_ctprfb_work.c
@@ -51,7 +51,6 @@ lapack_int LAPACKE_ctprfb_work( int matrix_layout, char side, char trans,
             info = info - 1;
         }
     } else if( matrix_layout == LAPACK_ROW_MAJOR ) {
-        lapack_int r = LAPACKE_lsame( side, 'r' ) ? k : k;
         lapack_int lda_t = MAX(1,k);
         lapack_int ldb_t = MAX(1,m);
         lapack_int ldt_t = MAX(1,ldt);

diff --git a/LAPACKE/src/lapacke_dlamch_work.c b/LAPACKE/src/lapacke_dlamch_work.c
index d2d7f86..1af4605 100644 (file)
--- a/LAPACKE/src/lapacke_dlamch_work.c
+++ b/LAPACKE/src/lapacke_dlamch_work.c
@@ -35,8 +35,7 @@
 
 double LAPACKE_dlamch_work( char cmach )
 {
-    lapack_int info = 0;
-       double res;
+    double res;
     /* Call LAPACK function and adjust info */
     res = LAPACK_dlamch( &cmach );
     return res;

diff --git a/LAPACKE/src/lapacke_dtpmqrt_work.c b/LAPACKE/src/lapacke_dtpmqrt_work.c
index 6912c79..ed7db69 100644 (file)
--- a/LAPACKE/src/lapacke_dtpmqrt_work.c
+++ b/LAPACKE/src/lapacke_dtpmqrt_work.c
@@ -49,7 +49,6 @@ lapack_int LAPACKE_dtpmqrt_work( int matrix_layout, char side, char trans,
             info = info - 1;
         }
     } else if( matrix_layout == LAPACK_ROW_MAJOR ) {
-        lapack_int r = LAPACKE_lsame( side, 'r' ) ? k : k;
         lapack_int lda_t = MAX(1,k);
         lapack_int ldb_t = MAX(1,m);
         lapack_int ldt_t = MAX(1,ldt);

diff --git a/LAPACKE/src/lapacke_dtprfb_work.c b/LAPACKE/src/lapacke_dtprfb_work.c
index 29fbfc4..bbcde1c 100644 (file)
--- a/LAPACKE/src/lapacke_dtprfb_work.c
+++ b/LAPACKE/src/lapacke_dtprfb_work.c
@@ -50,7 +50,6 @@ lapack_int LAPACKE_dtprfb_work( int matrix_layout, char side, char trans,
             info = info - 1;
         }
     } else if( matrix_layout == LAPACK_ROW_MAJOR ) {
-        lapack_int r = LAPACKE_lsame( side, 'r' ) ? k : k;
         lapack_int lda_t = MAX(1,k);
         lapack_int ldb_t = MAX(1,m);
         lapack_int ldt_t = MAX(1,ldt);

diff --git a/LAPACKE/src/lapacke_slamch_work.c b/LAPACKE/src/lapacke_slamch_work.c
index ab4767a..0332a19 100644 (file)
--- a/LAPACKE/src/lapacke_slamch_work.c
+++ b/LAPACKE/src/lapacke_slamch_work.c
@@ -35,8 +35,7 @@
 
 float LAPACKE_slamch_work( char cmach )
 {
-    lapack_int info = 0;
-       float res;
+    float res;
     /* Call LAPACK function and adjust info */
     res = LAPACK_slamch( &cmach );
     return res;

diff --git a/LAPACKE/src/lapacke_stpmqrt_work.c b/LAPACKE/src/lapacke_stpmqrt_work.c
index 1bf2f02..ade43f4 100644 (file)
--- a/LAPACKE/src/lapacke_stpmqrt_work.c
+++ b/LAPACKE/src/lapacke_stpmqrt_work.c
@@ -49,7 +49,6 @@ lapack_int LAPACKE_stpmqrt_work( int matrix_layout, char side, char trans,
             info = info - 1;
         }
     } else if( matrix_layout == LAPACK_ROW_MAJOR ) {
-        lapack_int r = LAPACKE_lsame( side, 'r' ) ? k : k;
         lapack_int lda_t = MAX(1,k);
         lapack_int ldb_t = MAX(1,m);
         lapack_int ldt_t = MAX(1,ldt);

diff --git a/LAPACKE/src/lapacke_stprfb_work.c b/LAPACKE/src/lapacke_stprfb_work.c
index b03a572..0bcb22f 100644 (file)
--- a/LAPACKE/src/lapacke_stprfb_work.c
+++ b/LAPACKE/src/lapacke_stprfb_work.c
@@ -50,7 +50,6 @@ lapack_int LAPACKE_stprfb_work( int matrix_layout, char side, char trans,
             info = info - 1;
         }
     } else if( matrix_layout == LAPACK_ROW_MAJOR ) {
-        lapack_int r = LAPACKE_lsame( side, 'r' ) ? k : k;
         lapack_int lda_t = MAX(1,k);
         lapack_int ldb_t = MAX(1,m);
         lapack_int ldt_t = MAX(1,ldt);

diff --git a/LAPACKE/src/lapacke_ztpmqrt_work.c b/LAPACKE/src/lapacke_ztpmqrt_work.c
index fa4cd34..ef16e35 100644 (file)
--- a/LAPACKE/src/lapacke_ztpmqrt_work.c
+++ b/LAPACKE/src/lapacke_ztpmqrt_work.c
@@ -51,7 +51,6 @@ lapack_int LAPACKE_ztpmqrt_work( int matrix_layout, char side, char trans,
             info = info - 1;
         }
     } else if( matrix_layout == LAPACK_ROW_MAJOR ) {
-        lapack_int r = LAPACKE_lsame( side, 'r' ) ? k : k;
         lapack_int lda_t = MAX(1,k);
         lapack_int ldb_t = MAX(1,m);
         lapack_int ldt_t = MAX(1,ldt);

diff --git a/LAPACKE/src/lapacke_ztprfb_work.c b/LAPACKE/src/lapacke_ztprfb_work.c
index 7d2282d..946c3dd 100644 (file)
--- a/LAPACKE/src/lapacke_ztprfb_work.c
+++ b/LAPACKE/src/lapacke_ztprfb_work.c
@@ -51,7 +51,6 @@ lapack_int LAPACKE_ztprfb_work( int matrix_layout, char side, char trans,
             info = info - 1;
         }
     } else if( matrix_layout == LAPACK_ROW_MAJOR ) {
-        lapack_int r = LAPACKE_lsame( side, 'r' ) ? k : k;
         lapack_int lda_t = MAX(1,k);
         lapack_int ldb_t = MAX(1,m);
         lapack_int ldt_t = MAX(1,ldt);