% Redirecting MATLAB to ESF network specific user-controlled startup directory
%
if strcmp(pwd,[matlabroot,'\work'])
   if exist('Z:\')
      uwd = 'Z:\matlab\work';  % User working directory: modify if necessary
   elseif exist('X:\')
      uwd = 'X:\matlab\work';  % User working directory: modify if necessary
   else
      error('Nenalezl se sitovy disk');
   end
   disp('MATLAB byl automaticky spusten v adresari:');
   try
      cd(uwd);
      disp(pwd);
      OK=1;
   catch
      disp(pwd);
      disp(' ')
      disp('UPOZORNENI:')
      disp(['Doporucuje se vytvorit adresar ''',uwd,'''.']);
      disp('MATLAB pak pri kazdem dalsim spusteni nastavi automaticky')
      disp('tento adresar jako Vas osobni pracovni adresar.')
      disp('Pokud v nem nalezne soubor ''startup.m'', tak jej provede.');
      disp('Do tohoto souboru muzete tedy umistit jakekoliv prikazy,');
      disp('ktere chcete automaticky provest po spusteni MATLABu.');
      OK=0;
   end
   if ~isempty(which([uwd,'\startup']))
      startup
   elseif OK
     disp(' ');
     disp('Do tohoto adresare muzete umistit soubor ''startup.m'' a do nej');
     disp('prikazy, ktere chcete automaticky provest po spusteni MATLABu.');
   end
   clear uwd OK;
else
   disp(['!!!UZIVATEL NEMA PRAVO SPOUSTET SOUBOR ''startup.m'' z ''',matlabroot,'\work''']);
end
