function unew=denan(u);
%function unew=denan(u);
%                        removes all rows with  NaNs
unew=u;
[imax,jmax]=size(u);
for j=1:jmax
	 good=find(unew(:,j)~=NaN);
      unew=unew(good,:);
end
