floraachy
/
OpenBLAS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add missing break statements in the ?lascl functions

This commit is contained in:
Martin Kroeker 2021-04-28 20:56:55 +02:00 committed by GitHub
parent 6b76066632
commit 3704f5e5b0
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
4 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lapack-netlib/LAPACKE/src/lapacke_clascl.c
View File

@ -83,6 +83,7 @@ lapack_int LAPACKE_clascl( int matrix_layout, char type, lapack_int kl,
LAPACKE_cgb_nancheck( LAPACK_COL_MAJOR, n, m, n-1, 1, a-1, lda+1 ) ) { LAPACKE_cgb_nancheck( LAPACK_COL_MAJOR, n, m, n-1, 1, a-1, lda+1 ) ) {
return -9; return -9;
} }
break;
case 'B': case 'B':
// TYPE = 'B' - lower part of symmetric band matrix (assume m==n) // TYPE = 'B' - lower part of symmetric band matrix (assume m==n)
if( LAPACKE_chb_nancheck( matrix_layout, 'L', n, kl, a, lda ) ) { if( LAPACKE_chb_nancheck( matrix_layout, 'L', n, kl, a, lda ) ) {

1
lapack-netlib/LAPACKE/src/lapacke_dlascl.c
View File

@ -83,6 +83,7 @@ lapack_int LAPACKE_dlascl( int matrix_layout, char type, lapack_int kl,
LAPACKE_dgb_nancheck( LAPACK_COL_MAJOR, n, m, n-1, 1, a-1, lda+1 ) ) { LAPACKE_dgb_nancheck( LAPACK_COL_MAJOR, n, m, n-1, 1, a-1, lda+1 ) ) {
return -9; return -9;
} }
break;
case 'B': case 'B':
// TYPE = 'B' - lower part of symmetric band matrix (assume m==n) // TYPE = 'B' - lower part of symmetric band matrix (assume m==n)
if( LAPACKE_dsb_nancheck( matrix_layout, 'L', n, kl, a, lda ) ) { if( LAPACKE_dsb_nancheck( matrix_layout, 'L', n, kl, a, lda ) ) {

1
lapack-netlib/LAPACKE/src/lapacke_slascl.c
View File

@ -83,6 +83,7 @@ lapack_int LAPACKE_slascl( int matrix_layout, char type, lapack_int kl,
LAPACKE_sgb_nancheck( LAPACK_COL_MAJOR, n, m, n-1, 1, a-1, lda+1 ) ) { LAPACKE_sgb_nancheck( LAPACK_COL_MAJOR, n, m, n-1, 1, a-1, lda+1 ) ) {
return -9; return -9;
} }
break;
case 'B': case 'B':
// TYPE = 'B' - lower part of symmetric band matrix (assume m==n) // TYPE = 'B' - lower part of symmetric band matrix (assume m==n)
if( LAPACKE_ssb_nancheck( matrix_layout, 'L', n, kl, a, lda ) ) { if( LAPACKE_ssb_nancheck( matrix_layout, 'L', n, kl, a, lda ) ) {

1
lapack-netlib/LAPACKE/src/lapacke_zlascl.c
View File

@ -83,6 +83,7 @@ lapack_int LAPACKE_zlascl( int matrix_layout, char type, lapack_int kl,
LAPACKE_zgb_nancheck( LAPACK_COL_MAJOR, n, m, n-1, 1, a-1, lda+1 ) ) { LAPACKE_zgb_nancheck( LAPACK_COL_MAJOR, n, m, n-1, 1, a-1, lda+1 ) ) {
return -9; return -9;
} }
break;
case 'B': case 'B':
// TYPE = 'B' - lower part of symmetric band matrix (assume m==n) // TYPE = 'B' - lower part of symmetric band matrix (assume m==n)
if( LAPACKE_zhb_nancheck( matrix_layout, 'L', n, kl, a, lda ) ) { if( LAPACKE_zhb_nancheck( matrix_layout, 'L', n, kl, a, lda ) ) {