Changeset 788 in Sophya for trunk/SophyaExt/LinAlg

Timestamp:

Mar 20, 2000, 7:23:27 PM (26 years ago)

Author:

ansari

Message:

Correction bug, / TArray<T> Reza 20/3/2000

File:

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

trunk/SophyaExt/LinAlg/intflapack.cc

@@ -17 +17 @@
   if ( aa.SizeX() !=  aa.SizeY()) throw(SzMismatchError("rztest_lapack(TMatrix<r_4> A Not a square Matrix"));
   if ( bb.NbDimensions() != 2 ) throw(SzMismatchError("rztest_lapack(TMatrix<r_4> A Not a Matrix"));
-  if ( bb.SizeY() !=  aa.SizeY() ) throw(SzMismatchError("rztest_lapack(TMatrix<r_4> A <> B "));
+  if ( bb.SizeX() !=  aa.SizeX() ) throw(SzMismatchError("rztest_lapack(TMatrix<r_4> A <> B "));
   if ( !bb.IsPacked() || !bb.IsPacked() ) 
     throw(SzMismatchError("rztest_lapack(TMatrix<r_4> Not packed A or B "));
   
-  int_4 n = aa.SizeY();
-  int_4 nrhs = bb.SizeX();
+  int_4 n = aa.SizeX();
+  int_4 nrhs = bb.SizeY();
   int_4 lda = n;
-  int_4 ldb = bb.SizeY();
+  int_4 ldb = bb.SizeX();
   int_4 info;
   int_4* ipiv = new int_4[n];