IM2
<a name="l00643"></a>00643   j=1+iy/NDIV
<a name="l00644"></a>00644   iy=iv(j)-idum2
<a name="l00645"></a>00645   iv(j)=idum
<a name="l00646"></a>00646   <span class="keyword">if</span>(iy.lt.1)iy=iy+IMM1
<a name="l00647"></a>00647   ran2_dp=min(AM*iy,RNMX)
<a name="l00648"></a>00648   return
<a name="l00649"></a>00649 
<a name="l00650"></a>00650 <span class="keyword">end function ran2_dp</span>
<a name="l00651"></a>00651 
</pre></div></div>
<hr class="footer"/><address style="text-align: right;"><small