Mercurial > octave-nkf

diff liboctave/fCMatrix.cc @ 11518:141b3fb5cef7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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	Thu Jan 13 22:51:09 2011 +0100
+++ b/liboctave/fCMatrix.cc	Thu Jan 13 16:52:30 2011 -0500
@@ -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);
 }