function [smoothed,fs,dfs]=specsmoo_041709(SS,FF) 

nf=2^16;
smoothed=[];fs=[];dfs=[];
%spectral smoother
% n=nf/2;
n=length(SS);
c=.118;
jx=1;
dx=1;
ix=1;
inx=1;
while jx<n,
    dx=(dx*exp(c));
    d=floor(dx);
    acu=0;ac2=0;
    k=0;
    for jx=ix:ix+d-1;
        if jx==n,
            break;
        end;
        acu=acu+SS(jx);
        ac2=ac2+FF(jx);
        k=k+1;
    end; %end for  jx
    smoothed(inx)=acu/k;
    fs(inx)=ac2/k;
    dfs(inx)=FF(jx)-FF(ix)+FF(2);
    ix=jx+1;
    inx=inx+1; 
end;%end while jx

%042009 - LB add
dfs(1)=0;

%BEFORE:
% % fs(inx)=ac2/k
% % 
% % fs =
% % 
% %          0    0.0017

% % dfs(inx)=FF(jx)-FF(ix)+FF(2)
% % 
% % dfs =
% % 
% %     0.0017    0.0017
