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

24
lapack-netlib/SRC/ctrsna.c
View File

@@ -760,7 +760,7 @@ f"> */
/* > \endverbatim */
/* > */
/* ===================================================================== */
/* Subroutine */ int ctrsna_(char *job, char *howmny, logical *select,
/* Subroutine */ void ctrsna_(char *job, char *howmny, logical *select,
integer *n, complex *t, integer *ldt, complex *vl, integer *ldvl,
complex *vr, integer *ldvr, real *s, real *sep, integer *mm, integer *
m, complex *work, integer *ldwork, real *rwork, integer *info)
@@ -783,20 +783,20 @@ f"> */
integer isave[3];
complex dummy[1];
logical wants;
extern /* Subroutine */ int clacn2_(integer *, complex *, complex *, real
extern /* Subroutine */ void clacn2_(integer *, complex *, complex *, real
*, integer *, integer *);
real xnorm;
extern real scnrm2_(integer *, complex *, integer *);
extern /* Subroutine */ int slabad_(real *, real *);
extern /* Subroutine */ void slabad_(real *, real *);
integer ks, ix;
extern integer icamax_(integer *, complex *, integer *);
extern real slamch_(char *);
extern /* Subroutine */ int clacpy_(char *, integer *, integer *, complex
*, integer *, complex *, integer *), xerbla_(char *,
integer *, ftnlen);
extern /* Subroutine */ void clacpy_(char *, integer *, integer *, complex
*, integer *, complex *, integer *);
extern int xerbla_(char *, integer *, ftnlen);
real bignum;
logical wantbh;
extern /* Subroutine */ int clatrs_(char *, char *, char *, char *,
extern /* Subroutine */ void clatrs_(char *, char *, char *, char *,
integer *, complex *, integer *, complex *, real *, real *,
integer *), csrscl_(integer *,
real *, complex *, integer *), ctrexc_(char *, integer *, complex
@@ -882,19 +882,19 @@ f"> */
if (*info != 0) {
i__1 = -(*info);
xerbla_("CTRSNA", &i__1, (ftnlen)6);
return 0;
return;
}
/* Quick return if possible */
if (*n == 0) {
return 0;
return;
}
if (*n == 1) {
if (somcon) {
if (! select[1]) {
return 0;
return;
}
}
if (wants) {
@@ -903,7 +903,7 @@ f"> */
if (wantsp) {
sep[1] = c_abs(&t[t_dim1 + 1]);
}
return 0;
return;
}
/* Get machine constants */
@@ -1020,7 +1020,7 @@ L40:
L50:
;
}
return 0;
return;
/* End of CTRSNA */