"></a>00122 
<a name="l00123"></a>00123          sinhb = sin(beta / 2.0) <span class="comment">! p</span>
<a name="l00124"></a>00124          coshb = - cos(beta / 2.0) <span class="comment">!-q</span>
<a name="l00125"></a>00125 
<a name="l00126"></a>00126          <span class="comment">! Initialise the plane of the dl-matrix to 0.0 for the recursion</span>
<a name="l00127"></a>00127          <span class="comment">! from l - 1 to l - 1/2.</span>
<a name="l00128"></a>00128 
<a name="l00129"></a>00129         