    <div class="highlight"><pre><span></span><span class="n">doubleprecision</span><span class="w"> </span><span class="k">function </span><span class="n">s2v</span><span class="p">(</span><span class="n">chars</span><span class="p">,</span><span class="n">ierr</span><span class="p">,</span><span class="n">onerr</span><span class="p">)</span><span class="w"></span>
<span class="c">!  1989 John S. Urban</span>

<span class="c">! ident_52=&quot;@(#) M_strings s2v(3f) returns doubleprecision number from string