Changeset 1081 in Sophya for trunk/SophyaLib/TArray/tmatrix.cc

Timestamp:

Jul 24, 2000, 2:51:27 PM (25 years ago)

Author:

ansari

Message:

Adaptation modifs MuTyV et services de copie entre tableaux de type different - Reza 24/7/2000

File:

• trunk/SophyaLib/TArray/tmatrix.cc (modified) (3 diffs)

trunk/SophyaLib/TArray/tmatrix.cc

@@ -1 @@
-// $Id: tmatrix.cc,v 1.12 2000-05-02 15:49:29 ansari Exp $
+// $Id: tmatrix.cc,v 1.13 2000-07-24 12:51:27 ansari Exp $
 //                         C.Magneville          04/99
 #include "machdefs.h"
@@ -99 +99 @@
   UpdateMemoryMapping(a, mm);
 }
+
+template <class T>
+TMatrix<T>::TMatrix(const BaseArray& a)
+: TArray<T>()
+{
+  SetBA(a);
+}
+
+
 
 //! Destructor
@@ -125 +134 @@
   return(*this);
 }
+
+template <class T>
+TArray<T>& TMatrix<T>::SetBA(const BaseArray& a)
+{
+  if (a.NbDimensions() > 2) 
+    throw SzMismatchError("TMatrix<T>::SetBA(const BaseArray& a) a.NbDimensions() > 2");
+  TArray<T>::SetBA(a);
+  if (NbDimensions() == 1) {
+    size_[1] = 1;
+    step_[1] = size_[0]*step_[0];
+    ndim_ = 2;
+  }
+  UpdateMemoryMapping(*this, SameMemoryMapping);
+  return(*this);
+}
+
+
 
 //! Resize the matrix