igit</span><span class="p">(</span><span class="n">ch</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">res</span><span class="p">)</span><span class="w"></span>

<span class="c">! ident_69=&quot;@(#) M_strings isdigit(3f) Returns .true. if ch is a digit (0-9) and .false. otherwise&quot;</span>

<span class="kt">character</span><span class="p">,</span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span c