r(<span class="string">'indof needs to be specified!'</span>)
0045 <span class="keyword">elseif</span> nargin == 4
0046     outdof = 1:length(V(:,1));
0047     Type=<span class="string">'V'</span>;
0048 <span class="keyword">elseif</span> nargin == 5
0049     Type=<span class="string">'V'</span>;
0050 <span class="keyword">else</span>
0051     Type=upper(Type);
0052 <span class="keyword">end</span>
0053 
0054 <span class="comment">% Calculate wd for mode scaling</span>
0055 wd=imag(p);
0056 <span class="com