Changeset 2554 in Sophya for trunk/SophyaExt/LinAlg/intflapack.h

Timestamp:

Jul 19, 2004, 6:09:30 PM (21 years ago)

Author:

cmv

Message:

intro inversion matrices symetriques + ilaenv (cmv 19/07/04)

File:

• trunk/SophyaExt/LinAlg/intflapack.h (modified) (3 diffs)

trunk/SophyaExt/LinAlg/intflapack.h

@@ -14 +14 @@
 
   virtual int LinSolve(TArray<T>& a, TArray<T> & b); 
+  virtual int LinSolveSym(TArray<T>& a, TArray<T> & b); 
   virtual int LeastSquareSolve(TArray<T>& a, TArray<T> & b); 
 
@@ -30 +31 @@
   int SVDDriver(TArray<T>& a, TArray<T> & s, 
                 TArray<T>* up=NULL, TArray<T> * vtp=NULL);
+  int_4 ilaenv_en_C(int_4 ispec,char *name,char *opts,int_4 n1,int_4 n2,int_4 n3,int_4 n4);
 
   int wspace_size_factor;
@@ -41 +43 @@
 inline int LapackLinSolve(TArray<T>& a, TArray<T> & b)
 { LapackServer<T> lps; return( lps.LinSolve(a, b) );  }
+
+/*! \ingroup LinAlg
+    \fn LapackLinSolveSym(TArray<T>&, TArray<T> &)
+    \brief Solves the linear system A*X = B with A symetric using LapackServer. 
+*/
+template <class T>
+inline int LapackLinSolveSym(TArray<T>& a, TArray<T> & b)
+{ LapackServer<T> lps; return( lps.LinSolveSym(a, b) );  }
 
 /*! \ingroup LinAlg