% - - -
% List a Bumps structure routine
%  usage: bp_list(bpl);
%
%%define bp_list (bpl)
%%{

variable ii, temp_str;

vmessage("");
vmessage(" Bump List:");
vmessage("%6s  %6s   %10s %10s %15s %s", 
	"ID", "ignore","wavelength","(group id)","Description ",
	"      Fitting results");
ii=0; while (ii < length(bpl) ) {
  if (bpl[ii].id > 0) {
    temp_str = "      ";
    if (bpl[ii].ignore != 0) { temp_str = "  ig  "; }
    vmessage("%6s %6s %11.4f %12s %15s %s", 
	string(bpl[ii].id),
	temp_str,
	bpl[ii].lam,
	"(" + string(bpl[ii].grp) + ")",
	bpl[ii].desc,
	"   "+string(bpl[ii].lfit) + " A,  " +
	string(bpl[ii].afit) + " +/- " + 
		string( 0.5*(bpl[ii].achi - bpl[ii].aclo) ) +
	",  " + bpl[ii].rgfit  );
    }
  ii=ii+1;
  }
vmessage("");


%%}
%%% - - -