if (! exist (fullfile (fileparts (mfilename ("fullpath")), "inst"), "dir"))
dirlist= {"Utilities","DDG","DDN"};
for ii=1:length(dirlist)
rmpath ( [ fileparts( mfilename("fullpath")) "/" dirlist{ii}])
end
end