function writeSPIDER
%WRITESPIDER Write the image in a spider file format

%
% Copyright (c) 1995 by Claudio Rivetti and Mark Young
% claudio@alice.uoregon.edu,    mark@alice.uoregon.edu
%


global H I savepath

[name, path] = uiputfile([savepath '*.DAT']);

if name ~= 0 & ~isempty(name)
  f=watchon;
  statusbar('Writing SPIDER file...');
  fname = [path name];
  spiwrite(fname, I, H);
  watchoff(f);
  clearstatusbar;
end
return;