     if(el &gt;= abs(spin)) then</span>
<a name="l00585"></a>00585         flm(ind) = cmplx(2d0*<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="l00586"></a>00586 <span class="comment">!     end if</span>
<a name="l00587"></a>00587   <span class="keyword">end do</span>
<a name="l00588"></a>00588 
<a name="l00589"></a>00589 <span class="keyword"