2 c---------------------------------------------------------------------
3 c---------------------------------------------------------------------
7 c---------------------------------------------------------------------
8 c---------------------------------------------------------------------
10 c---------------------------------------------------------------------
11 c for each column in a hyperplane, istart = first row,
12 c---------------------------------------------------------------------
18 c---------------------------------------------------------------------
20 c---------------------------------------------------------------------
25 c---------------------------------------------------------------------
26 c compute the pointers for hyperplanes
27 c---------------------------------------------------------------------
34 c---------------------------------------------------------------------
35 c check to see if comm. to south is required
36 c---------------------------------------------------------------------
42 if (jglob.ge.2.and.jglob.le.ny0-1.and.j.ge.jst.and.
43 > j.le.jend) icomms(kp) = .true.
46 c---------------------------------------------------------------------
47 c check to see if comm. to north is required
48 c---------------------------------------------------------------------
54 if (jglob.ge.2.and.jglob.le.ny0-1.and.j.ge.jst.and.
55 > j.le.jend) icommn(kp) = .true.
58 c---------------------------------------------------------------------
59 c check to see if comm. to east is required
60 c---------------------------------------------------------------------
66 if (iglob.ge.2.and.iglob.le.nx0-1.and.i.ge.ist.and.
67 > i.le.iend) icomme(kp) = .true.
70 c---------------------------------------------------------------------
71 c check to see if comm. to west is required
72 c---------------------------------------------------------------------
78 if (iglob.ge.2.and.iglob.le.nx0-1.and.i.ge.ist.and.
79 > i.le.iend) icommw(kp) = .true.
88 icomms(nx0+ny0+1) = .false.
89 icommn(nx0+ny0+1) = .false.
90 icomme(nx0+ny0+1) = .false.
91 icommw(nx0+ny0+1) = .false.