test.sce

FILE0=fullfile(PWD,'tmp','test');

FILE7=fullfile(FILE0,'vr_func');
FILE8=fullfile(FILE0,'vt_func');

a=(1:10).';
b=(0.01:0.01:0.2).' .* %pi;
V=ones(10,3);

cd(FILE7)
files_7=["vr_func.c","sci_vr_func.c"];
WITHOUT_AUTO_PUTLHSVAR = %t;
ilib_build('_vr_func',['vr_func','sci_vr_func'],files_7,[]);
// load the shared library
exec loader.sce;
link('show');

DD=vr_func(a,b,V);

ulink();
link('show');

cd(FILE8)
files_8=["vt_func.c","sci_vt_func.c"];
WITHOUT_AUTO_PUTLHSVAR = %t;
ilib_build('_vt_func',['vt_func','sci_vt_func'],files_8,[]);
// load the shared library
exec loader.sce;
link('show');

BB=vt_func(a,V);

ulink();
link('show');