Typo fixes
[scilab.git] / scilab / modules / dynamic_link / examples / dynamic_link_c_and_fortran / ext10f.sce
1
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) INRIA -
4 //
5 // This file must be used under the terms of the CeCILL.
6 // This source file is licensed as described in the file COPYING, which
7 // you should have received as part of this distribution.  The terms
8 // are also available at
9 // http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt
10
11 // Demo file for ext10f example
12
13 // builder code for ext10f.c
14 link_name = "ext10f";    // functions to be added to the call table
15 flag  = "f";             // ext10f is a Fortran function
16 files = ["ext10f.f" ];   // objects files for ext10f
17 libs  = [];              // other libs needed for linking
18
19 // the next call generates files (Makelib,loader.sce) used
20 // for compiling and loading ext10f and performs the compilation
21
22 ilib_for_link(link_name,files,libs,flag);
23
24 // load new function code in the scope of call
25 // using the previously generated loader
26 exec loader.sce;
27
28 // test new function through the ode function
29 //passing a parameter to ext10f routine by a list:
30
31 param=[0.04,10000,3d+7];
32 y=ode([1;0;0],0,[0.4,4],list("ext10f",param));
33
34
35