rcce/bt/make_set.c

143       int p, i, j, dir, node_loc, comm_color, node_min, length, start_found;
159         node_loc = node_min = node; length = 1; start_found = 0;
161           i = mod(node_loc,p) ;
162           j = node_loc/p ;
165             case (WESTDIR):   node_loc = mod(i-1+p,p) + p*j;          break;
166             case (EASTDIR):   node_loc = mod(i+1,p) + p*j;            break;
167             case (SOUTHDIR):  node_loc = i + p*mod(j-1+p,p);          break;
168             case (NORTHDIR):  node_loc = i + p*mod(j+1,p);            break;
169             case (BOTTOMDIR): node_loc = mod(i+1,p) + p*mod(j-1+p,p); break;
170             case (TOPDIR):    node_loc = mod(i-1+p,p) + p*mod(j+1,p); break;
177           if (node_loc <= node_min) {
178             node_min = node_loc;
181           if (node_loc == node) start_found = 1;
193             case (WESTDIR):   node_loc = mod(i-1+p,p) + p*j;          break;
194             case (EASTDIR):   node_loc = mod(i+1,p) + p*j;            break;
195             case (SOUTHDIR):  node_loc = i + p*mod(j-1+p,p);          break;
196             case (NORTHDIR):  node_loc = i + p*mod(j+1,p);            break;
197             case (BOTTOMDIR): node_loc = mod(i+1,p) + p*mod(j-1+p,p); break;
198             case (TOPDIR):    node_loc = mod(i-1+p,p) + p*mod(j+1,p); break;
200           if (node_loc == node_min) send_color[dir] = 2;