[Pomp-commits] r369 - pkg/src

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

Author: kingaa
Date: 2010-10-06 03:06:31 +0200 (Wed, 06 Oct 2010)
New Revision: 369

Modified:
   pkg/src/probe_ccf.c
   pkg/src/probe_marginal.c
   pkg/src/probe_nlar.c
Log:

- remove unused variables


Modified: pkg/src/probe_ccf.c
===================================================================
--- pkg/src/probe_ccf.c	2010-10-05 22:04:25 UTC (rev 368)
+++ pkg/src/probe_ccf.c	2010-10-06 01:06:31 UTC (rev 369)
@@ -7,11 +7,10 @@
 
 SEXP probe_ccf (SEXP x, SEXP y, SEXP lags) {
   int nprotect = 0;
-  SEXP ccf, ccf_names, cccf;
+  SEXP ccf, ccf_names;
   SEXP X, Y;
   int nlag, n;
-  int j, k, l;
-  double *p, *p1;
+  int k;
   char tmp[BUFSIZ], *nm;
   
   nlag = LENGTH(lags);

Modified: pkg/src/probe_marginal.c
===================================================================
--- pkg/src/probe_marginal.c	2010-10-05 22:04:25 UTC (rev 368)
+++ pkg/src/probe_marginal.c	2010-10-06 01:06:31 UTC (rev 369)
@@ -116,7 +116,7 @@
 
 // thanks to Simon N. Wood for the original version of the following code
 static void order_reg_solve (double *beta, double *x, double *mm, double *tau, int *pivot, int n, int np, int diff) {
-  int nx, one = 1;
+  int nx;
   double xx;
   int i, j;
 

Modified: pkg/src/probe_nlar.c
===================================================================
--- pkg/src/probe_nlar.c	2010-10-05 22:04:25 UTC (rev 368)
+++ pkg/src/probe_nlar.c	2010-10-06 01:06:31 UTC (rev 369)
@@ -46,7 +46,6 @@
   // 'beta' contains the ar coefficients
 
   int maxlag, nx, ny, ok, ct;
-  int one = 1;
   int i, j, k;
   double xx, *yp;
   double obs1;