Typo fixes
[scilab.git] / scilab / modules / dynamic_link / examples / dynamic_link_c_and_fortran / ext9f.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 ext9f example
12
13 // builder code for ext9f.c
14 // functions to be added to the call table
15 link_name = ["ext9f"];
16 flag  = "f";             // ext9f is a Fortran function
17 files = ["ext9f.f" ];   // objects files for ext9f
18 libs  = [];              // other libs needed for linking
19
20 // the next call generates files (Makelib,loader.sce) used
21 // for compiling and loading ext10f and performs the compilation
22
23 ilib_for_link(link_name,files,libs,flag);
24
25 // load new function code in the scope of call
26 // using the previously generated loader
27 exec loader.sce;
28
29 // test new function through the ode function
30 //passing a parameter to ext10f routine by a list:
31
32 param=[0.04,10000,3d+7];
33 y=ode([1;0;0],0,[0.4,4],list("ext9f",param));
34
35
36
37
38
39
40