function dynare(fname, varargin)
%	This command runs dynare with specified model file in argument
% 	Filename.
%	The name of model file begins with an alphabetic character, 
%	and has a filename extension of .mod or .dyn.
%	When extension is omitted, a model file with .mod extension
%	is processed.
%
% INPUTS
%   fname:      file name
%   varargin:   list of arguments following fname
%             
% OUTPUTS
%   none
%        
% SPECIAL REQUIREMENTS
%   none
%  
% part of DYNARE, copyright Dynare Team (2001-2008)
% Gnu Public License.

if nargin < 1
  error('You must provide the name of the MOD file in argument');
end


warning_config

% disable output paging
more off

% sets default format for save() command
if exist('OCTAVE_VERSION')
  default_save_options('-mat')
end

if ~ischar(fname)
  error ('The argument in DYNARE must be a text string.') ;
end

dynareroot = dynare_config();

% Testing if file have extension
% If no extension defalut .mod is added
if isempty(strfind(fname,'.'))
  fname1 = [fname '.dyn'];
  d = dir(fname1);
  if length(d) == 0
    fname1 = [fname '.mod'];
  end
  fname = fname1;
  % Checking file extension
else
  if ~strcmp(upper(fname(size(fname,2)-3:size(fname,2))),'.MOD') ...
	&& ~strcmp(upper(fname(size(fname,2)-3:size(fname,2))),'.DYN')
    error ('Argument is a file name with .mod or .dyn extension');
  end;
end;
d = dir(fname);
if length(d) == 0
  disp(['DYNARE: can''t open ' fname])
  return
end

command = ['"' dynareroot 'dynare_m" ' fname] ;
for i=2:nargin
  command = [command ' ' varargin{i-1}];
end
[status, result] = system(command);
disp(result)
if status
  % Should not use "error(result)" since message will be truncated if too long
  error('Preprocessing failed')
end

if ~ isempty(find(abs(fname) == 46))
	fname = fname(:,1:find(abs(fname) == 46)-1) ;
end
evalin('base',fname) ;