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

This commit is contained in:
martin-frbg 2022-12-14 14:06:11 +01:00
parent 3eac96ccdc
commit 48f4151373
36 changed files with 374 additions and 356 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
lapack-netlib/SRC/DEPRECATED/cgegs.c
View File

@ -740,7 +740,7 @@ rices</b> */
/* > \ingroup complexGEeigen */ /* > \ingroup complexGEeigen */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int cgegs_(char *jobvsl, char *jobvsr, integer *n, complex * /* Subroutine */ void cgegs_(char *jobvsl, char *jobvsr, integer *n, complex *
a, integer *lda, complex *b, integer *ldb, complex *alpha, complex * a, integer *lda, complex *b, integer *ldb, complex *alpha, complex *
beta, complex *vsl, integer *ldvsl, complex *vsr, integer *ldvsr, beta, complex *vsl, integer *ldvsl, complex *vsr, integer *ldvsr,
complex *work, integer *lwork, real *rwork, integer *info) complex *work, integer *lwork, real *rwork, integer *info)
@ -758,7 +758,7 @@ rices</b> */
integer iwork; integer iwork;
logical ilvsr; logical ilvsr;
integer irows; integer irows;
extern /* Subroutine */ int cggbak_(char *, char *, integer *, integer *, extern /* Subroutine */ void cggbak_(char *, char *, integer *, integer *,
integer *, real *, real *, integer *, complex *, integer *, integer *, real *, real *, integer *, complex *, integer *,
integer *), cggbal_(char *, integer *, complex *, integer *), cggbal_(char *, integer *, complex *,
integer *, complex *, integer *, integer *, integer *, real *, integer *, complex *, integer *, integer *, integer *, real *,
@ -766,24 +766,24 @@ rices</b> */
integer nb; integer nb;
extern real clange_(char *, integer *, integer *, complex *, integer *, extern real clange_(char *, integer *, integer *, complex *, integer *,
real *); real *);
extern /* Subroutine */ int cgghrd_(char *, char *, integer *, integer *, extern /* Subroutine */ void cgghrd_(char *, char *, integer *, integer *,
integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *,
integer *, complex *, integer *, integer *), integer *, complex *, integer *, integer *),
clascl_(char *, integer *, integer *, real *, real *, integer *, clascl_(char *, integer *, integer *, real *, real *, integer *,
integer *, complex *, integer *, integer *); integer *, complex *, integer *, integer *);
logical ilascl, ilbscl; logical ilascl, ilbscl;
extern /* Subroutine */ int cgeqrf_(integer *, integer *, complex *, extern /* Subroutine */ void cgeqrf_(integer *, integer *, complex *,
integer *, complex *, complex *, integer *, integer *); integer *, complex *, complex *, integer *, integer *);
extern real slamch_(char *); extern real slamch_(char *);
extern /* Subroutine */ int clacpy_(char *, integer *, integer *, complex extern /* Subroutine */ void clacpy_(char *, integer *, integer *, complex
*, integer *, complex *, integer *), claset_(char *, *, integer *, complex *, integer *), claset_(char *,
integer *, integer *, complex *, complex *, complex *, integer *); integer *, integer *, complex *, complex *, complex *, integer *);
real safmin; real safmin;
extern /* Subroutine */ int xerbla_(char *, integer *); extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen);
extern integer ilaenv_(integer *, char *, char *, integer *, integer *, extern integer ilaenv_(integer *, char *, char *, integer *, integer *,
integer *, integer *, ftnlen, ftnlen); integer *, integer *, ftnlen, ftnlen);
real bignum; real bignum;
extern /* Subroutine */ int chgeqz_(char *, char *, char *, integer *, extern /* Subroutine */ void chgeqz_(char *, char *, char *, integer *,
integer *, integer *, complex *, integer *, complex *, integer *, integer *, integer *, complex *, integer *, complex *, integer *,
complex *, complex *, complex *, integer *, complex *, integer *, complex *, complex *, complex *, integer *, complex *, integer *,
complex *, integer *, real *, integer *); complex *, integer *, real *, integer *);
@ -791,7 +791,7 @@ rices</b> */
real anrmto; real anrmto;
integer lwkmin, nb1, nb2, nb3; integer lwkmin, nb1, nb2, nb3;
real bnrmto; real bnrmto;
extern /* Subroutine */ int cungqr_(integer *, integer *, integer *, extern /* Subroutine */ void cungqr_(integer *, integer *, integer *,
complex *, integer *, complex *, complex *, integer *, integer *), complex *, integer *, complex *, complex *, integer *, integer *),
cunmqr_(char *, char *, integer *, integer *, integer *, complex cunmqr_(char *, char *, integer *, integer *, integer *, complex
*, integer *, complex *, complex *, integer *, complex *, integer *, integer *, complex *, complex *, integer *, complex *, integer
@ -898,16 +898,16 @@ rices</b> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGEGS ", &i__1); xerbla_("CGEGS ", &i__1, 6);
return 0; return;
} else if (lquery) { } else if (lquery) {
return 0; return;
} }
/* Quick return if possible */ /* Quick return if possible */
if (*n == 0) { if (*n == 0) {
return 0; return;
} }
/* Get machine constants */ /* Get machine constants */
@ -934,7 +934,7 @@ rices</b> */
iinfo); iinfo);
if (iinfo != 0) { if (iinfo != 0) {
*info = *n + 9; *info = *n + 9;
return 0; return;
} }
} }
@ -955,7 +955,7 @@ rices</b> */
iinfo); iinfo);
if (iinfo != 0) { if (iinfo != 0) {
*info = *n + 9; *info = *n + 9;
return 0; return;
} }
} }
@ -1092,13 +1092,13 @@ rices</b> */
iinfo); iinfo);
if (iinfo != 0) { if (iinfo != 0) {
*info = *n + 9; *info = *n + 9;
return 0; return;
} }
clascl_("G", &c_n1, &c_n1, &anrmto, &anrm, n, &c__1, &alpha[1], n, & clascl_("G", &c_n1, &c_n1, &anrmto, &anrm, n, &c__1, &alpha[1], n, &
iinfo); iinfo);
if (iinfo != 0) { if (iinfo != 0) {
*info = *n + 9; *info = *n + 9;
return 0; return;
} }
} }
@ -1107,20 +1107,20 @@ rices</b> */
iinfo); iinfo);
if (iinfo != 0) { if (iinfo != 0) {
*info = *n + 9; *info = *n + 9;
return 0; return;
} }
clascl_("G", &c_n1, &c_n1, &bnrmto, &bnrm, n, &c__1, &beta[1], n, & clascl_("G", &c_n1, &c_n1, &bnrmto, &bnrm, n, &c__1, &beta[1], n, &
iinfo); iinfo);
if (iinfo != 0) { if (iinfo != 0) {
*info = *n + 9; *info = *n + 9;
return 0; return;
} }
} }
L10: L10:
work[1].r = (real) lwkopt, work[1].i = 0.f; work[1].r = (real) lwkopt, work[1].i = 0.f;
return 0; return;
/* End of CGEGS */ /* End of CGEGS */

36
lapack-netlib/SRC/DEPRECATED/cgegv.c
View File

@ -799,7 +799,7 @@ rices</b> */
/* > \endverbatim */ /* > \endverbatim */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int cgegv_(char *jobvl, char *jobvr, integer *n, complex *a, /* Subroutine */ void cgegv_(char *jobvl, char *jobvr, integer *n, complex *a,
integer *lda, complex *b, integer *ldb, complex *alpha, complex *beta, integer *lda, complex *b, integer *ldb, complex *alpha, complex *beta,
complex *vl, integer *ldvl, complex *vr, integer *ldvr, complex * complex *vl, integer *ldvl, complex *vr, integer *ldvr, complex *
work, integer *lwork, real *rwork, integer *info) work, integer *lwork, real *rwork, integer *info)
@ -819,7 +819,7 @@ rices</b> */
real anrm1, anrm2, bnrm1, bnrm2, absai, scale, absar, sbeta; real anrm1, anrm2, bnrm1, bnrm2, absai, scale, absar, sbeta;
extern logical lsame_(char *, char *); extern logical lsame_(char *, char *);
integer ileft, iinfo, icols, iwork, irows, jc; integer ileft, iinfo, icols, iwork, irows, jc;
extern /* Subroutine */ int cggbak_(char *, char *, integer *, integer *, extern /* Subroutine */ void cggbak_(char *, char *, integer *, integer *,
integer *, real *, real *, integer *, complex *, integer *, integer *, real *, real *, integer *, complex *, integer *,
integer *), cggbal_(char *, integer *, complex *, integer *), cggbal_(char *, integer *, complex *,
integer *, complex *, integer *, integer *, integer *, real *, integer *, complex *, integer *, integer *, integer *, real *,
@ -828,40 +828,40 @@ rices</b> */
extern real clange_(char *, integer *, integer *, complex *, integer *, extern real clange_(char *, integer *, integer *, complex *, integer *,
real *); real *);
integer jr; integer jr;
extern /* Subroutine */ int cgghrd_(char *, char *, integer *, integer *, extern /* Subroutine */ void cgghrd_(char *, char *, integer *, integer *,
integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *,
integer *, complex *, integer *, integer *); integer *, complex *, integer *, integer *);
real salfai; real salfai;
extern /* Subroutine */ int clascl_(char *, integer *, integer *, real *, extern /* Subroutine */ void clascl_(char *, integer *, integer *, real *,
real *, integer *, integer *, complex *, integer *, integer *), cgeqrf_(integer *, integer *, complex *, integer *, real *, integer *, integer *, complex *, integer *, integer *), cgeqrf_(integer *, integer *, complex *, integer *,
complex *, complex *, integer *, integer *); complex *, complex *, integer *, integer *);
real salfar; real salfar;
extern real slamch_(char *); extern real slamch_(char *);
extern /* Subroutine */ int clacpy_(char *, integer *, integer *, complex extern /* Subroutine */ void clacpy_(char *, integer *, integer *, complex
*, integer *, complex *, integer *), claset_(char *, *, integer *, complex *, integer *), claset_(char *,
integer *, integer *, complex *, complex *, complex *, integer *); integer *, integer *, complex *, complex *, complex *, integer *);
real safmin; real safmin;
extern /* Subroutine */ int ctgevc_(char *, char *, logical *, integer *, extern /* Subroutine */ void ctgevc_(char *, char *, logical *, integer *,
complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *,
complex *, integer *, integer *, integer *, complex *, real *, complex *, integer *, integer *, integer *, complex *, real *,
integer *); integer *);
real safmax; real safmax;
char chtemp[1]; char chtemp[1];
logical ldumma[1]; logical ldumma[1];
extern /* Subroutine */ int chgeqz_(char *, char *, char *, integer *, extern /* Subroutine */ void chgeqz_(char *, char *, char *, integer *,
integer *, integer *, complex *, integer *, complex *, integer *, integer *, integer *, complex *, integer *, complex *, integer *,
complex *, complex *, complex *, integer *, complex *, integer *, complex *, complex *, complex *, integer *, complex *, integer *,
complex *, integer *, real *, integer *), complex *, integer *, real *, integer *);
xerbla_(char *, integer *); extern int xerbla_(char *, integer *, ftnlen);
extern integer ilaenv_(integer *, char *, char *, integer *, integer *, extern integer ilaenv_(integer *, char *, char *, integer *, integer *,
integer *, integer *, ftnlen, ftnlen); integer *, integer *, ftnlen, ftnlen);
integer ijobvl, iright; integer ijobvl, iright;
logical ilimit; logical ilimit;
integer ijobvr; integer ijobvr;
extern /* Subroutine */ int cungqr_(integer *, integer *, integer *, extern /* Subroutine */ void cungqr_(integer *, integer *, integer *,
complex *, integer *, complex *, complex *, integer *, integer *); complex *, integer *, complex *, complex *, integer *, integer *);
integer lwkmin, nb1, nb2, nb3; integer lwkmin, nb1, nb2, nb3;
extern /* Subroutine */ int cunmqr_(char *, char *, integer *, integer *, extern /* Subroutine */ void cunmqr_(char *, char *, integer *, integer *,
integer *, complex *, integer *, complex *, complex *, integer *, integer *, complex *, integer *, complex *, complex *, integer *,
complex *, integer *, integer *); complex *, integer *, integer *);
integer irwork, lwkopt; integer irwork, lwkopt;
@ -969,16 +969,16 @@ rices</b> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGEGV ", &i__1); xerbla_("CGEGV ", &i__1, 6);
return 0; return;
} else if (lquery) { } else if (lquery) {
return 0; return;
} }
/* Quick return if possible */ /* Quick return if possible */
if (*n == 0) { if (*n == 0) {
return 0; return;
} }
/* Get machine constants */ /* Get machine constants */
@ -1005,7 +1005,7 @@ rices</b> */
iinfo); iinfo);
if (iinfo != 0) { if (iinfo != 0) {
*info = *n + 10; *info = *n + 10;
return 0; return;
} }
} }
@ -1026,7 +1026,7 @@ rices</b> */
iinfo); iinfo);
if (iinfo != 0) { if (iinfo != 0) {
*info = *n + 10; *info = *n + 10;
return 0; return;
} }
} }
@ -1353,7 +1353,7 @@ L60:
L80: L80:
work[1].r = (real) lwkopt, work[1].i = 0.f; work[1].r = (real) lwkopt, work[1].i = 0.f;
return 0; return;
/* End of CGEGV */ /* End of CGEGV */

26
lapack-netlib/SRC/DEPRECATED/cgelsx.c
View File

@ -700,7 +700,7 @@ f"> */
/* > \ingroup complexGEsolve */ /* > \ingroup complexGEsolve */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int cgelsx_(integer *m, integer *n, integer *nrhs, complex * /* Subroutine */ void cgelsx_(integer *m, integer *n, integer *nrhs, complex *
a, integer *lda, complex *b, integer *ldb, integer *jpvt, real *rcond, a, integer *lda, complex *b, integer *ldb, integer *jpvt, real *rcond,
integer *rank, complex *work, real *rwork, integer *info) integer *rank, complex *work, real *rwork, integer *info)
{ {
@ -712,31 +712,31 @@ f"> */
real anrm, bnrm, smin, smax; real anrm, bnrm, smin, smax;
integer i__, j, k, iascl, ibscl, ismin, ismax; integer i__, j, k, iascl, ibscl, ismin, ismax;
complex c1, c2; complex c1, c2;
extern /* Subroutine */ int ctrsm_(char *, char *, char *, char *, extern /* Subroutine */ void ctrsm_(char *, char *, char *, char *,
integer *, integer *, complex *, complex *, integer *, complex *, integer *, integer *, complex *, complex *, integer *, complex *,
integer *), claic1_(integer *, integer *), claic1_(integer *,
integer *, complex *, real *, complex *, complex *, real *, integer *, complex *, real *, complex *, complex *, real *,
complex *, complex *); complex *, complex *);
complex s1, s2, t1, t2; complex s1, s2, t1, t2;
extern /* Subroutine */ int cunm2r_(char *, char *, integer *, integer *, extern /* Subroutine */ void cunm2r_(char *, char *, integer *, integer *,
integer *, complex *, integer *, complex *, complex *, integer *, integer *, complex *, integer *, complex *, complex *, integer *,
complex *, integer *), slabad_(real *, real *); complex *, integer *), slabad_(real *, real *);
extern real clange_(char *, integer *, integer *, complex *, integer *, extern real clange_(char *, integer *, integer *, complex *, integer *,
real *); real *);
integer mn; integer mn;
extern /* Subroutine */ int clascl_(char *, integer *, integer *, real *, extern /* Subroutine */ void clascl_(char *, integer *, integer *, real *,
real *, integer *, integer *, complex *, integer *, integer *), cgeqpf_(integer *, integer *, complex *, integer *, real *, integer *, integer *, complex *, integer *, integer *), cgeqpf_(integer *, integer *, complex *, integer *,
integer *, complex *, complex *, real *, integer *); integer *, complex *, complex *, real *, integer *);
extern real slamch_(char *); extern real slamch_(char *);
extern /* Subroutine */ int claset_(char *, integer *, integer *, complex extern /* Subroutine */ void claset_(char *, integer *, integer *, complex
*, complex *, complex *, integer *), xerbla_(char *, *, complex *, complex *, integer *);
integer *); extern int xerbla_(char *, integer *, ftnlen);
real bignum; real bignum;
extern /* Subroutine */ int clatzm_(char *, integer *, integer *, complex extern /* Subroutine */ void clatzm_(char *, integer *, integer *, complex
*, integer *, complex *, complex *, complex *, integer *, complex *, integer *, complex *, complex *, complex *, integer *, complex
*); *);
real sminpr; real sminpr;
extern /* Subroutine */ int ctzrqf_(integer *, integer *, complex *, extern /* Subroutine */ void ctzrqf_(integer *, integer *, complex *,
integer *, complex *, integer *); integer *, complex *, integer *);
real smaxpr, smlnum; real smaxpr, smlnum;
@ -787,8 +787,8 @@ f"> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGELSX", &i__1); xerbla_("CGELSX", &i__1, 6);
return 0; return;
} }
/* Quick return if possible */ /* Quick return if possible */
@ -797,7 +797,7 @@ f"> */
i__1 = f2cmin(*m,*n); i__1 = f2cmin(*m,*n);
if (f2cmin(i__1,*nrhs) == 0) { if (f2cmin(i__1,*nrhs) == 0) {
*rank = 0; *rank = 0;
return 0; return;
} }
/* Get machine parameters */ /* Get machine parameters */
@ -1029,7 +1029,7 @@ L70:
L100: L100:
return 0; return;
/* End of CGELSX */ /* End of CGELSX */

