Fix some typos..

diff --git a/LAPACKE/src/lapacke_clascl.c b/LAPACKE/src/lapacke_clascl.c
index 71924bf..b687fca 100644 (file)
--- a/LAPACKE/src/lapacke_clascl.c
+++ b/LAPACKE/src/lapacke_clascl.c
@@ -72,7 +72,7 @@ lapack_int LAPACKE_clascl( int matrix_layout, char type, lapack_int kl,
        // TYPE = 'B' - A is a symmetric band matrix with lower bandwidth KL
        //             and upper bandwidth KU and with the only the lower
        //             half stored.   
-       if( LAPACKE_csb_nancheck( matrix_layout, 'L', n, kl, a, lda ) ) {
+       if( LAPACKE_chb_nancheck( matrix_layout, 'L', n, kl, a, lda ) ) {
            return -9;
            }
          break;
@@ -80,7 +80,7 @@ lapack_int LAPACKE_clascl( int matrix_layout, char type, lapack_int kl,
        // TYPE = 'Q' - A is a symmetric band matrix with lower bandwidth KL
        //             and upper bandwidth KU and with the only the upper
        //             half stored.   
-       if( LAPACKE_csb_nancheck( matrix_layout, 'U', n, ku, a, lda ) ) {
+       if( LAPACKE_chb_nancheck( matrix_layout, 'U', n, ku, a, lda ) ) {
            return -9;
            }
         break;

diff --git a/LAPACKE/src/lapacke_zlascl.c b/LAPACKE/src/lapacke_zlascl.c
index 500a366..0b5d258 100644 (file)
--- a/LAPACKE/src/lapacke_zlascl.c
+++ b/LAPACKE/src/lapacke_zlascl.c
@@ -72,7 +72,7 @@ lapack_int LAPACKE_zlascl( int matrix_layout, char type, lapack_int kl,
        // TYPE = 'B' - A is a symmetric band matrix with lower bandwidth KL
        //             and upper bandwidth KU and with the only the lower
        //             half stored.   
-       if( LAPACKE_zsb_nancheck( matrix_layout, 'L', n, kl, a, lda ) ) {
+       if( LAPACKE_zhb_nancheck( matrix_layout, 'L', n, kl, a, lda ) ) {
            return -9;
            }
          break;
@@ -80,7 +80,7 @@ lapack_int LAPACKE_zlascl( int matrix_layout, char type, lapack_int kl,
        // TYPE = 'Q' - A is a symmetric band matrix with lower bandwidth KL
        //             and upper bandwidth KU and with the only the upper
        //             half stored.   
-       if( LAPACKE_zsb_nancheck( matrix_layout, 'U', n, ku, a, lda ) ) {
+       if( LAPACKE_zhb_nancheck( matrix_layout, 'U', n, ku, a, lda ) ) {
            return -9;
            }
         break;

diff --git a/LAPACKE/src/lapacke_zuncsd2by1.c b/LAPACKE/src/lapacke_zuncsd2by1.c
index 1dfd367..061cc49 100644 (file)
--- a/LAPACKE/src/lapacke_zuncsd2by1.c
+++ b/LAPACKE/src/lapacke_zuncsd2by1.c
@@ -58,11 +58,11 @@ lapack_int LAPACKE_zuncsd2by1( int matrix_layout, char jobu1, char jobu2,
     /* Optionally check input matrices for NaNs */
     nrows_x11 =  p ;
     nrows_x21 =  m-p ;
-    if( LAPACKE_Zge_nancheck( matrix_layout, nrows_x11, q, x11, ldx11 ) ) {
+    if( LAPACKE_zge_nancheck( matrix_layout, nrows_x11, q, x11, ldx11 ) ) {
         return -8;
     }
 
-    if( LAPACKE_Zge_nancheck( matrix_layout, nrows_x21, q, x21, ldx21 ) ) {
+    if( LAPACKE_zge_nancheck( matrix_layout, nrows_x21, q, x21, ldx21 ) ) {
         return -9;
     }
 

diff --git a/LAPACKE/src/lapacke_zuncsd2by1_work.c b/LAPACKE/src/lapacke_zuncsd2by1_work.c
index a3b3f85..562be7a 100644 (file)
--- a/LAPACKE/src/lapacke_zuncsd2by1_work.c
+++ b/LAPACKE/src/lapacke_zuncsd2by1_work.c
@@ -140,9 +140,9 @@ lapack_int LAPACKE_zuncsd2by1_work( int matrix_layout, char jobu1, char jobu2,
             }
         }
         /* Transpose input matrices */
-        LAPACKE_Zge_trans( matrix_layout, nrows_x11, q, x11, ldx11, x11_t,
+        LAPACKE_zge_trans( matrix_layout, nrows_x11, q, x11, ldx11, x11_t,
                            ldx11_t );
-        LAPACKE_Zge_trans( matrix_layout, nrows_x21, q, x21, ldx21, x21_t,
+        LAPACKE_zge_trans( matrix_layout, nrows_x21, q, x21, ldx21, x21_t,
                            ldx21_t );
         /* Call LAPACK function and adjust info */
         LAPACK_zuncsd2by1( &jobu1, &jobu2, &jobv1t, &m, &p,
@@ -153,20 +153,20 @@ lapack_int LAPACKE_zuncsd2by1_work( int matrix_layout, char jobu1, char jobu2,
             info = info - 1;
         }
         /* Transpose output matrices */
-        LAPACKE_Zge_trans( LAPACK_COL_MAJOR, nrows_x11, q, x11_t, ldx11_t, x11,
+        LAPACKE_zge_trans( LAPACK_COL_MAJOR, nrows_x11, q, x11_t, ldx11_t, x11,
                            ldx11 );
-        LAPACKE_Zge_trans( LAPACK_COL_MAJOR, nrows_x21, q, x21_t, ldx21_t, x21,
+        LAPACKE_zge_trans( LAPACK_COL_MAJOR, nrows_x21, q, x21_t, ldx21_t, x21,
                            ldx21 );
         if( LAPACKE_lsame( jobu1, 'y' ) ) {
-            LAPACKE_Zge_trans( LAPACK_COL_MAJOR, nrows_u1, p, u1_t, ldu1_t, u1,
+            LAPACKE_zge_trans( LAPACK_COL_MAJOR, nrows_u1, p, u1_t, ldu1_t, u1,
                                ldu1 );
         }
         if( LAPACKE_lsame( jobu2, 'y' ) ) {
-            LAPACKE_Zge_trans( LAPACK_COL_MAJOR, nrows_u2, m-p, u2_t, ldu2_t,
+            LAPACKE_zge_trans( LAPACK_COL_MAJOR, nrows_u2, m-p, u2_t, ldu2_t,
                                u2, ldu2 );
         }
         if( LAPACKE_lsame( jobv1t, 'y' ) ) {
-            LAPACKE_Zge_trans( LAPACK_COL_MAJOR, nrows_v1t, q, v1t_t, ldv1t_t,
+            LAPACKE_zge_trans( LAPACK_COL_MAJOR, nrows_v1t, q, v1t_t, ldv1t_t,
                                v1t, ldv1t );
         }
         /* Release memory and exit */