save_opt_data.m

function save_opt_data(filestr, opt_data, model);
%function save_opt_data(filestr, opt_data);
%
%Function saving the output values and corresponding parameter sets to the
%file "filestr".

Pfad=[getenv('RBMATLABTEMP'),'/',filestr];

fid = fopen(Pfad,'w');

fprintf(fid, 'Saved Data from lin_evol_opt model: advection_fv_output_opt_model\n');
fprintf(fid, '\n');
if isfield(model.optimization,'opt_mode')
    fprintf(fid, ['Optimization method: ', model.optimization.opt_mode,'\n']);
end
for i=1:length(model.mu_names)
    fprintf(fid, '%s \t',model.mu_names{i});
end
fprintf(fid,'\nPrinting:\n outputvalue\t Parameters\n');


for i=1:length(opt_data.output)
    fprintf(fid, '%6.4f \t',opt_data.output(i), opt_data.parameter_sets(i,:));
    fprintf(fid, '\n');
end

fclose(fid);