convertAimCodeToInfo

 function [info] = convertAimCodeToInfo(aimCode)
 Returns an appropriate code for print_info

 INPUTS
   aimCode     [integer]    code returned by AIM
      (aimCode==1)  e='Aim: unique solution.';
      (aimCode==2)  e='Aim: roots not correctly computed by real_schur.';
      (aimCode==3)  e='Aim: too many big roots.';
      (aimCode==35) e='Aim: too many big roots, and q(:,right) is singular.';
      (aimCode==4)  e='Aim: too few big roots.';
      (aimCode==45) e='Aim: too few big roots, and q(:,right) is singular.';
      (aimCode==5)  e='Aim: q(:,right) is singular.';
      (aimCode==61) e='Aim: too many exact shiftrights.';
      (aimCode==62) e='Aim: too many numeric shiftrights.';
      (aimCode==63) e='Aim: A is NAN or INF.';
      (aimCode==64) e='Aim: Problem in SPEIG.';

 OUTPUTS
   info        [integer]    Code to be used to print error in print_info.m

0001 function [info] = convertAimCodeToInfo(aimCode)
0002 % function [info] = convertAimCodeToInfo(aimCode)
0003 % Returns an appropriate code for print_info
0004 %
0005 % INPUTS
0006 %   aimCode     [integer]    code returned by AIM
0007 %      (aimCode==1)  e='Aim: unique solution.';
0008 %      (aimCode==2)  e='Aim: roots not correctly computed by real_schur.';
0009 %      (aimCode==3)  e='Aim: too many big roots.';
0010 %      (aimCode==35) e='Aim: too many big roots, and q(:,right) is singular.';
0011 %      (aimCode==4)  e='Aim: too few big roots.';
0012 %      (aimCode==45) e='Aim: too few big roots, and q(:,right) is singular.';
0013 %      (aimCode==5)  e='Aim: q(:,right) is singular.';
0014 %      (aimCode==61) e='Aim: too many exact shiftrights.';
0015 %      (aimCode==62) e='Aim: too many numeric shiftrights.';
0016 %      (aimCode==63) e='Aim: A is NAN or INF.';
0017 %      (aimCode==64) e='Aim: Problem in SPEIG.';
0018 %
0019 % OUTPUTS
0020 %   info        [integer]    Code to be used to print error in print_info.m
0021 
0022 % Copyright (C) 2011 Dynare Team
0023 %
0024 % This file is part of Dynare.
0025 %
0026 % Dynare is free software: you can redistribute it and/or modify
0027 % it under the terms of the GNU General Public License as published by
0028 % the Free Software Foundation, either version 3 of the License, or
0029 % (at your option) any later version.
0030 %
0031 % Dynare is distributed in the hope that it will be useful,
0032 % but WITHOUT ANY WARRANTY; without even the implied warranty of
0033 % MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
0034 % GNU General Public License for more details.
0035 %
0036 % You should have received a copy of the GNU General Public License
0037 % along with Dynare.  If not, see <http://www.gnu.org/licenses/>.
0038 
0039 switch aimCode
0040   case 1
0041     info = 0; % no problem encountered
0042   case 2
0043     info = 102;
0044   case 3
0045     info = 103;
0046   case 35
0047     info = 135;
0048   case 4
0049     info = 104;
0050   case 45
0051     info = 145;
0052   case 5
0053     info = 105;
0054   case 61
0055     info = 161;
0056   case 62
0057     info = 162;
0058   case 63; 
0059     info = 163;
0060   case 64
0061     info = 164;
0062   otherwise
0063     info = 1;
0064 end