gtSetupReconstruction: fixed submission of jobs to OAR

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

5_reconstruction/gtSetupReconstruction.m

@@ -142,8 +142,8 @@ if  strcmpi(check, 'y')
     end
     if (rec_on_OAR)
         launch_on_OAR('gtReconstructGrains', first, last, phaseID_str, ...
-            parameters, 'core', 8, 'njobs', 8, ...
-            'walltime', 3600 * 16, 'gpu', true, 'distribute', true);
+            parameters, 'njobs', 8, 'walltime', 3600 * 16, ...
+            'gpu', true, 'distribute', true);
     else
         gtReconstructGrains(first, last, parameters.acq.dir, phaseID, parameters);
     end
@@ -161,7 +161,8 @@ if (~rec_on_OAR)
 
         check = inputwdefault('Launch grain segmentation via OAR? [y/n]', 'y');
         if (strcmpi(check, 'y'))
-            launch_on_OAR('gtChangeThreshold3D', first, last, phaseID_str, parameters);
+            launch_on_OAR('gtChangeThreshold3D', first, last, ...
+                phaseID_str, parameters, 'core', 4);
         else
             gtChangeThreshold3D(first, last, parameters.acq.dir, phaseID);
         end
@@ -177,6 +178,7 @@ function launch_on_OAR(func_name, first, last, phaseID_str, parameters, varargin
     oar.walltime   = last / oar.njobs * 300; % allow up to 300 seconds per grain
     oar.mem        = 2048; % Mb
     oar.gpu        = true;
+    oar.core       = [];
     oar.distribute = true;
     oar = parse_pv_pairs(oar, varargin);
 
@@ -200,7 +202,7 @@ function launch_on_OAR(func_name, first, last, phaseID_str, parameters, varargin
     OAR_make(func_name, first, last, OAR_parameters.njobs, ...
         [parameters.acq.dir ' ' phaseID_str ' '''''], true, ...
         'walltime', OAR_parameters.walltime, 'mem', OAR_parameters.mem, ...
-        'cpu', [], 'core', [], 'gpu', OAR_parameters.gpu, ...,
+        'cpu', [], 'core', oar.core, 'gpu', OAR_parameters.gpu, ...,
         'distribute', true);
 end