Index: l_tests/tol/cint/test_0001/test.tol
===================================================================
--- tol_tests/tol/cint/test_0001/test.tol	(revision 3b95747483fd956ea0025a683497a0480a60d4c3)
+++ 	(revision )
@@ -1,76 +1,0 @@
-//////////////////////////////////////////////////////////////////////////////
-// FILE   : test.tol
-// PURPOSE: test for CINT API
-//////////////////////////////////////////////////////////////////////////////
-
-Text email_ = "vdebuen@tol-project.org"; 
-Text link_ = "";
-Text summary_ = "test for CINT API" ;
-
-
-//Write here the initial test TOL code if needed
-
-Real numErr0 = Copy(NError);
-
-#Require TolCint;
-
-Real N = 1000000;
-
-NameBlock TolCint::@Module::Load("tools.cpp");
-
-Real t0 = Copy(Time);
-Real x.cint = Cint.calc("sum_harmonic("<<N+")");
-Real t.cint = Copy(Time)-t0;
-
-WriteLn("Time for evaluation of sum_harmonic("<<N+") with Cint = "<<t.cint);
-
-#Embed "tools.tol";
-
-Real t0 := Copy(Time);
-Real x.tol = sum_harmonic_cycle(N);
-Real t.tol = Copy(Time)-t0;
-
-WriteLn("Time for evaluation of sum_harmonic_cycle("<<N+") with TOL cycle = "<<t.tol);
-
-Real t0 := Copy(Time);
-Real x.mat = sum_harmonic_matrix(N);
-Real t.mat = Copy(Time)-t0;
-
-WriteLn("Time for evaluation of sum_harmonic_matrix("<<N+") with TOL matrix trick = "<<t.mat);
-
-Real numErr1 = Copy(NError);
-
-//Extented information about test behaviour
-Set partialResults_ = 
-[[
-  numErr0,
-  numErr1,
-  N,
-  x.cint,
-  x.tol,
-  x.mat,
-  t.cint,
-  t.tol,
-  t.mat
-]];
-
-//This is a messure of the success of the test 
-Real quality_ = And(
-  numErr0 == numErr1, 
-  x.cint == x.tol, 
-  x.cint == x.mat);
-
-//Return the results 
-Set resultStr_ = @strTestStatus(summary_, link_, quality_,
-                  "Partial results = "<<partialResults_,
-                  "NO DBServerType", "NO DBServerHost", "NO DBAlias",
-                  email_);
-WriteLn(""<<resultStr_);
-WriteLn("NObject="<<NObject);
-WriteLn("NCore="<<NCore);
-resultStr_
-/* */
-
-
-
-
Index: l_tests/tol/cint/test_0001/tools.cpp
===================================================================
--- tol_tests/tol/cint/test_0001/tools.cpp	(revision 3b95747483fd956ea0025a683497a0480a60d4c3)
+++ 	(revision )
@@ -1,14 +1,0 @@
-////////////////////////////////////////////////////////////////////////////////
-double sum_harmonic(double n)
-////////////////////////////////////////////////////////////////////////////////
-{
-  int i=0;
-  double zz = 0;
-  for(i=1; i<=n; i++)
-  {
-    zz += pow(i,-2);
-  };
-  return(zz);
-};
-
-
Index: l_tests/tol/cint/test_0001/tools.tol
===================================================================
--- tol_tests/tol/cint/test_0001/tools.tol	(revision 3b95747483fd956ea0025a683497a0480a60d4c3)
+++ 	(revision )
@@ -1,24 +1,0 @@
-////////////////////////////////////////////////////////////////////////////////
-Real sum_harmonic_cycle(Real n)
-////////////////////////////////////////////////////////////////////////////////
-{
-  Real i=1;
-  Real zz = 0;
-  While(i<=n,
-  {
-    zz := zz + i^-2;
-    i := i+1
-  });
-  Copy(zz)
-};
-
-////////////////////////////////////////////////////////////////////////////////
-Real sum_harmonic_matrix(Real n)
-////////////////////////////////////////////////////////////////////////////////
-{
-  Matrix aux1 = DifEq(1/(1-B),Constant(n,1,1));
-  Matrix aux2 = RPow(aux1, -2);
-  Matrix aux3 = DifEq(1/(1-B),aux2);
-  MatDat(aux3,n,1)
-};
-
Index: l_tests/tol/cint/test_0002/test.tol
===================================================================
--- tol_tests/tol/cint/test_0002/test.tol	(revision 3b95747483fd956ea0025a683497a0480a60d4c3)
+++ 	(revision )
@@ -1,55 +1,0 @@
-//////////////////////////////////////////////////////////////////////////////
-// FILE   : test.tol
-// PURPOSE: test for CINT API
-//////////////////////////////////////////////////////////////////////////////
-
-Text email_ = "vdebuen@tol-project.org"; 
-Text link_ = "";
-Text summary_ = "test for CINT API" ;
-
-
-//Write here the initial test TOL code if needed
-
-Real numErr0 = Copy(NError);
-
-#Require TolCint;
-
-NameBlock TolCint::@Module::Load("tools.cpp");
-
-Real x.1 = Cint.exec_text("
-  my_inequation ineq_1( 0,2); 
-  my_inequation ineq_2(-1,1); 
-  0;
-");
-Real x.2 = Cint.calc("ineq_1.constraint(12,17)");
-Real x.3 = Cint.calc("ineq_2.constraint(12,17)");
-
-
-Real numErr1 = Copy(NError);
-
-//Extented information about test behaviour
-Set partialResults_ = 
-[[
-  numErr0,
-  numErr1,
-  x.2,
-  x.3
-]];
-
-//This is a messure of the success of the test 
-Real quality_ = And(numErr0 == numErr1, x.2 == -9, x.3 == -1348);
-
-//Return the results 
-Set resultStr_ = @strTestStatus(summary_, link_, quality_,
-                  "Partial results = "<<partialResults_,
-                  "NO DBServerType", "NO DBServerHost", "NO DBAlias",
-                  email_);
-WriteLn(""<<resultStr_);
-WriteLn("NObject="<<NObject);
-WriteLn("NCore="<<NCore);
-resultStr_
-/* */
-
-
-
-
Index: l_tests/tol/cint/test_0002/tools.cpp
===================================================================
--- tol_tests/tol/cint/test_0002/tools.cpp	(revision 3b95747483fd956ea0025a683497a0480a60d4c3)
+++ 	(revision )
@@ -1,16 +1,0 @@
-////////////////////////////////////////////////////////////////////////////////
-class my_inequation
-////////////////////////////////////////////////////////////////////////////////
-{
-public:
-  double a_;
-  double b_;
-  my_inequation(double a, double b) : a_(a), b_(b) {};
- ~my_inequation() {};
-  double constraint(double x1, double x2)
-  {
-    double ax1b = a_*x1 + b_;
-    return((pow(ax1b,3) - x2));
-  }
-};
-
Index: l_tests/tol/cint/test_0003/test.tol
===================================================================
--- tol_tests/tol/cint/test_0003/test.tol	(revision 3b95747483fd956ea0025a683497a0480a60d4c3)
+++ 	(revision )
@@ -1,72 +1,0 @@
-//////////////////////////////////////////////////////////////////////////////
-// FILE   : test.tol
-// PURPOSE: test for CINT API
-//////////////////////////////////////////////////////////////////////////////
-
-Text email_ = "vdebuen@tol-project.org"; 
-Text link_ = "";
-Text summary_ = "Test for CINT API. Exporting TOL variables to CINT." ;
-
-
-//Write here the initial test TOL code if needed
-
-Real numErr0 = Copy(NError);
-
-#Require TolCint;
-
-Real const = 8759;
-Real tolNum = Copy(const);
-
-Matrix tolMat = Col(1,2,3,4,5,6,7);
-
-Real imp = Cint.import_from_tol(tolNum, tolMat);
-
-Real Cint.exec_text("
-  tolNum *= 2
-");
-
-Real cintNum = Cint.calc("tolNum");
-
-Real tolMat3 = Cint.calc("tolMat(3,1)");
-
-Real Cint.exec_text("tolMat(3,1) *= 2");
-
-Real tolMat3_2 = MatDat(tolMat,3,1);
-
-Real numErr1 = Copy(NError);
-
-//Extented information about test behaviour
-Set partialResults_ = 
-[[
-  numErr0,
-  numErr1,
-  tolNum,
-  cintNum,
-  imp,
-  tolMat3,
-  tolMat3_2
-]];
-
-//This is a messure of the success of the test 
-Real quality_ = And(
-  numErr0 == numErr1, 
-  imp==2,
-  tolNum==2*const, 
-  cintNum==2*const,
-  tolMat3 == 3,
-  tolMat3_2 == 6);
-
-//Return the results 
-Set resultStr_ = @strTestStatus(summary_, link_, quality_,
-                  "Partial results = "<<partialResults_,
-                  "NO DBServerType", "NO DBServerHost", "NO DBAlias",
-                  email_);
-WriteLn(""<<resultStr_);
-WriteLn("NObject="<<NObject);
-WriteLn("NCore="<<NCore);
-resultStr_
-/* */
-
-
-
-
Index: l_tests/tol/cint/test_0004/test.tol
===================================================================
--- tol_tests/tol/cint/test_0004/test.tol	(revision 3b95747483fd956ea0025a683497a0480a60d4c3)
+++ 	(revision )
@@ -1,51 +1,0 @@
-//////////////////////////////////////////////////////////////////////////////
-// FILE   : test.tol
-// PURPOSE: test for CINT API
-//////////////////////////////////////////////////////////////////////////////
-
-Text email_ = "vdebuen@tol-project.org"; 
-Text link_ = "";
-Text summary_ = "Test for CINT API. CINT messages visible from TOL interface." ;
-
-
-//Write here the initial test TOL code if needed
-
-Real numErr0 = Copy(NError);
-
-#Require TolCint;
-
-NameBlock TolCint::@Module::Load("tools.cpp");
-
-Real Cint.calc("check_pos(-1.0)");
-
-Real Sleep(3);
-Real Cint.calc("G__FreeConsole()");
-
-
-Real numErr1 = Copy(NError);
-
-//Extented information about test behaviour
-Set partialResults_ = 
-[[
-  numErr0,
-  numErr1
-]];
-
-//This is a messure of the success of the test 
-Real quality_ = And(
-  numErr0 == numErr1);
-
-//Return the results 
-Set resultStr_ = @strTestStatus(summary_, link_, quality_,
-                  "Partial results = "<<partialResults_,
-                  "NO DBServerType", "NO DBServerHost", "NO DBAlias",
-                  email_);
-WriteLn(""<<resultStr_);
-WriteLn("NObject="<<NObject);
-WriteLn("NCore="<<NCore);
-resultStr_
-/* */
-
-
-
-
Index: l_tests/tol/cint/test_0004/tools.cpp
===================================================================
--- tol_tests/tol/cint/test_0004/tools.cpp	(revision 3b95747483fd956ea0025a683497a0480a60d4c3)
+++ 	(revision )
@@ -1,16 +1,0 @@
-////////////////////////////////////////////////////////////////////////////////
-double check_pos(double n)
-////////////////////////////////////////////////////////////////////////////////
-{
-  if(n<0)
-  {
-    Text msg ("[check_pos] Negative");
-    Error(msg);
-    return(0.0);
-  }
-  else
-  {
-    return(1.1);
-  }
-};
-
Index: l_tests/tol/cint/test_0005/test.tol
===================================================================
--- tol_tests/tol/cint/test_0005/test.tol	(revision 3b95747483fd956ea0025a683497a0480a60d4c3)
+++ 	(revision )
@@ -1,60 +1,0 @@
-//////////////////////////////////////////////////////////////////////////////
-// FILE   : test.tol
-// PURPOSE: test for CINT API
-//////////////////////////////////////////////////////////////////////////////
-
-Text email_ = "vdebuen@tol-project.org"; 
-Text link_ = "";
-Text summary_ = "Test for CINT API. Exporting CINT variables to TOL." ;
-
-
-//Write here the initial test TOL code if needed
-
-Real numErr0 = Copy(NError);
-
-#Require TolCint;
-
-Real N = 1000;
-Real Cint.exec_text("
-Matrix mat_cint("<<N+",1);
-for(int i=1; i<=mat_cint.rows_; i++)
-{
-  mat_cint(i,1) = pow(i,-3);
-}
-");
-
-Matrix Cint.export_to_tol("mat_cint");
-
-Matrix mat_tol = RPow(SetCol(Range(1,N,1)),-3);
-
-Real maxErr = MatMax(Abs(mat_tol-mat_cint));
-
-Real numErr1 = Copy(NError);
-
-//Extented information about test behaviour
-Set partialResults_ = 
-[[
-  numErr0,
-  numErr1,
-  maxErr
-]];
-
-//This is a messure of the success of the test 
-Real quality_ = And(
-  numErr0 == numErr1,
-  maxErr == 0);
-
-//Return the results 
-Set resultStr_ = @strTestStatus(summary_, link_, quality_,
-                  "Partial results = "<<partialResults_,
-                  "NO DBServerType", "NO DBServerHost", "NO DBAlias",
-                  email_);
-WriteLn(""<<resultStr_);
-WriteLn("NObject="<<NObject);
-WriteLn("NCore="<<NCore);
-resultStr_
-/* */
-
-
-
-
Index: l_tests/tol/cint/test_0005/tools.cpp
===================================================================
--- tol_tests/tol/cint/test_0005/tools.cpp	(revision 3b95747483fd956ea0025a683497a0480a60d4c3)
+++ 	(revision )
@@ -1,16 +1,0 @@
-////////////////////////////////////////////////////////////////////////////////
-double check_pos(double n)
-////////////////////////////////////////////////////////////////////////////////
-{
-  if(n<0)
-  {
-    Text msg ("[check_pos] Negative");
-    Error(msg);
-    return(0.0);
-  }
-  else
-  {
-    return(1.1);
-  }
-};
-