STYLE: Remove trailing whitespace in C files

This is mostly a long term maintenance improvement.

Many coding styles require elimination of trailing whitespace, and
many editors and source code management configurations automatically
gobble up whitespace. When these tools gobble up whitespace, it
complicates reviewing the meaningful code changes.

By removing whitespace on one patch, it makes future
code reviews much easier.

=SCRIPT====================================================================

if which tempfile &>/dev/null; then
  TEMPMAKER=tempfile
elif which mktemp &>/dev/null; then
  TEMPMAKER=mktemp
else
  echo "Cannot find tempfile program." 2>&1
  exit 1
fi

MYTEMP=$($TEMPMAKER)
trap 'rm -f $MYTEMP' SIGINT SIGTERM

stripit() {
  echo "stripping $1"
  sed 's/[ \t]*$//' "$1" > $MYTEMP
  cp $MYTEMP "$1"
}

if [ $# -gt 0 ]; then
  while [ "$1" != "" ]; do
    stripit $1
    shift
  done
else
  while read -t 2; do
    stripit $REPLY
  done
fi

rm $MYTEMP
=================================================

40 files changed, 116 insertions, 116 deletions

diff --git a/LAPACKE/src/lapacke_cgejsv.c b/LAPACKE/src/lapacke_cgejsv.c
index 5bfb1553..fbf8d11c 100644
--- a/LAPACKE/src/lapacke_cgejsv.c
+++ b/LAPACKE/src/lapacke_cgejsv.c
@@ -41,10 +41,10 @@ lapack_int LAPACKE_cgejsv( int matrix_layout, char joba, char jobu, char jobv,
 {
     lapack_int info = 0;
     lapack_int lwork = (
-    			// 1.1	   
+    			// 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( jobt, 't' ) ||  LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) )) ? n*n+3*n :
@@ -53,38 +53,38 @@ lapack_int LAPACKE_cgejsv( int matrix_layout, char joba, char jobu, char jobv,
     (	(	   ( 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( jobu, 'u' ) ||  LAPACKE_lsame( jobu, 'f' ) ) &&
               !( LAPACKE_lsame( jobt, 't' ) ||  LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) ))? 3*n :
-        
-               //3.1              
+
+               //3.1
      (   (      ( 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' ) ))?  3*n :
-                       
-               //3.2             
+
+               //3.2
      (   (      ( 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' ) ))?  3*n  :
-           
+
               //4.1
      (  (       ( 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' ) ))? 5*n+2*n*n :
-               
+
               //4.2
      (  (       ( 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' ) ))? 4*n*n: 
-                       1) ) ) ) ) ) ) );  
+               ( LAPACKE_lsame( jobt, 't' ) ||  LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) ))? 4*n*n:
+                       1) ) ) ) ) ) ) );
     lapack_int lrwork = (
-    			// 1.1	   
+    			// 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
      (   (        LAPACKE_lsame( jobu, 'n' ) &&  LAPACKE_lsame( jobv, 'n' ) &&
               !( LAPACKE_lsame( jobt, 't' ) ||  LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) )) ? MAX(7,2*n) :
@@ -93,28 +93,28 @@ lapack_int LAPACKE_cgejsv( int matrix_layout, char joba, char jobu, char jobv,
     (	(	   ( 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( jobu, 'u' ) ||  LAPACKE_lsame( jobu, 'f' ) ) &&
               !( LAPACKE_lsame( jobt, 't' ) ||  LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) ))? MAX(7,2*n) :
-        
-               //3.1              
+
+               //3.1
      (   (      ( 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, n+ 2*m ) :
-                       
-               //3.2             
+
+               //3.2
      (   (      ( 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)  :
-           
+
               //4.1
      (  (       ( 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, n+ 2*m ) :
-               
+
               //4.2
      (  (       ( LAPACKE_lsame( jobu, 'u' ) ||  LAPACKE_lsame( jobu, 'f' ) ) &&
                ( LAPACKE_lsame( jobv, 'v' ) ||  LAPACKE_lsame( jobv, 'j' ) ) &&
diff --git a/LAPACKE/src/lapacke_cgesvdx_work.c b/LAPACKE/src/lapacke_cgesvdx_work.c
index f9b4a966..a5955ef4 100644
--- a/LAPACKE/src/lapacke_cgesvdx_work.c
+++ b/LAPACKE/src/lapacke_cgesvdx_work.c
@@ -38,7 +38,7 @@ lapack_int LAPACKE_cgesvdx_work( int matrix_layout, char jobu, char jobvt, char
                           		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* vt, lapack_int ldvt,
                                 lapack_complex_float* work, lapack_int lwork,
                                 float* rwork, lapack_int* iwork )
 {
diff --git a/LAPACKE/src/lapacke_cgesvj_work.c b/LAPACKE/src/lapacke_cgesvj_work.c
index 914813a9..e2bbbfec 100644
--- a/LAPACKE/src/lapacke_cgesvj_work.c
+++ b/LAPACKE/src/lapacke_cgesvj_work.c
@@ -34,8 +34,8 @@
 #include "lapacke_utils.h"
 
 lapack_int LAPACKE_cgesvj_work( int matrix_layout, char joba, char jobu,
-                                char jobv, lapack_int m, lapack_int n, 
-                                lapack_complex_float* a, lapack_int lda, 
+                                char jobv, lapack_int m, lapack_int n,
+                                lapack_complex_float* a, lapack_int lda,
                                 float* sva, lapack_int mv,
                                 lapack_complex_float* v, lapack_int ldv,
                                 lapack_complex_float* cwork, lapack_int lwork,
diff --git a/LAPACKE/src/lapacke_clarfb_work.c b/LAPACKE/src/lapacke_clarfb_work.c
index ad386d05..1ed22377 100644
--- a/LAPACKE/src/lapacke_clarfb_work.c
+++ b/LAPACKE/src/lapacke_clarfb_work.c
@@ -44,7 +44,7 @@ lapack_int LAPACKE_clarfb_work( int matrix_layout, char side, char trans,
     lapack_int info = 0;
     lapack_int nrows_v, ncols_v;
     lapack_int ldc_t, ldt_t, ldv_t;
-    lapack_complex_float *v_t = NULL, *t_t = NULL, *c_t = NULL; 
+    lapack_complex_float *v_t = NULL, *t_t = NULL, *c_t = NULL;
     if( matrix_layout == LAPACK_COL_MAJOR ) {
         /* Call LAPACK function and adjust info */
         LAPACK_clarfb( &side, &trans, &direct, &storev, &m, &n, &k, v, &ldv, t,
diff --git a/LAPACKE/src/lapacke_clascl.c b/LAPACKE/src/lapacke_clascl.c
index d393eb5e..5e316955 100644
--- a/LAPACKE/src/lapacke_clascl.c
+++ b/LAPACKE/src/lapacke_clascl.c
@@ -34,8 +34,8 @@
 #include "lapacke_utils.h"
 
 lapack_int LAPACKE_clascl( int matrix_layout, char type, lapack_int kl,
-                           lapack_int ku, float cfrom, float cto, 
-                           lapack_int m, lapack_int n, lapack_complex_float* a, 
+                           lapack_int ku, float cfrom, float cto,
+                           lapack_int m, lapack_int n, lapack_complex_float* a,
                            lapack_int lda )
 {
     if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) {
diff --git a/LAPACKE/src/lapacke_clascl_work.c b/LAPACKE/src/lapacke_clascl_work.c
index 5945c5c1..70a75f73 100644
--- a/LAPACKE/src/lapacke_clascl_work.c
+++ b/LAPACKE/src/lapacke_clascl_work.c
@@ -34,8 +34,8 @@
 #include "lapacke_utils.h"
 
 lapack_int LAPACKE_clascl_work( int matrix_layout, char type, lapack_int kl,
-                           lapack_int ku, float cfrom, float cto, 
-                           lapack_int m, lapack_int n, lapack_complex_float* a, 
+                           lapack_int ku, float cfrom, float cto,
+                           lapack_int m, lapack_int n, lapack_complex_float* a,
                            lapack_int lda )
 {
     lapack_int info = 0;
diff --git a/LAPACKE/src/lapacke_claset.c b/LAPACKE/src/lapacke_claset.c
index 5cf88392..cd6536c0 100644
--- a/LAPACKE/src/lapacke_claset.c
+++ b/LAPACKE/src/lapacke_claset.c
@@ -45,8 +45,8 @@ lapack_int LAPACKE_claset( int matrix_layout, char uplo, lapack_int m,
     }
 
 /*****************************************************************************
-*  Note: we do not check NaNs in A since the goal of this subroutine is to 
-*  initialized A. It is OK if A has NaNs in input. 
+*  Note: we do not check NaNs in A since the goal of this subroutine is to
+*  initialized A. It is OK if A has NaNs in input.
 *****************************************************************************/
 
 #ifndef LAPACK_DISABLE_NAN_CHECK
diff --git a/LAPACKE/src/lapacke_ctpqrt.c b/LAPACKE/src/lapacke_ctpqrt.c
index e11ce784..8dfd8564 100644
--- a/LAPACKE/src/lapacke_ctpqrt.c
+++ b/LAPACKE/src/lapacke_ctpqrt.c
@@ -34,8 +34,8 @@
 #include "lapacke_utils.h"
 
 lapack_int LAPACKE_ctpqrt( int matrix_layout, lapack_int m, lapack_int n,
-                           lapack_int l, lapack_int nb, 
-                           lapack_complex_float* a, lapack_int lda, 
+                           lapack_int l, lapack_int nb,
+                           lapack_complex_float* a, lapack_int lda,
                            lapack_complex_float* b, lapack_int ldb,
                            lapack_complex_float* t, lapack_int ldt )
 {
diff --git a/LAPACKE/src/lapacke_ctprfb.c b/LAPACKE/src/lapacke_ctprfb.c
index d2e84106..f66469a2 100644
--- a/LAPACKE/src/lapacke_ctprfb.c
+++ b/LAPACKE/src/lapacke_ctprfb.c
@@ -84,7 +84,7 @@ lapack_int LAPACKE_ctprfb( int matrix_layout, char side, char trans, char direct
     else {
        ldwork = m;
        work_size = MAX(1,ldwork) * MAX(1,k);
-       }    
+       }
     /* Allocate memory for working array(s) */
     work = (lapack_complex_float*)
         LAPACKE_malloc( sizeof(lapack_complex_float) * work_size );
diff --git a/LAPACKE/src/lapacke_cuncsd2by1.c b/LAPACKE/src/lapacke_cuncsd2by1.c
index 4b9cf7fe..e6749c1b 100644
--- a/LAPACKE/src/lapacke_cuncsd2by1.c
+++ b/LAPACKE/src/lapacke_cuncsd2by1.c
@@ -74,7 +74,7 @@ lapack_int LAPACKE_cuncsd2by1( int matrix_layout, char jobu1, char jobu2,
         goto exit_level_0;
     }
     /* Query optimal working array(s) size */
-    info = LAPACKE_cuncsd2by1_work( matrix_layout, jobu1, jobu2, jobv1t, m, p, q, 
+    info = LAPACKE_cuncsd2by1_work( matrix_layout, jobu1, jobu2, jobv1t, m, p, q,
                                 x11, ldx11, x21, ldx21, theta, u1, ldu1, u2,
                                 ldu2, v1t, ldv1t, &work_query,
                                 lwork, &rwork_query, lrwork, iwork );
@@ -95,7 +95,7 @@ lapack_int LAPACKE_cuncsd2by1( int matrix_layout, char jobu1, char jobu2,
         goto exit_level_2;
     }
     /* Call middle-level interface */
-    info = LAPACKE_cuncsd2by1_work( matrix_layout, jobu1, jobu2, jobv1t, m, p, q, 
+    info = LAPACKE_cuncsd2by1_work( matrix_layout, jobu1, jobu2, jobv1t, m, p, q,
                                 x11, ldx11, x21, ldx21, theta, u1, ldu1, u2,
                                 ldu2, v1t, ldv1t, work, lwork, rwork, lrwork, iwork );
     /* Release memory and exit */
diff --git a/LAPACKE/src/lapacke_cuncsd2by1_work.c b/LAPACKE/src/lapacke_cuncsd2by1_work.c
index 4ab11b18..fb0a0f7e 100644
--- a/LAPACKE/src/lapacke_cuncsd2by1_work.c
+++ b/LAPACKE/src/lapacke_cuncsd2by1_work.c
@@ -38,9 +38,9 @@ lapack_int LAPACKE_cuncsd2by1_work( int matrix_layout, char jobu1, char jobu2,
                                 lapack_int q, lapack_complex_float* x11, lapack_int ldx11,
                                 lapack_complex_float* x21, lapack_int ldx21,
                                 float* theta, lapack_complex_float* u1,
-                                lapack_int ldu1, lapack_complex_float* u2, 
+                                lapack_int ldu1, lapack_complex_float* u2,
                                 lapack_int ldu2, lapack_complex_float* v1t,
-                                lapack_int ldv1t, lapack_complex_float* work, 
+                                lapack_int ldv1t, lapack_complex_float* work,
                                 lapack_int lwork, float* rwork, lapack_int lrwork,
                                 lapack_int* iwork )
 {
@@ -48,8 +48,8 @@ lapack_int LAPACKE_cuncsd2by1_work( int matrix_layout, char jobu1, char jobu2,
     if( matrix_layout == LAPACK_COL_MAJOR ) {
         /* Call LAPACK function and adjust info */
         LAPACK_cuncsd2by1( &jobu1, &jobu2, &jobv1t, &m, &p,
-                       &q, x11, &ldx11, x21, &ldx21, 
-                       theta, u1, &ldu1, u2, &ldu2, v1t, &ldv1t, 
+                       &q, x11, &ldx11, x21, &ldx21,
+                       theta, u1, &ldu1, u2, &ldu2, v1t, &ldv1t,
                        work, &lwork, rwork, &lrwork, iwork, &info );
         if( info < 0 ) {
             info = info - 1;
diff --git a/LAPACKE/src/lapacke_dbdsvdx_work.c b/LAPACKE/src/lapacke_dbdsvdx_work.c
index 29217a82..a795110f 100644
--- a/LAPACKE/src/lapacke_dbdsvdx_work.c
+++ b/LAPACKE/src/lapacke_dbdsvdx_work.c
@@ -37,7 +37,7 @@ lapack_int LAPACKE_dbdsvdx_work( int matrix_layout, char uplo, char jobz, char r
                            		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* s, double* z, lapack_int ldz,
                                 double* work, lapack_int* iwork )
 {
     lapack_int info = 0;
diff --git a/LAPACKE/src/lapacke_dgesvdx_work.c b/LAPACKE/src/lapacke_dgesvdx_work.c
index 893cce0a..a5a2cb65 100644
--- a/LAPACKE/src/lapacke_dgesvdx_work.c
+++ b/LAPACKE/src/lapacke_dgesvdx_work.c
@@ -38,7 +38,7 @@ lapack_int LAPACKE_dgesvdx_work( int matrix_layout, char jobu, char jobvt, char
                           		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* vt, lapack_int ldvt,
                                 double* work, lapack_int lwork, lapack_int* iwork )
 {
     lapack_int info = 0;
diff --git a/LAPACKE/src/lapacke_dlarfb_work.c b/LAPACKE/src/lapacke_dlarfb_work.c
index 3fe48931..5c833db0 100644
--- a/LAPACKE/src/lapacke_dlarfb_work.c
+++ b/LAPACKE/src/lapacke_dlarfb_work.c
@@ -43,7 +43,7 @@ lapack_int LAPACKE_dlarfb_work( int matrix_layout, char side, char trans,
     lapack_int info = 0;
     lapack_int nrows_v, ncols_v;
     lapack_int ldc_t, ldt_t, ldv_t;
-    double *v_t = NULL, *t_t = NULL, *c_t = NULL; 
+    double *v_t = NULL, *t_t = NULL, *c_t = NULL;
     if( matrix_layout == LAPACK_COL_MAJOR ) {
         /* Call LAPACK function and adjust info */
         LAPACK_dlarfb( &side, &trans, &direct, &storev, &m, &n, &k, v, &ldv, t,
diff --git a/LAPACKE/src/lapacke_dlascl.c b/LAPACKE/src/lapacke_dlascl.c
index 9729389f..b35b9b28 100644
--- a/LAPACKE/src/lapacke_dlascl.c
+++ b/LAPACKE/src/lapacke_dlascl.c
@@ -34,8 +34,8 @@
 #include "lapacke_utils.h"
 
 lapack_int LAPACKE_dlascl( int matrix_layout, char type, lapack_int kl,
-                           lapack_int ku, double cfrom, double cto, 
-                           lapack_int m, lapack_int n, double* a, 
+                           lapack_int ku, double cfrom, double cto,
+                           lapack_int m, lapack_int n, double* a,
                            lapack_int lda )
 {
     if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) {
diff --git a/LAPACKE/src/lapacke_dlascl_work.c b/LAPACKE/src/lapacke_dlascl_work.c
index 95870dd7..a20bf09e 100644
--- a/LAPACKE/src/lapacke_dlascl_work.c
+++ b/LAPACKE/src/lapacke_dlascl_work.c
@@ -34,8 +34,8 @@
 #include "lapacke_utils.h"
 
 lapack_int LAPACKE_dlascl_work( int matrix_layout, char type, lapack_int kl,
-                           lapack_int ku, double cfrom, double cto, 
-                           lapack_int m, lapack_int n, double* a, 
+                           lapack_int ku, double cfrom, double cto,
+                           lapack_int m, lapack_int n, double* a,
                            lapack_int lda )
 {
     lapack_int info = 0;
diff --git a/LAPACKE/src/lapacke_dlaset.c b/LAPACKE/src/lapacke_dlaset.c
index 3a299e9b..c828485c 100644
--- a/LAPACKE/src/lapacke_dlaset.c
+++ b/LAPACKE/src/lapacke_dlaset.c
@@ -44,8 +44,8 @@ lapack_int LAPACKE_dlaset( int matrix_layout, char uplo, lapack_int m,
     }
 
 /*****************************************************************************
-*  Note: we do not check NaNs in A since the goal of this subroutine is to 
-*  initialized A. It is OK if A has NaNs in input. 
+*  Note: we do not check NaNs in A since the goal of this subroutine is to
+*  initialized A. It is OK if A has NaNs in input.
 *****************************************************************************/
 
 #ifndef LAPACK_DISABLE_NAN_CHECK
diff --git a/LAPACKE/src/lapacke_dorcsd2by1.c b/LAPACKE/src/lapacke_dorcsd2by1.c
index 7c71cd47..9ffed487 100644
--- a/LAPACKE/src/lapacke_dorcsd2by1.c
+++ b/LAPACKE/src/lapacke_dorcsd2by1.c
@@ -69,7 +69,7 @@ lapack_int LAPACKE_dorcsd2by1( int matrix_layout, char jobu1, char jobu2,
         goto exit_level_0;
     }
     /* Query optimal working array(s) size */
-    info = LAPACKE_dorcsd2by1_work( matrix_layout, jobu1, jobu2, jobv1t, m, p, q, 
+    info = LAPACKE_dorcsd2by1_work( matrix_layout, jobu1, jobu2, jobv1t, m, p, q,
                                 x11, ldx11, x21, ldx21, theta, u1, ldu1, u2,
                                 ldu2, v1t, ldv1t, &work_query,
                                 lwork, iwork );
@@ -84,7 +84,7 @@ lapack_int LAPACKE_dorcsd2by1( int matrix_layout, char jobu1, char jobu2,
         goto exit_level_1;
     }
     /* Call middle-level interface */
-    info = LAPACKE_dorcsd2by1_work( matrix_layout, jobu1, jobu2, jobv1t, m, p, q, 
+    info = LAPACKE_dorcsd2by1_work( matrix_layout, jobu1, jobu2, jobv1t, m, p, q,
                                 x11, ldx11, x21, ldx21, theta, u1, ldu1, u2,
                                 ldu2, v1t, ldv1t, work, lwork, iwork );
     /* Release memory and exit */
diff --git a/LAPACKE/src/lapacke_dorcsd2by1_work.c b/LAPACKE/src/lapacke_dorcsd2by1_work.c
index cea20f40..5cc39b1b 100644
--- a/LAPACKE/src/lapacke_dorcsd2by1_work.c
+++ b/LAPACKE/src/lapacke_dorcsd2by1_work.c
@@ -46,8 +46,8 @@ lapack_int LAPACKE_dorcsd2by1_work( int matrix_layout, char jobu1, char jobu2,
     if( matrix_layout == LAPACK_COL_MAJOR ) {
         /* Call LAPACK function and adjust info */
         LAPACK_dorcsd2by1( &jobu1, &jobu2, &jobv1t, &m, &p,
-                       &q, x11, &ldx11, x21, &ldx21, 
-                       theta, u1, &ldu1, u2, &ldu2, v1t, &ldv1t, 
+                       &q, x11, &ldx11, x21, &ldx21,
+                       theta, u1, &ldu1, u2, &ldu2, v1t, &ldv1t,
                        work, &lwork, iwork, &info );
         if( info < 0 ) {
             info = info - 1;
diff --git a/LAPACKE/src/lapacke_dsyconv.c b/LAPACKE/src/lapacke_dsyconv.c
index 39be12ef..086ab083 100644
--- a/LAPACKE/src/lapacke_dsyconv.c
+++ b/LAPACKE/src/lapacke_dsyconv.c
@@ -47,7 +47,7 @@ lapack_int LAPACKE_dsyconv( int matrix_layout, char uplo, char way, lapack_int n
         return -5;
     }
 #endif
-  
+
     /* Call middle-level interface */
     info = LAPACKE_dsyconv_work( matrix_layout, uplo, way, n, a, lda, ipiv,
                                  e );
diff --git a/LAPACKE/src/lapacke_dtprfb.c b/LAPACKE/src/lapacke_dtprfb.c
index 9db94653..7c4ce924 100644
--- a/LAPACKE/src/lapacke_dtprfb.c
+++ b/LAPACKE/src/lapacke_dtprfb.c
@@ -82,10 +82,10 @@ lapack_int LAPACKE_dtprfb( int matrix_layout, char side, char trans, char direct
     else {
        ldwork = m;
        work_size = MAX(1,ldwork) * MAX(1,k);
-       }    
+       }
     /* Allocate memory for working array(s) */
     work = (double*)
-    LAPACKE_malloc( sizeof(double) * work_size ); 
+    LAPACKE_malloc( sizeof(double) * work_size );
     if( work == NULL ) {
         info = LAPACK_WORK_MEMORY_ERROR;
         goto exit_level_0;
diff --git a/LAPACKE/src/lapacke_sbdsvdx_work.c b/LAPACKE/src/lapacke_sbdsvdx_work.c
index 214c412d..f632b3ea 100644
--- a/LAPACKE/src/lapacke_sbdsvdx_work.c
+++ b/LAPACKE/src/lapacke_sbdsvdx_work.c
@@ -37,7 +37,7 @@ lapack_int LAPACKE_sbdsvdx_work( int matrix_layout, char uplo, char jobz, char r
                            		lapack_int n, float* d, float* e,
                            		float vl, float vu,
                            		lapack_int il, lapack_int iu, lapack_int* ns,
-                           		float* s, float* z, lapack_int ldz,	
+                           		float* s, float* z, lapack_int ldz,
                                 float* work, lapack_int* iwork )
 {
     lapack_int info = 0;
diff --git a/LAPACKE/src/lapacke_sgesvdx_work.c b/LAPACKE/src/lapacke_sgesvdx_work.c
index 7bcf3b50..f7973f01 100644
--- a/LAPACKE/src/lapacke_sgesvdx_work.c
+++ b/LAPACKE/src/lapacke_sgesvdx_work.c
@@ -38,7 +38,7 @@ lapack_int LAPACKE_sgesvdx_work( int matrix_layout, char jobu, char jobvt, char
                           		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* vt, lapack_int ldvt,
                                 float* work, lapack_int lwork, lapack_int* iwork )
 {
     lapack_int info = 0;
@@ -94,7 +94,7 @@ lapack_int LAPACKE_sgesvdx_work( int matrix_layout, char jobu, char jobvt, char
             info = LAPACK_TRANSPOSE_MEMORY_ERROR;
             goto exit_level_0;
         }
-        if( LAPACKE_lsame( jobu, 'v' ) ) { 
+        if( LAPACKE_lsame( jobu, 'v' ) ) {
             u_t = (float*)
                 LAPACKE_malloc( sizeof(float) * ldu_t * MAX(1,ncols_u) );
             if( u_t == NULL ) {
@@ -102,7 +102,7 @@ lapack_int LAPACKE_sgesvdx_work( int matrix_layout, char jobu, char jobvt, char
                 goto exit_level_1;
             }
         }
-        if( LAPACKE_lsame( jobvt, 'v' ) ) { 
+        if( LAPACKE_lsame( jobvt, 'v' ) ) {
             vt_t = (float*)
                 LAPACKE_malloc( sizeof(float) * ldvt_t * MAX(1,n) );
             if( vt_t == NULL ) {
@@ -125,12 +125,12 @@ lapack_int LAPACKE_sgesvdx_work( int matrix_layout, char jobu, char jobvt, char
             LAPACKE_sge_trans( LAPACK_COL_MAJOR, nrows_u, ncols_u, u_t, ldu_t,
                                u, ldu );
         }
-        if( LAPACKE_lsame( jobvt, 'v' ) ) { 
+        if( LAPACKE_lsame( jobvt, 'v' ) ) {
             LAPACKE_sge_trans( LAPACK_COL_MAJOR, nrows_vt, n, vt_t, ldvt_t, vt,
                                ldvt );
         }
         /* Release memory and exit */
-        if( LAPACKE_lsame( jobvt, 'v' ) ) { 
+        if( LAPACKE_lsame( jobvt, 'v' ) ) {
             LAPACKE_free( vt_t );
         }
 exit_level_2:
diff --git a/LAPACKE/src/lapacke_slarfb_work.c b/LAPACKE/src/lapacke_slarfb_work.c
index 12b4c7b6..a537c394 100644
--- a/LAPACKE/src/lapacke_slarfb_work.c
+++ b/LAPACKE/src/lapacke_slarfb_work.c
@@ -43,7 +43,7 @@ lapack_int LAPACKE_slarfb_work( int matrix_layout, char side, char trans,
     lapack_int info = 0;
     lapack_int nrows_v, ncols_v;
     lapack_int ldc_t, ldt_t, ldv_t;
-    float *v_t = NULL, *t_t = NULL, *c_t = NULL; 
+    float *v_t = NULL, *t_t = NULL, *c_t = NULL;
     if( matrix_layout == LAPACK_COL_MAJOR ) {
         /* Call LAPACK function and adjust info */
         LAPACK_slarfb( &side, &trans, &direct, &storev, &m, &n, &k, v, &ldv, t,
diff --git a/LAPACKE/src/lapacke_slascl_work.c b/LAPACKE/src/lapacke_slascl_work.c
index e39db388..dac2a03f 100644
--- a/LAPACKE/src/lapacke_slascl_work.c
+++ b/LAPACKE/src/lapacke_slascl_work.c
@@ -34,8 +34,8 @@
 #include "lapacke_utils.h"
 
 lapack_int LAPACKE_slascl_work( int matrix_layout, char type, lapack_int kl,
-                           lapack_int ku, float cfrom, float cto, 
-                           lapack_int m, lapack_int n, float* a, 
+                           lapack_int ku, float cfrom, float cto,
+                           lapack_int m, lapack_int n, float* a,
                            lapack_int lda )
 {
     lapack_int info = 0;
diff --git a/LAPACKE/src/lapacke_slaset.c b/LAPACKE/src/lapacke_slaset.c
index 02af8724..2627d813 100644
--- a/LAPACKE/src/lapacke_slaset.c
+++ b/LAPACKE/src/lapacke_slaset.c
@@ -44,8 +44,8 @@ lapack_int LAPACKE_slaset( int matrix_layout, char uplo, lapack_int m,
     }
 
 /*****************************************************************************
-*  Note: we do not check NaNs in A since the goal of this subroutine is to 
-*  initialized A. It is OK if A has NaNs in input. 
+*  Note: we do not check NaNs in A since the goal of this subroutine is to
+*  initialized A. It is OK if A has NaNs in input.
 *****************************************************************************/
 
 #ifndef LAPACK_DISABLE_NAN_CHECK
diff --git a/LAPACKE/src/lapacke_sorcsd2by1.c b/LAPACKE/src/lapacke_sorcsd2by1.c
index b924897d..9c958af6 100644
--- a/LAPACKE/src/lapacke_sorcsd2by1.c
+++ b/LAPACKE/src/lapacke_sorcsd2by1.c
@@ -69,7 +69,7 @@ lapack_int LAPACKE_sorcsd2by1( int matrix_layout, char jobu1, char jobu2,
         goto exit_level_0;
     }
     /* Query optimal working array(s) size */
-    info = LAPACKE_sorcsd2by1_work( matrix_layout, jobu1, jobu2, jobv1t, m, p, q, 
+    info = LAPACKE_sorcsd2by1_work( matrix_layout, jobu1, jobu2, jobv1t, m, p, q,
                                 x11, ldx11, x21, ldx21, theta, u1, ldu1, u2,
                                 ldu2, v1t, ldv1t, &work_query,
                                 lwork, iwork );
@@ -84,7 +84,7 @@ lapack_int LAPACKE_sorcsd2by1( int matrix_layout, char jobu1, char jobu2,
         goto exit_level_1;
     }
     /* Call middle-level interface */
-    info = LAPACKE_sorcsd2by1_work( matrix_layout, jobu1, jobu2, jobv1t, m, p, q, 
+    info = LAPACKE_sorcsd2by1_work( matrix_layout, jobu1, jobu2, jobv1t, m, p, q,
                                 x11, ldx11, x21, ldx21, theta, u1, ldu1, u2,
                                 ldu2, v1t, ldv1t, work, lwork, iwork );
     /* Release memory and exit */
diff --git a/LAPACKE/src/lapacke_sorcsd2by1_work.c b/LAPACKE/src/lapacke_sorcsd2by1_work.c
index 5990a1e3..d361594c 100644
--- a/LAPACKE/src/lapacke_sorcsd2by1_work.c
+++ b/LAPACKE/src/lapacke_sorcsd2by1_work.c
@@ -46,8 +46,8 @@ lapack_int LAPACKE_sorcsd2by1_work( int matrix_layout, char jobu1, char jobu2,
     if( matrix_layout == LAPACK_COL_MAJOR ) {
         /* Call LAPACK function and adjust info */
         LAPACK_sorcsd2by1( &jobu1, &jobu2, &jobv1t, &m, &p,
-                       &q, x11, &ldx11, x21, &ldx21, 
-                       theta, u1, &ldu1, u2, &ldu2, v1t, &ldv1t, 
+                       &q, x11, &ldx11, x21, &ldx21,
+                       theta, u1, &ldu1, u2, &ldu2, v1t, &ldv1t,
                        work, &lwork, iwork, &info );
         if( info < 0 ) {
             info = info - 1;
diff --git a/LAPACKE/src/lapacke_ssyconv.c b/LAPACKE/src/lapacke_ssyconv.c
index 044a3dac..f7019669 100644
--- a/LAPACKE/src/lapacke_ssyconv.c
+++ b/LAPACKE/src/lapacke_ssyconv.c
@@ -47,7 +47,7 @@ lapack_int LAPACKE_ssyconv( int matrix_layout, char uplo, char way, lapack_int n
         return -5;
     }
 #endif
-   
+
     /* Call middle-level interface */
     info = LAPACKE_ssyconv_work( matrix_layout, uplo, way, n, a, lda, ipiv,
                                  e );
diff --git a/LAPACKE/src/lapacke_stprfb.c b/LAPACKE/src/lapacke_stprfb.c
index e9321854..13d0cc7e 100644
--- a/LAPACKE/src/lapacke_stprfb.c
+++ b/LAPACKE/src/lapacke_stprfb.c
@@ -82,7 +82,7 @@ lapack_int LAPACKE_stprfb( int matrix_layout, char side, char trans, char direct
     else {
        ldwork = m;
        work_size = MAX(1,ldwork) * MAX(1,k);
-       }    
+       }
         /* Allocate memory for working array(s) */
     work = (float*)
         LAPACKE_malloc( sizeof(float) * work_size );
diff --git a/LAPACKE/src/lapacke_zgejsv.c b/LAPACKE/src/lapacke_zgejsv.c
index 18761eaa..6eababe5 100644
--- a/LAPACKE/src/lapacke_zgejsv.c
+++ b/LAPACKE/src/lapacke_zgejsv.c
@@ -41,10 +41,10 @@ lapack_int LAPACKE_zgejsv( int matrix_layout, char joba, char jobu, char jobv,
 {
     lapack_int info = 0;
     lapack_int lwork = (
-    			// 1.1	   
+    			// 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( jobt, 't' ) ||  LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) )) ? n*n+3*n :
@@ -53,38 +53,38 @@ lapack_int LAPACKE_zgejsv( int matrix_layout, char joba, char jobu, char jobv,
     (	(	   ( 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( jobu, 'u' ) ||  LAPACKE_lsame( jobu, 'f' ) ) &&
               !( LAPACKE_lsame( jobt, 't' ) ||  LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) ))? 3*n :
-        
-               //3.1              
+
+               //3.1
      (   (      ( 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' ) ))?  3*n :
-                       
-               //3.2             
+
+               //3.2
      (   (      ( 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' ) ))?  3*n  :
-           
+
               //4.1
      (  (       ( 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' ) ))? 5*n+2*n*n :
-               
+
               //4.2
      (  (       ( 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' ) ))? 4*n*n: 
-                       1) ) ) ) ) ) ) ) );  
+               ( LAPACKE_lsame( jobt, 't' ) ||  LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) ))? 4*n*n:
+                       1) ) ) ) ) ) ) ) );
     lapack_int lrwork = (
-    			// 1.1	   
+    			// 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
      (   (        LAPACKE_lsame( jobu, 'n' ) &&  LAPACKE_lsame( jobv, 'n' ) &&
               !( LAPACKE_lsame( jobt, 't' ) ||  LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) )) ? MAX(7,2*n) :
@@ -93,28 +93,28 @@ lapack_int LAPACKE_zgejsv( int matrix_layout, char joba, char jobu, char jobv,
     (	(	   ( 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( jobu, 'u' ) ||  LAPACKE_lsame( jobu, 'f' ) ) &&
               !( LAPACKE_lsame( jobt, 't' ) ||  LAPACKE_lsame( joba, 'f' ) || LAPACKE_lsame( joba, 'g' ) ))? MAX(7,2*n) :
-        
-               //3.1              
+
+               //3.1
      (   (      ( 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, n+ 2*m ) :
-                       
-               //3.2             
+
+               //3.2
      (   (      ( 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)  :
-           
+
               //4.1
      (  (       ( 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, n+ 2*m ) :
-               
+
               //4.2
      (  (       ( LAPACKE_lsame( jobu, 'u' ) ||  LAPACKE_lsame( jobu, 'f' ) ) &&
                ( LAPACKE_lsame( jobv, 'v' ) ||  LAPACKE_lsame( jobv, 'j' ) ) &&
diff --git a/LAPACKE/src/lapacke_zgesvdx_work.c b/LAPACKE/src/lapacke_zgesvdx_work.c
index 24966943..3070687a 100644
--- a/LAPACKE/src/lapacke_zgesvdx_work.c
+++ b/LAPACKE/src/lapacke_zgesvdx_work.c
@@ -38,8 +38,8 @@ lapack_int LAPACKE_zgesvdx_work( int matrix_layout, char jobu, char jobvt, char
                           		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, 
+                           		lapack_complex_double* vt, lapack_int ldvt,
+                                lapack_complex_double* work, lapack_int lwork,
                                 double* rwork, lapack_int* iwork )
 {
     lapack_int info = 0;
diff --git a/LAPACKE/src/lapacke_zgesvj_work.c b/LAPACKE/src/lapacke_zgesvj_work.c
index d48a5f5e..37e6c1ee 100644
--- a/LAPACKE/src/lapacke_zgesvj_work.c
+++ b/LAPACKE/src/lapacke_zgesvj_work.c
@@ -34,8 +34,8 @@
 #include "lapacke_utils.h"
 
 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, 
+                                char jobv, lapack_int m, lapack_int n,
+                                lapack_complex_double* a, lapack_int lda,
                                 double* sva, lapack_int mv,
                                 lapack_complex_double* v, lapack_int ldv,
                                 lapack_complex_double* cwork, lapack_int lwork,
diff --git a/LAPACKE/src/lapacke_zlarfb_work.c b/LAPACKE/src/lapacke_zlarfb_work.c
index 9580f593..8e92e17b 100644
--- a/LAPACKE/src/lapacke_zlarfb_work.c
+++ b/LAPACKE/src/lapacke_zlarfb_work.c
@@ -44,7 +44,7 @@ lapack_int LAPACKE_zlarfb_work( int matrix_layout, char side, char trans,
     lapack_int info = 0;
     lapack_int nrows_v, ncols_v;
     lapack_int ldc_t, ldt_t, ldv_t;
-    lapack_complex_double *v_t = NULL, *t_t = NULL, *c_t = NULL; 
+    lapack_complex_double *v_t = NULL, *t_t = NULL, *c_t = NULL;
     if( matrix_layout == LAPACK_COL_MAJOR ) {
         /* Call LAPACK function and adjust info */
         LAPACK_zlarfb( &side, &trans, &direct, &storev, &m, &n, &k, v, &ldv, t,
diff --git a/LAPACKE/src/lapacke_zlascl.c b/LAPACKE/src/lapacke_zlascl.c
index a0d382f1..de4b9c21 100644
--- a/LAPACKE/src/lapacke_zlascl.c
+++ b/LAPACKE/src/lapacke_zlascl.c
@@ -34,8 +34,8 @@
 #include "lapacke_utils.h"
 
 lapack_int LAPACKE_zlascl( int matrix_layout, char type, lapack_int kl,
-                           lapack_int ku, double cfrom, double cto, 
-                           lapack_int m, lapack_int n, lapack_complex_double* a, 
+                           lapack_int ku, double cfrom, double cto,
+                           lapack_int m, lapack_int n, lapack_complex_double* a,
                            lapack_int lda )
 {
     if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) {
diff --git a/LAPACKE/src/lapacke_zlascl_work.c b/LAPACKE/src/lapacke_zlascl_work.c
index 44775d93..7adfbc9e 100644
--- a/LAPACKE/src/lapacke_zlascl_work.c
+++ b/LAPACKE/src/lapacke_zlascl_work.c
@@ -34,8 +34,8 @@
 #include "lapacke_utils.h"
 
 lapack_int LAPACKE_zlascl_work( int matrix_layout, char type, lapack_int kl,
-                           lapack_int ku, double cfrom, double cto, 
-                           lapack_int m, lapack_int n, lapack_complex_double* a, 
+                           lapack_int ku, double cfrom, double cto,
+                           lapack_int m, lapack_int n, lapack_complex_double* a,
                            lapack_int lda )
 {
     lapack_int info = 0;
diff --git a/LAPACKE/src/lapacke_zlaset.c b/LAPACKE/src/lapacke_zlaset.c
index 7de38f00..669ebc0a 100644
--- a/LAPACKE/src/lapacke_zlaset.c
+++ b/LAPACKE/src/lapacke_zlaset.c
@@ -45,8 +45,8 @@ lapack_int LAPACKE_zlaset( int matrix_layout, char uplo, lapack_int m,
     }
 
 /*****************************************************************************
-*  Note: we do not check NaNs in A since the goal of this subroutine is to 
-*  initialized A. It is OK if A has NaNs in input. 
+*  Note: we do not check NaNs in A since the goal of this subroutine is to
+*  initialized A. It is OK if A has NaNs in input.
 *****************************************************************************/
 
 
diff --git a/LAPACKE/src/lapacke_ztprfb.c b/LAPACKE/src/lapacke_ztprfb.c
index 944ca25e..b6894e8f 100644
--- a/LAPACKE/src/lapacke_ztprfb.c
+++ b/LAPACKE/src/lapacke_ztprfb.c
@@ -84,11 +84,11 @@ lapack_int LAPACKE_ztprfb( int matrix_layout, char side, char trans, char direct
     else {
        ldwork = m;
        work_size = MAX(1,ldwork) * MAX(1,k);
-       }    
-    
+       }
+
     /* Allocate memory for working array(s) */
     work = (lapack_complex_double*)
-    LAPACKE_malloc( sizeof(lapack_complex_double) * work_size ); 
+    LAPACKE_malloc( sizeof(lapack_complex_double) * work_size );
     if( work == NULL ) {
         info = LAPACK_WORK_MEMORY_ERROR;
         goto exit_level_0;
diff --git a/LAPACKE/src/lapacke_zuncsd2by1.c b/LAPACKE/src/lapacke_zuncsd2by1.c
index 65e6bd5c..f5dbd55b 100644
--- a/LAPACKE/src/lapacke_zuncsd2by1.c
+++ b/LAPACKE/src/lapacke_zuncsd2by1.c
@@ -74,7 +74,7 @@ lapack_int LAPACKE_zuncsd2by1( int matrix_layout, char jobu1, char jobu2,
         goto exit_level_0;
     }
     /* Query optimal working array(s) size */
-    info = LAPACKE_zuncsd2by1_work( matrix_layout, jobu1, jobu2, jobv1t, m, p, q, 
+    info = LAPACKE_zuncsd2by1_work( matrix_layout, jobu1, jobu2, jobv1t, m, p, q,
                                 x11, ldx11, x21, ldx21, theta, u1, ldu1, u2,
                                 ldu2, v1t, ldv1t, &work_query,
                                 lwork, &rwork_query, lrwork, iwork );
@@ -95,7 +95,7 @@ lapack_int LAPACKE_zuncsd2by1( int matrix_layout, char jobu1, char jobu2,
         goto exit_level_2;
     }
     /* Call middle-level interface */
-    info = LAPACKE_zuncsd2by1_work( matrix_layout, jobu1, jobu2, jobv1t, m, p, q, 
+    info = LAPACKE_zuncsd2by1_work( matrix_layout, jobu1, jobu2, jobv1t, m, p, q,
                                 x11, ldx11, x21, ldx21, theta, u1, ldu1, u2,
                                 ldu2, v1t, ldv1t, work, lwork, rwork, lrwork, iwork );
     /* Release memory and exit */
diff --git a/LAPACKE/src/lapacke_zuncsd2by1_work.c b/LAPACKE/src/lapacke_zuncsd2by1_work.c
index 9f0ad5fa..6d329610 100644
--- a/LAPACKE/src/lapacke_zuncsd2by1_work.c
+++ b/LAPACKE/src/lapacke_zuncsd2by1_work.c
@@ -38,9 +38,9 @@ lapack_int LAPACKE_zuncsd2by1_work( int matrix_layout, char jobu1, char jobu2,
                                 lapack_int q, lapack_complex_double* x11, lapack_int ldx11,
                                 lapack_complex_double* x21, lapack_int ldx21,
                                 double* theta, lapack_complex_double* u1,
-                                lapack_int ldu1, lapack_complex_double* u2, 
+                                lapack_int ldu1, lapack_complex_double* u2,
                                 lapack_int ldu2, lapack_complex_double* v1t,
-                                lapack_int ldv1t, lapack_complex_double* work, 
+                                lapack_int ldv1t, lapack_complex_double* work,
                                 lapack_int lwork, double* rwork, lapack_int lrwork,
                                 lapack_int* iwork )
 {
@@ -48,8 +48,8 @@ lapack_int LAPACKE_zuncsd2by1_work( int matrix_layout, char jobu1, char jobu2,
     if( matrix_layout == LAPACK_COL_MAJOR ) {
         /* Call LAPACK function and adjust info */
         LAPACK_zuncsd2by1( &jobu1, &jobu2, &jobv1t, &m, &p,
-                       &q, x11, &ldx11, x21, &ldx21, 
-                       theta, u1, &ldu1, u2, &ldu2, v1t, &ldv1t, 
+                       &q, x11, &ldx11, x21, &ldx21,
+                       theta, u1, &ldu1, u2, &ldu2, v1t, &ldv1t,
                        work, &lwork, rwork, &lrwork, iwork, &info );
         if( info < 0 ) {
             info = info - 1;