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

Timestamp:

Jun 8, 2000, 4:55:52 PM (25 years ago)

Author:

ansari

Message:

Modif + correction LapackLinSolve, Reza 8/6/2000

File:

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

trunk/SophyaExt/LinAlg/intflapack.cc

@@ -15 +15 @@
 
 template <class T>
-TArray<T>& LapackServer<T>::LinSolve(TArray<T>& a, TArray<T> & b)
+int LapackServer<T>::LinSolve(TArray<T>& a, TArray<T> & b)
 {
   if ( ( a.NbDimensions() != 2 ) || ( b.NbDimensions() != 2 ) )
@@ -26 +26 @@
   if ( a.Size(rowa) !=  a.Size(cola)) 
     throw(SzMismatchError("LapackServer::LinSolve(a,b) a Not a square Array"));
-  if ( a.Size(rowa) !=  b.Size(rowa)) 
+  if ( a.Size(rowa) !=  b.Size(rowb)) 
     throw(SzMismatchError("LapackServer::LinSolve(a,b) RowSize(a <> b) "));
 
@@ -56 +56 @@
   }
   delete[] ipiv;
-  return(b);
+  return(info);
 }