span> :: f_dh_real(:,:), f_gl_real(:,:), f_mweo_real(:,:), f_mw_real(:,:)
<a name="l00091"></a>00091   <span class="keywordtype">real(dp) </span>:: phi_sp_mweo, phi_sp_mw
<a name="l00092"></a>00092   <span class="keywordtype">complex(dpc) </span>:: f_sp_mweo, f_sp_mw
<a name="l00093"></a>00093   <span class="keywordtype">real(dp) </span>:: f_real_sp_dh, f_real_sp_gl, f_real_sp_mweo, f_real_sp_mw
<a name="l00094"></a>00094 
<a name="l00095"></a>00095   <span class="comment">! Initialise parameters.</span>
<a