sb, sinhb, coshb, rj, dlj, ddj
<a name="l00085"></a>00085       <span class="keywordtype">real(kind = dp) </span>:: sqrt_jmk, sqrt_kp1, sqrt_jmi, sqrt_ip1
<a name="l00086"></a>00086       <span class="keywordtype">real(kind=dp) </span>:: dd(0: 2 * l + 1, 0: 2 * l + 1)
<a name="l00087"></a>00087 
<a name="l00088"></a>00088       <span class="keyword">if</span> (l &lt; 0) <span class="keyword">then</span>
<a name="l00089"></a>00089 
<a name="l00090"></a>00090          call <a class="code" href="namespacessht_