Changeset 408 for trunk/src/get_file_series.m

Timestamp:

May 5, 2012, 6:34:46 PM (13 years ago)

Author:

sommeria

Message:

various bugs corrected in series and uvmat.

File:

• trunk/src/get_file_series.m (modified) (2 diffs)

trunk/src/get_file_series.m

@@ -26 +26 @@
 end
 % Pairs=Param.Pairs;
-r.mode='';
-if isfield(Param,'Pairs') && isfield (Param.Pairs,'list_pair_civ')
-    r=regexp(Param.Pairs.list_pair_civ,'(?<mode>(Di=)|(Dj=)) -*(?<num1>\d+)\|(?<num2>\d+)','names');
-    if isempty(r)
-        r=regexp(Param.Pairs.list_pair_civ,'(?<num1>\d+)(?<mode>-)(?<num2>\d+)','names');
-    end
 
-    % TODO case of free pairs:
-    %r=regexp(pair_string,'.*\D(?<num1>[\d+|*])(?<delim>[-||])(?<num2>[\d+|*])','names');
-end
-    if isempty(r.mode)
-        r.num1='';
-        r.num2='';
-    end
 
 %% determine the list of input file names
@@ -45 +32 @@
 
 for iview=1:size(InputTable,1)
+    r.mode='';
+    if isfield (Param.IndexRange,'PairString')
+        r=regexp(Param.IndexRange.PairString{iview,1},'(?<mode>(Di=)|(Dj=)) -*(?<num1>\d+)\|(?<num2>\d+)','names');
+        if isempty(r)
+            r=regexp(Param.IndexRange.PairString{iview,1},'(?<num1>\d+)(?<mode>-)(?<num2>\d+)','names');
+        end        
+        % TODO case of free pairs:
+        %r=regexp(pair_string,'.*\D(?<num1>[\d+|*])(?<delim>[-||])(?<num2>[\d+|*])','names');
+    end
+    if isempty(r.mode)
+        r.num1='';
+        r.num2='';
+    end
     [i1_series{iview},i2_series{iview},j1_series{iview},j2_series{iview}]=find_file_indices(ref_i,ref_j,str2num(r.num1),str2num(r.num2),r.mode);
     %case of pairs (.nc files)