General commenting and small bug solving in gtHklsp2hkl

Signed-off-by: Laura Nervo <laura.nervo@esrf.fr>

git-svn-id: https://svn.code.sf.net/p/dct/code/trunk@968 4c865b51-4357-4376-afb4-474e03ccb993

zUtil_Cryst/gtCrystVector2SST.m

 function [rgb, Vsst, Vsst_p] = gtCrystVector2SST(Vc, crystal_system, symm, saturation)
 % GTCRYSTVECTOR2SST  Moves crystal vectors to SST zone.
 %
-%    gtCrystVector2SST(Vc, crystal_system, symm[, saturation])
-%    -------------------------------------------------------------------------
+%    [rgb, Vsst, Vsst_p] = gtCrystVector2SST(Vc, crystal_system, symm[, saturation])
+%    -------------------------------------------------------------------------------
 %
 %    INPUT:
 %      Vc             = <double>     Row vectors expressed in crystal frame
@@ -10,7 +10,7 @@ function [rgb, Vsst, Vsst_p] = gtCrystVector2SST(Vc, crystal_system, symm, satur
 %      symm           = <cell_array> Symmetry operators
 %
 %    OPTINAL INPUT:
-%      saturation     = <bool>       Saturate or not the RGB output {true}
+%      saturation     = <logical>    Saturate or not the RGB output {true}
 %
 %    OUTPUT:
 %      rgb            = <double>     RGB colors in the SST triangle

zUtil_Cryst/gtHklsp2hkl.m

-function hklt = gtCrystHklsp2hkl(hklsp,spacegroup)
-% GTCRYSTHklsp2hkl  Gives the unsigned hkl family corrsponding to a given hklsp
-%     hkl = gtCrystHklsp2hkl(hklsp,spacegroup)
-%     --------------------------------------------
+function hklt = gtHklsp2hkl(hklsp,spacegroup)
+% GTHKLSP2HKL  Gives the unsigned hkl family corrsponding to a given hklsp
+%     hkl = gtHklsp2hkl(hklsp,spacegroup)
+%     -----------------------------------
 %
 %     INPUT:
 %       hklsp      = plane families (one in a row)
@@ -20,7 +20,7 @@ switch spacegroup
         hklt = sort(abs(hklsp)) ;
 
     case {152, 167, 194, 663}  % Hexagonal - 4x4 matrices
-        hklt = [sort(abs(hklsp(1:2))),hklsp(3),abs(hklsp(4)];
+        hklt = [sort(abs(hklsp(1:2))),hklsp(3),abs(hklsp(4))];
 
     otherwise
         error('Spacegroup not supported')

zUtil_Cryst/gtVectorLab2Cryst.m

 function Vc = gtVectorLab2Cryst(Vs, g, diag)
 % GTVECTORLAB2CRYST  Express lab row vector(s) to crystal CS
 %
-%     Vc = gtVectorLab2Cryst(Vs, g)
-%     -------------------------------------------------------------------------
+%     Vc = gtVectorLab2Cryst(Vs, g, diag)
+%     -----------------------------------
 %
 %     INPUT:
-%       Vs = <double>   Vector(s) in the lab CS.
-%       g  = <cell>     Cell containing crystal orientation matrix(ces).
+%       Vs   = <double>   Vector(s) in the lab CS.
+%       g    = <cell>     Cell containing crystal orientation matrix(ces).
+%       diag = <logical>  
 %
 %     OUTPUT:
 %       Vc  = <double>  Vector Vs expressed in the crystal CS.