From 846f3cb3249083980f7a56896aa60d5c73620cf8 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Simon=20M=C3=A4rtens?= Date: Fri, 18 Nov 2022 16:36:53 +0100 Subject: [PATCH 1/2] Removed unnecessary return statement in void function. --- LAPACKE/utils/lapacke_ctz_trans.c | 6 +++--- LAPACKE/utils/lapacke_dtz_trans.c | 6 +++--- LAPACKE/utils/lapacke_stz_trans.c | 6 +++--- LAPACKE/utils/lapacke_ztz_trans.c | 6 +++--- 4 files changed, 12 insertions(+), 12 deletions(-) diff --git a/LAPACKE/utils/lapacke_ctz_trans.c b/LAPACKE/utils/lapacke_ctz_trans.c index 8910aee7da..0abe03d283 100644 --- a/LAPACKE/utils/lapacke_ctz_trans.c +++ b/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 ); } diff --git a/LAPACKE/utils/lapacke_dtz_trans.c b/LAPACKE/utils/lapacke_dtz_trans.c index 80d94ead90..f53e03adcf 100644 --- a/LAPACKE/utils/lapacke_dtz_trans.c +++ b/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 ); } diff --git a/LAPACKE/utils/lapacke_stz_trans.c b/LAPACKE/utils/lapacke_stz_trans.c index 793f3833d4..bdb4279572 100644 --- a/LAPACKE/utils/lapacke_stz_trans.c +++ b/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 ); } diff --git a/LAPACKE/utils/lapacke_ztz_trans.c b/LAPACKE/utils/lapacke_ztz_trans.c index 881052331e..fa4bb94c5f 100644 --- a/LAPACKE/utils/lapacke_ztz_trans.c +++ b/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 ); } From 273d758e4a638b084f4747e4a8d3abe335d63f72 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Simon=20M=C3=A4rtens?= Date: Fri, 18 Nov 2022 16:37:47 +0100 Subject: [PATCH 2/2] Fixed wrong external function name '[D|Z]GESVQ' -> '[D|Z]GESVDQ' --- TESTING/EIG/derred.f | 2 +- TESTING/EIG/zerred.f | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/TESTING/EIG/derred.f b/TESTING/EIG/derred.f index 6df5178253..11a9320526 100644 --- a/TESTING/EIG/derred.f +++ b/TESTING/EIG/derred.f @@ -99,7 +99,7 @@ SUBROUTINE DERRED( PATH, NUNIT ) * .. * .. External Subroutines .. EXTERNAL CHKXER, DGEES, DGEESX, DGEEV, DGEEVX, DGEJSV, - $ DGESDD, DGESVD, DGESVDX, DGESVQ + $ DGESDD, DGESVD, DGESVDX, DGESVDQ * .. * .. External Functions .. LOGICAL DSLECT, LSAMEN diff --git a/TESTING/EIG/zerred.f b/TESTING/EIG/zerred.f index d1219c02b9..1876c1f1d7 100644 --- a/TESTING/EIG/zerred.f +++ b/TESTING/EIG/zerred.f @@ -100,7 +100,7 @@ SUBROUTINE ZERRED( PATH, NUNIT ) * .. * .. External Subroutines .. EXTERNAL CHKXER, ZGEES, ZGEESX, ZGEEV, ZGEEVX, ZGESVJ, - $ ZGESDD, ZGESVD, ZGESVDX, ZGESVQ + $ ZGESDD, ZGESVD, ZGESVDX, ZGESVDQ * .. * .. External Functions .. LOGICAL LSAMEN, ZSLECT