Mercurial > hg > octave-lyh
diff liboctave/fCMatrix.cc @ 11518:141b3fb5cef7
style fixes
| author | John W. Eaton <jwe@octave.org> |
|---|---|
| date | Thu, 13 Jan 2011 16:52:30 -0500 |
| parents | 53edbf95fbb6 |
| children | fd0a3ac60b0e |
line wrap: on
line diff
--- 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); }