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

[tan2 at geodynamics.org]

Author: tan2
Date: 2009-11-20 13:58:26 -0800 (Fri, 20 Nov 2009)
New Revision: 16019

Modified:
   mc/3D/CitcomS/trunk/lib/Material_properties.c
Log:
Fixed two minor errors

Modified: mc/3D/CitcomS/trunk/lib/Material_properties.c
===================================================================
--- mc/3D/CitcomS/trunk/lib/Material_properties.c	2009-11-20 19:31:14 UTC (rev 16018)
+++ mc/3D/CitcomS/trunk/lib/Material_properties.c	2009-11-20 21:58:26 UTC (rev 16019)
@@ -214,7 +214,7 @@
     int count = 0;
     int i, j;
     double old_rho_cmb, diff;
-    const acc = 1e-8;
+    const double acc = 1e-8;
 
 
     rho = (double *) malloc((gnoz+1)*sizeof(double));
@@ -271,7 +271,6 @@
 
 
 
-    free(r);
     free(rho);
     free(p);