setenv('LD_LIBRARY_PATH', [getenv('LD_LIBRARY_PATH') ';/net/ocp/more/matlab/lib']);
setenv('LD_LIBRARY_PATH', [getenv('LD_LIBRARY_PATH') ';/ocp/ocp/matlab/lib']);

ppaths = ['/OCP/matlab/                 ';...
          '/ocp/more/matlab/            ';...
          '/net/ocp/matlab/             ';...
          '/ocp/ocp/matlab/             ';...
          '/net/matlab/                 ';...
          '/orphan/h1/krahmann/matlab/  ';...
	  '/h1/krahmann/matlab/         ';...
	  '/home/krahmann/matlab/       ';...
	  '/net/h1/krahmann/matlab/     ';...
	  '/other/h1/krahmann/matlab/   ';...
	  '/more/matlab/                ';...
	  '/ms/matlab/                  ';...
	  '/net/ocp/more/matlab/        ';...
	  '/turf/orphan/krahmann/matlab/'];

for n=1:size(ppaths,1)
  if exist([deblank(ppaths(n,:)),'dontcopythisfileelsewhere.txt'])
    if exist([deblank(ppaths(n,:))])
      pbase = deblank(ppaths(n,:));
      break
    end
  end      
end
disp(pbase)

addpath(['',...
        [pbase,'colmaps:'],...
        [pbase,'cruise:'],...
        [pbase,'datafun:'],...
        [pbase,'graphics:'],...
        [pbase,'datatools:'],...
        [pbase,'devel:'],...
        [pbase,'misc:'],...
        [pbase,'misc2:'],...
        [pbase,'cmo:'],...
        [pbase,'jpl/regress:'],...
        [pbase,'jpl/util:'],...
        [pbase,'gen_netcdf:'],...
        [pbase,'loaddap2:'],...
        ''])

pbase1 = pbase;
pbase1 = [pbase1,'good/'];
addpath(['',...
        [pbase1,'ladcp:'],...
        [pbase1,'ladcp_extra:'],...
        [pbase1,'rodb:'],...
        [pbase1,'geo:'],...
        [pbase1,'loam:'],...
        [pbase1,'loam/functions:'],...
        [pbase1,'ocean:'],...
        [pbase1,'datafun:'],...
        [pbase1,'graphics:'],...
        [pbase1,'mm:'],...
        [pbase1,'stat:'],...
        [pbase1,'misc:'],...
        [pbase1,'gerdstat:'],...
        [pbase1,'mergevel:'],...
        [pbase1,'met:'],...
        [pbase1,'datatools:'],...
        [pbase1,'m_map14:'],...
        [pbase1,'m_extra:'],...
        [pbase1,'topo:'],...
        [pbase1,'topoedit:'],...
        [pbase1,'seawater:'],...
        [pbase1,'saga:'],...
        [pbase1,'felixt:'],...
        [pbase1,'dods:'],...
        ''])
%        [pbase,'dods/bin:'],...
pbase1 = pbase;
pbase1 = [pbase1,'public/'];
addpath(['',...
        [pbase1,'datafun:'],...
        [pbase1,'datatools:'],...
        ''])

% call mexcdf startup
dummy = version;
if strcmp(dummy(1),'5')
  addpath([pbase,'mexcdf'])
  addpath( fullfile(pbase, 'mexcdf', 'netcdf', ''))
  addpath( fullfile(pbase, 'mexcdf', 'netcdf', 'nctype', ''))
  addpath( fullfile(pbase, 'mexcdf', 'netcdf', 'ncutility', ''))
elseif strcmp(dummy(1),'6')
  if strcmp(dummy(3),'0')
    addpath([pbase,'mexcdf6'])
    addpath( fullfile(pbase, 'mexcdf6', 'netcdf', ''))
    addpath( fullfile(pbase, 'mexcdf6', 'netcdf', 'nctype', ''))
    addpath( fullfile(pbase, 'mexcdf6', 'netcdf', 'ncutility', ''))
  else
    addpath([pbase,'mexcdf61'])
    addpath( fullfile(pbase, 'mexcdf61', 'netcdf', ''))
    addpath( fullfile(pbase, 'mexcdf61', 'netcdf', 'nctype', ''))
    addpath( fullfile(pbase, 'mexcdf61', 'netcdf', 'ncutility', ''))
  end
elseif strcmp(dummy(1),'7')
  addpath([pbase,'mexnc-dap'])
  addpath([pbase,'snctools'])
  addpath([pbase,'netcdf_toolbox'])
  addpath( fullfile(pbase, 'netcdf_toolbox', 'netcdf', ''))
  addpath( fullfile(pbase, 'netcdf_toolbox', 'netcdf', 'ncutility', ''))
  addpath( fullfile(pbase, 'netcdf_toolbox', 'netcdf', 'nctype', ''))
else
  warning('no netCDF toolbox loaded because only Matlab 5 to 7 are supported')
end
clear dummy


%a4letter

set(0,'defaultsurfaceedgecolor','none');
set(0,'defaultaxestickdir','out');
set(0,'defaultaxesfontweight','bold');
set(0,'defaultaxesfontsize',10);
corder = [0,0,1;1,0,0;0,1,0;0,0,0;0.75,0,0.75;0,0.75,0.75;0.75,0.75,0];
set(0,'defaultaxescolororder',corder)
clear pbase hostname pbase1 corder ppaths