Changeset 291 in Sophya for trunk/SophyaLib/NTools/tmatrix.cc

Timestamp:

May 5, 1999, 7:51:54 AM (26 years ago)

Author:

ansari

Message:

Pb CMV/FIO_Matrix::Write/Read resolu Reza 5/5/99

File:

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

trunk/SophyaLib/NTools/tmatrix.cc

@@ -1 @@
-// $Id: tmatrix.cc,v 1.3 1999-05-03 16:55:22 ansari Exp $
+// $Id: tmatrix.cc,v 1.4 1999-05-05 05:51:54 ansari Exp $
 //                         C.Magneville          04/99
 #include "machdefs.h"
@@ -213 +213 @@
 {
 // On lit les 3 premiers uint_8
-uint_4 itab[2];
-is.Get(itab,2);
-if (dobj == NULL) dobj = new TMatrix<T>(itab[0],itab[1]);
-else dobj->ReSize(itab[0],itab[1]);
+//  0: Numero de version,  1 : NRows,  2 : NCol
+uint_4 itab[3];
+is.Get(itab,3);
+if (dobj == NULL) dobj = new TMatrix<T>(itab[1],itab[2]);
+else dobj->ReSize(itab[1],itab[2]);
 // On lit le NDataBlock
-//cmv   encore des problemes avec les consteries
-//FIO_NDataBlock<T> fio_nd(&dobj->DataBlock());
-//fio_nd.ReadSelf(is);
+FIO_NDataBlock<T> fio_nd(&dobj->DataBlock());
+fio_nd.Read(is);
 }
 
@@ -227 +227 @@
 {
 if (dobj == NULL)   return;
-//  On ecrit 2 uint_4 .... 0 : NRows,  1 : NCol
-uint_4 itab[2];
-itab[0] = dobj->NRows();
-itab[1] = dobj->NCols();
-os.Put(itab,2);
+//  On ecrit 3 uint_4 .... 
+//  0: Numero de version,  1 : NRows,  2 : NCol
+uint_4 itab[3];
+ itab[0] = 1;  // Numero de version a 1
+itab[1] = dobj->NRows();
+itab[2] = dobj->NCols();
+os.Put(itab,3);
 // On ecrit le NDataBlock
 //cmv   encore des problemes avec les consteries
-//FIO_NDataBlock<T> fio_nd(&dobj->DataBlock());
-//fio_nd.WriteSelf(os);
+FIO_NDataBlock<T> fio_nd(&dobj->DataBlock());
+fio_nd.Write(os);
 }