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

10
lapack-netlib/SRC/dlagtf.c
View File

@@ -666,7 +666,7 @@ f"> */
/* > \ingroup auxOTHERcomputational */
/* ===================================================================== */
/* Subroutine */ int dlagtf_(integer *n, doublereal *a, doublereal *lambda,
/* Subroutine */ void dlagtf_(integer *n, doublereal *a, doublereal *lambda,
doublereal *b, doublereal *c__, doublereal *tol, doublereal *d__,
integer *in, integer *info)
{
@@ -706,11 +706,11 @@ f"> */
*info = -1;
i__1 = -(*info);
xerbla_("DLAGTF", &i__1, (ftnlen)6);
return 0;
return;
}
if (*n == 0) {
return 0;
return;
}
a[1] -= *lambda;
@@ -719,7 +719,7 @@ f"> */
if (a[1] == 0.) {
in[1] = 1;
}
return 0;
return;
}
eps = dlamch_("Epsilon");
@@ -778,7 +778,7 @@ f"> */
in[*n] = *n;
}
return 0;
return;
/* End of DLAGTF */