Mercurial > hg > octave-nkf
changeset 11518:141b3fb5cef7
style fixes
line wrap: on
line diff
--- a/liboctave/CColVector.cc +++ b/liboctave/CColVector.cc @@ -43,9 +43,11 @@ { F77_RET_T F77_FUNC (zgemv, ZGEMV) (F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, const octave_idx_type&, const Complex&, - const Complex*, const octave_idx_type&, const Complex*, - const octave_idx_type&, const Complex&, Complex*, const octave_idx_type& + const octave_idx_type&, const octave_idx_type&, + const Complex&, const Complex*, + const octave_idx_type&, const Complex*, + const octave_idx_type&, const Complex&, + Complex*, const octave_idx_type& F77_CHAR_ARG_LEN_DECL); }
--- a/liboctave/CMatrix.cc +++ b/liboctave/CMatrix.cc @@ -65,58 +65,69 @@ extern "C" { F77_RET_T - F77_FUNC (xilaenv, XILAENV) (const octave_idx_type&, F77_CONST_CHAR_ARG_DECL, + F77_FUNC (xilaenv, XILAENV) (const octave_idx_type&, + F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, octave_idx_type& - F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); + F77_CHAR_ARG_LEN_DECL + F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (zgebal, ZGEBAL) (F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, Complex*, const octave_idx_type&, 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 (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); F77_RET_T F77_FUNC (zgemm, ZGEMM) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, - const Complex&, const Complex*, const octave_idx_type&, - const Complex*, const octave_idx_type&, const Complex&, - Complex*, const octave_idx_type& + const octave_idx_type&, const octave_idx_type&, + const octave_idx_type&, const Complex&, + const Complex*, const octave_idx_type&, + const Complex*, const octave_idx_type&, + const Complex&, Complex*, const octave_idx_type& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (zgemv, ZGEMV) (F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, const octave_idx_type&, const Complex&, - const Complex*, const octave_idx_type&, const Complex*, - const octave_idx_type&, const Complex&, Complex*, const octave_idx_type& + const octave_idx_type&, const octave_idx_type&, + const Complex&, const Complex*, + const octave_idx_type&, const Complex*, + const octave_idx_type&, const Complex&, + Complex*, const octave_idx_type& F77_CHAR_ARG_LEN_DECL); F77_RET_T - F77_FUNC (xzdotu, XZDOTU) (const octave_idx_type&, const Complex*, const octave_idx_type&, - const Complex*, const octave_idx_type&, Complex&); + F77_FUNC (xzdotu, XZDOTU) (const octave_idx_type&, const Complex*, + const octave_idx_type&, const Complex*, + const octave_idx_type&, Complex&); F77_RET_T - F77_FUNC (xzdotc, XZDOTC) (const octave_idx_type&, const Complex*, const octave_idx_type&, - const Complex*, const octave_idx_type&, Complex&); + F77_FUNC (xzdotc, XZDOTC) (const octave_idx_type&, const Complex*, + const octave_idx_type&, const Complex*, + const octave_idx_type&, Complex&); F77_RET_T F77_FUNC (zsyrk, ZSYRK) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, const octave_idx_type&, - const Complex&, const Complex*, const octave_idx_type&, - const Complex&, Complex*, const octave_idx_type& + const Complex&, const Complex*, + const octave_idx_type&, const Complex&, + Complex*, const octave_idx_type& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); @@ -124,24 +135,30 @@ F77_FUNC (zherk, ZHERK) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, const octave_idx_type&, - const double&, const Complex*, const octave_idx_type&, - const double&, Complex*, const octave_idx_type& + const double&, const Complex*, + const octave_idx_type&, const double&, Complex*, + const octave_idx_type& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); F77_RET_T - F77_FUNC (zgetrf, ZGETRF) (const octave_idx_type&, const octave_idx_type&, Complex*, const octave_idx_type&, + F77_FUNC (zgetrf, ZGETRF) (const octave_idx_type&, const octave_idx_type&, + Complex*, const octave_idx_type&, octave_idx_type*, octave_idx_type&); F77_RET_T F77_FUNC (zgetrs, ZGETRS) (F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, const octave_idx_type&, Complex*, const octave_idx_type&, - const octave_idx_type*, Complex*, const octave_idx_type&, octave_idx_type& + const octave_idx_type&, const octave_idx_type&, + Complex*, const octave_idx_type&, + const octave_idx_type*, Complex*, + const octave_idx_type&, octave_idx_type& F77_CHAR_ARG_LEN_DECL); F77_RET_T - F77_FUNC (zgetri, ZGETRI) (const octave_idx_type&, Complex*, const octave_idx_type&, const octave_idx_type*, - Complex*, const octave_idx_type&, octave_idx_type&); + F77_FUNC (zgetri, ZGETRI) (const octave_idx_type&, Complex*, + const octave_idx_type&, const octave_idx_type*, + Complex*, const octave_idx_type&, + octave_idx_type&); F77_RET_T F77_FUNC (zgecon, ZGECON) (F77_CONST_CHAR_ARG_DECL, @@ -151,80 +168,93 @@ F77_CHAR_ARG_LEN_DECL); F77_RET_T - F77_FUNC (zgelsy, ZGELSY) (const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, - Complex*, const octave_idx_type&, Complex*, - const octave_idx_type&, octave_idx_type*, double&, octave_idx_type&, - Complex*, const octave_idx_type&, double*, octave_idx_type&); + F77_FUNC (zgelsy, ZGELSY) (const octave_idx_type&, const octave_idx_type&, + const octave_idx_type&, Complex*, + const octave_idx_type&, Complex*, + const octave_idx_type&, octave_idx_type*, + double&, octave_idx_type&, Complex*, + const octave_idx_type&, double*, + octave_idx_type&); F77_RET_T - F77_FUNC (zgelsd, ZGELSD) (const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, - Complex*, const octave_idx_type&, Complex*, - const octave_idx_type&, double*, double&, octave_idx_type&, - Complex*, const octave_idx_type&, double*, + F77_FUNC (zgelsd, ZGELSD) (const octave_idx_type&, const octave_idx_type&, + const octave_idx_type&, Complex*, + const octave_idx_type&, Complex*, + const octave_idx_type&, double*, double&, + octave_idx_type&, Complex*, + const octave_idx_type&, double*, octave_idx_type*, octave_idx_type&); 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_RET_T - F77_FUNC (zpocon, ZPOCON) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, - Complex*, const octave_idx_type&, const double&, - double&, Complex*, double*, - octave_idx_type& F77_CHAR_ARG_LEN_DECL); - - F77_RET_T - F77_FUNC (zpotrs, ZPOTRS) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, - const octave_idx_type&, const Complex*, - const octave_idx_type&, Complex*, + 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_RET_T - F77_FUNC (ztrtri, ZTRTRI) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, + F77_FUNC (zpocon, ZPOCON) (F77_CONST_CHAR_ARG_DECL, + const octave_idx_type&, Complex*, + const octave_idx_type&, const double&, + double&, Complex*, double*, octave_idx_type& + F77_CHAR_ARG_LEN_DECL); + + F77_RET_T + F77_FUNC (zpotrs, ZPOTRS) (F77_CONST_CHAR_ARG_DECL, + const octave_idx_type&, const octave_idx_type&, + const Complex*, const octave_idx_type&, Complex*, + const octave_idx_type&, octave_idx_type& + F77_CHAR_ARG_LEN_DECL); + + F77_RET_T + F77_FUNC (ztrtri, ZTRTRI) (F77_CONST_CHAR_ARG_DECL, + F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, const Complex*, const octave_idx_type&, octave_idx_type& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); F77_RET_T - F77_FUNC (ztrcon, ZTRCON) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, - F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, - const Complex*, const octave_idx_type&, double&, + F77_FUNC (ztrcon, ZTRCON) (F77_CONST_CHAR_ARG_DECL, + F77_CONST_CHAR_ARG_DECL, + F77_CONST_CHAR_ARG_DECL, + const octave_idx_type&, const Complex*, + const octave_idx_type&, double&, Complex*, double*, octave_idx_type& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); F77_RET_T - F77_FUNC (ztrtrs, ZTRTRS) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, - F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, - const octave_idx_type&, const Complex*, - const octave_idx_type&, Complex*, + F77_FUNC (ztrtrs, ZTRTRS) (F77_CONST_CHAR_ARG_DECL, + F77_CONST_CHAR_ARG_DECL, + F77_CONST_CHAR_ARG_DECL, + const octave_idx_type&, const octave_idx_type&, + const Complex*, const octave_idx_type&, Complex*, const 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 (zlartg, ZLARTG) (const Complex&, const Complex&, - double&, Complex&, Complex&); + F77_FUNC (zlartg, ZLARTG) (const Complex&, const Complex&, double&, + Complex&, Complex&); F77_RET_T F77_FUNC (ztrsyl, ZTRSYL) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, - const Complex*, const octave_idx_type&, - const Complex*, const octave_idx_type&, - const Complex*, const octave_idx_type&, double&, octave_idx_type& + const octave_idx_type&, const octave_idx_type&, + const octave_idx_type&, const Complex*, + const octave_idx_type&, const Complex*, + const octave_idx_type&, const Complex*, + const octave_idx_type&, double&, octave_idx_type& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (xzlange, XZLANGE) (F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, const octave_idx_type&, const Complex*, - const octave_idx_type&, double*, double& + const octave_idx_type&, const octave_idx_type&, + const Complex*, const octave_idx_type&, + double*, double& F77_CHAR_ARG_LEN_DECL); }
--- a/liboctave/CRowVector.cc +++ b/liboctave/CRowVector.cc @@ -42,14 +42,17 @@ { F77_RET_T F77_FUNC (zgemv, ZGEMV) (F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, const octave_idx_type&, const Complex&, - const Complex*, const octave_idx_type&, const Complex*, - const octave_idx_type&, const Complex&, Complex*, const octave_idx_type& + const octave_idx_type&, const octave_idx_type&, + const Complex&, const Complex*, + const octave_idx_type&, const Complex*, + const octave_idx_type&, const Complex&, Complex*, + const octave_idx_type& F77_CHAR_ARG_LEN_DECL); F77_RET_T - F77_FUNC (xzdotu, XZDOTU) (const octave_idx_type&, const Complex*, const octave_idx_type&, - const Complex*, const octave_idx_type&, Complex&); + F77_FUNC (xzdotu, XZDOTU) (const octave_idx_type&, const Complex*, + const octave_idx_type&, const Complex*, + const octave_idx_type&, Complex&); } // Complex Row Vector class
--- a/liboctave/CSparse.cc +++ b/liboctave/CSparse.cc @@ -67,58 +67,73 @@ extern "C" { F77_RET_T - F77_FUNC (zgbtrf, ZGBTRF) (const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, - const octave_idx_type&, Complex*, const octave_idx_type&, octave_idx_type*, octave_idx_type&); + F77_FUNC (zgbtrf, ZGBTRF) (const octave_idx_type&, const octave_idx_type&, + const octave_idx_type&, const octave_idx_type&, + Complex*, const octave_idx_type&, + octave_idx_type*, octave_idx_type&); F77_RET_T - F77_FUNC (zgbtrs, ZGBTRS) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, - const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, + F77_FUNC (zgbtrs, ZGBTRS) (F77_CONST_CHAR_ARG_DECL, + const octave_idx_type&, const octave_idx_type&, + const octave_idx_type&, const octave_idx_type&, const Complex*, const octave_idx_type&, - const octave_idx_type*, Complex*, const octave_idx_type&, octave_idx_type& + const octave_idx_type*, Complex*, + const octave_idx_type&, octave_idx_type& F77_CHAR_ARG_LEN_DECL); F77_RET_T - F77_FUNC (zgbcon, ZGBCON) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, - const octave_idx_type&, const octave_idx_type&, Complex*, - const octave_idx_type&, const octave_idx_type*, const double&, + F77_FUNC (zgbcon, ZGBCON) (F77_CONST_CHAR_ARG_DECL, + const octave_idx_type&, const octave_idx_type&, + const octave_idx_type&, Complex*, + const octave_idx_type&, const octave_idx_type*, + const double&, double&, Complex*, double*, + octave_idx_type& + F77_CHAR_ARG_LEN_DECL); + + F77_RET_T + F77_FUNC (zpbtrf, ZPBTRF) (F77_CONST_CHAR_ARG_DECL, + const octave_idx_type&, const octave_idx_type&, + Complex*, const octave_idx_type&, octave_idx_type& + F77_CHAR_ARG_LEN_DECL); + + F77_RET_T + F77_FUNC (zpbtrs, ZPBTRS) (F77_CONST_CHAR_ARG_DECL, + const octave_idx_type&, const octave_idx_type&, + const octave_idx_type&, Complex*, + const octave_idx_type&, Complex*, + const octave_idx_type&, octave_idx_type& + F77_CHAR_ARG_LEN_DECL); + + F77_RET_T + F77_FUNC (zpbcon, ZPBCON) (F77_CONST_CHAR_ARG_DECL, + const octave_idx_type&, const octave_idx_type&, + Complex*, const octave_idx_type&, const double&, double&, Complex*, double*, octave_idx_type& F77_CHAR_ARG_LEN_DECL); F77_RET_T - F77_FUNC (zpbtrf, ZPBTRF) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, - const octave_idx_type&, Complex*, const octave_idx_type&, octave_idx_type& - F77_CHAR_ARG_LEN_DECL); + F77_FUNC (zgttrf, ZGTTRF) (const octave_idx_type&, Complex*, Complex*, + Complex*, Complex*, octave_idx_type*, + octave_idx_type&); F77_RET_T - F77_FUNC (zpbtrs, ZPBTRS) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, - const octave_idx_type&, const octave_idx_type&, Complex*, const octave_idx_type&, - Complex*, const octave_idx_type&, octave_idx_type& - F77_CHAR_ARG_LEN_DECL); - - F77_RET_T - F77_FUNC (zpbcon, ZPBCON) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, - const octave_idx_type&, Complex*, const octave_idx_type&, - const double&, double&, Complex*, double*, octave_idx_type& + F77_FUNC (zgttrs, ZGTTRS) (F77_CONST_CHAR_ARG_DECL, + const octave_idx_type&, const octave_idx_type&, + const Complex*, const Complex*, const Complex*, + const Complex*, const octave_idx_type*, + Complex *, const octave_idx_type&, + octave_idx_type& F77_CHAR_ARG_LEN_DECL); F77_RET_T - F77_FUNC (zgttrf, ZGTTRF) (const octave_idx_type&, Complex*, Complex*, Complex*, - Complex*, octave_idx_type*, octave_idx_type&); + F77_FUNC (zptsv, ZPTSV) (const octave_idx_type&, const octave_idx_type&, + double*, Complex*, Complex*, + const octave_idx_type&, octave_idx_type&); F77_RET_T - F77_FUNC (zgttrs, ZGTTRS) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, - const octave_idx_type&, const Complex*, const Complex*, - const Complex*, const Complex*, const octave_idx_type*, - Complex *, const octave_idx_type&, octave_idx_type& - F77_CHAR_ARG_LEN_DECL); - - F77_RET_T - F77_FUNC (zptsv, ZPTSV) (const octave_idx_type&, const octave_idx_type&, double*, Complex*, - Complex*, const octave_idx_type&, octave_idx_type&); - - F77_RET_T - F77_FUNC (zgtsv, ZGTSV) (const octave_idx_type&, const octave_idx_type&, Complex*, Complex*, - Complex*, Complex*, const octave_idx_type&, octave_idx_type&); + F77_FUNC (zgtsv, ZGTSV) (const octave_idx_type&, const octave_idx_type&, + Complex*, Complex*, Complex*, Complex*, + const octave_idx_type&, octave_idx_type&); } SparseComplexMatrix::SparseComplexMatrix (const SparseMatrix& a)
--- a/liboctave/ChangeLog +++ b/liboctave/ChangeLog @@ -1,3 +1,17 @@ +2011-01-13 John W. Eaton <jwe@octave.org> + + * CColVector.cc, CMatrix.cc, CRowVector.cc, CSparse.cc, + CmplxAEPBAL.cc, CmplxCHOL.cc, CmplxLU.cc, CmplxQR.cc, + CmplxQRP.cc, EIG.cc, Quad.cc, dColVector.cc, dMatrix.cc, + dRowVector.cc, dSparse.cc, dbleAEPBAL.cc, dbleCHOL.cc, + dbleLU.cc, dbleQR.cc, dbleQRP.cc, eigs-base.cc, fCColVector.cc, + fCMatrix.cc, fCNDArray.cc, fCRowVector.cc, fCmplxAEPBAL.cc, + fCmplxCHOL.cc, fCmplxLU.cc, fCmplxQR.cc, fCmplxQRP.cc, + fCmplxSVD.cc, fColVector.cc, fEIG.cc, fMatrix.cc, fNDArray.cc, + fRowVector.cc, floatAEPBAL.cc, floatCHOL.cc, floatLU.cc, + floatQR.cc, floatQRP.cc, lo-specfun.cc, oct-convn.cc: + Style fixes. + 2011-01-13 John W. Eaton <jwe@octave.org> * CMatrix.cc (get_blas_trans_arg): Return char, not char *.
--- a/liboctave/CmplxAEPBAL.cc +++ b/liboctave/CmplxAEPBAL.cc @@ -35,18 +35,21 @@ extern "C" { 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& F77_CHAR_ARG_LEN_DECL); + 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& + F77_CHAR_ARG_LEN_DECL); F77_RET_T - F77_FUNC (zgebak, ZGEBAK) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, + 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&, const double*, const octave_idx_type&, Complex*, const octave_idx_type&, octave_idx_type& - F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); + F77_CHAR_ARG_LEN_DECL + F77_CHAR_ARG_LEN_DECL); } ComplexAEPBALANCE::ComplexAEPBALANCE (const ComplexMatrix& a,
--- a/liboctave/CmplxCHOL.cc +++ b/liboctave/CmplxCHOL.cc @@ -42,19 +42,22 @@ extern "C" { 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_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_RET_T - F77_FUNC (zpotri, ZPOTRI) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, - Complex*, const octave_idx_type&, octave_idx_type& + F77_FUNC (zpotri, ZPOTRI) (F77_CONST_CHAR_ARG_DECL, + const octave_idx_type&, Complex*, + const octave_idx_type&, octave_idx_type& F77_CHAR_ARG_LEN_DECL); F77_RET_T - F77_FUNC (zpocon, ZPOCON) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, - Complex*, const octave_idx_type&, const double&, - double&, Complex*, double*, - octave_idx_type& F77_CHAR_ARG_LEN_DECL); + F77_FUNC (zpocon, ZPOCON) (F77_CONST_CHAR_ARG_DECL, + const octave_idx_type&, Complex*, + const octave_idx_type&, const double&, + double&, Complex*, double*, octave_idx_type& + F77_CHAR_ARG_LEN_DECL); #ifdef HAVE_QRUPDATE F77_RET_T
--- a/liboctave/CmplxLU.cc +++ b/liboctave/CmplxLU.cc @@ -44,8 +44,9 @@ extern "C" { F77_RET_T - F77_FUNC (zgetrf, ZGETRF) (const octave_idx_type&, const octave_idx_type&, Complex*, - const octave_idx_type&, octave_idx_type*, octave_idx_type&); + F77_FUNC (zgetrf, ZGETRF) (const octave_idx_type&, const octave_idx_type&, + Complex*, const octave_idx_type&, + octave_idx_type*, octave_idx_type&); #ifdef HAVE_QRUPDATE_LUU F77_RET_T
--- a/liboctave/CmplxQR.cc +++ b/liboctave/CmplxQR.cc @@ -41,47 +41,58 @@ extern "C" { F77_RET_T - F77_FUNC (zgeqrf, ZGEQRF) (const octave_idx_type&, const octave_idx_type&, Complex*, - const octave_idx_type&, Complex*, Complex*, - const octave_idx_type&, octave_idx_type&); + F77_FUNC (zgeqrf, ZGEQRF) (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 (zungqr, ZUNGQR) (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 (zungqr, ZUNGQR) (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&); #ifdef HAVE_QRUPDATE F77_RET_T - F77_FUNC (zqr1up, ZQR1UP) (const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, - Complex*, const octave_idx_type&, Complex*, const octave_idx_type&, - Complex*, Complex*, Complex*, double*); + F77_FUNC (zqr1up, ZQR1UP) (const octave_idx_type&, const octave_idx_type&, + const octave_idx_type&, Complex*, + const octave_idx_type&, Complex*, + const octave_idx_type&, Complex*, + Complex*, Complex*, double*); F77_RET_T - F77_FUNC (zqrinc, ZQRINC) (const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, - Complex*, const octave_idx_type&, Complex*, const octave_idx_type&, - const octave_idx_type&, const Complex*, double*); + F77_FUNC (zqrinc, ZQRINC) (const octave_idx_type&, const octave_idx_type&, + const octave_idx_type&, Complex*, + const octave_idx_type&, Complex*, + const octave_idx_type&, const octave_idx_type&, + const Complex*, double*); F77_RET_T - F77_FUNC (zqrdec, ZQRDEC) (const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, - Complex*, const octave_idx_type&, Complex*, const octave_idx_type&, - const octave_idx_type&, double*); + F77_FUNC (zqrdec, ZQRDEC) (const octave_idx_type&, const octave_idx_type&, + const octave_idx_type&, Complex*, + const octave_idx_type&, Complex*, + const octave_idx_type&, const octave_idx_type&, + double*); F77_RET_T F77_FUNC (zqrinr, ZQRINR) (const octave_idx_type&, const octave_idx_type&, - Complex*, const octave_idx_type&, Complex*, const octave_idx_type&, - const octave_idx_type&, const Complex*, double*); + Complex*, const octave_idx_type&, Complex*, + const octave_idx_type&, const octave_idx_type&, + const Complex*, double*); F77_RET_T F77_FUNC (zqrder, ZQRDER) (const octave_idx_type&, const octave_idx_type&, - Complex*, const octave_idx_type&, Complex*, const octave_idx_type&, - const octave_idx_type&, Complex*, double*); + Complex*, const octave_idx_type&, Complex*, + const octave_idx_type&, const octave_idx_type&, + Complex*, double*); F77_RET_T - F77_FUNC (zqrshc, ZQRSHC) (const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, - Complex*, const octave_idx_type&, Complex*, const octave_idx_type&, + F77_FUNC (zqrshc, ZQRSHC) (const octave_idx_type&, const octave_idx_type&, + const octave_idx_type&, Complex*, + const octave_idx_type&, Complex*, const octave_idx_type&, const octave_idx_type&, - Complex*, double*); + const octave_idx_type&, Complex*, double*); #endif }
--- a/liboctave/CmplxQRP.cc +++ b/liboctave/CmplxQRP.cc @@ -36,9 +36,11 @@ extern "C" { F77_RET_T - F77_FUNC (zgeqp3, ZGEQP3) (const octave_idx_type&, const octave_idx_type&, Complex*, - const octave_idx_type&, octave_idx_type*, Complex*, Complex*, - const octave_idx_type&, double*, octave_idx_type&); + F77_FUNC (zgeqp3, ZGEQP3) (const octave_idx_type&, const octave_idx_type&, + Complex*, const octave_idx_type&, + octave_idx_type*, Complex*, Complex*, + const octave_idx_type&, double*, + octave_idx_type&); } // It would be best to share some of this code with ComplexQR class...
--- a/liboctave/EIG.cc +++ b/liboctave/EIG.cc @@ -103,7 +103,8 @@ F77_RET_T F77_FUNC (dsygv, DSYGV) (const octave_idx_type&, - F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, + 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*,
--- a/liboctave/Quad.cc +++ b/liboctave/Quad.cc @@ -47,29 +47,35 @@ { F77_RET_T F77_FUNC (dqagp, DQAGP) (quad_fcn_ptr, const double&, const double&, - const octave_idx_type&, const double*, const double&, - const double&, double&, double&, octave_idx_type&, - octave_idx_type&, const octave_idx_type&, const octave_idx_type&, octave_idx_type&, octave_idx_type*, - double*); + const octave_idx_type&, const double*, + const double&, const double&, double&, + double&, octave_idx_type&, octave_idx_type&, + const octave_idx_type&, const octave_idx_type&, + octave_idx_type&, octave_idx_type*, double*); F77_RET_T - F77_FUNC (dqagi, DQAGI) (quad_fcn_ptr, const double&, const octave_idx_type&, - const double&, const double&, double&, - double&, octave_idx_type&, octave_idx_type&, const octave_idx_type&, - const octave_idx_type&, octave_idx_type&, octave_idx_type*, double*); + F77_FUNC (dqagi, DQAGI) (quad_fcn_ptr, const double&, + const octave_idx_type&, const double&, + const double&, double&, double&, + octave_idx_type&, octave_idx_type&, + const octave_idx_type&, const octave_idx_type&, + octave_idx_type&, octave_idx_type*, double*); F77_RET_T F77_FUNC (qagp, QAGP) (quad_float_fcn_ptr, const float&, const float&, const octave_idx_type&, const float*, const float&, const float&, float&, float&, octave_idx_type&, - octave_idx_type&, const octave_idx_type&, const octave_idx_type&, octave_idx_type&, octave_idx_type*, - float*); + octave_idx_type&, const octave_idx_type&, + const octave_idx_type&, octave_idx_type&, + octave_idx_type*, float*); F77_RET_T - F77_FUNC (qagi, QAGI) (quad_float_fcn_ptr, const float&, const octave_idx_type&, - const float&, const float&, float&, - float&, octave_idx_type&, octave_idx_type&, const octave_idx_type&, - const octave_idx_type&, octave_idx_type&, octave_idx_type*, float*); + F77_FUNC (qagi, QAGI) (quad_float_fcn_ptr, const float&, + const octave_idx_type&, const float&, + const float&, float&, float&, octave_idx_type&, + octave_idx_type&, const octave_idx_type&, + const octave_idx_type&, octave_idx_type&, + octave_idx_type*, float*); } static octave_idx_type
--- a/liboctave/dColVector.cc +++ b/liboctave/dColVector.cc @@ -43,8 +43,9 @@ { F77_RET_T F77_FUNC (dgemv, DGEMV) (F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, const octave_idx_type&, const double&, - const double*, const octave_idx_type&, const double*, + const octave_idx_type&, const octave_idx_type&, + const double&, const double*, + const octave_idx_type&, const double*, const octave_idx_type&, const double&, double*, const octave_idx_type& F77_CHAR_ARG_LEN_DECL);
--- a/liboctave/dMatrix.cc +++ b/liboctave/dMatrix.cc @@ -63,24 +63,29 @@ extern "C" { F77_RET_T - F77_FUNC (xilaenv, XILAENV) (const octave_idx_type&, F77_CONST_CHAR_ARG_DECL, + F77_FUNC (xilaenv, XILAENV) (const octave_idx_type&, + F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, octave_idx_type& - F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); + F77_CHAR_ARG_LEN_DECL + F77_CHAR_ARG_LEN_DECL); 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 (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); @@ -88,24 +93,27 @@ F77_RET_T F77_FUNC (dgemm, DGEMM) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, - const double&, const double*, const octave_idx_type&, - const double*, const octave_idx_type&, const double&, - double*, const octave_idx_type& + const octave_idx_type&, const octave_idx_type&, + const octave_idx_type&, const double&, + const double*, const octave_idx_type&, + const double*, const octave_idx_type&, + const double&, double*, const octave_idx_type& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (dgemv, DGEMV) (F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, const octave_idx_type&, const double&, - const double*, const octave_idx_type&, const double*, + const octave_idx_type&, const octave_idx_type&, + const double&, const double*, + const octave_idx_type&, const double*, const octave_idx_type&, const double&, double*, const octave_idx_type& F77_CHAR_ARG_LEN_DECL); F77_RET_T - F77_FUNC (xddot, XDDOT) (const octave_idx_type&, const double*, const octave_idx_type&, - const double*, const octave_idx_type&, double&); + F77_FUNC (xddot, XDDOT) (const octave_idx_type&, const double*, + const octave_idx_type&, const double*, + const octave_idx_type&, double&); F77_RET_T F77_FUNC (dsyrk, DSYRK) (F77_CONST_CHAR_ARG_DECL, @@ -117,74 +125,91 @@ F77_CHAR_ARG_LEN_DECL); F77_RET_T - F77_FUNC (dgetrf, DGETRF) (const octave_idx_type&, const octave_idx_type&, double*, const octave_idx_type&, - octave_idx_type*, octave_idx_type&); + F77_FUNC (dgetrf, DGETRF) (const octave_idx_type&, const octave_idx_type&, + double*, const octave_idx_type&, + octave_idx_type*, octave_idx_type&); F77_RET_T - F77_FUNC (dgetrs, DGETRS) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, const octave_idx_type&, + F77_FUNC (dgetrs, DGETRS) (F77_CONST_CHAR_ARG_DECL, + const octave_idx_type&, const octave_idx_type&, const double*, const octave_idx_type&, - const octave_idx_type*, double*, const octave_idx_type&, octave_idx_type& + const octave_idx_type*, double*, + const octave_idx_type&, octave_idx_type& F77_CHAR_ARG_LEN_DECL); F77_RET_T - F77_FUNC (dgetri, DGETRI) (const octave_idx_type&, double*, const octave_idx_type&, const octave_idx_type*, - double*, const octave_idx_type&, octave_idx_type&); + F77_FUNC (dgetri, DGETRI) (const octave_idx_type&, double*, + const octave_idx_type&, const octave_idx_type*, + double*, const octave_idx_type&, + octave_idx_type&); F77_RET_T - F77_FUNC (dgecon, DGECON) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, double*, + F77_FUNC (dgecon, DGECON) (F77_CONST_CHAR_ARG_DECL, + const octave_idx_type&, double*, const octave_idx_type&, const double&, double&, double*, octave_idx_type*, octave_idx_type& F77_CHAR_ARG_LEN_DECL); F77_RET_T - F77_FUNC (dgelsy, DGELSY) (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*, double&, octave_idx_type&, - double*, const octave_idx_type&, octave_idx_type&); + F77_FUNC (dgelsy, DGELSY) (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*, + double&, octave_idx_type&, double*, + const octave_idx_type&, octave_idx_type&); F77_RET_T - F77_FUNC (dgelsd, DGELSD) (const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, - double*, const octave_idx_type&, double*, - const octave_idx_type&, double*, double&, octave_idx_type&, - double*, const octave_idx_type&, octave_idx_type*, + F77_FUNC (dgelsd, DGELSD) (const octave_idx_type&, const octave_idx_type&, + const octave_idx_type&, double*, + const octave_idx_type&, double*, + const octave_idx_type&, double*, double&, + octave_idx_type&, double*, + const octave_idx_type&, octave_idx_type*, octave_idx_type&); 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_RET_T - F77_FUNC (dpocon, DPOCON) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, - double*, const octave_idx_type&, const double&, - double&, double*, octave_idx_type*, - octave_idx_type& F77_CHAR_ARG_LEN_DECL); - F77_RET_T - F77_FUNC (dpotrs, DPOTRS) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, - const octave_idx_type&, const double*, - const octave_idx_type&, double*, + 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_RET_T - F77_FUNC (dtrtri, DTRTRI) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, + F77_FUNC (dpocon, DPOCON) (F77_CONST_CHAR_ARG_DECL, + const octave_idx_type&, double*, + const octave_idx_type&, const double&, + double&, double*, octave_idx_type*, + octave_idx_type& + F77_CHAR_ARG_LEN_DECL); + F77_RET_T + F77_FUNC (dpotrs, DPOTRS) (F77_CONST_CHAR_ARG_DECL, + const octave_idx_type&, const octave_idx_type&, + const double*, const octave_idx_type&, double*, + const octave_idx_type&, octave_idx_type& + F77_CHAR_ARG_LEN_DECL); + + F77_RET_T + F77_FUNC (dtrtri, DTRTRI) (F77_CONST_CHAR_ARG_DECL, + F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, const double*, const octave_idx_type&, octave_idx_type& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); F77_RET_T - F77_FUNC (dtrcon, DTRCON) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, - F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, - const double*, const octave_idx_type&, double&, + F77_FUNC (dtrcon, DTRCON) (F77_CONST_CHAR_ARG_DECL, + F77_CONST_CHAR_ARG_DECL, + F77_CONST_CHAR_ARG_DECL, + const octave_idx_type&, const double*, + const octave_idx_type&, double&, 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 (dtrtrs, DTRTRS) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, - F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, - const octave_idx_type&, const double*, - const octave_idx_type&, double*, + F77_FUNC (dtrtrs, DTRTRS) (F77_CONST_CHAR_ARG_DECL, + F77_CONST_CHAR_ARG_DECL, + F77_CONST_CHAR_ARG_DECL, + const octave_idx_type&, const octave_idx_type&, + const double*, const octave_idx_type&, double*, const octave_idx_type&, octave_idx_type& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL @@ -197,17 +222,19 @@ F77_RET_T F77_FUNC (dtrsyl, DTRSYL) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, - const double*, const octave_idx_type&, const double*, - const octave_idx_type&, const double*, const octave_idx_type&, - double&, octave_idx_type& + const octave_idx_type&, const octave_idx_type&, + const octave_idx_type&, const double*, + const octave_idx_type&, const double*, + const octave_idx_type&, const double*, + const octave_idx_type&, double&, octave_idx_type& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); F77_RET_T - F77_FUNC (xdlange, XDLANGE) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, - const octave_idx_type&, const double*, - const octave_idx_type&, double*, double& + F77_FUNC (xdlange, XDLANGE) (F77_CONST_CHAR_ARG_DECL, + const octave_idx_type&, const octave_idx_type&, + const double*, const octave_idx_type&, + double*, double& F77_CHAR_ARG_LEN_DECL); }
--- a/liboctave/dRowVector.cc +++ b/liboctave/dRowVector.cc @@ -42,13 +42,16 @@ { F77_RET_T F77_FUNC (dgemv, DGEMV) (F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, const octave_idx_type&, const double&, - const double*, const octave_idx_type&, const double*, - const octave_idx_type&, const double&, double*, const octave_idx_type& + const octave_idx_type&, const octave_idx_type&, + const double&, const double*, + const octave_idx_type&, const double*, + const octave_idx_type&, const double&, + double*, const octave_idx_type& F77_CHAR_ARG_LEN_DECL); F77_RET_T - F77_FUNC (xddot, XDDOT) (const octave_idx_type&, const double*, const octave_idx_type&, - const double*, const octave_idx_type&, double&); + F77_FUNC (xddot, XDDOT) (const octave_idx_type&, const double*, + const octave_idx_type&, const double*, + const octave_idx_type&, double&); } // Row Vector class.
--- a/liboctave/dSparse.cc +++ b/liboctave/dSparse.cc @@ -73,61 +73,76 @@ octave_idx_type*, octave_idx_type&); F77_RET_T - F77_FUNC (dgbtrs, DGBTRS) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, - const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, + F77_FUNC (dgbtrs, DGBTRS) (F77_CONST_CHAR_ARG_DECL, + const octave_idx_type&, const octave_idx_type&, + const octave_idx_type&, const octave_idx_type&, const double*, const octave_idx_type&, - const octave_idx_type*, double*, const octave_idx_type&, octave_idx_type& + const octave_idx_type*, double*, + const octave_idx_type&, octave_idx_type& F77_CHAR_ARG_LEN_DECL); F77_RET_T - F77_FUNC (dgbcon, DGBCON) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, - const octave_idx_type&, const octave_idx_type&, double*, - const octave_idx_type&, const octave_idx_type*, const double&, - double&, double*, octave_idx_type*, octave_idx_type& + F77_FUNC (dgbcon, DGBCON) (F77_CONST_CHAR_ARG_DECL, + const octave_idx_type&, const octave_idx_type&, + const octave_idx_type&, double*, + const octave_idx_type&, const octave_idx_type*, + const double&, double&, double*, + octave_idx_type*, octave_idx_type& F77_CHAR_ARG_LEN_DECL); F77_RET_T - F77_FUNC (dpbtrf, DPBTRF) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, - const octave_idx_type&, double*, const octave_idx_type&, octave_idx_type& - F77_CHAR_ARG_LEN_DECL); - - F77_RET_T - F77_FUNC (dpbtrs, DPBTRS) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, - const octave_idx_type&, const octave_idx_type&, double*, const octave_idx_type&, + F77_FUNC (dpbtrf, DPBTRF) (F77_CONST_CHAR_ARG_DECL, + const octave_idx_type&, const octave_idx_type&, double*, const octave_idx_type&, octave_idx_type& F77_CHAR_ARG_LEN_DECL); F77_RET_T - F77_FUNC (dpbcon, DPBCON) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, - const octave_idx_type&, double*, const octave_idx_type&, - const double&, double&, double*, octave_idx_type*, octave_idx_type& + F77_FUNC (dpbtrs, DPBTRS) (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& F77_CHAR_ARG_LEN_DECL); - F77_RET_T - F77_FUNC (dptsv, DPTSV) (const octave_idx_type&, const octave_idx_type&, double*, double*, - double*, const octave_idx_type&, octave_idx_type&); F77_RET_T - F77_FUNC (dgtsv, DGTSV) (const octave_idx_type&, const octave_idx_type&, double*, double*, - double*, double*, const octave_idx_type&, octave_idx_type&); + F77_FUNC (dpbcon, DPBCON) (F77_CONST_CHAR_ARG_DECL, + const octave_idx_type&, const octave_idx_type&, + double*, const octave_idx_type&, + const double&, double&, double*, + octave_idx_type*, octave_idx_type& + F77_CHAR_ARG_LEN_DECL); + F77_RET_T + F77_FUNC (dptsv, DPTSV) (const octave_idx_type&, const octave_idx_type&, + double*, double*, double*, const octave_idx_type&, + octave_idx_type&); F77_RET_T - F77_FUNC (dgttrf, DGTTRF) (const octave_idx_type&, double*, double*, double*, double*, - octave_idx_type*, octave_idx_type&); + F77_FUNC (dgtsv, DGTSV) (const octave_idx_type&, const octave_idx_type&, + double*, double*, double*, double*, + const octave_idx_type&, octave_idx_type&); F77_RET_T - F77_FUNC (dgttrs, DGTTRS) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, - const octave_idx_type&, const double*, const double*, - const double*, const double*, const octave_idx_type*, + F77_FUNC (dgttrf, DGTTRF) (const octave_idx_type&, double*, double*, + double*, double*, octave_idx_type*, + octave_idx_type&); + + F77_RET_T + F77_FUNC (dgttrs, DGTTRS) (F77_CONST_CHAR_ARG_DECL, + const octave_idx_type&, const octave_idx_type&, + const double*, const double*, const double*, + const double*, const octave_idx_type*, double *, const octave_idx_type&, octave_idx_type& F77_CHAR_ARG_LEN_DECL); F77_RET_T - F77_FUNC (zptsv, ZPTSV) (const octave_idx_type&, const octave_idx_type&, double*, Complex*, - Complex*, const octave_idx_type&, octave_idx_type&); + F77_FUNC (zptsv, ZPTSV) (const octave_idx_type&, const octave_idx_type&, + double*, Complex*, Complex*, const octave_idx_type&, + octave_idx_type&); F77_RET_T - F77_FUNC (zgtsv, ZGTSV) (const octave_idx_type&, const octave_idx_type&, Complex*, Complex*, - Complex*, Complex*, const octave_idx_type&, octave_idx_type&); + F77_FUNC (zgtsv, ZGTSV) (const octave_idx_type&, const octave_idx_type&, + Complex*, Complex*, Complex*, Complex*, + const octave_idx_type&, octave_idx_type&); }
--- a/liboctave/dbleAEPBAL.cc +++ b/liboctave/dbleAEPBAL.cc @@ -35,15 +35,17 @@ { 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 (dgebak, DGEBAK) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, - const double*, const octave_idx_type&, double*, + const octave_idx_type&, const octave_idx_type&, + const octave_idx_type&, const 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/dbleCHOL.cc +++ b/liboctave/dbleCHOL.cc @@ -41,20 +41,24 @@ extern "C" { 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_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_RET_T - F77_FUNC (dpotri, DPOTRI) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, - double*, const octave_idx_type&, octave_idx_type& + F77_FUNC (dpotri, DPOTRI) (F77_CONST_CHAR_ARG_DECL, + const octave_idx_type&, double*, + const octave_idx_type&, octave_idx_type& F77_CHAR_ARG_LEN_DECL); F77_RET_T - F77_FUNC (dpocon, DPOCON) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, - double*, const octave_idx_type&, const double&, + F77_FUNC (dpocon, DPOCON) (F77_CONST_CHAR_ARG_DECL, + const octave_idx_type&, double*, + const octave_idx_type&, const double&, double&, double*, octave_idx_type*, - octave_idx_type& F77_CHAR_ARG_LEN_DECL); + octave_idx_type& + F77_CHAR_ARG_LEN_DECL); #ifdef HAVE_QRUPDATE F77_RET_T
--- a/liboctave/dbleLU.cc +++ b/liboctave/dbleLU.cc @@ -44,8 +44,9 @@ extern "C" { F77_RET_T - F77_FUNC (dgetrf, DGETRF) (const octave_idx_type&, const octave_idx_type&, double*, - const octave_idx_type&, octave_idx_type*, octave_idx_type&); + F77_FUNC (dgetrf, DGETRF) (const octave_idx_type&, const octave_idx_type&, + double*, const octave_idx_type&, + octave_idx_type*, octave_idx_type&); #ifdef HAVE_QRUPDATE_LUU F77_RET_T
--- a/liboctave/dbleQR.cc +++ b/liboctave/dbleQR.cc @@ -41,45 +41,57 @@ extern "C" { F77_RET_T - F77_FUNC (dgeqrf, DGEQRF) (const octave_idx_type&, const octave_idx_type&, double*, const octave_idx_type&, - double*, double*, const octave_idx_type&, octave_idx_type&); + F77_FUNC (dgeqrf, DGEQRF) (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 (dorgqr, DORGQR) (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_FUNC (dorgqr, DORGQR) (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&); #ifdef HAVE_QRUPDATE F77_RET_T - F77_FUNC (dqr1up, DQR1UP) (const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, - double*, const octave_idx_type&, double*, const octave_idx_type&, - double*, double*, double*); + F77_FUNC (dqr1up, DQR1UP) (const octave_idx_type&, const octave_idx_type&, + const octave_idx_type&, double*, + const octave_idx_type&, double*, + const octave_idx_type&, double*, double*, double*); F77_RET_T - F77_FUNC (dqrinc, DQRINC) (const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, - double*, const octave_idx_type&, double*, const octave_idx_type&, - const octave_idx_type&, const double*, double*); + F77_FUNC (dqrinc, DQRINC) (const octave_idx_type&, const octave_idx_type&, + const octave_idx_type&, double*, + const octave_idx_type&, double*, + const octave_idx_type&, const octave_idx_type&, + const double*, double*); F77_RET_T - F77_FUNC (dqrdec, DQRDEC) (const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, - double*, const octave_idx_type&, double*, const octave_idx_type&, - const octave_idx_type&, double*); + F77_FUNC (dqrdec, DQRDEC) (const octave_idx_type&, const octave_idx_type&, + const octave_idx_type&, double*, + const octave_idx_type&, double*, + const octave_idx_type&, const octave_idx_type&, + double*); F77_RET_T F77_FUNC (dqrinr, DQRINR) (const octave_idx_type&, const octave_idx_type&, - double*, const octave_idx_type&, double*, const octave_idx_type&, - const octave_idx_type&, const double*, double*); + double*, const octave_idx_type&, double*, + const octave_idx_type&, const octave_idx_type&, + const double*, double*); F77_RET_T F77_FUNC (dqrder, DQRDER) (const octave_idx_type&, const octave_idx_type&, - double*, const octave_idx_type&, double*, const octave_idx_type&, - const octave_idx_type&, double*); + double*, const octave_idx_type&, double*, + const octave_idx_type&, const octave_idx_type&, + double*); F77_RET_T - F77_FUNC (dqrshc, DQRSHC) (const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, - double*, const octave_idx_type&, double*, const octave_idx_type&, + F77_FUNC (dqrshc, DQRSHC) (const octave_idx_type&, const octave_idx_type&, + const octave_idx_type&, double*, + const octave_idx_type&, double*, const octave_idx_type&, const octave_idx_type&, - double*); + const octave_idx_type&, double*); #endif }
--- a/liboctave/dbleQRP.cc +++ b/liboctave/dbleQRP.cc @@ -36,8 +36,9 @@ extern "C" { F77_RET_T - F77_FUNC (dgeqp3, DGEQP3) (const octave_idx_type&, const octave_idx_type&, double*, - const octave_idx_type&, octave_idx_type*, double*, double*, + F77_FUNC (dgeqp3, DGEQP3) (const octave_idx_type&, const octave_idx_type&, + double*, const octave_idx_type&, + octave_idx_type*, double*, double*, const octave_idx_type&, octave_idx_type&); }
--- a/liboctave/eigs-base.cc +++ b/liboctave/eigs-base.cc @@ -53,80 +53,101 @@ extern "C" { F77_RET_T - F77_FUNC (dsaupd, DSAUPD) (octave_idx_type&, F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, F77_CONST_CHAR_ARG_DECL, + F77_FUNC (dsaupd, DSAUPD) (octave_idx_type&, + F77_CONST_CHAR_ARG_DECL, + const octave_idx_type&, + F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, const double&, double*, const octave_idx_type&, double*, const octave_idx_type&, octave_idx_type*, 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 (dseupd, DSEUPD) (const octave_idx_type&, F77_CONST_CHAR_ARG_DECL, - octave_idx_type*, double*, double*, - const octave_idx_type&, const double&, - F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, - F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, - const double&, double*, const octave_idx_type&, - double*, const octave_idx_type&, octave_idx_type*, - octave_idx_type*, double*, double*, - const octave_idx_type&, octave_idx_type& - F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL + F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); F77_RET_T - F77_FUNC (dnaupd, DNAUPD) (octave_idx_type&, F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, F77_CONST_CHAR_ARG_DECL, + F77_FUNC (dseupd, DSEUPD) (const octave_idx_type&, + F77_CONST_CHAR_ARG_DECL, + octave_idx_type*, double*, double*, + const octave_idx_type&, const double&, + F77_CONST_CHAR_ARG_DECL, + const octave_idx_type&, + F77_CONST_CHAR_ARG_DECL, + const octave_idx_type&, const double&, double*, + const octave_idx_type&, double*, + const octave_idx_type&, octave_idx_type*, + octave_idx_type*, double*, double*, + const 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 (dnaupd, DNAUPD) (octave_idx_type&, + F77_CONST_CHAR_ARG_DECL, + const octave_idx_type&, + F77_CONST_CHAR_ARG_DECL, octave_idx_type&, const double&, double*, const octave_idx_type&, double*, const octave_idx_type&, octave_idx_type*, octave_idx_type*, double*, double*, const octave_idx_type&, octave_idx_type& - F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); + F77_CHAR_ARG_LEN_DECL + F77_CHAR_ARG_LEN_DECL); F77_RET_T - F77_FUNC (dneupd, DNEUPD) (const octave_idx_type&, F77_CONST_CHAR_ARG_DECL, + F77_FUNC (dneupd, DNEUPD) (const octave_idx_type&, + F77_CONST_CHAR_ARG_DECL, octave_idx_type*, double*, double*, double*, const octave_idx_type&, const double&, - const double&, double*, F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, F77_CONST_CHAR_ARG_DECL, + const double&, double*, + F77_CONST_CHAR_ARG_DECL, + const octave_idx_type&, + F77_CONST_CHAR_ARG_DECL, octave_idx_type&, const double&, double*, const octave_idx_type&, double*, const octave_idx_type&, octave_idx_type*, octave_idx_type*, double*, double*, const octave_idx_type&, octave_idx_type& - F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL + F77_CHAR_ARG_LEN_DECL + F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); F77_RET_T - F77_FUNC (znaupd, ZNAUPD) (octave_idx_type&, F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, F77_CONST_CHAR_ARG_DECL, + F77_FUNC (znaupd, ZNAUPD) (octave_idx_type&, + F77_CONST_CHAR_ARG_DECL, + const octave_idx_type&, + F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, const double&, Complex*, const octave_idx_type&, Complex*, const octave_idx_type&, octave_idx_type*, octave_idx_type*, Complex*, Complex*, const octave_idx_type&, double *, octave_idx_type& - F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); + F77_CHAR_ARG_LEN_DECL + F77_CHAR_ARG_LEN_DECL); F77_RET_T - F77_FUNC (zneupd, ZNEUPD) (const octave_idx_type&, F77_CONST_CHAR_ARG_DECL, + F77_FUNC (zneupd, ZNEUPD) (const octave_idx_type&, + F77_CONST_CHAR_ARG_DECL, octave_idx_type*, Complex*, Complex*, - const octave_idx_type&, const Complex&, - Complex*, F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, F77_CONST_CHAR_ARG_DECL, + const octave_idx_type&, const Complex&, Complex*, + F77_CONST_CHAR_ARG_DECL, + const octave_idx_type&, + F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, const double&, Complex*, const octave_idx_type&, Complex*, const octave_idx_type&, octave_idx_type*, octave_idx_type*, Complex*, Complex*, const octave_idx_type&, double *, octave_idx_type& - F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL + F77_CHAR_ARG_LEN_DECL + F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (dgemv, DGEMV) (F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, const octave_idx_type&, const double&, - const double*, const octave_idx_type&, const double*, + const octave_idx_type&, const octave_idx_type&, + const double&, const double*, + const octave_idx_type&, const double*, const octave_idx_type&, const double&, double*, const octave_idx_type& F77_CHAR_ARG_LEN_DECL);
--- a/liboctave/fCColVector.cc +++ b/liboctave/fCColVector.cc @@ -43,9 +43,11 @@ { F77_RET_T F77_FUNC (cgemv, CGEMV) (F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, const octave_idx_type&, const FloatComplex&, - const FloatComplex*, const octave_idx_type&, const FloatComplex*, - const octave_idx_type&, const FloatComplex&, FloatComplex*, const octave_idx_type& + const octave_idx_type&, const octave_idx_type&, + const FloatComplex&, const FloatComplex*, + const octave_idx_type&, const FloatComplex*, + const octave_idx_type&, const FloatComplex&, + FloatComplex*, const octave_idx_type& F77_CHAR_ARG_LEN_DECL); }
--- a/liboctave/fCMatrix.cc +++ b/liboctave/fCMatrix.cc @@ -64,83 +64,101 @@ extern "C" { F77_RET_T - F77_FUNC (xilaenv, XILAENV) (const octave_idx_type&, F77_CONST_CHAR_ARG_DECL, + F77_FUNC (xilaenv, XILAENV) (const octave_idx_type&, + F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, octave_idx_type& - F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); + F77_CHAR_ARG_LEN_DECL + F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (cgebal, CGEBAL) (F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, FloatComplex*, const octave_idx_type&, 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 (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); F77_RET_T F77_FUNC (cgemm, CGEMM) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, - const FloatComplex&, const FloatComplex*, const octave_idx_type&, - const FloatComplex*, const octave_idx_type&, const FloatComplex&, - FloatComplex*, const octave_idx_type& + const octave_idx_type&, const octave_idx_type&, + const octave_idx_type&, const FloatComplex&, + const FloatComplex*, const octave_idx_type&, + const FloatComplex*, const octave_idx_type&, + const FloatComplex&, FloatComplex*, + const octave_idx_type& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (cgemv, CGEMV) (F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, const octave_idx_type&, const FloatComplex&, - const FloatComplex*, const octave_idx_type&, const FloatComplex*, - const octave_idx_type&, const FloatComplex&, FloatComplex*, const octave_idx_type& + const octave_idx_type&, const octave_idx_type&, + const FloatComplex&, const FloatComplex*, + const octave_idx_type&, const FloatComplex*, + const octave_idx_type&, const FloatComplex&, + FloatComplex*, const octave_idx_type& F77_CHAR_ARG_LEN_DECL); F77_RET_T - F77_FUNC (xcdotu, XCDOTU) (const octave_idx_type&, const FloatComplex*, const octave_idx_type&, - const FloatComplex*, const octave_idx_type&, FloatComplex&); + F77_FUNC (xcdotu, XCDOTU) (const octave_idx_type&, const FloatComplex*, + const octave_idx_type&, const FloatComplex*, + const octave_idx_type&, FloatComplex&); F77_RET_T - F77_FUNC (xcdotc, XCDOTC) (const octave_idx_type&, const FloatComplex*, const octave_idx_type&, - const FloatComplex*, const octave_idx_type&, FloatComplex&); + F77_FUNC (xcdotc, XCDOTC) (const octave_idx_type&, const FloatComplex*, + const octave_idx_type&, const FloatComplex*, + const octave_idx_type&, FloatComplex&); F77_RET_T F77_FUNC (csyrk, CSYRK) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, const octave_idx_type&, - const FloatComplex&, const FloatComplex*, const octave_idx_type&, - const FloatComplex&, FloatComplex*, const octave_idx_type& + const octave_idx_type&, const octave_idx_type&, + const FloatComplex&, const FloatComplex*, + const octave_idx_type&, const FloatComplex&, + FloatComplex*, const octave_idx_type& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (cherk, CHERK) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, const octave_idx_type&, - const float&, const FloatComplex*, const octave_idx_type&, - const float&, FloatComplex*, const octave_idx_type& + const octave_idx_type&, const octave_idx_type&, + const float&, const FloatComplex*, + const octave_idx_type&, const float&, + FloatComplex*, const octave_idx_type& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); F77_RET_T - F77_FUNC (cgetrf, CGETRF) (const octave_idx_type&, const octave_idx_type&, FloatComplex*, const octave_idx_type&, + F77_FUNC (cgetrf, CGETRF) (const octave_idx_type&, const octave_idx_type&, + FloatComplex*, const octave_idx_type&, octave_idx_type*, octave_idx_type&); F77_RET_T F77_FUNC (cgetrs, CGETRS) (F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, const octave_idx_type&, FloatComplex*, const octave_idx_type&, - const octave_idx_type*, FloatComplex*, const octave_idx_type&, octave_idx_type& + const octave_idx_type&, const octave_idx_type&, + FloatComplex*, const octave_idx_type&, + const octave_idx_type*, FloatComplex*, + const octave_idx_type&, octave_idx_type& F77_CHAR_ARG_LEN_DECL); F77_RET_T - F77_FUNC (cgetri, CGETRI) (const octave_idx_type&, FloatComplex*, const octave_idx_type&, const octave_idx_type*, - FloatComplex*, const octave_idx_type&, octave_idx_type&); + F77_FUNC (cgetri, CGETRI) (const octave_idx_type&, FloatComplex*, + const octave_idx_type&, const octave_idx_type*, + FloatComplex*, const octave_idx_type&, + octave_idx_type&); F77_RET_T F77_FUNC (cgecon, CGECON) (F77_CONST_CHAR_ARG_DECL, @@ -150,58 +168,70 @@ F77_CHAR_ARG_LEN_DECL); F77_RET_T - F77_FUNC (cgelsy, CGELSY) (const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, - FloatComplex*, const octave_idx_type&, FloatComplex*, - const octave_idx_type&, octave_idx_type*, float&, octave_idx_type&, - FloatComplex*, const octave_idx_type&, float*, octave_idx_type&); + F77_FUNC (cgelsy, CGELSY) (const octave_idx_type&, const octave_idx_type&, + const octave_idx_type&, FloatComplex*, + const octave_idx_type&, FloatComplex*, + const octave_idx_type&, octave_idx_type*, + float&, octave_idx_type&, FloatComplex*, + const octave_idx_type&, float*, octave_idx_type&); F77_RET_T - F77_FUNC (cgelsd, CGELSD) (const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, - FloatComplex*, const octave_idx_type&, FloatComplex*, - const octave_idx_type&, float*, float&, octave_idx_type&, - FloatComplex*, const octave_idx_type&, float*, + F77_FUNC (cgelsd, CGELSD) (const octave_idx_type&, const octave_idx_type&, + const octave_idx_type&, FloatComplex*, + const octave_idx_type&, FloatComplex*, + const octave_idx_type&, float*, float&, + octave_idx_type&, FloatComplex*, + const octave_idx_type&, float*, octave_idx_type*, octave_idx_type&); 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_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_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*, - octave_idx_type& F77_CHAR_ARG_LEN_DECL); + F77_FUNC (cpocon, CPOCON) (F77_CONST_CHAR_ARG_DECL, + const octave_idx_type&, FloatComplex*, + const octave_idx_type&, const float&, float&, + FloatComplex*, float*, octave_idx_type& + F77_CHAR_ARG_LEN_DECL); F77_RET_T - F77_FUNC (cpotrs, CPOTRS) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, + F77_FUNC (cpotrs, CPOTRS) (F77_CONST_CHAR_ARG_DECL, + const octave_idx_type&, const octave_idx_type&, const FloatComplex*, const octave_idx_type&, FloatComplex*, const octave_idx_type&, octave_idx_type& F77_CHAR_ARG_LEN_DECL); F77_RET_T - F77_FUNC (ctrtri, CTRTRI) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, + F77_FUNC (ctrtri, CTRTRI) (F77_CONST_CHAR_ARG_DECL, + F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, const FloatComplex*, const octave_idx_type&, octave_idx_type& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); F77_RET_T - F77_FUNC (ctrcon, CTRCON) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, - F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, - const FloatComplex*, const octave_idx_type&, float&, - FloatComplex*, float*, octave_idx_type& + F77_FUNC (ctrcon, CTRCON) (F77_CONST_CHAR_ARG_DECL, + F77_CONST_CHAR_ARG_DECL, + F77_CONST_CHAR_ARG_DECL, + const octave_idx_type&, const FloatComplex*, + const octave_idx_type&, float&, FloatComplex*, + float*, octave_idx_type& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); F77_RET_T - F77_FUNC (ctrtrs, CTRTRS) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, - F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, - const octave_idx_type&, const FloatComplex*, - const octave_idx_type&, FloatComplex*, - const octave_idx_type&, octave_idx_type& + F77_FUNC (ctrtrs, CTRTRS) (F77_CONST_CHAR_ARG_DECL, + F77_CONST_CHAR_ARG_DECL, + F77_CONST_CHAR_ARG_DECL, + const octave_idx_type&, const octave_idx_type&, + const FloatComplex*, const octave_idx_type&, + FloatComplex*, const octave_idx_type&, + octave_idx_type& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); @@ -213,17 +243,19 @@ F77_RET_T F77_FUNC (ctrsyl, CTRSYL) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, - const FloatComplex*, const octave_idx_type&, - const FloatComplex*, const octave_idx_type&, - const FloatComplex*, const octave_idx_type&, float&, octave_idx_type& + const octave_idx_type&, const octave_idx_type&, + const octave_idx_type&, const FloatComplex*, + const octave_idx_type&, const FloatComplex*, + const octave_idx_type&, const FloatComplex*, + const octave_idx_type&, float&, octave_idx_type& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (xclange, XCLANGE) (F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, const octave_idx_type&, const FloatComplex*, - const octave_idx_type&, float*, float& + const octave_idx_type&, const octave_idx_type&, + const FloatComplex*, const octave_idx_type&, + float*, float& F77_CHAR_ARG_LEN_DECL); }
--- a/liboctave/fCNDArray.cc +++ b/liboctave/fCNDArray.cc @@ -195,10 +195,12 @@ F77_FUNC (cffti, CFFTI) (const octave_idx_type&, FloatComplex*); F77_RET_T - F77_FUNC (cfftf, CFFTF) (const octave_idx_type&, FloatComplex*, FloatComplex*); + F77_FUNC (cfftf, CFFTF) (const octave_idx_type&, FloatComplex*, + FloatComplex*); F77_RET_T - F77_FUNC (cfftb, CFFTB) (const octave_idx_type&, FloatComplex*, FloatComplex*); + F77_FUNC (cfftb, CFFTB) (const octave_idx_type&, FloatComplex*, + FloatComplex*); } FloatComplexNDArray
--- a/liboctave/fCRowVector.cc +++ b/liboctave/fCRowVector.cc @@ -42,14 +42,17 @@ { F77_RET_T F77_FUNC (cgemv, CGEMV) (F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, const octave_idx_type&, const FloatComplex&, - const FloatComplex*, const octave_idx_type&, const FloatComplex*, - const octave_idx_type&, const FloatComplex&, FloatComplex*, const octave_idx_type& + const octave_idx_type&, const octave_idx_type&, + const FloatComplex&, const FloatComplex*, + const octave_idx_type&, const FloatComplex*, + const octave_idx_type&, const FloatComplex&, + FloatComplex*, const octave_idx_type& F77_CHAR_ARG_LEN_DECL); F77_RET_T - F77_FUNC (xcdotu, XCDOTU) (const octave_idx_type&, const FloatComplex*, const octave_idx_type&, - const FloatComplex*, const octave_idx_type&, FloatComplex&); + F77_FUNC (xcdotu, XCDOTU) (const octave_idx_type&, const FloatComplex*, + const octave_idx_type&, const FloatComplex*, + const octave_idx_type&, FloatComplex&); } // FloatComplex Row Vector class
--- a/liboctave/fCmplxAEPBAL.cc +++ b/liboctave/fCmplxAEPBAL.cc @@ -35,18 +35,21 @@ extern "C" { 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& F77_CHAR_ARG_LEN_DECL); + 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& + F77_CHAR_ARG_LEN_DECL); F77_RET_T - F77_FUNC (cgebak, CGEBAK) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, + 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&, const float*, const octave_idx_type&, FloatComplex*, const octave_idx_type&, octave_idx_type& - F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); + F77_CHAR_ARG_LEN_DECL + F77_CHAR_ARG_LEN_DECL); } FloatComplexAEPBALANCE::FloatComplexAEPBALANCE (const FloatComplexMatrix& a,
--- a/liboctave/fCmplxCHOL.cc +++ b/liboctave/fCmplxCHOL.cc @@ -42,19 +42,22 @@ extern "C" { 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_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_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); + 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); 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*, - octave_idx_type& F77_CHAR_ARG_LEN_DECL); + F77_FUNC (cpocon, CPOCON) (F77_CONST_CHAR_ARG_DECL, + const octave_idx_type&, FloatComplex*, + const octave_idx_type&, const float&, + float&, FloatComplex*, float*, octave_idx_type& + F77_CHAR_ARG_LEN_DECL); #ifdef HAVE_QRUPDATE F77_RET_T
--- a/liboctave/fCmplxLU.cc +++ b/liboctave/fCmplxLU.cc @@ -44,8 +44,9 @@ extern "C" { F77_RET_T - F77_FUNC (cgetrf, CGETRF) (const octave_idx_type&, const octave_idx_type&, FloatComplex*, - const octave_idx_type&, octave_idx_type*, octave_idx_type&); + F77_FUNC (cgetrf, CGETRF) (const octave_idx_type&, const octave_idx_type&, + FloatComplex*, const octave_idx_type&, + octave_idx_type*, octave_idx_type&); #ifdef HAVE_QRUPDATE_LUU F77_RET_T
--- a/liboctave/fCmplxQR.cc +++ b/liboctave/fCmplxQR.cc @@ -41,47 +41,61 @@ extern "C" { F77_RET_T - F77_FUNC (cgeqrf, CGEQRF) (const octave_idx_type&, const octave_idx_type&, FloatComplex*, - const octave_idx_type&, FloatComplex*, FloatComplex*, + F77_FUNC (cgeqrf, CGEQRF) (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 (cungqr, CUNGQR) (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 (cungqr, CUNGQR) (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&); #ifdef HAVE_QRUPDATE F77_RET_T - F77_FUNC (cqr1up, CQR1UP) (const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, - FloatComplex*, const octave_idx_type&, FloatComplex*, const octave_idx_type&, - FloatComplex*, FloatComplex*, FloatComplex*, float*); + F77_FUNC (cqr1up, CQR1UP) (const octave_idx_type&, const octave_idx_type&, + const octave_idx_type&, FloatComplex*, + const octave_idx_type&, FloatComplex*, + const octave_idx_type&, FloatComplex*, + FloatComplex*, FloatComplex*, float*); F77_RET_T - F77_FUNC (cqrinc, CQRINC) (const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, - FloatComplex*, const octave_idx_type&, FloatComplex*, const octave_idx_type&, - const octave_idx_type&, const FloatComplex*, float*); + F77_FUNC (cqrinc, CQRINC) (const octave_idx_type&, const octave_idx_type&, + const octave_idx_type&, FloatComplex*, + const octave_idx_type&, FloatComplex*, + const octave_idx_type&,const octave_idx_type&, + const FloatComplex*, float*); F77_RET_T - F77_FUNC (cqrdec, CQRDEC) (const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, - FloatComplex*, const octave_idx_type&, FloatComplex*, const octave_idx_type&, - const octave_idx_type&, float*); + F77_FUNC (cqrdec, CQRDEC) (const octave_idx_type&, const octave_idx_type&, + const octave_idx_type&, FloatComplex*, + const octave_idx_type&, FloatComplex*, + const octave_idx_type&, const octave_idx_type&, + float*); F77_RET_T F77_FUNC (cqrinr, CQRINR) (const octave_idx_type&, const octave_idx_type&, - FloatComplex*, const octave_idx_type&, FloatComplex*, const octave_idx_type&, - const octave_idx_type&, const FloatComplex*, float*); + FloatComplex*, const octave_idx_type&, + FloatComplex*, const octave_idx_type&, + const octave_idx_type&, const FloatComplex*, + float*); F77_RET_T F77_FUNC (cqrder, CQRDER) (const octave_idx_type&, const octave_idx_type&, - FloatComplex*, const octave_idx_type&, FloatComplex*, const octave_idx_type&, + FloatComplex*, const octave_idx_type&, + FloatComplex*, const octave_idx_type&, const octave_idx_type&, FloatComplex*, float*); F77_RET_T - F77_FUNC (cqrshc, CQRSHC) (const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, - FloatComplex*, const octave_idx_type&, FloatComplex*, const octave_idx_type&, + F77_FUNC (cqrshc, CQRSHC) (const octave_idx_type&, const octave_idx_type&, + const octave_idx_type&, FloatComplex*, + const octave_idx_type&, FloatComplex*, const octave_idx_type&, const octave_idx_type&, - FloatComplex*, float*); + const octave_idx_type&, FloatComplex*, + float*); #endif }
--- a/liboctave/fCmplxQRP.cc +++ b/liboctave/fCmplxQRP.cc @@ -36,8 +36,9 @@ extern "C" { F77_RET_T - F77_FUNC (cgeqp3, CGEQP3) (const octave_idx_type&, const octave_idx_type&, FloatComplex*, - const octave_idx_type&, octave_idx_type*, FloatComplex*, FloatComplex*, + F77_FUNC (cgeqp3, CGEQP3) (const octave_idx_type&, const octave_idx_type&, + FloatComplex*, const octave_idx_type&, + octave_idx_type*, FloatComplex*, FloatComplex*, const octave_idx_type&, float*, octave_idx_type&); }
--- a/liboctave/fCmplxSVD.cc +++ b/liboctave/fCmplxSVD.cc @@ -82,7 +82,8 @@ } octave_idx_type -FloatComplexSVD::init (const FloatComplexMatrix& a, SVD::type svd_type, SVD::driver svd_driver) +FloatComplexSVD::init (const FloatComplexMatrix& a, SVD::type svd_type, + SVD::driver svd_driver) { octave_idx_type info;
--- a/liboctave/fColVector.cc +++ b/liboctave/fColVector.cc @@ -43,10 +43,10 @@ { F77_RET_T F77_FUNC (sgemv, SGEMV) (F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, const octave_idx_type&, const float&, - const float*, const octave_idx_type&, const float*, - const octave_idx_type&, const float&, float*, - const octave_idx_type& + const octave_idx_type&, const octave_idx_type&, + const float&, const float*, const octave_idx_type&, + const float*, const octave_idx_type&, const float&, + float*, const octave_idx_type& F77_CHAR_ARG_LEN_DECL); }
--- a/liboctave/fEIG.cc +++ b/liboctave/fEIG.cc @@ -100,7 +100,8 @@ F77_RET_T F77_FUNC (ssygv, SSYGV) (const octave_idx_type&, - F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, + 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*,
--- a/liboctave/fMatrix.cc +++ b/liboctave/fMatrix.cc @@ -62,24 +62,29 @@ extern "C" { F77_RET_T - F77_FUNC (xilaenv, XILAENV) (const octave_idx_type&, F77_CONST_CHAR_ARG_DECL, + F77_FUNC (xilaenv, XILAENV) (const octave_idx_type&, + F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, octave_idx_type& - F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); + F77_CHAR_ARG_LEN_DECL + F77_CHAR_ARG_LEN_DECL); 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 (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); @@ -87,24 +92,27 @@ F77_RET_T F77_FUNC (sgemm, SGEMM) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, - const float&, const float*, const octave_idx_type&, - const float*, const octave_idx_type&, const float&, - float*, const octave_idx_type& + const octave_idx_type&, const octave_idx_type&, + const octave_idx_type&, const float&, const float*, + const octave_idx_type&, const float*, + const octave_idx_type&, const float&, float*, + const octave_idx_type& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (sgemv, SGEMV) (F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, const octave_idx_type&, const float&, - const float*, const octave_idx_type&, const float*, + const octave_idx_type&, const octave_idx_type&, + const float&, const float*, + const octave_idx_type&, const float*, const octave_idx_type&, const float&, float*, const octave_idx_type& F77_CHAR_ARG_LEN_DECL); F77_RET_T - F77_FUNC (xsdot, XSDOT) (const octave_idx_type&, const float*, const octave_idx_type&, - const float*, const octave_idx_type&, float&); + F77_FUNC (xsdot, XSDOT) (const octave_idx_type&, const float*, + const octave_idx_type&, const float*, + const octave_idx_type&, float&); F77_RET_T F77_FUNC (ssyrk, SSYRK) (F77_CONST_CHAR_ARG_DECL, @@ -116,72 +124,90 @@ F77_CHAR_ARG_LEN_DECL); F77_RET_T - F77_FUNC (sgetrf, SGETRF) (const octave_idx_type&, const octave_idx_type&, float*, const octave_idx_type&, - octave_idx_type*, octave_idx_type&); + F77_FUNC (sgetrf, SGETRF) (const octave_idx_type&, + const octave_idx_type&, float*, + const octave_idx_type&, + octave_idx_type*, octave_idx_type&); F77_RET_T - F77_FUNC (sgetrs, SGETRS) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, const octave_idx_type&, + F77_FUNC (sgetrs, SGETRS) (F77_CONST_CHAR_ARG_DECL, + const octave_idx_type&, const octave_idx_type&, const float*, const octave_idx_type&, - const octave_idx_type*, float*, const octave_idx_type&, octave_idx_type& + const octave_idx_type*, float*, + const octave_idx_type&, octave_idx_type& F77_CHAR_ARG_LEN_DECL); F77_RET_T - F77_FUNC (sgetri, SGETRI) (const octave_idx_type&, float*, const octave_idx_type&, const octave_idx_type*, + F77_FUNC (sgetri, SGETRI) (const octave_idx_type&, float*, + const octave_idx_type&, const octave_idx_type*, float*, const octave_idx_type&, octave_idx_type&); F77_RET_T - F77_FUNC (sgecon, SGECON) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, float*, + F77_FUNC (sgecon, SGECON) (F77_CONST_CHAR_ARG_DECL, + const octave_idx_type&, float*, const octave_idx_type&, const float&, float&, float*, octave_idx_type*, octave_idx_type& F77_CHAR_ARG_LEN_DECL); F77_RET_T - F77_FUNC (sgelsy, SGELSY) (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*, float&, octave_idx_type&, - float*, const octave_idx_type&, octave_idx_type&); + F77_FUNC (sgelsy, SGELSY) (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*, + float&, octave_idx_type&, float*, + const octave_idx_type&, octave_idx_type&); F77_RET_T - F77_FUNC (sgelsd, SGELSD) (const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, - float*, const octave_idx_type&, float*, - const octave_idx_type&, float*, float&, octave_idx_type&, - float*, const octave_idx_type&, octave_idx_type*, + F77_FUNC (sgelsd, SGELSD) (const octave_idx_type&, const octave_idx_type&, + const octave_idx_type&, float*, + const octave_idx_type&, float*, + const octave_idx_type&, float*, float&, + octave_idx_type&, float*, + const octave_idx_type&, octave_idx_type*, octave_idx_type&); 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_RET_T - F77_FUNC (spocon, SPOCON) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, - float*, const octave_idx_type&, const float&, - float&, float*, octave_idx_type*, - octave_idx_type& F77_CHAR_ARG_LEN_DECL); - F77_RET_T - F77_FUNC (spotrs, SPOTRS) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, - const octave_idx_type&, const float*, - const octave_idx_type&, float*, + 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_RET_T - F77_FUNC (strtri, STRTRI) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, + F77_FUNC (spocon, SPOCON) (F77_CONST_CHAR_ARG_DECL, + const octave_idx_type&, float*, + const octave_idx_type&, const float&, + float&, float*, octave_idx_type*, + octave_idx_type& + F77_CHAR_ARG_LEN_DECL); + F77_RET_T + F77_FUNC (spotrs, SPOTRS) (F77_CONST_CHAR_ARG_DECL, + const octave_idx_type&, const octave_idx_type&, + const float*, const octave_idx_type&, float*, + const octave_idx_type&, octave_idx_type& + F77_CHAR_ARG_LEN_DECL); + + F77_RET_T + F77_FUNC (strtri, STRTRI) (F77_CONST_CHAR_ARG_DECL, + F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, const float*, const octave_idx_type&, octave_idx_type& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); F77_RET_T - F77_FUNC (strcon, STRCON) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, - F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, - const float*, const octave_idx_type&, float&, + F77_FUNC (strcon, STRCON) (F77_CONST_CHAR_ARG_DECL, + F77_CONST_CHAR_ARG_DECL, + F77_CONST_CHAR_ARG_DECL, + const octave_idx_type&, const float*, + const octave_idx_type&, float&, 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 (strtrs, STRTRS) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, - F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, + F77_FUNC (strtrs, STRTRS) (F77_CONST_CHAR_ARG_DECL, + F77_CONST_CHAR_ARG_DECL, + F77_CONST_CHAR_ARG_DECL, + const octave_idx_type&, const octave_idx_type&, const float*, const octave_idx_type&, float*, const octave_idx_type&, octave_idx_type& @@ -196,15 +222,17 @@ F77_RET_T F77_FUNC (strsyl, STRSYL) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, - const float*, const octave_idx_type&, const float*, - const octave_idx_type&, const float*, const octave_idx_type&, - float&, octave_idx_type& + const octave_idx_type&, const octave_idx_type&, + const octave_idx_type&, const float*, + const octave_idx_type&, const float*, + const octave_idx_type&, const float*, + const octave_idx_type&, float&, octave_idx_type& F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); F77_RET_T - F77_FUNC (xslange, XSLANGE) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, + F77_FUNC (xslange, XSLANGE) (F77_CONST_CHAR_ARG_DECL, + const octave_idx_type&, const octave_idx_type&, const float*, const octave_idx_type&, float*, float& F77_CHAR_ARG_LEN_DECL);
--- a/liboctave/fNDArray.cc +++ b/liboctave/fNDArray.cc @@ -199,10 +199,12 @@ F77_FUNC (cffti, CFFTI) (const octave_idx_type&, FloatComplex*); F77_RET_T - F77_FUNC (cfftf, CFFTF) (const octave_idx_type&, FloatComplex*, FloatComplex*); + F77_FUNC (cfftf, CFFTF) (const octave_idx_type&, FloatComplex*, + FloatComplex*); F77_RET_T - F77_FUNC (cfftb, CFFTB) (const octave_idx_type&, FloatComplex*, FloatComplex*); + F77_FUNC (cfftb, CFFTB) (const octave_idx_type&, FloatComplex*, + FloatComplex*); } FloatComplexNDArray
--- a/liboctave/fRowVector.cc +++ b/liboctave/fRowVector.cc @@ -42,13 +42,16 @@ { F77_RET_T F77_FUNC (sgemv, SGEMV) (F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, const octave_idx_type&, const float&, - const float*, const octave_idx_type&, const float*, - const octave_idx_type&, const float&, float*, const octave_idx_type& + const octave_idx_type&, const octave_idx_type&, + const float&, const float*, + const octave_idx_type&, const float*, + const octave_idx_type&, const float&, + float*, const octave_idx_type& F77_CHAR_ARG_LEN_DECL); F77_RET_T - F77_FUNC (xsdot, XSDOT) (const octave_idx_type&, const float*, const octave_idx_type&, - const float*, const octave_idx_type&, float&); + F77_FUNC (xsdot, XSDOT) (const octave_idx_type&, const float*, + const octave_idx_type&, const float*, + const octave_idx_type&, float&); } // Row Vector class.
--- a/liboctave/floatAEPBAL.cc +++ b/liboctave/floatAEPBAL.cc @@ -35,15 +35,17 @@ { 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 (sgebak, SGEBAK) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, - const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, - const float*, const octave_idx_type&, float*, + const octave_idx_type&, const octave_idx_type&, + const octave_idx_type&, const 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/floatCHOL.cc +++ b/liboctave/floatCHOL.cc @@ -41,20 +41,24 @@ extern "C" { 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_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_RET_T - F77_FUNC (spotri, SPOTRI) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, - float*, const octave_idx_type&, octave_idx_type& + F77_FUNC (spotri, SPOTRI) (F77_CONST_CHAR_ARG_DECL, + const octave_idx_type&, float*, + const octave_idx_type&, octave_idx_type& F77_CHAR_ARG_LEN_DECL); F77_RET_T - F77_FUNC (spocon, SPOCON) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, - float*, const octave_idx_type&, const float&, + F77_FUNC (spocon, SPOCON) (F77_CONST_CHAR_ARG_DECL, + const octave_idx_type&, float*, + const octave_idx_type&, const float&, float&, float*, octave_idx_type*, - octave_idx_type& F77_CHAR_ARG_LEN_DECL); + octave_idx_type& + F77_CHAR_ARG_LEN_DECL); #ifdef HAVE_QRUPDATE F77_RET_T
--- a/liboctave/floatLU.cc +++ b/liboctave/floatLU.cc @@ -44,8 +44,9 @@ extern "C" { F77_RET_T - F77_FUNC (sgetrf, SGETRF) (const octave_idx_type&, const octave_idx_type&, float*, - const octave_idx_type&, octave_idx_type*, octave_idx_type&); + F77_FUNC (sgetrf, SGETRF) (const octave_idx_type&, const octave_idx_type&, + float*, const octave_idx_type&, octave_idx_type*, + octave_idx_type&); #ifdef HAVE_QRUPDATE_LUU F77_RET_T
--- a/liboctave/floatQR.cc +++ b/liboctave/floatQR.cc @@ -41,43 +41,55 @@ extern "C" { F77_RET_T - F77_FUNC (sgeqrf, SGEQRF) (const octave_idx_type&, const octave_idx_type&, float*, const octave_idx_type&, - float*, float*, const octave_idx_type&, octave_idx_type&); + F77_FUNC (sgeqrf, SGEQRF) (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 (sorgqr, SORGQR) (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_FUNC (sorgqr, SORGQR) (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&); #ifdef HAVE_QRUPDATE F77_RET_T - F77_FUNC (sqr1up, SQR1UP) (const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, - float*, const octave_idx_type&, float*, const octave_idx_type&, - float*, float*, float*); + F77_FUNC (sqr1up, SQR1UP) (const octave_idx_type&, const octave_idx_type&, + const octave_idx_type&, float*, + const octave_idx_type&, float*, + const octave_idx_type&, float*, float*, float*); F77_RET_T - F77_FUNC (sqrinc, SQRINC) (const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, - float*, const octave_idx_type&, float*, const octave_idx_type&, + F77_FUNC (sqrinc, SQRINC) (const octave_idx_type&, const octave_idx_type&, + const octave_idx_type&, float*, + const octave_idx_type&, float*, + const octave_idx_type&, const octave_idx_type&, const float*, float*); F77_RET_T - F77_FUNC (sqrdec, SQRDEC) (const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, - float*, const octave_idx_type&, float*, const octave_idx_type&, + F77_FUNC (sqrdec, SQRDEC) (const octave_idx_type&, const octave_idx_type&, + const octave_idx_type&, float*, + const octave_idx_type&, float*, + const octave_idx_type&, const octave_idx_type&, float*); F77_RET_T F77_FUNC (sqrinr, SQRINR) (const octave_idx_type&, const octave_idx_type&, - float*, const octave_idx_type&, float*, const octave_idx_type&, + float*, const octave_idx_type&, + float*, const octave_idx_type&, const octave_idx_type&, const float*, float*); F77_RET_T F77_FUNC (sqrder, SQRDER) (const octave_idx_type&, const octave_idx_type&, - float*, const octave_idx_type&, float*, const octave_idx_type&, + float*, const octave_idx_type&, + float*, const octave_idx_type&, const octave_idx_type&, float*); F77_RET_T - F77_FUNC (sqrshc, SQRSHC) (const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, - float*, const octave_idx_type&, float*, const octave_idx_type&, + F77_FUNC (sqrshc, SQRSHC) (const octave_idx_type&, const octave_idx_type&, + const octave_idx_type&, float*, + const octave_idx_type&, float*, + const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, float*);
--- a/liboctave/floatQRP.cc +++ b/liboctave/floatQRP.cc @@ -36,9 +36,10 @@ extern "C" { F77_RET_T - F77_FUNC (sgeqp3, SGEQP3) (const octave_idx_type&, const octave_idx_type&, float*, - const octave_idx_type&, octave_idx_type*, float*, float*, - const octave_idx_type&, octave_idx_type&); + F77_FUNC (sgeqp3, SGEQP3) (const octave_idx_type&, const octave_idx_type&, + float*, const octave_idx_type&, octave_idx_type*, + float*, float*, const octave_idx_type&, + octave_idx_type&); } // It would be best to share some of this code with QR class...
--- a/liboctave/lo-specfun.cc +++ b/liboctave/lo-specfun.cc @@ -55,28 +55,33 @@ { F77_RET_T F77_FUNC (zbesj, ZBESJ) (const double&, const double&, const double&, - const octave_idx_type&, const octave_idx_type&, double*, double*, - octave_idx_type&, octave_idx_type&); + const octave_idx_type&, const octave_idx_type&, + double*, double*, octave_idx_type&, + octave_idx_type&); F77_RET_T F77_FUNC (zbesy, ZBESY) (const double&, const double&, const double&, - const octave_idx_type&, const octave_idx_type&, double*, double*, - octave_idx_type&, double*, double*, octave_idx_type&); + const octave_idx_type&, const octave_idx_type&, + double*, double*, octave_idx_type&, double*, + double*, octave_idx_type&); F77_RET_T F77_FUNC (zbesi, ZBESI) (const double&, const double&, const double&, - const octave_idx_type&, const octave_idx_type&, double*, double*, - octave_idx_type&, octave_idx_type&); + const octave_idx_type&, const octave_idx_type&, + double*, double*, octave_idx_type&, + octave_idx_type&); F77_RET_T F77_FUNC (zbesk, ZBESK) (const double&, const double&, const double&, - const octave_idx_type&, const octave_idx_type&, double*, double*, - octave_idx_type&, octave_idx_type&); + const octave_idx_type&, const octave_idx_type&, + double*, double*, octave_idx_type&, + octave_idx_type&); F77_RET_T F77_FUNC (zbesh, ZBESH) (const double&, const double&, const double&, - const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, double*, - double*, octave_idx_type&, octave_idx_type&); + const octave_idx_type&, const octave_idx_type&, + const octave_idx_type&, double*, double*, + octave_idx_type&, octave_idx_type&); F77_RET_T F77_FUNC (cbesj, cBESJ) (const FloatComplex&, const float&, @@ -106,20 +111,25 @@ octave_idx_type&, octave_idx_type&); F77_RET_T - F77_FUNC (zairy, ZAIRY) (const double&, const double&, const octave_idx_type&, - const octave_idx_type&, double&, double&, octave_idx_type&, octave_idx_type&); + F77_FUNC (zairy, ZAIRY) (const double&, const double&, + const octave_idx_type&, const octave_idx_type&, + double&, double&, octave_idx_type&, + octave_idx_type&); F77_RET_T F77_FUNC (cairy, CAIRY) (const float&, const float&, const octave_idx_type&, - const octave_idx_type&, float&, float&, octave_idx_type&, octave_idx_type&); + const octave_idx_type&, float&, float&, + octave_idx_type&, octave_idx_type&); F77_RET_T - F77_FUNC (zbiry, ZBIRY) (const double&, const double&, const octave_idx_type&, - const octave_idx_type&, double&, double&, octave_idx_type&); + F77_FUNC (zbiry, ZBIRY) (const double&, const double&, + const octave_idx_type&, const octave_idx_type&, + double&, double&, octave_idx_type&); F77_RET_T F77_FUNC (cbiry, CBIRY) (const float&, const float&, const octave_idx_type&, - const octave_idx_type&, float&, float&, octave_idx_type&); + const octave_idx_type&, float&, float&, + octave_idx_type&); F77_RET_T F77_FUNC (xdacosh, XDACOSH) (const double&, double&);
--- a/liboctave/oct-convn.cc +++ b/liboctave/oct-convn.cc @@ -43,17 +43,17 @@ #define FORWARD_IMPL(T,R,f,F) \ extern "C" \ F77_RET_T \ -F77_FUNC (f##conv2o, F##CONV2O) (const octave_idx_type&, const octave_idx_type&, \ - const T*, \ - const octave_idx_type&, const octave_idx_type&, \ - const R*, T *); \ +F77_FUNC (f##conv2o, F##CONV2O) (const octave_idx_type&, \ + const octave_idx_type&, \ + const T*, const octave_idx_type&, \ + const octave_idx_type&, const R*, T *); \ \ extern "C" \ F77_RET_T \ -F77_FUNC (f##conv2i, F##CONV2I) (const octave_idx_type&, const octave_idx_type&, \ - const T*, \ - const octave_idx_type&, const octave_idx_type&, \ - const R*, T *); \ +F77_FUNC (f##conv2i, F##CONV2I) (const octave_idx_type&, \ + const octave_idx_type&, \ + const T*, const octave_idx_type&, \ + const octave_idx_type&, const R*, T *); \ \ template <> void \ convolve_2d<T, R> (const T *a, octave_idx_type ma, octave_idx_type na, \
--- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,8 @@ +2011-01-13 John W. Eaton <jwe@octave.org> + + * DLD-FUNCTIONS/__pchip_deriv__.cc, DLD-FUNCTIONS/dot.cc, + octave.cc: Style fixes. + 2011-01-12 David Bateman <dbateman@free.fr> ls-mat5.cc (int save_mat5_element_length (const octave_value&,
--- a/src/DLD-FUNCTIONS/__pchip_deriv__.cc +++ b/src/DLD-FUNCTIONS/__pchip_deriv__.cc @@ -35,13 +35,15 @@ extern "C" { F77_RET_T - F77_FUNC (dpchim, DPCHIM) (const octave_idx_type& n, const double *x, const double *f, - double *d, const octave_idx_type &incfd, + F77_FUNC (dpchim, DPCHIM) (const octave_idx_type& n, const double *x, + const double *f, double *d, + const octave_idx_type &incfd, octave_idx_type *ierr); F77_RET_T - F77_FUNC (pchim, PCHIM) (const octave_idx_type& n, const float *x, const float *f, - float *d, const octave_idx_type &incfd, + F77_FUNC (pchim, PCHIM) (const octave_idx_type& n, const float *x, + const float *f, float *d, + const octave_idx_type& incfd, octave_idx_type *ierr); }
--- a/src/DLD-FUNCTIONS/dot.cc +++ b/src/DLD-FUNCTIONS/dot.cc @@ -34,43 +34,44 @@ { F77_RET_T F77_FUNC (ddot3, DDOT3) (const octave_idx_type&, const octave_idx_type&, - const octave_idx_type&, - const double*, const double *, double *); + const octave_idx_type&, const double*, + const double*, double*); F77_RET_T F77_FUNC (sdot3, SDOT3) (const octave_idx_type&, const octave_idx_type&, - const octave_idx_type&, - const float*, const float *, float *); + const octave_idx_type&, const float*, + const float*, float*); F77_RET_T F77_FUNC (zdotc3, ZDOTC3) (const octave_idx_type&, const octave_idx_type&, - const octave_idx_type&, - const Complex*, const Complex *, Complex *); + const octave_idx_type&, const Complex*, + const Complex*, Complex*); F77_RET_T F77_FUNC (cdotc3, CDOTC3) (const octave_idx_type&, const octave_idx_type&, - const octave_idx_type&, - const FloatComplex*, const FloatComplex *, FloatComplex *); + const octave_idx_type&, const FloatComplex*, + const FloatComplex*, FloatComplex*); F77_RET_T F77_FUNC (dmatm3, DMATM3) (const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, - const double*, const double *, double *); + const double*, const double*, double*); F77_RET_T F77_FUNC (smatm3, SMATM3) (const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, - const float*, const float *, float *); + const float*, const float*, float*); F77_RET_T F77_FUNC (zmatm3, ZMATM3) (const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, - const Complex*, const Complex *, Complex *); + const Complex*, const Complex*, Complex*); F77_RET_T F77_FUNC (cmatm3, CMATM3) (const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, - const FloatComplex*, const FloatComplex *, FloatComplex *); + const FloatComplex*, const FloatComplex*, + FloatComplex*); } static void
--- a/src/octave.cc +++ b/src/octave.cc @@ -73,7 +73,8 @@ // Kluge. extern "C" F77_RET_T -F77_FUNC (xerbla, XERBLA) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type& +F77_FUNC (xerbla, XERBLA) (F77_CONST_CHAR_ARG_DECL, + const octave_idx_type& F77_CHAR_ARG_LEN_DECL); extern void install_builtins (void);