span class="n">doubleprecision</span><span class="w"> </span><span class="k">function </span><span class="n">mat_wasum</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="kt">integer</span><span class="w">         </span><span class="kd">::</span><span class="w"> </span><span class="n">n</span>
<span class="n">doublepreci