Changeset 449

Timestamp:

05/15/09 14:14:51 (16 years ago)

Author:

jschierm

Message:

Minor modification to error handling.

File:

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

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

@@ -238 +238 @@
     fprintf(fidm,'\tDakota.failure=1;\n');
 else
+    fprintf(fidm,'\tif exist(''fid'',''var'')\n');
+    fprintf(fidm,'\t\tstatus=fclose(fid);\n');
+    fprintf(fidm,'\tend\n');
     fprintf(fidm,'\tfid=fopen(outfile,''w'');\n');
     fprintf(fidm,'\tfprintf(fid,''fail\\n'');\n');