fix machine in params to be lower case

git-svn-id: https://spcsvn.epfl.ch/repos/TCV/gdat/trunk@11976 d63d8f72-b253-0410-a779-e742ad2e26cf

crpptbx/gdat.m

@@ -188,6 +188,10 @@ try
     args = [{shot,data_request},varargin_eff];
   end
   [gdat_data,gdat_params,error_status,varargout] = feval(['gdat_' lower(machine_eff)],args{:});
+  % because data request can be an actual detailed tree related signal, upper and lower case need to be kept, but other places remain with lower case when case insensitive
+  % needed since some substructure have machine name like mapping_for
+  gdat_data.gdat_params.machine = lower(gdat_data.gdat_params.machine);
+
 catch ME_gdat
   warning(['problems calling gdat_' lower(machine_eff)]);
   if ~exist('gdat_data','var'); gdat_data.data = []; end