Changeset 807 in Sophya for trunk/SophyaProg/Tests/arrt.cc

Timestamp:

Apr 3, 2000, 7:44:06 PM (25 years ago)

Author:

ansari

Message:

Amelioration tests - Adaptation modifs TArray<T>,PPersist - Reza 03/04/2000

File:

• trunk/SophyaProg/Tests/arrt.cc (modified) (6 diffs)

trunk/SophyaProg/Tests/arrt.cc

@@ -7 +7 @@
 #include "tarrinit.h"
 #include "tarray.h"
+#include "fioarr.h"
 #include "matharr.h"
 #include "timing.h"
 
+
+void tstioarr(TArray<int_4> & ia, TArray<int_4> & ib, TArray<int_4> & ic);
+void tstmtx();
 
 int main(int narg, char* arg[])
@@ -21 +25 @@
   int i,j,k;
 
-  if (narg > 1) n = atoi(arg[1]);
+  bool tio = false;
+  if (narg > 1) tio = true;
 
-  
   try {
   cout << "\n -----> Testing TArray <---- " << endl;  
@@ -32 +36 @@
   cout << " ----- matrix IA = \n " << ia << endl;
   // sub array extraction, Range(2,3) : starting position=2 , size=3
-  TArray<int_4> ic = ia(Range(2,3),Range(1,2));
+  TArray<int_4> ic = ia(Range(2,3),Range(1,2),Range(0));
   cout << " ----- matrix IC IA(Range(2,3),Range(1,2)) = \n " << ic << endl;
   // we set the sub-array to zero, this should reflect in the original array
@@ -48 +52 @@
   // Sub array extraction  X from 1 , size 4 - Y from 2 , size 3 , in Z default, from 0, size 1
   // we multiply this sub-array elements by 3
-  ib(Range(1,4),Range(2,3)) *= 3;
+  ib(Range(1,4),Range(2,3), Range(0)) *= 3;
   cout << " -- matrix IB , Apres ib(Range(1,3),Range(2,1))*=3 : " << endl;
   cout << ib;
@@ -63 +67 @@
   cout << " ------ sin(fa2=fa*2*Pi) = \n" << sin(fa2) << endl;
   cout << " ------ cos(fa2=fa*2*Pi) = \n" << cos(fa2) << endl;
+
+  if (tio) tstioarr(ia, ib, ic);
+
   }
   catch (PThrowable exc) {
@@ -72 +79 @@
   cout << " ---------------  END of Programme -------------- " << endl;
 }
+
+void tstioarr(TArray<int_4> & ia, TArray<int_4> & ib, TArray<int_4> & ic)
+{
+  cout << " ------ tstioarr(TArray<int_4> & ia, TArray<int_4> & ib, TArray<int_4> & ic) ---- " << endl;
+  {
+  cout << " >>>>>> Writing in  arrt.ppf <<<<<<< " << endl;
+  POutPersist pos("arrt.ppf");
+  // We write  the three arrays in the stream 
+  pos << ia << ib << ic;
+  cout << " >>>>>> Writing in  arrtn.ppf with names <<<<<<<" << endl;
+  POutPersist posn("arrtn.ppf");
+  string tag = "ArrIA";
+  posn.PutObject(ia, tag);
+  tag = "ArrIB";
+  posn.PutObject(ib, tag);
+  tag = "ArrIC";
+  posn.PutObject(ic, tag);
+  }
+
+  {
+  cout << " >>>>>>> Reading from  arrt.ppf  <<<<< " << endl;
+  PInPersist pis("arrt.ppf");
+  TArray<int_4> iaa, ibb, icc; 
+  // We read the three arrays from the stream 
+  pis >> iaa >> ibb >> icc;
+  cout << " ----- matrix IAA = \n " << iaa << endl;
+  cout << " ----- matrix IBB = \n " << ibb << endl;
+  cout << " ----- matrix ICC = \n " << icc << endl;
+  icc = 12;
+  cout << " ----- matrix ICC (=12) = \n " << icc << endl;
+  cout << " ----- matrix IAA (ICC=12) = \n " << iaa << endl;
+  }
+
+  {
+  cout << " >>>>>>> Reading from  arrtn.ppf  <<<<< " << endl;
+  PInPersist pis("arrtn.ppf");
+  TArray<int_4> iaa, ibb, icc; 
+  // We read the three arrays from the stream 
+  string tag = "ArrIC";
+  pis.GetObject(icc, tag);
+  tag = "ArrIB";
+  pis.GetObject(ibb, tag);
+  tag = "ArrIA";
+  pis.GetObject(iaa, tag);
+
+  cout << " ----- matrix IAAA = \n " << iaa << endl;
+  cout << " ----- matrix IBBB = \n " << ibb << endl;
+  cout << " ----- matrix ICCC = \n " << icc << endl;
+  icc = 68;
+  cout << " ----- matrix ICCC (=12) = \n " << icc << endl;
+  cout << " ----- matrix IAAA (ICC=12) = \n " << iaa << endl;
+  }
+
+
+}