Fixed newlines for 3D data using patch from Erik Schnetter.

Fixes Cactus/1230


git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/IOASCII/trunk@131 94b1c47f-dcfd-45ef-a468-0854c0e9e350

1 files changed, 7 insertions, 1 deletions

diff --git a/src/Write3D.c b/src/Write3D.c
index 88dfd16..f3ebf24 100644
--- a/src/Write3D.c
+++ b/src/Write3D.c
@@ -67,7 +67,9 @@ CCTK_FILEVERSION(CactusBase_IOASCII_Write3D_c)
               }                                                               \
               fputc ('\n', file);                                             \
             }                                                                 \
+            fputc ('\n', file);                                               \
           }                                                                   \
+          fputc ('\n', file);                                                 \
         }
 
 
@@ -174,7 +176,7 @@ int IOASCII_Write3D (const cGH *GH, int vindex, const char *alias)
   num_requested_hslabs = have_coords ? 4 : 1;
 
   /* set header and data format strings */
-  sprintf (buffer, "\n\n#Time = %%%s\n", out_format);
+  sprintf (buffer, "#Time = %%%s\n", out_format);
   sprintf (header, buffer, (double) GH->cctk_time);
   i = 0;
   if (CCTK_Equals (out3D_style, "gnuplot f(t,x,y,z)"))
@@ -383,6 +385,10 @@ static FILE *OpenFile (const cGH *GH, const char *fullname, const char *alias)
   {
     fprintf (*file, "#z-label %s\n", advertised_file.varname);
   }
+  if (CCTK_Equals (out_fileinfo, "all"))
+  {
+    fprintf (*file, "\n\n");
+  }
 
   /* store file desriptors in database */
   StoreNamedData (&myGH->fileList_3D, alias, file);