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
@@ -643,7 +643,7 @@ f"> */
/* > \ingroup complexSYauxiliary */
/* ===================================================================== */
/* Subroutine */ int claqsy_(char *uplo, integer *n, complex *a, integer *lda,
/* Subroutine */ void claqsy_(char *uplo, integer *n, complex *a, integer *lda,
real *s, real *scond, real *amax, char *equed)
{
/* System generated locals */
@@ -679,7 +679,7 @@ f"> */
/* Function Body */
if (*n <= 0) {
*(unsigned char *)equed = 'N';
return 0;
return;
}
/* Initialize LARGE and SMALL. */
@@ -736,7 +736,7 @@ f"> */
*(unsigned char *)equed = 'Y';
}
return 0;
return;
/* End of CLAQSY */