Mercurial > hg > octave-nkf
changeset 11495:8a5e980da6aa
style fixes
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Thu, 13 Jan 2011 02:09:02 -0500 |
parents | a2c3c43af79e |
children | aee00336a440 |
files | liboctave/ChangeLog liboctave/CmplxCHOL.cc liboctave/CmplxGEPBAL.cc liboctave/CmplxHESS.cc liboctave/CmplxSCHUR.cc liboctave/CmplxSVD.cc liboctave/DASPK.cc liboctave/DASRT.cc liboctave/DASSL.cc liboctave/EIG.cc liboctave/LSODE.cc liboctave/dbleCHOL.cc liboctave/dbleGEPBAL.cc liboctave/dbleHESS.cc liboctave/dbleSCHUR.cc liboctave/dbleSVD.cc liboctave/fCmplxCHOL.cc liboctave/fCmplxGEPBAL.cc liboctave/fCmplxHESS.cc liboctave/fCmplxSCHUR.cc liboctave/fCmplxSVD.cc liboctave/fEIG.cc liboctave/floatCHOL.cc liboctave/floatGEPBAL.cc liboctave/floatHESS.cc liboctave/floatSCHUR.cc liboctave/floatSVD.cc |
diffstat | 27 files changed, 397 insertions(+), 276 deletions(-) [+] |
line wrap: on
line diff
--- a/liboctave/ChangeLog +++ b/liboctave/ChangeLog @@ -1,3 +1,18 @@ +2011-01-13 John W. Eaton <jwe@octave.org> + + * LSODE.cc, DASSL.cc, DASRT.cc, DASPK.cc, CmplxSVD.cc, + CmplxSCHUR.cc, CmplxHESS.cc, CmplxGEPBAL.cc, CmplxCHOL.cc, + EIG.cc, dbleCHOL.cc, dbleGEPBAL.cc, dbleHESS.cc, dbleSCHUR.cc, + dbleSVD.cc, fCmplxCHOL.cc, fCmplxGEPBAL.cc, fCmplxHESS.cc, + fCmplxSCHUR.cc, fCmplxSVD.cc, fEIG.cc, floatCHOL.cc, + floatGEPBAL.cc, floatHESS.cc, floatSCHUR.cc, floatSVD.cc: + Style fixes. + + * CmplxSCHUR.cc (ComplexSCHUR::ComplexSCHUR): Initialize selector. + * fCmplxSCHUR.cc (FloatComplexSCHUR::FloatComplexSCHUR): Likewise. + * dbleSCHUR.cc (SCHUR::SCHUR): Likewise. + * floatSCHUR.cc (FloatSCHUR::FloatSCHUR): Likewise. + 2011-01-12 John W. Eaton <jwe@octave.org> * oct-rl-hist.c (hc_erasedups): Avoid GCC warning.
--- a/liboctave/CmplxCHOL.cc +++ b/liboctave/CmplxCHOL.cc @@ -58,26 +58,28 @@ #ifdef HAVE_QRUPDATE F77_RET_T - F77_FUNC (zch1up, ZCH1UP) (const octave_idx_type&, Complex*, const octave_idx_type&, - Complex*, double*); + F77_FUNC (zch1up, ZCH1UP) (const octave_idx_type&, Complex*, + const octave_idx_type&, Complex*, double*); F77_RET_T - F77_FUNC (zch1dn, ZCH1DN) (const octave_idx_type&, Complex*, const octave_idx_type&, + F77_FUNC (zch1dn, ZCH1DN) (const octave_idx_type&, Complex*, + const octave_idx_type&, Complex*, double*, + octave_idx_type&); + + F77_RET_T + F77_FUNC (zchinx, ZCHINX) (const octave_idx_type&, Complex*, + const octave_idx_type&, const octave_idx_type&, Complex*, double*, octave_idx_type&); F77_RET_T - F77_FUNC (zchinx, ZCHINX) (const octave_idx_type&, Complex*, const octave_idx_type&, - const octave_idx_type&, Complex*, double*, - octave_idx_type&); + F77_FUNC (zchdex, ZCHDEX) (const octave_idx_type&, Complex*, + const octave_idx_type&, const octave_idx_type&, + double*); F77_RET_T - F77_FUNC (zchdex, ZCHDEX) (const octave_idx_type&, Complex*, const octave_idx_type&, - const octave_idx_type&, double*); - - F77_RET_T - F77_FUNC (zchshx, ZCHSHX) (const octave_idx_type&, Complex*, const octave_idx_type&, - const octave_idx_type&, const octave_idx_type&, - Complex*, double*); + F77_FUNC (zchshx, ZCHSHX) (const octave_idx_type&, Complex*, + const octave_idx_type&, const octave_idx_type&, + const octave_idx_type&, Complex*, double*); #endif }
--- a/liboctave/CmplxGEPBAL.cc +++ b/liboctave/CmplxGEPBAL.cc @@ -36,9 +36,11 @@ extern "C" { F77_RET_T - F77_FUNC (zggbal, ZGGBAL) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type& N, - Complex* A, const octave_idx_type& LDA, Complex* B, - const octave_idx_type& LDB, octave_idx_type& ILO, octave_idx_type& IHI, + F77_FUNC (zggbal, ZGGBAL) (F77_CONST_CHAR_ARG_DECL, + const octave_idx_type& N, Complex* A, + const octave_idx_type& LDA, Complex* B, + const octave_idx_type& LDB, + octave_idx_type& ILO, octave_idx_type& IHI, double* LSCALE, double* RSCALE, double* WORK, octave_idx_type& INFO F77_CHAR_ARG_LEN_DECL); @@ -46,9 +48,11 @@ F77_RET_T F77_FUNC (dggbak, DGGBAK) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, - const octave_idx_type& N, const octave_idx_type& ILO, - const octave_idx_type& IHI, const double* LSCALE, - const double* RSCALE, octave_idx_type& M, double* V, + const octave_idx_type& N, + const octave_idx_type& ILO, + const octave_idx_type& IHI, + const double* LSCALE, const double* RSCALE, + octave_idx_type& M, double* V, const octave_idx_type& LDV, octave_idx_type& INFO F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL);
--- a/liboctave/CmplxHESS.cc +++ b/liboctave/CmplxHESS.cc @@ -33,25 +33,30 @@ { F77_RET_T F77_FUNC (zgebal, ZGEBAL) (F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, Complex*, const octave_idx_type&, - octave_idx_type&, octave_idx_type&, double*, octave_idx_type& + const octave_idx_type&, Complex*, + const octave_idx_type&, octave_idx_type&, + octave_idx_type&, double*, octave_idx_type& F77_CHAR_ARG_LEN_DECL); F77_RET_T - F77_FUNC (zgehrd, ZGEHRD) (const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, - Complex*, const octave_idx_type&, Complex*, - Complex*, const octave_idx_type&, octave_idx_type&); + F77_FUNC (zgehrd, ZGEHRD) (const octave_idx_type&, const octave_idx_type&, + const octave_idx_type&, Complex*, + const octave_idx_type&, Complex*, Complex*, + const octave_idx_type&, octave_idx_type&); F77_RET_T - F77_FUNC (zunghr, ZUNGHR) (const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, - Complex*, const octave_idx_type&, Complex*, - Complex*, const octave_idx_type&, octave_idx_type&); + F77_FUNC (zunghr, ZUNGHR) (const octave_idx_type&, const octave_idx_type&, + const octave_idx_type&, Complex*, + const octave_idx_type&, Complex*, Complex*, + const octave_idx_type&, octave_idx_type&); F77_RET_T F77_FUNC (zgebak, ZGEBAK) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, double*, - const octave_idx_type&, Complex*, const octave_idx_type&, octave_idx_type& + const octave_idx_type&, const octave_idx_type&, + const octave_idx_type&, double*, + const octave_idx_type&, Complex*, + const octave_idx_type&, octave_idx_type& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); }
--- a/liboctave/CmplxSCHUR.cc +++ b/liboctave/CmplxSCHUR.cc @@ -37,16 +37,19 @@ F77_CONST_CHAR_ARG_DECL, ComplexSCHUR::select_function, F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, Complex*, const octave_idx_type&, octave_idx_type&, - Complex*, Complex*, const octave_idx_type&, double&, - double&, Complex*, const octave_idx_type&, double*, octave_idx_type*, - octave_idx_type& + const octave_idx_type&, Complex*, + const octave_idx_type&, octave_idx_type&, + Complex*, Complex*, const octave_idx_type&, + double&, double&, Complex*, + const octave_idx_type&, double*, + octave_idx_type*, octave_idx_type& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); + F77_RET_T - F77_FUNC (zrsf2csf, ZRSF2CSF) (const octave_idx_type&, - Complex *, Complex *, double *, double *); + F77_FUNC (zrsf2csf, ZRSF2CSF) (const octave_idx_type&, Complex *, + Complex *, double *, double *); } static octave_idx_type
--- a/liboctave/CmplxSVD.cc +++ b/liboctave/CmplxSVD.cc @@ -35,19 +35,22 @@ F77_RET_T F77_FUNC (zgesvd, ZGESVD) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, const octave_idx_type&, Complex*, - const octave_idx_type&, double*, Complex*, const octave_idx_type&, - Complex*, const octave_idx_type&, Complex*, const octave_idx_type&, - double*, octave_idx_type& + const octave_idx_type&, const octave_idx_type&, + Complex*, const octave_idx_type&, + double*, Complex*, const octave_idx_type&, + Complex*, const octave_idx_type&, Complex*, + const octave_idx_type&, double*, octave_idx_type& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (zgesdd, ZGESDD) (F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, const octave_idx_type&, Complex*, - const octave_idx_type&, double*, Complex*, const octave_idx_type&, - Complex*, const octave_idx_type&, Complex*, const octave_idx_type&, - double*, octave_idx_type *, octave_idx_type& + const octave_idx_type&, const octave_idx_type&, + Complex*, const octave_idx_type&, + double*, Complex*, const octave_idx_type&, + Complex*, const octave_idx_type&, Complex*, + const octave_idx_type&, double*, + octave_idx_type *, octave_idx_type& F77_CHAR_ARG_LEN_DECL); }
--- a/liboctave/DASPK.cc +++ b/liboctave/DASPK.cc @@ -36,27 +36,33 @@ #include "quit.h" typedef octave_idx_type (*daspk_fcn_ptr) (const double&, const double*, - const double*, const double&, - double*, octave_idx_type&, double*, octave_idx_type*); + const double*, const double&, + double*, octave_idx_type&, + double*, octave_idx_type*); typedef octave_idx_type (*daspk_jac_ptr) (const double&, const double*, - const double*, double*, - const double&, double*, octave_idx_type*); + const double*, double*, + const double&, double*, + octave_idx_type*); -typedef octave_idx_type (*daspk_psol_ptr) (const octave_idx_type&, const double&, - const double*, const double*, - const double*, const double&, - const double*, double*, octave_idx_type*, - double*, const double&, octave_idx_type&, - double*, octave_idx_type*); +typedef octave_idx_type (*daspk_psol_ptr) (const octave_idx_type&, + const double&, const double*, + const double*, const double*, + const double&, const double*, + double*, octave_idx_type*, + double*, const double&, + octave_idx_type&, double*, + octave_idx_type*); extern "C" { F77_RET_T - F77_FUNC (ddaspk, DDASPK) (daspk_fcn_ptr, const octave_idx_type&, double&, - double*, double*, double&, const octave_idx_type*, - const double*, const double*, octave_idx_type&, - double*, const octave_idx_type&, octave_idx_type*, const octave_idx_type&, + F77_FUNC (ddaspk, DDASPK) (daspk_fcn_ptr, const octave_idx_type&, + double&, double*, double*, double&, + const octave_idx_type*, const double*, + const double*, octave_idx_type&, + double*, const octave_idx_type&, + octave_idx_type*, const octave_idx_type&, const double*, const octave_idx_type*, daspk_jac_ptr, daspk_psol_ptr); }
--- a/liboctave/DASRT.cc +++ b/liboctave/DASRT.cc @@ -34,24 +34,34 @@ #include "lo-math.h" #include "quit.h" -typedef octave_idx_type (*dasrt_fcn_ptr) (const double&, const double*, const double*, - double*, octave_idx_type&, double*, octave_idx_type*); +typedef octave_idx_type (*dasrt_fcn_ptr) (const double&, const double*, + const double*, double*, + octave_idx_type&, double*, + octave_idx_type*); -typedef octave_idx_type (*dasrt_jac_ptr) (const double&, const double*, const double*, - double*, const double&, double*, octave_idx_type*); +typedef octave_idx_type (*dasrt_jac_ptr) (const double&, const double*, + const double*, double*, + const double&, double*, + octave_idx_type*); -typedef octave_idx_type (*dasrt_constr_ptr) (const octave_idx_type&, const double&, const double*, - const octave_idx_type&, double*, double*, octave_idx_type*); +typedef octave_idx_type (*dasrt_constr_ptr) (const octave_idx_type&, + const double&, const double*, + const octave_idx_type&, + double*, double*, + octave_idx_type*); extern "C" { F77_RET_T - F77_FUNC (ddasrt, DDASRT) (dasrt_fcn_ptr, const octave_idx_type&, double&, - double*, double*, const double&, octave_idx_type*, - const double*, const double*, octave_idx_type&, double*, - const octave_idx_type&, octave_idx_type*, const octave_idx_type&, double*, - octave_idx_type*, dasrt_jac_ptr, dasrt_constr_ptr, - const octave_idx_type&, octave_idx_type*); + F77_FUNC (ddasrt, DDASRT) (dasrt_fcn_ptr, const octave_idx_type&, + double&, double*, double*, const double&, + octave_idx_type*, const double*, + const double*, octave_idx_type&, double*, + const octave_idx_type&, octave_idx_type*, + const octave_idx_type&, double*, + octave_idx_type*, dasrt_jac_ptr, + dasrt_constr_ptr, const octave_idx_type&, + octave_idx_type*); } static DAEFunc::DAERHSFunc user_fsub;
--- a/liboctave/DASSL.cc +++ b/liboctave/DASSL.cc @@ -35,19 +35,25 @@ #include "lo-math.h" #include "quit.h" -typedef octave_idx_type (*dassl_fcn_ptr) (const double&, const double*, const double*, - double*, octave_idx_type&, double*, octave_idx_type*); +typedef octave_idx_type (*dassl_fcn_ptr) (const double&, const double*, + const double*, double*, + octave_idx_type&, double*, + octave_idx_type*); -typedef octave_idx_type (*dassl_jac_ptr) (const double&, const double*, const double*, - double*, const double&, double*, octave_idx_type*); +typedef octave_idx_type (*dassl_jac_ptr) (const double&, const double*, + const double*, double*, + const double&, double*, + octave_idx_type*); extern "C" { F77_RET_T - F77_FUNC (ddassl, DDASSL) (dassl_fcn_ptr, const octave_idx_type&, double&, - double*, double*, double&, const octave_idx_type*, - const double*, const double*, octave_idx_type&, - double*, const octave_idx_type&, octave_idx_type*, const octave_idx_type&, + F77_FUNC (ddassl, DDASSL) (dassl_fcn_ptr, const octave_idx_type&, + double&, double*, double*, double&, + const octave_idx_type*, const double*, + const double*, octave_idx_type&, + double*, const octave_idx_type&, + octave_idx_type*, const octave_idx_type&, const double*, const octave_idx_type*, dassl_jac_ptr); }
--- a/liboctave/EIG.cc +++ b/liboctave/EIG.cc @@ -35,52 +35,58 @@ F77_RET_T F77_FUNC (dgeev, DGEEV) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, double*, const octave_idx_type&, double*, - double*, double*, const octave_idx_type&, double*, - const octave_idx_type&, double*, const octave_idx_type&, octave_idx_type& + const octave_idx_type&, double*, + const octave_idx_type&, double*, double*, + double*, const octave_idx_type&, double*, + const octave_idx_type&, double*, + const octave_idx_type&, octave_idx_type& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (zgeev, ZGEEV) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, Complex*, const octave_idx_type&, Complex*, - Complex*, const octave_idx_type&, Complex*, const octave_idx_type&, - Complex*, const octave_idx_type&, double*, octave_idx_type& + const octave_idx_type&, Complex*, + const octave_idx_type&, Complex*, + Complex*, const octave_idx_type&, Complex*, + const octave_idx_type&, Complex*, + const octave_idx_type&, double*, octave_idx_type& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (dsyev, DSYEV) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, double*, const octave_idx_type&, double*, - double*, const octave_idx_type&, octave_idx_type& + const octave_idx_type&, double*, + const octave_idx_type&, double*, double*, + const octave_idx_type&, octave_idx_type& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (zheev, ZHEEV) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, Complex*, const octave_idx_type&, double*, - Complex*, const octave_idx_type&, double*, octave_idx_type& + const octave_idx_type&, Complex*, + const octave_idx_type&, double*, + Complex*, const octave_idx_type&, double*, + octave_idx_type& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (dpotrf, DPOTRF) (F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, - double*, const octave_idx_type&, - octave_idx_type& - F77_CHAR_ARG_LEN_DECL - F77_CHAR_ARG_LEN_DECL); + const octave_idx_type&, double*, + const octave_idx_type&, octave_idx_type& + F77_CHAR_ARG_LEN_DECL + F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (zpotrf, ZPOTRF) (F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, - Complex*, const octave_idx_type&, - octave_idx_type& - F77_CHAR_ARG_LEN_DECL - F77_CHAR_ARG_LEN_DECL); + const octave_idx_type&, + Complex*, const octave_idx_type&, + octave_idx_type& + F77_CHAR_ARG_LEN_DECL + F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (dggev, DGGEV) (F77_CONST_CHAR_ARG_DECL, @@ -88,19 +94,20 @@ const octave_idx_type&, double*, const octave_idx_type&, double*, const octave_idx_type&, - double*, double*, double *, - double*, const octave_idx_type&, double*, const octave_idx_type&, - double*, const octave_idx_type&, octave_idx_type& + double*, double*, double *, double*, + const octave_idx_type&, double*, + const octave_idx_type&, double*, + const octave_idx_type&, octave_idx_type& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (dsygv, DSYGV) (const octave_idx_type&, F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, - double*, const octave_idx_type&, - double*, const octave_idx_type&, - double*, double*, const octave_idx_type&, octave_idx_type& + const octave_idx_type&, double*, + const octave_idx_type&, double*, + const octave_idx_type&, double*, double*, + const octave_idx_type&, octave_idx_type& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); @@ -110,9 +117,10 @@ const octave_idx_type&, Complex*, const octave_idx_type&, Complex*, const octave_idx_type&, - Complex*, Complex*, - Complex*, const octave_idx_type&, Complex*, const octave_idx_type&, - Complex*, const octave_idx_type&, double*, octave_idx_type& + Complex*, Complex*, Complex*, + const octave_idx_type&, Complex*, + const octave_idx_type&, Complex*, + const octave_idx_type&, double*, octave_idx_type& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); @@ -120,11 +128,10 @@ F77_FUNC (zhegv, ZHEGV) (const octave_idx_type&, F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, - Complex*, const octave_idx_type&, - Complex*, const octave_idx_type&, - double*, Complex*, const octave_idx_type&, double*, - octave_idx_type& + const octave_idx_type&, Complex*, + const octave_idx_type&, Complex*, + const octave_idx_type&, double*, Complex*, + const octave_idx_type&, double*, octave_idx_type& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); }
--- a/liboctave/LSODE.cc +++ b/liboctave/LSODE.cc @@ -35,20 +35,26 @@ #include "lo-math.h" #include "quit.h" -typedef octave_idx_type (*lsode_fcn_ptr) (const octave_idx_type&, const double&, double*, - double*, octave_idx_type&); +typedef octave_idx_type (*lsode_fcn_ptr) (const octave_idx_type&, + const double&, double*, + double*, octave_idx_type&); -typedef octave_idx_type (*lsode_jac_ptr) (const octave_idx_type&, const double&, double*, - const octave_idx_type&, const octave_idx_type&, double*, const - octave_idx_type&); +typedef octave_idx_type (*lsode_jac_ptr) (const octave_idx_type&, + const double&, double*, + const octave_idx_type&, + const octave_idx_type&, + double*, const octave_idx_type&); extern "C" { F77_RET_T - F77_FUNC (dlsode, DLSODE) (lsode_fcn_ptr, octave_idx_type&, double*, double&, - double&, octave_idx_type&, double&, const double*, octave_idx_type&, - octave_idx_type&, octave_idx_type&, double*, octave_idx_type&, octave_idx_type*, octave_idx_type&, - lsode_jac_ptr, octave_idx_type&); + F77_FUNC (dlsode, DLSODE) (lsode_fcn_ptr, octave_idx_type&, double*, + double&, double&, octave_idx_type&, double&, + const double*, octave_idx_type&, + octave_idx_type&, octave_idx_type&, + double*, octave_idx_type&, octave_idx_type*, + octave_idx_type&, lsode_jac_ptr, + octave_idx_type&); } static ODEFunc::ODERHSFunc user_fun;
--- a/liboctave/dbleCHOL.cc +++ b/liboctave/dbleCHOL.cc @@ -58,26 +58,28 @@ #ifdef HAVE_QRUPDATE F77_RET_T - F77_FUNC (dch1up, DCH1UP) (const octave_idx_type&, double*, const octave_idx_type&, - double*, double*); + F77_FUNC (dch1up, DCH1UP) (const octave_idx_type&, double*, + const octave_idx_type&, double*, double*); F77_RET_T - F77_FUNC (dch1dn, DCH1DN) (const octave_idx_type&, double*, const octave_idx_type&, + F77_FUNC (dch1dn, DCH1DN) (const octave_idx_type&, double*, + const octave_idx_type&, double*, double*, + octave_idx_type&); + + F77_RET_T + F77_FUNC (dchinx, DCHINX) (const octave_idx_type&, double*, + const octave_idx_type&, const octave_idx_type&, double*, double*, octave_idx_type&); F77_RET_T - F77_FUNC (dchinx, DCHINX) (const octave_idx_type&, double*, const octave_idx_type&, - const octave_idx_type&, double*, double*, - octave_idx_type&); + F77_FUNC (dchdex, DCHDEX) (const octave_idx_type&, double*, + const octave_idx_type&, const octave_idx_type&, + double*); F77_RET_T - F77_FUNC (dchdex, DCHDEX) (const octave_idx_type&, double*, const octave_idx_type&, + F77_FUNC (dchshx, DCHSHX) (const octave_idx_type&, double*, + const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, double*); - - F77_RET_T - F77_FUNC (dchshx, DCHSHX) (const octave_idx_type&, double*, const octave_idx_type&, - const octave_idx_type&, const octave_idx_type&, - double*); #endif }
--- a/liboctave/dbleGEPBAL.cc +++ b/liboctave/dbleGEPBAL.cc @@ -36,9 +36,11 @@ extern "C" { F77_RET_T - F77_FUNC (dggbal, DGGBAL) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type& N, - double* A, const octave_idx_type& LDA, double* B, - const octave_idx_type& LDB, octave_idx_type& ILO, octave_idx_type& IHI, + F77_FUNC (dggbal, DGGBAL) (F77_CONST_CHAR_ARG_DECL, + const octave_idx_type& N, + double* A, const octave_idx_type& LDA, + double* B, const octave_idx_type& LDB, + octave_idx_type& ILO, octave_idx_type& IHI, double* LSCALE, double* RSCALE, double* WORK, octave_idx_type& INFO F77_CHAR_ARG_LEN_DECL); @@ -46,9 +48,11 @@ F77_RET_T F77_FUNC (dggbak, DGGBAK) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, - const octave_idx_type& N, const octave_idx_type& ILO, - const octave_idx_type& IHI, const double* LSCALE, - const double* RSCALE, octave_idx_type& M, double* V, + const octave_idx_type& N, + const octave_idx_type& ILO, + const octave_idx_type& IHI, + const double* LSCALE, const double* RSCALE, + octave_idx_type& M, double* V, const octave_idx_type& LDV, octave_idx_type& INFO F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL);
--- a/liboctave/dbleHESS.cc +++ b/liboctave/dbleHESS.cc @@ -33,25 +33,30 @@ { F77_RET_T F77_FUNC (dgebal, DGEBAL) (F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, double*, const octave_idx_type&, octave_idx_type&, + const octave_idx_type&, double*, + const octave_idx_type&, octave_idx_type&, octave_idx_type&, double*, octave_idx_type& F77_CHAR_ARG_LEN_DECL); F77_RET_T - F77_FUNC (dgehrd, DGEHRD) (const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, - double*, const octave_idx_type&, double*, double*, + F77_FUNC (dgehrd, DGEHRD) (const octave_idx_type&, const octave_idx_type&, + const octave_idx_type&, double*, + const octave_idx_type&, double*, double*, const octave_idx_type&, octave_idx_type&); F77_RET_T - F77_FUNC (dorghr, DORGHR) (const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, - double*, const octave_idx_type&, double*, double*, + F77_FUNC (dorghr, DORGHR) (const octave_idx_type&, const octave_idx_type&, + const octave_idx_type&, double*, + const octave_idx_type&, double*, double*, const octave_idx_type&, octave_idx_type&); F77_RET_T F77_FUNC (dgebak, DGEBAK) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, double*, - const octave_idx_type&, double*, const octave_idx_type&, octave_idx_type& + const octave_idx_type&, const octave_idx_type&, + const octave_idx_type&, double*, + const octave_idx_type&, double*, + const octave_idx_type&, octave_idx_type& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); }
--- a/liboctave/dbleSCHUR.cc +++ b/liboctave/dbleSCHUR.cc @@ -38,10 +38,12 @@ F77_CONST_CHAR_ARG_DECL, SCHUR::select_function, F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, double*, const octave_idx_type&, octave_idx_type&, + const octave_idx_type&, double*, + const octave_idx_type&, octave_idx_type&, double*, double*, double*, const octave_idx_type&, double&, double&, double*, const octave_idx_type&, - octave_idx_type*, const octave_idx_type&, octave_idx_type*, octave_idx_type& + octave_idx_type*, const octave_idx_type&, + octave_idx_type*, octave_idx_type& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL);
--- a/liboctave/dbleSVD.cc +++ b/liboctave/dbleSVD.cc @@ -36,19 +36,22 @@ F77_RET_T F77_FUNC (dgesvd, DGESVD) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, const octave_idx_type&, double*, - const octave_idx_type&, double*, double*, - const octave_idx_type&, double*, const octave_idx_type&, - double*, const octave_idx_type&, octave_idx_type& + const octave_idx_type&, const octave_idx_type&, + double*, const octave_idx_type&, double*, + double*, const octave_idx_type&, double*, + const octave_idx_type&, double*, + const octave_idx_type&, octave_idx_type& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (dgesdd, DGESDD) (F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, const octave_idx_type&, double*, - const octave_idx_type&, double*, double*, - const octave_idx_type&, double*, const octave_idx_type&, - double*, const octave_idx_type&, octave_idx_type *, octave_idx_type& + const octave_idx_type&, const octave_idx_type&, + double*, const octave_idx_type&, double*, + double*, const octave_idx_type&, double*, + const octave_idx_type&, double*, + const octave_idx_type&, octave_idx_type *, + octave_idx_type& F77_CHAR_ARG_LEN_DECL); }
--- a/liboctave/fCmplxCHOL.cc +++ b/liboctave/fCmplxCHOL.cc @@ -43,41 +43,43 @@ { F77_RET_T F77_FUNC (cpotrf, CPOTRF) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, - FloatComplex*, const octave_idx_type&, octave_idx_type& - F77_CHAR_ARG_LEN_DECL); + FloatComplex*, const octave_idx_type&, + octave_idx_type& F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (cpotri, CPOTRI) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, - FloatComplex*, const octave_idx_type&, octave_idx_type& - F77_CHAR_ARG_LEN_DECL); + FloatComplex*, const octave_idx_type&, + octave_idx_type& F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (cpocon, CPOCON) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, - FloatComplex*, const octave_idx_type&, const float&, - float&, FloatComplex*, float*, + FloatComplex*, const octave_idx_type&, + const float&, float&, FloatComplex*, float*, octave_idx_type& F77_CHAR_ARG_LEN_DECL); #ifdef HAVE_QRUPDATE F77_RET_T - F77_FUNC (cch1up, CCH1UP) (const octave_idx_type&, FloatComplex*, const octave_idx_type&, - FloatComplex*, float*); + F77_FUNC (cch1up, CCH1UP) (const octave_idx_type&, FloatComplex*, + const octave_idx_type&, FloatComplex*, float*); F77_RET_T - F77_FUNC (cch1dn, CCH1DN) (const octave_idx_type&, FloatComplex*, const octave_idx_type&, + F77_FUNC (cch1dn, CCH1DN) (const octave_idx_type&, FloatComplex*, + const octave_idx_type&, FloatComplex*, + float*, octave_idx_type&); + + F77_RET_T + F77_FUNC (cchinx, CCHINX) (const octave_idx_type&, FloatComplex*, + const octave_idx_type&, const octave_idx_type&, FloatComplex*, float*, octave_idx_type&); F77_RET_T - F77_FUNC (cchinx, CCHINX) (const octave_idx_type&, FloatComplex*, const octave_idx_type&, - const octave_idx_type&, FloatComplex*, float*, - octave_idx_type&); + F77_FUNC (cchdex, CCHDEX) (const octave_idx_type&, FloatComplex*, + const octave_idx_type&, const octave_idx_type&, + float*); F77_RET_T - F77_FUNC (cchdex, CCHDEX) (const octave_idx_type&, FloatComplex*, const octave_idx_type&, - const octave_idx_type&, float*); - - F77_RET_T - F77_FUNC (cchshx, CCHSHX) (const octave_idx_type&, FloatComplex*, const octave_idx_type&, - const octave_idx_type&, const octave_idx_type&, - FloatComplex*, float*); + F77_FUNC (cchshx, CCHSHX) (const octave_idx_type&, FloatComplex*, + const octave_idx_type&, const octave_idx_type&, + const octave_idx_type&, FloatComplex*, float*); #endif }
--- a/liboctave/fCmplxGEPBAL.cc +++ b/liboctave/fCmplxGEPBAL.cc @@ -36,9 +36,11 @@ extern "C" { F77_RET_T - F77_FUNC (cggbal, CGGBAL) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type& N, - FloatComplex* A, const octave_idx_type& LDA, FloatComplex* B, - const octave_idx_type& LDB, octave_idx_type& ILO, octave_idx_type& IHI, + F77_FUNC (cggbal, CGGBAL) (F77_CONST_CHAR_ARG_DECL, + const octave_idx_type& N, + FloatComplex* A, const octave_idx_type& LDA, + FloatComplex* B, const octave_idx_type& LDB, + octave_idx_type& ILO, octave_idx_type& IHI, float* LSCALE, float* RSCALE, float* WORK, octave_idx_type& INFO F77_CHAR_ARG_LEN_DECL); @@ -46,7 +48,8 @@ F77_RET_T F77_FUNC (sggbak, SGGBAK) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, - const octave_idx_type& N, const octave_idx_type& ILO, + const octave_idx_type& N, + const octave_idx_type& ILO, const octave_idx_type& IHI, const float* LSCALE, const float* RSCALE, octave_idx_type& M, float* V, const octave_idx_type& LDV, octave_idx_type& INFO
--- a/liboctave/fCmplxHESS.cc +++ b/liboctave/fCmplxHESS.cc @@ -33,25 +33,32 @@ { F77_RET_T F77_FUNC (cgebal, CGEBAL) (F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, FloatComplex*, const octave_idx_type&, - octave_idx_type&, octave_idx_type&, float*, octave_idx_type& + const octave_idx_type&, FloatComplex*, + const octave_idx_type&, octave_idx_type&, + octave_idx_type&, float*, octave_idx_type& F77_CHAR_ARG_LEN_DECL); F77_RET_T - F77_FUNC (cgehrd, CGEHRD) (const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, - FloatComplex*, const octave_idx_type&, FloatComplex*, - FloatComplex*, const octave_idx_type&, octave_idx_type&); + F77_FUNC (cgehrd, CGEHRD) (const octave_idx_type&, const octave_idx_type&, + const octave_idx_type&, FloatComplex*, + const octave_idx_type&, FloatComplex*, + FloatComplex*, const octave_idx_type&, + octave_idx_type&); F77_RET_T - F77_FUNC (cunghr, CUNGHR) (const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, - FloatComplex*, const octave_idx_type&, FloatComplex*, - FloatComplex*, const octave_idx_type&, octave_idx_type&); + F77_FUNC (cunghr, CUNGHR) (const octave_idx_type&, const octave_idx_type&, + const octave_idx_type&, FloatComplex*, + const octave_idx_type&, FloatComplex*, + FloatComplex*, const octave_idx_type&, + octave_idx_type&); F77_RET_T F77_FUNC (cgebak, CGEBAK) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, float*, - const octave_idx_type&, FloatComplex*, const octave_idx_type&, octave_idx_type& + const octave_idx_type&, const octave_idx_type&, + const octave_idx_type&, float*, + const octave_idx_type&, FloatComplex*, + const octave_idx_type&, octave_idx_type& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); }
--- a/liboctave/fCmplxSCHUR.cc +++ b/liboctave/fCmplxSCHUR.cc @@ -37,16 +37,18 @@ F77_CONST_CHAR_ARG_DECL, FloatComplexSCHUR::select_function, F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, FloatComplex*, const octave_idx_type&, octave_idx_type&, - FloatComplex*, FloatComplex*, const octave_idx_type&, float&, - float&, FloatComplex*, const octave_idx_type&, float*, octave_idx_type*, - octave_idx_type& + const octave_idx_type&, FloatComplex*, + const octave_idx_type&, octave_idx_type&, + FloatComplex*, FloatComplex*, + const octave_idx_type&, float&, float&, + FloatComplex*, const octave_idx_type&, + float*, octave_idx_type*, octave_idx_type& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); F77_RET_T - F77_FUNC (crsf2csf, CRSF2CSF) (const octave_idx_type&, - FloatComplex *, FloatComplex *, float *, float *); + F77_FUNC (crsf2csf, CRSF2CSF) (const octave_idx_type&, FloatComplex *, + FloatComplex *, float *, float *); } static octave_idx_type
--- a/liboctave/fCmplxSVD.cc +++ b/liboctave/fCmplxSVD.cc @@ -35,18 +35,22 @@ F77_RET_T F77_FUNC (cgesvd, CGESVD) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, const octave_idx_type&, FloatComplex*, - const octave_idx_type&, float*, FloatComplex*, const octave_idx_type&, - FloatComplex*, const octave_idx_type&, FloatComplex*, const octave_idx_type&, + const octave_idx_type&, const octave_idx_type&, + FloatComplex*, const octave_idx_type&, float*, + FloatComplex*, const octave_idx_type&, + FloatComplex*, const octave_idx_type&, + FloatComplex*, const octave_idx_type&, float*, octave_idx_type& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (cgesdd, CGESDD) (F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, const octave_idx_type&, FloatComplex*, - const octave_idx_type&, float*, FloatComplex*, const octave_idx_type&, - FloatComplex*, const octave_idx_type&, FloatComplex*, const octave_idx_type&, + const octave_idx_type&, const octave_idx_type&, + FloatComplex*, const octave_idx_type&, float*, + FloatComplex*, const octave_idx_type&, + FloatComplex*, const octave_idx_type&, + FloatComplex*, const octave_idx_type&, float*, octave_idx_type *, octave_idx_type& F77_CHAR_ARG_LEN_DECL); }
--- a/liboctave/fEIG.cc +++ b/liboctave/fEIG.cc @@ -35,84 +35,89 @@ F77_RET_T F77_FUNC (sgeev, SGEEV) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, float*, const octave_idx_type&, float*, - float*, float*, const octave_idx_type&, float*, - const octave_idx_type&, float*, const octave_idx_type&, octave_idx_type& + const octave_idx_type&, float*, + const octave_idx_type&, float*, float*, float*, + const octave_idx_type&, float*, + const octave_idx_type&, float*, + const octave_idx_type&, octave_idx_type& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (cgeev, CGEEV) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, FloatComplex*, const octave_idx_type&, FloatComplex*, - FloatComplex*, const octave_idx_type&, FloatComplex*, const octave_idx_type&, - FloatComplex*, const octave_idx_type&, float*, octave_idx_type& + const octave_idx_type&, FloatComplex*, + const octave_idx_type&, FloatComplex*, FloatComplex*, + const octave_idx_type&, FloatComplex*, + const octave_idx_type&, FloatComplex*, + const octave_idx_type&, float*, octave_idx_type& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (ssyev, SSYEV) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, float*, const octave_idx_type&, float*, - float*, const octave_idx_type&, octave_idx_type& + const octave_idx_type&, float*, + const octave_idx_type&, float*, float*, + const octave_idx_type&, octave_idx_type& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (cheev, CHEEV) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, FloatComplex*, const octave_idx_type&, float*, - FloatComplex*, const octave_idx_type&, float*, octave_idx_type& + const octave_idx_type&, FloatComplex*, + const octave_idx_type&, float*, FloatComplex*, + const octave_idx_type&, float*, octave_idx_type& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (spotrf, SPOTRF) (F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, - float*, const octave_idx_type&, - octave_idx_type& - F77_CHAR_ARG_LEN_DECL - F77_CHAR_ARG_LEN_DECL); + const octave_idx_type&, float*, + const octave_idx_type&, octave_idx_type& + F77_CHAR_ARG_LEN_DECL + F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (cpotrf, CPOTRF) (F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, - FloatComplex*, const octave_idx_type&, - octave_idx_type& - F77_CHAR_ARG_LEN_DECL - F77_CHAR_ARG_LEN_DECL); + const octave_idx_type&, FloatComplex*, + const octave_idx_type&, octave_idx_type& + F77_CHAR_ARG_LEN_DECL + F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (sggev, SGGEV) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, - float*, const octave_idx_type&, - float*, const octave_idx_type&, - float*, float*, float*, - float*, const octave_idx_type&, float*, const octave_idx_type&, - float*, const octave_idx_type&, octave_idx_type& + const octave_idx_type&, float*, + const octave_idx_type&, float*, + const octave_idx_type&, float*, float*, float*, + float*, const octave_idx_type&, float*, + const octave_idx_type&, float*, + const octave_idx_type&, octave_idx_type& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (ssygv, SSYGV) (const octave_idx_type&, F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, - float*, const octave_idx_type&, - float*, const octave_idx_type&, - float*, float*, const octave_idx_type&, octave_idx_type& + const octave_idx_type&, float*, + const octave_idx_type&, float*, + const octave_idx_type&, float*, float*, + const octave_idx_type&, octave_idx_type& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (cggev, CGGEV) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, - FloatComplex*, const octave_idx_type&, - FloatComplex*, const octave_idx_type&, + const octave_idx_type&, FloatComplex*, + const octave_idx_type&, FloatComplex*, + const octave_idx_type&, FloatComplex*, FloatComplex*, FloatComplex*, - FloatComplex*, const octave_idx_type&, FloatComplex*, const octave_idx_type&, - FloatComplex*, const octave_idx_type&, float*, octave_idx_type& + const octave_idx_type&, FloatComplex*, + const octave_idx_type&, FloatComplex*, + const octave_idx_type&, float*, octave_idx_type& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); @@ -120,11 +125,10 @@ F77_FUNC (chegv, CHEGV) (const octave_idx_type&, F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, - FloatComplex*, const octave_idx_type&, - FloatComplex*, const octave_idx_type&, - float*, FloatComplex*, const octave_idx_type&, float*, - octave_idx_type& + const octave_idx_type&, FloatComplex*, + const octave_idx_type&, FloatComplex*, + const octave_idx_type&, float*, FloatComplex*, + const octave_idx_type&, float*, octave_idx_type& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); }
--- a/liboctave/floatCHOL.cc +++ b/liboctave/floatCHOL.cc @@ -58,26 +58,28 @@ #ifdef HAVE_QRUPDATE F77_RET_T - F77_FUNC (sch1up, SCH1UP) (const octave_idx_type&, float*, const octave_idx_type&, - float*, float*); + F77_FUNC (sch1up, SCH1UP) (const octave_idx_type&, float*, + const octave_idx_type&, float*, float*); F77_RET_T - F77_FUNC (sch1dn, SCH1DN) (const octave_idx_type&, float*, const octave_idx_type&, + F77_FUNC (sch1dn, SCH1DN) (const octave_idx_type&, float*, + const octave_idx_type&, float*, float*, + octave_idx_type&); + + F77_RET_T + F77_FUNC (schinx, SCHINX) (const octave_idx_type&, float*, + const octave_idx_type&, const octave_idx_type&, float*, float*, octave_idx_type&); F77_RET_T - F77_FUNC (schinx, SCHINX) (const octave_idx_type&, float*, const octave_idx_type&, - const octave_idx_type&, float*, float*, - octave_idx_type&); + F77_FUNC (schdex, SCHDEX) (const octave_idx_type&, float*, + const octave_idx_type&, const octave_idx_type&, + float*); F77_RET_T - F77_FUNC (schdex, SCHDEX) (const octave_idx_type&, float*, const octave_idx_type&, + F77_FUNC (schshx, SCHSHX) (const octave_idx_type&, float*, + const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, float*); - - F77_RET_T - F77_FUNC (schshx, SCHSHX) (const octave_idx_type&, float*, const octave_idx_type&, - const octave_idx_type&, const octave_idx_type&, - float*); #endif }
--- a/liboctave/floatGEPBAL.cc +++ b/liboctave/floatGEPBAL.cc @@ -36,9 +36,11 @@ extern "C" { F77_RET_T - F77_FUNC (sggbal, SGGBAL) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type& N, - float* A, const octave_idx_type& LDA, float* B, - const octave_idx_type& LDB, octave_idx_type& ILO, octave_idx_type& IHI, + F77_FUNC (sggbal, SGGBAL) (F77_CONST_CHAR_ARG_DECL, + const octave_idx_type& N, float* A, + const octave_idx_type& LDA, float* B, + const octave_idx_type& LDB, + octave_idx_type& ILO, octave_idx_type& IHI, float* LSCALE, float* RSCALE, float* WORK, octave_idx_type& INFO F77_CHAR_ARG_LEN_DECL); @@ -46,9 +48,11 @@ F77_RET_T F77_FUNC (sggbak, SGGBAK) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, - const octave_idx_type& N, const octave_idx_type& ILO, - const octave_idx_type& IHI, const float* LSCALE, - const float* RSCALE, octave_idx_type& M, float* V, + const octave_idx_type& N, + const octave_idx_type& ILO, + const octave_idx_type& IHI, + const float* LSCALE, const float* RSCALE, + octave_idx_type& M, float* V, const octave_idx_type& LDV, octave_idx_type& INFO F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL);
--- a/liboctave/floatHESS.cc +++ b/liboctave/floatHESS.cc @@ -33,25 +33,30 @@ { F77_RET_T F77_FUNC (sgebal, SGEBAL) (F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, float*, const octave_idx_type&, octave_idx_type&, + const octave_idx_type&, float*, + const octave_idx_type&, octave_idx_type&, octave_idx_type&, float*, octave_idx_type& F77_CHAR_ARG_LEN_DECL); F77_RET_T - F77_FUNC (sgehrd, SGEHRD) (const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, - float*, const octave_idx_type&, float*, float*, + F77_FUNC (sgehrd, SGEHRD) (const octave_idx_type&, const octave_idx_type&, + const octave_idx_type&, float*, + const octave_idx_type&, float*, float*, const octave_idx_type&, octave_idx_type&); F77_RET_T - F77_FUNC (sorghr, SORGHR) (const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, - float*, const octave_idx_type&, float*, float*, + F77_FUNC (sorghr, SORGHR) (const octave_idx_type&, const octave_idx_type&, + const octave_idx_type&, float*, + const octave_idx_type&, float*, float*, const octave_idx_type&, octave_idx_type&); F77_RET_T F77_FUNC (sgebak, SGEBAK) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, float*, - const octave_idx_type&, float*, const octave_idx_type&, octave_idx_type& + const octave_idx_type&, const octave_idx_type&, + const octave_idx_type&, float*, + const octave_idx_type&, float*, + const octave_idx_type&, octave_idx_type& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); }
--- a/liboctave/floatSCHUR.cc +++ b/liboctave/floatSCHUR.cc @@ -38,10 +38,12 @@ F77_CONST_CHAR_ARG_DECL, FloatSCHUR::select_function, F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, float*, const octave_idx_type&, octave_idx_type&, + const octave_idx_type&, float*, + const octave_idx_type&, octave_idx_type&, float*, float*, float*, const octave_idx_type&, float&, float&, float*, const octave_idx_type&, - octave_idx_type*, const octave_idx_type&, octave_idx_type*, octave_idx_type& + octave_idx_type*, const octave_idx_type&, + octave_idx_type*, octave_idx_type& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL);
--- a/liboctave/floatSVD.cc +++ b/liboctave/floatSVD.cc @@ -36,19 +36,22 @@ F77_RET_T F77_FUNC (sgesvd, SGESVD) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, const octave_idx_type&, float*, - const octave_idx_type&, float*, float*, - const octave_idx_type&, float*, const octave_idx_type&, - float*, const octave_idx_type&, octave_idx_type& + const octave_idx_type&, const octave_idx_type&, + float*, const octave_idx_type&, float*, + float*, const octave_idx_type&, float*, + const octave_idx_type&, float*, + const octave_idx_type&, octave_idx_type& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (sgesdd, SGESDD) (F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, const octave_idx_type&, float*, - const octave_idx_type&, float*, float*, - const octave_idx_type&, float*, const octave_idx_type&, - float*, const octave_idx_type&, octave_idx_type *, octave_idx_type& + const octave_idx_type&, const octave_idx_type&, + float*, const octave_idx_type&, float*, + float*, const octave_idx_type&, float*, + const octave_idx_type&, float*, + const octave_idx_type&, octave_idx_type *, + octave_idx_type& F77_CHAR_ARG_LEN_DECL); }