%------------------------------------------------------------------------
% NAME:    temporary_directory
%
%          Creates an empty temporary directory with unique name.
%
% FORMAT:  tmpdir = temporary_directory(tmparea)
%
% RETURN:  tmpdir      Full path of temporary directory.
% IN:      tmparea     Full path of directory where to place the temporary
%                      directory.
%------------------------------------------------------------------------

% HISTORY: 2000.12.14  Created by Patrick Eriksson.


function tmpdir = temporary_directory(tmparea)

status = 0;


while status ~= 1

  startdir = pwd;

  if ~exist(tmparea,'dir')
    error(sprintf('The directory "%s" does not exist.',tmparea)); 
  end

  cd( tmparea );

  tmpdir = sprintf('Tmp%d',floor(1e6*rand(1)));

  status = mkdir(tmpdir);

  cd( startdir );

end

tmpdir = sprintf('%s/%s',tmparea,tmpdir);