00522"></a>00522      tmp = cmplx(2d0*<a class="code" href="ssht__test_8f90.html#a416afc440685d23877041f1b7632745a">ran2_dp</a>(seed)-1d0, 0d0)
<a name="l00523"></a>00523      flm(ind) = tmp
<a name="l00524"></a>00524 
<a name="l00525"></a>00525      <span class="keyword">do</span> m = 1,el
<a name="l00526"></a>00526         call <a class="code" href="namespacessht__sampling__mod.html#a6783e48e387b35bb4a2dc9d5bf575f34">ssht_sampling_elm2ind</a>(ind, el, m)  
<a name="l00527"></a>00527         tmp = cmplx(2d