function writeNANO2
%WRITENANO2 Write the image in a nano2 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 '*']);

if ~isempty(name) & name ~= 0
        f=watchon;
        statusbar('Writing NANO2 file...');
        NANO2name = [path name];
		
        nano2write(NANO2name, H, height2ind(H, I));
        
        watchoff(f);
        clearstatusbar;
end

return