Remove tabs and trailing spaces (git diff -w prints nothing)

diff --git a/LAPACKE/include/lapacke.h b/LAPACKE/include/lapacke.h
index cacdef9..c3afa20 100644 (file)
--- a/LAPACKE/include/lapacke.h
+++ b/LAPACKE/include/lapacke.h
@@ -5759,35 +5759,35 @@ lapack_int LAPACKE_zgesvd_work( int matrix_layout, char jobu, char jobvt,
                                 lapack_int lwork, double* rwork );
 
 lapack_int LAPACKE_sgesvdx_work( int matrix_layout, char jobu, char jobvt, char range,
-                                       lapack_int m, lapack_int n, float* a,
-                                       lapack_int lda, float vl, float vu,
-                                       lapack_int il, lapack_int iu, lapack_int* ns,
-                                       float* s, float* u, lapack_int ldu,
-                                       float* vt, lapack_int ldvt,
-                                float* work, lapack_int lwork, lapack_int* iwork );
+                                 lapack_int m, lapack_int n, float* a,
+                                 lapack_int lda, float vl, float vu,
+                                 lapack_int il, lapack_int iu, lapack_int* ns,
+                                 float* s, float* u, lapack_int ldu,
+                                 float* vt, lapack_int ldvt,
+                                 float* work, lapack_int lwork, lapack_int* iwork );
 lapack_int LAPACKE_dgesvdx_work( int matrix_layout, char jobu, char jobvt, char range,
-                                       lapack_int m, lapack_int n, double* a,
-                                       lapack_int lda, double vl, double vu,
-                                       lapack_int il, lapack_int iu, lapack_int* ns,
-                                       double* s, double* u, lapack_int ldu,
-                                       double* vt, lapack_int ldvt,
-                                double* work, lapack_int lwork, lapack_int* iwork );
+                                 lapack_int m, lapack_int n, double* a,
+                                 lapack_int lda, double vl, double vu,
+                                 lapack_int il, lapack_int iu, lapack_int* ns,
+                                 double* s, double* u, lapack_int ldu,
+                                 double* vt, lapack_int ldvt,
+                                 double* work, lapack_int lwork, lapack_int* iwork );
 lapack_int LAPACKE_cgesvdx_work( int matrix_layout, char jobu, char jobvt, char range,
-                                       lapack_int m, lapack_int n, lapack_complex_float* a,
-                                       lapack_int lda, float vl, float vu,
-                                       lapack_int il, lapack_int iu, lapack_int* ns,
-                                       float* s, lapack_complex_float* u, lapack_int ldu,
-                                       lapack_complex_float* vt, lapack_int ldvt,
-                                lapack_complex_float* work, lapack_int lwork,
-                                float* rwork, lapack_int* iwork );
+                                 lapack_int m, lapack_int n, lapack_complex_float* a,
+                                 lapack_int lda, float vl, float vu,
+                                 lapack_int il, lapack_int iu, lapack_int* ns,
+                                 float* s, lapack_complex_float* u, lapack_int ldu,
+                                 lapack_complex_float* vt, lapack_int ldvt,
+                                 lapack_complex_float* work, lapack_int lwork,
+                                 float* rwork, lapack_int* iwork );
 lapack_int LAPACKE_zgesvdx_work( int matrix_layout, char jobu, char jobvt, char range,
-                                       lapack_int m, lapack_int n, lapack_complex_double* a,
-                                       lapack_int lda, double vl, double vu,
-                                       lapack_int il, lapack_int iu, lapack_int* ns,
-                                       double* s, lapack_complex_double* u, lapack_int ldu,
-                                       lapack_complex_double* vt, lapack_int ldvt,
-                                lapack_complex_double* work, lapack_int lwork,
-                                double* rwork, lapack_int* iwork );
+                                 lapack_int m, lapack_int n, lapack_complex_double* a,
+                                 lapack_int lda, double vl, double vu,
+                                 lapack_int il, lapack_int iu, lapack_int* ns,
+                                 double* s, lapack_complex_double* u, lapack_int ldu,
+                                 lapack_complex_double* vt, lapack_int ldvt,
+                                 lapack_complex_double* work, lapack_int lwork,
+                                 double* rwork, lapack_int* iwork );
 
 lapack_int LAPACKE_sgesvj_work( int matrix_layout, char joba, char jobu,
                                 char jobv, lapack_int m, lapack_int n, float* a,
@@ -5804,7 +5804,7 @@ lapack_int LAPACKE_cgesvj_work( int matrix_layout, char joba, char jobu,
                                 lapack_int lda, float* sva, lapack_int mv,
                                 lapack_complex_float* v, lapack_int ldv,
                                 lapack_complex_float* cwork, lapack_int lwork,
-                                                               float* rwork,lapack_int lrwork );
+                                float* rwork,lapack_int lrwork );
 lapack_int LAPACKE_zgesvj_work( int matrix_layout, char joba, char jobu,
                                 char jobv, lapack_int m, lapack_int n,
                                 lapack_complex_double* a, lapack_int lda, double* sva,
@@ -11619,7 +11619,7 @@ lapack_int LAPACKE_zhesv_rk_work( int matrix_layout, char uplo, lapack_int n,
                                lapack_int lda, lapack_complex_double* e, lapack_int* ipiv,
                                lapack_complex_double* b, lapack_int ldb,
                                lapack_complex_double* work, lapack_int lwork );
-                               
+
 lapack_int LAPACKE_ssytrf_rk( int matrix_layout, char uplo, lapack_int n, float* a,
                            lapack_int lda, float* e, lapack_int* ipiv );
 lapack_int LAPACKE_dsytrf_rk( int matrix_layout, char uplo, lapack_int n, double* a,
@@ -11773,12 +11773,12 @@ lapack_int LAPACKE_csycon_3( int matrix_layout, char uplo, lapack_int n,
                            const lapack_int* ipiv, float anorm, float* rcond );
 lapack_int LAPACKE_zsycon_3( int matrix_layout, char uplo, lapack_int n,
                            const lapack_complex_double* a, lapack_int lda,
-                           const lapack_complex_double* e, 
+                           const lapack_complex_double* e,
                            const lapack_int* ipiv, double anorm,
                            double* rcond );
 lapack_int LAPACKE_checon_3( int matrix_layout, char uplo, lapack_int n,
                            const lapack_complex_float* a, lapack_int lda,
-                           const lapack_complex_float* e, 
+                           const lapack_complex_float* e,
                            const lapack_int* ipiv, float anorm, float* rcond );
 lapack_int LAPACKE_zhecon_3( int matrix_layout, char uplo, lapack_int n,
                            const lapack_complex_double* a, lapack_int lda,
@@ -11803,7 +11803,7 @@ lapack_int LAPACKE_zsycon_3_work( int matrix_layout, char uplo, lapack_int n,
                                 const lapack_complex_double* a, lapack_int lda,
                                 const lapack_complex_double* e,
                                 const lapack_int* ipiv, double anorm,
-                                double* rcond, lapack_complex_double* work );                                               
+                                double* rcond, lapack_complex_double* work );
 lapack_int LAPACKE_checon_3_work( int matrix_layout, char uplo, lapack_int n,
                                 const lapack_complex_float* a, lapack_int lda,
                                 const lapack_complex_float* e,
@@ -18758,7 +18758,7 @@ void LAPACK_zhetrs_3( char* uplo, lapack_int* n,
                      const lapack_int* ipiv,
                      lapack_complex_double* b, lapack_int* ldb,  lapack_int *info );
 
-void LAPACK_ssytri_3( char* uplo, lapack_int* n, float* a, lapack_int* lda, const float* e, 
+void LAPACK_ssytri_3( char* uplo, lapack_int* n, float* a, lapack_int* lda, const float* e,
                     const lapack_int* ipiv, float* work, lapack_int* lwork, lapack_int *info );
 void LAPACK_dsytri_3( char* uplo, lapack_int* n, double* a, lapack_int* lda, const double* e,
                     const lapack_int* ipiv, double* work, lapack_int* lwork, lapack_int *info );
@@ -18775,7 +18775,7 @@ void LAPACK_zhetri_3( char* uplo, lapack_int* n, lapack_complex_double* a,
                     lapack_int* lda, const lapack_complex_double* e, const lapack_int* ipiv,
                     lapack_complex_double* work, lapack_int* lwork, lapack_int *info );
 
-void LAPACK_ssycon_3( char* uplo, lapack_int* n, const float* a, lapack_int* lda, const float* e, 
+void LAPACK_ssycon_3( char* uplo, lapack_int* n, const float* a, lapack_int* lda, const float* e,
                     const lapack_int* ipiv, float* anorm, float* rcond,
                     float* work, lapack_int* iwork, lapack_int *info );
 void LAPACK_dsycon_3( char* uplo, lapack_int* n, const double* a, lapack_int* lda, const double* e,

diff --git a/LAPACKE/src/lapacke_cgejsv.c b/LAPACKE/src/lapacke_cgejsv.c
index fbf8d11..85d31bb 100644 (file)
--- a/LAPACKE/src/lapacke_cgejsv.c
+++ b/LAPACKE/src/lapacke_cgejsv.c
@@ -41,22 +41,22 @@ lapack_int LAPACKE_cgejsv( int matrix_layout, char joba, char jobu, char jobv,
 {
     lapack_int info = 0;
     lapack_int lwork = (
-                       // 1.1
-       (            LAPACKE_lsame( jobu, 'n' ) &&  LAPACKE_lsame( jobv, 'n' ) &&
+                // 1.1
+        (        LAPACKE_lsame( jobu, 'n' ) &&  LAPACKE_lsame( jobv, 'n' ) &&
                ( LAPACKE_lsame( jobt, 't' ) ||  LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) )) ? 2*n+1 :
 
                 //1.2
-     (   (        LAPACKE_lsame( jobu, 'n' ) &&  LAPACKE_lsame( jobv, 'n' ) &&
+     (   (       LAPACKE_lsame( jobu, 'n' ) &&  LAPACKE_lsame( jobv, 'n' ) &&
               !( LAPACKE_lsame( jobt, 't' ) ||  LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) )) ? n*n+3*n :
 
                 //2.1
-    (  (          ( LAPACKE_lsame( jobv, 'v' ) ||  LAPACKE_lsame( jobv, 'j' ) )  &&
-              !( LAPACKE_lsame( jobu, 'u' ) ||  LAPACKE_lsame( jobu, 'f' ) ) &&
+    (   (      ( LAPACKE_lsame( jobv, 'v' ) ||  LAPACKE_lsame( jobv, 'j' ) )  &&
+              !( LAPACKE_lsame( jobu, 'u') ||  LAPACKE_lsame( jobu, 'f' ) )&&
                ( LAPACKE_lsame( jobt, 't' ) ||  LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) ))? 3*n :
 
 
                 //2.2
-    (  (          ( LAPACKE_lsame( jobv, 'v' ) ||  LAPACKE_lsame( jobv, 'j' ) )  &&
+    (   (      ( LAPACKE_lsame( jobv, 'v' ) ||  LAPACKE_lsame( jobv, 'j' ) )  &&
               !( LAPACKE_lsame( jobu, 'u' ) ||  LAPACKE_lsame( jobu, 'f' ) ) &&
               !( LAPACKE_lsame( jobt, 't' ) ||  LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) ))? 3*n :
 
@@ -81,8 +81,8 @@ lapack_int LAPACKE_cgejsv( int matrix_layout, char joba, char jobu, char jobv,
                ( LAPACKE_lsame( jobt, 't' ) ||  LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) ))? 4*n*n:
                        1) ) ) ) ) ) ) );
     lapack_int lrwork = (
-                       // 1.1
-       (            LAPACKE_lsame( jobu, 'n' ) &&  LAPACKE_lsame( jobv, 'n' ) &&
+                // 1.1
+        (        LAPACKE_lsame( jobu, 'n' ) &&  LAPACKE_lsame( jobv, 'n' ) &&
                ( LAPACKE_lsame( jobt, 't' ) ||  LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) )) ? MAX(7,n+2*m) :
 
                 //1.2
@@ -90,13 +90,13 @@ lapack_int LAPACKE_cgejsv( int matrix_layout, char joba, char jobu, char jobv,
               !( LAPACKE_lsame( jobt, 't' ) ||  LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) )) ? MAX(7,2*n) :
 
                 //2.1
-    (  (          ( LAPACKE_lsame( jobv, 'v' ) ||  LAPACKE_lsame( jobv, 'j' ) )  &&
-              !( LAPACKE_lsame( jobu, 'u' ) ||  LAPACKE_lsame( jobu, 'f' ) ) &&
+    (   (      ( LAPACKE_lsame( jobv, 'v' ) ||  LAPACKE_lsame( jobv, 'j' ) )  &&
+              !( LAPACKE_lsame( jobu, 'u') ||  LAPACKE_lsame( jobu, 'f' ) ) &&
                ( LAPACKE_lsame( jobt, 't' ) ||  LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) ))? MAX( 7, n+ 2*m ) :
 
 
                 //2.2
-    (  (          ( LAPACKE_lsame( jobv, 'v' ) ||  LAPACKE_lsame( jobv, 'j' ) )  &&
+    (   (      ( LAPACKE_lsame( jobv, 'v' ) ||  LAPACKE_lsame( jobv, 'j' ) )  &&
               !( LAPACKE_lsame( jobu, 'u' ) ||  LAPACKE_lsame( jobu, 'f' ) ) &&
               !( LAPACKE_lsame( jobt, 't' ) ||  LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) ))? MAX(7,2*n) :
 
@@ -119,7 +119,7 @@ lapack_int LAPACKE_cgejsv( int matrix_layout, char joba, char jobu, char jobv,
      (  (       ( LAPACKE_lsame( jobu, 'u' ) ||  LAPACKE_lsame( jobu, 'f' ) ) &&
                ( LAPACKE_lsame( jobv, 'v' ) ||  LAPACKE_lsame( jobv, 'j' ) ) &&
                ( LAPACKE_lsame( jobt, 't' ) ||  LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) ))? MAX(7,2*n) :
-                       7 ))))))));
+                       7) ) ) ) ) ) ) );
     lapack_int* iwork = NULL;
     float* rwork = NULL;
     lapack_complex_float* cwork = NULL;

