 flm_syn(0:L**2-1) = cmplx(0d0, 0d0)
<a name="l00163"></a>00163         call <a class="code" href="ssht__test_8f90.html#a38f7ebbfee8c28f88b922ca179618a98">ssht_test_gen_flm_real</a>(L, flm_orig, seed)
<a name="l00164"></a>00164         call cpu_time(time_start)
<a name="l00165"></a>00165         <span class="comment">!-------------------------------------------------------------------------</span>
<a name="l00166"></a>00166         call <a class="code" href="interfacessht__core__mod_1_1ssht__core__dh__inver