Changeset 218 for trunk/src/series/aver_stat.m

Timestamp:

Mar 9, 2011, 10:50:25 PM (14 years ago)

Author:

sommeria

Message:

write data in a new directory .0 if the selected output directory exists

File:

• trunk/src/series/aver_stat.m (modified) (2 diffs)

trunk/src/series/aver_stat.m

@@ -283 +283 @@
 end
 
-% Root name of output files (TO GENERALISE FOR TWO INPUT SERIES)
+%% Root name of output files (TO GENERALISE FOR TWO INPUT SERIES)
 subdir_result='aver_stat';
-if ~exist(fullfile(RootPath{1},subdir_result),'dir')
-    dircur=pwd; %record current working directory
-    cd(RootPath{1})% goes to the iamge directory
-    [m1,m2,m3]=mkdir(subdir_result);
-    if ~isequal(m2,'')
-         msgbox_uvmat('CONFIRMATION',m2);%error message for directory creation
-    end
-    [xx,msg2] = fileattrib(subdir_result,'+w','g'); %yield writing access (+w) to user group (g)
-    if ~strcmp(msg2,'')
-        msgbox_uvmat('ERROR',['pb of permission for ' subdir_result ': ' msg2])%error message for directory creation
-        cd(curdir)
-        return
-    end
-    cd(dircur) %back to the initial working directory
+pathdir=fullfile(RootPath{1},subdir_result);
+while exist(pathdir,'dir')
+    subdir_result=[subdir_result '.0'];
+    pathdir=fullfile(RootPath{1},subdir_result);
+end
+[m1,m2,m3]=mkdir(pathdir);
+if ~isequal(m2,'')
+     msgbox_uvmat('CONFIRMATION',m2);%error message for directory creation
+end
+[xx,msg2] = fileattrib(pathdir,'+w','g'); %yield writing access (+w) to user group (g)
+if ~strcmp(msg2,'')
+    msgbox_uvmat('ERROR',['pb of permission for ' pathdir ': ' msg2])%error message for directory creation
+    return
 end
 filebase_out=filebase{1}; 
@@ -309 +308 @@
 end
 
-%slice loop
+%% slice loop
 siz=size(num_i1{1});
 lengthtot=siz(1)*siz(2);