Cryst: fixed a few bugs for hkl lists with less than 2 families on the detector

Signed-off-by: Nicola Vigano <nicola.vigano@esrf.fr>

zUtil_Cryst/gtDetectorTwotheta.m

@@ -83,9 +83,9 @@ formfactor(ind) = [];
 hkl = hkl(ind_tt, :);
 d0  = d0(ind_tt);
 intensity = intensity(ind_tt);
-thtype = (1:length(hkl))';
 mult   = mult(ind_tt);
 formfactor = formfactor(ind_tt);
+thtype = (1:numel(mult))';
 
 disp(['Families on the detector: ' num2str(size(hkl,1))])
 disp('Now reflections are sorted by increasing theta values')

zUtil_Cryst/gtSymmetricReflections.m

@@ -58,7 +58,7 @@ end
 [~, ~, mult, hklsp, thtype]  = gtCrystSignedHKLs(hkltypes_used, symm);
 
 intensity = [];
-for ii = 1:length(hkltypes_used)
+for ii = 1:numel(mult)
     nhkls = mult(ii)/2;
     intensity = [intensity; repmat(cryst.int(ii),nhkls,1)];
 end