v4.1:: The reported residuals are rounded to zero if inferior to options_.dynatol/100.

git-svn-id: https://www.dynare.org/svn/dynare/trunk@2383 ac1d8469-bf42-47a9-8791-bf33cf982152

matlab/resid.m

@@ -70,15 +70,13 @@ function resid(period)
   end
   
   for i=1:length(z)
-    if abs(z(i)) < 10^(-12)
-      z(i) = 0;
+    if abs(z(i)) < options_.dynatol/100
+        tmp = 0;
+    else
+        tmp = z(i);
     end
-    disp(['Residual for equation number ' int2str(i) ' is equal to ' num2str(z(i))])
+    disp(['Residual for equation number ' int2str(i) ' is equal to ' num2str(tmp)])
   end  
   for i = 1:2
     disp(' ')
-  end
-
-
-
-
+  end
\ No newline at end of file