quartets: do not close unopened file in non-master MPI processes (fix…

…es a segfault at the end of quartet computation)
stamatak · Jan 23, 2018 · fab3826 · fab3826
1 parent af8f896
commit fab3826
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/examl/quartets.c b/examl/quartets.c
@@ -611,5 +611,6 @@ void computeQuartets(tree *tr, analdef *adef)
       assert(0);
     }
 
-  fclose(f);
+  if(processID == 0)
+    fclose(f);
 }