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

12
lapack-netlib/SRC/zlahef_aa.c
View File

@@ -658,7 +658,7 @@ aa.f"> */
/* > \ingroup complex16HEcomputational */
/* ===================================================================== */
/* Subroutine */ int zlahef_aa_(char *uplo, integer *j1, integer *m, integer
/* Subroutine */ void zlahef_aa_(char *uplo, integer *j1, integer *m, integer
*nb, doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *
h__, integer *ldh, doublecomplex *work)
{
@@ -671,21 +671,21 @@ aa.f"> */
integer j, k;
doublecomplex alpha;
extern logical lsame_(char *, char *);
extern /* Subroutine */ int zscal_(integer *, doublecomplex *,
extern /* Subroutine */ void zscal_(integer *, doublecomplex *,
doublecomplex *, integer *), zgemv_(char *, integer *, integer *,
doublecomplex *, doublecomplex *, integer *, doublecomplex *,
integer *, doublecomplex *, doublecomplex *, integer *);
integer i1, k1, i2;
extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *,
extern /* Subroutine */ void zcopy_(integer *, doublecomplex *, integer *,
doublecomplex *, integer *), zswap_(integer *, doublecomplex *,
integer *, doublecomplex *, integer *), zaxpy_(integer *,
doublecomplex *, doublecomplex *, integer *, doublecomplex *,
integer *);
integer mj;
extern /* Subroutine */ int zlacgv_(integer *, doublecomplex *, integer *)
extern /* Subroutine */ void zlacgv_(integer *, doublecomplex *, integer *)
;
extern integer izamax_(integer *, doublecomplex *, integer *);
extern /* Subroutine */ int zlaset_(char *, integer *, integer *,
extern /* Subroutine */ void zlaset_(char *, integer *, integer *,
doublecomplex *, doublecomplex *, doublecomplex *, integer *);
doublecomplex piv;
@@ -1100,7 +1100,7 @@ L30:
L40:
;
}
return 0;
return;
/* End of ZLAHEF_AA */