0*<a class="code" href="ssht__test_8f90.html#a416afc440685d23877041f1b7632745a">ran2_dp</a>(seed)-1d0, 2d0*<a class="code" href="ssht__test_8f90.html#a416afc440685d23877041f1b7632745a">ran2_dp</a>(seed)-1d0)
<a name="l00528"></a>00528         flm(ind) = tmp
<a name="l00529"></a>00529         call <a class="code" href="namespacessht__sampling__mod.html#a6783e48e387b35bb4a2dc9d5bf575f34">ssht_sampling_elm2ind</a>(ind, el, -m)  
<a name="l00530"></a>00530         flm(ind) = (-1)**m * conjg(tmp)
<a name="l00531