From 4cf6f4689a48b93c25589cb05e616608f66afd36 Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Sun, 15 Jun 2025 20:23:38 +0200 Subject: [PATCH] Update lapacke_sgesdd_work.c --- lapack-netlib/LAPACKE/src/lapacke_sgesdd_work.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgesdd_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgesdd_work.c index e9deafc2a..4cfb91f33 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgesdd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgesdd_work.c @@ -57,7 +57,7 @@ lapack_int LAPACKE_sgesdd_work( int matrix_layout, char jobz, lapack_int m, ( LAPACKE_lsame( jobz, 'o' ) && m>=n) ) ? n : ( LAPACKE_lsame( jobz, 's' ) ? MIN(m,n) : 1); lapack_int ncols_vt = ( LAPACKE_lsame( jobz, 'a' ) || - ( LAPACKE_lsame( jobz, 's' ) || + LAPACKE_lsame( jobz, 's' ) || ( LAPACKE_lsame( jobz, 'o' && m >=n) ) ? n : 1); lapack_int lda_t = MAX(1,m); lapack_int ldu_t = MAX(1,nrows_u);