[Pomp-commits] r327 - pkg/src

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

Author: kingaa
Date: 2010-09-26 17:50:19 +0200 (Sun, 26 Sep 2010)
New Revision: 327

Modified:
   pkg/src/probe_marginal.c
Log:
- bug fix


Modified: pkg/src/probe_marginal.c
===================================================================
--- pkg/src/probe_marginal.c	2010-09-25 23:34:53 UTC (rev 326)
+++ pkg/src/probe_marginal.c	2010-09-26 15:50:19 UTC (rev 327)
@@ -6,7 +6,7 @@
 #include <R_ext/Lapack.h>
 
 static void order_reg_solve (double *beta, double *x, double *mm, double *tau, int *pivot, int n, int np, int diff);
-static void order_reg_model_matrix (double *z, double *X, double *pivot, double *tau, int n, int np, int diff);
+static void order_reg_model_matrix (double *z, double *X, double *tau, int *pivot, int n, int np, int diff);
 
 SEXP probe_marginal_setup (SEXP ref, SEXP order, SEXP diff) {
   int nprotect = 0;
@@ -80,7 +80,7 @@
 }
 
 // thanks to Simon N. Wood for the original version of the following code
-static void order_reg_model_matrix (double *z, double *X, double *tau, double *pivot, int n, int np, int diff) {
+static void order_reg_model_matrix (double *z, double *X, double *tau, int *pivot, int n, int np, int diff) {
   //   z is an n vector, containing no NAs
   //   X is an (n-diff) by np double matrix
   //   pivot is an (n-diff) integer vector