ray Arguments ..
   complex,intent(in)    :: ap(*)
   complex,intent(inout) :: x(*)
   ..
</code></pre></div>

<h2 id="definition">DEFINITION</h2>
<p>CTPMV  performs one of the matrix-vector operations</p>
<div class="codehilite"><pre><span></span><code><span class="w"> </span><span class="nv">x</span><span class="w"> </span><span class="o">:=</span><span class="w"> </span><span class="nv">A</span><span class="o">*</span><span class="nv">x</span><span class="p">,</span><span class="w">   </span><span class=