function aincoquit
%
%  The function quits the AINCO program after initializing all the variables..
%
% ------------------------------------------------------------------
%  Written by Vassilis Zervakis, while at
%             AINCO-Interocean, Madrid, Spain, in November 1995
%             Modified by Mike Sparrow in June 1997
%-------------------------------------------------------------------
%
global float number timer temp pres lat lon u v wwww
global dataread handles
%
choice = mbox('YESNO','Sure you want to exit ?');
if (choice(1:2) == 'YE'),
disp('Hasta Luego, hombre....');
clear;
clear global;
close all;
else,
end
