ent">%                                       % These are indexes into 3rd dim in H</span>
0109 a=unique(Rdd);
0110 [dum,I]=sort(abs(a));
0111 UniqueResps=a(I);                       <span class="comment">% Index into 2nd dim in H</span>
0112 <span class="keyword">for</span> n = 1:length(Rdd)
0113     Refidx=find(UniqueRefs == Fdd(n));
0114     respidx=find(UniqueResps == Rdd(n));
0115     <span class="keyword">if</span> isequal(H(:,respidx,Refidx),zeros(N,1))
0116         H(:,respidx,Refidx)=Htemp(:,n);
011