Changeset 453

Timestamp:

05/15/09 14:52:02 (16 years ago)

Author:

jschierm

Message:

Another minor modification for error handling.

File:

• issm/trunk/src/m/solutions/dakota/qmu.m (modified) (1 diff)

issm/trunk/src/m/solutions/dakota/qmu.m

@@ -121 +121 @@
 
 %  check to see if dakota returned errors in the err file
-fide=fopen([qmufile '.err'],'r');
-fline=fgetl(fide);
-if ischar(fline)
-    while ischar(fline)
-        disp(sprintf('%s',fline));
-        fline=fgetl(fide);
+if exist([qmufile '.err'],'file')
+   fide=fopen([qmufile '.err'],'r');
+   fline=fgetl(fide);
+   if ischar(fline)
+       while ischar(fline)
+           disp(sprintf('%s',fline));
+           fline=fgetl(fide);
+       end
+       status=fclose(fide);
+       cd ../
+       error(['Dakota returned error in ''' qmufile '.err'' file.  ''' qmudir ''' directory retained.'])
     end
     status=fclose(fide);
-    cd ../
-    error(['Dakota returned error in ''' qmufile '.err'' file.  ''' qmudir ''' directory retained.'])
+else
+   cd ../
+   error(['Dakota did not generate ''' qmufile '.err'' file.  ''' qmudir ''' directory retained.'])
 end
-status=fclose(fide);
 
 %parse inputs and results from dakota