18
lapack-netlib/SRC/DEPRECATED/cgeqpf.c
View File

@ -661,7 +661,7 @@ f"> */
/* > \endverbatim */ /* > \endverbatim */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int cgeqpf_(integer *m, integer *n, complex *a, integer *lda, /* Subroutine */ void cgeqpf_(integer *m, integer *n, complex *a, integer *lda,
integer *jpvt, complex *tau, complex *work, real *rwork, integer * integer *jpvt, complex *tau, complex *work, real *rwork, integer *
info) info)
{ {
@ -674,21 +674,21 @@ f"> */
real temp, temp2; real temp, temp2;
integer i__, j; integer i__, j;
real tol3z; real tol3z;
extern /* Subroutine */ int clarf_(char *, integer *, integer *, complex * extern /* Subroutine */ void clarf_(char *, integer *, integer *, complex *
, integer *, complex *, complex *, integer *, complex *), , integer *, complex *, complex *, integer *, complex *),
cswap_(integer *, complex *, integer *, complex *, integer *); cswap_(integer *, complex *, integer *, complex *, integer *);
integer itemp; integer itemp;
extern /* Subroutine */ int cgeqr2_(integer *, integer *, complex *, extern /* Subroutine */ void cgeqr2_(integer *, integer *, complex *,
integer *, complex *, complex *, integer *); integer *, complex *, complex *, integer *);
extern real scnrm2_(integer *, complex *, integer *); extern real scnrm2_(integer *, complex *, integer *);
extern /* Subroutine */ int cunm2r_(char *, char *, integer *, integer *, extern /* Subroutine */ void cunm2r_(char *, char *, integer *, integer *,
integer *, complex *, integer *, complex *, complex *, integer *, integer *, complex *, integer *, complex *, complex *, integer *,
complex *, integer *); complex *, integer *);
integer ma, mn; integer ma, mn;
extern /* Subroutine */ int clarfg_(integer *, complex *, complex *, extern /* Subroutine */ void clarfg_(integer *, complex *, complex *,
integer *, complex *); integer *, complex *);
extern real slamch_(char *); extern real slamch_(char *);
extern /* Subroutine */ int xerbla_(char *, integer *); extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen);
extern integer isamax_(integer *, real *, integer *); extern integer isamax_(integer *, real *, integer *);
complex aii; complex aii;
integer pvt; integer pvt;
@ -725,8 +725,8 @@ f"> */
} }
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGEQPF", &i__1); xerbla_("CGEQPF", &i__1, 6);
return 0; return;
} }
mn = f2cmin(*m,*n); mn = f2cmin(*m,*n);
@ -865,7 +865,7 @@ f"> */
/* L40: */ /* L40: */
} }
} }
return 0; return;
/* End of CGEQPF */ /* End of CGEQPF */

17
lapack-netlib/SRC/DEPRECATED/cggsvd.c
View File

@ -849,7 +849,7 @@ f"> */
/* > California at Berkeley, USA */ /* > California at Berkeley, USA */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int cggsvd_(char *jobu, char *jobv, char *jobq, integer *m, /* Subroutine */ void cggsvd_(char *jobu, char *jobv, char *jobq, integer *m,
integer *n, integer *p, integer *k, integer *l, complex *a, integer * integer *n, integer *p, integer *k, integer *l, complex *a, integer *
lda, complex *b, integer *ldb, real *alpha, real *beta, complex *u, lda, complex *b, integer *ldb, real *alpha, real *beta, complex *u,
integer *ldu, complex *v, integer *ldv, complex *q, integer *ldq, integer *ldu, complex *v, integer *ldv, complex *q, integer *ldq,
@ -868,17 +868,18 @@ f"> */
extern logical lsame_(char *, char *); extern logical lsame_(char *, char *);
real anorm, bnorm; real anorm, bnorm;
logical wantq; logical wantq;
extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *,
integer *); integer *);
logical wantu, wantv; logical wantu, wantv;
extern real clange_(char *, integer *, integer *, complex *, integer *, extern real clange_(char *, integer *, integer *, complex *, integer *,
real *), slamch_(char *); real *), slamch_(char *);
extern /* Subroutine */ int ctgsja_(char *, char *, char *, integer *, extern /* Subroutine */ void ctgsja_(char *, char *, char *, integer *,
integer *, integer *, integer *, integer *, complex *, integer *, integer *, integer *, integer *, integer *, complex *, integer *,
complex *, integer *, real *, real *, real *, real *, complex *, complex *, integer *, real *, real *, real *, real *, complex *,
integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *,
integer *, integer *), xerbla_(char *, integer *, integer *);
integer *), cggsvp_(char *, char *, char *, integer *, extern int xerbla_(char *, integer *, ftnlen);
extern void cggsvp_(char *, char *, char *, integer *,
integer *, integer *, complex *, integer *, complex *, integer *, integer *, integer *, complex *, integer *, complex *, integer *,
real *, real *, integer *, integer *, complex *, integer *, real *, real *, integer *, integer *, complex *, integer *,
complex *, integer *, complex *, integer *, integer *, real *, complex *, integer *, complex *, integer *, integer *, real *,
@ -950,8 +951,8 @@ f"> */
} }
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGGSVD", &i__1); xerbla_("CGGSVD", &i__1, 6);
return 0; return;
} }
/* Compute the Frobenius norm of matrices A and B */ /* Compute the Frobenius norm of matrices A and B */
@ -1011,7 +1012,7 @@ f"> */
/* L20: */ /* L20: */
} }
return 0; return;
/* End of CGGSVD */ /* End of CGGSVD */

15
lapack-netlib/SRC/DEPRECATED/cggsvp.c
View File

@ -774,7 +774,7 @@ f"> */
/* > a matrix. It may be replaced by a better rank determination strategy. */ /* > a matrix. It may be replaced by a better rank determination strategy. */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int cggsvp_(char *jobu, char *jobv, char *jobq, integer *m, /* Subroutine */ void cggsvp_(char *jobu, char *jobv, char *jobq, integer *m,
integer *p, integer *n, complex *a, integer *lda, complex *b, integer integer *p, integer *n, complex *a, integer *lda, complex *b, integer
*ldb, real *tola, real *tolb, integer *k, integer *l, complex *u, *ldb, real *tola, real *tolb, integer *k, integer *l, complex *u,
integer *ldu, complex *v, integer *ldv, complex *q, integer *ldq, integer *ldu, complex *v, integer *ldv, complex *q, integer *ldq,
@ -790,7 +790,7 @@ f"> */
integer i__, j; integer i__, j;
extern logical lsame_(char *, char *); extern logical lsame_(char *, char *);
logical wantq, wantu, wantv; logical wantq, wantu, wantv;
extern /* Subroutine */ int cgeqr2_(integer *, integer *, complex *, extern /* Subroutine */ void cgeqr2_(integer *, integer *, complex *,
integer *, complex *, complex *, integer *), cgerq2_(integer *, integer *, complex *, complex *, integer *), cgerq2_(integer *,
integer *, complex *, integer *, complex *, complex *, integer *), integer *, complex *, integer *, complex *, complex *, integer *),
cung2r_(integer *, integer *, integer *, complex *, integer *, cung2r_(integer *, integer *, integer *, complex *, integer *,
@ -802,8 +802,9 @@ f"> */
integer *, complex *, complex *, real *, integer *), clacpy_(char integer *, complex *, complex *, real *, integer *), clacpy_(char
*, integer *, integer *, complex *, integer *, complex *, integer *, integer *, integer *, complex *, integer *, complex *, integer
*), claset_(char *, integer *, integer *, complex *, *), claset_(char *, integer *, integer *, complex *,
complex *, complex *, integer *), xerbla_(char *, integer complex *, complex *, integer *);
*), clapmt_(logical *, integer *, integer *, complex *, extern int xerbla_(char *, integer *, ftnlen);
extern void clapmt_(logical *, integer *, integer *, complex *,
integer *, integer *); integer *, integer *);
logical forwrd; logical forwrd;
@ -872,8 +873,8 @@ f"> */
} }
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGGSVP", &i__1); xerbla_("CGGSVP", &i__1, 6);
return 0; return;
} }
/* QR with column pivoting of B: B*P = V*( S11 S12 ) */ /* QR with column pivoting of B: B*P = V*( S11 S12 ) */
@ -1131,7 +1132,7 @@ f"> */
} }
return 0; return;
/* End of CGGSVP */ /* End of CGGSVP */

10
lapack-netlib/SRC/DEPRECATED/clahrd.c
View File

@ -684,7 +684,7 @@ f"> */
/* > \endverbatim */ /* > \endverbatim */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int clahrd_(integer *n, integer *k, integer *nb, complex *a, /* Subroutine */ void clahrd_(integer *n, integer *k, integer *nb, complex *a,
integer *lda, complex *tau, complex *t, integer *ldt, complex *y, integer *lda, complex *tau, complex *t, integer *ldt, complex *y,
integer *ldy) integer *ldy)
{ {
@ -695,7 +695,7 @@ f"> */
/* Local variables */ /* Local variables */
integer i__; integer i__;
extern /* Subroutine */ int cscal_(integer *, complex *, complex *, extern /* Subroutine */ void cscal_(integer *, complex *, complex *,
integer *), cgemv_(char *, integer *, integer *, complex *, integer *), cgemv_(char *, integer *, integer *, complex *,
complex *, integer *, complex *, integer *, complex *, complex *, complex *, integer *, complex *, integer *, complex *, complex *,
integer *), ccopy_(integer *, complex *, integer *, integer *), ccopy_(integer *, complex *, integer *,
@ -703,7 +703,7 @@ f"> */
integer *, complex *, integer *), ctrmv_(char *, char *, char *, integer *, complex *, integer *), ctrmv_(char *, char *, char *,
integer *, complex *, integer *, complex *, integer *); integer *, complex *, integer *, complex *, integer *);
complex ei; complex ei;
extern /* Subroutine */ int clarfg_(integer *, complex *, complex *, extern /* Subroutine */ void clarfg_(integer *, complex *, complex *,
integer *, complex *), clacgv_(integer *, complex *, integer *); integer *, complex *), clacgv_(integer *, complex *, integer *);
@ -732,7 +732,7 @@ f"> */
/* Function Body */ /* Function Body */
if (*n <= 1) { if (*n <= 1) {
return 0; return;
} }
i__1 = *nb; i__1 = *nb;
@ -856,7 +856,7 @@ f"> */
i__1 = *k + *nb + *nb * a_dim1; i__1 = *k + *nb + *nb * a_dim1;
a[i__1].r = ei.r, a[i__1].i = ei.i; a[i__1].r = ei.r, a[i__1].i = ei.i;
return 0; return;
/* End of CLAHRD */ /* End of CLAHRD */

10
lapack-netlib/SRC/DEPRECATED/clatzm.c
View File

@ -666,7 +666,7 @@ f"> */
/* > \ingroup complexOTHERcomputational */ /* > \ingroup complexOTHERcomputational */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int clatzm_(char *side, integer *m, integer *n, complex *v, /* Subroutine */ void clatzm_(char *side, integer *m, integer *n, complex *v,
integer *incv, complex *tau, complex *c1, complex *c2, integer *ldc, integer *incv, complex *tau, complex *c1, complex *c2, integer *ldc,
complex *work) complex *work)
{ {
@ -675,12 +675,12 @@ f"> */
complex q__1; complex q__1;
/* Local variables */ /* Local variables */
extern /* Subroutine */ int cgerc_(integer *, integer *, complex *, extern /* Subroutine */ void cgerc_(integer *, integer *, complex *,
complex *, integer *, complex *, integer *, complex *, integer *), complex *, integer *, complex *, integer *, complex *, integer *),
cgemv_(char *, integer *, integer *, complex *, complex *, cgemv_(char *, integer *, integer *, complex *, complex *,
integer *, complex *, integer *, complex *, complex *, integer *); integer *, complex *, integer *, complex *, complex *, integer *);
extern logical lsame_(char *, char *); extern logical lsame_(char *, char *);
extern /* Subroutine */ int cgeru_(integer *, integer *, complex *, extern /* Subroutine */ void cgeru_(integer *, integer *, complex *,
complex *, integer *, complex *, integer *, complex *, integer *), complex *, integer *, complex *, integer *, complex *, integer *),
ccopy_(integer *, complex *, integer *, complex *, integer *), ccopy_(integer *, complex *, integer *, complex *, integer *),
caxpy_(integer *, complex *, complex *, integer *, complex *, caxpy_(integer *, complex *, complex *, integer *, complex *,
@ -708,7 +708,7 @@ f"> */
/* Function Body */ /* Function Body */
if (f2cmin(*m,*n) == 0 || tau->r == 0.f && tau->i == 0.f) { if (f2cmin(*m,*n) == 0 || tau->r == 0.f && tau->i == 0.f) {
return 0; return;
} }
if (lsame_(side, "L")) { if (lsame_(side, "L")) {
@ -751,7 +751,7 @@ f"> */
ldc); ldc);
} }
return 0; return;
/* End of CLATZM */ /* End of CLATZM */

20
lapack-netlib/SRC/DEPRECATED/ctzrqf.c
View File

@ -652,7 +652,7 @@ f"> */
/* > \endverbatim */ /* > \endverbatim */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int ctzrqf_(integer *m, integer *n, complex *a, integer *lda, /* Subroutine */ void ctzrqf_(integer *m, integer *n, complex *a, integer *lda,
complex *tau, integer *info) complex *tau, integer *info)
{ {
/* System generated locals */ /* System generated locals */
@ -661,18 +661,18 @@ f"> */
/* Local variables */ /* Local variables */
integer i__, k; integer i__, k;
extern /* Subroutine */ int cgerc_(integer *, integer *, complex *, extern /* Subroutine */ void cgerc_(integer *, integer *, complex *,
complex *, integer *, complex *, integer *, complex *, integer *); complex *, integer *, complex *, integer *, complex *, integer *);
complex alpha; complex alpha;
extern /* Subroutine */ int cgemv_(char *, integer *, integer *, complex * extern /* Subroutine */ void cgemv_(char *, integer *, integer *, complex *
, complex *, integer *, complex *, integer *, complex *, complex * , complex *, integer *, complex *, integer *, complex *, complex *
, integer *), ccopy_(integer *, complex *, integer *, , integer *), ccopy_(integer *, complex *, integer *,
complex *, integer *), caxpy_(integer *, complex *, complex *, complex *, integer *), caxpy_(integer *, complex *, complex *,
integer *, complex *, integer *); integer *, complex *, integer *);
integer m1; integer m1;
extern /* Subroutine */ int clarfg_(integer *, complex *, complex *, extern /* Subroutine */ void clarfg_(integer *, complex *, complex *,
integer *, complex *), clacgv_(integer *, complex *, integer *), integer *, complex *), clacgv_(integer *, complex *, integer *);
xerbla_(char *, integer *); extern int xerbla_(char *, integer *, ftnlen);
/* -- LAPACK computational routine (version 3.7.0) -- */ /* -- LAPACK computational routine (version 3.7.0) -- */
@ -703,14 +703,14 @@ f"> */
} }
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CTZRQF", &i__1); xerbla_("CTZRQF", &i__1, 6);
return 0; return;
} }
/* Perform the factorization. */ /* Perform the factorization. */
if (*m == 0) { if (*m == 0) {
return 0; return;
} }
if (*m == *n) { if (*m == *n) {
i__1 = *n; i__1 = *n;
@ -783,7 +783,7 @@ f"> */
} }
} }
return 0; return;
/* End of CTZRQF */ /* End of CTZRQF */

