[cig-commits] r7987 - mc/3D/CitcomS/trunk/lib

[tan2 at geodynamics.org]

Author: tan2
Date: 2007-09-18 16:08:06 -0700 (Tue, 18 Sep 2007)
New Revision: 7987

Modified:
   mc/3D/CitcomS/trunk/lib/Checkpoints.c
Log:
Fixed a memory bug in checkpoint

Modified: mc/3D/CitcomS/trunk/lib/Checkpoints.c
===================================================================
--- mc/3D/CitcomS/trunk/lib/Checkpoints.c	2007-09-18 23:07:48 UTC (rev 7986)
+++ mc/3D/CitcomS/trunk/lib/Checkpoints.c	2007-09-18 23:08:06 UTC (rev 7987)
@@ -258,7 +258,7 @@
         fwrite(E->trace.ielement[m], sizeof(int),
                E->trace.ntracers[m]+1, fp);
         for(i=0; i<E->trace.nflavors; i++) {
-            fwrite(E->trace.ntracer_flavor[m][i], sizeof(double),
+            fwrite(E->trace.ntracer_flavor[m][i], sizeof(int),
                    E->lmesh.nel+1, fp);
         }
     }
@@ -325,7 +325,7 @@
         fread(E->trace.ielement[m], sizeof(int),
               E->trace.ntracers[m]+1, fp);
         for(i=0; i<E->trace.nflavors; i++) {
-            fread(E->trace.ntracer_flavor[m][i], sizeof(double),
+            fread(E->trace.ntracer_flavor[m][i], sizeof(int),
                   E->lmesh.nel+1, fp);
         }
     }