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

29
lapack-netlib/SRC/sggev.c
View File

@@ -743,7 +743,7 @@ ices</b> */
/* > \ingroup realGEeigen */
/* ===================================================================== */
/* Subroutine */ int sggev_(char *jobvl, char *jobvr, integer *n, real *a,
/* Subroutine */ void sggev_(char *jobvl, char *jobvr, integer *n, real *a,
integer *lda, real *b, integer *ldb, real *alphar, real *alphai, real
*beta, real *vl, integer *ldvl, real *vr, integer *ldvr, real *work,
integer *lwork, integer *info)
@@ -761,9 +761,9 @@ ices</b> */
integer iwrk;
extern logical lsame_(char *, char *);
integer ileft, icols, irows, jc;
extern /* Subroutine */ int slabad_(real *, real *);
extern /* Subroutine */ void slabad_(real *, real *);
integer in, jr;
extern /* Subroutine */ int sggbak_(char *, char *, integer *, integer *,
extern /* Subroutine */ void sggbak_(char *, char *, integer *, integer *,
integer *, real *, real *, integer *, real *, integer *, integer *
), sggbal_(char *, integer *, real *, integer *,
real *, integer *, integer *, integer *, real *, real *, real *,
@@ -771,38 +771,39 @@ ices</b> */
logical ilascl, ilbscl;
extern real slamch_(char *), slange_(char *, integer *, integer *,
real *, integer *, real *);
extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), sgghrd_(
extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen);
extern void sgghrd_(
char *, char *, integer *, integer *, integer *, real *, integer *
, real *, integer *, real *, integer *, real *, integer *,
integer *);
logical ldumma[1];
char chtemp[1];
real bignum;
extern /* Subroutine */ int slascl_(char *, integer *, integer *, real *,
extern /* Subroutine */ void slascl_(char *, integer *, integer *, real *,
real *, integer *, integer *, real *, integer *, integer *);
extern integer ilaenv_(integer *, char *, char *, integer *, integer *,
integer *, integer *, ftnlen, ftnlen);
integer ijobvl, iright;
extern /* Subroutine */ int sgeqrf_(integer *, integer *, real *, integer
extern /* Subroutine */ void sgeqrf_(integer *, integer *, real *, integer
*, real *, real *, integer *, integer *);
integer ijobvr;
extern /* Subroutine */ int slacpy_(char *, integer *, integer *, real *,
extern /* Subroutine */ void slacpy_(char *, integer *, integer *, real *,
integer *, real *, integer *), slaset_(char *, integer *,
integer *, real *, real *, real *, integer *), stgevc_(
char *, char *, logical *, integer *, real *, integer *, real *,
integer *, real *, integer *, real *, integer *, integer *,
integer *, real *, integer *);
real anrmto, bnrmto;
extern /* Subroutine */ int shgeqz_(char *, char *, char *, integer *,
extern /* Subroutine */ void shgeqz_(char *, char *, char *, integer *,
integer *, integer *, real *, integer *, real *, integer *, real *
, real *, real *, real *, integer *, real *, integer *, real *,
integer *, integer *);
integer minwrk, maxwrk;
real smlnum;
extern /* Subroutine */ int sorgqr_(integer *, integer *, integer *, real
extern /* Subroutine */ void sorgqr_(integer *, integer *, integer *, real
*, integer *, real *, real *, integer *, integer *);
logical lquery;
extern /* Subroutine */ int sormqr_(char *, char *, integer *, integer *,
extern /* Subroutine */ void sormqr_(char *, char *, integer *, integer *,
integer *, real *, integer *, real *, real *, integer *, real *,
integer *, integer *);
integer ihi, ilo;
@@ -919,15 +920,15 @@ ices</b> */
if (*info != 0) {
i__1 = -(*info);
xerbla_("SGGEV ", &i__1, (ftnlen)6);
return 0;
return;
} else if (lquery) {
return 0;
return;
}
/* Quick return if possible */
if (*n == 0) {
return 0;
return;
}
/* Get machine constants */
@@ -1215,7 +1216,7 @@ L110:
}
work[1] = (real) maxwrk;
return 0;
return;
/* End of SGGEV */