46
lapack-netlib/SRC/DEPRECATED/dgegs.c
View File

@ -742,7 +742,7 @@ rices</b> */
/* > \ingroup doubleGEeigen */ /* > \ingroup doubleGEeigen */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int dgegs_(char *jobvsl, char *jobvsr, integer *n, /* Subroutine */ void dgegs_(char *jobvsl, char *jobvsr, integer *n,
doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal * doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *
alphar, doublereal *alphai, doublereal *beta, doublereal *vsl, alphar, doublereal *alphai, doublereal *beta, doublereal *vsl,
integer *ldvsl, doublereal *vsr, integer *ldvsr, doublereal *work, integer *ldvsl, doublereal *vsr, integer *ldvsr, doublereal *work,
@ -761,45 +761,45 @@ rices</b> */
integer iwork; integer iwork;
logical ilvsr; logical ilvsr;
integer irows; integer irows;
extern /* Subroutine */ int dggbak_(char *, char *, integer *, integer *, extern /* Subroutine */ void dggbak_(char *, char *, integer *, integer *,
integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *,
integer *, integer *); integer *, integer *);
integer nb; integer nb;
extern /* Subroutine */ int dggbal_(char *, integer *, doublereal *, extern /* Subroutine */ void dggbal_(char *, integer *, doublereal *,
integer *, doublereal *, integer *, integer *, integer *, integer *, doublereal *, integer *, integer *, integer *,
doublereal *, doublereal *, doublereal *, integer *); doublereal *, doublereal *, doublereal *, integer *);
extern doublereal dlamch_(char *), dlange_(char *, integer *, extern doublereal dlamch_(char *), dlange_(char *, integer *,
integer *, doublereal *, integer *, doublereal *); integer *, doublereal *, integer *, doublereal *);
extern /* Subroutine */ int dgghrd_(char *, char *, integer *, integer *, extern /* Subroutine */ void dgghrd_(char *, char *, integer *, integer *,
integer *, doublereal *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, doublereal *, integer *,
doublereal *, integer *, doublereal *, integer *, integer *), dlascl_(char *, integer *, integer *, doublereal doublereal *, integer *, doublereal *, integer *, integer *), dlascl_(char *, integer *, integer *, doublereal
*, doublereal *, integer *, integer *, doublereal *, integer *, *, doublereal *, integer *, integer *, doublereal *, integer *,
integer *); integer *);
logical ilascl, ilbscl; logical ilascl, ilbscl;
extern /* Subroutine */ int dgeqrf_(integer *, integer *, doublereal *, extern /* Subroutine */ void dgeqrf_(integer *, integer *, doublereal *,
integer *, doublereal *, doublereal *, integer *, integer *), integer *, doublereal *, doublereal *, integer *, integer *),
dlacpy_(char *, integer *, integer *, doublereal *, integer *, dlacpy_(char *, integer *, integer *, doublereal *, integer *,
doublereal *, integer *); doublereal *, integer *);
doublereal safmin; doublereal safmin;
extern /* Subroutine */ int dlaset_(char *, integer *, integer *, extern /* Subroutine */ void dlaset_(char *, integer *, integer *,
doublereal *, doublereal *, doublereal *, integer *), doublereal *, doublereal *, doublereal *, integer *);
xerbla_(char *, integer *); extern int xerbla_(char *, integer *, ftnlen);
extern integer ilaenv_(integer *, char *, char *, integer *, integer *, extern integer ilaenv_(integer *, char *, char *, integer *, integer *,
integer *, integer *, ftnlen, ftnlen); integer *, integer *, ftnlen, ftnlen);
doublereal bignum; doublereal bignum;
extern /* Subroutine */ int dhgeqz_(char *, char *, char *, integer *, extern /* Subroutine */ void dhgeqz_(char *, char *, char *, integer *,
integer *, integer *, doublereal *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, doublereal *,
integer *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, doublereal *,
integer *, doublereal *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, doublereal *, integer *,
integer *); integer *);
integer ijobvl, iright, ijobvr; integer ijobvl, iright, ijobvr;
extern /* Subroutine */ int dorgqr_(integer *, integer *, integer *, extern /* Subroutine */ void dorgqr_(integer *, integer *, integer *,
doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *,
integer *); integer *);
doublereal anrmto; doublereal anrmto;
integer lwkmin, nb1, nb2, nb3; integer lwkmin, nb1, nb2, nb3;
doublereal bnrmto; doublereal bnrmto;
extern /* Subroutine */ int dormqr_(char *, char *, integer *, integer *, extern /* Subroutine */ void dormqr_(char *, char *, integer *, integer *,
integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *,
integer *, doublereal *, integer *, integer *); integer *, doublereal *, integer *, integer *);
doublereal smlnum; doublereal smlnum;
@ -904,16 +904,16 @@ rices</b> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("DGEGS ", &i__1); xerbla_("DGEGS ", &i__1, 6);
return 0; return;
} else if (lquery) { } else if (lquery) {
return 0; return;
} }
/* Quick return if possible */ /* Quick return if possible */
if (*n == 0) { if (*n == 0) {
return 0; return;
} }
/* Get machine constants */ /* Get machine constants */
@ -940,7 +940,7 @@ rices</b> */
iinfo); iinfo);
if (iinfo != 0) { if (iinfo != 0) {
*info = *n + 9; *info = *n + 9;
return 0; return;
} }
} }
@ -961,7 +961,7 @@ rices</b> */
iinfo); iinfo);
if (iinfo != 0) { if (iinfo != 0) {
*info = *n + 9; *info = *n + 9;
return 0; return;
} }
} }
@ -1098,19 +1098,19 @@ rices</b> */
iinfo); iinfo);
if (iinfo != 0) { if (iinfo != 0) {
*info = *n + 9; *info = *n + 9;
return 0; return;
} }
dlascl_("G", &c_n1, &c_n1, &anrmto, &anrm, n, &c__1, &alphar[1], n, & dlascl_("G", &c_n1, &c_n1, &anrmto, &anrm, n, &c__1, &alphar[1], n, &
iinfo); iinfo);
if (iinfo != 0) { if (iinfo != 0) {
*info = *n + 9; *info = *n + 9;
return 0; return;
} }
dlascl_("G", &c_n1, &c_n1, &anrmto, &anrm, n, &c__1, &alphai[1], n, & dlascl_("G", &c_n1, &c_n1, &anrmto, &anrm, n, &c__1, &alphai[1], n, &
iinfo); iinfo);
if (iinfo != 0) { if (iinfo != 0) {
*info = *n + 9; *info = *n + 9;
return 0; return;
} }
} }
@ -1119,20 +1119,20 @@ rices</b> */
iinfo); iinfo);
if (iinfo != 0) { if (iinfo != 0) {
*info = *n + 9; *info = *n + 9;
return 0; return;
} }
dlascl_("G", &c_n1, &c_n1, &bnrmto, &bnrm, n, &c__1, &beta[1], n, & dlascl_("G", &c_n1, &c_n1, &bnrmto, &bnrm, n, &c__1, &beta[1], n, &
iinfo); iinfo);
if (iinfo != 0) { if (iinfo != 0) {
*info = *n + 9; *info = *n + 9;
return 0; return;
} }
} }
L10: L10:
work[1] = (doublereal) lwkopt; work[1] = (doublereal) lwkopt;
return 0; return;
/* End of DGEGS */ /* End of DGEGS */

36
lapack-netlib/SRC/DEPRECATED/dgegv.c
View File

@ -822,7 +822,7 @@ rices</b> */
/* > \endverbatim */ /* > \endverbatim */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int dgegv_(char *jobvl, char *jobvr, integer *n, doublereal * /* Subroutine */ void dgegv_(char *jobvl, char *jobvr, integer *n, doublereal *
a, integer *lda, doublereal *b, integer *ldb, doublereal *alphar, a, integer *lda, doublereal *b, integer *ldb, doublereal *alphar,
doublereal *alphai, doublereal *beta, doublereal *vl, integer *ldvl, doublereal *alphai, doublereal *beta, doublereal *vl, integer *ldvl,
doublereal *vr, integer *ldvr, doublereal *work, integer *lwork, doublereal *vr, integer *ldvr, doublereal *work, integer *lwork,
@ -842,11 +842,11 @@ rices</b> */
doublereal anrm1, anrm2, bnrm1, bnrm2, absai, scale, absar, sbeta; doublereal anrm1, anrm2, bnrm1, bnrm2, absai, scale, absar, sbeta;
extern logical lsame_(char *, char *); extern logical lsame_(char *, char *);
integer ileft, iinfo, icols, iwork, irows, jc; integer ileft, iinfo, icols, iwork, irows, jc;
extern /* Subroutine */ int dggbak_(char *, char *, integer *, integer *, extern /* Subroutine */ void dggbak_(char *, char *, integer *, integer *,
integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *,
integer *, integer *); integer *, integer *);
integer nb; integer nb;
extern /* Subroutine */ int dggbal_(char *, integer *, doublereal *, extern /* Subroutine */ void dggbal_(char *, integer *, doublereal *,
integer *, doublereal *, integer *, integer *, integer *, integer *, doublereal *, integer *, integer *, integer *,
doublereal *, doublereal *, doublereal *, integer *); doublereal *, doublereal *, doublereal *, integer *);
integer in; integer in;
@ -854,42 +854,42 @@ rices</b> */
integer *, doublereal *, integer *, doublereal *); integer *, doublereal *, integer *, doublereal *);
integer jr; integer jr;
doublereal salfai; doublereal salfai;
extern /* Subroutine */ int dgghrd_(char *, char *, integer *, integer *, extern /* Subroutine */ void dgghrd_(char *, char *, integer *, integer *,
integer *, doublereal *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, doublereal *, integer *,
doublereal *, integer *, doublereal *, integer *, integer *), dlascl_(char *, integer *, integer *, doublereal doublereal *, integer *, doublereal *, integer *, integer *), dlascl_(char *, integer *, integer *, doublereal
*, doublereal *, integer *, integer *, doublereal *, integer *, *, doublereal *, integer *, integer *, doublereal *, integer *,
integer *); integer *);
doublereal salfar; doublereal salfar;
extern /* Subroutine */ int dgeqrf_(integer *, integer *, doublereal *, extern /* Subroutine */ void dgeqrf_(integer *, integer *, doublereal *,
integer *, doublereal *, doublereal *, integer *, integer *), integer *, doublereal *, doublereal *, integer *, integer *),
dlacpy_(char *, integer *, integer *, doublereal *, integer *, dlacpy_(char *, integer *, integer *, doublereal *, integer *,
doublereal *, integer *); doublereal *, integer *);
doublereal safmin; doublereal safmin;
extern /* Subroutine */ int dlaset_(char *, integer *, integer *, extern /* Subroutine */ void dlaset_(char *, integer *, integer *,
doublereal *, doublereal *, doublereal *, integer *); doublereal *, doublereal *, doublereal *, integer *);
doublereal safmax; doublereal safmax;
char chtemp[1]; char chtemp[1];
logical ldumma[1]; logical ldumma[1];
extern /* Subroutine */ int dhgeqz_(char *, char *, char *, integer *, extern /* Subroutine */ void dhgeqz_(char *, char *, char *, integer *,
integer *, integer *, doublereal *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, doublereal *,
integer *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, doublereal *,
integer *, doublereal *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, doublereal *, integer *,
integer *), dtgevc_(char *, char *, integer *), dtgevc_(char *, char *,
logical *, integer *, doublereal *, integer *, doublereal *, logical *, integer *, doublereal *, integer *, doublereal *,
integer *, doublereal *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, doublereal *, integer *,
integer *, integer *, doublereal *, integer *), integer *, integer *, doublereal *, integer *);
xerbla_(char *, integer *); extern int xerbla_(char *, integer *, ftnlen);
integer ijobvl, iright; integer ijobvl, iright;
logical ilimit; logical ilimit;
extern integer ilaenv_(integer *, char *, char *, integer *, integer *, extern integer ilaenv_(integer *, char *, char *, integer *, integer *,
integer *, integer *, ftnlen, ftnlen); integer *, integer *, ftnlen, ftnlen);
integer ijobvr; integer ijobvr;
extern /* Subroutine */ int dorgqr_(integer *, integer *, integer *, extern /* Subroutine */ void dorgqr_(integer *, integer *, integer *,
doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *,
integer *); integer *);
doublereal onepls; doublereal onepls;
integer lwkmin, nb1, nb2, nb3; integer lwkmin, nb1, nb2, nb3;
extern /* Subroutine */ int dormqr_(char *, char *, integer *, integer *, extern /* Subroutine */ void dormqr_(char *, char *, integer *, integer *,
integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *,
integer *, doublereal *, integer *, integer *); integer *, doublereal *, integer *, integer *);
integer lwkopt; integer lwkopt;
@ -997,16 +997,16 @@ rices</b> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("DGEGV ", &i__1); xerbla_("DGEGV ", &i__1, 6);
return 0; return;
} else if (lquery) { } else if (lquery) {
return 0; return;
} }
/* Quick return if possible */ /* Quick return if possible */
if (*n == 0) { if (*n == 0) {
return 0; return;
} }
/* Get machine constants */ /* Get machine constants */
@ -1034,7 +1034,7 @@ rices</b> */
iinfo); iinfo);
if (iinfo != 0) { if (iinfo != 0) {
*info = *n + 10; *info = *n + 10;
return 0; return;
} }
} }
@ -1055,7 +1055,7 @@ rices</b> */
iinfo); iinfo);
if (iinfo != 0) { if (iinfo != 0) {
*info = *n + 10; *info = *n + 10;
return 0; return;
} }
} }
@ -1426,7 +1426,7 @@ L100:
L120: L120:
work[1] = (doublereal) lwkopt; work[1] = (doublereal) lwkopt;
return 0; return;
/* End of DGEGV */ /* End of DGEGV */

24
lapack-netlib/SRC/DEPRECATED/dgelsx.c
View File

