b, coshb, rj, dlj, ddj
<a name="l00334"></a>00334       <span class="keywordtype">real(kind = dp) </span>:: sqrt_jmk, sqrt_kp1, sqrt_jmi, sqrt_ip1
<a name="l00335"></a>00335       <span class="keywordtype">real(kind=dp) </span>:: dd(0: 2 * l + 1, 0: 2 * l + 1)
<a name="l00336"></a>00336 
<a name="l00337"></a>00337       <span class="keyword">if</span> (l &lt; 0) <span class="keyword">then</span>
<a name="l00338"></a>00338 
<a name="l00339"></a>00339          call <a class="code" href="namespacessht__error__