function  radioblock(index)
%%  set value for Point-point/point-Block radio control according to the index
%%  index = 1: point-point kriging
%%        = 2: point - block kriging

%%  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','RadioPP');
hr2=findobj(gcbf,'Tag','RadioPB');
switch index
   case 1
     set(hr1,'value',1);
     set(hr2,'value',0);
   case 2
     set(hr2,'value',1);
     set(hr1,'value',0);
end
   