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

Timestamp:

Apr 5, 2000, 5:45:21 PM (25 years ago)

Author:

ansari

Message:

Debut LapackServer avec LinSolve - Reza 5/4/2000

File:

• trunk/SophyaExt/LinAlg/intflapack.h (modified) (1 diff)

trunk/SophyaExt/LinAlg/intflapack.h

@@ -5 +5 @@
 #include "tarray.h"
 
+namespace SOPHYA {
+
+template <class T>
+class LapackServer { 
+public:
+  TArray<T>& LinSolve(TArray<T>& a, TArray<T> & b); 
+};
+
+template <class T>
+inline TArray<T>& LapackLinSolve(TArray<T>& a, TArray<T> & b)
+  { LapackServer<T> lps; return( lps.LinSolve(a, b) );  }
+
+
+} // Fin du namespace
 
 void rztest_lapack(TArray<r_4>& a, TArray<r_4>& b);
-// void rztest_lapack(TMatrix<r_8>& a, TMatrix<r_8>& b);
 
 #endif