1#include "applu_share.h"
2#include "RCCE.h"
3
4void neighbors() {
5
6//c---------------------------------------------------------------------
7//c     figure out the neighbors and their wrap numbers for each processor
8//c---------------------------------------------------------------------
9
10      south = -1;
11      east  = -1;
12      north = -1;
13      west  = -1;
14
15      if (row  >1)    north = id -1;
16      else            north = -1;
17
18      if (row < xdim) south = id + 1;
19      else            south = -1;
20
21      if (col > 1)    west = id- xdim;
22      else            west = -1;
23
24      if (col < ydim) east = id + xdim;
25      else            east = -1;
26
27      return;
28}
29