jmk, sqrt_kp1, sqrt_jmi, sqrt_ip1
<a name="l00214"></a>00214       <span class="keywordtype">real(kind=dp) </span>:: dd(0: 2 * l + 1, 0: 2 * l + 1)
<a name="l00215"></a>00215 
<a name="l00216"></a>00216       <span class="keyword">if</span> (l &lt; 0) <span class="keyword">then</span>
<a name="l00217"></a>00217 
<a name="l00218"></a>00218          call <a class="code" href="namespacessht__error__mod.html#ab9c297719b0acfce921d32866ddc2b42">ssht_error</a>(<a class="code" href="namespacessht__error__mod.html#a