diff --git a/LAPACKE/src/lapacke_cgesvdx.c b/LAPACKE/src/lapacke_cgesvdx.c
index 6882a8b..90abe7a 100644 (file)
--- a/LAPACKE/src/lapacke_cgesvdx.c
+++ b/LAPACKE/src/lapacke_cgesvdx.c
@@ -61,7 +61,7 @@ lapack_int LAPACKE_cgesvdx( int matrix_layout, char jobu, char jobvt, char range
 #endif
     /* Query optimal working array(s) size */
     info = LAPACKE_cgesvdx_work( matrix_layout, jobu, jobvt, range,
-                                                        m, n, a, lda, vl, vu, il, iu, ns, s, u,
+                                 m, n, a, lda, vl, vu, il, iu, ns, s, u,
                                  ldu, vt, ldvt, &work_query, lwork, rwork, iwork );
     if( info != 0 ) {
         goto exit_level_0;
@@ -69,7 +69,7 @@ lapack_int LAPACKE_cgesvdx( int matrix_layout, char jobu, char jobvt, char range
     lwork = LAPACK_C2INT (work_query);
     /* Allocate memory for work arrays */
     work = (lapack_complex_float*)
-       LAPACKE_malloc( sizeof(lapack_complex_float) * lwork );
+        LAPACKE_malloc( sizeof(lapack_complex_float) * lwork );
     if( work == NULL ) {
         info = LAPACK_WORK_MEMORY_ERROR;
         goto exit_level_1;
@@ -86,8 +86,8 @@ lapack_int LAPACKE_cgesvdx( int matrix_layout, char jobu, char jobvt, char range
     }
     /* Call middle-level interface */
     info = LAPACKE_cgesvdx_work( matrix_layout, jobu, jobvt,  range,
-                                                        m, n, a, lda, vl, vu, il, iu, ns, s, u,
-                                ldu, vt, ldvt, work, lwork, rwork, iwork );
+                                 m, n, a, lda, vl, vu, il, iu, ns, s, u,
+                                 ldu, vt, ldvt, work, lwork, rwork, iwork );
     /* Backup significant data from working array(s) */
     for( i=0; i<12*MIN(m,n)-1; i++ ) {
         superb[i] = iwork[i+1];

diff --git a/LAPACKE/src/lapacke_cgesvdx_work.c b/LAPACKE/src/lapacke_cgesvdx_work.c
index a5955ef..ddbc0a5 100644 (file)
--- a/LAPACKE/src/lapacke_cgesvdx_work.c
+++ b/LAPACKE/src/lapacke_cgesvdx_work.c
@@ -34,19 +34,19 @@
 #include "lapacke_utils.h"
 
 lapack_int LAPACKE_cgesvdx_work( int matrix_layout, char jobu, char jobvt, char range,
-                                       lapack_int m, lapack_int n, lapack_complex_float* a,
-                                       lapack_int lda, float vl, float vu,
-                                       lapack_int il, lapack_int iu, lapack_int* ns,
-                                       float* s, lapack_complex_float* u, lapack_int ldu,
-                                       lapack_complex_float* vt, lapack_int ldvt,
-                                lapack_complex_float* work, lapack_int lwork,
-                                float* rwork, lapack_int* iwork )
+                                 lapack_int m, lapack_int n, lapack_complex_float* a,
+                                 lapack_int lda, float vl, float vu,
+                                 lapack_int il, lapack_int iu, lapack_int* ns,
+                                 float* s, lapack_complex_float* u, lapack_int ldu,
+                                 lapack_complex_float* vt, lapack_int ldvt,
+                                 lapack_complex_float* work, lapack_int lwork,
+                                 float* rwork, lapack_int* iwork )
 {
     lapack_int info = 0;
     if( matrix_layout == LAPACK_COL_MAJOR ) {
         /* Call LAPACK function and adjust info */
         LAPACK_cgesvdx( &jobu, &jobvt, &range, &m, &n, a, &lda, &vl, &vu,
-                               &il, &iu, ns, s, u, &ldu, vt, &ldvt,
+                        &il, &iu, ns, s, u, &ldu, vt, &ldvt,
                         work, &lwork, rwork, iwork, &info );
         if( info < 0 ) {
             info = info - 1;
@@ -85,7 +85,7 @@ lapack_int LAPACKE_cgesvdx_work( int matrix_layout, char jobu, char jobvt, char
         /* Query optimal working array(s) size if requested */
         if( lwork == -1 ) {
             LAPACK_cgesvdx( &jobu, &jobvt, &range, &m, &n, a, &lda_t, &vl, &vu,
-                                       &il, &iu, ns, s, u, &ldu_t, vt,
+                            &il, &iu, ns, s, u, &ldu_t, vt,
                             &ldvt_t, work, &lwork, rwork, iwork, &info );
             return (info < 0) ? (info - 1) : info;
         }
@@ -116,8 +116,8 @@ lapack_int LAPACKE_cgesvdx_work( int matrix_layout, char jobu, char jobvt, char
         LAPACKE_cge_trans( matrix_layout, m, n, a, lda, a_t, lda_t );
         /* Call LAPACK function and adjust info */
         LAPACK_cgesvdx( &jobu, &jobvt, &range, &m, &n, a_t, &lda_t, &vl, &vu,
-                                       &il, &iu, ns, s, u_t, &ldu_t, vt_t,
-                            &ldvt_t, work, &lwork, rwork, iwork, &info );
+                        &il, &iu, ns, s, u_t, &ldu_t, vt_t,
+                        &ldvt_t, work, &lwork, rwork, iwork, &info );
         if( info < 0 ) {
             info = info - 1;
         }

diff --git a/LAPACKE/src/lapacke_cgesvj_work.c b/LAPACKE/src/lapacke_cgesvj_work.c
index e2bbbfe..138e229 100644 (file)
--- a/LAPACKE/src/lapacke_cgesvj_work.c
+++ b/LAPACKE/src/lapacke_cgesvj_work.c
@@ -76,7 +76,7 @@ lapack_int LAPACKE_cgesvj_work( int matrix_layout, char joba, char jobu,
         }
         if( LAPACKE_lsame( jobv, 'a' ) || LAPACKE_lsame( jobv, 'v' ) ) {
             v_t = (lapack_complex_float*)
-               LAPACKE_malloc( sizeof(lapack_complex_float) * ldv_t * MAX(1,n) );
+                LAPACKE_malloc( sizeof(lapack_complex_float) * ldv_t * MAX(1,n) );
             if( v_t == NULL ) {
                 info = LAPACK_TRANSPOSE_MEMORY_ERROR;
                 goto exit_level_1;

diff --git a/LAPACKE/src/lapacke_cggsvd3.c b/LAPACKE/src/lapacke_cggsvd3.c
index 97995ae..8d0b6a7 100644 (file)
--- a/LAPACKE/src/lapacke_cggsvd3.c
+++ b/LAPACKE/src/lapacke_cggsvd3.c
@@ -45,7 +45,7 @@ lapack_int LAPACKE_cggsvd3( int matrix_layout, char jobu, char jobv, char jobq,
 {
     lapack_int info = 0;
     float* rwork = NULL;
-               lapack_int lwork = -1;
+    lapack_int lwork = -1;
     lapack_complex_float* work = NULL;
     lapack_complex_float work_query;
     if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) {
@@ -65,9 +65,9 @@ lapack_int LAPACKE_cggsvd3( int matrix_layout, char jobu, char jobv, char jobq,
     info = LAPACKE_cggsvd3_work( matrix_layout, jobu, jobv, jobq, m, n, p, k, l,
                                  a, lda, b, ldb, alpha, beta, u, ldu, v, ldv, q,
                                  ldq, &work_query, lwork, rwork, iwork );
-               if( info != 0 )
-                       goto exit_level_0;
-               lwork = LAPACK_C2INT( work_query );
+    if( info != 0 )
+        goto exit_level_0;
+    lwork = LAPACK_C2INT( work_query );
     /* Allocate memory for working array(s) */
     rwork = (float*)LAPACKE_malloc( sizeof(float) * MAX(1,2*n) );
     if( rwork == NULL ) {

diff --git a/LAPACKE/src/lapacke_chbev_2stage_work.c b/LAPACKE/src/lapacke_chbev_2stage_work.c
index 075b853..c3a2cfc 100644 (file)
--- a/LAPACKE/src/lapacke_chbev_2stage_work.c
+++ b/LAPACKE/src/lapacke_chbev_2stage_work.c
@@ -44,7 +44,7 @@ lapack_int LAPACKE_chbev_2stage_work( int matrix_layout, char jobz, char uplo,
     if( matrix_layout == LAPACK_COL_MAJOR ) {
         /* Call LAPACK function and adjust info */
         LAPACK_chbev_2stage( &jobz, &uplo, &n, &kd, ab, &ldab, w, z, &ldz, work, &lwork,
-                                 rwork, &info );
+                             rwork, &info );
         if( info < 0 ) {
             info = info - 1;
         }

diff --git a/LAPACKE/src/lapacke_chetrf_rk_work.c b/LAPACKE/src/lapacke_chetrf_rk_work.c
index 1a7df7c..58dd11c 100644 (file)
--- a/LAPACKE/src/lapacke_chetrf_rk_work.c
+++ b/LAPACKE/src/lapacke_chetrf_rk_work.c
@@ -35,7 +35,7 @@
 
 lapack_int LAPACKE_chetrf_rk_work( int matrix_layout, char uplo, lapack_int n,
                                 lapack_complex_float* a, lapack_int lda,
-                                lapack_complex_float* e, 
+                                lapack_complex_float* e,
                                 lapack_int* ipiv, lapack_complex_float* work,
                                 lapack_int lwork )
 {

diff --git a/LAPACKE/src/lapacke_chetrs_3.c b/LAPACKE/src/lapacke_chetrs_3.c
index 77a5f24..2732f61 100644 (file)
--- a/LAPACKE/src/lapacke_chetrs_3.c
+++ b/LAPACKE/src/lapacke_chetrs_3.c
@@ -56,5 +56,5 @@ lapack_int LAPACKE_chetrs_3( int matrix_layout, char uplo, lapack_int n,
     }
 #endif
     return LAPACKE_chetrs_3_work( matrix_layout, uplo, n, nrhs, a, lda,
-                                                         e, ipiv, b, ldb );
+                                  e, ipiv, b, ldb );
 }

diff --git a/LAPACKE/src/lapacke_csycon_3_work.c b/LAPACKE/src/lapacke_csycon_3_work.c
index ec3a8ae..a0acf1b 100644 (file)
--- a/LAPACKE/src/lapacke_csycon_3_work.c
+++ b/LAPACKE/src/lapacke_csycon_3_work.c
@@ -35,7 +35,7 @@
 
 lapack_int LAPACKE_csycon_3_work( int matrix_layout, char uplo, lapack_int n,
                                 const lapack_complex_float* a, lapack_int lda,
-                                const lapack_complex_float* e, 
+                                const lapack_complex_float* e,
                                 const lapack_int* ipiv, float anorm,
                                 float* rcond, lapack_complex_float* work )
 {

diff --git a/LAPACKE/src/lapacke_dbdsvdx.c b/LAPACKE/src/lapacke_dbdsvdx.c
index f61e11c..099d59f 100644 (file)
--- a/LAPACKE/src/lapacke_dbdsvdx.c
+++ b/LAPACKE/src/lapacke_dbdsvdx.c
@@ -71,8 +71,8 @@ lapack_int LAPACKE_dbdsvdx( int matrix_layout, char uplo, char jobz, char range,
     }
     /* Call middle-level interface */
     info = LAPACKE_dbdsvdx_work( matrix_layout, uplo, jobz,  range,
-                               n, d, e, vl, vu, il, iu, ns, s, z,
-                                ldz, work, iwork);
+                                 n, d, e, vl, vu, il, iu, ns, s, z,
+                                 ldz, work, iwork);
     /* Backup significant data from working array(s) */
     for( i=0; i<12*n-1; i++ ) {
         superb[i] = iwork[i+1];

diff --git a/LAPACKE/src/lapacke_dbdsvdx_work.c b/LAPACKE/src/lapacke_dbdsvdx_work.c
index 90a520f..fdee5cb 100644 (file)
--- a/LAPACKE/src/lapacke_dbdsvdx_work.c
+++ b/LAPACKE/src/lapacke_dbdsvdx_work.c
@@ -34,17 +34,17 @@
 #include "lapacke_utils.h"
 
 lapack_int LAPACKE_dbdsvdx_work( int matrix_layout, char uplo, char jobz, char range,
-                                       lapack_int n, double* d, double* e,
-                                       double vl, double vu,
-                                       lapack_int il, lapack_int iu, lapack_int* ns,
-                                       double* s, double* z, lapack_int ldz,
-                                double* work, lapack_int* iwork )
+                                 lapack_int n, double* d, double* e,
+                                 double vl, double vu,
+                                 lapack_int il, lapack_int iu, lapack_int* ns,
+                                 double* s, double* z, lapack_int ldz,
+                                 double* work, lapack_int* iwork )
 {
     lapack_int info = 0;
     if( matrix_layout == LAPACK_COL_MAJOR ) {
         /* Call LAPACK function and adjust info */
         LAPACK_dbdsvdx( &uplo, &jobz,  &range, &n, d, e, &vl, &vu,
-                               &il, &iu, ns, s, z, &ldz,
+                        &il, &iu, ns, s, z, &ldz,
                         work, iwork, &info );
         if( info < 0 ) {
             info = info - 1;
@@ -72,8 +72,8 @@ lapack_int LAPACKE_dbdsvdx_work( int matrix_layout, char uplo, char jobz, char r
         }
         /* Call LAPACK function and adjust info */
         LAPACK_dbdsvdx( &uplo, &jobz, &range, &n, d, e, &vl, &vu,
-                               &il, &iu, ns, s, z_t, &ldz_t, work,
-                               iwork, &info );
+                        &il, &iu, ns, s, z_t, &ldz_t, work,
+                        iwork, &info );
         if( info < 0 ) {
             info = info - 1;
         }

diff --git a/LAPACKE/src/lapacke_dgesvdx.c b/LAPACKE/src/lapacke_dgesvdx.c
index ca82202..bb0fa9b 100644 (file)
--- a/LAPACKE/src/lapacke_dgesvdx.c
+++ b/LAPACKE/src/lapacke_dgesvdx.c
@@ -59,7 +59,7 @@ lapack_int LAPACKE_dgesvdx( int matrix_layout, char jobu, char jobvt, char range
 #endif
     /* Query optimal working array(s) size */
     info = LAPACKE_dgesvdx_work( matrix_layout, jobu, jobvt, range,
-                                                        m, n, a, lda, vl, vu, il, iu, ns, s, u,
+                                 m, n, a, lda, vl, vu, il, iu, ns, s, u,
                                  ldu, vt, ldvt, &work_query, lwork, iwork );
     if( info != 0 ) {
         goto exit_level_0;
@@ -78,8 +78,8 @@ lapack_int LAPACKE_dgesvdx( int matrix_layout, char jobu, char jobvt, char range
     }
     /* Call middle-level interface */
     info = LAPACKE_dgesvdx_work( matrix_layout, jobu, jobvt,  range,
-                                                        m, n, a, lda, vl, vu, il, iu, ns, s, u,
-                                ldu, vt, ldvt, work, lwork, iwork );
+                                 m, n, a, lda, vl, vu, il, iu, ns, s, u,
+                                 ldu, vt, ldvt, work, lwork, iwork );
     /* Backup significant data from working array(s) */
     for( i=0; i<12*MIN(m,n)-1; i++ ) {
         superb[i] = iwork[i+1];

diff --git a/LAPACKE/src/lapacke_dgesvdx_work.c b/LAPACKE/src/lapacke_dgesvdx_work.c
index a5a2cb6..b326cca 100644 (file)
--- a/LAPACKE/src/lapacke_dgesvdx_work.c
+++ b/LAPACKE/src/lapacke_dgesvdx_work.c
@@ -34,18 +34,18 @@
 #include "lapacke_utils.h"
 
 lapack_int LAPACKE_dgesvdx_work( int matrix_layout, char jobu, char jobvt, char range,
-                                       lapack_int m, lapack_int n, double* a,
-                                       lapack_int lda, double vl, double vu,
-                                       lapack_int il, lapack_int iu, lapack_int* ns,
-                                       double* s, double* u, lapack_int ldu,
-                                       double* vt, lapack_int ldvt,
-                                double* work, lapack_int lwork, lapack_int* iwork )
+                                 lapack_int m, lapack_int n, double* a,
+                                 lapack_int lda, double vl, double vu,
+                                 lapack_int il, lapack_int iu, lapack_int* ns,
+                                 double* s, double* u, lapack_int ldu,
+                                 double* vt, lapack_int ldvt,
+                                 double* work, lapack_int lwork, lapack_int* iwork )
 {
     lapack_int info = 0;
     if( matrix_layout == LAPACK_COL_MAJOR ) {
         /* Call LAPACK function and adjust info */
         LAPACK_dgesvdx( &jobu, &jobvt,  &range, &m, &n, a, &lda, &vl, &vu,
-                               &il, &iu, ns, s, u, &ldu, vt, &ldvt,
+                        &il, &iu, ns, s, u, &ldu, vt, &ldvt,
                         work, &lwork, iwork, &info );
         if( info < 0 ) {
             info = info - 1;
@@ -84,7 +84,7 @@ lapack_int LAPACKE_dgesvdx_work( int matrix_layout, char jobu, char jobvt, char
         /* Query optimal working array(s) size if requested */
         if( lwork == -1 ) {
             LAPACK_dgesvdx( &jobu, &jobvt, &range, &m, &n, a, &lda_t, &vl, &vu,
-                                       &il, &iu, ns, s, u, &ldu_t, vt,
+                            &il, &iu, ns, s, u, &ldu_t, vt,
                             &ldvt_t, work, &lwork, iwork, &info );
             return (info < 0) ? (info - 1) : info;
         }
@@ -114,8 +114,8 @@ lapack_int LAPACKE_dgesvdx_work( int matrix_layout, char jobu, char jobvt, char
         LAPACKE_dge_trans( matrix_layout, m, n, a, lda, a_t, lda_t );
         /* Call LAPACK function and adjust info */
         LAPACK_dgesvdx( &jobu, &jobvt, &range, &m, &n, a_t, &lda_t, &vl, &vu,
-                                       &il, &iu, ns, s, u_t, &ldu_t, vt_t,
-                            &ldvt_t, work, &lwork, iwork, &info );
+                        &il, &iu, ns, s, u_t, &ldu_t, vt_t,
+                        &ldvt_t, work, &lwork, iwork, &info );
         if( info < 0 ) {
             info = info - 1;
         }

diff --git a/LAPACKE/src/lapacke_dlange.c b/LAPACKE/src/lapacke_dlange.c
index 4d0cea1..0ab7136 100644 (file)
--- a/LAPACKE/src/lapacke_dlange.c
+++ b/LAPACKE/src/lapacke_dlange.c
@@ -37,7 +37,7 @@ double LAPACKE_dlange( int matrix_layout, char norm, lapack_int m,
                            lapack_int n, const double* a, lapack_int lda )
 {
     lapack_int info = 0;
-       double res = 0.;
+    double res = 0.;
     double* work = NULL;
     if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) {
         LAPACKE_xerbla( "LAPACKE_dlange", -1 );

diff --git a/LAPACKE/src/lapacke_dlange_work.c b/LAPACKE/src/lapacke_dlange_work.c
index d3a478c..932d9ee 100644 (file)
--- a/LAPACKE/src/lapacke_dlange_work.c
+++ b/LAPACKE/src/lapacke_dlange_work.c
@@ -38,7 +38,7 @@ double LAPACKE_dlange_work( int matrix_layout, char norm, lapack_int m,
                                 double* work )
 {
     lapack_int info = 0;
-       double res = 0.;
+    double res = 0.;
     if( matrix_layout == LAPACK_COL_MAJOR ) {
         /* Call LAPACK function and adjust info */
         res = LAPACK_dlange( &norm, &m, &n, a, &lda, work );

diff --git a/LAPACKE/src/lapacke_dlansy.c b/LAPACKE/src/lapacke_dlansy.c
index e970fec..97d2240 100644 (file)
--- a/LAPACKE/src/lapacke_dlansy.c
+++ b/LAPACKE/src/lapacke_dlansy.c
@@ -37,7 +37,7 @@ double LAPACKE_dlansy( int matrix_layout, char norm, char uplo, lapack_int n,
                            const double* a, lapack_int lda )
 {
     lapack_int info = 0;
-       double res = 0.;
+    double res = 0.;
     double* work = NULL;
     if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) {
         LAPACKE_xerbla( "LAPACKE_dlansy", -1 );

diff --git a/LAPACKE/src/lapacke_dlansy_work.c b/LAPACKE/src/lapacke_dlansy_work.c
index 6468c91..b464469 100644 (file)
--- a/LAPACKE/src/lapacke_dlansy_work.c
+++ b/LAPACKE/src/lapacke_dlansy_work.c
@@ -38,7 +38,7 @@ double LAPACKE_dlansy_work( int matrix_layout, char norm, char uplo,
                                 double* work )
 {
     lapack_int info = 0;
-       double res = 0.;
+    double res = 0.;
     if( matrix_layout == LAPACK_COL_MAJOR ) {
         /* Call LAPACK function and adjust info */
         res = LAPACK_dlansy( &norm, &uplo, &n, a, &lda, work );

diff --git a/LAPACKE/src/lapacke_dlantr.c b/LAPACKE/src/lapacke_dlantr.c
index 480f31d..87f0ee9 100644 (file)
--- a/LAPACKE/src/lapacke_dlantr.c
+++ b/LAPACKE/src/lapacke_dlantr.c
@@ -38,7 +38,7 @@ double LAPACKE_dlantr( int matrix_layout, char norm, char uplo, char diag,
                            lapack_int lda )
 {
     lapack_int info = 0;
-       double res = 0.;
+    double res = 0.;
     double* work = NULL;
     if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) {
         LAPACKE_xerbla( "LAPACKE_dlantr", -1 );

diff --git a/LAPACKE/src/lapacke_dsytrs_3.c b/LAPACKE/src/lapacke_dsytrs_3.c
index 59b83f9..eb63ffa 100644 (file)
--- a/LAPACKE/src/lapacke_dsytrs_3.c
+++ b/LAPACKE/src/lapacke_dsytrs_3.c
@@ -55,5 +55,5 @@ lapack_int LAPACKE_dsytrs_3( int matrix_layout, char uplo, lapack_int n,
     }
 #endif
     return LAPACKE_dsytrs_3_work( matrix_layout, uplo, n, nrhs, a, lda,
-                                                         e, ipiv, b, ldb );
+                                  e, ipiv, b, ldb );
 }

diff --git a/LAPACKE/src/lapacke_dsytrs_aa.c b/LAPACKE/src/lapacke_dsytrs_aa.c
index 6adb343..8971d1e 100644 (file)
--- a/LAPACKE/src/lapacke_dsytrs_aa.c
+++ b/LAPACKE/src/lapacke_dsytrs_aa.c
@@ -60,7 +60,7 @@ lapack_int LAPACKE_dsytrs_aa( int matrix_layout, char uplo, lapack_int n,
     if( info != 0 ) {
         goto exit_level_0;
     }
-       lwork = (lapack_int)work_query;
+    lwork = (lapack_int)work_query;
     /* Allocate memory for work arrays */
     work = (double*)
         LAPACKE_malloc( sizeof(double) * lwork );

diff --git a/LAPACKE/src/lapacke_sbdsvdx.c b/LAPACKE/src/lapacke_sbdsvdx.c
index 127417f..0c48bb8 100644 (file)
--- a/LAPACKE/src/lapacke_sbdsvdx.c
+++ b/LAPACKE/src/lapacke_sbdsvdx.c
@@ -71,8 +71,8 @@ lapack_int LAPACKE_sbdsvdx( int matrix_layout, char uplo, char jobz, char range,
     }
     /* Call middle-level interface */
     info = LAPACKE_sbdsvdx_work( matrix_layout, uplo, jobz,  range,
-                               n, d, e, vl, vu, il, iu, ns, s, z,
-                                ldz, work, iwork);
+                                 n, d, e, vl, vu, il, iu, ns, s, z,
+                                 ldz, work, iwork);
     /* Backup significant data from working array(s) */
     for( i=0; i<12*n-1; i++ ) {
         superb[i] = iwork[i+1];

diff --git a/LAPACKE/src/lapacke_sgesvdx.c b/LAPACKE/src/lapacke_sgesvdx.c
index 6387451..b078eb1 100644 (file)
--- a/LAPACKE/src/lapacke_sgesvdx.c
+++ b/LAPACKE/src/lapacke_sgesvdx.c
@@ -59,7 +59,7 @@ lapack_int LAPACKE_sgesvdx( int matrix_layout, char jobu, char jobvt, char range
 #endif
     /* Query optimal working array(s) size */
     info = LAPACKE_sgesvdx_work( matrix_layout, jobu, jobvt, range,
-                                                        m, n, a, lda, vl, vu, il, iu, ns, s, u,
+                                 m, n, a, lda, vl, vu, il, iu, ns, s, u,
                                  ldu, vt, ldvt, &work_query, lwork, iwork );
     if( info != 0 ) {
         goto exit_level_0;
@@ -78,8 +78,8 @@ lapack_int LAPACKE_sgesvdx( int matrix_layout, char jobu, char jobvt, char range
     }
     /* Call middle-level interface */
     info = LAPACKE_sgesvdx_work( matrix_layout, jobu, jobvt,  range,
-                                                        m, n, a, lda, vl, vu, il, iu, ns, s, u,
-                                ldu, vt, ldvt, work, lwork, iwork );
+                                 m, n, a, lda, vl, vu, il, iu, ns, s, u,
+                                 ldu, vt, ldvt, work, lwork, iwork );
     /* Backup significant data from working array(s) */
     for( i=0; i<12*MIN(m,n)-1; i++ ) {
         superb[i] = iwork[i+1];

diff --git a/LAPACKE/src/lapacke_sgesvdx_work.c b/LAPACKE/src/lapacke_sgesvdx_work.c
index f7973f0..8f4739d 100644 (file)
--- a/LAPACKE/src/lapacke_sgesvdx_work.c
+++ b/LAPACKE/src/lapacke_sgesvdx_work.c
@@ -34,18 +34,18 @@
 #include "lapacke_utils.h"
 
 lapack_int LAPACKE_sgesvdx_work( int matrix_layout, char jobu, char jobvt, char range,
-                                       lapack_int m, lapack_int n, float* a,
-                                       lapack_int lda, float vl, float vu,
-                                       lapack_int il, lapack_int iu, lapack_int* ns,
-                                       float* s, float* u, lapack_int ldu,
-                                       float* vt, lapack_int ldvt,
-                                float* work, lapack_int lwork, lapack_int* iwork )
+                                 lapack_int m, lapack_int n, float* a,
+                                 lapack_int lda, float vl, float vu,
+                                 lapack_int il, lapack_int iu, lapack_int* ns,
+                                 float* s, float* u, lapack_int ldu,
+                                 float* vt, lapack_int ldvt,
+                                 float* work, lapack_int lwork, lapack_int* iwork )
 {
     lapack_int info = 0;
     if( matrix_layout == LAPACK_COL_MAJOR ) {
         /* Call LAPACK function and adjust info */
         LAPACK_sgesvdx( &jobu, &jobvt,  &range, &m, &n, a, &lda, &vl, &vu,
-                               &il, &iu, ns, s, u, &ldu, vt, &ldvt,
+                        &il, &iu, ns, s, u, &ldu, vt, &ldvt,
                         work, &lwork, iwork, &info );
         if( info < 0 ) {
             info = info - 1;
@@ -84,7 +84,7 @@ lapack_int LAPACKE_sgesvdx_work( int matrix_layout, char jobu, char jobvt, char
         /* Query optimal working array(s) size if requested */
         if( lwork == -1 ) {
             LAPACK_sgesvdx( &jobu, &jobvt, &range, &m, &n, a, &lda_t, &vl, &vu,
-                                       &il, &iu, ns, s, u, &ldu_t, vt,
+                            &il, &iu, ns, s, u, &ldu_t, vt,
                             &ldvt_t, work, &lwork, iwork, &info );
             return (info < 0) ? (info - 1) : info;
         }
@@ -114,8 +114,8 @@ lapack_int LAPACKE_sgesvdx_work( int matrix_layout, char jobu, char jobvt, char
         LAPACKE_sge_trans( matrix_layout, m, n, a, lda, a_t, lda_t );
         /* Call LAPACK function and adjust info */
         LAPACK_sgesvdx( &jobu, &jobvt, &range, &m, &n, a_t, &lda_t, &vl, &vu,
-                                       &il, &iu, ns, s, u_t, &ldu_t, vt_t,
-                            &ldvt_t, work, &lwork, iwork, &info );
+                        &il, &iu, ns, s, u_t, &ldu_t, vt_t,
+                        &ldvt_t, work, &lwork, iwork, &info );
         if( info < 0 ) {
             info = info - 1;
         }

diff --git a/LAPACKE/src/lapacke_slange.c b/LAPACKE/src/lapacke_slange.c
index 8d1e172..1761136 100644 (file)
--- a/LAPACKE/src/lapacke_slange.c
+++ b/LAPACKE/src/lapacke_slange.c
@@ -37,7 +37,7 @@ float LAPACKE_slange( int matrix_layout, char norm, lapack_int m,
                            lapack_int n, const float* a, lapack_int lda )
 {
     lapack_int info = 0;
-       float res = 0.;
+    float res = 0.;
     float* work = NULL;
     if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) {
         LAPACKE_xerbla( "LAPACKE_slange", -1 );

diff --git a/LAPACKE/src/lapacke_slange_work.c b/LAPACKE/src/lapacke_slange_work.c
index dc03fdf..31ac8c9 100644 (file)
--- a/LAPACKE/src/lapacke_slange_work.c
+++ b/LAPACKE/src/lapacke_slange_work.c
@@ -38,7 +38,7 @@ float LAPACKE_slange_work( int matrix_layout, char norm, lapack_int m,
                                 float* work )
 {
     lapack_int info = 0;
-       float res = 0.;
+    float res = 0.;
     if( matrix_layout == LAPACK_COL_MAJOR ) {
         /* Call LAPACK function and adjust info */
         res = LAPACK_slange( &norm, &m, &n, a, &lda, work );

diff --git a/LAPACKE/src/lapacke_slansy.c b/LAPACKE/src/lapacke_slansy.c
index a2711fa..453ebef 100644 (file)
--- a/LAPACKE/src/lapacke_slansy.c
+++ b/LAPACKE/src/lapacke_slansy.c
@@ -37,7 +37,7 @@ float LAPACKE_slansy( int matrix_layout, char norm, char uplo, lapack_int n,
                            const float* a, lapack_int lda )
 {
     lapack_int info = 0;
-       float res = 0.;
+    float res = 0.;
     float* work = NULL;
     if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) {
         LAPACKE_xerbla( "LAPACKE_slansy", -1 );

diff --git a/LAPACKE/src/lapacke_slansy_work.c b/LAPACKE/src/lapacke_slansy_work.c
index 9e14a5f..09abd30 100644 (file)
--- a/LAPACKE/src/lapacke_slansy_work.c
+++ b/LAPACKE/src/lapacke_slansy_work.c
@@ -38,7 +38,7 @@ float LAPACKE_slansy_work( int matrix_layout, char norm, char uplo,
                                 float* work )
 {
     lapack_int info = 0;
-       float res = 0.;
+    float res = 0.;
     if( matrix_layout == LAPACK_COL_MAJOR ) {
         /* Call LAPACK function and adjust info */
         res = LAPACK_slansy( &norm, &uplo, &n, a, &lda, work );

diff --git a/LAPACKE/src/lapacke_ssytrs_aa.c b/LAPACKE/src/lapacke_ssytrs_aa.c
index 6e38409..6d88050 100644 (file)
--- a/LAPACKE/src/lapacke_ssytrs_aa.c
+++ b/LAPACKE/src/lapacke_ssytrs_aa.c
@@ -60,7 +60,7 @@ lapack_int LAPACKE_ssytrs_aa( int matrix_layout, char uplo, lapack_int n,
     if( info != 0 ) {
         goto exit_level_0;
     }
-       lwork = (lapack_int)work_query;
+    lwork = (lapack_int)work_query;
     /* Allocate memory for work arrays */
     work = (float*)
         LAPACKE_malloc( sizeof(float) * lwork );

diff --git a/LAPACKE/src/lapacke_zgejsv.c b/LAPACKE/src/lapacke_zgejsv.c
index 6eababe..73c6f95 100644 (file)
--- a/LAPACKE/src/lapacke_zgejsv.c
+++ b/LAPACKE/src/lapacke_zgejsv.c
@@ -41,22 +41,22 @@ lapack_int LAPACKE_zgejsv( int matrix_layout, char joba, char jobu, char jobv,
 {
     lapack_int info = 0;
     lapack_int lwork = (
-                       // 1.1
-       (            LAPACKE_lsame( jobu, 'n' ) &&  LAPACKE_lsame( jobv, 'n' ) &&
+                // 1.1
+        (        LAPACKE_lsame( jobu, 'n' ) &&  LAPACKE_lsame( jobv, 'n' ) &&
                ( LAPACKE_lsame( jobt, 't' ) ||  LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) )) ? 2*n+1 :
 
                 //1.2
-     (   (        LAPACKE_lsame( jobu, 'n' ) &&  LAPACKE_lsame( jobv, 'n' ) &&
+     (   (       LAPACKE_lsame( jobu, 'n' ) &&  LAPACKE_lsame( jobv, 'n' ) &&
               !( LAPACKE_lsame( jobt, 't' ) ||  LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) )) ? n*n+3*n :
 
                 //2.1
-    (  (          ( LAPACKE_lsame( jobv, 'v' ) ||  LAPACKE_lsame( jobv, 'j' ) )  &&
-              (!( LAPACKE_lsame( jobu, 'u') ||  LAPACKE_lsame( jobu, 'f' ) )&&
+    (   (      ( LAPACKE_lsame( jobv, 'v' ) ||  LAPACKE_lsame( jobv, 'j' ) )  &&
+             (!( LAPACKE_lsame( jobu, 'u') ||  LAPACKE_lsame( jobu, 'f' ) )&&
                ( LAPACKE_lsame( jobt, 't' ) ||  LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) ))? 3*n :
 
 
                 //2.2
-    (  (          ( LAPACKE_lsame( jobv, 'v' ) ||  LAPACKE_lsame( jobv, 'j' ) )  &&
+    (   (      ( LAPACKE_lsame( jobv, 'v' ) ||  LAPACKE_lsame( jobv, 'j' ) )  &&
               !( LAPACKE_lsame( jobu, 'u' ) ||  LAPACKE_lsame( jobu, 'f' ) ) &&
               !( LAPACKE_lsame( jobt, 't' ) ||  LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) ))? 3*n :
 
@@ -81,8 +81,8 @@ lapack_int LAPACKE_zgejsv( int matrix_layout, char joba, char jobu, char jobv,
                ( LAPACKE_lsame( jobt, 't' ) ||  LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) ))? 4*n*n:
                        1) ) ) ) ) ) ) ) );
     lapack_int lrwork = (
-                       // 1.1
-       (            LAPACKE_lsame( jobu, 'n' ) &&  LAPACKE_lsame( jobv, 'n' ) &&
+                // 1.1
+        (        LAPACKE_lsame( jobu, 'n' ) &&  LAPACKE_lsame( jobv, 'n' ) &&
                ( LAPACKE_lsame( jobt, 't' ) ||  LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) )) ? MAX(7,n+2*m) :
 
                 //1.2
@@ -90,13 +90,13 @@ lapack_int LAPACKE_zgejsv( int matrix_layout, char joba, char jobu, char jobv,
               !( LAPACKE_lsame( jobt, 't' ) ||  LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) )) ? MAX(7,2*n) :
 
                 //2.1
-    (  (          ( LAPACKE_lsame( jobv, 'v' ) ||  LAPACKE_lsame( jobv, 'j' ) )  &&
-              (!( LAPACKE_lsame( jobu, 'u') ||  LAPACKE_lsame( jobu, 'f' ) ) &&
+    (   (      ( LAPACKE_lsame( jobv, 'v' ) ||  LAPACKE_lsame( jobv, 'j' ) )  &&
+             (!( LAPACKE_lsame( jobu, 'u') ||  LAPACKE_lsame( jobu, 'f' ) ) &&
                ( LAPACKE_lsame( jobt, 't' ) ||  LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) ))? MAX( 7, n+ 2*m ) :
 
 
                 //2.2
-    (  (          ( LAPACKE_lsame( jobv, 'v' ) ||  LAPACKE_lsame( jobv, 'j' ) )  &&
+    (   (      ( LAPACKE_lsame( jobv, 'v' ) ||  LAPACKE_lsame( jobv, 'j' ) )  &&
               !( LAPACKE_lsame( jobu, 'u' ) ||  LAPACKE_lsame( jobu, 'f' ) ) &&
               !( LAPACKE_lsame( jobt, 't' ) ||  LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) ))? MAX(7,2*n) :
 

diff --git a/LAPACKE/src/lapacke_zgesvdx.c b/LAPACKE/src/lapacke_zgesvdx.c
index 4847dbf..f36907e 100644 (file)
--- a/LAPACKE/src/lapacke_zgesvdx.c
+++ b/LAPACKE/src/lapacke_zgesvdx.c
@@ -34,12 +34,12 @@
 #include "lapacke_utils.h"
 
 lapack_int LAPACKE_zgesvdx( int matrix_layout, char jobu, char jobvt, char range,
-                           lapack_int m, lapack_int n, lapack_complex_double* a,
-                           lapack_int lda, double vl, double vu,
-                           lapack_int il, lapack_int iu, lapack_int* ns,
-                           double* s, lapack_complex_double* u, lapack_int ldu,
-                           lapack_complex_double* vt, lapack_int ldvt,
-                           lapack_int* superb )
+                            lapack_int m, lapack_int n, lapack_complex_double* a,
+                            lapack_int lda, double vl, double vu,
+                            lapack_int il, lapack_int iu, lapack_int* ns,
+                            double* s, lapack_complex_double* u, lapack_int ldu,
+                            lapack_complex_double* vt, lapack_int ldvt,
+                            lapack_int* superb )
 {
     lapack_int info = 0;
     lapack_int lwork = -1;
@@ -61,7 +61,7 @@ lapack_int LAPACKE_zgesvdx( int matrix_layout, char jobu, char jobvt, char range
 #endif
     /* Query optimal working array(s) size */
     info = LAPACKE_zgesvdx_work( matrix_layout, jobu, jobvt, range,
-                                                        m, n, a, lda, vl, vu, il, iu, ns, s, u,
+                                 m, n, a, lda, vl, vu, il, iu, ns, s, u,
                                  ldu, vt, ldvt, &work_query, lwork, rwork, iwork );
     if( info != 0 ) {
         goto exit_level_0;
@@ -69,7 +69,7 @@ lapack_int LAPACKE_zgesvdx( int matrix_layout, char jobu, char jobvt, char range
     lwork = LAPACK_Z2INT (work_query);
     /* Allocate memory for work arrays */
     work = (lapack_complex_double*)
-       LAPACKE_malloc( sizeof(lapack_complex_double) * lwork );
+        LAPACKE_malloc( sizeof(lapack_complex_double) * lwork );
     if( work == NULL ) {
         info = LAPACK_WORK_MEMORY_ERROR;
         goto exit_level_1;
@@ -86,8 +86,8 @@ lapack_int LAPACKE_zgesvdx( int matrix_layout, char jobu, char jobvt, char range
     }
     /* Call middle-level interface */
     info = LAPACKE_zgesvdx_work( matrix_layout, jobu, jobvt,  range,
-                                                        m, n, a, lda, vl, vu, il, iu, ns, s, u,
-                                ldu, vt, ldvt, work, lwork, rwork, iwork );
+                                 m, n, a, lda, vl, vu, il, iu, ns, s, u,
+                                 ldu, vt, ldvt, work, lwork, rwork, iwork );
     /* Backup significant data from working array(s) */
     for( i=0; i<12*MIN(m,n)-1; i++ ) {
         superb[i] = iwork[i+1];

diff --git a/LAPACKE/src/lapacke_zgesvdx_work.c b/LAPACKE/src/lapacke_zgesvdx_work.c
index 3070687..d9e9cb6 100644 (file)
--- a/LAPACKE/src/lapacke_zgesvdx_work.c
+++ b/LAPACKE/src/lapacke_zgesvdx_work.c
@@ -34,19 +34,19 @@
 #include "lapacke_utils.h"
 
 lapack_int LAPACKE_zgesvdx_work( int matrix_layout, char jobu, char jobvt, char range,
-                                       lapack_int m, lapack_int n, lapack_complex_double* a,
-                                       lapack_int lda, double vl, double vu,
-                                       lapack_int il, lapack_int iu, lapack_int* ns,
-                                       double* s, lapack_complex_double* u, lapack_int ldu,
-                                       lapack_complex_double* vt, lapack_int ldvt,
-                                lapack_complex_double* work, lapack_int lwork,
-                                double* rwork, lapack_int* iwork )
+                                 lapack_int m, lapack_int n, lapack_complex_double* a,
+                                 lapack_int lda, double vl, double vu,
+                                 lapack_int il, lapack_int iu, lapack_int* ns,
+                                 double* s, lapack_complex_double* u, lapack_int ldu,
+                                 lapack_complex_double* vt, lapack_int ldvt,
+                                 lapack_complex_double* work, lapack_int lwork,
+                                 double* rwork, lapack_int* iwork )
 {
     lapack_int info = 0;
     if( matrix_layout == LAPACK_COL_MAJOR ) {
         /* Call LAPACK function and adjust info */
         LAPACK_zgesvdx( &jobu, &jobvt,  &range, &m, &n, a, &lda, &vl, &vu,
-                               &il, &iu, ns, s, u, &ldu, vt, &ldvt,
+                        &il, &iu, ns, s, u, &ldu, vt, &ldvt,
                         work, &lwork, rwork, iwork, &info );
         if( info < 0 ) {
             info = info - 1;
@@ -85,7 +85,7 @@ lapack_int LAPACKE_zgesvdx_work( int matrix_layout, char jobu, char jobvt, char
         /* Query optimal working array(s) size if requested */
         if( lwork == -1 ) {
             LAPACK_zgesvdx( &jobu, &jobvt, &range, &m, &n, a, &lda_t, &vl, &vu,
-                                       &il, &iu, ns, s, u, &ldu_t, vt,
+                            &il, &iu, ns, s, u, &ldu_t, vt,
                             &ldvt_t, work, &lwork, rwork, iwork, &info );
             return (info < 0) ? (info - 1) : info;
         }
@@ -116,7 +116,7 @@ lapack_int LAPACKE_zgesvdx_work( int matrix_layout, char jobu, char jobvt, char
         LAPACKE_zge_trans( matrix_layout, m, n, a, lda, a_t, lda_t );
         /* Call LAPACK function and adjust info */
         LAPACK_zgesvdx( &jobu, &jobvt, &range, &m, &n, a_t, &lda_t, &vl, &vu,
-                                       &il, &iu, ns, s, u_t, &ldu_t, vt_t,
+                            &il, &iu, ns, s, u_t, &ldu_t, vt_t,
                             &ldvt_t, work, &lwork, rwork, iwork, &info );
         if( info < 0 ) {
             info = info - 1;

diff --git a/LAPACKE/src/lapacke_zgesvj_work.c b/LAPACKE/src/lapacke_zgesvj_work.c
index 37e6c1e..1a46cfa 100644 (file)
--- a/LAPACKE/src/lapacke_zgesvj_work.c
+++ b/LAPACKE/src/lapacke_zgesvj_work.c
@@ -76,7 +76,7 @@ lapack_int LAPACKE_zgesvj_work( int matrix_layout, char joba, char jobu,
         }
         if( LAPACKE_lsame( jobv, 'a' ) || LAPACKE_lsame( jobv, 'v' ) ) {
             v_t = (lapack_complex_double*)
-               LAPACKE_malloc( sizeof(lapack_complex_double) * ldv_t * MAX(1,n) );
+               LAPACKE_malloc( sizeof(lapack_complex_double) * ldv_t * MAX(1,n) );
             if( v_t == NULL ) {
                 info = LAPACK_TRANSPOSE_MEMORY_ERROR;
                 goto exit_level_1;

diff --git a/LAPACKE/src/lapacke_zhetrf_rk_work.c b/LAPACKE/src/lapacke_zhetrf_rk_work.c
index 45d6964..f42528a 100644 (file)
--- a/LAPACKE/src/lapacke_zhetrf_rk_work.c
+++ b/LAPACKE/src/lapacke_zhetrf_rk_work.c
@@ -35,7 +35,7 @@
 
 lapack_int LAPACKE_zhetrf_rk_work( int matrix_layout, char uplo, lapack_int n,
                                 lapack_complex_double* a, lapack_int lda,
-                                lapack_complex_double* e, 
+                                lapack_complex_double* e,
                                 lapack_int* ipiv, lapack_complex_double* work,
                                 lapack_int lwork )
 {

diff --git a/LAPACKE/src/lapacke_zhetrs_3.c b/LAPACKE/src/lapacke_zhetrs_3.c
index 016bc79..85c5a13 100644 (file)
--- a/LAPACKE/src/lapacke_zhetrs_3.c
+++ b/LAPACKE/src/lapacke_zhetrs_3.c
@@ -56,5 +56,5 @@ lapack_int LAPACKE_zhetrs_3( int matrix_layout, char uplo, lapack_int n,
     }
 #endif
     return LAPACKE_zhetrs_3_work( matrix_layout, uplo, n, nrhs, a, lda,
-                                                         e, ipiv, b, ldb );
+                                  e, ipiv, b, ldb );
 }

diff --git a/LAPACKE/src/lapacke_zlange.c b/LAPACKE/src/lapacke_zlange.c
index 6ea7319..38c4e03 100644 (file)
--- a/LAPACKE/src/lapacke_zlange.c
+++ b/LAPACKE/src/lapacke_zlange.c
@@ -38,7 +38,7 @@ double LAPACKE_zlange( int matrix_layout, char norm, lapack_int m,
                            lapack_int lda )
 {
     lapack_int info = 0;
-       double res = 0.;
+    double res = 0.;
     double* work = NULL;
     if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) {
         LAPACKE_xerbla( "LAPACKE_zlange", -1 );

diff --git a/LAPACKE/src/lapacke_zlange_work.c b/LAPACKE/src/lapacke_zlange_work.c
index 60d1812..34331d8 100644 (file)
--- a/LAPACKE/src/lapacke_zlange_work.c
+++ b/LAPACKE/src/lapacke_zlange_work.c
@@ -38,7 +38,7 @@ double LAPACKE_zlange_work( int matrix_layout, char norm, lapack_int m,
                                 lapack_int lda, double* work )
 {
     lapack_int info = 0;
-       double res = 0.;
+    double res = 0.;
     if( matrix_layout == LAPACK_COL_MAJOR ) {
         /* Call LAPACK function and adjust info */
         res = LAPACK_zlange( &norm, &m, &n, a, &lda, work );

diff --git a/LAPACKE/src/lapacke_zlanhe.c b/LAPACKE/src/lapacke_zlanhe.c
index 233231a..82b52a2 100644 (file)
--- a/LAPACKE/src/lapacke_zlanhe.c
+++ b/LAPACKE/src/lapacke_zlanhe.c
@@ -37,7 +37,7 @@ double LAPACKE_zlanhe( int matrix_layout, char norm, char uplo, lapack_int n,
                            const lapack_complex_double* a, lapack_int lda )
 {
     lapack_int info = 0;
-       double res = 0.;
+    double res = 0.;
     double* work = NULL;
     if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) {
         LAPACKE_xerbla( "LAPACKE_zlanhe", -1 );

diff --git a/LAPACKE/src/lapacke_zlanhe_work.c b/LAPACKE/src/lapacke_zlanhe_work.c
index b3e4de5..94b59eb 100644 (file)
--- a/LAPACKE/src/lapacke_zlanhe_work.c
+++ b/LAPACKE/src/lapacke_zlanhe_work.c
@@ -38,7 +38,7 @@ double LAPACKE_zlanhe_work( int matrix_layout, char norm, char uplo,
                                 lapack_int lda, double* work )
 {
     lapack_int info = 0;
-       double res = 0.;
+    double res = 0.;
     if( matrix_layout == LAPACK_COL_MAJOR ) {
         /* Call LAPACK function and adjust info */
         res = LAPACK_zlanhe( &norm, &uplo, &n, a, &lda, work );

diff --git a/LAPACKE/src/lapacke_zlansy.c b/LAPACKE/src/lapacke_zlansy.c
index 491a629..b3ebb36 100644 (file)
--- a/LAPACKE/src/lapacke_zlansy.c
+++ b/LAPACKE/src/lapacke_zlansy.c
@@ -37,7 +37,7 @@ double LAPACKE_zlansy( int matrix_layout, char norm, char uplo, lapack_int n,
                            const lapack_complex_double* a, lapack_int lda )
 {
     lapack_int info = 0;
-       double res = 0.;
+    double res = 0.;
     double* work = NULL;
     if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) {
         LAPACKE_xerbla( "LAPACKE_zlansy", -1 );

diff --git a/LAPACKE/src/lapacke_zlansy_work.c b/LAPACKE/src/lapacke_zlansy_work.c
index 6088b44..9ae2d9b 100644 (file)
--- a/LAPACKE/src/lapacke_zlansy_work.c
+++ b/LAPACKE/src/lapacke_zlansy_work.c
@@ -38,7 +38,7 @@ double LAPACKE_zlansy_work( int matrix_layout, char norm, char uplo,
                                 lapack_int lda, double* work )
 {
     lapack_int info = 0;
-       double res = 0.;
+    double res = 0.;
     if( matrix_layout == LAPACK_COL_MAJOR ) {
         /* Call LAPACK function and adjust info */
         res = LAPACK_zlansy( &norm, &uplo, &n, a, &lda, work );

diff --git a/LAPACKE/src/lapacke_zlantr.c b/LAPACKE/src/lapacke_zlantr.c
index 29f7cf2..cd8c34b 100644 (file)
--- a/LAPACKE/src/lapacke_zlantr.c
+++ b/LAPACKE/src/lapacke_zlantr.c
@@ -38,7 +38,7 @@ double LAPACKE_zlantr( int matrix_layout, char norm, char uplo, char diag,
                            const lapack_complex_double* a, lapack_int lda )
 {
     lapack_int info = 0;
-       double res = 0.;
+    double res = 0.;
     double* work = NULL;
     if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) {
         LAPACKE_xerbla( "LAPACKE_zlantr", -1 );

diff --git a/LAPACKE/src/lapacke_zsytrs_3.c b/LAPACKE/src/lapacke_zsytrs_3.c
index 47b3c36..26d1eb4 100644 (file)
--- a/LAPACKE/src/lapacke_zsytrs_3.c
+++ b/LAPACKE/src/lapacke_zsytrs_3.c
@@ -56,5 +56,5 @@ lapack_int LAPACKE_zsytrs_3( int matrix_layout, char uplo, lapack_int n,
     }
 #endif
     return LAPACKE_zsytrs_3_work( matrix_layout, uplo, n, nrhs, a, lda,
-                                                         e, ipiv, b, ldb );
+                                  e, ipiv, b, ldb );
 }