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

15
lapack-netlib/SRC/sptsvx.c
View File

@@ -740,7 +740,7 @@ f"> */
/* > \ingroup realPTsolve */
/* ===================================================================== */
/* Subroutine */ int sptsvx_(char *fact, integer *n, integer *nrhs, real *d__,
/* Subroutine */ void sptsvx_(char *fact, integer *n, integer *nrhs, real *d__,
real *e, real *df, real *ef, real *b, integer *ldb, real *x, integer
*ldx, real *rcond, real *ferr, real *berr, real *work, integer *info)
{
@@ -750,15 +750,16 @@ f"> */
/* Local variables */
extern logical lsame_(char *, char *);
real anorm;
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), slacpy_(
extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen);
extern void slacpy_(
char *, integer *, integer *, real *, integer *, real *, integer *
);
extern real slanst_(char *, integer *, real *, real *);
extern /* Subroutine */ int sptcon_(integer *, real *, real *, real *,
extern /* Subroutine */ void sptcon_(integer *, real *, real *, real *,
real *, real *, integer *), sptrfs_(integer *, integer *, real *,
real *, real *, real *, real *, integer *, real *, integer *,
real *, real *, real *, integer *), spttrf_(integer *, real *,
@@ -809,7 +810,7 @@ f"> */
if (*info != 0) {
i__1 = -(*info);
xerbla_("SPTSVX", &i__1, (ftnlen)6);
return 0;
return;
}
if (nofact) {
@@ -827,7 +828,7 @@ f"> */
if (*info > 0) {
*rcond = 0.f;
return 0;
return;
}
}
@@ -856,7 +857,7 @@ f"> */
*info = *n + 1;
}
return 0;
return;
/* End of SPTSVX */