s="lineno">   38</span>&#160;<span class="keywordflow">        end if</span></div>
<div class="line"><a name="l00039"></a><span class="lineno">   39</span>&#160;        <span class="keywordflow">if</span> (<span class="keyword">size</span>(v) /= npts) <span class="keywordflow">then</span></div>
<div class="line"><a name="l00040"></a><span class="lineno">   40</span>&#160;            <span class="keyword">write</span>(errmsg, <span class="stringliteral">&#39;(AI0AI0A)&#39;</span>) &amp;</div>
<div class="lin