 Code</h2>
    <div class="hl codehilite"><pre><span></span><span class="n">doubleprecision</span><span class="w"> </span><span class="k">function </span><span class="n">mat_wdotui</span><span class="p">(</span><span class="n">n</span><span class="p">,</span><span class="n">xr</span><span class="p">,</span><span class="n">xi</span><span class="p">,</span><span class="n">incx</span><span class="p">,</span><span class="n">yr</span><span class="p">,</span><span class="n">yi</span><span class="p">,</span><span 