%%  refresh the variogram fit panel -- recover the default setting

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

  load default_coord
  range_max=sqrt((max(x)-min(x))^2+(max(y)-min(y))^2);
  max_lscl=range_max;
  max_osci=4*pi/range_max;
  range=0.5*range_max;
  res=range/30;
  hvrg=findobj(gcf,'Tag','range');
  hvres=findobj(gcf,'Tag','delx');
  set(hvrg,'String',num2str(range));
  set(hvres,'String',num2str(res));
  hvlscl=findobj(gcf,'Tag','txtlscl');
  set(hvlscl,'String','0.5');
  lag=[];gammah=[];nugt=[];sill=[];L=[];p=[];b=[];
  checksliderposition
  
  hvhdl=findobj(gcf,'Tag','VarioFileID');
  set(hvhdl,'string',FileIDstr);
  status=2;
