% clickel returns information about an element when table clicked
[x y]=ginput(1);
anum=tabp(ceil(y),ceil(x));
disp(' ');
if anum==0
  disp('no element here')
else
  disp(['Symbol is ' Symbol(anum,:)]);
  disp(['Atomic Radius is ' num2str(Atomicrad(anum))]);
  disp(['Boiling Point is ' num2str(BoilingPt(anum))]);
  disp(['Date Discovered is ' num2str(Date(anum))]);
  disp(['Density is ' num2str(Density(anum))]);
  disp(['Abundance is ' num2str(abund(anum))]);
end