%% advanced semi-variogram/correlogram settings

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

hvfr=findobj(gcf,'Tag','FittingRange');
range_str=get(hvfr,'string');
if ~isempty(range_str);
  fit_range=str2num(range_str);
end
indx=find(lag > fit_range);
if model > 0
   gammah(indx)=zeros(size(indx));
else
   gammah(indx)=ones(size(indx));
end