function r=iscf(cf) 
% iscf(cf)  returns 1 if given cumulative function is valid 
r=1; 
if ~(cf(1,2)==0) 
   r=0; 
end 
p=pvals(cf); 
if inrange(max(p),1,1e-4)==0 
   r=0; 
end 
if min(p)<0 
   r=0; 
end 
for i=1:(length(p)-1) 
   if p(i)>p(i+1) 
      r=0; 
   end 
end