 flm_orig(0:L**2-1) = cmplx(0d0, 0d0)
<a name="l00189"></a>00189         flm_syn(0:L**2-1) = cmplx(0d0, 0d0)
<a name="l00190"></a>00190         call <a class="code" href="ssht__test_8f90.html#a38f7ebbfee8c28f88b922ca179618a98">ssht_test_gen_flm_real</a>(L, flm_orig, seed)
<a name="l00191"></a>00191         call cpu_time(time_start)
<a name="l00192"></a>00192         <span class="comment">!-------------------------------------------------------------------------</span>
<a name="l00193"></a>00193         call