function xnew = varify(x)
% varify.m - excludes empty data points in the data variables
% modified from gmean and gstd by Rich Signell
% Benjamin Gutierrez 09/18/2000
%

%[imax,jmax] = size(x);
%if(imax==1),
%  imax = jmax;
%  jmax = 1;
%  x = x.';
%end

good = find(finite(x));

xnew = x(good,1);

%for j = 1:imax
%       good = find(finite(x(:,j)));
%       if length(good)>0
%          xnew(j) = (x(good,j));
%       else
%          xnew(j) = NaN;
%       end
%end