Mercurial > octave
diff libinterp/corefcn/qz.cc @ 22322:93b3cdd36854
move most f77 function decls to separate header files
* liboctave/numeric/lo-amos-proto.h,
liboctave/numeric/lo-arpack-proto.h,
liboctave/numeric/lo-blas-proto.h,
liboctave/numeric/lo-fftpack-proto.h,
liboctave/numeric/lo-lapack-proto.h,
liboctave/numeric/lo-qrupdate-proto.h,
liboctave/numeric/lo-ranlib-proto.h,
liboctave/numeric/lo-slatec-proto.h: New files.
* liboctave/numeric/module.mk: Update.
* __pchip_deriv__.cc, dot.cc, interpreter.cc, ordschur.cc, qz.cc,
CColVector.cc, CMatrix.cc, CNDArray.cc, CRowVector.cc, CSparse.cc,
dColVector.cc, dMatrix.cc, dNDArray.cc, dRowVector.cc, dSparse.cc,
fCColVector.cc, fCMatrix.cc, fCNDArray.cc, fCRowVector.cc,
fColVector.cc, fMatrix.cc, fNDArray.cc, fRowVector.cc, EIG.cc,
aepbalance.cc, chol.cc, eigs-base.cc, fEIG.cc, gepbalance.cc, gsvd.cc,
hess.cc, lo-specfun.cc, lu.cc, oct-rand.cc, qr.cc, qrp.cc,
randpoisson.cc, schur.cc, sparse-qr.cc, svd.cc:
Use new header files.
| author | John W. Eaton <jwe@octave.org> |
|---|---|
| date | Wed, 17 Aug 2016 00:18:08 -0400 |
| parents | 6ca3acf5fad8 |
| children | bac0d6f07a3e |
line wrap: on
line diff
--- a/libinterp/corefcn/qz.cc Tue Aug 16 21:38:58 2016 -0700 +++ b/libinterp/corefcn/qz.cc Wed Aug 17 00:18:08 2016 -0400 @@ -38,6 +38,7 @@ #include <iomanip> #include "f77-fcn.h" +#include "lo-lapack-proto.h" #include "lo-math.h" #include "qr.h" #include "quit.h" @@ -63,119 +64,6 @@ extern "C" { - F77_RET_T - F77_FUNC (dggbal, DGGBAL) (F77_CONST_CHAR_ARG_DECL, - const F77_INT& N, F77_DBLE* A, - const F77_INT& LDA, F77_DBLE* B, - const F77_INT& LDB, F77_INT& ILO, - F77_INT& IHI, F77_DBLE* LSCALE, - F77_DBLE* RSCALE, F77_DBLE* WORK, - F77_INT& INFO - F77_CHAR_ARG_LEN_DECL); - - F77_RET_T - F77_FUNC (zggbal, ZGGBAL) (F77_CONST_CHAR_ARG_DECL, - const F77_INT& N, F77_DBLE_CMPLX* A, - const F77_INT& LDA, F77_DBLE_CMPLX* B, - const F77_INT& LDB, F77_INT& ILO, - F77_INT& IHI, F77_DBLE* LSCALE, - F77_DBLE* RSCALE, F77_DBLE* WORK, - F77_INT& INFO - F77_CHAR_ARG_LEN_DECL); - - F77_RET_T - F77_FUNC (dggbak, DGGBAK) (F77_CONST_CHAR_ARG_DECL, - F77_CONST_CHAR_ARG_DECL, - const F77_INT& N, - const F77_INT& ILO, - const F77_INT& IHI, - const F77_DBLE* LSCALE, const F77_DBLE* RSCALE, - F77_INT& M, F77_DBLE* V, - const F77_INT& LDV, F77_INT& INFO - F77_CHAR_ARG_LEN_DECL - F77_CHAR_ARG_LEN_DECL); - - F77_RET_T - F77_FUNC (zggbak, ZGGBAK) (F77_CONST_CHAR_ARG_DECL, - F77_CONST_CHAR_ARG_DECL, - const F77_INT& N, - const F77_INT& ILO, - const F77_INT& IHI, - const F77_DBLE* LSCALE, const F77_DBLE* RSCALE, - F77_INT& M, F77_DBLE_CMPLX* V, - const F77_INT& LDV, F77_INT& INFO - F77_CHAR_ARG_LEN_DECL - F77_CHAR_ARG_LEN_DECL); - - F77_RET_T - F77_FUNC (dgghrd, DGGHRD) (F77_CONST_CHAR_ARG_DECL, - F77_CONST_CHAR_ARG_DECL, - const F77_INT& N, - const F77_INT& ILO, - const F77_INT& IHI, F77_DBLE* A, - const F77_INT& LDA, F77_DBLE* B, - const F77_INT& LDB, F77_DBLE* Q, - const F77_INT& LDQ, F77_DBLE* Z, - const F77_INT& LDZ, F77_INT& INFO - F77_CHAR_ARG_LEN_DECL - F77_CHAR_ARG_LEN_DECL); - - F77_RET_T - F77_FUNC (zgghrd, ZGGHRD) (F77_CONST_CHAR_ARG_DECL, - F77_CONST_CHAR_ARG_DECL, - const F77_INT& N, - const F77_INT& ILO, - const F77_INT& IHI, F77_DBLE_CMPLX* A, - const F77_INT& LDA, F77_DBLE_CMPLX* B, - const F77_INT& LDB, F77_DBLE_CMPLX* Q, - const F77_INT& LDQ, F77_DBLE_CMPLX* Z, - const F77_INT& LDZ, F77_INT& INFO - F77_CHAR_ARG_LEN_DECL - F77_CHAR_ARG_LEN_DECL); - - F77_RET_T - F77_FUNC (dhgeqz, DHGEQZ) (F77_CONST_CHAR_ARG_DECL, - F77_CONST_CHAR_ARG_DECL, - F77_CONST_CHAR_ARG_DECL, - const F77_INT& N, - const F77_INT& ILO, - const F77_INT& IHI, - F77_DBLE* A, const F77_INT& LDA, F77_DBLE* B, - const F77_INT& LDB, F77_DBLE* ALPHAR, - F77_DBLE* ALPHAI, F77_DBLE* BETA, F77_DBLE* Q, - const F77_INT& LDQ, F77_DBLE* Z, - const F77_INT& LDZ, F77_DBLE* WORK, - const F77_INT& LWORK, - F77_INT& INFO - F77_CHAR_ARG_LEN_DECL - F77_CHAR_ARG_LEN_DECL - F77_CHAR_ARG_LEN_DECL); - - F77_RET_T - F77_FUNC (zhgeqz, ZHGEQZ) (F77_CONST_CHAR_ARG_DECL, - F77_CONST_CHAR_ARG_DECL, - F77_CONST_CHAR_ARG_DECL, - const F77_INT& N, - const F77_INT& ILO, - const F77_INT& IHI, - F77_DBLE_CMPLX* A, const F77_INT& LDA, - F77_DBLE_CMPLX* B, const F77_INT& LDB, - F77_DBLE_CMPLX* ALPHA, F77_DBLE_CMPLX* BETA, F77_DBLE_CMPLX* CQ, - const F77_INT& LDQ, - F77_DBLE_CMPLX* CZ, const F77_INT& LDZ, - F77_DBLE_CMPLX* WORK, const F77_INT& LWORK, - F77_DBLE* RWORK, F77_INT& INFO - F77_CHAR_ARG_LEN_DECL - F77_CHAR_ARG_LEN_DECL - F77_CHAR_ARG_LEN_DECL); - - F77_RET_T - F77_FUNC (dlag2, DLAG2) (const F77_DBLE* A, const F77_INT& LDA, - const F77_DBLE* B, const F77_INT& LDB, - const F77_DBLE& SAFMIN, F77_DBLE& SCALE1, - F77_DBLE& SCALE2, F77_DBLE& WR1, F77_DBLE& WR2, - F77_DBLE& WI); - // Van Dooren's code (netlib.org: toms/590) for reordering // GEP. Only processes Z, not Q. F77_RET_T @@ -184,50 +72,6 @@ F77_DBLE* B, F77_DBLE* Z, sort_function, const F77_DBLE& EPS, F77_INT& NDIM, F77_INT& FAIL, F77_INT* IND); - - // Documentation for DTGEVC incorrectly states that VR, VL are - // complex*16; they are declared in DTGEVC as double precision - // (probably a cut and paste problem fro ZTGEVC). - F77_RET_T - F77_FUNC (dtgevc, DTGEVC) (F77_CONST_CHAR_ARG_DECL, - F77_CONST_CHAR_ARG_DECL, - F77_INT* SELECT, - const F77_INT& N, F77_DBLE* A, - const F77_INT& LDA, F77_DBLE* B, - const F77_INT& LDB, F77_DBLE* VL, - const F77_INT& LDVL, F77_DBLE* VR, - const F77_INT& LDVR, - const F77_INT& MM, F77_INT& M, - F77_DBLE* WORK, F77_INT& INFO - F77_CHAR_ARG_LEN_DECL - F77_CHAR_ARG_LEN_DECL); - - F77_RET_T - F77_FUNC (ztgevc, ZTGEVC) (F77_CONST_CHAR_ARG_DECL, - F77_CONST_CHAR_ARG_DECL, - F77_INT* SELECT, - const F77_INT& N, const F77_DBLE_CMPLX* A, - const F77_INT& LDA,const F77_DBLE_CMPLX* B, - const F77_INT& LDB, F77_DBLE_CMPLX* xVL, - const F77_INT& LDVL, F77_DBLE_CMPLX* xVR, - const F77_INT& LDVR, - const F77_INT& MM, F77_INT& M, - F77_DBLE_CMPLX* CWORK, F77_DBLE* RWORK, - F77_INT& INFO - F77_CHAR_ARG_LEN_DECL - F77_CHAR_ARG_LEN_DECL); - - F77_RET_T - F77_FUNC (xdlamch, XDLAMCH) (F77_CONST_CHAR_ARG_DECL, - F77_DBLE& retval - F77_CHAR_ARG_LEN_DECL); - - F77_RET_T - F77_FUNC (xdlange, XDLANGE) (F77_CONST_CHAR_ARG_DECL, - const F77_INT&, - const F77_INT&, const F77_DBLE*, - const F77_INT&, F77_DBLE*, F77_DBLE& - F77_CHAR_ARG_LEN_DECL); } // fcrhp, fin, fout, folhp: