flow">ssht_types_mod</span>, only: dp
<a name="l00567"></a>00567        <span class="keywordtype">real(dp) </span>:: ran2_dp
<a name="l00568"></a>00568        <span class="keywordtype">integer</span> :: idum
<a name="l00569"></a>00569 <span class="keyword">     end function ran2_dp</span>
<a name="l00570"></a>00570 <span class="keyword">  end interface</span>
<a name="l00571"></a>00571 
<a name="l00572"></a>00572   <span class="keywordtype">integer</span>, <span class="keywordtype">intent(in)</span> :: L
<a