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

12
lapack-netlib/SRC/zpprfs.c
View File

@@ -684,7 +684,7 @@ f"> */
/* > \ingroup complex16OTHERcomputational */
/* ===================================================================== */
/* Subroutine */ int zpprfs_(char *uplo, integer *n, integer *nrhs,
/* Subroutine */ void zpprfs_(char *uplo, integer *n, integer *nrhs,
doublecomplex *ap, doublecomplex *afp, doublecomplex *b, integer *ldb,
doublecomplex *x, integer *ldx, doublereal *ferr, doublereal *berr,
doublecomplex *work, doublereal *rwork, integer *info)
@@ -702,7 +702,7 @@ f"> */
extern logical lsame_(char *, char *);
integer isave[3], count;
logical upper;
extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *,
extern /* Subroutine */ void zcopy_(integer *, doublecomplex *, integer *,
doublecomplex *, integer *), zhpmv_(char *, integer *,
doublecomplex *, doublecomplex *, doublecomplex *, integer *,
doublecomplex *, doublecomplex *, integer *), zaxpy_(
@@ -716,7 +716,7 @@ f"> */
doublereal safmin;
extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen);
doublereal lstres;
extern /* Subroutine */ int zpptrs_(char *, integer *, integer *,
extern /* Subroutine */ void zpptrs_(char *, integer *, integer *,
doublecomplex *, doublecomplex *, integer *, integer *);
doublereal eps;
@@ -763,7 +763,7 @@ f"> */
if (*info != 0) {
i__1 = -(*info);
xerbla_("ZPPRFS", &i__1, (ftnlen)6);
return 0;
return;
}
/* Quick return if possible */
@@ -775,7 +775,7 @@ f"> */
berr[j] = 0.;
/* L10: */
}
return 0;
return;
}
/* NZ = maximum number of nonzero elements in each row of A, plus 1 */
@@ -1015,7 +1015,7 @@ L100:
/* L140: */
}
return 0;
return;
/* End of ZPPRFS */