function  radiovar(index)
%%  set value for variogram-type radio control according to the index
%%  index = 1: semi-variogram
%%        = 2: correlogram

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

global lag gammah

hr1=findobj(gcbf,'Tag','radioVAR');
hr2=findobj(gcbf,'Tag','radioCOV');
switch index
   case 1
     set(hr1,'value',1);
     set(hr2,'value',0);
   case 2
     set(hr2,'value',1);
     set(hr1,'value',0);
end

manualfit