updates ref.

8 files changed, 163 insertions, 286 deletions

diff --git a/tests/basic_tests/algebra.dia.ref b/tests/basic_tests/algebra.dia.ref
index c4c8237..3393941 100644
--- a/tests/basic_tests/algebra.dia.ref
+++ b/tests/basic_tests/algebra.dia.ref
@@ -1094,6 +1094,8 @@ if  Err(rcond(eye(50,50)*(1+%i))-1)>10*%eps then bugmes();quit;end
  
 //==========================================================================
  
+clear sel
+ 
 function t=sel(R),t=real(R)<0 ,endfunction
  
 //Empty matrix
@@ -1537,9 +1539,9 @@ if Err(Es-Q'*E*Z) >200*%eps then bugmes();quit;end
  
 //ordered sel
  
-function t=sel(Alpha,Beta),t=real(Alpha)>-0.2*real(Beta) ,endfunction
-Warning :redefining function: sel                     
+clear sel
  
+function t=sel(Alpha,Beta),t=real(Alpha)>-0.2*real(Beta) ,endfunction
  
  
 dim=schur(A,E,sel);
@@ -1661,9 +1663,9 @@ if Err(Es-Q'*E*Z) >200*%eps then bugmes();quit;end
  
 //ordered sel
  
-function t=sel(Alpha,Beta),t=imag(Alpha)>0 ,endfunction
-Warning :redefining function: sel                     
+clear sel
  
+function t=sel(Alpha,Beta),t=imag(Alpha)>0 ,endfunction
  
  
 dim=schur(A,E,sel);
@@ -1789,12 +1791,12 @@ if Err(Es-Q'*E*Z) >200*%eps then bugmes();quit;end
  
 //ordered sel
  
-function t=sel(Alpha,Beta),t=real(Alpha)>-0.2*real(Beta) ,endfunction
-Warning :redefining function: sel                     
+clear sel
  
+function t=sel(Alpha,Beta),t=real(Alpha)>-0.2*real(Beta) ,endfunction
  
  
-dim=schur(A,E,sel);
+dim=schur(A,E,sel); // plante ici DGGES LAPACK 3.1
  
 if dim<>12 then bugmes();quit;end
  
@@ -1913,9 +1915,9 @@ if Err(Es-Q'*E*Z) >1000*%eps then bugmes();quit;end
  
 //ordered sel
  
-function t=sel(Alpha,Beta),t=imag(Alpha)>0 ,endfunction
-Warning :redefining function: sel                     
+clear sel
  
+function t=sel(Alpha,Beta),t=imag(Alpha)>0 ,endfunction
  
  
 dim=schur(A,E,sel);
@@ -3334,7 +3336,7 @@ if Err(diag(diag(X))-X)>200*%eps then bugmes();quit;end
  
 if Err(Ab-inv(X)*A*X)>200*%eps then bugmes();quit;end
  warning
- matrix is close to singular or badly scaled. rcond =    2.2737D-13
+ matrix is close to singular or badly scaled. rcond =    8.8818D-16
  
  
  
@@ -3348,7 +3350,7 @@ if Err(diag(diag(X))-X)>200*%eps then bugmes();quit;end
  
 if Err(Ab-inv(X)*A*X)>200*%eps then bugmes();quit;end
  warning
- matrix is close to singular or badly scaled. rcond =    2.2737D-13
+ matrix is close to singular or badly scaled. rcond =    8.8818D-16
  
  
  
@@ -3362,7 +3364,7 @@ if Err(diag(diag(X))-X)>200*%eps then bugmes();quit;end
  
 if Err(Ab-inv(X)*A*X)>1000*%eps then bugmes();quit;end
  warning
- matrix is close to singular or badly scaled. rcond =    8.6736D-19
+ matrix is close to singular or badly scaled. rcond =    1.6313D-55
  
  
  
@@ -3376,7 +3378,7 @@ if Err(diag(diag(X))-X)>200*%eps then bugmes();quit;end
  
 if Err(Ab-inv(X)*A*X)>1000*%eps then bugmes();quit;end
  warning
- matrix is close to singular or badly scaled. rcond =    8.6736D-19
+ matrix is close to singular or badly scaled. rcond =    1.6313D-55
  
  
  
diff --git a/tests/basic_tests/algebra.tst b/tests/basic_tests/algebra.tst
index 8cd3d00..93603ed 100644
--- a/tests/basic_tests/algebra.tst
+++ b/tests/basic_tests/algebra.tst
@@ -605,6 +605,7 @@ if  Err(rcond(eye(50,50)*(1+%i))-1)>10*%eps then pause,end
 //==========================================================================
 //==============================    schur     ============================== 
 //==========================================================================
+clear sel
 function t=sel(R),t=real(R)<0 ,endfunction
 //Empty matrix
 A=[];
@@ -851,6 +852,7 @@ if Err(As-Q'*A*Z) >200*%eps then pause,end
 if Err(Es-Q'*E*Z) >200*%eps then pause,end
 
 //ordered sel
+clear sel
 function t=sel(Alpha,Beta),t=real(Alpha)>-0.2*real(Beta) ,endfunction
 
 dim=schur(A,E,sel);
@@ -917,6 +919,7 @@ if Err(As-Q'*A*Z) >200*%eps then pause,end
 if Err(Es-Q'*E*Z) >200*%eps then pause,end
 
 //ordered sel
+clear sel
 function t=sel(Alpha,Beta),t=imag(Alpha)>0 ,endfunction
 
 dim=schur(A,E,sel);
@@ -986,9 +989,10 @@ if Err(As-Q'*A*Z) >200*%eps then pause,end
 if Err(Es-Q'*E*Z) >200*%eps then pause,end
 
 //ordered sel
+clear sel
 function t=sel(Alpha,Beta),t=real(Alpha)>-0.2*real(Beta) ,endfunction
 
-dim=schur(A,E,sel);
+dim=schur(A,E,sel); // plante ici DGGES LAPACK 3.1
 if dim<>12 then pause,end
 [Z,dim]=schur(A,E,sel);
 if Err(Z*Z'-eye(Z)) >200*%eps then pause,end
@@ -1052,6 +1056,7 @@ if Err(As-Q'*A*Z) >1000*%eps then pause,end
 if Err(Es-Q'*E*Z) >1000*%eps then pause,end
 
 //ordered sel
+clear sel
 function t=sel(Alpha,Beta),t=imag(Alpha)>0 ,endfunction
 
 dim=schur(A,E,sel);
diff --git a/tests/basic_tests/externals.f b/tests/basic_tests/externals.f
index 966b99e..da73efc 100644
--- a/tests/basic_tests/externals.f
+++ b/tests/basic_tests/externals.f
@@ -1,4 +1,6 @@
+c     -------------------------------------------      
       subroutine ext1f(n,a,b,c)
+c     -------------------------------------------
 c     (very) simple example 1
 c     -->link('ext1f.o','ext1f');
 c     -->a=[1,2,3];b=[4,5,6];n=3;
@@ -10,7 +12,10 @@ c     c=a+b
  1    continue
       return
       end
+c
+c     -------------------------------------------      
       subroutine ext2f(n,a,b,c)
+c     -------------------------------------------      
 c     simple example 2 (using sin and cos)
 c     -->link('ext2f.o','ext2f');
 c     -->a=[1,2,3];b=[4,5,6];n=3;
@@ -22,8 +27,10 @@ c     -->c=sin(a)+cos(b)
  1    continue
       return
       end
+c      
+c     -------------------------------------------      
       subroutine ext3f(ch,n,a,b,c)
-c     ----------------------------
+c     -------------------------------------------
 c     example 3 (passing a chain)
 c     -->link('ext3f.o','ext3f');
 c     -->a=[1,2,3];b=[4,5,6];n=3;
@@ -43,7 +50,10 @@ c     -------------------------------------
       endif
       return
       end
+c      
+c     -------------------------------------------
       subroutine ext4f(n,a,b,c)
+c     -------------------------------------------      
 c     example 4 (reading a chain)
 c     -->link('ext4f.o','ext4f');
 c     -->a=[1,2,3];b=[4,5,6];n=3;yes='yes'
@@ -72,8 +82,10 @@ c     *********************************
       endif
       return
       end
-      
+c      
+c     -------------------------------------------      
       subroutine ext5f(b,c)
+c     -------------------------------------------      
 c     example 5
 c     reading a vector in scilab internal stack using creadmat
 c     (see SCIDIR/system2/creadmat.f)
@@ -94,7 +106,10 @@ c     If 'a' exists reads it else return
  1    continue
       return
       end
+c      
+c     -------------------------------------------      
       subroutine ext6f(aname,b,c)
+c     -------------------------------------------      
 c     example 6
 c     reading a vector in scilab internal stack using readmat interface
 c     -->link('ext6f.o','ext6f')
@@ -114,7 +129,10 @@ c     [m,n]=size(a)  here m=1 n=3
  1    continue
       return
       end
+c      
+c     -------------------------------------------      
       subroutine ext7f(a,b)
+c     -------------------------------------------      
 c     example 7
 c     creating vector c in scilab internal stack
 c     -->link('ext7f.o','ext7f')
@@ -135,26 +153,10 @@ c     sending string 'test' (size 4) to Scilab variable d
       if (.not.cwritechain('d'//char(0),4,'test')) return
       return
       end
-      subroutine ext8f(y)
-c     -------------------------------------------
-c     same example with call to cmatptr
-c     -->param=[1,2,3];         
-c     -->link('ext8c.o','ext8c','C');     
-c     -->y=call('ext8c','out',size(param),1,'d');
-      logical cmatptr
-      double precision y(*)
-      include 'stack.h'
-c     If variable 'param' exists gets its pointer in 
-c     internal stack else return
-      if(.not.cmatptr('param'//char(0),m,n,lp)) return
-c     ********************************
-c     param entries are in stk(lp+i),i=0,m*n
-      do 10 i=1,m*n
-         y(i) = stk(lp+i-1)
- 10   continue
-      return
-      end
-      subroutine ext9f(n, t, y, ydot)
+c      
+c     -------------------------------------------      
+      subroutine ext8f(n, t, y, ydot)
+c     -------------------------------------------      
 c     argument function for ode
 c     input variables n, t, y
 c     n = dimension of state vector y
@@ -169,12 +171,12 @@ c          ...
 c     i.e. ydot vector of derivative of state y
 c
 c     Example:
-c     call this ext9f routine: 
+c     call this ext8f routine: 
 c     ode([1;0;0],0,[0.4,4],'ext9f')
 c
 c     With dynamic link: 
-c     -->link('ext9f.o','ext9f')
-c     -->ode([1;0;0],0,[0.4,4],'ext9f')
+c     -->link('ext8f.o','ext8f')
+c     -->ode([1;0;0],0,[0.4,4],'ext8f')
 c
       double precision t, y, ydot
       dimension y(3), ydot(3)
@@ -182,8 +184,10 @@ c
       ydot(3) = 3.0d+7*y(2)*y(2)
       ydot(2) = -ydot(1) - ydot(3)
       end
-
-      subroutine ext10f(n, t, y, ydot)
+c      
+c     -------------------------------------------
+      subroutine ext9f(n, t, y, ydot)
+c     -------------------------------------------      
 c     external fonction for ode
 c     input variables n, t, y
 c     n = dimension of state vector y
@@ -198,9 +202,9 @@ c          ...
 c     i.e. ydot vector of derivative of state y
 c
 c     With dynamic link: 
-c     link('ext10f.o','ext10f')
+c     link('ext9f.o','ext9f')
 c
-c     passing a parameter to ext10f routine by a list:
+c     passing a parameter to ext9f routine by a list:
 c     -->param=[0.04,10000,3d+7];    
 c     -->y=ode([1;0;0],0,[0.4,4],list('ext10f',param))
 c     param is retrieved in ext10f by:
@@ -217,12 +221,14 @@ c
       ydot(3) = param(3)*y(2)*y(2)
       ydot(2) = -ydot(1) - ydot(3)
       end
-      subroutine ext11f(neq, t, y, ydot)
+c
+c     -------------------------------------------      
+      subroutine ext10f(neq, t, y, ydot)
 c     -------------------------------------------
 c     exemple with a call to readmat routine
 c     -->param=[0.04,10000,3d+7];
-c     -->link('ext11f.o','ext11f')
-c     -->y=ode([1;0;0],0,[0.4,4],'ext11f')
+c     -->link('ext10f.o','ext10f')
+c     -->y=ode([1;0;0],0,[0.4,4],'ext10f')
 c     param must be defined as a scilab variable
       double precision t, y, ydot, param
       logical creadmat
@@ -237,46 +243,23 @@ c     ***********************************
       ydot(2) = -ydot(1) - ydot(3)
       return
       end
-      subroutine ext12f(neq, t, y, ydot)
-c     -------------------------------------------
-c     same example with call to cmatptr
-c     param must be defined as a scilab variable
-c     exemple with a call to cmatptr function
-c     -->param=[0.04,10000,3d+7];
-c     -->link('ext12f.o','ext12f')
-c     -->y=ode([1;0;0],0,[0.4,4],'ext12f')
-      double precision t, y, ydot
-      logical cmatptr
-      dimension y(3), ydot(3)
-c
-      include 'stack.h'
-c
-
-c     If variable 'param' exists gets its pointer in 
-c     internal stack else return
-      if(.not.cmatptr('param'//char(0),m,n,lp)) return
-c     ********************************
-c     param entries are in stk(lp),stk(lp+1),stk(lp+2)
-c     i.e. param(1)= stk(lp), ...
-c     m,n = dimensions of param = 3,1 (or 1,3 if row v.)
-
-c     (note that vector param not used in this example)
-      ydot(1) = -stk(lp)*y(1) + stk(lp+1)*y(2)*y(3)
-      ydot(3) = stk(lp+2)*y(2)*y(2)
-      ydot(2) = -ydot(1) - ydot(3)
-      return
-      end
-
-      subroutine ext13f(n,a)
+c      
+c     -------------------------------------------            
+      subroutine ext11f(n,a)
+c     -------------------------------------------                  
       common/cmntest/b(10)
       real a(*)
       do 1 k=1,max(n,10)
  1       b(k)=a(k)
       end
-      subroutine ext14f(n,c)
+c      
+c     -------------------------------------------      
+      subroutine ext12f(n,c)
+c     -------------------------------------------      
       common/cmntest/b(10)
       real c(*)
       do 1 k=1,max(n,10)
  1    c(k)=b(k)
       end
-
+c     -------------------------------------------
+c
diff --git a/tests/basic_tests/links.dia.ref b/tests/basic_tests/links.dia.ref
index cf02528..00001e6 100644
--- a/tests/basic_tests/links.dia.ref
+++ b/tests/basic_tests/links.dia.ref
@@ -1,16 +1,19 @@
  
+//===========================================================
+ 
 // Copyright INRIA
  
+//===========================================================
  
 pref='ext';
  
 suf='f';
  
-routines=[pref(ones(1,14))+string(1:14)+suf(ones(1,14))];
+routines=[pref(ones(1,12))+string(1:12)+suf(ones(1,12))];
  
 ilib_for_link(routines,'externals.o',[],"f");
    generate a loader file
-   generate a Makefile: Makelib
+   generate a Makefile
    running the makefile
    compilation of externals
    building shared library (be patient)
@@ -19,8 +22,12 @@ exec loader.sce ;
 shared archive loaded
 Link done
  
+//===========================================================
+ 
 //(very) simple example 1
  
+//===========================================================
+ 
 a=[1,2,3];b=[4,5,6];n=3;
  
 c=call('ext1f',n,1,'i',a,2,'d',b,3,'d','out',[1,3],4,'d');
@@ -28,8 +35,12 @@ c=call('ext1f',n,1,'i',a,2,'d',b,3,'d','out',[1,3],4,'d');
 if norm(c-(a+b)) > %eps then bugmes();quit;end
  
  
+//===========================================================
+ 
 //Simple example #2
  
+//===========================================================
+ 
 a=[1,2,3];b=[4,5,6];n=3;
  
 c=call('ext2f',n,1,'i',a,2,'d',b,3,'d','out',[1,3],4,'d');
@@ -37,8 +48,12 @@ c=call('ext2f',n,1,'i',a,2,'d',b,3,'d','out',[1,3],4,'d');
 if norm(c-(sin(a)+cos(b))) > %eps then bugmes();quit;end
  
  
+//===========================================================
+ 
 //Example #3
  
+//===========================================================
+ 
 a=[1,2,3];b=[4,5,6];n=3;
  
 c=call('ext3f','yes',1,'c',n,2,'i',a,3,'d',b,4,'d','out',[1,3],5,'d');
@@ -50,8 +65,12 @@ c=call('ext3f','no',1,'c',n,2,'i',a,3,'d',b,4,'d','out',[1,3],5,'d');
 if norm(c-(a+b)) > %eps then bugmes();quit;end
  
  
+//===========================================================
+ 
 //Example #4
  
+//===========================================================
+ 
 a=[1,2,3];b=[4,5,6];n=3;yes='yes';
  
 c=call('ext4f',n,1,'i',a,2,'d',b,3,'d','out',[1,3],4,'d');
@@ -67,8 +86,12 @@ if norm(c-(a+b)) > %eps then bugmes();quit;end
 //clear yes  --> undefined variable : yes
  
  
+//===========================================================
+ 
 //Example #5
  
+//===========================================================
+ 
 // reading vector a in scilab internal stack
  
 a=[1,2,3];b=[2,3,4];
@@ -78,8 +101,12 @@ c=call('ext5f',b,1,'d','out',[1,3],2,'d');
 if norm(c-(a+2*b)) > %eps then bugmes();quit;end
  
  
+//===========================================================
+ 
 //Example #6
  
+//===========================================================
+ 
 //reading  vector with name='a' in scilab internal stack
  
 a=[1,2,3];b=[2,3,4];
@@ -89,9 +116,12 @@ c=call('ext6f','a',1,'c',b,2,'d','out',[1,3],3,'d');
 if norm(c-(a+2*b)) > %eps then bugmes();quit;end
  
  
+//===========================================================
  
 //Example #7
  
+//===========================================================
+ 
 //creating vector c in scilab internal stack
  
 clear c;
@@ -113,62 +143,54 @@ if norm(c-(a+2*b)) > %eps then bugmes();quit;end
 if d<>"test" then bugmes();quit;end
  
  
+//===========================================================
+ 
 //Example #8
  
-//param must be defined as a scilab variable
+//===========================================================
  
-param=[1,2,3];
+//call ext8f argument function with dynamic link
  
-y=call('ext8f','out',size(param),1,'d');
+yref=ode([1;0;0],0,[0.4,4],'ext8f');
  
-if norm(y-param) > %eps then bugmes();quit;end
  
+//===========================================================
  
 //Example #9
  
-//call ext9f argument function with dynamic link
+//===========================================================
  
-yref=ode([1;0;0],0,[0.4,4],'ext9f');
- 
- 
-//Example #10
- 
-//passing a parameter to ext10f routine by a list:
+//passing a parameter to ext9f routine by a list:
  
 param=[0.04,10000,3d+7];
  
-y=ode([1;0;0],0,[0.4,4],list('ext10f',param));
+y=ode([1;0;0],0,[0.4,4],list('ext9f',param));
  
 if norm(y-yref) > 10000*%eps then bugmes();quit;end
  
  
-//Example #11
+//===========================================================
+ 
+//Example #10
+ 
+//===========================================================
  
 //Passing a parameter to argument funtion of ode
  
 param=[0.04,10000,3d+7];
  
-y=ode([1;0;0],0,[0.4,4],'ext11f');
+y=ode([1;0;0],0,[0.4,4],'ext10f');
  
 //param must be defined as a scilab variable upon calling ode
  
 if norm(y-yref) > 10000*%eps then bugmes();quit;end
  
  
-//Example #12
- 
-//same example as # 10 with call to matptr
- 
-//param must be defined as a scilab variable
- 
-param=[0.04,10000,3d+7];
- 
-y=ode([1;0;0],0,[0.4,4],'ext12f');
- 
-if norm(y-yref) > 10000*%eps then bugmes();quit;end
+//===========================================================
  
+//Example #11
  
-//Example #13
+//===========================================================
  
 //sharing common data
  
@@ -176,9 +198,12 @@ a=1:10;
  
 n=10;a=1:10;
  
-call('ext13f',n,1,'i',a,2,'r','out',2);  //loads b with a
+call('ext11f',n,1,'i',a,2,'r','out',2);  //loads b with a
  
-c=call('ext14f',n,1,'i','out',[1,10],2,'r');  //loads c with b
+c=call('ext12f',n,1,'i','out',[1,10],2,'r');  //loads c with b
  
 if norm(c-a) > %eps then bugmes();quit;end
  
+ 
+//===========================================================
+ 
diff --git a/tests/basic_tests/links.tst b/tests/basic_tests/links.tst
index 24001e1..3148fb3 100644
--- a/tests/basic_tests/links.tst
+++ b/tests/basic_tests/links.tst
@@ -1,28 +1,37 @@
+//===========================================================
 // Copyright INRIA
-
+//===========================================================
 pref='ext';
 suf='f';
-routines=[pref(ones(1,14))+string(1:14)+suf(ones(1,14))];
+routines=[pref(ones(1,12))+string(1:12)+suf(ones(1,12))];
 ilib_for_link(routines,'externals.o',[],"f");
 exec loader.sce ;
+//===========================================================
 //(very) simple example 1
+//===========================================================
 a=[1,2,3];b=[4,5,6];n=3;
 c=call('ext1f',n,1,'i',a,2,'d',b,3,'d','out',[1,3],4,'d');
 if norm(c-(a+b)) > %eps then pause,end
 
+//===========================================================
 //Simple example #2
+//===========================================================
 a=[1,2,3];b=[4,5,6];n=3;
 c=call('ext2f',n,1,'i',a,2,'d',b,3,'d','out',[1,3],4,'d');
 if norm(c-(sin(a)+cos(b))) > %eps then pause,end
 
+//===========================================================
 //Example #3
+//===========================================================
 a=[1,2,3];b=[4,5,6];n=3;
 c=call('ext3f','yes',1,'c',n,2,'i',a,3,'d',b,4,'d','out',[1,3],5,'d');
 if norm(c-(sin(a)+cos(b)))> %eps then pause,end
 c=call('ext3f','no',1,'c',n,2,'i',a,3,'d',b,4,'d','out',[1,3],5,'d');
 if norm(c-(a+b)) > %eps then pause,end
 
+//===========================================================
 //Example #4 
+//===========================================================
 a=[1,2,3];b=[4,5,6];n=3;yes='yes';
 c=call('ext4f',n,1,'i',a,2,'d',b,3,'d','out',[1,3],4,'d');
 if norm(c-(sin(a)+cos(b))) > %eps then pause,end
@@ -31,20 +40,25 @@ c=call('ext4f',n,1,'i',a,2,'d',b,3,'d','out',[1,3],4,'d');
 if norm(c-(a+b)) > %eps then pause,end
 //clear yes  --> undefined variable : yes
 
+//===========================================================
 //Example #5 
+//===========================================================
 // reading vector a in scilab internal stack
 a=[1,2,3];b=[2,3,4];
 c=call('ext5f',b,1,'d','out',[1,3],2,'d');
 if norm(c-(a+2*b)) > %eps then pause,end
 
+//===========================================================
 //Example #6
+//===========================================================
 //reading  vector with name='a' in scilab internal stack
 a=[1,2,3];b=[2,3,4];
 c=call('ext6f','a',1,'c',b,2,'d','out',[1,3],3,'d');
 if norm(c-(a+2*b)) > %eps then pause,end
 
-
+//===========================================================
 //Example #7
+//===========================================================
 //creating vector c in scilab internal stack
 clear c;
 a=[1,2,3]; b=[2,3,4];
@@ -56,40 +70,37 @@ if norm(c-(a+2*b)) > %eps then pause,end
 //d exists 
 if d<>"test" then pause,end
 
-//Example #8 
-//param must be defined as a scilab variable
-param=[1,2,3];
-y=call('ext8f','out',size(param),1,'d');
-if norm(y-param) > %eps then pause,end
+//===========================================================
+//Example #8
+//===========================================================
+//call ext8f argument function with dynamic link
+yref=ode([1;0;0],0,[0.4,4],'ext8f');
 
+//===========================================================
 //Example #9
-//call ext9f argument function with dynamic link
-yref=ode([1;0;0],0,[0.4,4],'ext9f');
-
-//Example #10
-//passing a parameter to ext10f routine by a list:
+//===========================================================
+//passing a parameter to ext9f routine by a list:
 param=[0.04,10000,3d+7];    
-y=ode([1;0;0],0,[0.4,4],list('ext10f',param));
+y=ode([1;0;0],0,[0.4,4],list('ext9f',param));
 if norm(y-yref) > 10000*%eps then pause,end
 
-//Example #11
+//===========================================================
+//Example #10
+//===========================================================
 //Passing a parameter to argument funtion of ode
 param=[0.04,10000,3d+7];
-y=ode([1;0;0],0,[0.4,4],'ext11f');
+y=ode([1;0;0],0,[0.4,4],'ext10f');
 //param must be defined as a scilab variable upon calling ode
 if norm(y-yref) > 10000*%eps then pause,end
 
-//Example #12 
-//same example as # 10 with call to matptr
-//param must be defined as a scilab variable
-param=[0.04,10000,3d+7];
-y=ode([1;0;0],0,[0.4,4],'ext12f');
-if norm(y-yref) > 10000*%eps then pause,end
-
-//Example #13
+//===========================================================
+//Example #11
+//===========================================================
 //sharing common data
 a=1:10;
 n=10;a=1:10;
-call('ext13f',n,1,'i',a,2,'r','out',2);  //loads b with a
-c=call('ext14f',n,1,'i','out',[1,10],2,'r');  //loads c with b
+call('ext11f',n,1,'i',a,2,'r','out',2);  //loads b with a
+c=call('ext12f',n,1,'i','out',[1,10],2,'r');  //loads c with b
 if norm(c-a) > %eps then pause,end
+
+//===========================================================
diff --git a/tests/basic_tests/matsys.dia.ref b/tests/basic_tests/matsys.dia.ref
index 01597fd..41ceb03 100644
--- a/tests/basic_tests/matsys.dia.ref
+++ b/tests/basic_tests/matsys.dia.ref
@@ -312,7 +312,7 @@ errclear();errcatch();
  
 //whereis
  
-if whereis('sci2exp')<>'libm2sci' then bugmes();quit;end
+if whereis('sci2exp')<>'m2scilib' then bugmes();quit;end
  
 if whereis('aaa')<>[]  then bugmes();quit;end
  
diff --git a/tests/basic_tests/matsys.tst b/tests/basic_tests/matsys.tst
index 38119ec..8bc723f 100644
--- a/tests/basic_tests/matsys.tst
+++ b/tests/basic_tests/matsys.tst
@@ -157,7 +157,7 @@ if iserror()<>1 then pause,end
 errclear();errcatch();
 
 //whereis
-if whereis('sci2exp')<>'libm2sci' then pause,end
+if whereis('sci2exp')<>'m2scilib' then pause,end
 if whereis('aaa')<>[]  then pause,end
 
 //where
diff --git a/tests/basic_tests/result b/tests/basic_tests/result
deleted file mode 100644
index 3ff21d9..0000000
--- a/tests/basic_tests/result
+++ /dev/null
@@ -1,149 +0,0 @@
-------------------- File maxi.tst--------------------
-Test passed
-----------------------------------------------------------
-------------------- File norm.tst--------------------
-Test passed
-----------------------------------------------------------
-------------------- File matops.tst--------------------
-Test passed
-----------------------------------------------------------
-------------------- File scilab.tst--------------------
-Test passed
-----------------------------------------------------------
-------------------- File macro.tst--------------------
-Test passed
-----------------------------------------------------------
-------------------- File calpol.tst--------------------
-Test passed
-----------------------------------------------------------
-------------------- File clause.tst--------------------
-Test passed
-----------------------------------------------------------
-------------------- File sparse.tst--------------------
-Test passed
-----------------------------------------------------------
-------------------- File lsparse.tst--------------------
-Test passed
-----------------------------------------------------------
-------------------- File lstops.tst--------------------
-Test passed
-----------------------------------------------------------
-------------------- File polops.tst--------------------
-Test passed
-----------------------------------------------------------
-------------------- File break.tst--------------------
-Test passed
-----------------------------------------------------------
-------------------- File sprintf.tst--------------------
-Test passed
-----------------------------------------------------------
-------------------- File sscanf.tst--------------------
-Test passed
-----------------------------------------------------------
-------------------- File display.tst--------------------
-Test passed
-----------------------------------------------------------
-------------------- File matode.tst--------------------
-Test passed
-----------------------------------------------------------
-------------------- File matopt.tst--------------------
-Test passed
-----------------------------------------------------------
-------------------- File matelm.tst--------------------
-Test passed
-----------------------------------------------------------
-------------------- File polelm.tst--------------------
-Test passed
-----------------------------------------------------------
-------------------- File metanet.tst--------------------
-Test passed
-----------------------------------------------------------
-------------------- File matimp.tst--------------------
-Test passed
-----------------------------------------------------------
-------------------- File dassldasrt.tst--------------------
-Test passed
-----------------------------------------------------------
-------------------- File call.tst--------------------
-Test passed
-----------------------------------------------------------
-------------------- File bvode.tst--------------------
-Test passed
-----------------------------------------------------------
-------------------- File feval.tst--------------------
-Test passed
-----------------------------------------------------------
-------------------- File auto.tst--------------------
-Test passed
-----------------------------------------------------------
-------------------- File odedc.tst--------------------
-Test passed
-----------------------------------------------------------
-------------------- File sound.tst--------------------
-Test passed
-----------------------------------------------------------
-------------------- File listinsertion.tst--------------------
-Test passed
-----------------------------------------------------------
-------------------- File listextraction.tst--------------------
-Test passed
-----------------------------------------------------------
-------------------- File links.tst--------------------
-Test passed
-----------------------------------------------------------
-------------------- File strelm.tst--------------------
-Test passed
-----------------------------------------------------------
-------------------- File gsort.tst--------------------
-Test passed
-----------------------------------------------------------
-------------------- File odedi.tst--------------------
-Test passed
-----------------------------------------------------------
-------------------- File dcd.tst--------------------
-Test passed
-----------------------------------------------------------
-------------------- File grand.tst--------------------
-Test passed
-----------------------------------------------------------
-------------------- File grandb.tst--------------------
-Test passed
-----------------------------------------------------------
-------------------- File resume.tst--------------------
-Test passed
-----------------------------------------------------------
-------------------- File errcatch.tst--------------------
-Test passed
-----------------------------------------------------------
-------------------- File arma.tst--------------------
-Test passed
-----------------------------------------------------------
-------------------- File msscanf.tst--------------------
-Test passed
-----------------------------------------------------------
-------------------- File msprintf.tst--------------------
-Test passed
-----------------------------------------------------------
-------------------- File binary.tst--------------------
-Test failed ERROR DETECTED  while executing binary.tst
-------------------- File mfprintf.tst--------------------
-Test passed
-----------------------------------------------------------
-------------------- File mfscanf.tst--------------------
-Test passed
-----------------------------------------------------------
-------------------- File fscanfMat.tst--------------------
-Test passed
-----------------------------------------------------------
-------------------- File global.tst--------------------
-Test passed
-----------------------------------------------------------
-------------------- File matsys.tst--------------------
-Test Failed SEE : diff -w  matsys.dia matsys.dia.ref 
-----------------------------------------------------------
-------------------- File saveload.tst--------------------
-Test passed
-----------------------------------------------------------
-------------------- File intops.tst--------------------
-Test passed
-----------------------------------------------------------