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

Timestamp:

Jul 27, 2004, 9:59:05 AM (21 years ago)

Author:

cmv

Message:

• change argument for SVD_DC
• add Least Square with SVD DC (cmv 27/07/04)

File:

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

trunk/SophyaExt/LinAlg/intflapack.h

@@ -17 +17 @@
   virtual int LinSolveSym(TArray<T>& a, TArray<T> & b); 
   virtual int LeastSquareSolve(TArray<T>& a, TArray<T> & b); 
+  virtual int LeastSquareSolveSVD_DC(TMatrix<T>& a,TMatrix<T>& b,TVector<r_8>& s,int_4& rank,r_8 rcond=-1.); 
 
   virtual int SVD(TArray<T>& a, TArray<T> & s); 
@@ -66 +67 @@
 
 /*! \ingroup LinAlg
+    \fn LapackLeastSquareSolveSVD_DC
+    \brief Solves the linear least squares problem A*X = B by SVD
+*/
+template <class T>
+inline int LapackLeastSquareSolveSVD_DC(TMatrix<T>& a,TMatrix<T>& b,TVector<r_8>& s,int_4& rank,r_8 rcond=-1.)
+{ LapackServer<T> lps; return( lps.LeastSquareSolveSVD_DC(a,b,s,rank,rcond) );  }
+
+/*! \ingroup LinAlg
     \fn LapackSVD(TArray<T>&, TArray<T> &)
     \brief SVD decomposition using LapackServer.