14      1   kroot, leniw, lenrw, liw, lrw, lout, neq, nerr, ng,  variable
17      1   t, tout, tzero, y, yt  variable
217       subroutine f1 (neq, t, y, ydot)  argument
219       double precision t, y, ydot  local
225       subroutine gr1 (neq, t, y, ng, groot)  argument
226       integer neq, ng  local
227       double precision t, y, groot  local
234       subroutine f2 (neq, t, y, ydot)  argument
236       double precision t, y, ydot  local
243       subroutine jac2 (neq, t, y, ml, mu, pd, nrowpd)  argument
245       double precision t, y, pd  local
254       subroutine gr2 (neq, t, y, ng, groot)  argument
255       integer neq, ng  local
256       double precision t, y, groot  local