Changeset 4d4fc1 for pcp

Timestamp:

Apr 21, 2008, 7:08:07 PM (17 years ago)

Author:

Frederik Heber <heber@…>

Children:

18d065

Parents:

9bebe0

Message:

CloseOutputFiles(): ReciSpread and TemperatureFile were not closed

File:

• pcp/src/output.c (modified) (2 diffs)

pcp/src/output.c

@@ -1227 +1227 @@
   OpenFile(P, &F->TemperatureFile, suffixtempall, "w",P->Call.out[ReadOut]);
   if (F->TemperatureFile == NULL) fprintf(stderr,"Error opening TemperatureFile\n");
+  // write header of minimsation file
 }
 
@@ -1242 +1243 @@
   if (F->MinimisationFile != NULL) fclose(F->MinimisationFile);
   if (F->SpreadFile != NULL) fclose(F->SpreadFile);
+  if (F->ReciSpreadFile != NULL) fclose(F->ReciSpreadFile);
+  if (F->TemperatureFile != NULL) fclose(F->TemperatureFile);
 }