[Pomp-commits] r128 - pkg/src

[noreply at r-forge.r-project.org]

Author: kingaa
Date: 2009-05-14 15:54:09 +0200 (Thu, 14 May 2009)
New Revision: 128

Modified:
   pkg/src/euler.c
Log:
clean up the C codes in 'euler.c'

Modified: pkg/src/euler.c
===================================================================
--- pkg/src/euler.c	2009-05-13 16:08:08 UTC (rev 127)
+++ pkg/src/euler.c	2009-05-14 13:54:09 UTC (rev 128)
@@ -108,8 +108,8 @@
   int covdim = ndim[5];
   int nzero = ndim[6];
   double covar_fn[covdim];
-  int j, k, p, step, neuler;
-  double dt, tol;
+  int k, p, step;
+  double dt;
 
   struct lookup_table covariate_table = {covlen, covdim, 0, time_table, covar_table};
 
@@ -247,7 +247,7 @@
   SEXP X, pindex, sindex, cindex, zindex;
   int *sidx, *pidx, *cidx, *zidx;
   SEXP fn, Pnames, Cnames;
-  int do_euler = 1, *meth;
+  int do_euler = 1;
 
   dim = INTEGER(GET_DIM(xstart)); nvar = dim[0]; nrep = dim[1];
   dim = INTEGER(GET_DIM(params)); npar = dim[0];