dispremoteprofiles

 displays remote profiles 

 INPUTS :

   - dkepath :
       o structure with field profilestr : read profiles from field
       o 'script' : read profiles from path script corresponding to local profile
       o otherwise : load dkepath from getappdata(0) (same as LUKE_PATH.mat)

0001 function dispremoteprofiles(dkepath)
0002 %
0003 % displays remote profiles
0004 %
0005 % INPUTS :
0006 %
0007 %   - dkepath :
0008 %       o structure with field profilestr : read profiles from field
0009 %       o 'script' : read profiles from path script corresponding to local profile
0010 %       o otherwise : load dkepath from getappdata(0) (same as LUKE_PATH.mat)
0011 %
0012 if nargin >= 1 && isfield(dkepath,'profilestr');
0013     sourcestr = ' (from structure ''dkepath'')';
0014 elseif nargin >= 1 && ischar(dkepath) && strcmp(dkepath,'script'),
0015     [dkepath,SelectedPathFileName] = load_dkepath_yp(1);
0016     dkepath = update_remote_jd(dkepath,NaN,0,0);
0017     sourcestr = [' (from ''',SelectedPathFileName,''')'];
0018 elseif isappdata(0,'dkepath'),
0019     dkepath = getappdata(0,'dkepath');
0020     sourcestr = ' (from ''getappdata(0)'')';
0021 else
0022     disp('WARNING : Cannot retrieve remote profiles')
0023     return
0024 end
0025 %
0026 nrem = length(dkepath.profilestr);
0027 %
0028 disp (' ')
0029 info_dke_yp(2,['List of compatible remote profiles available from this computer',sourcestr])
0030 disp(' ')
0031 %
0032 for irem = 1:nrem,
0033     info_dke_yp(4,['#',num2str(irem),' : ',dkepath.profilestr{irem}]);
0034 end
0035 disp(' ')