ment">% computation of the rest of the gradient of our merit function</span>
0043   <span class="comment">%if(Uequal) {</span>
0044     <span class="comment">% v Src 0.9 je pouze:  (ale to je temer jiste blbe</span>
0045   <span class="comment">%  pi -= rNu * rEqNorm;</span>
0046     <span class="comment">% misto nasledujiciho z Pennlp 2.3(fi)</span>
0047   <span class="comment">%  spm3v_mlt( (SPMAT3 *) gradeq, Cequal, v_tmp_short );</span>
0048   <span class="comment">%  rTmp = in_prod(v_tmp_short, d);</sp