function       helpdisplay(frameindex,helpvarindex)
%%  online help control program

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

helpframefig
TTag='varname';							% 
STag='HELPcontent';						% 
switch frameindex
  case 2
     [helpname,helpcontent]=dataprephelp(helpvarindex);
  case 3
     [helpname,helpcontent]=variogramhelp(helpvarindex);
  case 4
     [helpname,helpcontent]=krighelp(helpvarindex);
  case 5
     [helpname,helpcontent]=displaykrighelp(helpvarindex);
  case 6
     [helpname,helpcontent]=advanceddisphelp(helpvarindex);
  case 7
     [helpname,helpcontent]=advancedvariohelp(helpvarindex);
end
hh1=findobj(gcf,'Tag',STag);
set(hh1,'string',helpcontent);
hh2=findobj(gcf,'Tag',TTag);
set(hh2,'string',helpname);
