      subroutine gr22 (neq, t, y, ng, groot, rpar, ipar)
c     Copyright INRIA
      integer neq, ng, ipar
      double precision t, y, groot, rpar
      dimension y(*), groot(*)
      groot(1) = y(1)
      end
