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

[luis at geodynamics.org]

Author: luis
Date: 2006-08-14 04:01:56 -0700 (Mon, 14 Aug 2006)
New Revision: 4280

Modified:
   mc/3D/CitcomS/trunk/lib/Output_h5.c
Log:
Determine hyperslab block size based on mpi process coordinates, not
mpi process rank (bugfix).


Modified: mc/3D/CitcomS/trunk/lib/Output_h5.c
===================================================================
--- mc/3D/CitcomS/trunk/lib/Output_h5.c	2006-08-14 08:38:12 UTC (rev 4279)
+++ mc/3D/CitcomS/trunk/lib/Output_h5.c	2006-08-14 11:01:56 UTC (rev 4280)
@@ -1307,9 +1307,9 @@
     ny = E->lmesh.noy;
     nz = E->lmesh.noz;
 
-    mx = (p == nprocx-1) ? nx : nx-1;
-    my = (p == nprocy-1) ? ny : ny-1;
-    mz = (p == nprocz-1) ? nz : nz-1;
+    mx = (px == nprocx-1) ? nx : nx-1;
+    my = (py == nprocy-1) ? ny : ny-1;
+    mz = (pz == nprocz-1) ? nz : nz-1;
 
     /* prepare the data -- change citcom yxz order to xyz order */
     for(i = 0; i < mx; i++)
@@ -1371,9 +1371,9 @@
     ny = E->lmesh.noy;
     nz = E->lmesh.noz;
 
-    mx = (p == nprocx-1) ? nx : nx-1;
-    my = (p == nprocy-1) ? ny : ny-1;
-    mz = (p == nprocz-1) ? nz : nz-1;
+    mx = (px == nprocx-1) ? nx : nx-1;
+    my = (py == nprocy-1) ? ny : ny-1;
+    mz = (pz == nprocz-1) ? nz : nz-1;
 
     /* prepare the data -- change citcom yxz order to xyz order */
     for(i = 0; i < mx; i++)
@@ -1433,9 +1433,9 @@
     ny = E->lmesh.noy;
     nz = E->lmesh.noz;
 
-    mx = (p == nprocx-1) ? nx : nx-1;
-    my = (p == nprocy-1) ? ny : ny-1;
-    mz = (p == nprocz-1) ? nz : nz-1;
+    mx = (px == nprocx-1) ? nx : nx-1;
+    my = (py == nprocy-1) ? ny : ny-1;
+    mz = (pz == nprocz-1) ? nz : nz-1;
 
     /* prepare the data -- change citcom yxz order to xyz order */
     for(i = 0; i < mx; i++)
@@ -1495,9 +1495,9 @@
     ny = E->lmesh.noy;
     nz = E->lmesh.noz;
 
-    mx = (p == nprocx-1) ? nx : nx-1;
-    my = (p == nprocy-1) ? ny : ny-1;
-    mz = (p == nprocz-1) ? nz : nz-1;
+    mx = (px == nprocx-1) ? nx : nx-1;
+    my = (py == nprocy-1) ? ny : ny-1;
+    mz = (pz == nprocz-1) ? nz : nz-1;
 
     /* prepare the data -- change citcom yxz order to xyz order */
     for(i = 0; i < mx; i++)