Lines Matching refs:cell_coord
43 cell_coord(1,1) = mod(node,p) ;
44 cell_coord(2,1) = node/p ;
45 cell_coord(3,1) = 0;
53 cell_coord(1,c) = mod(cell_coord(1,c-1)+1,p) ;
54 cell_coord(2,c) = mod(cell_coord(2,c-1)-1+p,p) ;
55 cell_coord(3,c) = c-1;
63 cell_coord(dir,c) = cell_coord(dir,c) + 1;
73 slice(dir,cell_coord(dir,c)) = c;
85 i = cell_coord(1,1)-1;
86 j = cell_coord(2,1)-1;
102 // set cell_coord range for each direction
107 if (cell_coord(dir,c) <= excess) {
109 cell_low(dir,c) = (cell_coord(dir,c)-1)*(size+1);
114 (cell_coord(dir,c)-excess-1)*size;