%
%
%
% function [snnan]=sumnnan(y);
%
% outputs the sum of all the not NaN's in a series
%
function  [snnan]=sumnnan(y);
snnan=sum(y(find(isnan(y)~=1)));
