function data = dopen(filename, n)

fid = fopen(filename);
a = fscanf(fid,'%g',[n inf]);
fclose(fid);
data = a';
clear a;