From 8d33a434e5141773e1cd5dd0fbef2823dd73295f Mon Sep 17 00:00:00 2001
From: Michel Juillard <michel.juillard@mjui.fr>
Date: Thu, 19 Jul 2012 18:57:56 +0200
Subject: [PATCH] fixing bugs in dyn_first_order_solver()

---
 matlab/dyn_first_order_solver.m | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/matlab/dyn_first_order_solver.m b/matlab/dyn_first_order_solver.m
index 53a77d597..004adaa76 100644
--- a/matlab/dyn_first_order_solver.m
+++ b/matlab/dyn_first_order_solver.m
@@ -258,9 +258,9 @@ if info1 == 1
     Z11t = Z(indx_stable_root,    indx_stable_root)';
     Z21  = Z(indx_explosive_root, indx_stable_root);
     Z22  = Z(indx_explosive_root, indx_explosive_root);
-    if ~isfloat(Z21) && (condest(Z21) > 1e9)
+    if ~isscalar(Z22) && (condest(Z22) > 1e9)
         info(1) = 5;
-        info(2) = condest(Z21);
+        info(2) = condest(Z22);
         return;
     else
         gx = - Z22 \ Z21;