function fnum=fname2fnum(fname)



fnum=2000*(fix(fname/10000)-100)+mod(fname,10000); 
