peat
<a name="l00275"></a>00275      flm_orig(0:L**2-1) = cmplx(0d0, 0d0)
<a name="l00276"></a>00276      flm_syn(0:L**2-1) = cmplx(0d0, 0d0)
<a name="l00277"></a>00277      call <a class="code" href="ssht__test_8f90.html#a7a26f08f722eb32bf1e26e298f083fac">ssht_test_gen_flm_complex</a>(L, spin, flm_orig, seed)
<a name="l00278"></a>00278      call cpu_time(time_start)
<a name="l00279"></a>00279      <span class="comment">!-------------------------------------------------------------------------</span>
<a nam