@ -694,7 +694,7 @@ f"> */
/* > \ingroup doubleGEsolve */ /* > \ingroup doubleGEsolve */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int dgelsx_(integer *m, integer *n, integer *nrhs, /* Subroutine */ void dgelsx_(integer *m, integer *n, integer *nrhs,
doublereal *a, integer *lda, doublereal *b, integer *ldb, integer * doublereal *a, integer *lda, doublereal *b, integer *ldb, integer *
jpvt, doublereal *rcond, integer *rank, doublereal *work, integer * jpvt, doublereal *rcond, integer *rank, doublereal *work, integer *
info) info)
@ -707,32 +707,32 @@ f"> */
doublereal anrm, bnrm, smin, smax; doublereal anrm, bnrm, smin, smax;
integer i__, j, k, iascl, ibscl, ismin, ismax; integer i__, j, k, iascl, ibscl, ismin, ismax;
doublereal c1, c2; doublereal c1, c2;
extern /* Subroutine */ int dtrsm_(char *, char *, char *, char *, extern /* Subroutine */ void dtrsm_(char *, char *, char *, char *,
integer *, integer *, doublereal *, doublereal *, integer *, integer *, integer *, doublereal *, doublereal *, integer *,
doublereal *, integer *), dlaic1_( doublereal *, integer *), dlaic1_(
integer *, integer *, doublereal *, doublereal *, doublereal *, integer *, integer *, doublereal *, doublereal *, doublereal *,
doublereal *, doublereal *, doublereal *, doublereal *); doublereal *, doublereal *, doublereal *, doublereal *);
doublereal s1, s2, t1, t2; doublereal s1, s2, t1, t2;
extern /* Subroutine */ int dorm2r_(char *, char *, integer *, integer *, extern /* Subroutine */ void dorm2r_(char *, char *, integer *, integer *,
integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *,
integer *, doublereal *, integer *), dlabad_( integer *, doublereal *, integer *), dlabad_(
doublereal *, doublereal *); doublereal *, doublereal *);
extern doublereal dlamch_(char *), dlange_(char *, integer *, extern doublereal dlamch_(char *), dlange_(char *, integer *,
integer *, doublereal *, integer *, doublereal *); integer *, doublereal *, integer *, doublereal *);
integer mn; integer mn;
extern /* Subroutine */ int dlascl_(char *, integer *, integer *, extern /* Subroutine */ void dlascl_(char *, integer *, integer *,
doublereal *, doublereal *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *, integer *, doublereal *,
integer *, integer *), dgeqpf_(integer *, integer *, integer *, integer *), dgeqpf_(integer *, integer *,
doublereal *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *, integer *, doublereal *, doublereal *,
integer *), dlaset_(char *, integer *, integer *, doublereal *, integer *), dlaset_(char *, integer *, integer *, doublereal *,
doublereal *, doublereal *, integer *), xerbla_(char *, doublereal *, doublereal *, integer *);
integer *); extern int xerbla_(char *, integer *, ftnlen);
doublereal bignum; doublereal bignum;
extern /* Subroutine */ int dlatzm_(char *, integer *, integer *, extern /* Subroutine */ void dlatzm_(char *, integer *, integer *,
doublereal *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, doublereal *, doublereal *,
integer *, doublereal *); integer *, doublereal *);
doublereal sminpr, smaxpr, smlnum; doublereal sminpr, smaxpr, smlnum;
extern /* Subroutine */ int dtzrqf_(integer *, integer *, doublereal *, extern /* Subroutine */ void dtzrqf_(integer *, integer *, doublereal *,
integer *, doublereal *, integer *); integer *, doublereal *, integer *);
@ -781,8 +781,8 @@ f"> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("DGELSX", &i__1); xerbla_("DGELSX", &i__1, 6);
return 0; return;
} }
/* Quick return if possible */ /* Quick return if possible */
@ -791,7 +791,7 @@ f"> */
i__1 = f2cmin(*m,*n); i__1 = f2cmin(*m,*n);
if (f2cmin(i__1,*nrhs) == 0) { if (f2cmin(i__1,*nrhs) == 0) {
*rank = 0; *rank = 0;
return 0; return;
} }
/* Get machine parameters */ /* Get machine parameters */
@ -999,7 +999,7 @@ L70:
L100: L100:
return 0; return;
/* End of DGELSX */ /* End of DGELSX */

16
lapack-netlib/SRC/DEPRECATED/dgeqpf.c
View File

@ -655,7 +655,7 @@ f"> */
/* > \endverbatim */ /* > \endverbatim */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int dgeqpf_(integer *m, integer *n, doublereal *a, integer * /* Subroutine */ void dgeqpf_(integer *m, integer *n, doublereal *a, integer *
lda, integer *jpvt, doublereal *tau, doublereal *work, integer *info) lda, integer *jpvt, doublereal *tau, doublereal *work, integer *info)
{ {
/* System generated locals */ /* System generated locals */
@ -668,11 +668,11 @@ f"> */
doublereal temp2; doublereal temp2;
integer i__, j; integer i__, j;
doublereal tol3z; doublereal tol3z;
extern /* Subroutine */ int dlarf_(char *, integer *, integer *, extern /* Subroutine */ void dlarf_(char *, integer *, integer *,
doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *,
doublereal *); doublereal *);
integer itemp; integer itemp;
extern /* Subroutine */ int dswap_(integer *, doublereal *, integer *, extern /* Subroutine */ void dswap_(integer *, doublereal *, integer *,
doublereal *, integer *), dgeqr2_(integer *, integer *, doublereal *, integer *), dgeqr2_(integer *, integer *,
doublereal *, integer *, doublereal *, doublereal *, integer *), doublereal *, integer *, doublereal *, doublereal *, integer *),
dorm2r_(char *, char *, integer *, integer *, integer *, dorm2r_(char *, char *, integer *, integer *, integer *,
@ -681,10 +681,10 @@ f"> */
integer ma; integer ma;
extern doublereal dlamch_(char *); extern doublereal dlamch_(char *);
integer mn; integer mn;
extern /* Subroutine */ int dlarfg_(integer *, doublereal *, doublereal *, extern /* Subroutine */ void dlarfg_(integer *, doublereal *, doublereal *,
integer *, doublereal *); integer *, doublereal *);
extern integer idamax_(integer *, doublereal *, integer *); extern integer idamax_(integer *, doublereal *, integer *);
extern /* Subroutine */ int xerbla_(char *, integer *); extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen);
doublereal aii; doublereal aii;
integer pvt; integer pvt;
@ -719,8 +719,8 @@ f"> */
} }
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("DGEQPF", &i__1); xerbla_("DGEQPF", &i__1, 6);
return 0; return;
} }
mn = f2cmin(*m,*n); mn = f2cmin(*m,*n);
@ -854,7 +854,7 @@ f"> */
/* L40: */ /* L40: */
} }
} }
return 0; return;
/* End of DGEQPF */ /* End of DGEQPF */

16
lapack-netlib/SRC/DEPRECATED/dggsvd.c
View File

@ -845,7 +845,7 @@ f"> */
/* > California at Berkeley, USA */ /* > California at Berkeley, USA */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int dggsvd_(char *jobu, char *jobv, char *jobq, integer *m, /* Subroutine */ void dggsvd_(char *jobu, char *jobv, char *jobq, integer *m,
integer *n, integer *p, integer *k, integer *l, doublereal *a, integer *n, integer *p, integer *k, integer *l, doublereal *a,
integer *lda, doublereal *b, integer *ldb, doublereal *alpha, integer *lda, doublereal *b, integer *ldb, doublereal *alpha,
doublereal *beta, doublereal *u, integer *ldu, doublereal *v, integer doublereal *beta, doublereal *u, integer *ldu, doublereal *v, integer
@ -864,17 +864,19 @@ f"> */
integer ncallmycycle, i__, j; integer ncallmycycle, i__, j;
extern logical lsame_(char *, char *); extern logical lsame_(char *, char *);
doublereal anorm, bnorm; doublereal anorm, bnorm;
extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *,
doublereal *, integer *); doublereal *, integer *);
logical wantq, wantu, wantv; logical wantq, wantu, wantv;
extern doublereal dlamch_(char *), dlange_(char *, integer *, extern doublereal dlamch_(char *), dlange_(char *, integer *,
integer *, doublereal *, integer *, doublereal *); integer *, doublereal *, integer *, doublereal *);
extern /* Subroutine */ int dtgsja_(char *, char *, char *, integer *, extern /* Subroutine */ void dtgsja_(char *, char *, char *, integer *,
integer *, integer *, integer *, integer *, doublereal *, integer integer *, integer *, integer *, integer *, doublereal *, integer
*, doublereal *, integer *, doublereal *, doublereal *, *, doublereal *, integer *, doublereal *, doublereal *,
doublereal *, doublereal *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, doublereal *,
integer *, doublereal *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, doublereal *, integer *,
integer *), xerbla_(char *, integer *), dggsvp_(char *, char *, char *, integer *, integer *, integer *);
extern int xerbla_(char *, integer *, ftnlen);
extern void dggsvp_(char *, char *, char *, integer *, integer *,
integer *, doublereal *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, doublereal *, integer *,
doublereal *, doublereal *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *, integer *, doublereal *,
integer *, doublereal *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, doublereal *, integer *,
@ -945,8 +947,8 @@ f"> */
} }
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("DGGSVD", &i__1); xerbla_("DGGSVD", &i__1, 6);
return 0; return;
} }
/* Compute the Frobenius norm of matrices A and B */ /* Compute the Frobenius norm of matrices A and B */
@ -1007,7 +1009,7 @@ f"> */
/* L20: */ /* L20: */
} }
return 0; return;
/* End of DGGSVD */ /* End of DGGSVD */

14
lapack-netlib/SRC/DEPRECATED/dggsvp.c
View File

@ -768,7 +768,7 @@ f"> */
/* > a matrix. It may be replaced by a better rank determination strategy. */ /* > a matrix. It may be replaced by a better rank determination strategy. */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int dggsvp_(char *jobu, char *jobv, char *jobq, integer *m, /* Subroutine */ void dggsvp_(char *jobu, char *jobv, char *jobq, integer *m,
integer *p, integer *n, doublereal *a, integer *lda, doublereal *b, integer *p, integer *n, doublereal *a, integer *lda, doublereal *b,
integer *ldb, doublereal *tola, doublereal *tolb, integer *k, integer integer *ldb, doublereal *tola, doublereal *tolb, integer *k, integer
*l, doublereal *u, integer *ldu, doublereal *v, integer *ldv, *l, doublereal *u, integer *ldu, doublereal *v, integer *ldv,
@ -784,7 +784,7 @@ f"> */
integer i__, j; integer i__, j;
extern logical lsame_(char *, char *); extern logical lsame_(char *, char *);
logical wantq, wantu, wantv; logical wantq, wantu, wantv;
extern /* Subroutine */ int dgeqr2_(integer *, integer *, doublereal *, extern /* Subroutine */ void dgeqr2_(integer *, integer *, doublereal *,
integer *, doublereal *, doublereal *, integer *), dgerq2_( integer *, doublereal *, doublereal *, integer *), dgerq2_(
integer *, integer *, doublereal *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, doublereal *,
doublereal *, integer *), dorg2r_(integer *, integer *, integer *, doublereal *, integer *), dorg2r_(integer *, integer *, integer *,
@ -797,7 +797,9 @@ f"> */
integer *, integer *, doublereal *, doublereal *, integer *), integer *, integer *, doublereal *, doublereal *, integer *),
dlacpy_(char *, integer *, integer *, doublereal *, integer *, dlacpy_(char *, integer *, integer *, doublereal *, integer *,
doublereal *, integer *), dlaset_(char *, integer *, doublereal *, integer *), dlaset_(char *, integer *,
integer *, doublereal *, doublereal *, doublereal *, integer *), xerbla_(char *, integer *), dlapmt_(logical *, integer *, doublereal *, doublereal *, doublereal *, integer *);
extern int xerbla_(char *, integer *, ftnlen);
extern void dlapmt_(logical *,
integer *, integer *, doublereal *, integer *, integer *); integer *, integer *, doublereal *, integer *, integer *);
logical forwrd; logical forwrd;
@ -865,8 +867,8 @@ f"> */
} }
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("DGGSVP", &i__1); xerbla_("DGGSVP", &i__1, 6);
return 0; return;
} }
/* QR with column pivoting of B: B*P = V*( S11 S12 ) */ /* QR with column pivoting of B: B*P = V*( S11 S12 ) */
@ -1115,7 +1117,7 @@ f"> */
} }
return 0; return;
/* End of DGGSVP */ /* End of DGGSVP */

10
lapack-netlib/SRC/DEPRECATED/dlahrd.c
View File

@ -685,7 +685,7 @@ f"> */
/* > \endverbatim */ /* > \endverbatim */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int dlahrd_(integer *n, integer *k, integer *nb, doublereal * /* Subroutine */ void dlahrd_(integer *n, integer *k, integer *nb, doublereal *
a, integer *lda, doublereal *tau, doublereal *t, integer *ldt, a, integer *lda, doublereal *tau, doublereal *t, integer *ldt,
doublereal *y, integer *ldy) doublereal *y, integer *ldy)
{ {
@ -696,7 +696,7 @@ f"> */
/* Local variables */ /* Local variables */
integer i__; integer i__;
extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *,
integer *), dgemv_(char *, integer *, integer *, doublereal *, integer *), dgemv_(char *, integer *, integer *, doublereal *,
doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *,
doublereal *, integer *), dcopy_(integer *, doublereal *, doublereal *, integer *), dcopy_(integer *, doublereal *,
@ -705,7 +705,7 @@ f"> */
*, char *, char *, integer *, doublereal *, integer *, doublereal *, char *, char *, integer *, doublereal *, integer *, doublereal
*, integer *); *, integer *);
doublereal ei; doublereal ei;
extern /* Subroutine */ int dlarfg_(integer *, doublereal *, doublereal *, extern /* Subroutine */ void dlarfg_(integer *, doublereal *, doublereal *,
integer *, doublereal *); integer *, doublereal *);
@ -734,7 +734,7 @@ f"> */
/* Function Body */ /* Function Body */
if (*n <= 1) { if (*n <= 1) {
return 0; return;
} }
i__1 = *nb; i__1 = *nb;
@ -843,7 +843,7 @@ f"> */
} }
a[*k + *nb + *nb * a_dim1] = ei; a[*k + *nb + *nb * a_dim1] = ei;
return 0; return;
/* End of DLAHRD */ /* End of DLAHRD */

10
lapack-netlib/SRC/DEPRECATED/dlatzm.c
View File

@ -665,7 +665,7 @@ f"> */
/* > \ingroup doubleOTHERcomputational */ /* > \ingroup doubleOTHERcomputational */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int dlatzm_(char *side, integer *m, integer *n, doublereal * /* Subroutine */ void dlatzm_(char *side, integer *m, integer *n, doublereal *
v, integer *incv, doublereal *tau, doublereal *c1, doublereal *c2, v, integer *incv, doublereal *tau, doublereal *c1, doublereal *c2,
integer *ldc, doublereal *work) integer *ldc, doublereal *work)
{ {
@ -674,11 +674,11 @@ f"> */
doublereal d__1; doublereal d__1;
/* Local variables */ /* Local variables */
extern /* Subroutine */ int dger_(integer *, integer *, doublereal *, extern /* Subroutine */ void dger_(integer *, integer *, doublereal *,
doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *,
integer *); integer *);
extern logical lsame_(char *, char *); 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 *, doublereal *, integer *,
doublereal *, doublereal *, integer *), dcopy_(integer *, doublereal *, doublereal *, integer *), dcopy_(integer *,
doublereal *, integer *, doublereal *, integer *), daxpy_(integer doublereal *, integer *, doublereal *, integer *), daxpy_(integer
@ -707,7 +707,7 @@ f"> */
/* Function Body */ /* Function Body */
if (f2cmin(*m,*n) == 0 || *tau == 0.) { if (f2cmin(*m,*n) == 0 || *tau == 0.) {
return 0; return;
} }
if (lsame_(side, "L")) { if (lsame_(side, "L")) {
@ -748,7 +748,7 @@ f"> */
ldc); ldc);
} }
return 0; return;
/* End of DLATZM */ /* End of DLATZM */

19
lapack-netlib/SRC/DEPRECATED/dtzrqf.c
View File

