Changeset 9434

Timestamp:

08/25/11 16:04:46 (14 years ago)

Author:

jschierm

Message:

Flaim: Added renaming of output kml file and creation of output log file.

File:

• issm/trunk/src/m/solutions/flaim.m (modified) (4 diffs)

issm/trunk/src/m/solutions/flaim.m

@@ -41 +41 @@
 ext='.log';
 filelog=fullfile(pathstr,[name ext versn]);
-filesol='solution_best.kml';
+if ~isempty(md.fm_solution)
+        [pathstr,name,ext,versn] = fileparts(md.fm_solution);
+        filesol=fullfile('',[name '' '']);
+else
+        filesol='solution_best';
+end
 
 %  calculate latitude and longitude, if necessary 
@@ -97 +102 @@
 
 display(['Post-processing the flaim output in the ''' options.fmdir ''' sub-directory.']);
-if exist(filesol,'file')
+if exist('solution_best.kml','file')
+        if ~strcmp(filesol,'solution_best')
+                system(['mv solution_best.kml ' filesol '.kml']);
+        end
         md.results.FlaimSolution.solution=[options.fmdir '/' filesol];
+else
+        md.results.FlaimSolution.solution='';
 end
 if exist(filelog,'file')
@@ -109 +119 @@
                 md.results.FlaimSolution.quality =NaN;
         end
-end
-if ~exist(md.results.FlaimSolution.solution,'file')
-        md.results.FlaimSolution.solution='';
+        fidi=fopen(filelog,'r');
+        while true
+                fline=fgetl(fidi);
+                if ~ischar(fline) || strncmp(fline,'........',8)
+                        break
+                end
+        end
+        fido=fopen([filesol '.log'],'w');
+        while true
+                fline=fgetl(fidi);
+                if ~ischar(fline)
+                        break
+                end
+                fprintf(fido,'%s\n',fline);
+        end
+        fclose(fidi);
+        fclose(fido);
 end
 display(md.results.FlaimSolution);
@@ -117 +141 @@
 cd ..
 if ~strncmpi(options.keep,'y',1)
+        system(['mv ' options.fmdir '/' filesol '.kml .']);
+        system(['mv ' options.fmdir '/' filesol '.log .']);
         system(['rm -rf ' options.fmdir]);
 end