0001 function r = update_report(r, report_str) 0002 % 0003 0004 if ~isfield(r,'msglog') 0005 r.msglog = {}; 0006 end 0007 0008 r.msglog = [r.msglog;{report_str}]; 0009 0010 if isfield(r,'report_on_fly') && ~isempty(r.report_on_fly) 0011 fprintf('%s\n',report_str) 0012 end 0013 0014 if isfield(r,'logfile_fid') 0015 fprintf(r.logfile_fid,'%s\n',report_str); 0016 end