set_stationary_variables_list

 This function builds a vector of indices targeting to the stationary
 variables in varlist.
 
 INPUTS 
   o options_   [structure]  Describes global options. 
   o M_         [structure]  Describes the model.
 OUTPUTS 
   o ivar       [integer]    nvar*1 vector of indices (nvar is the number
                             of stationary variables).
   o vartan     [char]       array of characters (with nvar rows).
   o options_   [structure]  Describes global options.
 
 ALGORITHM 
   None.       

 SPECIAL REQUIREMENTS
   None.

0001 function [ivar,vartan,options_] = set_stationary_variables_list(options_,M_)
0002 % This function builds a vector of indices targeting to the stationary
0003 % variables in varlist.
0004 %
0005 % INPUTS
0006 %   o options_   [structure]  Describes global options.
0007 %   o M_         [structure]  Describes the model.
0008 % OUTPUTS
0009 %   o ivar       [integer]    nvar*1 vector of indices (nvar is the number
0010 %                             of stationary variables).
0011 %   o vartan     [char]       array of characters (with nvar rows).
0012 %   o options_   [structure]  Describes global options.
0013 %
0014 % ALGORITHM
0015 %   None.
0016 %
0017 % SPECIAL REQUIREMENTS
0018 %   None.
0019 
0020 % Copyright (C) 2007-2011 Dynare Team
0021 %
0022 % This file is part of Dynare.
0023 %
0024 % Dynare is free software: you can redistribute it and/or modify
0025 % it under the terms of the GNU General Public License as published by
0026 % the Free Software Foundation, either version 3 of the License, or
0027 % (at your option) any later version.
0028 %
0029 % Dynare is distributed in the hope that it will be useful,
0030 % but WITHOUT ANY WARRANTY; without even the implied warranty of
0031 % MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
0032 % GNU General Public License for more details.
0033 %
0034 % You should have received a copy of the GNU General Public License
0035 % along with Dynare.  If not, see <http://www.gnu.org/licenses/>.
0036 
0037 varlist = options_.varlist;
0038 if isempty(varlist)
0039     varlist = options_.varobs;
0040     options_.varlist = varlist;
0041 end
0042 nvar = rows(varlist);
0043 vartan = varlist;
0044 nvar = size(vartan,1);
0045 ivar = zeros(nvar,1);
0046 for i = 1:nvar
0047     ivar(i) = strmatch(deblank(vartan(i,:)),M_.endo_names,'exact');
0048 end