%% initialization of display kriging results

%%  Kriging Software Package  version 1.0 beta,   October 29, 1998
%%  Copyright (c) 1998, property of Dezhang Chu and Woods Hole Oceanographic
%%  Institution.  All Rights Reserved.

if exist('status')
 if status >= 3				% current kriged data
   displaykrigfig
   hdkhdl=findobj(gcf,'Tag','DispFileID');
   set(hdkhdl,'string',FileIDstr);
   status=4;
 else
   displaykrigfig
 end
else								% load previously saved file
   HDIR=pwd;
   displaykrigfig
end
cbarHdl1=[];cbarHdl2=[];
hdk1=[];hdk2=[];hdk3=[];
vKrig=nan;vErr=nan;FigTitle=[];
TrackLineCode=3;