Browse Source
Merge pull request #4053 from martin-frbg/lapack768
Fix segfault on running lapacke_?geqrt with row major data (Reference-LAPACK PR 768)tags/v0.3.24
Martin Kroeker
GitHub
3 years ago
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
4 changed files with 4 additions and 4 deletions
Unified View
Diff Options
-
+1 -1lapack-netlib/LAPACKE/src/lapacke_cgeqrt_work.c
-
+1 -1lapack-netlib/LAPACKE/src/lapacke_dgeqrt_work.c
-
+1 -1lapack-netlib/LAPACKE/src/lapacke_sgeqrt_work.c
-
+1 -1lapack-netlib/LAPACKE/src/lapacke_zgeqrt_work.c
+ 1
- 1
lapack-netlib/LAPACKE/src/lapacke_cgeqrt_work.c
View File
| @@ -83,7 +83,7 @@ lapack_int LAPACKE_cgeqrt_work( int matrix_layout, lapack_int m, lapack_int n, | |||||
| } | } | ||||
| /* Transpose output matrices */ | /* Transpose output matrices */ | ||||
| LAPACKE_cge_trans( LAPACK_COL_MAJOR, m, n, a_t, lda_t, a, lda ); | LAPACKE_cge_trans( LAPACK_COL_MAJOR, m, n, a_t, lda_t, a, lda ); | ||||
| LAPACKE_cge_trans( LAPACK_COL_MAJOR, ldt, MIN(m,n), t_t, ldt_t, t, | |||||
| LAPACKE_cge_trans( LAPACK_COL_MAJOR, nb, MIN(m,n), t_t, ldt_t, t, | |||||
| ldt ); | ldt ); | ||||
| /* Release memory and exit */ | /* Release memory and exit */ | ||||
| LAPACKE_free( t_t ); | LAPACKE_free( t_t ); | ||||
+ 1
- 1
lapack-netlib/LAPACKE/src/lapacke_dgeqrt_work.c
View File
| @@ -80,7 +80,7 @@ lapack_int LAPACKE_dgeqrt_work( int matrix_layout, lapack_int m, lapack_int n, | |||||
| } | } | ||||
| /* Transpose output matrices */ | /* Transpose output matrices */ | ||||
| LAPACKE_dge_trans( LAPACK_COL_MAJOR, m, n, a_t, lda_t, a, lda ); | LAPACKE_dge_trans( LAPACK_COL_MAJOR, m, n, a_t, lda_t, a, lda ); | ||||
| LAPACKE_dge_trans( LAPACK_COL_MAJOR, ldt, MIN(m,n), t_t, ldt_t, t, | |||||
| LAPACKE_dge_trans( LAPACK_COL_MAJOR, nb, MIN(m,n), t_t, ldt_t, t, | |||||
| ldt ); | ldt ); | ||||
| /* Release memory and exit */ | /* Release memory and exit */ | ||||
| LAPACKE_free( t_t ); | LAPACKE_free( t_t ); | ||||
+ 1
- 1
lapack-netlib/LAPACKE/src/lapacke_sgeqrt_work.c
View File
| @@ -79,7 +79,7 @@ lapack_int LAPACKE_sgeqrt_work( int matrix_layout, lapack_int m, lapack_int n, | |||||
| } | } | ||||
| /* Transpose output matrices */ | /* Transpose output matrices */ | ||||
| LAPACKE_sge_trans( LAPACK_COL_MAJOR, m, n, a_t, lda_t, a, lda ); | LAPACKE_sge_trans( LAPACK_COL_MAJOR, m, n, a_t, lda_t, a, lda ); | ||||
| LAPACKE_sge_trans( LAPACK_COL_MAJOR, ldt, MIN(m,n), t_t, ldt_t, t, | |||||
| LAPACKE_sge_trans( LAPACK_COL_MAJOR, nb, MIN(m,n), t_t, ldt_t, t, | |||||
| ldt ); | ldt ); | ||||
| /* Release memory and exit */ | /* Release memory and exit */ | ||||
| LAPACKE_free( t_t ); | LAPACKE_free( t_t ); | ||||
+ 1
- 1
lapack-netlib/LAPACKE/src/lapacke_zgeqrt_work.c
View File
| @@ -83,7 +83,7 @@ lapack_int LAPACKE_zgeqrt_work( int matrix_layout, lapack_int m, lapack_int n, | |||||
| } | } | ||||
| /* Transpose output matrices */ | /* Transpose output matrices */ | ||||
| LAPACKE_zge_trans( LAPACK_COL_MAJOR, m, n, a_t, lda_t, a, lda ); | LAPACKE_zge_trans( LAPACK_COL_MAJOR, m, n, a_t, lda_t, a, lda ); | ||||
| LAPACKE_zge_trans( LAPACK_COL_MAJOR, ldt, MIN(m,n), t_t, ldt_t, t, | |||||
| LAPACKE_zge_trans( LAPACK_COL_MAJOR, nb, MIN(m,n), t_t, ldt_t, t, | |||||
| ldt ); | ldt ); | ||||
| /* Release memory and exit */ | /* Release memory and exit */ | ||||
| LAPACKE_free( t_t ); | LAPACKE_free( t_t ); | ||||