Browse Source

Update lapacke_dgesdd_work.c

pull/5307/head
Martin Kroeker GitHub 1 year ago
parent
commit
1521778f53
No known key found for this signature in database GPG Key ID: B5690EEEBB952194
1 changed files with 1 additions and 1 deletions
  1. +1
    -1
      lapack-netlib/LAPACKE/src/lapacke_dgesdd_work.c

+ 1
- 1
lapack-netlib/LAPACKE/src/lapacke_dgesdd_work.c View File

@@ -57,7 +57,7 @@ lapack_int LAPACKE_dgesdd_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);


Loading…
Cancel
Save