Changeset 302 in Sophya for trunk/SophyaLib/NTools/tmatrix.cc

Timestamp:

May 18, 1999, 2:58:26 PM (26 years ago)

Author:

ansari

Message:

cmv 18/5/99

File:

• trunk/SophyaLib/NTools/tmatrix.cc (modified) (4 diffs)

trunk/SophyaLib/NTools/tmatrix.cc

@@ -1 @@
-// $Id: tmatrix.cc,v 1.6 1999-05-18 12:23:13 ansari Exp $
+// $Id: tmatrix.cc,v 1.7 1999-05-18 12:58:24 ansari Exp $
 //                         C.Magneville          04/99
 #include "machdefs.h"
@@ -9 +9 @@
 #include "tmatrix.h"
 #include "objfio.h"
-#include "generalfit.h"
 
 using namespace PlanckDPC;
@@ -166 +165 @@
 ////////////////////////////////////////////////////////////////
 //**** Pour inversion
+r_8 TMatrix<r_8>::GausPiv(TMatrix<r_8>& a, TMatrix<r_8>& b)
+// Pivot de Gauss
+// * Attention: egcs impose que cette fonction soit mise dans le .cc
+//              avant ::Inverse() (car Inverse() l'utilise)
+{
+Matrix A(a);
+Matrix B(b);
+return (r_8) Matrix::GausPiv(A,B);
+}
+
 TMatrix<r_8> TMatrix<r_8>::Inverse() const
 // Inversion
@@ -177 +186 @@
 }
 
-double TMatrix<r_8>::GausPiv(TMatrix<r_8>& a, TMatrix<r_8>& b)
-// Pivot de Gauss
-{
-Matrix A(a);
-Matrix B(b);
-return Matrix::GausPiv(A,B);
-}
-
+#include "generalfit.h"
 //////////////////////////////////////////////////////////
 //**** Residus des fits