2 c---------------------------------------------------------------------
3 c---------------------------------------------------------------------
7 c---------------------------------------------------------------------
8 c---------------------------------------------------------------------
14 c---------------------------------------------------------------------
16 c---------------------------------------------------------------------
18 c---------------------------------------------------------------------
20 c set up a two-d grid for processors: column-major ordering of unknowns
21 c NOTE: assumes a power-of-two number of processors
23 c---------------------------------------------------------------------
26 if (mod(ndim,2).eq.1) xdim = xdim + xdim
29 row = mod(id,xdim) + 1