From 05fcaed7d2fb3070fccf2139f7e75d331ea597cf Mon Sep 17 00:00:00 2001
From: michel <michel@ac1d8469-bf42-47a9-8791-bf33cf982152>
Date: Tue, 27 Nov 2007 14:12:45 +0000
Subject: [PATCH] v4 ramsey_dynamic.m: corrected bug variable is absent at the
 current period

git-svn-id: https://www.dynare.org/svn/dynare/dynare_v4@1464 ac1d8469-bf42-47a9-8791-bf33cf982152
---
 matlab/ramsey_dynamic.m | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/matlab/ramsey_dynamic.m b/matlab/ramsey_dynamic.m
index 3a960a095..f7d99f19e 100644
--- a/matlab/ramsey_dynamic.m
+++ b/matlab/ramsey_dynamic.m
@@ -180,14 +180,19 @@ function J = ramsey_dynamic(ys,lbar)
   
   % getting indices of nonzero entries
   m = find(i_leadlag1');
+  n1 = max_lag1*endo_nbr1+1
+  n2 = n1+endo_nbr-1
+  
   
   n = length(m);
   k = 1:size(J,2);
   
   for i=1:n
     if sum(abs(J(:,i))) < 1e-8
-      k(i) = 0;
-      m(i) = 0;
+      if m(i) < n1 | m(i) > n2
+	k(i) = 0;
+	m(i) = 0;
+      end
     end
   end