setsextall

newring=setsextall(ring,fam,val);

0001 function newring=setsextall(ring,sextfile)
0002 %newring=setsextall(ring,fam,val);
0003 newring=ring;
0004 
0005 %filenameset=[qemres.datadir '/settings.mat'];
0006 
0007 fid=fopen(sextfile,'rt');
0008 if fid < 0, error('setsextall:NoFile','Cannot open file %s',sextfile); end
0009 
0010 %use textscan() instead ?
0011 [sfam sval]=textread(sextfile,'%s%f');
0012 %[sfam sval]=textscan(sextfile,'%s%f');
0013 for l=1:length(sfam)
0014 sfam{l};
0015 sval(l);
0016 newring=setsext(newring,sfam{l},sval(l));
0017 end