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

19
lapack-netlib/SRC/clatrs.c
View File

@@ -753,7 +753,7 @@ f"> */
/* > \endverbatim */
/* > */
/* ===================================================================== */
/* Subroutine */ int clatrs_(char *uplo, char *trans, char *diag, char *
/* Subroutine */ void clatrs_(char *uplo, char *trans, char *diag, char *
normin, integer *n, complex *a, integer *lda, complex *x, real *scale,
real *cnorm, integer *info)
{
@@ -773,24 +773,25 @@ f"> */
extern /* Complex */ VOID cdotc_(complex *, integer *, complex *, integer
*, complex *, integer *);
extern logical lsame_(char *, char *);
extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *);
extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *);
real tscal;
complex uscal;
integer jlast;
extern /* Complex */ VOID cdotu_(complex *, integer *, complex *, integer
*, complex *, integer *);
complex csumj;
extern /* Subroutine */ int caxpy_(integer *, complex *, complex *,
extern /* Subroutine */ void caxpy_(integer *, complex *, complex *,
integer *, complex *, integer *);
logical upper;
extern /* Subroutine */ int ctrsv_(char *, char *, char *, integer *,
extern /* Subroutine */ void ctrsv_(char *, char *, char *, integer *,
complex *, integer *, complex *, integer *), slabad_(real *, real *);
real xj;
extern integer icamax_(integer *, complex *, integer *);
extern /* Complex */ VOID cladiv_(complex *, complex *, complex *);
extern real slamch_(char *);
extern /* Subroutine */ int csscal_(integer *, real *, complex *, integer
*), xerbla_(char *, integer *, ftnlen);
extern /* Subroutine */ void csscal_(integer *, real *, complex *, integer
*);
extern int xerbla_(char *, integer *, ftnlen);
real bignum;
extern integer isamax_(integer *, real *, integer *);
extern real scasum_(integer *, complex *, integer *);
@@ -843,13 +844,13 @@ f"> */
if (*info != 0) {
i__1 = -(*info);
xerbla_("CLATRS", &i__1, (ftnlen)6);
return 0;
return;
}
/* Quick return if possible */
if (*n == 0) {
return 0;
return;
}
/* Determine machine dependent parameters to control overflow. */
@@ -1702,7 +1703,7 @@ L185:
sscal_(n, &r__1, &cnorm[1], &c__1);
}
return 0;
return;
/* End of CLATRS */