ass="keyword">allocate</span>(f_dh_real(0:2*L-1, 0:2*L-2), stat=fail)
<a name="l00110"></a>00110   <span class="keyword">allocate</span>(f_gl_real(0:L-1, 0:2*L-2), stat=fail)
<a name="l00111"></a>00111   <span class="keyword">allocate</span>(f_mweo_real(0:L-2, 0:2*L-2), stat=fail)
<a name="l00112"></a>00112   <span class="keyword">allocate</span>(f_mw_real(0:L-2, 0:2*L-2), stat=fail)
<a name="l00113"></a>00113   <span class="keyword">if</span>(fail /= 0) <span class="keyword">then</span>
<a name="l00114"></