s="lineno">   89</span>&#160;</div><div class="line"><a name="l00090"></a><span class="lineno">   90</span>&#160;    use, <span class="keywordtype">intrinsic</span> :: iso_c_binding</div><div class="line"><a name="l00091"></a><span class="lineno">   91</span>&#160;     </div><div class="line"><a name="l00092"></a><span class="lineno">   92</span>&#160;    <span class="keywordtype">integer</span> :: mpierr</div><div class="line"><a name="l00093"></a><span class="lineno">   93</span>&#160;</div><div class="li