%% Initialization for calling kriging window

%%  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 status >= 1
   krigingfig
   getdefaultkrigpara
   hkhdl=findobj(gcf,'Tag','KrigFileID');
   set(hkhdl,'string',FileIDstr);
else
   disp('Data have not been loaded!!')
end