@ -652,7 +652,7 @@ f"> */
/* > \endverbatim */ /* > \endverbatim */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int dtzrqf_(integer *m, integer *n, doublereal *a, integer * /* Subroutine */ void dtzrqf_(integer *m, integer *n, doublereal *a, integer *
lda, doublereal *tau, integer *info) lda, doublereal *tau, integer *info)
{ {
/* System generated locals */ /* System generated locals */
@ -660,19 +660,20 @@ f"> */
doublereal d__1; doublereal d__1;
/* Local variables */ /* Local variables */
extern /* Subroutine */ int dger_(integer *, integer *, doublereal *, extern /* Subroutine */ void dger_(integer *, integer *, doublereal *,
doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *,
integer *); integer *);
integer i__, k; integer i__, k;
extern /* Subroutine */ int dgemv_(char *, integer *, integer *, extern /* Subroutine */ void dgemv_(char *, integer *, integer *,
doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *,
doublereal *, doublereal *, integer *), dcopy_(integer *, doublereal *, doublereal *, integer *), dcopy_(integer *,
doublereal *, integer *, doublereal *, integer *), daxpy_(integer doublereal *, integer *, doublereal *, integer *), daxpy_(integer
*, doublereal *, doublereal *, integer *, doublereal *, integer *) *, doublereal *, doublereal *, integer *, doublereal *, integer *)
; ;
integer m1; integer m1;
extern /* Subroutine */ int dlarfg_(integer *, doublereal *, doublereal *, extern /* Subroutine */ void dlarfg_(integer *, doublereal *, doublereal *,
integer *, doublereal *), xerbla_(char *, integer *); integer *, doublereal *);
extern int xerbla_(char *, integer *, ftnlen);
/* -- LAPACK computational routine (version 3.7.0) -- */ /* -- LAPACK computational routine (version 3.7.0) -- */
@ -703,14 +704,14 @@ f"> */
} }
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("DTZRQF", &i__1); xerbla_("DTZRQF", &i__1, 6);
return 0; return;
} }
/* Perform the factorization. */ /* Perform the factorization. */
if (*m == 0) { if (*m == 0) {
return 0; return;
} }
if (*m == *n) { if (*m == *n) {
i__1 = *n; i__1 = *n;
@ -768,7 +769,7 @@ f"> */
} }
} }
return 0; return;
/* End of DTZRQF */ /* End of DTZRQF */

46
lapack-netlib/SRC/DEPRECATED/sgegs.c
View File

@ -742,7 +742,7 @@ ices</b> */
/* > \ingroup realGEeigen */ /* > \ingroup realGEeigen */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int sgegs_(char *jobvsl, char *jobvsr, integer *n, real *a, /* Subroutine */ void sgegs_(char *jobvsl, char *jobvsr, integer *n, real *a,
integer *lda, real *b, integer *ldb, real *alphar, real *alphai, real integer *lda, real *b, integer *ldb, real *alphar, real *alphai, real
*beta, real *vsl, integer *ldvsl, real *vsr, integer *ldvsr, real * *beta, real *vsl, integer *ldvsl, real *vsr, integer *ldvsr, real *
work, integer *lwork, integer *info) work, integer *lwork, integer *info)
@ -760,7 +760,7 @@ ices</b> */
integer iwork; integer iwork;
logical ilvsr; logical ilvsr;
integer irows, nb; integer irows, nb;
extern /* Subroutine */ int sggbak_(char *, char *, integer *, integer *, extern /* Subroutine */ void sggbak_(char *, char *, integer *, integer *,
integer *, real *, real *, integer *, real *, integer *, integer * integer *, real *, real *, integer *, real *, integer *, integer *
), sggbal_(char *, integer *, real *, integer *, ), sggbal_(char *, integer *, real *, integer *,
real *, integer *, integer *, integer *, real *, real *, real *, real *, integer *, integer *, integer *, real *, real *, real *,
@ -769,35 +769,35 @@ ices</b> */
extern real slamch_(char *), slange_(char *, integer *, integer *, extern real slamch_(char *), slange_(char *, integer *, integer *,
real *, integer *, real *); real *, integer *, real *);
real safmin; real safmin;
extern /* Subroutine */ int sgghrd_(char *, char *, integer *, integer *, extern /* Subroutine */ void sgghrd_(char *, char *, integer *, integer *,
integer *, real *, integer *, real *, integer *, real *, integer * integer *, real *, integer *, real *, integer *, real *, integer *
, real *, integer *, integer *), xerbla_(char *, , real *, integer *, integer *);
integer *); extern int xerbla_(char *, integer *, ftnlen);
extern integer ilaenv_(integer *, char *, char *, integer *, integer *, extern integer ilaenv_(integer *, char *, char *, integer *, integer *,
integer *, integer *, ftnlen, ftnlen); integer *, integer *, ftnlen, ftnlen);
real bignum; real bignum;
extern /* Subroutine */ int slascl_(char *, integer *, integer *, real *, extern /* Subroutine */ void slascl_(char *, integer *, integer *, real *,
real *, integer *, integer *, real *, integer *, integer *); real *, integer *, integer *, real *, integer *, integer *);
integer ijobvl, iright; integer ijobvl, iright;
extern /* Subroutine */ int sgeqrf_(integer *, integer *, real *, integer extern /* Subroutine */ void sgeqrf_(integer *, integer *, real *, integer
*, real *, real *, integer *, integer *); *, real *, real *, integer *, integer *);
integer ijobvr; integer ijobvr;
extern /* Subroutine */ int slacpy_(char *, integer *, integer *, real *, extern /* Subroutine */ void slacpy_(char *, integer *, integer *, real *,
integer *, real *, integer *), slaset_(char *, integer *, integer *, real *, integer *), slaset_(char *, integer *,
integer *, real *, real *, real *, integer *); integer *, real *, real *, real *, integer *);
real anrmto; real anrmto;
integer lwkmin, nb1, nb2, nb3; integer lwkmin, nb1, nb2, nb3;
real bnrmto; real bnrmto;
extern /* Subroutine */ int shgeqz_(char *, char *, char *, integer *, extern /* Subroutine */ void shgeqz_(char *, char *, char *, integer *,
integer *, integer *, real *, integer *, real *, integer *, real * integer *, integer *, real *, integer *, real *, integer *, real *
, real *, real *, real *, integer *, real *, integer *, real *, , real *, real *, real *, integer *, real *, integer *, real *,
integer *, integer *); integer *, integer *);
real smlnum; real smlnum;
extern /* Subroutine */ int sorgqr_(integer *, integer *, integer *, real extern /* Subroutine */ void sorgqr_(integer *, integer *, integer *, real
*, integer *, real *, real *, integer *, integer *); *, integer *, real *, real *, integer *, integer *);
integer lwkopt; integer lwkopt;
logical lquery; logical lquery;
extern /* Subroutine */ int sormqr_(char *, char *, integer *, integer *, extern /* Subroutine */ void sormqr_(char *, char *, integer *, integer *,
integer *, real *, integer *, real *, real *, integer *, real *, integer *, real *, integer *, real *, real *, integer *, real *,
integer *, integer *); integer *, integer *);
integer ihi, ilo; integer ihi, ilo;
@ -899,16 +899,16 @@ ices</b> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("SGEGS ", &i__1); xerbla_("SGEGS ", &i__1, 6);
return 0; return;
} else if (lquery) { } else if (lquery) {
return 0; return;
} }
/* Quick return if possible */ /* Quick return if possible */
if (*n == 0) { if (*n == 0) {
return 0; return;
} }
/* Get machine constants */ /* Get machine constants */
@ -935,7 +935,7 @@ ices</b> */
iinfo); iinfo);
if (iinfo != 0) { if (iinfo != 0) {
*info = *n + 9; *info = *n + 9;
return 0; return;
} }
} }
@ -956,7 +956,7 @@ ices</b> */
iinfo); iinfo);
if (iinfo != 0) { if (iinfo != 0) {
*info = *n + 9; *info = *n + 9;
return 0; return;
} }
} }
@ -1093,19 +1093,19 @@ ices</b> */
iinfo); iinfo);
if (iinfo != 0) { if (iinfo != 0) {
*info = *n + 9; *info = *n + 9;
return 0; return;
} }
slascl_("G", &c_n1, &c_n1, &anrmto, &anrm, n, &c__1, &alphar[1], n, & slascl_("G", &c_n1, &c_n1, &anrmto, &anrm, n, &c__1, &alphar[1], n, &
iinfo); iinfo);
if (iinfo != 0) { if (iinfo != 0) {
*info = *n + 9; *info = *n + 9;
return 0; return;
} }
slascl_("G", &c_n1, &c_n1, &anrmto, &anrm, n, &c__1, &alphai[1], n, & slascl_("G", &c_n1, &c_n1, &anrmto, &anrm, n, &c__1, &alphai[1], n, &
iinfo); iinfo);
if (iinfo != 0) { if (iinfo != 0) {
*info = *n + 9; *info = *n + 9;
return 0; return;
} }
} }
@ -1114,20 +1114,20 @@ ices</b> */
iinfo); iinfo);
if (iinfo != 0) { if (iinfo != 0) {
*info = *n + 9; *info = *n + 9;
return 0; return;
} }
slascl_("G", &c_n1, &c_n1, &bnrmto, &bnrm, n, &c__1, &beta[1], n, & slascl_("G", &c_n1, &c_n1, &bnrmto, &bnrm, n, &c__1, &beta[1], n, &
iinfo); iinfo);
if (iinfo != 0) { if (iinfo != 0) {
*info = *n + 9; *info = *n + 9;
return 0; return;
} }
} }
L10: L10:
work[1] = (real) lwkopt; work[1] = (real) lwkopt;
return 0; return;
/* End of SGEGS */ /* End of SGEGS */

33
lapack-netlib/SRC/DEPRECATED/sgegv.c
View File

@ -822,7 +822,7 @@ rices</b> */
/* > \endverbatim */ /* > \endverbatim */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int sgegv_(char *jobvl, char *jobvr, integer *n, real *a, /* Subroutine */ void sgegv_(char *jobvl, char *jobvr, integer *n, real *a,
integer *lda, real *b, integer *ldb, real *alphar, real *alphai, real integer *lda, real *b, integer *ldb, real *alphar, real *alphai, real
*beta, real *vl, integer *ldvl, real *vr, integer *ldvr, real *work, *beta, real *vl, integer *ldvl, real *vr, integer *ldvr, real *work,
integer *lwork, integer *info) integer *lwork, integer *info)
@ -842,7 +842,7 @@ rices</b> */
extern logical lsame_(char *, char *); extern logical lsame_(char *, char *);
integer ileft, iinfo, icols, iwork, irows, jc, nb, in, jr; integer ileft, iinfo, icols, iwork, irows, jc, nb, in, jr;
real salfai; real salfai;
extern /* Subroutine */ int sggbak_(char *, char *, integer *, integer *, extern /* Subroutine */ void sggbak_(char *, char *, integer *, integer *,
integer *, real *, real *, integer *, real *, integer *, integer * integer *, real *, real *, integer *, real *, integer *, integer *
), sggbal_(char *, integer *, real *, integer *, ), sggbal_(char *, integer *, real *, integer *,
real *, integer *, integer *, integer *, real *, real *, real *, real *, integer *, integer *, integer *, real *, real *, real *,
@ -851,22 +851,23 @@ rices</b> */
extern real slamch_(char *), slange_(char *, integer *, integer *, extern real slamch_(char *), slange_(char *, integer *, integer *,
real *, integer *, real *); real *, integer *, real *);
real safmin; real safmin;
extern /* Subroutine */ int sgghrd_(char *, char *, integer *, integer *, extern /* Subroutine */ void sgghrd_(char *, char *, integer *, integer *,
integer *, real *, integer *, real *, integer *, real *, integer * integer *, real *, integer *, real *, integer *, real *, integer *
, real *, integer *, integer *); , real *, integer *, integer *);
real safmax; real safmax;
char chtemp[1]; char chtemp[1];
logical ldumma[1]; logical ldumma[1];
extern /* Subroutine */ int slascl_(char *, integer *, integer *, real *, extern /* Subroutine */ void slascl_(char *, integer *, integer *, real *,
real *, integer *, integer *, real *, integer *, integer *), xerbla_(char *, integer *); real *, integer *, integer *, real *, integer *, integer *);
extern int xerbla_(char *, integer *, ftnlen);
extern integer ilaenv_(integer *, char *, char *, integer *, integer *, extern integer ilaenv_(integer *, char *, char *, integer *, integer *,
integer *, integer *, ftnlen, ftnlen); integer *, integer *, ftnlen, ftnlen);
integer ijobvl, iright; integer ijobvl, iright;
logical ilimit; logical ilimit;
extern /* Subroutine */ int sgeqrf_(integer *, integer *, real *, integer extern /* Subroutine */ void sgeqrf_(integer *, integer *, real *, integer
*, real *, real *, integer *, integer *); *, real *, real *, integer *, integer *);
integer ijobvr; integer ijobvr;
extern /* Subroutine */ int slacpy_(char *, integer *, integer *, real *, extern /* Subroutine */ void slacpy_(char *, integer *, integer *, real *,
integer *, real *, integer *), slaset_(char *, integer *, integer *, real *, integer *), slaset_(char *, integer *,
integer *, real *, real *, real *, integer *), stgevc_( integer *, real *, real *, real *, integer *), stgevc_(
char *, char *, logical *, integer *, real *, integer *, real *, char *, char *, logical *, integer *, real *, integer *, real *,
@ -874,7 +875,7 @@ rices</b> */
integer *, real *, integer *); integer *, real *, integer *);
real onepls; real onepls;
integer lwkmin, nb1, nb2, nb3; integer lwkmin, nb1, nb2, nb3;
extern /* Subroutine */ int shgeqz_(char *, char *, char *, integer *, extern /* Subroutine */ void shgeqz_(char *, char *, char *, integer *,
integer *, integer *, real *, integer *, real *, integer *, real * integer *, integer *, real *, integer *, real *, integer *, real *
, real *, real *, real *, integer *, real *, integer *, real *, , real *, real *, real *, integer *, real *, integer *, real *,
integer *, integer *), sorgqr_(integer *, integer *, integer *), sorgqr_(integer *,
@ -882,7 +883,7 @@ rices</b> */
, integer *); , integer *);
integer lwkopt; integer lwkopt;
logical lquery; logical lquery;
extern /* Subroutine */ int sormqr_(char *, char *, integer *, integer *, extern /* Subroutine */ void sormqr_(char *, char *, integer *, integer *,
integer *, real *, integer *, real *, real *, integer *, real *, integer *, real *, integer *, real *, real *, integer *, real *,
integer *, integer *); integer *, integer *);
integer ihi, ilo; integer ihi, ilo;
@ -988,16 +989,16 @@ rices</b> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("SGEGV ", &i__1); xerbla_("SGEGV ", &i__1, 6);
return 0; return;
} else if (lquery) { } else if (lquery) {
return 0; return;
} }
/* Quick return if possible */ /* Quick return if possible */
if (*n == 0) { if (*n == 0) {
return 0; return;
} }
/* Get machine constants */ /* Get machine constants */
@ -1025,7 +1026,7 @@ rices</b> */
iinfo); iinfo);
if (iinfo != 0) { if (iinfo != 0) {
*info = *n + 10; *info = *n + 10;
return 0; return;
} }
} }
@ -1046,7 +1047,7 @@ rices</b> */
iinfo); iinfo);
if (iinfo != 0) { if (iinfo != 0) {
*info = *n + 10; *info = *n + 10;
return 0; return;
} }
} }
@ -1417,7 +1418,7 @@ L100:
L120: L120:
work[1] = (real) lwkopt; work[1] = (real) lwkopt;
return 0; return;
/* End of SGEGV */ /* End of SGEGV */

18
lapack-netlib/SRC/DEPRECATED/sgelsx.c
View File

