n>
<a name="l00148"></a>00148   <span class="keyword">if</span> (ind_check /= L**2) <span class="keyword">then</span>
<a name="l00149"></a>00149      call <a class="code" href="namespacessht__error__mod.html#ab9c297719b0acfce921d32866ddc2b42">ssht_error</a>(<a class="code" href="namespacessht__error__mod.html#a9e7da7d73d594698fbfcc1de092e0499">SSHT_ERROR_INDEX_INVALID</a>, <span class="stringliteral">&#39;ssht_test&#39;</span>)
<a name="l00150"></a>00150   <span class="keyword">end if</span>
<a name="l00151