n class="keyword">end function</span></div>
<div class="line"><a id="l00089" name="l00089"></a><span class="lineno">   89</span>    </div>
<div class="line"><a id="l00091" name="l00091"></a><span class="lineno">   91</span><span class="keywordtype">    real</span>(r8) function student(dof, a) result(t)</div>
<div class="line"><a id="l00092" name="l00092"></a><span class="lineno">   92</span>        <span class="keywordtype">integer</span>, <span class="keywordtype">intent(in)</span>     :: dof</div>
<div cl