"lineno">   81</span>        associate(t_crit =&gt; student(n, alpha))</div>
<div class="line"><a id="l00082" name="l00082"></a><span class="lineno">   82</span>            <span class="keywordflow">do</span> j = 1, n</div>
<div class="line"><a id="l00083" name="l00083"></a><span class="lineno">   83</span>                <span class="keywordflow">if</span> (abs(y(j)-mu) &lt;=  t_crit * sd) res = res + 1.0_r8</div>
<div class="line"><a id="l00084" name="l00084"></a><span class="lineno">   84</span><span cla