Fix signatures of external functions in the f2c-generated C sources

2022-12-14 14:06:55 +01:00
parent 48f4151373
commit 8df791e513
1949 changed files with 14669 additions and 14041 deletions
--- a/lapack-netlib/SRC/slassq.c
+++ b/lapack-netlib/SRC/slassq.c
@@ -612,7 +612,7 @@ f"> */
 /* > \ingroup OTHERauxiliary */

 /*  ===================================================================== */
-/* Subroutine */ int slassq_(integer *n, real *x, integer *incx, real *scale, 
+/* Subroutine */ void slassq_(integer *n, real *x, integer *incx, real *scale, 
 	real *sumsq)
 {
    /* System generated locals */
@@ -658,7 +658,7 @@ f"> */
 /* L10: */
 	}
    }
-    return 0;
+    return;

 /*     End of SLASSQ */