@ -694,7 +694,7 @@ f"> */
/* > \ingroup realGEsolve */ /* > \ingroup realGEsolve */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int sgelsx_(integer *m, integer *n, integer *nrhs, real *a, /* Subroutine */ void sgelsx_(integer *m, integer *n, integer *nrhs, real *a,
integer *lda, real *b, integer *ldb, integer *jpvt, real *rcond, integer *lda, real *b, integer *ldb, integer *jpvt, real *rcond,
integer *rank, real *work, integer *info) integer *rank, real *work, integer *info)
{ {
@ -706,7 +706,7 @@ f"> */
real anrm, bnrm, smin, smax; real anrm, bnrm, smin, smax;
integer i__, j, k, iascl, ibscl, ismin, ismax; integer i__, j, k, iascl, ibscl, ismin, ismax;
real c1, c2, s1, s2, t1, t2; real c1, c2, s1, s2, t1, t2;
extern /* Subroutine */ int strsm_(char *, char *, char *, char *, extern /* Subroutine */ void strsm_(char *, char *, char *, char *,
integer *, integer *, real *, real *, integer *, real *, integer * integer *, integer *, real *, real *, integer *, real *, integer *
), slaic1_(integer *, integer *, ), slaic1_(integer *, integer *,
real *, real *, real *, real *, real *, real *, real *), sorm2r_( real *, real *, real *, real *, real *, real *, real *), sorm2r_(
@ -716,14 +716,14 @@ f"> */
integer mn; integer mn;
extern real slamch_(char *), slange_(char *, integer *, integer *, extern real slamch_(char *), slange_(char *, integer *, integer *,
real *, integer *, real *); real *, integer *, real *);
extern /* Subroutine */ int xerbla_(char *, integer *); extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen);
real bignum; real bignum;
extern /* Subroutine */ int slascl_(char *, integer *, integer *, real *, extern /* Subroutine */ void slascl_(char *, integer *, integer *, real *,
real *, integer *, integer *, real *, integer *, integer *), sgeqpf_(integer *, integer *, real *, integer *, integer real *, integer *, integer *, real *, integer *, integer *), sgeqpf_(integer *, integer *, real *, integer *, integer
*, real *, real *, integer *), slaset_(char *, integer *, integer *, real *, real *, integer *), slaset_(char *, integer *, integer
*, real *, real *, real *, integer *); *, real *, real *, real *, integer *);
real sminpr, smaxpr, smlnum; real sminpr, smaxpr, smlnum;
extern /* Subroutine */ int slatzm_(char *, integer *, integer *, real *, extern /* Subroutine */ void slatzm_(char *, integer *, integer *, real *,
integer *, real *, real *, real *, integer *, real *), integer *, real *, real *, real *, integer *, real *),
stzrqf_(integer *, integer *, real *, integer *, real *, integer * stzrqf_(integer *, integer *, real *, integer *, real *, integer *
); );
@ -774,8 +774,8 @@ f"> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("SGELSX", &i__1); xerbla_("SGELSX", &i__1, 6);
return 0; return;
} }
/* Quick return if possible */ /* Quick return if possible */
@ -784,7 +784,7 @@ f"> */
i__1 = f2cmin(*m,*n); i__1 = f2cmin(*m,*n);
if (f2cmin(i__1,*nrhs) == 0) { if (f2cmin(i__1,*nrhs) == 0) {
*rank = 0; *rank = 0;
return 0; return;
} }
/* Get machine parameters */ /* Get machine parameters */
@ -992,7 +992,7 @@ L70:
L100: L100:
return 0; return;
/* End of SGELSX */ /* End of SGELSX */

17
lapack-netlib/SRC/DEPRECATED/sgeqpf.c
View File

@ -655,7 +655,7 @@ f"> */
/* > \endverbatim */ /* > \endverbatim */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int sgeqpf_(integer *m, integer *n, real *a, integer *lda, /* Subroutine */ void sgeqpf_(integer *m, integer *n, real *a, integer *lda,
integer *jpvt, real *tau, real *work, integer *info) integer *jpvt, real *tau, real *work, integer *info)
{ {
/* System generated locals */ /* System generated locals */
@ -667,19 +667,20 @@ f"> */
extern real snrm2_(integer *, real *, integer *); extern real snrm2_(integer *, real *, integer *);
integer i__, j; integer i__, j;
real tol3z; real tol3z;
extern /* Subroutine */ int slarf_(char *, integer *, integer *, real *, extern /* Subroutine */ void slarf_(char *, integer *, integer *, real *,
integer *, real *, real *, integer *, real *); integer *, real *, real *, integer *, real *);
integer itemp; integer itemp;
extern /* Subroutine */ int sswap_(integer *, real *, integer *, real *, extern /* Subroutine */ void sswap_(integer *, real *, integer *, real *,
integer *), sgeqr2_(integer *, integer *, real *, integer *, real integer *), sgeqr2_(integer *, integer *, real *, integer *, real
*, real *, integer *); *, real *, integer *);
integer ma; integer ma;
extern /* Subroutine */ int sorm2r_(char *, char *, integer *, integer *, extern /* Subroutine */ void sorm2r_(char *, char *, integer *, integer *,
integer *, real *, integer *, real *, real *, integer *, real *, integer *, real *, integer *, real *, real *, integer *, real *,
integer *); integer *);
integer mn; integer mn;
extern real slamch_(char *); extern real slamch_(char *);
extern /* Subroutine */ int xerbla_(char *, integer *), slarfg_( extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen);
extern void slarfg_(
integer *, real *, real *, integer *, real *); integer *, real *, real *, integer *, real *);
extern integer isamax_(integer *, real *, integer *); extern integer isamax_(integer *, real *, integer *);
real aii; real aii;
@ -716,8 +717,8 @@ f"> */
} }
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("SGEQPF", &i__1); xerbla_("SGEQPF", &i__1, 6);
return 0; return;
} }
mn = f2cmin(*m,*n); mn = f2cmin(*m,*n);
@ -851,7 +852,7 @@ f"> */
/* L40: */ /* L40: */
} }
} }
return 0; return;
/* End of SGEQPF */ /* End of SGEQPF */

13
lapack-netlib/SRC/DEPRECATED/sggsvd.c
View File

@ -845,7 +845,7 @@ f"> */
/* > California at Berkeley, USA */ /* > California at Berkeley, USA */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int sggsvd_(char *jobu, char *jobv, char *jobq, integer *m, /* Subroutine */ void sggsvd_(char *jobu, char *jobv, char *jobq, integer *m,
integer *n, integer *p, integer *k, integer *l, real *a, integer *lda, integer *n, integer *p, integer *k, integer *l, real *a, integer *lda,
real *b, integer *ldb, real *alpha, real *beta, real *u, integer * real *b, integer *ldb, real *alpha, real *beta, real *u, integer *
ldu, real *v, integer *ldv, real *q, integer *ldq, real *work, ldu, real *v, integer *ldv, real *q, integer *ldq, real *work,
@ -864,12 +864,13 @@ f"> */
extern logical lsame_(char *, char *); extern logical lsame_(char *, char *);
real anorm, bnorm; real anorm, bnorm;
logical wantq; logical wantq;
extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *,
integer *); integer *);
logical wantu, wantv; logical wantu, wantv;
extern real slamch_(char *), slange_(char *, integer *, integer *, extern real slamch_(char *), slange_(char *, integer *, integer *,
real *, integer *, real *); real *, integer *, real *);
extern /* Subroutine */ int xerbla_(char *, integer *), stgsja_( extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen);
extern void stgsja_(
char *, char *, char *, integer *, integer *, integer *, integer * char *, char *, char *, integer *, integer *, integer *, integer *
, integer *, real *, integer *, real *, integer *, real *, real *, , integer *, real *, integer *, real *, integer *, real *, real *,
real *, real *, real *, integer *, real *, integer *, real *, real *, real *, real *, integer *, real *, integer *, real *,
@ -944,8 +945,8 @@ f"> */
} }
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("SGGSVD", &i__1); xerbla_("SGGSVD", &i__1, 6);
return 0; return;
} }
/* Compute the Frobenius norm of matrices A and B */ /* Compute the Frobenius norm of matrices A and B */
@ -1006,7 +1007,7 @@ f"> */
/* L20: */ /* L20: */
} }
return 0; return;
/* End of SGGSVD */ /* End of SGGSVD */

14
lapack-netlib/SRC/DEPRECATED/sggsvp.c
View File

@ -768,7 +768,7 @@ f"> */
/* > a matrix. It may be replaced by a better rank determination strategy. */ /* > a matrix. It may be replaced by a better rank determination strategy. */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int sggsvp_(char *jobu, char *jobv, char *jobq, integer *m, /* Subroutine */ void sggsvp_(char *jobu, char *jobv, char *jobq, integer *m,
integer *p, integer *n, real *a, integer *lda, real *b, integer *ldb, integer *p, integer *n, real *a, integer *lda, real *b, integer *ldb,
real *tola, real *tolb, integer *k, integer *l, real *u, integer *ldu, real *tola, real *tolb, integer *k, integer *l, real *u, integer *ldu,
real *v, integer *ldv, real *q, integer *ldq, integer *iwork, real * real *v, integer *ldv, real *q, integer *ldq, integer *iwork, real *
@ -783,13 +783,15 @@ f"> */
integer i__, j; integer i__, j;
extern logical lsame_(char *, char *); extern logical lsame_(char *, char *);
logical wantq, wantu, wantv; logical wantq, wantu, wantv;
extern /* Subroutine */ int sgeqr2_(integer *, integer *, real *, integer extern /* Subroutine */ void sgeqr2_(integer *, integer *, real *, integer
*, real *, real *, integer *), sgerq2_(integer *, integer *, real *, real *, real *, integer *), sgerq2_(integer *, integer *, real
*, integer *, real *, real *, integer *), sorg2r_(integer *, *, integer *, real *, real *, integer *), sorg2r_(integer *,
integer *, integer *, real *, integer *, real *, real *, integer * integer *, integer *, real *, integer *, real *, real *, integer *
), sorm2r_(char *, char *, integer *, integer *, integer *, real * ), sorm2r_(char *, char *, integer *, integer *, integer *, real *
, integer *, real *, real *, integer *, real *, integer *), sormr2_(char *, char *, integer *, integer *, integer *, , integer *, real *, real *, integer *, real *, integer *), sormr2_(char *, char *, integer *, integer *, integer *,
real *, integer *, real *, real *, integer *, real *, integer *), xerbla_(char *, integer *), sgeqpf_( real *, integer *, real *, real *, integer *, real *, integer *);
extern int xerbla_(char *, integer *, ftnlen);
extern void sgeqpf_(
integer *, integer *, real *, integer *, integer *, real *, real * integer *, integer *, real *, integer *, integer *, real *, real *
, integer *), slacpy_(char *, integer *, integer *, real *, , integer *), slacpy_(char *, integer *, integer *, real *,
integer *, real *, integer *), slaset_(char *, integer *, integer *, real *, integer *), slaset_(char *, integer *,
@ -861,8 +863,8 @@ f"> */
} }
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("SGGSVP", &i__1); xerbla_("SGGSVP", &i__1, 6);
return 0; return;
} }
/* QR with column pivoting of B: B*P = V*( S11 S12 ) */ /* QR with column pivoting of B: B*P = V*( S11 S12 ) */
@ -1111,7 +1113,7 @@ f"> */
} }
return 0; return;
/* End of SGGSVP */ /* End of SGGSVP */

10
lapack-netlib/SRC/DEPRECATED/slahrd.c
View File

@ -685,7 +685,7 @@ f"> */
/* > \endverbatim */ /* > \endverbatim */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int slahrd_(integer *n, integer *k, integer *nb, real *a, /* Subroutine */ void slahrd_(integer *n, integer *k, integer *nb, real *a,
integer *lda, real *tau, real *t, integer *ldt, real *y, integer *ldy) integer *lda, real *tau, real *t, integer *ldt, real *y, integer *ldy)
{ {
/* System generated locals */ /* System generated locals */
@ -695,14 +695,14 @@ f"> */
/* Local variables */ /* Local variables */
integer i__; integer i__;
extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *), extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *),
sgemv_(char *, integer *, integer *, real *, real *, integer *, sgemv_(char *, integer *, integer *, real *, real *, integer *,
real *, integer *, real *, real *, integer *), scopy_( real *, integer *, real *, real *, integer *), scopy_(
integer *, real *, integer *, real *, integer *), saxpy_(integer * integer *, real *, integer *, real *, integer *), saxpy_(integer *
, real *, real *, integer *, real *, integer *), strmv_(char *, , real *, real *, integer *, real *, integer *), strmv_(char *,
char *, char *, integer *, real *, integer *, real *, integer *); char *, char *, integer *, real *, integer *, real *, integer *);
real ei; real ei;
extern /* Subroutine */ int slarfg_(integer *, real *, real *, integer *, extern /* Subroutine */ void slarfg_(integer *, real *, real *, integer *,
real *); real *);
@ -731,7 +731,7 @@ f"> */
/* Function Body */ /* Function Body */
if (*n <= 1) { if (*n <= 1) {
return 0; return;
} }
i__1 = *nb; i__1 = *nb;
@ -840,7 +840,7 @@ f"> */
} }
a[*k + *nb + *nb * a_dim1] = ei; a[*k + *nb + *nb * a_dim1] = ei;
return 0; return;
/* End of SLAHRD */ /* End of SLAHRD */

10
lapack-netlib/SRC/DEPRECATED/slatzm.c
View File

@ -665,7 +665,7 @@ f"> */
/* > \ingroup realOTHERcomputational */ /* > \ingroup realOTHERcomputational */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int slatzm_(char *side, integer *m, integer *n, real *v, /* Subroutine */ void slatzm_(char *side, integer *m, integer *n, real *v,
integer *incv, real *tau, real *c1, real *c2, integer *ldc, real * integer *incv, real *tau, real *c1, real *c2, integer *ldc, real *
work) work)
{ {
@ -674,10 +674,10 @@ f"> */
real r__1; real r__1;
/* Local variables */ /* Local variables */
extern /* Subroutine */ int sger_(integer *, integer *, real *, real *, extern /* Subroutine */ void sger_(integer *, integer *, real *, real *,
integer *, real *, integer *, real *, integer *); integer *, real *, integer *, real *, integer *);
extern logical lsame_(char *, char *); extern logical lsame_(char *, char *);
extern /* Subroutine */ int sgemv_(char *, integer *, integer *, real *, extern /* Subroutine */ void sgemv_(char *, integer *, integer *, real *,
real *, integer *, real *, integer *, real *, real *, integer *), scopy_(integer *, real *, integer *, real *, integer *), real *, integer *, real *, integer *, real *, real *, integer *), scopy_(integer *, real *, integer *, real *, integer *),
saxpy_(integer *, real *, real *, integer *, real *, integer *); saxpy_(integer *, real *, real *, integer *, real *, integer *);
@ -703,7 +703,7 @@ f"> */
/* Function Body */ /* Function Body */
if (f2cmin(*m,*n) == 0 || *tau == 0.f) { if (f2cmin(*m,*n) == 0 || *tau == 0.f) {
return 0; return;
} }
if (lsame_(side, "L")) { if (lsame_(side, "L")) {
@ -744,7 +744,7 @@ f"> */
ldc); ldc);
} }
return 0; return;
/* End of SLATZM */ /* End of SLATZM */

20
lapack-netlib/SRC/DEPRECATED/stzrqf.c
View File

@ -652,7 +652,7 @@ f"> */
/* > \endverbatim */ /* > \endverbatim */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int stzrqf_(integer *m, integer *n, real *a, integer *lda, /* Subroutine */ void stzrqf_(integer *m, integer *n, real *a, integer *lda,
real *tau, integer *info) real *tau, integer *info)
{ {
/* System generated locals */ /* System generated locals */
@ -660,14 +660,16 @@ f"> */
real r__1; real r__1;
/* Local variables */ /* Local variables */
extern /* Subroutine */ int sger_(integer *, integer *, real *, real *, extern /* Subroutine */ void sger_(integer *, integer *, real *, real *,
integer *, real *, integer *, real *, integer *); integer *, real *, integer *, real *, integer *);
integer i__, k; integer i__, k;
extern /* Subroutine */ int sgemv_(char *, integer *, integer *, real *, extern /* Subroutine */ void sgemv_(char *, integer *, integer *, real *,
real *, integer *, real *, integer *, real *, real *, integer *), scopy_(integer *, real *, integer *, real *, integer *); real *, integer *, real *, integer *, real *, real *, integer *), scopy_(integer *, real *, integer *, real *, integer *);
integer m1; integer m1;
extern /* Subroutine */ int saxpy_(integer *, real *, real *, integer *, extern /* Subroutine */ void saxpy_(integer *, real *, real *, integer *,
real *, integer *), xerbla_(char *, integer *), slarfg_( real *, integer *);
extern int xerbla_(char *, integer *, ftnlen);
extern void slarfg_(
integer *, real *, real *, integer *, real *); integer *, real *, real *, integer *, real *);
@ -699,14 +701,14 @@ f"> */
} }
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("STZRQF", &i__1); xerbla_("STZRQF", &i__1, 6);
return 0; return;
} }
/* Perform the factorization. */ /* Perform the factorization. */
if (*m == 0) { if (*m == 0) {
return 0; return;
} }
if (*m == *n) { if (*m == *n) {
i__1 = *n; i__1 = *n;
@ -764,7 +766,7 @@ f"> */
} }
} }
return 0; return;
/* End of STZRQF */ /* End of STZRQF */

