From ff473fedfdb6dcb891be21490a1640aecf5ac123 Mon Sep 17 00:00:00 2001
From: michel <michel@ac1d8469-bf42-47a9-8791-bf33cf982152>
Date: Thu, 26 Mar 2009 09:03:08 +0000
Subject: [PATCH] v4.1: adding penalty when Jacobian is complex

git-svn-id: https://www.dynare.org/svn/dynare/trunk@2522 ac1d8469-bf42-47a9-8791-bf33cf982152
---
 matlab/dr1.m | 1 +
 1 file changed, 1 insertion(+)

diff --git a/matlab/dr1.m b/matlab/dr1.m
index 48ae4dd43..dd9e8de3c 100644
--- a/matlab/dr1.m
+++ b/matlab/dr1.m
@@ -210,6 +210,7 @@ function [dr,info,M_,options_,oo_] = dr1(dr,task,M_,options_,oo_)
             jacobia_ = real(jacobia_);
         else
             info(1) = 6;
+            info(2) = sum(sum(imag(jacobia_).^2));
             return
         end
     end