From 730ed549e6f0cfced4c4874da012baf1e464fdeb Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Wed, 23 Nov 2022 10:35:23 +0100 Subject: [PATCH 1/6] Fix typo in EXTERNAL (Reference-LAPACK PR760) --- lapack-netlib/TESTING/EIG/derred.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lapack-netlib/TESTING/EIG/derred.f b/lapack-netlib/TESTING/EIG/derred.f index 6df517825..11a932052 100644 --- a/lapack-netlib/TESTING/EIG/derred.f +++ b/lapack-netlib/TESTING/EIG/derred.f @@ -99,7 +99,7 @@ * .. * .. External Subroutines .. EXTERNAL CHKXER, DGEES, DGEESX, DGEEV, DGEEVX, DGEJSV, - $ DGESDD, DGESVD, DGESVDX, DGESVQ + $ DGESDD, DGESVD, DGESVDX, DGESVDQ * .. * .. External Functions .. LOGICAL DSLECT, LSAMEN From 825ae316e2195997349958479ce27da01e9fb77e Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Wed, 23 Nov 2022 10:36:10 +0100 Subject: [PATCH 2/6] Fix typo in EXTERNAL (Reference-LAPACK PR760) --- lapack-netlib/TESTING/EIG/zerred.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lapack-netlib/TESTING/EIG/zerred.f b/lapack-netlib/TESTING/EIG/zerred.f index d1219c02b..1876c1f1d 100644 --- a/lapack-netlib/TESTING/EIG/zerred.f +++ b/lapack-netlib/TESTING/EIG/zerred.f @@ -100,7 +100,7 @@ * .. * .. External Subroutines .. EXTERNAL CHKXER, ZGEES, ZGEESX, ZGEEV, ZGEEVX, ZGESVJ, - $ ZGESDD, ZGESVD, ZGESVDX, ZGESVQ + $ ZGESDD, ZGESVD, ZGESVDX, ZGESVDQ * .. * .. External Functions .. LOGICAL LSAMEN, ZSLECT From 7694ff495f26c29cc24771a29ccd13f4191a2baf Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Wed, 23 Nov 2022 10:40:59 +0100 Subject: [PATCH 3/6] Remove unnecessary return in void function call (Reference-LAPACK PR760) --- lapack-netlib/LAPACKE/utils/lapacke_ctz_trans.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lapack-netlib/LAPACKE/utils/lapacke_ctz_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_ctz_trans.c index 8910aee7d..48d346611 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_ctz_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_ctz_trans.c @@ -147,7 +147,7 @@ void LAPACKE_ctz_trans( int matrix_layout, char direct, char uplo, } /* Copy & transpose triangular part */ - return LAPACKE_ctr_trans( matrix_layout, uplo, diag, tri_n, - &in[tri_in_offset], ldin, - &out[tri_out_offset], ldout ); + LAPACKE_ctr_trans( matrix_layout, uplo, diag, tri_n, + &in[tri_in_offset], ldin, + &out[tri_out_offset], ldout ); } From d952cbf7bc23c1cb8fb7d2bdf4ddd888f4860905 Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Wed, 23 Nov 2022 10:41:50 +0100 Subject: [PATCH 4/6] Remove unnecessary return in void function call (Reference-LAPACK PR760) --- lapack-netlib/LAPACKE/utils/lapacke_dtz_trans.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lapack-netlib/LAPACKE/utils/lapacke_dtz_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_dtz_trans.c index 80d94ead9..b39000d42 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_dtz_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_dtz_trans.c @@ -147,7 +147,7 @@ void LAPACKE_dtz_trans( int matrix_layout, char direct, char uplo, } /* Copy & transpose triangular part */ - return LAPACKE_dtr_trans( matrix_layout, uplo, diag, tri_n, - &in[tri_in_offset], ldin, - &out[tri_out_offset], ldout ); + LAPACKE_dtr_trans( matrix_layout, uplo, diag, tri_n, + &in[tri_in_offset], ldin, + &out[tri_out_offset], ldout ); } From 74962c7f53110d915b4597344d2b397c150a9936 Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Wed, 23 Nov 2022 10:42:29 +0100 Subject: [PATCH 5/6] Remove unnecessary return in void function call (Reference-LAPACK PR760) --- lapack-netlib/LAPACKE/utils/lapacke_stz_trans.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lapack-netlib/LAPACKE/utils/lapacke_stz_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_stz_trans.c index 793f3833d..cffee6c98 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_stz_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_stz_trans.c @@ -147,7 +147,7 @@ void LAPACKE_stz_trans( int matrix_layout, char direct, char uplo, } /* Copy & transpose triangular part */ - return LAPACKE_str_trans( matrix_layout, uplo, diag, tri_n, - &in[tri_in_offset], ldin, - &out[tri_out_offset], ldout ); + LAPACKE_str_trans( matrix_layout, uplo, diag, tri_n, + &in[tri_in_offset], ldin, + &out[tri_out_offset], ldout ); } From c2ba4e6249e11661d9b8b5f0717a8256a1068143 Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Wed, 23 Nov 2022 10:43:34 +0100 Subject: [PATCH 6/6] Remove unnecessary return in void function call (Reference-LAPACK PR760) --- lapack-netlib/LAPACKE/utils/lapacke_ztz_trans.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lapack-netlib/LAPACKE/utils/lapacke_ztz_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_ztz_trans.c index 881052331..faef6da50 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_ztz_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_ztz_trans.c @@ -147,7 +147,7 @@ void LAPACKE_ztz_trans( int matrix_layout, char direct, char uplo, } /* Copy & transpose triangular part */ - return LAPACKE_ztr_trans( matrix_layout, uplo, diag, tri_n, - &in[tri_in_offset], ldin, - &out[tri_out_offset], ldout ); + LAPACKE_ztr_trans( matrix_layout, uplo, diag, tri_n, + &in[tri_in_offset], ldin, + &out[tri_out_offset], ldout ); }