iluke_update_dkeparam

 script iluke_update_dkeparam

0001 % script iluke_update_dkeparam
0002 %
0003 for it = 1:ntimes,
0004     if isempty(dkeparams{it});
0005         dkeparams{it} = load_structures_yp('dkeparam','RT','');% default dkeparam
0006     end
0007 end
0008 %
0009 if curtime > 0,
0010     %
0011     lukeobj.param.modify.state = 'on';
0012     lukeobj.param.load.state = 'on';
0013     lukeobj.param.save.state = 'on';
0014     %
0015     if isfield(dkeparams{curtime},'orig'),
0016         lukeobj.param.reset.state = 'on';
0017     else
0018         lukeobj.param.reset.state = 'off';
0019     end
0020     %
0021     lukeobj.param.text.string = dkeparams{curtime}.id;
0022     %
0023 else
0024     %
0025     comptest = true;
0026     %
0027     for it = 2:ntimes,
0028         comptest = comptest && comp_struct_jd(dkeparams{1},dkeparams{it},0);
0029     end
0030     %
0031     if ntimes > 0 && comptest,
0032         lukeobj.param.modify.state = 'on';
0033         lukeobj.param.load.state = 'on';
0034         lukeobj.param.save.state = 'on';
0035         %
0036         if isfield(dkeparams{1},'orig'),
0037             lukeobj.param.reset.state = 'on';
0038         else
0039             lukeobj.param.reset.state = 'off';
0040         end
0041         %
0042         lukeobj.param.text.string = dkeparams{1}.id;
0043     else
0044         lukeobj.param.modify.state = 'off';
0045         lukeobj.param.load.state = 'off';
0046         lukeobj.param.save.state = 'off';
0047         lukeobj.param.reset.state = 'off';
0048         lukeobj.param.text.string = '< time specific >';
0049     end
0050     %
0051     clear it comptest
0052 end
0053 %