OpenMathLib/OpenBLAS
1
0
Fork 0
mirror of https://github.com/OpenMathLib/OpenBLAS synced 2026-05-31 00:45:48 +08:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

fix dimension used in nancheck (Reference-LAPACK PR 1135)

Browse Source
This commit is contained in:
Martin Kroeker
2025-06-15 19:16:58 +02:00
committed by GitHub
parent 2a6beac88f
commit f4e5177050
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lapack-netlib/LAPACKE/src/lapacke_zunmlq.c
View File

@@ -48,8 +48,10 @@ lapack_int LAPACKE_zunmlq( int matrix_layout, char side, char trans,
}
#ifndef LAPACK_DISABLE_NAN_CHECK
if( LAPACKE_get_nancheck() ) {
lapack_int r;
/* Optionally check input matrices for NaNs */
if( LAPACKE_zge_nancheck( matrix_layout, k, m, a, lda ) ) {
r = LAPACKE_lsame( side, 'l' ) ? m : n;
if( LAPACKE_zge_nancheck( matrix_layout, k, r, a, lda ) ) {
return -7;
}
if( LAPACKE_zge_nancheck( matrix_layout, m, n, c, ldc ) ) {