%load rocky
!rm rose.met
[m,n]=size(wlp);
nind=length(ind);
%for i=1:n-1,
for i=1:1,
   for k=1:nind-1,
%  for k=1:1,
     i1=ind(k);
     i2=ind(k+1);
%    i2=ind(nind);
     ii=i1:i2;
     str1=date_lbl(gregorian(jdlp(i1)),gregorian(jdlp(i2)));
     z=denan(lnb_wind_str(ii,i));
     if(length(z)>60),
       stdz(k,4)=mean(abs(z));
     else
       stdz(k,4)=NaN;
     end
   end
end
