Changeset 3005 in Sophya for trunk/SophyaExt/LinAlg/intflapack.cc

Timestamp:

Jul 4, 2006, 5:47:58 PM (19 years ago)

Author:

ansari

Message:

inclusion fichier sspvflags.h pour gestion LAPACK_V2_EXTSOP , fait, link OK (sur OSF) mais SVD semble avoir change d'interface - Reza 4/7/2006

File:

• trunk/SophyaExt/LinAlg/intflapack.cc (modified) (5 diffs)

trunk/SophyaExt/LinAlg/intflapack.cc

@@ -3 +3 @@
 #include "sopnamsp.h"
 #include "intflapack.h"
+#include "sspvflags.h"
+
 #include "tvector.h"
 #include "tmatrix.h"
@@ -614 +616 @@
 int LapackServer<T>::LeastSquareSolveSVD_DC(TMatrix<T>& a,TMatrix<T>& b,TVector<r_8>& s,int_4& rank,r_8 rcond)
 {
+#ifdef LAPACK_V2_EXTSOP 
+  throw NotAvailableOperation("LapackServer::LeastSquareSolveSVD_DC(a,b) NOT implemented in LapackV2") ;
+#else
   if ( ( a.NbDimensions() != 2 ) )
     throw(SzMismatchError("LapackServer::LeastSquareSolveSVD_DC(a,b) a != 2"));
@@ -726 +731 @@
   }
   return(info);
+#endif
 }
 
@@ -904 +910 @@
 int LapackServer<T>::SVD_DC(TMatrix<T>& a, TVector<r_8>& s, TMatrix<T>& u, TMatrix<T>& vt)
 {
-
+#ifdef LAPACK_V2_EXTSOP 
+  throw NotAvailableOperation("LapackServer::SVD_DC(a,b) NOT implemented in LapackV2") ;
+#else
   if ( !a.IsPacked() )
      throw(SzMismatchError("LapackServer::SVD_DC(a, ...) a Not Packed "));
@@ -988 +996 @@
   }
   return(info);
+#endif
 }