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

This commit is contained in:
martin-frbg
2022-12-14 14:06:55 +01:00
parent 48f4151373
commit 8df791e513
1949 changed files with 14669 additions and 14041 deletions
+3 -3
View File
@@ -669,7 +669,7 @@ f"> */
/* > \ingroup complexGBauxiliary */
/* ===================================================================== */
/* Subroutine */ int claqgb_(integer *m, integer *n, integer *kl, integer *ku,
/* Subroutine */ void claqgb_(integer *m, integer *n, integer *kl, integer *ku,
complex *ab, integer *ldab, real *r__, real *c__, real *rowcnd, real
*colcnd, real *amax, char *equed)
{
@@ -705,7 +705,7 @@ f"> */
/* Function Body */
if (*m <= 0 || *n <= 0) {
*(unsigned char *)equed = 'N';
return 0;
return;
}
/* Initialize LARGE and SMALL. */
@@ -793,7 +793,7 @@ f"> */
*(unsigned char *)equed = 'B';
}
return 0;
return;
/* End of CLAQGB */