2-1) = cmplx(0d0, 0d0)
<a name="l00359"></a>00359      flm_syn(0:L**2-1) = cmplx(0d0, 0d0)
<a name="l00360"></a>00360      call <a class="code" href="ssht__test_8f90.html#a7a26f08f722eb32bf1e26e298f083fac">ssht_test_gen_flm_complex</a>(L, spin, flm_orig, seed)
<a name="l00361"></a>00361      call cpu_time(time_start)
<a name="l00362"></a>00362      <span class="comment">!-------------------------------------------------------------------------</span>
<a name="l00363"></a>00363      call <a class="code" href