n class="n">c_ierr</span><span class="w"></span>
<span class="w">  </span><span class="k">end function </span><span class="n">c_unlink</span><span class="w"></span>
<span class="k">end interface</span>

<span class="k">   </span><span class="n">temp</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">str2_carr</span><span class="p">(</span><span class="nb">trim</span><span class="p">(</span><span class="n">fname</span><span class="p">))</span><span class="w"> </span