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

20
lapack-netlib/SRC/dtgsy2.c
View File

@@ -789,7 +789,7 @@ f"> */
/* > Umea University, S-901 87 Umea, Sweden. */
/* ===================================================================== */
/* Subroutine */ int dtgsy2_(char *trans, integer *ijob, integer *m, integer *
/* Subroutine */ void dtgsy2_(char *trans, integer *ijob, integer *m, integer *
n, doublereal *a, integer *lda, doublereal *b, integer *ldb,
doublereal *c__, integer *ldc, doublereal *d__, integer *ldd,
doublereal *e, integer *lde, doublereal *f, integer *ldf, doublereal *
@@ -801,18 +801,18 @@ f"> */
d_offset, e_dim1, e_offset, f_dim1, f_offset, i__1, i__2, i__3;
/* Local variables */
extern /* Subroutine */ int dger_(integer *, integer *, doublereal *,
extern /* Subroutine */ void dger_(integer *, integer *, doublereal *,
doublereal *, integer *, doublereal *, integer *, doublereal *,
integer *);
integer ierr, zdim, ipiv[8], jpiv[8], i__, j, k, p, q;
doublereal alpha;
extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *,
extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *,
integer *), dgemm_(char *, char *, integer *, integer *, integer *
, doublereal *, doublereal *, integer *, doublereal *, integer *,
doublereal *, doublereal *, integer *);
doublereal z__[64] /* was [8][8] */;
extern logical lsame_(char *, char *);
extern /* Subroutine */ int dgemv_(char *, integer *, integer *,
extern /* Subroutine */ void dgemv_(char *, integer *, integer *,
doublereal *, doublereal *, integer *, doublereal *, integer *,
doublereal *, doublereal *, integer *), dcopy_(integer *,
doublereal *, integer *, doublereal *, integer *), daxpy_(integer
@@ -821,13 +821,13 @@ f"> */
integer *, integer *, doublereal *), dgetc2_(integer *,
doublereal *, integer *, integer *, integer *, integer *);
integer ie, je, mb, nb, ii, jj, is, js;
extern /* Subroutine */ int dlatdf_(integer *, integer *, doublereal *,
extern /* Subroutine */ void dlatdf_(integer *, integer *, doublereal *,
integer *, doublereal *, doublereal *, doublereal *, integer *,
integer *);
doublereal scaloc;
extern /* Subroutine */ int dlaset_(char *, integer *, integer *,
doublereal *, doublereal *, doublereal *, integer *),
xerbla_(char *, integer *, ftnlen);
extern /* Subroutine */ void dlaset_(char *, integer *, integer *,
doublereal *, doublereal *, doublereal *, integer *);
extern int xerbla_(char *, integer *, ftnlen);
logical notran;
doublereal rhs[8];
integer isp1, jsp1;
@@ -900,7 +900,7 @@ f"> */
if (*info != 0) {
i__1 = -(*info);
xerbla_("DTGSY2", &i__1, (ftnlen)6);
return 0;
return;
}
/* Determine block structure of A */
@@ -1704,7 +1704,7 @@ L40:
}
}
return 0;
return;
/* End of DTGSY2 */