0001 function [lukeobj,equil] = iluke_equilstrings(lukeobj,equil)
0002
0003 if isfield(equil,'tokamak') && isfield(equil,'shotnum') && isfield(equil,'shotime'),
0004 lukeobj.tokamak.string = equil.tokamak;
0005 lukeobj.shotnum.string = equil.shotnum;
0006 lukeobj.shotimes.string{2} = equil.shotime;
0007 else
0008 isep = find(equil.id == '_');
0009 if length(isep) >= 2,
0010 equil.tokamak = equil.id(1:isep(1) - 1);
0011 equil.shotnum = equil.id(isep(1) + 1:isep(2) - 1);
0012 if length(isep) > 2,
0013 equil.shotime = equil.id(isep(2) + 1:isep(3) - 1);
0014 else
0015 equil.shotime = equil.id(isep(2) + 1:end);
0016 end
0017
0018 lukeobj.tokamak.string = equil.tokamak;
0019 lukeobj.shotnum.string = equil.shotnum;
0020 lukeobj.shotimes.string{2} = equil.shotime;
0021 else
0022 equil.tokamak = '';
0023 equil.shotnum = '';
0024 equil.shotime = '';
0025
0026 lukeobj.tokamak.string = '< ? >';
0027 lukeobj.shotnum.string = '< ? >';
0028 lukeobj.shotimes.string{2}.string = '< ? >';
0029 end
0030 end