Mercurial > octave
diff liboctave/numeric/hess.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/liboctave/numeric/hess.cc Tue Aug 16 21:38:58 2016 -0700 +++ b/liboctave/numeric/hess.cc Wed Aug 17 00:18:08 2016 -0400 @@ -26,132 +26,11 @@ #include "CMatrix.h" #include "dMatrix.h" -#include "f77-fcn.h" #include "fCMatrix.h" #include "fMatrix.h" #include "hess.h" #include "lo-error.h" - -extern "C" -{ - F77_RET_T - F77_FUNC (dgebal, DGEBAL) (F77_CONST_CHAR_ARG_DECL, - const F77_INT&, F77_DBLE*, - const F77_INT&, F77_INT&, - F77_INT&, F77_DBLE*, F77_INT& - F77_CHAR_ARG_LEN_DECL); - - F77_RET_T - F77_FUNC (dgehrd, DGEHRD) (const F77_INT&, const F77_INT&, - const F77_INT&, F77_DBLE*, - const F77_INT&, F77_DBLE*, F77_DBLE*, - const F77_INT&, F77_INT&); - - F77_RET_T - F77_FUNC (dorghr, DORGHR) (const F77_INT&, const F77_INT&, - const F77_INT&, F77_DBLE*, - const F77_INT&, F77_DBLE*, F77_DBLE*, - const F77_INT&, F77_INT&); - - F77_RET_T - F77_FUNC (dgebak, DGEBAK) (F77_CONST_CHAR_ARG_DECL, - F77_CONST_CHAR_ARG_DECL, - const F77_INT&, const F77_INT&, - const F77_INT&, F77_DBLE*, - const F77_INT&, F77_DBLE*, - const F77_INT&, F77_INT& - F77_CHAR_ARG_LEN_DECL - F77_CHAR_ARG_LEN_DECL); - - F77_RET_T - F77_FUNC (sgebal, SGEBAL) (F77_CONST_CHAR_ARG_DECL, - const F77_INT&, F77_REAL*, - const F77_INT&, F77_INT&, - F77_INT&, F77_REAL*, F77_INT& - F77_CHAR_ARG_LEN_DECL); - - F77_RET_T - F77_FUNC (sgehrd, SGEHRD) (const F77_INT&, const F77_INT&, - const F77_INT&, F77_REAL*, - const F77_INT&, F77_REAL*, F77_REAL*, - const F77_INT&, F77_INT&); - - F77_RET_T - F77_FUNC (sorghr, SORGHR) (const F77_INT&, const F77_INT&, - const F77_INT&, F77_REAL*, - const F77_INT&, F77_REAL*, F77_REAL*, - const F77_INT&, F77_INT&); - - F77_RET_T - F77_FUNC (sgebak, SGEBAK) (F77_CONST_CHAR_ARG_DECL, - F77_CONST_CHAR_ARG_DECL, - const F77_INT&, const F77_INT&, - const F77_INT&, F77_REAL*, - const F77_INT&, F77_REAL*, - const F77_INT&, F77_INT& - F77_CHAR_ARG_LEN_DECL - F77_CHAR_ARG_LEN_DECL); - - F77_RET_T - F77_FUNC (zgebal, ZGEBAL) (F77_CONST_CHAR_ARG_DECL, - const F77_INT&, F77_DBLE_CMPLX*, - const F77_INT&, F77_INT&, - F77_INT&, F77_DBLE*, F77_INT& - F77_CHAR_ARG_LEN_DECL); - - F77_RET_T - F77_FUNC (zgehrd, ZGEHRD) (const F77_INT&, const F77_INT&, - const F77_INT&, F77_DBLE_CMPLX*, - const F77_INT&, F77_DBLE_CMPLX*, F77_DBLE_CMPLX*, - const F77_INT&, F77_INT&); - - F77_RET_T - F77_FUNC (zunghr, ZUNGHR) (const F77_INT&, const F77_INT&, - const F77_INT&, F77_DBLE_CMPLX*, - const F77_INT&, F77_DBLE_CMPLX*, F77_DBLE_CMPLX*, - const F77_INT&, F77_INT&); - - F77_RET_T - F77_FUNC (zgebak, ZGEBAK) (F77_CONST_CHAR_ARG_DECL, - F77_CONST_CHAR_ARG_DECL, - const F77_INT&, const F77_INT&, - const F77_INT&, F77_DBLE*, - const F77_INT&, F77_DBLE_CMPLX*, - const F77_INT&, F77_INT& - F77_CHAR_ARG_LEN_DECL - F77_CHAR_ARG_LEN_DECL); - - F77_RET_T - F77_FUNC (cgebal, CGEBAL) (F77_CONST_CHAR_ARG_DECL, - const F77_INT&, F77_CMPLX*, - const F77_INT&, F77_INT&, - F77_INT&, F77_REAL*, F77_INT& - F77_CHAR_ARG_LEN_DECL); - - F77_RET_T - F77_FUNC (cgehrd, CGEHRD) (const F77_INT&, const F77_INT&, - const F77_INT&, F77_CMPLX*, - const F77_INT&, F77_CMPLX*, - F77_CMPLX*, const F77_INT&, - F77_INT&); - - F77_RET_T - F77_FUNC (cunghr, CUNGHR) (const F77_INT&, const F77_INT&, - const F77_INT&, F77_CMPLX*, - const F77_INT&, F77_CMPLX*, - F77_CMPLX*, const F77_INT&, - F77_INT&); - - F77_RET_T - F77_FUNC (cgebak, CGEBAK) (F77_CONST_CHAR_ARG_DECL, - F77_CONST_CHAR_ARG_DECL, - const F77_INT&, const F77_INT&, - const F77_INT&, F77_REAL*, - const F77_INT&, F77_CMPLX*, - const F77_INT&, F77_INT& - F77_CHAR_ARG_LEN_DECL - F77_CHAR_ARG_LEN_DECL); -} +#include "lo-lapack-proto.h" namespace octave {