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