From 55c440a8a493586f7f6be33793ed6d6412868d3c Mon Sep 17 00:00:00 2001
From: Yohai Meiron <sahmes@gmail.com>
Date: Sat, 28 Dec 2019 17:10:37 -0500
Subject: [PATCH] ETICS coefficients are written at the same time as the
 snapshots and use the same numbers for the files

---
 phi-GRAPE.c | 14 +++++++++++---
 1 file changed, 11 insertions(+), 3 deletions(-)

diff --git a/phi-GRAPE.c b/phi-GRAPE.c
index 0c6cedf..f4e6981 100644
--- a/phi-GRAPE.c
+++ b/phi-GRAPE.c
@@ -1237,7 +1237,7 @@ void write_snap_data()
 void write_cont_data()
 {
   out = fopen("data.con","w");
-  fprintf(out,"%06d \n", (time_cur>=t_disk)?diskstep+1:diskstep);
+  fprintf(out,"%06d \n", diskstep);
 
 //#ifdef STEVOL
 //  fprintf(out,"%06d \n", N);
@@ -5238,7 +5238,12 @@ if(myRank == rootRank)
 
     } /* if(myRank == rootRank) */
 
-
+#ifdef ETICS_DUMP
+    if (diskstep==0) {
+      sprintf(out_fname, "coeffs.%06d.%02d.dat", 0, myRank);
+      grapite_dump(out_fname, 2);
+    }
+#endif
 
 
   /* Wait to all processors to finish his works... */
@@ -7073,7 +7078,10 @@ for(i=0; i<N; i++)
 
       } /* if(myRank == rootRank) */
 
-
+#ifdef ETICS_DUMP
+    sprintf(out_fname, "coeffs.%06d.%02d.dat", diskstep, myRank);
+    grapite_dump(out_fname, 2);
+#endif