36
lapack-netlib/SRC/DEPRECATED/zgegs.c
View File

@ -740,7 +740,7 @@ rices</b> */
/* > \ingroup complex16GEeigen */ /* > \ingroup complex16GEeigen */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int zgegs_(char *jobvsl, char *jobvsr, integer *n, /* Subroutine */ void zgegs_(char *jobvsl, char *jobvsr, integer *n,
doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
doublecomplex *alpha, doublecomplex *beta, doublecomplex *vsl, doublecomplex *alpha, doublecomplex *beta, doublecomplex *vsl,
integer *ldvsl, doublecomplex *vsr, integer *ldvsr, doublecomplex * integer *ldvsl, doublecomplex *vsr, integer *ldvsr, doublecomplex *
@ -760,34 +760,34 @@ rices</b> */
logical ilvsr; logical ilvsr;
integer irows, nb; integer irows, nb;
extern doublereal dlamch_(char *); extern doublereal dlamch_(char *);
extern /* Subroutine */ int zggbak_(char *, char *, integer *, integer *, extern /* Subroutine */ void zggbak_(char *, char *, integer *, integer *,
integer *, doublereal *, doublereal *, integer *, doublecomplex *, integer *, doublereal *, doublereal *, integer *, doublecomplex *,
integer *, integer *), zggbal_(char *, integer *, integer *, integer *), zggbal_(char *, integer *,
doublecomplex *, integer *, doublecomplex *, integer *, integer * doublecomplex *, integer *, doublecomplex *, integer *, integer *
, integer *, doublereal *, doublereal *, doublereal *, integer *); , integer *, doublereal *, doublereal *, doublereal *, integer *);
logical ilascl, ilbscl; logical ilascl, ilbscl;
doublereal safmin; doublereal safmin;
extern /* Subroutine */ int xerbla_(char *, integer *); extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen);
extern integer ilaenv_(integer *, char *, char *, integer *, integer *, extern integer ilaenv_(integer *, char *, char *, integer *, integer *,
integer *, integer *, ftnlen, ftnlen); integer *, integer *, ftnlen, ftnlen);
extern doublereal zlange_(char *, integer *, integer *, doublecomplex *, extern doublereal zlange_(char *, integer *, integer *, doublecomplex *,
integer *, doublereal *); integer *, doublereal *);
doublereal bignum; doublereal bignum;
integer ijobvl, iright; integer ijobvl, iright;
extern /* Subroutine */ int zgghrd_(char *, char *, integer *, integer *, extern /* Subroutine */ void zgghrd_(char *, char *, integer *, integer *,
integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *,
doublecomplex *, integer *, doublecomplex *, integer *, integer * doublecomplex *, integer *, doublecomplex *, integer *, integer *
), zlascl_(char *, integer *, integer *, ), zlascl_(char *, integer *, integer *,
doublereal *, doublereal *, integer *, integer *, doublecomplex *, doublereal *, doublereal *, integer *, integer *, doublecomplex *,
integer *, integer *); integer *, integer *);
integer ijobvr; integer ijobvr;
extern /* Subroutine */ int zgeqrf_(integer *, integer *, doublecomplex *, extern /* Subroutine */ void zgeqrf_(integer *, integer *, doublecomplex *,
integer *, doublecomplex *, doublecomplex *, integer *, integer * integer *, doublecomplex *, doublecomplex *, integer *, integer *
); );
doublereal anrmto; doublereal anrmto;
integer lwkmin, nb1, nb2, nb3; integer lwkmin, nb1, nb2, nb3;
doublereal bnrmto; doublereal bnrmto;
extern /* Subroutine */ int zlacpy_(char *, integer *, integer *, extern /* Subroutine */ void zlacpy_(char *, integer *, integer *,
doublecomplex *, integer *, doublecomplex *, integer *), doublecomplex *, integer *, doublecomplex *, integer *),
zhgeqz_(char *, char *, char *, integer *, integer *, integer *, zhgeqz_(char *, char *, char *, integer *, integer *, integer *,
doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *,
@ -799,7 +799,7 @@ rices</b> */
doublereal smlnum; doublereal smlnum;
integer irwork, lwkopt; integer irwork, lwkopt;
logical lquery; logical lquery;
extern /* Subroutine */ int zungqr_(integer *, integer *, integer *, extern /* Subroutine */ void zungqr_(integer *, integer *, integer *,
doublecomplex *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, doublecomplex *,
integer *, integer *), zunmqr_(char *, char *, integer *, integer integer *, integer *), zunmqr_(char *, char *, integer *, integer
*, integer *, doublecomplex *, integer *, doublecomplex *, *, integer *, doublecomplex *, integer *, doublecomplex *,
@ -903,16 +903,16 @@ rices</b> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("ZGEGS ", &i__1); xerbla_("ZGEGS ", &i__1, 6);
return 0; return;
} else if (lquery) { } else if (lquery) {
return 0; return;
} }
/* Quick return if possible */ /* Quick return if possible */
if (*n == 0) { if (*n == 0) {
return 0; return;
} }
/* Get machine constants */ /* Get machine constants */
@ -939,7 +939,7 @@ rices</b> */
iinfo); iinfo);
if (iinfo != 0) { if (iinfo != 0) {
*info = *n + 9; *info = *n + 9;
return 0; return;
} }
} }
@ -960,7 +960,7 @@ rices</b> */
iinfo); iinfo);
if (iinfo != 0) { if (iinfo != 0) {
*info = *n + 9; *info = *n + 9;
return 0; return;
} }
} }
@ -1097,13 +1097,13 @@ rices</b> */
iinfo); iinfo);
if (iinfo != 0) { if (iinfo != 0) {
*info = *n + 9; *info = *n + 9;
return 0; return;
} }
zlascl_("G", &c_n1, &c_n1, &anrmto, &anrm, n, &c__1, &alpha[1], n, & zlascl_("G", &c_n1, &c_n1, &anrmto, &anrm, n, &c__1, &alpha[1], n, &
iinfo); iinfo);
if (iinfo != 0) { if (iinfo != 0) {
*info = *n + 9; *info = *n + 9;
return 0; return;
} }
} }
@ -1112,20 +1112,20 @@ rices</b> */
iinfo); iinfo);
if (iinfo != 0) { if (iinfo != 0) {
*info = *n + 9; *info = *n + 9;
return 0; return;
} }
zlascl_("G", &c_n1, &c_n1, &bnrmto, &bnrm, n, &c__1, &beta[1], n, & zlascl_("G", &c_n1, &c_n1, &bnrmto, &bnrm, n, &c__1, &beta[1], n, &
iinfo); iinfo);
if (iinfo != 0) { if (iinfo != 0) {
*info = *n + 9; *info = *n + 9;
return 0; return;
} }
} }
L10: L10:
work[1].r = (doublereal) lwkopt, work[1].i = 0.; work[1].r = (doublereal) lwkopt, work[1].i = 0.;
return 0; return;
/* End of ZGEGS */ /* End of ZGEGS */

28
lapack-netlib/SRC/DEPRECATED/zgegv.c
View File

@ -799,7 +799,7 @@ rices</b> */
/* > \endverbatim */ /* > \endverbatim */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int zgegv_(char *jobvl, char *jobvr, integer *n, /* Subroutine */ void zgegv_(char *jobvl, char *jobvr, integer *n,
doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
doublecomplex *alpha, doublecomplex *beta, doublecomplex *vl, integer doublecomplex *alpha, doublecomplex *beta, doublecomplex *vl, integer
*ldvl, doublecomplex *vr, integer *ldvr, doublecomplex *work, integer *ldvl, doublecomplex *vr, integer *ldvr, doublecomplex *work, integer
@ -823,13 +823,13 @@ rices</b> */
extern doublereal dlamch_(char *); extern doublereal dlamch_(char *);
integer jr; integer jr;
doublereal salfai; doublereal salfai;
extern /* Subroutine */ int zggbak_(char *, char *, integer *, integer *, extern /* Subroutine */ void zggbak_(char *, char *, integer *, integer *,
integer *, doublereal *, doublereal *, integer *, doublecomplex *, integer *, doublereal *, doublereal *, integer *, doublecomplex *,
integer *, integer *), zggbal_(char *, integer *, integer *, integer *), zggbal_(char *, integer *,
doublecomplex *, integer *, doublecomplex *, integer *, integer * doublecomplex *, integer *, doublecomplex *, integer *, integer *
, integer *, doublereal *, doublereal *, doublereal *, integer *); , integer *, doublereal *, doublereal *, doublereal *, integer *);
doublereal salfar, safmin; doublereal salfar, safmin;
extern /* Subroutine */ int xerbla_(char *, integer *); extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen);
doublereal safmax; doublereal safmax;
char chtemp[1]; char chtemp[1];
logical ldumma[1]; logical ldumma[1];
@ -839,18 +839,18 @@ rices</b> */
integer *, doublereal *); integer *, doublereal *);
integer ijobvl, iright; integer ijobvl, iright;
logical ilimit; logical ilimit;
extern /* Subroutine */ int zgghrd_(char *, char *, integer *, integer *, extern /* Subroutine */ void zgghrd_(char *, char *, integer *, integer *,
integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *,
doublecomplex *, integer *, doublecomplex *, integer *, integer * doublecomplex *, integer *, doublecomplex *, integer *, integer *
), zlascl_(char *, integer *, integer *, ), zlascl_(char *, integer *, integer *,
doublereal *, doublereal *, integer *, integer *, doublecomplex *, doublereal *, doublereal *, integer *, integer *, doublecomplex *,
integer *, integer *); integer *, integer *);
integer ijobvr; integer ijobvr;
extern /* Subroutine */ int zgeqrf_(integer *, integer *, doublecomplex *, extern /* Subroutine */ void zgeqrf_(integer *, integer *, doublecomplex *,
integer *, doublecomplex *, doublecomplex *, integer *, integer * integer *, doublecomplex *, doublecomplex *, integer *, integer *
); );
integer lwkmin, nb1, nb2, nb3; integer lwkmin, nb1, nb2, nb3;
extern /* Subroutine */ int zlacpy_(char *, integer *, integer *, extern /* Subroutine */ void zlacpy_(char *, integer *, integer *,
doublecomplex *, integer *, doublecomplex *, integer *), doublecomplex *, integer *, doublecomplex *, integer *),
zlaset_(char *, integer *, integer *, doublecomplex *, zlaset_(char *, integer *, integer *, doublecomplex *,
doublecomplex *, doublecomplex *, integer *), ztgevc_( doublecomplex *, doublecomplex *, integer *), ztgevc_(
@ -864,7 +864,7 @@ rices</b> */
integer *, doublecomplex *, integer *, doublereal *, integer *); integer *, doublecomplex *, integer *, doublereal *, integer *);
integer irwork, lwkopt; integer irwork, lwkopt;
logical lquery; logical lquery;
extern /* Subroutine */ int zungqr_(integer *, integer *, integer *, extern /* Subroutine */ void zungqr_(integer *, integer *, integer *,
doublecomplex *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, doublecomplex *,
integer *, integer *), zunmqr_(char *, char *, integer *, integer integer *, integer *), zunmqr_(char *, char *, integer *, integer
*, integer *, doublecomplex *, integer *, doublecomplex *, *, integer *, doublecomplex *, integer *, doublecomplex *,
@ -972,16 +972,16 @@ rices</b> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("ZGEGV ", &i__1); xerbla_("ZGEGV ", &i__1, 6);
return 0; return;
} else if (lquery) { } else if (lquery) {
return 0; return;
} }
/* Quick return if possible */ /* Quick return if possible */
if (*n == 0) { if (*n == 0) {
return 0; return;
} }
/* Get machine constants */ /* Get machine constants */
@ -1008,7 +1008,7 @@ rices</b> */
iinfo); iinfo);
if (iinfo != 0) { if (iinfo != 0) {
*info = *n + 10; *info = *n + 10;
return 0; return;
} }
} }
@ -1029,7 +1029,7 @@ rices</b> */
iinfo); iinfo);
if (iinfo != 0) { if (iinfo != 0) {
*info = *n + 10; *info = *n + 10;
return 0; return;
} }
} }
@ -1356,7 +1356,7 @@ L60:
L80: L80:
work[1].r = (doublereal) lwkopt, work[1].i = 0.; work[1].r = (doublereal) lwkopt, work[1].i = 0.;
return 0; return;
/* End of ZGEGV */ /* End of ZGEGV */

21
lapack-netlib/SRC/DEPRECATED/zgelsx.c
View File

@ -700,7 +700,7 @@ f"> */
/* > \ingroup complex16GEsolve */ /* > \ingroup complex16GEsolve */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int zgelsx_(integer *m, integer *n, integer *nrhs, /* Subroutine */ void zgelsx_(integer *m, integer *n, integer *nrhs,
doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
integer *jpvt, doublereal *rcond, integer *rank, doublecomplex *work, integer *jpvt, doublereal *rcond, integer *rank, doublecomplex *work,
doublereal *rwork, integer *info) doublereal *rwork, integer *info)
@ -713,7 +713,7 @@ f"> */
doublereal anrm, bnrm, smin, smax; doublereal anrm, bnrm, smin, smax;
integer i__, j, k, iascl, ibscl, ismin, ismax; integer i__, j, k, iascl, ibscl, ismin, ismax;
doublecomplex c1, c2, s1, s2, t1, t2; doublecomplex c1, c2, s1, s2, t1, t2;
extern /* Subroutine */ int ztrsm_(char *, char *, char *, char *, extern /* Subroutine */ void ztrsm_(char *, char *, char *, char *,
integer *, integer *, doublecomplex *, doublecomplex *, integer *, integer *, integer *, doublecomplex *, doublecomplex *, integer *,
doublecomplex *, integer *), doublecomplex *, integer *),
zlaic1_(integer *, integer *, doublecomplex *, doublereal *, zlaic1_(integer *, integer *, doublecomplex *, doublereal *,
@ -721,13 +721,14 @@ f"> */
doublecomplex *), dlabad_(doublereal *, doublereal *); doublecomplex *), dlabad_(doublereal *, doublereal *);
extern doublereal dlamch_(char *); extern doublereal dlamch_(char *);
integer mn; integer mn;
extern /* Subroutine */ int zunm2r_(char *, char *, integer *, integer *, extern /* Subroutine */ void zunm2r_(char *, char *, integer *, integer *,
integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *,
doublecomplex *, integer *, doublecomplex *, integer *), xerbla_(char *, integer *); doublecomplex *, integer *, doublecomplex *, integer *);
extern int xerbla_(char *, integer *, ftnlen);
extern doublereal zlange_(char *, integer *, integer *, doublecomplex *, extern doublereal zlange_(char *, integer *, integer *, doublecomplex *,
integer *, doublereal *); integer *, doublereal *);
doublereal bignum; doublereal bignum;
extern /* Subroutine */ int zlascl_(char *, integer *, integer *, extern /* Subroutine */ void zlascl_(char *, integer *, integer *,
doublereal *, doublereal *, integer *, integer *, doublecomplex *, doublereal *, doublereal *, integer *, integer *, doublecomplex *,
integer *, integer *), zgeqpf_(integer *, integer *, integer *, integer *), zgeqpf_(integer *, integer *,
doublecomplex *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, integer *, doublecomplex *,
@ -735,7 +736,7 @@ f"> */
integer *, integer *, doublecomplex *, doublecomplex *, integer *, integer *, doublecomplex *, doublecomplex *,
doublecomplex *, integer *); doublecomplex *, integer *);
doublereal sminpr, smaxpr, smlnum; doublereal sminpr, smaxpr, smlnum;
extern /* Subroutine */ int zlatzm_(char *, integer *, integer *, extern /* Subroutine */ void zlatzm_(char *, integer *, integer *,
doublecomplex *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, doublecomplex *,
doublecomplex *, integer *, doublecomplex *), ztzrqf_( doublecomplex *, integer *, doublecomplex *), ztzrqf_(
integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, integer *, doublecomplex *,
@ -788,8 +789,8 @@ f"> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("ZGELSX", &i__1); xerbla_("ZGELSX", &i__1, 6);
return 0; return;
} }
/* Quick return if possible */ /* Quick return if possible */
@ -798,7 +799,7 @@ f"> */
i__1 = f2cmin(*m,*n); i__1 = f2cmin(*m,*n);
if (f2cmin(i__1,*nrhs) == 0) { if (f2cmin(i__1,*nrhs) == 0) {
*rank = 0; *rank = 0;
return 0; return;
} }
/* Get machine parameters */ /* Get machine parameters */
@ -1030,7 +1031,7 @@ L70:
L100: L100:
return 0; return;
/* End of ZGELSX */ /* End of ZGELSX */

