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
lapack-netlib/SRC/dlartgs.c
+3 -3
View File
@@ -602,13 +602,13 @@ he bidiagonal SVD problem. */
/* > \ingroup auxOTHERcomputational */
/* ===================================================================== */
/* Subroutine */ int dlartgs_(doublereal *x, doublereal *y, doublereal *sigma,
/* Subroutine */ void dlartgs_(doublereal *x, doublereal *y, doublereal *sigma,
doublereal *cs, doublereal *sn)
{
doublereal r__, s, w, z__;
extern doublereal dlamch_(char *);
doublereal thresh;
extern /* Subroutine */ int dlartgp_(doublereal *, doublereal *,
extern /* Subroutine */ void dlartgp_(doublereal *, doublereal *,
doublereal *, doublereal *, doublereal *);
@@ -657,7 +657,7 @@ he bidiagonal SVD problem. */
dlartgp_(&w, &z__, sn, cs, &r__);
return 0;
return;
/* End DLARTGS */