comsol_load.m

function comsol_load(load_name)
%function comsol_load(load_name)
%
% Loads saved (comsol) data from a file. The filename is given in 'loadname'.
% There must exist two files: load_name.mat and load_name_cmodel.mph
% See also comsol_save.m
%
%Oliver Zeeb, 2012/11/30

%load all the variables in this local funtion and add the comsol_model to
%those structures, which shall contain it!
load(load_name);
varnames = who;
cmodel_temp = mphload([load_name,'_cmodel.mph']);
for k=1:length(varnames)
    if isstruct(eval(varnames{k}))
        if isfield(eval(varnames{k}), 'comsol_model')
            eval([varnames{k},'.comsol_model = cmodel_temp;']);
        end
    end
end

%assign the data in the caller-workspace
for k=1:length(varnames)
    assignin('caller',varnames{k}, eval(varnames{k}));
end

%deletes the string containing the load name
evalin('caller','clear load_name;');