diff options
author | julie <julielangou@users.noreply.github.com> | 2015-11-04 05:34:49 +0000 |
---|---|---|
committer | julie <julielangou@users.noreply.github.com> | 2015-11-04 05:34:49 +0000 |
commit | bdab3e8a693f049fd97892c1639e52f91dccba63 (patch) | |
tree | ba3808a965537fa758454076d32183d889c3b519 /LAPACKE/src | |
parent | a3177c4b056220a4cec454c13c8b660dd87facb0 (diff) | |
download | lapack-bdab3e8a693f049fd97892c1639e52f91dccba63.tar.gz lapack-bdab3e8a693f049fd97892c1639e52f91dccba63.tar.bz2 lapack-bdab3e8a693f049fd97892c1639e52f91dccba63.zip |
Fix some typos..
Diffstat (limited to 'LAPACKE/src')
-rw-r--r-- | LAPACKE/src/lapacke_clascl.c | 4 | ||||
-rw-r--r-- | LAPACKE/src/lapacke_zlascl.c | 4 | ||||
-rw-r--r-- | LAPACKE/src/lapacke_zuncsd2by1.c | 4 | ||||
-rw-r--r-- | LAPACKE/src/lapacke_zuncsd2by1_work.c | 14 |
4 files changed, 13 insertions, 13 deletions
diff --git a/LAPACKE/src/lapacke_clascl.c b/LAPACKE/src/lapacke_clascl.c index 71924bf7..b687fca4 100644 --- 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 500a3666..0b5d2584 100644 --- 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 1dfd3679..061cc497 100644 --- 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 a3b3f853..562be7af 100644 --- 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 */ |