Changeset 786 in Sophya for trunk

Timestamp:

Mar 16, 2000, 7:37:04 PM (26 years ago)

Author:

ansari

Message:

Programmes test de TArray<T> Reza 16/3/2000

Location:

trunk/SophyaProg/Tests

Files:

• arrt.cc (added)
• lpk.cc (modified) (2 diffs)

trunk/SophyaProg/Tests/lpk.cc

@@ -29 +29 @@
     for(j=0; j<n; j++)  a(i,j,0) = GauRnd(0., 1.);
   
-  TArray<r_4> x(1,n), b(1,n);
+  TArray<r_4> x(1,n), b(n,n);
   r_4 sum ;
   for(i=0; i<n; i++) x(0,i,0) = GauRnd(2., 1.5);
@@ -57 +57 @@
   }  
   
-  try {
-  cout << "\n -----> Testing TArray <---- " << endl;  
-  TArray<int_4> ia(6,4); 
-  TArray<int_4> ib(2,3);
-  Sequence seq(10., 2.);
-  ia = seq;
-  ib = 5;
-  cout << " ----- matrix IA = \n " << ia << endl;
-  cout << " ----- matrix IB = \n " << ib << endl;
-  uint_4 pos[5];
-  uint_4 sz[5];
-  pos[0] = 3;  pos[1] = 1;
-  sz[0] = 3;  sz[1] = 2;
-  TArray<int_4> ic = ia.SubArray(2, sz, pos);
-  cout << " ----- matrix IC IA(3,2,3,1) = \n " << ic << endl;
-  ic = 0;
-  cout << " ----- matrix IA = \n " << ia << endl;
-  }
-  catch (PThrowable exc) {
-    cerr << " catched Exception " << exc.Msg() << endl;
-  }  
-  catch (...) {
-    cerr << " catched unknown (...) exception " << endl; 
-  }  
   cout << " ---------------  END of Programme -------------- " << endl;
 }