function GPS_plots (data)
% GPS_plots: calls plot routine for GPS items
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

if (data.GPS.loaded==0)
   err_text=sprintf('Please load GPS data!\n');
   fault(err_text);
   return;
end;

% add wait bar
whan=waitbar(0.01,'Generating GPS Plots, Please wait...',...
   'Name','Plotting',...
   'CloseRequestFcn','closereq',...
   'WindowStyle','Normal',...
   'Pointer','watch');
drawnow;

% get the GPS file directory
j01=findstr(data.GPS.GPS_file,'\');
data.current_path=data.GPS.GPS_file(1:j01(end));
if (exist(data.current_path)~=7)
   err_text=sprintf('The directory for the GPS data does not exist!\n');
   fault(err_text);
   return;
end;

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% call plot routine

if ((strcmp(data.GPS.type,'RT17')==1)|(strcmp(data.GPS.type,'PreRT17')==1)|(strcmp(data.GPS.type,'DAT')==1))
   [data,whan]=GPS_RT17_plots(data,whan);
end;

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% remove wait bar

set(whan,'Pointer','arrow');
delete(whan);

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
return;
