function  [a]=read_ptr(ptr_in);
%  READ_PTR read each line of EPIC pointer file into a cell array
%  USAGE: function  [a]=read_ptr(ptr_in);
%
%  Inputs:  ptr_in = pointer file name (string)
%  outputs: a = cell array containing one line of pointer file per cell

fid=fopen(ptr_in);
k=0;
while 1
    str = fgetl(fid);
    if ~isstr(str), break, end
    k=k+1;
    disp(str)
    a{k}=str;
end
fclose(fid);
