IF ( exch2_isEedge(myTile) .EQ. 1 .AND.
exch2_isEedge(12)=1
exch2_isEedge(2)=1
exch2_isEedge(3)=1
exch2_isEedge(4)=1
exch2_isEedge(1)=1
exch2_isEedge(5)=1
exch2_isEedge(6)=1
exch2_isEedge(7)=1
exch2_isEedge(8)=1
exch2_isEedge(9)=1
exch2_isEedge(10)=1
exch2_isEedge(11)=1
INTEGER exch2_isEedge(NTILES)
& exch2_isEedge, exch2_isSedge,
exch2_isEedge(128)=0
exch2_isEedge(129)=0
exch2_isEedge(130)=1
exch2_isEedge(131)=0
exch2_isEedge(132)=0
exch2_isEedge(133)=0
exch2_isEedge(134)=1
exch2_isEedge(135)=0
exch2_isEedge(136)=0
exch2_isEedge(137)=0
exch2_isEedge(138)=1
exch2_isEedge(139)=0
exch2_isEedge(140)=0
exch2_isEedge(141)=1
exch2_isEedge(142)=0
exch2_isEedge(143)=0
exch2_isEedge(144)=1
exch2_isEedge(145)=0
exch2_isEedge(13)=0
exch2_isEedge(146)=0
exch2_isEedge(147)=0
exch2_isEedge(148)=1
exch2_isEedge(149)=0
exch2_isEedge(150)=0
exch2_isEedge(151)=0
exch2_isEedge(152)=1
exch2_isEedge(14)=0
exch2_isEedge(153)=0
exch2_isEedge(154)=0
exch2_isEedge(155)=0
exch2_isEedge(156)=1
exch2_isEedge(157)=0
exch2_isEedge(158)=0
exch2_isEedge(159)=0
exch2_isEedge(160)=1
exch2_isEedge(161)=0
exch2_isEedge(162)=0
exch2_isEedge(15)=0
exch2_isEedge(163)=0
exch2_isEedge(164)=1
exch2_isEedge(165)=0
exch2_isEedge(166)=0
exch2_isEedge(167)=0
exch2_isEedge(168)=1
exch2_isEedge(169)=0
exch2_isEedge(170)=0
exch2_isEedge(171)=0
exch2_isEedge(172)=1
exch2_isEedge(16)=1
exch2_isEedge(173)=0
exch2_isEedge(174)=0
exch2_isEedge(175)=0
exch2_isEedge(176)=1
exch2_isEedge(17)=0
exch2_isEedge(18)=0
exch2_isEedge(19)=0
exch2_isEedge(20)=0
exch2_isEedge(21)=0
exch2_isEedge(22)=1
exch2_isEedge(23)=0
exch2_isEedge(24)=0
exch2_isEedge(1)=0
exch2_isEedge(25)=0
exch2_isEedge(26)=1
exch2_isEedge(27)=0
exch2_isEedge(28)=0
exch2_isEedge(29)=0
exch2_isEedge(30)=1
exch2_isEedge(31)=0
exch2_isEedge(32)=0
exch2_isEedge(33)=0
exch2_isEedge(2)=0
exch2_isEedge(34)=1
exch2_isEedge(35)=0
exch2_isEedge(36)=0
exch2_isEedge(37)=0
exch2_isEedge(38)=0
exch2_isEedge(39)=0
exch2_isEedge(40)=0
exch2_isEedge(41)=1
exch2_isEedge(42)=0
exch2_isEedge(43)=0
exch2_isEedge(44)=0
exch2_isEedge(3)=0
exch2_isEedge(45)=1
exch2_isEedge(46)=0
exch2_isEedge(47)=0
exch2_isEedge(48)=0
exch2_isEedge(49)=1
exch2_isEedge(50)=0
exch2_isEedge(51)=0
exch2_isEedge(52)=0
exch2_isEedge(53)=1
exch2_isEedge(54)=0
exch2_isEedge(55)=0
exch2_isEedge(56)=1
exch2_isEedge(57)=1
exch2_isEedge(58)=1
exch2_isEedge(59)=0
exch2_isEedge(60)=1
exch2_isEedge(61)=0
exch2_isEedge(62)=0
exch2_isEedge(63)=0
exch2_isEedge(64)=1
exch2_isEedge(65)=0
exch2_isEedge(66)=0
exch2_isEedge(5)=0
exch2_isEedge(67)=0
exch2_isEedge(68)=1
exch2_isEedge(69)=0
exch2_isEedge(70)=0
exch2_isEedge(71)=0
exch2_isEedge(72)=1
exch2_isEedge(73)=0
exch2_isEedge(74)=0
exch2_isEedge(75)=0
exch2_isEedge(76)=1
exch2_isEedge(6)=0
exch2_isEedge(77)=0
exch2_isEedge(78)=0
exch2_isEedge(79)=1
exch2_isEedge(80)=0
exch2_isEedge(81)=0
exch2_isEedge(82)=1
exch2_isEedge(83)=0
exch2_isEedge(84)=0
exch2_isEedge(85)=0
exch2_isEedge(86)=1
exch2_isEedge(7)=0
exch2_isEedge(87)=0
exch2_isEedge(88)=0
exch2_isEedge(89)=0
exch2_isEedge(90)=1
exch2_isEedge(91)=0
exch2_isEedge(92)=0
exch2_isEedge(93)=0
exch2_isEedge(94)=1
exch2_isEedge(95)=0
exch2_isEedge(96)=0
exch2_isEedge(97)=0
exch2_isEedge(98)=1
exch2_isEedge(99)=0
exch2_isEedge(100)=0
exch2_isEedge(101)=0
exch2_isEedge(102)=1
exch2_isEedge(103)=0
exch2_isEedge(104)=0
exch2_isEedge(105)=0
exch2_isEedge(106)=1
exch2_isEedge(9)=0
exch2_isEedge(107)=0
exch2_isEedge(108)=0
exch2_isEedge(109)=0
exch2_isEedge(110)=1
exch2_isEedge(111)=0
exch2_isEedge(112)=0
exch2_isEedge(113)=0
exch2_isEedge(114)=1
exch2_isEedge(10)=0
exch2_isEedge(115)=0
exch2_isEedge(116)=0
exch2_isEedge(117)=0
exch2_isEedge(118)=1
exch2_isEedge(119)=0
exch2_isEedge(120)=0
exch2_isEedge(121)=0
exch2_isEedge(122)=1
exch2_isEedge(123)=0
exch2_isEedge(124)=0
exch2_isEedge(11)=0
exch2_isEedge(125)=0
exch2_isEedge(126)=1
exch2_isEedge(127)=0
exch2_isEedge(122)=0
exch2_isEedge(124)=1
exch2_isEedge(126)=0
exch2_isEedge(128)=1
exch2_isEedge(130)=0
exch2_isEedge(132)=1
exch2_isEedge(134)=0
exch2_isEedge(136)=1
exch2_isEedge(138)=0
exch2_isEedge(140)=1
exch2_isEedge(141)=0
exch2_isEedge(177)=0
exch2_isEedge(178)=0
exch2_isEedge(179)=0
exch2_isEedge(180)=1
exch2_isEedge(181)=0
exch2_isEedge(182)=0
exch2_isEedge(183)=0
exch2_isEedge(184)=1
exch2_isEedge(185)=0
exch2_isEedge(186)=0
exch2_isEedge(187)=0
exch2_isEedge(188)=1
exch2_isEedge(189)=0
exch2_isEedge(190)=0
exch2_isEedge(191)=0
exch2_isEedge(192)=1
exch2_isEedge(20)=1
exch2_isEedge(22)=0
exch2_isEedge(24)=1
exch2_isEedge(26)=0
exch2_isEedge(28)=1
exch2_isEedge(30)=0
exch2_isEedge(32)=1
exch2_isEedge(34)=0
exch2_isEedge(36)=1
exch2_isEedge(40)=1
exch2_isEedge(41)=0
exch2_isEedge(44)=1
exch2_isEedge(45)=0
exch2_isEedge(48)=1
exch2_isEedge(49)=0
exch2_isEedge(52)=1
exch2_isEedge(53)=0
exch2_isEedge(57)=0
exch2_isEedge(58)=0