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

22
lapack-netlib/SRC/zhecon.c
View File

@@ -637,7 +637,7 @@ f"> */
/* > \ingroup complex16HEcomputational */
/* ===================================================================== */
/* Subroutine */ int zhecon_(char *uplo, integer *n, doublecomplex *a,
/* Subroutine */ void zhecon_(char *uplo, integer *n, doublecomplex *a,
integer *lda, integer *ipiv, doublereal *anorm, doublereal *rcond,
doublecomplex *work, integer *info)
{
@@ -649,11 +649,11 @@ f"> */
extern logical lsame_(char *, char *);
integer isave[3];
logical upper;
extern /* Subroutine */ int zlacn2_(integer *, doublecomplex *,
doublecomplex *, doublereal *, integer *, integer *), xerbla_(
char *, integer *, ftnlen);
extern /* Subroutine */ void zlacn2_(integer *, doublecomplex *,
doublecomplex *, doublereal *, integer *, integer *);
extern int xerbla_(char *, integer *, ftnlen);
doublereal ainvnm;
extern /* Subroutine */ int zhetrs_(char *, integer *, integer *,
extern /* Subroutine */ void zhetrs_(char *, integer *, integer *,
doublecomplex *, integer *, integer *, doublecomplex *, integer *,
integer *);
@@ -691,7 +691,7 @@ f"> */
if (*info != 0) {
i__1 = -(*info);
xerbla_("ZHECON", &i__1, (ftnlen)6);
return 0;
return;
}
/* Quick return if possible */
@@ -699,9 +699,9 @@ f"> */
*rcond = 0.;
if (*n == 0) {
*rcond = 1.;
return 0;
return;
} else if (*anorm <= 0.) {
return 0;
return;
}
/* Check that the diagonal matrix D is nonsingular. */
@@ -713,7 +713,7 @@ f"> */
for (i__ = *n; i__ >= 1; --i__) {
i__1 = i__ + i__ * a_dim1;
if (ipiv[i__] > 0 && (a[i__1].r == 0. && a[i__1].i == 0.)) {
return 0;
return;
}
/* L10: */
}
@@ -725,7 +725,7 @@ f"> */
for (i__ = 1; i__ <= i__1; ++i__) {
i__2 = i__ + i__ * a_dim1;
if (ipiv[i__] > 0 && (a[i__2].r == 0. && a[i__2].i == 0.)) {
return 0;
return;
}
/* L20: */
}
@@ -751,7 +751,7 @@ L30:
*rcond = 1. / ainvnm / *anorm;
}
return 0;
return;
/* End of ZHECON */