function mat = repnan(data)
%
% Converts any NaN data to 0 so that the matrix is defined
% 
   [m,n]=size(data);   ddata=isnan(data);   for nn=1:n   for mm=1:m   if ddata(mm,nn) == 1   data(mm,nn) = 0;   end   end   end   mat=data;