Index: /issm/trunk/src/m/solutions/dakota/dakota_m_write.m
===================================================================
--- /issm/trunk/src/m/solutions/dakota/dakota_m_write.m	(revision 448)
+++ /issm/trunk/src/m/solutions/dakota/dakota_m_write.m	(revision 449)
@@ -238,4 +238,7 @@
     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');