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
lapack-netlib/SRC/ssytf2_rk.c
+6 -6
View File
@@ -755,7 +755,7 @@ rk.f"> */
/* > \endverbatim */
/* ===================================================================== */
/* Subroutine */ int ssytf2_rk_(char *uplo, integer *n, real *a, integer *
/* Subroutine */ void ssytf2_rk_(char *uplo, integer *n, real *a, integer *
lda, real *e, integer *ipiv, integer *info)
{
/* System generated locals */
@@ -765,17 +765,17 @@ rk.f"> */
/* Local variables */
logical done;
integer imax, jmax;
extern /* Subroutine */ int ssyr_(char *, integer *, real *, real *,
extern /* Subroutine */ void ssyr_(char *, integer *, real *, real *,
integer *, real *, integer *);
integer i__, j, k, p;
real t, alpha;
extern logical lsame_(char *, char *);
extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *);
extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *);
real sfmin;
integer itemp, kstep;
real stemp;
logical upper;
extern /* Subroutine */ int sswap_(integer *, real *, integer *, real *,
extern /* Subroutine */ void sswap_(integer *, real *, integer *, real *,
integer *);
real d11, d12, d21, d22;
integer ii, kk, kp;
@@ -817,7 +817,7 @@ rk.f"> */
if (*info != 0) {
i__1 = -(*info);
xerbla_("SSYTF2_RK", &i__1, (ftnlen)9);
return 0;
return;
}
/* Initialize ALPHA for use in choosing pivot block size. */
@@ -1532,7 +1532,7 @@ L64:
;
}
return 0;
return;
/* End of SSYTF2_RK */