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

lapack-netlib/SRC/ssytrs_aa.c

@@ -644,7 +644,7 @@ aa.f"> */
 /* > \ingroup realSYcomputational */
 
 /*  ===================================================================== */
-/* Subroutine */ int ssytrs_aa_(char *uplo, integer *n, integer *nrhs, real *
+/* Subroutine */ void ssytrs_aa_(char *uplo, integer *n, integer *nrhs, real *
 	a, integer *lda, integer *ipiv, real *b, integer *ldb, real *work, 
 	integer *lwork, integer *info)
 {
@@ -655,13 +655,14 @@ aa.f"> */
     integer k;
     extern logical lsame_(char *, char *);
     logical upper;
-    extern /* Subroutine */ int sswap_(integer *, real *, integer *, real *, 
+    extern /* Subroutine */ void sswap_(integer *, real *, integer *, real *, 
 	    integer *), sgtsv_(integer *, integer *, real *, real *, real *, 
 	    real *, integer *, integer *), strsm_(char *, char *, char *, 
 	    char *, integer *, integer *, real *, real *, integer *, real *, 
 	    integer *);
     integer kp;
-    extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), slacpy_(
+    extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen);
+    extern void slacpy_(
 	    char *, integer *, integer *, real *, integer *, real *, integer *
 	    );
     integer lwkopt;
@@ -712,17 +713,17 @@ aa.f"> */
     if (*info != 0) {
 	i__1 = -(*info);
 	xerbla_("SSYTRS_AA", &i__1, (ftnlen)9);
-	return 0;
+	return;
     } else if (lquery) {
 	lwkopt = *n * 3 - 2;
 	work[1] = (real) lwkopt;
-	return 0;
+	return;
     }
 
 /*     Quick return if possible */
 
     if (*n == 0 || *nrhs == 0) {
-	return 0;
+	return;
     }
 
     if (upper) {
@@ -861,7 +862,7 @@ aa.f"> */
 
     }
 
-    return 0;
+    return;
 
 /*     End of SSYTRS_AA */