TBY = exch2_tbasey(TN)

       exch2_tbasey(2)=16

       exch2_tbasey(3)=0

       exch2_tbasey(1)=0

       exch2_tbasey(4)=16

       exch2_tbasey(5)=0

       exch2_tbasey(6)=16

       exch2_tbasey(7)=0

       exch2_tbasey(8)=16

       exch2_tbasey(9)=0

       exch2_tbasey(10)=16

       exch2_tbasey(11)=0

       exch2_tbasey(12)=16

       INTEGER exch2_tbasey(NTILES)

     &        exch2_tbasex,exch2_tbasey,          

       exch2_tbasey(128)=12

       exch2_tbasey(129)=12

       exch2_tbasey(130)=12

       exch2_tbasey(131)=16

       exch2_tbasey(132)=16

       exch2_tbasey(133)=16

       exch2_tbasey(134)=16

       exch2_tbasey(12)=8

       exch2_tbasey(135)=20

       exch2_tbasey(136)=20

       exch2_tbasey(137)=20

       exch2_tbasey(138)=20

       exch2_tbasey(139)=24

       exch2_tbasey(140)=24

       exch2_tbasey(141)=24

       exch2_tbasey(142)=28

       exch2_tbasey(143)=28

       exch2_tbasey(144)=28

       exch2_tbasey(13)=12

       exch2_tbasey(145)=0

       exch2_tbasey(146)=0

       exch2_tbasey(147)=0

       exch2_tbasey(148)=0

       exch2_tbasey(149)=4

       exch2_tbasey(150)=4

       exch2_tbasey(151)=4

       exch2_tbasey(152)=4

       exch2_tbasey(14)=12

       exch2_tbasey(153)=8

       exch2_tbasey(154)=8

       exch2_tbasey(155)=8

       exch2_tbasey(156)=8

       exch2_tbasey(157)=12

       exch2_tbasey(158)=12

       exch2_tbasey(159)=12

       exch2_tbasey(160)=12

       exch2_tbasey(161)=16

       exch2_tbasey(162)=16

       exch2_tbasey(15)=12

       exch2_tbasey(163)=16

       exch2_tbasey(164)=16

       exch2_tbasey(165)=20

       exch2_tbasey(166)=20

       exch2_tbasey(167)=20

       exch2_tbasey(168)=20

       exch2_tbasey(169)=24

       exch2_tbasey(170)=24

       exch2_tbasey(171)=24

       exch2_tbasey(172)=24

       exch2_tbasey(16)=12

       exch2_tbasey(173)=28

       exch2_tbasey(174)=28

       exch2_tbasey(175)=28

       exch2_tbasey(176)=28

       exch2_tbasey(17)=16

       exch2_tbasey(18)=16

       exch2_tbasey(19)=16

       exch2_tbasey(20)=20

       exch2_tbasey(21)=20

       exch2_tbasey(22)=20

       exch2_tbasey(23)=24

       exch2_tbasey(24)=24

       exch2_tbasey(1)=0

       exch2_tbasey(25)=24

       exch2_tbasey(26)=24

       exch2_tbasey(27)=28

       exch2_tbasey(28)=28

       exch2_tbasey(29)=28

       exch2_tbasey(30)=28

       exch2_tbasey(31)=0

       exch2_tbasey(32)=0

       exch2_tbasey(33)=0

       exch2_tbasey(2)=0

       exch2_tbasey(34)=0

       exch2_tbasey(35)=4

       exch2_tbasey(36)=4

       exch2_tbasey(37)=4

       exch2_tbasey(38)=8

       exch2_tbasey(39)=8

       exch2_tbasey(40)=8

       exch2_tbasey(41)=8

       exch2_tbasey(42)=12

       exch2_tbasey(43)=12

       exch2_tbasey(3)=0

       exch2_tbasey(44)=12

       exch2_tbasey(45)=12

       exch2_tbasey(46)=16

       exch2_tbasey(47)=16

       exch2_tbasey(48)=16

       exch2_tbasey(49)=16

       exch2_tbasey(50)=20

       exch2_tbasey(51)=20

       exch2_tbasey(52)=20

       exch2_tbasey(53)=20

       exch2_tbasey(54)=24

       exch2_tbasey(4)=0

       exch2_tbasey(55)=24

       exch2_tbasey(56)=24

       exch2_tbasey(57)=28

       exch2_tbasey(58)=0

       exch2_tbasey(59)=4

       exch2_tbasey(60)=4

       exch2_tbasey(61)=8

       exch2_tbasey(62)=8

       exch2_tbasey(63)=8

       exch2_tbasey(64)=8

       exch2_tbasey(65)=12

       exch2_tbasey(66)=12

       exch2_tbasey(5)=4

       exch2_tbasey(67)=12

       exch2_tbasey(68)=12

       exch2_tbasey(69)=16

       exch2_tbasey(70)=16

       exch2_tbasey(71)=16

       exch2_tbasey(72)=16

       exch2_tbasey(73)=20

       exch2_tbasey(74)=20

       exch2_tbasey(75)=20

       exch2_tbasey(76)=20

       exch2_tbasey(6)=4

       exch2_tbasey(77)=24

       exch2_tbasey(78)=24

       exch2_tbasey(79)=24

       exch2_tbasey(80)=28

       exch2_tbasey(81)=28

       exch2_tbasey(82)=28

       exch2_tbasey(83)=0

       exch2_tbasey(84)=0

       exch2_tbasey(85)=0

       exch2_tbasey(7)=4

       exch2_tbasey(86)=0

       exch2_tbasey(87)=4

       exch2_tbasey(88)=4

       exch2_tbasey(89)=4

       exch2_tbasey(90)=4

       exch2_tbasey(91)=8

       exch2_tbasey(92)=8

       exch2_tbasey(93)=8

       exch2_tbasey(94)=8

       exch2_tbasey(95)=12

       exch2_tbasey(8)=4

       exch2_tbasey(96)=12

       exch2_tbasey(97)=12

       exch2_tbasey(98)=12

       exch2_tbasey(99)=16

       exch2_tbasey(100)=16

       exch2_tbasey(101)=16

       exch2_tbasey(102)=16

       exch2_tbasey(103)=20

       exch2_tbasey(104)=20

       exch2_tbasey(105)=20

       exch2_tbasey(9)=8

       exch2_tbasey(106)=20

       exch2_tbasey(107)=24

       exch2_tbasey(108)=24

       exch2_tbasey(109)=24

       exch2_tbasey(110)=24

       exch2_tbasey(111)=28

       exch2_tbasey(112)=28

       exch2_tbasey(113)=28

       exch2_tbasey(114)=28

       exch2_tbasey(10)=8

       exch2_tbasey(115)=0

       exch2_tbasey(116)=0

       exch2_tbasey(117)=0

       exch2_tbasey(118)=0

       exch2_tbasey(119)=4

       exch2_tbasey(120)=4

       exch2_tbasey(121)=4

       exch2_tbasey(122)=4

       exch2_tbasey(123)=8

       exch2_tbasey(124)=8

       exch2_tbasey(11)=8

       exch2_tbasey(125)=8

       exch2_tbasey(126)=8

       exch2_tbasey(127)=12

       INTEGER exch2_tbasey(NTILES)

     &        exch2_tbasex,exch2_tbasey,          

       exch2_tbasey(121)=24

       exch2_tbasey(11)=8

       exch2_tbasey(122)=24

       exch2_tbasey(123)=24

       exch2_tbasey(124)=24

       exch2_tbasey(125)=28

       exch2_tbasey(126)=28

       exch2_tbasey(127)=28

       exch2_tbasey(128)=28

       exch2_tbasey(129)=0

       exch2_tbasey(130)=0

       exch2_tbasey(131)=0

       exch2_tbasey(12)=8

       exch2_tbasey(132)=0

       exch2_tbasey(133)=4

       exch2_tbasey(134)=4

       exch2_tbasey(135)=4

       exch2_tbasey(136)=4

       exch2_tbasey(137)=8

       exch2_tbasey(138)=8

       exch2_tbasey(139)=8

       exch2_tbasey(140)=8

       exch2_tbasey(141)=12

       exch2_tbasey(13)=12

       exch2_tbasey(142)=12

       exch2_tbasey(143)=12

       exch2_tbasey(144)=12

       exch2_tbasey(145)=16

       exch2_tbasey(146)=16

       exch2_tbasey(147)=16

       exch2_tbasey(148)=16

       exch2_tbasey(149)=20

       exch2_tbasey(150)=20

       exch2_tbasey(151)=20

       exch2_tbasey(14)=12

       exch2_tbasey(152)=20

       exch2_tbasey(153)=24

       exch2_tbasey(154)=24

       exch2_tbasey(155)=24

       exch2_tbasey(156)=24

       exch2_tbasey(157)=28

       exch2_tbasey(158)=28

       exch2_tbasey(159)=28

       exch2_tbasey(160)=28

       exch2_tbasey(15)=12

       exch2_tbasey(161)=0

       exch2_tbasey(162)=0

       exch2_tbasey(163)=0

       exch2_tbasey(164)=0

       exch2_tbasey(165)=4

       exch2_tbasey(166)=4

       exch2_tbasey(167)=4

       exch2_tbasey(168)=4

       exch2_tbasey(169)=8

       exch2_tbasey(16)=12

       exch2_tbasey(170)=8

       exch2_tbasey(171)=8

       exch2_tbasey(172)=8

       exch2_tbasey(173)=12

       exch2_tbasey(174)=12

       exch2_tbasey(175)=12

       exch2_tbasey(176)=12

       exch2_tbasey(177)=16

       exch2_tbasey(178)=16

       exch2_tbasey(179)=16

       exch2_tbasey(17)=16

       exch2_tbasey(180)=16

       exch2_tbasey(181)=20

       exch2_tbasey(182)=20

       exch2_tbasey(183)=20

       exch2_tbasey(184)=20

       exch2_tbasey(185)=24

       exch2_tbasey(186)=24

       exch2_tbasey(187)=24

       exch2_tbasey(188)=24

       exch2_tbasey(189)=28

       exch2_tbasey(18)=16

       exch2_tbasey(190)=28

       exch2_tbasey(191)=28

       exch2_tbasey(192)=28

       exch2_tbasey(19)=16

       exch2_tbasey(20)=16

       exch2_tbasey(21)=20

       exch2_tbasey(22)=20

       exch2_tbasey(23)=20

       exch2_tbasey(24)=20

       exch2_tbasey(1)=0

       exch2_tbasey(25)=24

       exch2_tbasey(26)=24

       exch2_tbasey(27)=24

       exch2_tbasey(28)=24

       exch2_tbasey(29)=28

       exch2_tbasey(30)=28

       exch2_tbasey(31)=28

       exch2_tbasey(32)=28

       exch2_tbasey(33)=0

       exch2_tbasey(2)=0

       exch2_tbasey(34)=0

       exch2_tbasey(35)=0

       exch2_tbasey(36)=0

       exch2_tbasey(37)=4

       exch2_tbasey(38)=4

       exch2_tbasey(39)=4

       exch2_tbasey(40)=4

       exch2_tbasey(41)=8

       exch2_tbasey(42)=8

       exch2_tbasey(3)=0

       exch2_tbasey(43)=8

       exch2_tbasey(44)=8

       exch2_tbasey(45)=12

       exch2_tbasey(46)=12

       exch2_tbasey(47)=12

       exch2_tbasey(48)=12

       exch2_tbasey(49)=16

       exch2_tbasey(50)=16

       exch2_tbasey(51)=16

       exch2_tbasey(52)=16

       exch2_tbasey(4)=0

       exch2_tbasey(53)=20

       exch2_tbasey(54)=20

       exch2_tbasey(55)=20

       exch2_tbasey(56)=20

       exch2_tbasey(57)=24

       exch2_tbasey(58)=24

       exch2_tbasey(59)=24

       exch2_tbasey(60)=24

       exch2_tbasey(61)=28

       exch2_tbasey(62)=28

       exch2_tbasey(5)=4