>&#39;</span><span class="nv">c</span><span class="o">&#39;</span><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">T</span><span class="o">*</span><span class="nv">x</span><span class="o">.</span><span class="w"></span>
</code></pre></div>

<p>DIAG</p>
<div class="codehilite"><pre><span></span><code>       DIAG is CHARACTER*1
        On entry, DIAG specifies whether o