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