ass="line"><a id="l00093" name="l00093"></a><span class="lineno">   93</span><span class="keywordtype">        real</span>(r8), <span class="keywordtype">intent(in)</span>    :: a</div>
<div class="line"><a id="l00094" name="l00094"></a><span class="lineno">   94</span>        <span class="comment">!private</span></div>
<div class="line"><a id="l00095" name="l00095"></a><span class="lineno">   95</span><span class="keywordtype">        real</span>(r8) :: f, fold, x, p, integral</div>
<div class="line"><a id