function QD = LoadQuantData(FName)

F = fopen(FName,'r');
if F==-1
    disp(['LoadQuantData Error: File "',FName,'" could not be opened.']);
    QD = 0;
    return;
end

%S = fscanf(F,'%s');
%disp(S);
%QD = S;

Scan = textscan(F,'%s');
QD.Genes{1} = Scan{1}{11};
QD.Genes{2} = Scan{1}{12};
QD.Genes{3} = Scan{1}{13};
%QD.Scan = Scan;

% Advance to first nucleus
Place = 14;
while ~strcmp(Scan{1}{Place},'0')
    Place = Place+1;
end

% Fill in into Quant Data
Count = 0;
while (~strcmp(Scan{1}{Place},'#Data'))
    QD.Data(floor(Count/6)+1,mod(Count,6)+1) = str2num(Scan{1}{Place});
    Place = Place+1;
    Count = Count+1;
end

QD.NNuc = Count/6;
Len = length(Scan{1});

for Nuc=1:QD.NNuc
    for j=1:6
        %Len-6*QD.NNuc+6*(Nuc-1)+j
        QD.DataWB(Nuc,j) = str2num(Scan{1}{Len-6*QD.NNuc+6*(Nuc-1)+j});
    end
end