span><span class="o">=</span><span class="mf">1.0d+0</span><span class="p">,</span><span class="n">zero</span><span class="o">=</span><span class="mf">0.0d+0</span><span class="p">)</span><span class="w"></span>
<span class="c">!     ..</span>
<span class="c">!</span>
<span class="c">!     Set  NOTA  and  NOTB  as  true if  A  and  B  respectively are not</span>
<span class="c">!     transposed and set  NROWA and NROWB  as the number of rows of  A</span>
<span class="c">!     and  B  respectively.</span>
<s