phynexis-deps/lapack
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Apply patch from Nadezhda Mozartova from Intel. (Sent to Julien on November

Browse Source 
20th.) Thanks Nadezhda! Thanks Intel!
This commit is contained in:
langou
2013-11-25 23:47:55 +00:00
parent 89e6d08cb3
commit f27b681ff5
4 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
lapacke/src/lapacke_cgesdd_work.c
+1 -1
View File
@@ -57,7 +57,7 @@ lapack_int LAPACKE_cgesdd_work( int matrix_order, char jobz, lapack_int m,
( LAPACKE_lsame( jobz, 'o' ) && m<n) ) ? m :
( LAPACKE_lsame( jobz, 's' ) ? MIN(m,n) : 1);
lapack_int nrows_vt = ( LAPACKE_lsame( jobz, 'a' ) ||
( LAPACKE_lsame( jobz, 'o' ) && m<n) ) ? n :
( LAPACKE_lsame( jobz, 'o' ) && m>=n) ) ? n :
( LAPACKE_lsame( jobz, 's' ) ? MIN(m,n) : 1);
lapack_int lda_t = MAX(1,m);
lapack_int ldu_t = MAX(1,nrows_u);
lapacke/src/lapacke_dgesdd_work.c
+1 -1
View File
@@ -55,7 +55,7 @@ lapack_int LAPACKE_dgesdd_work( int matrix_order, char jobz, lapack_int m,
( LAPACKE_lsame( jobz, 'o' ) && m<n) ) ? m :
( LAPACKE_lsame( jobz, 's' ) ? MIN(m,n) : 1);
lapack_int nrows_vt = ( LAPACKE_lsame( jobz, 'a' ) ||
( LAPACKE_lsame( jobz, 'o' ) && m<n) ) ? n :
( LAPACKE_lsame( jobz, 'o' ) && m>=n) ) ? n :
( LAPACKE_lsame( jobz, 's' ) ? MIN(m,n) : 1);
lapack_int lda_t = MAX(1,m);
lapack_int ldu_t = MAX(1,nrows_u);
lapacke/src/lapacke_sgesdd_work.c
+1 -1
View File
@@ -55,7 +55,7 @@ lapack_int LAPACKE_sgesdd_work( int matrix_order, char jobz, lapack_int m,
( LAPACKE_lsame( jobz, 'o' ) && m<n) ) ? m :
( LAPACKE_lsame( jobz, 's' ) ? MIN(m,n) : 1);
lapack_int nrows_vt = ( LAPACKE_lsame( jobz, 'a' ) ||
( LAPACKE_lsame( jobz, 'o' ) && m<n) ) ? n :
( LAPACKE_lsame( jobz, 'o' ) && m>=n) ) ? n :
( LAPACKE_lsame( jobz, 's' ) ? MIN(m,n) : 1);
lapack_int lda_t = MAX(1,m);
lapack_int ldu_t = MAX(1,nrows_u);
lapacke/src/lapacke_zgesdd_work.c
+1 -1
View File
@@ -57,7 +57,7 @@ lapack_int LAPACKE_zgesdd_work( int matrix_order, char jobz, lapack_int m,
( LAPACKE_lsame( jobz, 'o' ) && m<n) ) ? m :
( LAPACKE_lsame( jobz, 's' ) ? MIN(m,n) : 1);
lapack_int nrows_vt = ( LAPACKE_lsame( jobz, 'a' ) ||
( LAPACKE_lsame( jobz, 'o' ) && m<n) ) ? n :
( LAPACKE_lsame( jobz, 'o' ) && m>=n) ) ? n :
( LAPACKE_lsame( jobz, 's' ) ? MIN(m,n) : 1);
lapack_int lda_t = MAX(1,m);
lapack_int ldu_t = MAX(1,nrows_u);