15
lapack-netlib/SRC/DEPRECATED/zgeqpf.c
View File

@ -661,7 +661,7 @@ f"> */
/* > \endverbatim */ /* > \endverbatim */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int zgeqpf_(integer *m, integer *n, doublecomplex *a, /* Subroutine */ void zgeqpf_(integer *m, integer *n, doublecomplex *a,
integer *lda, integer *jpvt, doublecomplex *tau, doublecomplex *work, integer *lda, integer *jpvt, doublecomplex *tau, doublecomplex *work,
doublereal *rwork, integer *info) doublereal *rwork, integer *info)
{ {
@ -675,7 +675,7 @@ f"> */
integer i__, j; integer i__, j;
doublereal tol3z; doublereal tol3z;
integer itemp; integer itemp;
extern /* Subroutine */ int zlarf_(char *, integer *, integer *, extern /* Subroutine */ void zlarf_(char *, integer *, integer *,
doublecomplex *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, doublecomplex *,
integer *, doublecomplex *), zswap_(integer *, integer *, doublecomplex *), zswap_(integer *,
doublecomplex *, integer *, doublecomplex *, integer *), zgeqr2_( doublecomplex *, integer *, doublecomplex *, integer *), zgeqr2_(
@ -685,11 +685,12 @@ f"> */
integer ma; integer ma;
extern doublereal dlamch_(char *); extern doublereal dlamch_(char *);
integer mn; integer mn;
extern /* Subroutine */ int zunm2r_(char *, char *, integer *, integer *, extern /* Subroutine */ void zunm2r_(char *, char *, integer *, integer *,
integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *,
doublecomplex *, integer *, doublecomplex *, integer *); doublecomplex *, integer *, doublecomplex *, integer *);
extern integer idamax_(integer *, doublereal *, integer *); extern integer idamax_(integer *, doublereal *, integer *);
extern /* Subroutine */ int xerbla_(char *, integer *), zlarfg_( extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen);
extern void zlarfg_(
integer *, doublecomplex *, doublecomplex *, integer *, integer *, doublecomplex *, doublecomplex *, integer *,
doublecomplex *); doublecomplex *);
doublecomplex aii; doublecomplex aii;
@ -727,8 +728,8 @@ f"> */
} }
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("ZGEQPF", &i__1); xerbla_("ZGEQPF", &i__1, 6);
return 0; return;
} }
mn = f2cmin(*m,*n); mn = f2cmin(*m,*n);
@ -867,7 +868,7 @@ f"> */
/* L40: */ /* L40: */
} }
} }
return 0; return;
/* End of ZGEQPF */ /* End of ZGEQPF */

14
lapack-netlib/SRC/DEPRECATED/zggsvd.c
View File

@ -848,7 +848,7 @@ f"> */
/* > California at Berkeley, USA */ /* > California at Berkeley, USA */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int zggsvd_(char *jobu, char *jobv, char *jobq, integer *m, /* Subroutine */ void zggsvd_(char *jobu, char *jobv, char *jobq, integer *m,
integer *n, integer *p, integer *k, integer *l, doublecomplex *a, integer *n, integer *p, integer *k, integer *l, doublecomplex *a,
integer *lda, doublecomplex *b, integer *ldb, doublereal *alpha, integer *lda, doublecomplex *b, integer *ldb, doublereal *alpha,
doublereal *beta, doublecomplex *u, integer *ldu, doublecomplex *v, doublereal *beta, doublecomplex *u, integer *ldu, doublecomplex *v,
@ -867,14 +867,14 @@ f"> */
integer ncallmycycle, i__, j; integer ncallmycycle, i__, j;
extern logical lsame_(char *, char *); extern logical lsame_(char *, char *);
doublereal anorm, bnorm; doublereal anorm, bnorm;
extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *,
doublereal *, integer *); doublereal *, integer *);
logical wantq, wantu, wantv; logical wantq, wantu, wantv;
extern doublereal dlamch_(char *); extern doublereal dlamch_(char *);
extern /* Subroutine */ int xerbla_(char *, integer *); extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen);
extern doublereal zlange_(char *, integer *, integer *, doublecomplex *, extern doublereal zlange_(char *, integer *, integer *, doublecomplex *,
integer *, doublereal *); integer *, doublereal *);
extern /* Subroutine */ int ztgsja_(char *, char *, char *, integer *, extern /* Subroutine */ void ztgsja_(char *, char *, char *, integer *,
integer *, integer *, integer *, integer *, doublecomplex *, integer *, integer *, integer *, integer *, doublecomplex *,
integer *, doublecomplex *, integer *, doublereal *, doublereal *, integer *, doublecomplex *, integer *, doublereal *, doublereal *,
doublereal *, doublereal *, doublecomplex *, integer *, doublereal *, doublereal *, doublecomplex *, integer *,
@ -953,8 +953,8 @@ f"> */
} }
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("ZGGSVD", &i__1); xerbla_("ZGGSVD", &i__1, 6);
return 0; return;
} }
/* Compute the Frobenius norm of matrices A and B */ /* Compute the Frobenius norm of matrices A and B */
@ -1014,7 +1014,7 @@ f"> */
/* L20: */ /* L20: */
} }
return 0; return;
/* End of ZGGSVD */ /* End of ZGGSVD */

17
lapack-netlib/SRC/DEPRECATED/zggsvp.c
View File

@ -777,7 +777,7 @@ f"> */
/* > \endverbatim */ /* > \endverbatim */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int zggsvp_(char *jobu, char *jobv, char *jobq, integer *m, /* Subroutine */ void zggsvp_(char *jobu, char *jobv, char *jobq, integer *m,
integer *p, integer *n, doublecomplex *a, integer *lda, doublecomplex integer *p, integer *n, doublecomplex *a, integer *lda, doublecomplex
*b, integer *ldb, doublereal *tola, doublereal *tolb, integer *k, *b, integer *ldb, doublereal *tola, doublereal *tolb, integer *k,
integer *l, doublecomplex *u, integer *ldu, doublecomplex *v, integer integer *l, doublecomplex *u, integer *ldu, doublecomplex *v, integer
@ -793,7 +793,7 @@ f"> */
integer i__, j; integer i__, j;
extern logical lsame_(char *, char *); extern logical lsame_(char *, char *);
logical wantq, wantu, wantv; logical wantq, wantu, wantv;
extern /* Subroutine */ int zgeqr2_(integer *, integer *, doublecomplex *, extern /* Subroutine */ void zgeqr2_(integer *, integer *, doublecomplex *,
integer *, doublecomplex *, doublecomplex *, integer *), zgerq2_( integer *, doublecomplex *, doublecomplex *, integer *), zgerq2_(
integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, integer *, doublecomplex *,
doublecomplex *, integer *), zung2r_(integer *, integer *, doublecomplex *, integer *), zung2r_(integer *, integer *,
@ -802,14 +802,15 @@ f"> */
integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, integer *, doublecomplex *,
doublecomplex *, integer *, doublecomplex *, integer *), zunmr2_(char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *), zunmr2_(char *, char *, integer *, integer *, integer *,
doublecomplex *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, doublecomplex *,
integer *, doublecomplex *, integer *), xerbla_( integer *, doublecomplex *, integer *);
char *, integer *), zgeqpf_(integer *, integer *, extern int xerbla_(char *, integer *, ftnlen);
extern void zgeqpf_(integer *, integer *,
doublecomplex *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, integer *, doublecomplex *,
doublecomplex *, doublereal *, integer *), zlacpy_(char *, doublecomplex *, doublereal *, integer *), zlacpy_(char *,
integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, integer *, doublecomplex *,
integer *); integer *);
logical forwrd; logical forwrd;
extern /* Subroutine */ int zlaset_(char *, integer *, integer *, extern /* Subroutine */ void zlaset_(char *, integer *, integer *,
doublecomplex *, doublecomplex *, doublecomplex *, integer *), zlapmt_(logical *, integer *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, doublecomplex *, integer *), zlapmt_(logical *, integer *, integer *, doublecomplex *,
integer *, integer *); integer *, integer *);
@ -878,8 +879,8 @@ f"> */
} }
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("ZGGSVP", &i__1); xerbla_("ZGGSVP", &i__1, 6);
return 0; return;
} }
/* QR with column pivoting of B: B*P = V*( S11 S12 ) */ /* QR with column pivoting of B: B*P = V*( S11 S12 ) */
@ -1137,7 +1138,7 @@ f"> */
} }
return 0; return;
/* End of ZGGSVP */ /* End of ZGGSVP */

10
lapack-netlib/SRC/DEPRECATED/zlahrd.c
View File

@ -684,7 +684,7 @@ f"> */
/* > \endverbatim */ /* > \endverbatim */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int zlahrd_(integer *n, integer *k, integer *nb, /* Subroutine */ void zlahrd_(integer *n, integer *k, integer *nb,
doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *t, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *t,
integer *ldt, doublecomplex *y, integer *ldy) integer *ldt, doublecomplex *y, integer *ldy)
{ {
@ -695,7 +695,7 @@ f"> */
/* Local variables */ /* Local variables */
integer i__; integer i__;
extern /* Subroutine */ int zscal_(integer *, doublecomplex *, extern /* Subroutine */ void zscal_(integer *, doublecomplex *,
doublecomplex *, integer *), zgemv_(char *, integer *, integer *, doublecomplex *, integer *), zgemv_(char *, integer *, integer *,
doublecomplex *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, integer *, doublecomplex *,
integer *, doublecomplex *, doublecomplex *, integer *), integer *, doublecomplex *, doublecomplex *, integer *),
@ -705,7 +705,7 @@ f"> */
char *, integer *, doublecomplex *, integer *, doublecomplex *, char *, integer *, doublecomplex *, integer *, doublecomplex *,
integer *); integer *);
doublecomplex ei; doublecomplex ei;
extern /* Subroutine */ int zlarfg_(integer *, doublecomplex *, extern /* Subroutine */ void zlarfg_(integer *, doublecomplex *,
doublecomplex *, integer *, doublecomplex *), zlacgv_(integer *, doublecomplex *, integer *, doublecomplex *), zlacgv_(integer *,
doublecomplex *, integer *); doublecomplex *, integer *);
@ -735,7 +735,7 @@ f"> */
/* Function Body */ /* Function Body */
if (*n <= 1) { if (*n <= 1) {
return 0; return;
} }
i__1 = *nb; i__1 = *nb;
@ -859,7 +859,7 @@ f"> */
i__1 = *k + *nb + *nb * a_dim1; i__1 = *k + *nb + *nb * a_dim1;
a[i__1].r = ei.r, a[i__1].i = ei.i; a[i__1].r = ei.r, a[i__1].i = ei.i;
return 0; return;
/* End of ZLAHRD */ /* End of ZLAHRD */

8
lapack-netlib/SRC/DEPRECATED/zlatzm.c
View File

@ -666,7 +666,7 @@ f"> */
/* > \ingroup complex16OTHERcomputational */ /* > \ingroup complex16OTHERcomputational */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int zlatzm_(char *side, integer *m, integer *n, /* Subroutine */ void zlatzm_(char *side, integer *m, integer *n,
doublecomplex *v, integer *incv, doublecomplex *tau, doublecomplex * doublecomplex *v, integer *incv, doublecomplex *tau, doublecomplex *
c1, doublecomplex *c2, integer *ldc, doublecomplex *work) c1, doublecomplex *c2, integer *ldc, doublecomplex *work)
{ {
@ -676,7 +676,7 @@ f"> */
/* Local variables */ /* Local variables */
extern logical lsame_(char *, char *); extern logical lsame_(char *, char *);
extern /* Subroutine */ int zgerc_(integer *, integer *, doublecomplex *, extern /* Subroutine */ void zgerc_(integer *, integer *, doublecomplex *,
doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *,
doublecomplex *, integer *), zgemv_(char *, integer *, integer *, doublecomplex *, integer *), zgemv_(char *, integer *, integer *,
doublecomplex *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, integer *, doublecomplex *,
@ -710,7 +710,7 @@ f"> */
/* Function Body */ /* Function Body */
if (f2cmin(*m,*n) == 0 || tau->r == 0. && tau->i == 0.) { if (f2cmin(*m,*n) == 0 || tau->r == 0. && tau->i == 0.) {
return 0; return;
} }
if (lsame_(side, "L")) { if (lsame_(side, "L")) {
@ -753,7 +753,7 @@ f"> */
ldc); ldc);
} }
return 0; return;
/* End of ZLATZM */ /* End of ZLATZM */

19
lapack-netlib/SRC/DEPRECATED/ztzrqf.c
View File

@ -652,7 +652,7 @@ f"> */
/* > \endverbatim */ /* > \endverbatim */
/* > */ /* > */
/* ===================================================================== */ /* ===================================================================== */
/* Subroutine */ int ztzrqf_(integer *m, integer *n, doublecomplex *a, /* Subroutine */ void ztzrqf_(integer *m, integer *n, doublecomplex *a,
integer *lda, doublecomplex *tau, integer *info) integer *lda, doublecomplex *tau, integer *info)
{ {
/* System generated locals */ /* System generated locals */
@ -662,16 +662,17 @@ f"> */
/* Local variables */ /* Local variables */
integer i__, k; integer i__, k;
doublecomplex alpha; doublecomplex alpha;
extern /* Subroutine */ int zgerc_(integer *, integer *, doublecomplex *, extern /* Subroutine */ void zgerc_(integer *, integer *, doublecomplex *,
doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *,
doublecomplex *, integer *), zgemv_(char *, integer *, integer *, doublecomplex *, integer *), zgemv_(char *, integer *, integer *,
doublecomplex *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, integer *, doublecomplex *,
integer *, doublecomplex *, doublecomplex *, integer *); integer *, doublecomplex *, doublecomplex *, integer *);
integer m1; integer m1;
extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *, extern /* Subroutine */ void zcopy_(integer *, doublecomplex *, integer *,
doublecomplex *, integer *), zaxpy_(integer *, doublecomplex *, doublecomplex *, integer *), zaxpy_(integer *, doublecomplex *,
doublecomplex *, integer *, doublecomplex *, integer *), xerbla_( doublecomplex *, integer *, doublecomplex *, integer *);
char *, integer *), zlarfg_(integer *, doublecomplex *, extern int xerbla_(char *, integer *, ftnlen);
extern void zlarfg_(integer *, doublecomplex *,
doublecomplex *, integer *, doublecomplex *), zlacgv_(integer *, doublecomplex *, integer *, doublecomplex *), zlacgv_(integer *,
doublecomplex *, integer *); doublecomplex *, integer *);
@ -704,14 +705,14 @@ f"> */
} }
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("ZTZRQF", &i__1); xerbla_("ZTZRQF", &i__1, 6);
return 0; return;
} }
/* Perform the factorization. */ /* Perform the factorization. */
if (*m == 0) { if (*m == 0) {
return 0; return;
} }
if (*m == *n) { if (*m == *n) {
i__1 = *n; i__1 = *n;
@ -784,7 +785,7 @@ f"> */
} }
} }
return 0; return;
/* End of ZTZRQF */ /* End of ZTZRQF */