
filename = idm_path;
fname = idm_file;
fid = fopen(filename,'r');
instr_date = fgets(fid);
A = textscan(fid,'HeaderLines',1,'ReturnOnError',1);
while length(A) < 22782
    B = textscan(fid,'HeaderLines',length(A)+1,'ReturnOnError',1);
    A = A + B;
end
