00578"></a>00578 
<a name="l00579"></a>00579   flm(0:L**2-1) = cmplx(0d0, 0d0)
<a name="l00580"></a>00580 
<a name="l00581"></a>00581   call <a class="code" href="namespacessht__sampling__mod.html#a6783e48e387b35bb4a2dc9d5bf575f34">ssht_sampling_elm2ind</a>(ind_lo, abs(spin), 0)
<a name="l00582"></a>00582   <span class="keyword">do</span> ind = ind_lo,L**2 - 1
<a name="l00583"></a>00583 <span class="comment">!     call ssht_core_ind2elm(el, m, ind)  </span>
<a name="l00584"></a>00584 <span class="comment">!