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

28
lapack-netlib/SRC/dggesx.c
View File

@@ -878,7 +878,7 @@ f"> */
/* > \endverbatim */
/* > */
/* ===================================================================== */
/* Subroutine */ int dggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp
/* Subroutine */ void dggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp
selctg, char *sense, integer *n, doublereal *a, integer *lda,
doublereal *b, integer *ldb, integer *sdim, doublereal *alphar,
doublereal *alphai, doublereal *beta, doublereal *vsl, integer *ldvsl,
@@ -899,7 +899,7 @@ f"> */
integer ileft, icols;
logical cursl, ilvsl, ilvsr;
integer irows;
extern /* Subroutine */ int dlabad_(doublereal *, doublereal *), dggbak_(
extern /* Subroutine */ void dlabad_(doublereal *, doublereal *), dggbak_(
char *, char *, integer *, integer *, integer *, doublereal *,
doublereal *, integer *, doublereal *, integer *, integer *), dggbal_(char *, integer *, doublereal *, integer
*, doublereal *, integer *, integer *, integer *, doublereal *,
@@ -910,31 +910,31 @@ f"> */
extern doublereal dlange_(char *, integer *, integer *, doublereal *,
integer *, doublereal *);
doublereal pl;
extern /* Subroutine */ int dgghrd_(char *, char *, integer *, integer *,
extern /* Subroutine */ void dgghrd_(char *, char *, integer *, integer *,
integer *, doublereal *, integer *, doublereal *, integer *,
doublereal *, integer *, doublereal *, integer *, integer *);
doublereal pr;
extern /* Subroutine */ int dlascl_(char *, integer *, integer *,
extern /* Subroutine */ void dlascl_(char *, integer *, integer *,
doublereal *, doublereal *, integer *, integer *, doublereal *,
integer *, integer *);
logical ilascl, ilbscl;
extern /* Subroutine */ int dgeqrf_(integer *, integer *, doublereal *,
extern /* Subroutine */ void dgeqrf_(integer *, integer *, doublereal *,
integer *, doublereal *, doublereal *, integer *, integer *),
dlacpy_(char *, integer *, integer *, doublereal *, integer *,
doublereal *, integer *);
doublereal safmin;
extern /* Subroutine */ int dlaset_(char *, integer *, integer *,
extern /* Subroutine */ void dlaset_(char *, integer *, integer *,
doublereal *, doublereal *, doublereal *, integer *);
doublereal safmax;
extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen);
doublereal bignum;
extern /* Subroutine */ int dhgeqz_(char *, char *, char *, integer *,
extern /* Subroutine */ void dhgeqz_(char *, char *, char *, integer *,
integer *, integer *, doublereal *, integer *, doublereal *,
integer *, doublereal *, doublereal *, doublereal *, doublereal *,
integer *, doublereal *, integer *, doublereal *, integer *,
integer *);
integer ijobvl, iright;
extern /* Subroutine */ int dtgsen_(integer *, logical *, logical *,
extern /* Subroutine */ void dtgsen_(integer *, logical *, logical *,
logical *, integer *, doublereal *, integer *, doublereal *,
integer *, doublereal *, doublereal *, doublereal *, doublereal *,
integer *, doublereal *, integer *, integer *, doublereal *,
@@ -947,13 +947,13 @@ f"> */
integer liwmin;
logical wantse, lastsl;
doublereal anrmto, bnrmto;
extern /* Subroutine */ int dorgqr_(integer *, integer *, integer *,
extern /* Subroutine */ void dorgqr_(integer *, integer *, integer *,
doublereal *, integer *, doublereal *, doublereal *, integer *,
integer *);
integer minwrk, maxwrk;
logical wantsn;
doublereal smlnum;
extern /* Subroutine */ int dormqr_(char *, char *, integer *, integer *,
extern /* Subroutine */ void dormqr_(char *, char *, integer *, integer *,
integer *, doublereal *, integer *, doublereal *, doublereal *,
integer *, doublereal *, integer *, integer *);
logical wantst, lquery, wantsv;
@@ -1111,16 +1111,16 @@ f"> */
if (*info != 0) {
i__1 = -(*info);
xerbla_("DGGESX", &i__1, (ftnlen)6);
return 0;
return;
} else if (lquery) {
return 0;
return;
}
/* Quick return if possible */
if (*n == 0) {
*sdim = 0;
return 0;
return;
}
/* Get machine constants */
@@ -1432,7 +1432,7 @@ L60:
work[1] = (doublereal) maxwrk;
iwork[1] = liwmin;
return 0;
return;
/* End of DGGESX */