%% set default variogram parameters

%%  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.


  hvlscl=findobj(gcf,'Tag','txtlscl');
  [tmp indx1]=max(gammah);
  [tmp indxl]=min(abs(gammah(1:indx1)-0.3));			% 3dB
  lscl=lag(indxl);
  if lscl <= 0.01*max(lag)
     lscl=0.1*max(lag);
  end
  set(hvlscl,'String',num2str(lscl));
  h1=findobj(gcf,'Tag','txtnugt');
  set(h1,'string','0');
  h1=findobj(gcf,'Tag','txtsill');
  set(h1,'string','1');
  h1=findobj(gcf,'Tag','txtpowr');
  set(h1,'string','1.5');
  h1=findobj(gcf,'Tag','txtosci');
  set(h1,'string','0');

checksliderposition
manualfit