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 7b0064c6039fcb4cc43418c612f2714b3003b13d..5d902edd682865df4f998444ca4d667d3313a3a5 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 be0432c0c5964ccc0705f13eba58c5f9e58390c8..658374050560d21f9d8c67241d3931acd3494945 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 4406733ac3d40e0770ddfd068ac537bb428401f4..514423779d141cfd0530f4cca2373331aef9c38c 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 4a69f5191572d1616697cb6587fd76d6ba75d69d..cbf62d8ee0704424254693d8548e119c47fccd79 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 8ae2d34f1ed79078cabfc0ec79c97130d35b67be..3c4b5c9e78a2bec307ed6d6c97b22d352baf442e 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 d2d7f86f2ce022d951898b8ceb27fab633dbd094..1af46054e5eaaa17721631a81940c59db0f3bb4f 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 6912c7960b0f3bf6ec27c5f8ea80a1500bc11941..ed7db6919d2cd064dc0675d6e85f87585fe33168 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 29fbfc4dc7fa422d594865621d5af2017376ae15..bbcde1c7d0ae9ebb4ee725d39302ebe581bb8d16 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 ab4767a80ad24e3a6513c0682dbcd05cc63f28e9..0332a1907541137ebc54a24c3d1944ba484819d5 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 1bf2f02b93227cbd6ba7ead473148a5698285e8f..ade43f4ab26b60f536e3fd74fe966cb051d265a0 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 b03a572828526a4dbe114eaa889b683ea60b24f1..0bcb22f3cb70925ea1dda531b197ad7e9c3e427e 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 fa4cd34618d825967972b930ebb31bbeb9e5c3f1..ef16e3542ec0d5bc5fa4a85e04791ee09b2064a4 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 7d2282dff062d53f89893afc178cfdc72007609a..946c3dde7f71105659ad937157c7207697854589 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);