 
// Example ex10
 
//[1] call intersci with Makefile
 
//
 
V=G_make('ex10fi.c','ex10fi.c');
 
//[2] run the builder generated by intersci.
 
//    Since files and libs were nor transmited
 
//    to intersci we give them here
 
files = ['ex10fi.o';'ex10f.o'];
 
libs  = [] ;
 
exec ex10fi_builder.sce
 
// generated with intersci
 
ilib_name = 'libex10fi'		// interface library name
 ilib_name  =
 
 libex10fi   
 
 
table =["calc10","intscalc10"];
 
ilib_build(ilib_name,table,files,libs);
   generate a gateway file
   generate a loader file
   generate a Makefile: Makelib
   running the makefile
   compilation of ex10fi
   compilation of ex10f
   building shared library (be patient)
 
 
 
//[3] run the loader to load the interface
 
//    Note that the file loader.sce
 
//    is changed each time you run a demo
 
//    if several0.desc are present in a directory
 
exec loader.sce;
shared archive loaded
 
 
//[4] test the loaded function
 
// calc1: 3 matrix input variables and at most 3 output variables of
 
// types double, real, int
 
l=calc10(list(1,[2,3],[1,2;3,4]));
 
if norm(l(1)-2) > %eps then bugmes();quit;end
 
if norm(l(2)-([2,3]+[1,2])) > %eps then bugmes();quit;end
 
if norm(l(3)-([1,2;3,4]+[1,3;2,4])) > %eps then bugmes();quit;end
 
 
 
 
 
 
