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

luis at geodynamics.org luis at geodynamics.org
Fri Jul 28 15:12:39 PDT 2006


Author: luis
Date: 2006-07-28 15:12:39 -0700 (Fri, 28 Jul 2006)
New Revision: 4122

Modified:
   mc/3D/CitcomS/trunk/lib/Output_h5.c
Log:
Fixed typos in h5output_coord()


Modified: mc/3D/CitcomS/trunk/lib/Output_h5.c
===================================================================
--- mc/3D/CitcomS/trunk/lib/Output_h5.c	2006-07-28 22:06:13 UTC (rev 4121)
+++ mc/3D/CitcomS/trunk/lib/Output_h5.c	2006-07-28 22:12:39 UTC (rev 4122)
@@ -70,7 +70,10 @@
                            hsize_t *dims,
                            hsize_t *maxdims,
                            hsize_t *chunk_dims);
-static void h5create_field(hid_t loc_id, const char *name, hid_t type_id,
+
+static void h5create_field(hid_t loc_id,
+                           const char *name,
+                           hid_t type_id,
                            int tdim, int xdim, int ydim, int zdim,
                            int components);
 
@@ -478,6 +481,11 @@
     }
 }
 
+static void h5append_field(hid_t loc_id, hid_t type_id)
+{
+
+}
+
 static void h5create_coord(hid_t loc_id, hid_t type_id, int nodex, int nodey, int nodez)
 {
     h5create_field(loc_id, "coord", type_id, 0, nodex, nodey, nodez, 3);
@@ -574,9 +582,9 @@
 
     /* create memory dataspace */
     rank = 4;
-    dims[0] = E->mesh.nprocx;
-    dims[1] = E->mesh.nprocy;
-    dims[2] = E->mesh.nprocz;
+    dims[0] = E->mesh.nox;
+    dims[1] = E->mesh.noy;
+    dims[2] = E->mesh.noz;
     dims[3] = 3;
     memspace = H5Screate_simple(rank, dims, NULL);
 
@@ -606,11 +614,11 @@
     
     /* release resources */
     free(E->hdf5.coord);
-    H5Pclose(dxpl_id);
-    H5Sclose(memspace);
-    H5Sclose(filespace);
-    H5Dclose(dataset);
-    H5Gclose(cap_group);
+    status = H5Pclose(dxpl_id);
+    status = H5Sclose(memspace);
+    status = H5Sclose(filespace);
+    status = H5Dclose(dataset);
+    status = H5Gclose(cap_group);
 
 #endif
 }



More information about the cig-commits mailing list