function  radiotrackline(index)
%%  set value for track line radio control according to the index
%%  index = 1: No Track Lines
%%  		 = 2: White Track Lines
%%  		 = 3: Color Coded Tracklines


%%  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','RadioNONE');
hr2=findobj(gcbf,'Tag','RadioWHITE');
hr3=findobj(gcbf,'Tag','RadioCOLOR');
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
   