s="comment">% gemfile=fullfile(fpath,fname);</span>
0006 
0007 fid=fopen(gemfile,<span class="string">'r'</span>);
0008 <span class="keyword">if</span> fid&lt;0, error(<span class="string">'GEM-File does not exist!'</span>); <span class="keyword">end</span>
0009 A=fscanf(fid,<span class="string">'%d %f %f %f'</span>,[4 Inf])';
0010 fclose(fid);
0011 N.elec=A(:,2:4);
0012 senfile=strrep(gemfile,<span class="string">'.gem'</span>,<span class="string">'.sen'</span>);
0013 fid=fopen(senfile,<span class="string"