function M=surfp(values,tabp)
% function tabval=surfp(values,tabp)
% tabp is the 7 by 18 table of atomic numbers
% surfp puts values - which many be BoilingPt, ionE, etc.
% into a 6x18 table so that a surface or mesh plot can be done
% right now, zeros could mean no element (period 1, group 5)
% missing data, or an actual value of 0.  This should be changed.
% Returns a movie of the surface
tabval = zeros(size(tabp));
for i=1:6;
  for j=1:18;
if tabp(i,j)>0;
   tabval(i,j)=values(tabp(i,j));
end;
end;
end;
surf(tabval);