TBX = exch2_tbasex(TN)

       exch2_tbasex(2)=0

       exch2_tbasex(3)=0

       exch2_tbasex(1)=0

       exch2_tbasex(4)=0

       exch2_tbasex(5)=0

       exch2_tbasex(6)=0

       exch2_tbasex(7)=0

       exch2_tbasex(8)=0

       exch2_tbasex(9)=0

       exch2_tbasex(10)=0

       exch2_tbasex(11)=0

       exch2_tbasex(12)=0

       INTEGER exch2_tbasex(NTILES)

     &        exch2_tbasex,exch2_tbasey,          

       exch2_tbasex(128)=8

       exch2_tbasex(129)=16

       exch2_tbasex(130)=24

       exch2_tbasex(131)=0

       exch2_tbasex(132)=8

       exch2_tbasex(133)=16

       exch2_tbasex(134)=24

       exch2_tbasex(12)=24

       exch2_tbasex(135)=0

       exch2_tbasex(136)=8

       exch2_tbasex(137)=16

       exch2_tbasex(138)=24

       exch2_tbasex(139)=0

       exch2_tbasex(140)=8

       exch2_tbasex(141)=24

       exch2_tbasex(142)=0

       exch2_tbasex(143)=8

       exch2_tbasex(144)=24

       exch2_tbasex(13)=0

       exch2_tbasex(145)=0

       exch2_tbasex(146)=8

       exch2_tbasex(147)=16

       exch2_tbasex(148)=24

       exch2_tbasex(149)=0

       exch2_tbasex(150)=8

       exch2_tbasex(151)=16

       exch2_tbasex(152)=24

       exch2_tbasex(14)=8

       exch2_tbasex(153)=0

       exch2_tbasex(154)=8

       exch2_tbasex(155)=16

       exch2_tbasex(156)=24

       exch2_tbasex(157)=0

       exch2_tbasex(158)=8

       exch2_tbasex(159)=16

       exch2_tbasex(160)=24

       exch2_tbasex(161)=0

       exch2_tbasex(162)=8

       exch2_tbasex(15)=16

       exch2_tbasex(163)=16

       exch2_tbasex(164)=24

       exch2_tbasex(165)=0

       exch2_tbasex(166)=8

       exch2_tbasex(167)=16

       exch2_tbasex(168)=24

       exch2_tbasex(169)=0

       exch2_tbasex(170)=8

       exch2_tbasex(171)=16

       exch2_tbasex(172)=24

       exch2_tbasex(16)=24

       exch2_tbasex(173)=0

       exch2_tbasex(174)=8

       exch2_tbasex(175)=16

       exch2_tbasex(176)=24

       exch2_tbasex(17)=0

       exch2_tbasex(18)=8

       exch2_tbasex(19)=16

       exch2_tbasex(20)=0

       exch2_tbasex(21)=8

       exch2_tbasex(22)=24

       exch2_tbasex(23)=0

       exch2_tbasex(1)=0

       exch2_tbasex(24)=8

       exch2_tbasex(25)=16

       exch2_tbasex(26)=24

       exch2_tbasex(27)=0

       exch2_tbasex(28)=8

       exch2_tbasex(29)=16

       exch2_tbasex(30)=24

       exch2_tbasex(31)=0

       exch2_tbasex(32)=8

       exch2_tbasex(33)=16

       exch2_tbasex(2)=8

       exch2_tbasex(34)=24

       exch2_tbasex(35)=0

       exch2_tbasex(36)=8

       exch2_tbasex(37)=16

       exch2_tbasex(38)=0

       exch2_tbasex(39)=8

       exch2_tbasex(40)=16

       exch2_tbasex(41)=24

       exch2_tbasex(42)=0

       exch2_tbasex(43)=8

       exch2_tbasex(3)=16

       exch2_tbasex(44)=16

       exch2_tbasex(45)=24

       exch2_tbasex(46)=0

       exch2_tbasex(47)=8

       exch2_tbasex(48)=16

       exch2_tbasex(49)=24

       exch2_tbasex(50)=0

       exch2_tbasex(51)=8

       exch2_tbasex(52)=16

       exch2_tbasex(53)=24

       exch2_tbasex(4)=24

       exch2_tbasex(54)=0

       exch2_tbasex(55)=8

       exch2_tbasex(56)=24

       exch2_tbasex(57)=24

       exch2_tbasex(58)=24

       exch2_tbasex(59)=0

       exch2_tbasex(60)=24

       exch2_tbasex(61)=0

       exch2_tbasex(62)=8

       exch2_tbasex(63)=16

       exch2_tbasex(64)=24

       exch2_tbasex(65)=0

       exch2_tbasex(66)=8

       exch2_tbasex(5)=0

       exch2_tbasex(67)=16

       exch2_tbasex(68)=24

       exch2_tbasex(69)=0

       exch2_tbasex(70)=8

       exch2_tbasex(71)=16

       exch2_tbasex(72)=24

       exch2_tbasex(73)=0

       exch2_tbasex(74)=8

       exch2_tbasex(75)=16

       exch2_tbasex(76)=24

       exch2_tbasex(6)=8

       exch2_tbasex(77)=0

       exch2_tbasex(78)=8

       exch2_tbasex(79)=24

       exch2_tbasex(80)=0

       exch2_tbasex(81)=8

       exch2_tbasex(82)=24

       exch2_tbasex(83)=0

       exch2_tbasex(84)=8

       exch2_tbasex(85)=16

       exch2_tbasex(7)=16

       exch2_tbasex(86)=24

       exch2_tbasex(87)=0

       exch2_tbasex(88)=8

       exch2_tbasex(89)=16

       exch2_tbasex(90)=24

       exch2_tbasex(91)=0

       exch2_tbasex(92)=8

       exch2_tbasex(93)=16

       exch2_tbasex(94)=24

       exch2_tbasex(95)=0

       exch2_tbasex(8)=24

       exch2_tbasex(96)=8

       exch2_tbasex(97)=16

       exch2_tbasex(98)=24

       exch2_tbasex(99)=0

       exch2_tbasex(100)=8

       exch2_tbasex(101)=16

       exch2_tbasex(102)=24

       exch2_tbasex(103)=0

       exch2_tbasex(104)=8

       exch2_tbasex(105)=16

       exch2_tbasex(9)=0

       exch2_tbasex(106)=24

       exch2_tbasex(107)=0

       exch2_tbasex(108)=8

       exch2_tbasex(109)=16

       exch2_tbasex(110)=24

       exch2_tbasex(111)=0

       exch2_tbasex(112)=8

       exch2_tbasex(113)=16

       exch2_tbasex(10)=8

       exch2_tbasex(114)=24

       exch2_tbasex(115)=0

       exch2_tbasex(116)=8

       exch2_tbasex(117)=16

       exch2_tbasex(118)=24

       exch2_tbasex(119)=0

       exch2_tbasex(120)=8

       exch2_tbasex(121)=16

       exch2_tbasex(122)=24

       exch2_tbasex(123)=0

       exch2_tbasex(124)=8

       exch2_tbasex(11)=16

       exch2_tbasex(125)=16

       exch2_tbasex(126)=24

       exch2_tbasex(127)=0

       INTEGER exch2_tbasex(NTILES)

     &        exch2_tbasex,exch2_tbasey,          

       exch2_tbasex(121)=0

       exch2_tbasex(11)=16

       exch2_tbasex(122)=8

       exch2_tbasex(123)=16

       exch2_tbasex(124)=24

       exch2_tbasex(125)=0

       exch2_tbasex(126)=8

       exch2_tbasex(127)=16

       exch2_tbasex(128)=24

       exch2_tbasex(129)=0

       exch2_tbasex(130)=8

       exch2_tbasex(131)=16

       exch2_tbasex(12)=24

       exch2_tbasex(132)=24

       exch2_tbasex(133)=0

       exch2_tbasex(134)=8

       exch2_tbasex(135)=16

       exch2_tbasex(136)=24

       exch2_tbasex(137)=0

       exch2_tbasex(138)=8

       exch2_tbasex(139)=16

       exch2_tbasex(140)=24

       exch2_tbasex(141)=0

       exch2_tbasex(13)=0

       exch2_tbasex(142)=8

       exch2_tbasex(143)=16

       exch2_tbasex(144)=24

       exch2_tbasex(145)=0

       exch2_tbasex(146)=8

       exch2_tbasex(147)=16

       exch2_tbasex(148)=24

       exch2_tbasex(149)=0

       exch2_tbasex(150)=8

       exch2_tbasex(151)=16

       exch2_tbasex(14)=8

       exch2_tbasex(152)=24

       exch2_tbasex(153)=0

       exch2_tbasex(154)=8

       exch2_tbasex(155)=16

       exch2_tbasex(156)=24

       exch2_tbasex(157)=0

       exch2_tbasex(158)=8

       exch2_tbasex(159)=16

       exch2_tbasex(160)=24

       exch2_tbasex(15)=16

       exch2_tbasex(161)=0

       exch2_tbasex(162)=8

       exch2_tbasex(163)=16

       exch2_tbasex(164)=24

       exch2_tbasex(165)=0

       exch2_tbasex(166)=8

       exch2_tbasex(167)=16

       exch2_tbasex(168)=24

       exch2_tbasex(169)=0

       exch2_tbasex(16)=24

       exch2_tbasex(170)=8

       exch2_tbasex(171)=16

       exch2_tbasex(172)=24

       exch2_tbasex(173)=0

       exch2_tbasex(174)=8

       exch2_tbasex(175)=16

       exch2_tbasex(176)=24

       exch2_tbasex(177)=0

       exch2_tbasex(178)=8

       exch2_tbasex(179)=16

       exch2_tbasex(17)=0

       exch2_tbasex(180)=24

       exch2_tbasex(181)=0

       exch2_tbasex(182)=8

       exch2_tbasex(183)=16

       exch2_tbasex(184)=24

       exch2_tbasex(185)=0

       exch2_tbasex(186)=8

       exch2_tbasex(187)=16

       exch2_tbasex(188)=24

       exch2_tbasex(189)=0

       exch2_tbasex(18)=8

       exch2_tbasex(190)=8

       exch2_tbasex(191)=16

       exch2_tbasex(192)=24

       exch2_tbasex(19)=16

       exch2_tbasex(20)=24

       exch2_tbasex(21)=0

       exch2_tbasex(22)=8

       exch2_tbasex(23)=16

       exch2_tbasex(24)=24

       exch2_tbasex(1)=0

       exch2_tbasex(25)=0

       exch2_tbasex(26)=8

       exch2_tbasex(27)=16

       exch2_tbasex(28)=24

       exch2_tbasex(29)=0

       exch2_tbasex(30)=8

       exch2_tbasex(31)=16

       exch2_tbasex(32)=24

       exch2_tbasex(33)=0

       exch2_tbasex(2)=8

       exch2_tbasex(34)=8

       exch2_tbasex(35)=16

       exch2_tbasex(36)=24

       exch2_tbasex(37)=0

       exch2_tbasex(38)=8

       exch2_tbasex(39)=16

       exch2_tbasex(40)=24

       exch2_tbasex(41)=0

       exch2_tbasex(42)=8

       exch2_tbasex(3)=16

       exch2_tbasex(43)=16

       exch2_tbasex(44)=24

       exch2_tbasex(45)=0

       exch2_tbasex(46)=8

       exch2_tbasex(47)=16

       exch2_tbasex(48)=24

       exch2_tbasex(49)=0

       exch2_tbasex(50)=8

       exch2_tbasex(51)=16

       exch2_tbasex(52)=24

       exch2_tbasex(4)=24

       exch2_tbasex(53)=0

       exch2_tbasex(54)=8

       exch2_tbasex(55)=16

       exch2_tbasex(56)=24

       exch2_tbasex(57)=0

       exch2_tbasex(58)=8

       exch2_tbasex(59)=16

       exch2_tbasex(60)=24

       exch2_tbasex(61)=0

       exch2_tbasex(62)=8

       exch2_tbasex(5)=0