[Pomp-commits] r409 - pkg/src

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

Author: kingaa
Date: 2010-11-07 14:42:23 +0100 (Sun, 07 Nov 2010)
New Revision: 409

Modified:
   pkg/src/probe_acf.c
   pkg/src/synth_lik.c
Log:

- get rid of some unused varibles


Modified: pkg/src/probe_acf.c
===================================================================
--- pkg/src/probe_acf.c	2010-11-06 13:59:57 UTC (rev 408)
+++ pkg/src/probe_acf.c	2010-11-07 13:42:23 UTC (rev 409)
@@ -148,7 +148,7 @@
   double cov[2], xx, *p;
   int nlag, n, correlation;
   int k;
-  char tmp[BUFSIZ], *nm;
+  char tmp[BUFSIZ];
   
   nlag = LENGTH(lags);
   PROTECT(lags = AS_INTEGER(lags)); nprotect++;

Modified: pkg/src/synth_lik.c
===================================================================
--- pkg/src/synth_lik.c	2010-11-06 13:59:57 UTC (rev 408)
+++ pkg/src/synth_lik.c	2010-11-07 13:42:23 UTC (rev 409)
@@ -17,11 +17,11 @@
   int ncol = dim[1];
   double alpha = 2.0, beta = 1.25;
   double w[nrow], tau[ncol], work[ncol];
-  int info = 0, ione = 1;
+  int info = 0;
   double one = 1.0;
   double *y1, *y2, *yp;
   double x, xx, wbar, d, d0, rss, half_log_det;
-  int i, j, k;
+  int i, j;
 
   half_log_det = ncol*M_LN_SQRT_2PI;