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

lapack-netlib/SRC/claqr4.c

@@ -769,7 +769,7 @@ f"> */
 /* >       of Matrix Analysis, volume 23, pages 948--973, 2002. */
 /* > */
 /*  ===================================================================== */
-/* Subroutine */ int claqr4_(logical *wantt, logical *wantz, integer *n, 
+/* Subroutine */ void claqr4_(logical *wantt, logical *wantz, integer *n, 
 	integer *ilo, integer *ihi, complex *h__, integer *ldh, complex *w, 
 	integer *iloz, integer *ihiz, complex *z__, integer *ldz, complex *
 	work, integer *lwork, integer *info)
@@ -787,7 +787,7 @@ f"> */
     integer kacc22, i__, k;
     real s;
     integer itmax, nsmax, nwmax, kwtop;
-    extern /* Subroutine */ int claqr2_(logical *, logical *, integer *, 
+    extern /* Subroutine */ void claqr2_(logical *, logical *, integer *, 
 	    integer *, integer *, integer *, complex *, integer *, integer *, 
 	    integer *, complex *, integer *, integer *, integer *, complex *, 
 	    complex *, integer *, integer *, complex *, integer *, integer *, 
@@ -798,7 +798,7 @@ f"> */
 	    complex *, integer *, integer *, complex *, integer *);
     complex aa, bb, cc, dd;
     integer ld, nh, nibble, it, ks, kt, ku, kv, ls, ns, nw;
-    extern /* Subroutine */ int clahqr_(logical *, logical *, integer *, 
+    extern /* Subroutine */ void clahqr_(logical *, logical *, integer *, 
 	    integer *, integer *, complex *, integer *, complex *, integer *, 
 	    integer *, complex *, integer *, integer *), clacpy_(char *, 
 	    integer *, integer *, complex *, integer *, complex *, integer *);
@@ -854,7 +854,7 @@ f"> */
 
     if (*n == 0) {
 	work[1].r = 1.f, work[1].i = 0.f;
-	return 0;
+	return;
     }
 
     if (*n <= 15) {
@@ -938,7 +938,7 @@ f"> */
 	    r__1 = (real) lwkopt;
 	    q__1.r = r__1, q__1.i = 0.f;
 	    work[1].r = q__1.r, work[1].i = q__1.i;
-	    return 0;
+	    return;
 	}
 
 /*        ==== CLAHQR/CLAQR0 crossover point ==== */
@@ -1361,6 +1361,6 @@ L80:
 
 /*     ==== End of CLAQR4 ==== */
 
-    return 0;
+    return;
 } /* claqr4_ */