>end subroutine ssht_test_gen_flm_complex</span>
<a name="l00590"></a>00590 
<a name="l00591"></a>00591 
<a name="l00592"></a>00592 <span class="comment">!--------------------------------------------------------------------------</span>
<a name="l00593"></a>00593 <span class="comment">! ran2_dp</span>
<a name="l00594"></a>00594 <span class="comment">!</span>
<a name="l00595"></a>00595 <span class="comment">!! Generate uniform deviate in range [0,1) given seed.</span>
<a name="l00596"></a>00596 <span class="