an class="keyword">module</span> subroutine pid_set_upper_limit(this, x)</div>
<div class="line"><a name="l00027"></a><span class="lineno">   27</span>&#160;        <span class="keywordtype">class</span>(pid), <span class="keywordtype">intent(inout)</span> :: this</div>
<div class="line"><a name="l00028"></a><span class="lineno">   28</span>&#160;<span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span> :: x</div>
<div class="line"><a name="l00029"></a><span class="l