function data  = load_mat_file_data_legacy(datafile, varobs)
% function data  = load_mat_file_data_legacy(datafile, varobs)
%
% INPUT
% - datafile    [char]          the .mat file to be loaded
% - varobs      [cell of char]  the observed variables
%
% OUTPUT
% - data        [dseries]       the dataset

% Copyright © 2017-2026 Dynare Team
%
% This file is part of Dynare.
%
% Dynare is free software: you can redistribute it and/or modify
% it under the terms of the GNU General Public License as published by
% the Free Software Foundation, either version 3 of the License, or
% (at your option) any later version.
%
% Dynare is distributed in the hope that it will be useful,
% but WITHOUT ANY WARRANTY; without even the implied warranty of
% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
% GNU General Public License for more details.
%
% You should have received a copy of the GNU General Public License
% along with Dynare.  If not, see <https://www.gnu.org/licenses/>.

data_file=load(datafile);

names=fieldnames(data_file);

if ~all(ismember(varobs',names))
    missing_variables=varobs(~ismember(varobs',names))';
    disp_string=[missing_variables{1}];
    for ii=2:size(missing_variables, 2)
        disp_string=[disp_string,', ',missing_variables{ii}];
    end
    error('makedataset: The variable(s) %s listed in varobs are not contained in the dataset %s',disp_string);
else
    data_mat=[];
    for var_iter=1:length(varobs)
        try
            data_mat=[data_mat vec(data_file.(varobs{var_iter}))];
        catch
            error('makedataset: The variable %s does not have dimensions conformable with the previous one', varobs{var_iter});
        end
    end
end

data = dseries(data_mat,[],varobs);
