Merge pull request #760 from ACSimon33/windows_build_fix

langou · web-flow · commit ca40397913c6 · 2022-11-18T08:50:46.000-07:00
Windows build fix
diff --git 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
@@ -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
@@ -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
@@ -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 );
 }
diff --git 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
@@ -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

Original file line number	Diff line number	Diff line change
`@@ -147,7 +147,7 @@ void LAPACKE_ctz_trans( int matrix_layout, char direct, char uplo,`
`147`	`147`	`}`
`148`	`148`
`149`	`149`	`/* Copy & transpose triangular part */`
`150`		`- return LAPACKE_ctr_trans( matrix_layout, uplo, diag, tri_n,`
`151`		`- &in[tri_in_offset], ldin,`
`152`		`- &out[tri_out_offset], ldout );`
	`150`	`+ LAPACKE_ctr_trans( matrix_layout, uplo, diag, tri_n,`
	`151`	`+ &in[tri_in_offset], ldin,`
	`152`	`+ &out[tri_out_offset], ldout );`
`153`	`153`	`}`
Original file line number	Diff line number	Diff line change
`@@ -147,7 +147,7 @@ void LAPACKE_dtz_trans( int matrix_layout, char direct, char uplo,`
`147`	`147`	`}`
`148`	`148`
`149`	`149`	`/* Copy & transpose triangular part */`
`150`		`- return LAPACKE_dtr_trans( matrix_layout, uplo, diag, tri_n,`
`151`		`- &in[tri_in_offset], ldin,`
`152`		`- &out[tri_out_offset], ldout );`
	`150`	`+ LAPACKE_dtr_trans( matrix_layout, uplo, diag, tri_n,`
	`151`	`+ &in[tri_in_offset], ldin,`
	`152`	`+ &out[tri_out_offset], ldout );`
`153`	`153`	`}`
Original file line number	Diff line number	Diff line change
`@@ -147,7 +147,7 @@ void LAPACKE_stz_trans( int matrix_layout, char direct, char uplo,`
`147`	`147`	`}`
`148`	`148`
`149`	`149`	`/* Copy & transpose triangular part */`
`150`		`- return LAPACKE_str_trans( matrix_layout, uplo, diag, tri_n,`
`151`		`- &in[tri_in_offset], ldin,`
`152`		`- &out[tri_out_offset], ldout );`
	`150`	`+ LAPACKE_str_trans( matrix_layout, uplo, diag, tri_n,`
	`151`	`+ &in[tri_in_offset], ldin,`
	`152`	`+ &out[tri_out_offset], ldout );`
`153`	`153`	`}`
Original file line number	Diff line number	Diff line change
`@@ -147,7 +147,7 @@ void LAPACKE_ztz_trans( int matrix_layout, char direct, char uplo,`
`147`	`147`	`}`
`148`	`148`
`149`	`149`	`/* Copy & transpose triangular part */`
`150`		`- return LAPACKE_ztr_trans( matrix_layout, uplo, diag, tri_n,`
`151`		`- &in[tri_in_offset], ldin,`
`152`		`- &out[tri_out_offset], ldout );`
	`150`	`+ LAPACKE_ztr_trans( matrix_layout, uplo, diag, tri_n,`
	`151`	`+ &in[tri_in_offset], ldin,`
	`152`	`+ &out[tri_out_offset], ldout );`
`153`	`153`	`}`