floraachy/OpenBLAS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

16
lapack-netlib/SRC/sppsvx.c
View File

@@ -823,7 +823,7 @@ f"> */
/* > \endverbatim */
/* > */
/* ===================================================================== */
/* Subroutine */ int sppsvx_(char *fact, char *uplo, integer *n, integer *
/* Subroutine */ void sppsvx_(char *fact, char *uplo, integer *n, integer *
nrhs, real *ap, real *afp, char *equed, real *s, real *b, integer *
ldb, real *x, integer *ldx, real *rcond, real *ferr, real *berr, real
*work, integer *iwork, integer *info)
@@ -838,22 +838,22 @@ f"> */
extern logical lsame_(char *, char *);
real scond, anorm;
logical equil, rcequ;
extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *,
extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *,
integer *);
extern real slamch_(char *);
logical nofact;
extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen);
real bignum;
integer infequ;
extern /* Subroutine */ int slacpy_(char *, integer *, integer *, real *,
extern /* Subroutine */ void slacpy_(char *, integer *, integer *, real *,
integer *, real *, integer *);
extern real slansp_(char *, char *, integer *, real *, real *);
extern /* Subroutine */ int sppcon_(char *, integer *, real *, real *,
extern /* Subroutine */ void sppcon_(char *, integer *, real *, real *,
real *, real *, integer *, integer *), slaqsp_(char *,
integer *, real *, real *, real *, real *, char *)
;
real smlnum;
extern /* Subroutine */ int sppequ_(char *, integer *, real *, real *,
extern /* Subroutine */ void sppequ_(char *, integer *, real *, real *,
real *, real *, integer *), spprfs_(char *, integer *,
integer *, real *, real *, real *, integer *, real *, integer *,
real *, real *, real *, integer *, integer *), spptrf_(
@@ -946,7 +946,7 @@ f"> */
if (*info != 0) {
i__1 = -(*info);
xerbla_("SPPSVX", &i__1, (ftnlen)6);
return 0;
return;
}
if (equil) {
@@ -989,7 +989,7 @@ f"> */
if (*info > 0) {
*rcond = 0.f;
return 0;
return;
}
}
@@ -1038,7 +1038,7 @@ f"> */
*info = *n + 1;
}
return 0;
return;
/* End of SPPSVX */