function  radiokrigmodel(index)
%%  set value for kriging model radio control according to the index
%%  index = 1: Object Analysis
%%  		 = 2: Ordinary Kriging
%%  		 = 3: Universal Kriging with a linear drift


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

hr1=findobj(gcbf,'Tag','RadioOA');
hr2=findobj(gcbf,'Tag','RadioOK');
hr3=findobj(gcbf,'Tag','RadioUK');
switch index
   case 1
     set(hr1,'value',1);
     set(hr2,'value',0);
	  set(hr3,'value',0);
   case 2
     set(hr2,'value',1);
     set(hr1,'value',0);
     set(hr3,'value',0);
   case 3
     set(hr3,'value',1);
     set(hr2,'value',0);
	  set(hr1,'value',0);
 end
   