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

[tan2 at geodynamics.org]

Author: tan2
Date: 2007-03-19 16:08:40 -0700 (Mon, 19 Mar 2007)
New Revision: 6299

Modified:
   mc/3D/CitcomS/trunk/lib/Regional_parallel_related.c
Log:
Replaced for-loop by an if, which matchs the intention better

Modified: mc/3D/CitcomS/trunk/lib/Regional_parallel_related.c
===================================================================
--- mc/3D/CitcomS/trunk/lib/Regional_parallel_related.c	2007-03-19 22:57:55 UTC (rev 6298)
+++ mc/3D/CitcomS/trunk/lib/Regional_parallel_related.c	2007-03-19 23:08:40 UTC (rev 6299)
@@ -459,7 +459,7 @@
   {
 
   int m,i,ii,j,k,l,node,el,elt,lnode,jj,doff,target_cap;
-  int lev,elx,elz,ely,nno,nox,noz,noy,p,kkk,kk,kf,kkkp;
+  int lev,elx,elz,ely,nno,nox,noz,noy,kkk,kk,kf,kkkp;
   int me, nproczl,nprocxl,nprocyl;
   int temp_dims,addi_doff;
   int cap,lx,ly,lz,dir;
@@ -497,9 +497,9 @@
         else if(E->parallel.me_loc[1]==nprocxl-1 && i==2)
           E->parallel.NUM_PASS[lev][m].bound[ii] = 0;
 
-        for (p=1;p<=E->parallel.NUM_PASS[lev][m].bound[ii];p++)  {
+        if (E->parallel.NUM_PASS[lev][m].bound[ii] == 1)  {
           kkk ++;
-              /* determine the pass ID for ii-th boundary and p-th pass */
+              /* determine the pass ID for ii-th boundary and kkk-th pass */
 
           /*E->parallel.PROCESSOR[lev][m].pass[kkk]=me-((i==1)?1:-1)*nproczl; */
 	  dir = ( (i==1)? 1 : -1);
@@ -519,7 +519,7 @@
 
               E->parallel.NUM_NEQ[lev][m].pass[kkk] = jj;
 
-          }   /* end for loop p */
+          }   /* end if */
             }  /* end for i */
 
 
@@ -531,10 +531,10 @@
         else if(E->parallel.me_loc[2]==nprocyl-1 && k==2)
           E->parallel.NUM_PASS[lev][m].bound[ii] = 0;
 
-        for (p=1;p<=E->parallel.NUM_PASS[lev][m].bound[ii];p++)  {
+        if(E->parallel.NUM_PASS[lev][m].bound[ii] == 1)  {
 
           kkk ++;
-              /* determine the pass ID for ii-th boundary and p-th pass */
+              /* determine the pass ID for ii-th boundary and kkk-th pass */
 
           /*E->parallel.PROCESSOR[lev][m].pass[kkk]=me-((k==1)?1:-1)*nprocxl*nproczl; */
 	  dir = ( (k==1)? 1 : -1);
@@ -554,7 +554,7 @@
 
               E->parallel.NUM_NEQ[lev][m].pass[kkk] = jj;
 
-          }   /* end for loop p */
+          }   /* end if */
 
             }  /* end for k */
 
@@ -567,9 +567,9 @@
         else if(E->parallel.me_loc[3]==nproczl-1 && j==2)
           E->parallel.NUM_PASS[lev][m].bound[ii] = 0;
 
-        for (p=1;p<=E->parallel.NUM_PASS[lev][m].bound[ii];p++)  {
+        if(E->parallel.NUM_PASS[lev][m].bound[ii] == 1)  {
           kkk ++;
-              /* determine the pass ID for ii-th boundary and p-th pass */
+              /* determine the pass ID for ii-th boundary and kkk-th pass */
 
           /*E->parallel.PROCESSOR[lev][m].pass[kkk]=me-((j==1)?1:-1);*/
 	  dir = ( (j==1)? 1 : -1);
@@ -589,7 +589,7 @@
 
               E->parallel.NUM_NEQ[lev][m].pass[kkk] = jj;
 
-          }   /* end for loop p */
+          }   /* end if */
 
             }     /* end for j */