pan class="n">halfm</span>
<span class="n">doubleprecision</span><span class="p">,</span><span class="k">save</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">s</span>
<span class="n">doubleprecision</span><span class="w">      </span><span class="kd">::</span><span class="w"> </span><span class="nb">datan</span>
<span class="n">doubleprecision</span><span class="w">      </span><span class="kd">::</span><span class="w"> </span><span class="nb">dsqrt</span>
<sp