Fix signatures of external functions in the f2c-generated C sources
This commit is contained in:
@@ -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 */
|
||||
|
||||
|
||||
Reference in New Issue
Block a user