 <span class="keyword">for</span> mode = 1:Nm
0071             <span class="comment">% Calculate residue. NOTE!  Modes scaled to unity modal A</span>
0072             A=V(indof(inno),mode)*V(outdof(outno),mode);
0073             <span class="comment">% Compute dynamic flexibility</span>
0074             H(:,outno,inno)=H(:,outno,inno)+A./(jw-p(mode))+conj(A)./(jw-conj(p(mode)));
0075         <span class="keyword">end</span>
0076         <span class="keyword">if</span> strcmp(Type,<span class="string">'V'</s