function swz_sbvar(ms_flag, M, options)

dynareroot = strrep(which('dynare'),'dynare.m','');
swz_root = [dynareroot '/swz'];

addpath([swz_root '/cstz']);
addpath([swz_root '/identification']);
addpath([swz_root '/switching_specification']);
addpath([swz_root '/mhm_specification']);

clean_swz_files(M.fname);

options.data = read_variables(options.datafile,options.varobs,[],options.xls_sheet,options.xls_range);

if options.forecast == 0
    options.forecast = 4;
end

options.ms.output_file_tag = M.fname;
%options.ms.markov_file = 'specification_2v2c.dat';
%options.ms.mhm_file = 'MHM_input.dat';
%options.ms.restriction_fname = 'ftd_upperchol3v'; 

if options.ms.upper_cholesky
    if options.ms.lower_cholesky
        error(['Upper Cholesky and lower Cholesky decomposition can''t be ' ...
               'requested at the same time!'])
    else
        options.ms.restriction_fname = 'upper_cholesky';
    end
elseif options.ms.lower_cholesky
    options.ms.restriction_fname = 'lower_cholesky';
elseif ~isempty(options.ms.Qi) && ~isempty(options.ms.Ri)
    options.ms.restriction_fname = 'exclusions';
end

if ms_flag == 1
    % changing some option names to match SWZ code 
    options.ms.firstMetrop = options.ms.draws_nbr_burn_in_1;
    options.ms.secondMetrop = options.ms.draws_nbr_burn_in_2;
    options.ms.ndrawsmv = options.ms.draws_nbr_mean_var_estimate;
    options.ms.ndrawsmhm = options.ms.draws_nbr_modified_harmonic_mean;
    options.ms.tfmhm = options.ms.thinning_factor;
    options.ms.svd = options.ms.dirichlet_scale;
    % are these options necessary ?
    options.ms.opt1 = 1;
    options.ms.opt2 = 1;
    options.ms.opt3 = 1;
    % temporary fix
    options.ms.markov_file = 'markov_file';
    sz_prd(M,options);
else
    swz_mardd(options);
end