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