floraachy
/
OpenBLAS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge pull request #3840 from martin-frbg/lapack760 

Fix typo in EIG tests and spurious return in lapacke_?tz_trans utility (Reference-LAPACK PR760)
This commit is contained in:
Martin Kroeker 2022-11-23 19:16:25 +01:00 committed by GitHub
parent 663bf68dbd c2ba4e6249
commit bf0e8d67b5
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
6 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lapack-netlib/LAPACKE/utils/lapacke_ctz_trans.c
View File

@ -147,7 +147,7 @@ void LAPACKE_ctz_trans( int matrix_layout, char direct, char uplo,
} }
/* Copy & transpose triangular part */ /* Copy & transpose triangular part */
return LAPACKE_ctr_trans( matrix_layout, uplo, diag, tri_n, LAPACKE_ctr_trans( matrix_layout, uplo, diag, tri_n,
&in[tri_in_offset], ldin, &in[tri_in_offset], ldin,
&out[tri_out_offset], ldout ); &out[tri_out_offset], ldout );
} }

6
lapack-netlib/LAPACKE/utils/lapacke_dtz_trans.c
View File

@ -147,7 +147,7 @@ void LAPACKE_dtz_trans( int matrix_layout, char direct, char uplo,
} }
/* Copy & transpose triangular part */ /* Copy & transpose triangular part */
return LAPACKE_dtr_trans( matrix_layout, uplo, diag, tri_n, LAPACKE_dtr_trans( matrix_layout, uplo, diag, tri_n,
&in[tri_in_offset], ldin, &in[tri_in_offset], ldin,
&out[tri_out_offset], ldout ); &out[tri_out_offset], ldout );
} }

6
lapack-netlib/LAPACKE/utils/lapacke_stz_trans.c
View File

@ -147,7 +147,7 @@ void LAPACKE_stz_trans( int matrix_layout, char direct, char uplo,
} }
/* Copy & transpose triangular part */ /* Copy & transpose triangular part */
return LAPACKE_str_trans( matrix_layout, uplo, diag, tri_n, LAPACKE_str_trans( matrix_layout, uplo, diag, tri_n,
&in[tri_in_offset], ldin, &in[tri_in_offset], ldin,
&out[tri_out_offset], ldout ); &out[tri_out_offset], ldout );
} }

6
lapack-netlib/LAPACKE/utils/lapacke_ztz_trans.c
View File

@ -147,7 +147,7 @@ void LAPACKE_ztz_trans( int matrix_layout, char direct, char uplo,
} }
/* Copy & transpose triangular part */ /* Copy & transpose triangular part */
return LAPACKE_ztr_trans( matrix_layout, uplo, diag, tri_n, LAPACKE_ztr_trans( matrix_layout, uplo, diag, tri_n,
&in[tri_in_offset], ldin, &in[tri_in_offset], ldin,
&out[tri_out_offset], ldout ); &out[tri_out_offset], ldout );
} }

2
lapack-netlib/TESTING/EIG/derred.f
View File

@ -99,7 +99,7 @@
* .. * ..
* .. External Subroutines .. * .. External Subroutines ..
EXTERNAL CHKXER, DGEES, DGEESX, DGEEV, DGEEVX, DGEJSV, EXTERNAL CHKXER, DGEES, DGEESX, DGEEV, DGEEVX, DGEJSV,
$ DGESDD, DGESVD, DGESVDX, DGESVQ $ DGESDD, DGESVD, DGESVDX, DGESVDQ
* .. * ..
* .. External Functions .. * .. External Functions ..
LOGICAL DSLECT, LSAMEN LOGICAL DSLECT, LSAMEN

2
lapack-netlib/TESTING/EIG/zerred.f
View File

@ -100,7 +100,7 @@
* .. * ..
* .. External Subroutines .. * .. External Subroutines ..
EXTERNAL CHKXER, ZGEES, ZGEESX, ZGEEV, ZGEEVX, ZGESVJ, EXTERNAL CHKXER, ZGEES, ZGEESX, ZGEEV, ZGEEVX, ZGESVJ,
$ ZGESDD, ZGESVD, ZGESVDX, ZGESVQ $ ZGESDD, ZGESVD, ZGESVDX, ZGESVDQ
* .. * ..
* .. External Functions .. * .. External Functions ..
LOGICAL LSAMEN, ZSLECT LOGICAL LSAMEN, ZSLECT