/span>
0022 erg=length(sscanf(zeile,<span class="string">'%f '</span>));
0023 <span class="keyword">if</span> erg&gt;3,
0024     erg=3;
0025 <span class="keyword">else</span>
0026     <span class="keyword">if</span> erg&gt;=2, erg=2; <span class="keyword">end</span>
0027 <span class="keyword">end</span>
0028 
0029 <a name="_sub1" href="#_subfunctions" class="code">function zeile=destrip(zeile)</a>
0030 <span class="comment">% strip string from comments (with # character)</span>
0031 aa=strfind(zeile,<span c