/a>00021 
<a name="l00022"></a>00022   <span class="keyword">implicit none</span>
<a name="l00023"></a>00023 
<a name="l00024"></a>00024   <span class="keywordtype">private</span>
<a name="l00025"></a>00025 
<a name="l00026"></a>00026   
<a name="l00027"></a>00027   <span class="comment">!---------------------------------------</span>
<a name="l00028"></a>00028   <span class="comment">! Subroutine and function scope</span>
<a name="l00029"></a>00029   <span class="comment">!---------------------------------