% - - -
% List a Regions structure routine
%  usage: rg_list(rgl);
%
%%define rg_list (rgl)
%%{

variable ii, temp_str;

vmessage("");
vmessage(" Region List:");
vmessage("%11s %6s   %6s    %s",
	"ID  rgsel","lo ","hi ", "  Description");
ii=0; while ( ii < length(rgl) ) {

  if (rgl[ii].id > 0) {
    temp_str = "       ";
    if (rgl[ii].id == rgsel) { temp_str = "    -->"; }
    vmessage("%11s %6.2f - %6.2f    %s",
	string(rgl[ii].id) + temp_str,
	rgl[ii].lo,
	rgl[ii].hi,
	rgl[ii].desc  );
    }
  ii=ii+1;
  }
vmessage("");

%	string(rgl[ii].lo),
%	string(rgl[ii].hi),

%%}
%%% - - -