Changeset 2906 in Sophya for trunk

Timestamp:

Jan 16, 2006, 2:35:31 PM (20 years ago)

Author:

cmv

Message:

throw sur erreur lapack cmv 16/01/2006

Location:

trunk/SophyaExt/LinAlg

Files:

• intflapack.cc (modified) (9 diffs)
• intflapack.h (modified) (2 diffs)

trunk/SophyaExt/LinAlg/intflapack.cc

@@ -285 +285 @@
 ////////////////////////////////////////////////////////////////////////////////////
 template <class T>
-LapackServer<T>::LapackServer()
+LapackServer<T>::LapackServer(bool throw_on_error)
+  : Throw_On_Error(throw_on_error)
 {
   SetWorkSpaceSizeFactor();
@@ -371 +372 @@
   }
   delete[] ipiv;
+  if(info!=0 && Throw_On_Error) {
+    char serr[128]; sprintf(serr,"LinSolve_Error info=%d",info);
+    throw NotFoundExc(serr);
+  }
   return(info);
 }
@@ -455 +460 @@
   if(work) delete[] work;
   delete[] ipiv;
+  if(info!=0 && Throw_On_Error) {
+    char serr[128]; sprintf(serr,"LinSolveSym_Error info=%d",info);
+    throw NotFoundExc(serr);
+  }
   return(info);
 }
@@ -550 +559 @@
   }
   if(work) delete [] work;
+  if(info!=0 && Throw_On_Error) {
+    char serr[128]; sprintf(serr,"LeastSquareSolve_Error info=%d",info);
+    throw NotFoundExc(serr);
+  }
   return(info);
 }
@@ -708 +721 @@
 
   if(work) delete [] work; if(iwork) delete [] iwork;
+  if(info!=0 && Throw_On_Error) {
+    char serr[128]; sprintf(serr,"LeastSquareSolveSVD_DC_Error info=%d",info);
+    throw NotFoundExc(serr);
+  }
   return(info);
 }
@@ -874 +891 @@
   if (jobu == 'N') delete up;
   if (jobvt == 'N') delete vtp;
+  if(info!=0 && Throw_On_Error) {
+    char serr[128]; sprintf(serr,"SVDDriver_Error info=%d",info);
+    throw NotFoundExc(serr);
+  }
   return(info);
 }
@@ -962 +983 @@
 
   if(work) delete [] work; if(iwork) delete [] iwork;
+  if(info!=0 && Throw_On_Error) {
+    char serr[128]; sprintf(serr,"SVD_DC_Error info=%d",info);
+    throw NotFoundExc(serr);
+  }
   return(info);
 }
@@ -1040 +1065 @@
 
   if(work) delete [] work;
+  if(info!=0 && Throw_On_Error) {
+    char serr[128]; sprintf(serr,"LapackEigenSym_Error info=%d",info);
+    throw NotFoundExc(serr);
+  }
   return(info);
 }
@@ -1146 +1175 @@
 
   if(work) delete [] work;
+  if(info!=0 && Throw_On_Error) {
+    char serr[128]; sprintf(serr,"LapackEigen_Error info=%d",info);
+    throw NotFoundExc(serr);
+  }
   return(info);
 }

trunk/SophyaExt/LinAlg/intflapack.h

@@ -11 +11 @@
 class LapackServer { 
 public:
-  LapackServer();
+  LapackServer(bool throw_on_error=false);
   virtual ~LapackServer();
 
@@ -44 +44 @@
 
   int wspace_size_factor;
+  bool Throw_On_Error;
 };