s="w">      </span><span class="n">s</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mf">0.5d0</span><span class="o">/</span><span class="n">halfm</span><span class="w">                                 </span><span class="c">! s is the scale factor for converting to floating point</span>
<span class="w">   </span><span class="k">endif</span>
<span class="w">   </span><span class="c">! compute next random number</span>
<span class="w">   </span><span class="n">iy</s