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/dladiv.c
View File

@@ -602,7 +602,7 @@ f"> */
/* > \ingroup doubleOTHERauxiliary */
/* ===================================================================== */
/* Subroutine */ int dladiv_(doublereal *a, doublereal *b, doublereal *c__,
/* Subroutine */ void dladiv_(doublereal *a, doublereal *b, doublereal *c__,
doublereal *d__, doublereal *p, doublereal *q)
{
/* System generated locals */
@@ -612,7 +612,7 @@ f"> */
doublereal s, aa, ab, bb, cc, cd, dd, be;
extern doublereal dlamch_(char *);
doublereal un, ov;
extern /* Subroutine */ int dladiv1_(doublereal *, doublereal *,
extern /* Subroutine */ void dladiv1_(doublereal *, doublereal *,
doublereal *, doublereal *, doublereal *, doublereal *);
doublereal eps;
@@ -671,14 +671,14 @@ f"> */
*p *= s;
*q *= s;
return 0;
return;
/* End of DLADIV */
} /* dladiv_ */
/* > \ingroup doubleOTHERauxiliary */
/* Subroutine */ int dladiv1_(doublereal *a, doublereal *b, doublereal *c__,
/* Subroutine */ void dladiv1_(doublereal *a, doublereal *b, doublereal *c__,
doublereal *d__, doublereal *p, doublereal *q)
{
doublereal r__, t;
@@ -702,7 +702,7 @@ f"> */
*a = -(*a);
*q = dladiv2_(b, a, c__, d__, &r__, &t);
return 0;
return;
/* End of DLADIV1 */