* Bug 16328 fixed: typos exists => exist
[scilab.git] / scilab / modules / dynamic_link / examples / dynamic_link_c_and_fortran / ext10f.f
1
2 c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 c Copyright (C) INRIA
4
5 c This file is released under the 3-clause BSD license. See COPYING-BSD.
6       
7       subroutine ext10f(neq, t, y, ydot)
8 c     -------------------------------------------
9 c     exemple with a call to creadmat routine
10 c     -->param=[0.04,10000,3d+7];
11 c     -->link('ext10f.o','ext10f')
12 c     -->y=ode([1;0;0],0,[0.4,4],'ext10f')
13 c     param must be defined as a scilab variable
14 c     Copyright Inria
15       double precision t, y, ydot, param
16       logical creadmat
17       dimension y(3), ydot(3), param(3)
18
19 c     If "param" does not exist: return, else: loads param
20       if(.not.creadmat('param'//char(0),m,n,param)) return
21 c     ***********************************
22
23       ydot(1) = -param(1)*y(1) + param(2)*y(2)*y(3)
24       ydot(3) = param(3)*y(2)*y(2)
25       ydot(2) = -ydot(1) - ydot(3)
26       return
27       end