wen</span>
<a name="l00610"></a>00610 <span class="comment">!--------------------------------------------------------------------------</span>
<a name="l00611"></a>00611 
<a name="l00612"></a><a class="code" href="ssht__test_8f90.html#a416afc440685d23877041f1b7632745a">00612</a> <span class="keyword">function </span><a class="code" href="ssht__test_8f90.html#a416afc440685d23877041f1b7632745a">ran2_dp</a>(idum)
<a name="l00613"></a>00613 
<a name="l00614"></a>00614   use <span class="keywordflow">ssht_types_