pan class="keywordtype">integer</span> :: el, m, ind
<a name="l00516"></a>00516   <span class="keywordtype">complex(dpc) </span>:: tmp
<a name="l00517"></a>00517 
<a name="l00518"></a>00518   flm(0:L**2-1) = cmplx(0d0, 0d0)
<a name="l00519"></a>00519   <span class="keyword">do</span> el = 0,L-1
<a name="l00520"></a>00520      m = 0
<a name="l00521"></a>00521      call <a class="code" href="namespacessht__sampling__mod.html#a6783e48e387b35bb4a2dc9d5bf575f34">ssht_sampling_elm2ind</a>(ind, el, m)  
<a name="l