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 complex16HEauxiliary */
/* ===================================================================== */
/* Subroutine */ int zlaqhe_(char *uplo, integer *n, doublecomplex *a,
/* Subroutine */ void zlaqhe_(char *uplo, integer *n, doublecomplex *a,
integer *lda, doublereal *s, doublereal *scond, doublereal *amax,
char *equed)
{
@@ -680,7 +680,7 @@ f"> */
/* Function Body */
if (*n <= 0) {
*(unsigned char *)equed = 'N';
return 0;
return;
}
/* Initialize LARGE and SMALL. */
@@ -745,7 +745,7 @@ f"> */
*(unsigned char *)equed = 'Y';
}
return 0;
return;
/* End of ZLAQHE */