1c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
2c Copyright (C) INRIA
3c ...
4c
5c Copyright (C) 2012 - 2016 - Scilab Enterprises
6c
7c This file is hereby licensed under the terms of the GNU GPL v2.0,
8c pursuant to article 5.3.4 of the CeCILL v.2.1.
9c This file was originally licensed under the terms of the CeCILL v2.1,
10c and continues to be available under such terms.
11c For more information, see the COPYING file which you should have received
12c along with this program.
13c
14c     Examples for dasrt
15c     ----------------------
16c
17c
18      subroutine gr1 (neq, t, y, ng, groot, rpar, ipar)
19      INTEGER neq, ng,ipar(*)
20      DOUBLE PRECISION t, y(*), groot(*),rpar(*)
21      groot(1) = ((2.0D0*LOG(y(1)) + 8.0D0)/t - 5.0D0)*y(1)
22      groot(2) = LOG(y(1)) - 2.2491D0
23      RETURN
24      END
25
26      subroutine gr2 (neq, t, y, ng, groot, rpar, ipar)
27      INTEGER neq, ng, ipar(*)
28      DOUBLE PRECISION t, y, groot,rpar(*)
29      DIMENSION y(*), groot(*)
30      groot(1) = y(1)
31      RETURN
32      END
33
34