exch2_jthi_c(1,12)=0

       exch2_jthi_c(2,12)=17

       exch2_jthi_c(3,12)=0

       exch2_jthi_c(4,12)=17

       exch2_jthi_c(1,2)=17

       exch2_jthi_c(2,2)=17

       exch2_jthi_c(3,2)=17

       exch2_jthi_c(4,2)=17

       exch2_jthi_c(5,2)=17

       exch2_jthi_c(1,3)=0

       exch2_jthi_c(2,3)=17

       exch2_jthi_c(3,3)=17

       exch2_jthi_c(4,3)=0

       exch2_jthi_c(5,3)=17

       exch2_jthi_c(1,4)=0

       exch2_jthi_c(2,4)=17

       exch2_jthi_c(3,4)=0

       exch2_jthi_c(4,4)=17

       exch2_jthi_c(1,5)=0

       exch2_jthi_c(2,5)=17

       exch2_jthi_c(3,5)=17

       exch2_jthi_c(4,5)=17

       exch2_jthi_c(1,6)=17

       exch2_jthi_c(2,6)=17

       exch2_jthi_c(3,6)=17

       exch2_jthi_c(1,1)=0

       exch2_jthi_c(4,6)=17

       exch2_jthi_c(5,6)=17

       exch2_jthi_c(1,7)=0

       exch2_jthi_c(2,7)=17

       exch2_jthi_c(3,7)=17

       exch2_jthi_c(4,7)=0

       exch2_jthi_c(5,7)=17

       exch2_jthi_c(2,1)=17

       exch2_jthi_c(1,8)=0

       exch2_jthi_c(2,8)=17

       exch2_jthi_c(3,8)=0

       exch2_jthi_c(4,8)=17

       exch2_jthi_c(1,9)=0

       exch2_jthi_c(2,9)=17

       exch2_jthi_c(3,9)=17

       exch2_jthi_c(4,9)=17

       exch2_jthi_c(3,1)=17

       exch2_jthi_c(1,10)=17

       exch2_jthi_c(2,10)=17

       exch2_jthi_c(3,10)=17

       exch2_jthi_c(4,10)=17

       exch2_jthi_c(5,10)=17

       exch2_jthi_c(1,11)=0

       exch2_jthi_c(2,11)=17

       exch2_jthi_c(3,11)=17

       exch2_jthi_c(4,1)=17

       exch2_jthi_c(4,11)=0

       exch2_jthi_c(5,11)=17

       INTEGER exch2_jthi_c(MAX_NEIGHBOURS,NTILES)

     &        exch2_jtlo_c, exch2_jthi_c          

       exch2_jthi_c(1,11)=0

       exch2_jthi_c(1,127)=0

       exch2_jthi_c(2,127)=5

       exch2_jthi_c(3,127)=5

       exch2_jthi_c(1,128)=0

       exch2_jthi_c(2,128)=5

       exch2_jthi_c(3,128)=5

       exch2_jthi_c(4,128)=5

       exch2_jthi_c(1,129)=0

       exch2_jthi_c(2,11)=5

       exch2_jthi_c(2,129)=5

       exch2_jthi_c(3,129)=5

       exch2_jthi_c(4,129)=5

       exch2_jthi_c(1,130)=0

       exch2_jthi_c(2,130)=5

       exch2_jthi_c(3,130)=5

       exch2_jthi_c(4,130)=5

       exch2_jthi_c(3,11)=5

       exch2_jthi_c(1,131)=0

       exch2_jthi_c(2,131)=5

       exch2_jthi_c(3,131)=5

       exch2_jthi_c(4,131)=5

       exch2_jthi_c(1,132)=0

       exch2_jthi_c(2,132)=5

       exch2_jthi_c(3,132)=5

       exch2_jthi_c(4,132)=5

       exch2_jthi_c(4,11)=5

       exch2_jthi_c(1,133)=0

       exch2_jthi_c(2,133)=5

       exch2_jthi_c(3,133)=5

       exch2_jthi_c(4,133)=5

       exch2_jthi_c(1,134)=0

       exch2_jthi_c(2,134)=5

       exch2_jthi_c(3,134)=5

       exch2_jthi_c(4,134)=5

       exch2_jthi_c(1,135)=0

       exch2_jthi_c(2,135)=5

       exch2_jthi_c(3,135)=5

       exch2_jthi_c(4,135)=5

       exch2_jthi_c(1,136)=0

       exch2_jthi_c(2,136)=5

       exch2_jthi_c(3,136)=5

       exch2_jthi_c(4,136)=5

       exch2_jthi_c(1,137)=5

       exch2_jthi_c(1,12)=0

       exch2_jthi_c(2,137)=5

       exch2_jthi_c(3,137)=5

       exch2_jthi_c(1,138)=0

       exch2_jthi_c(2,138)=5

       exch2_jthi_c(3,138)=5

       exch2_jthi_c(4,138)=5

       exch2_jthi_c(1,139)=0

       exch2_jthi_c(2,139)=5

       exch2_jthi_c(2,12)=5

       exch2_jthi_c(3,139)=5

       exch2_jthi_c(4,139)=5

       exch2_jthi_c(1,140)=0

       exch2_jthi_c(2,140)=5

       exch2_jthi_c(3,140)=5

       exch2_jthi_c(1,141)=0

       exch2_jthi_c(2,141)=5

       exch2_jthi_c(3,12)=5

       exch2_jthi_c(3,141)=5

       exch2_jthi_c(1,142)=5

       exch2_jthi_c(2,142)=5

       exch2_jthi_c(3,142)=5

       exch2_jthi_c(4,142)=5

       exch2_jthi_c(5,142)=5

       exch2_jthi_c(1,143)=5

       exch2_jthi_c(4,12)=5

       exch2_jthi_c(2,143)=5

       exch2_jthi_c(3,143)=5

       exch2_jthi_c(4,143)=5

       exch2_jthi_c(1,144)=5

       exch2_jthi_c(2,144)=5

       exch2_jthi_c(3,144)=5

       exch2_jthi_c(4,144)=5

       exch2_jthi_c(1,145)=0

       exch2_jthi_c(2,145)=5

       exch2_jthi_c(3,145)=5

       exch2_jthi_c(4,145)=5

       exch2_jthi_c(5,145)=5

       exch2_jthi_c(1,146)=0

       exch2_jthi_c(2,146)=5

       exch2_jthi_c(3,146)=5

       exch2_jthi_c(4,146)=5

       exch2_jthi_c(5,146)=5

       exch2_jthi_c(1,147)=0

       exch2_jthi_c(1,13)=0

       exch2_jthi_c(2,147)=5

       exch2_jthi_c(3,147)=5

       exch2_jthi_c(4,147)=5

       exch2_jthi_c(5,147)=5

       exch2_jthi_c(1,148)=0

       exch2_jthi_c(2,148)=5

       exch2_jthi_c(3,148)=5

       exch2_jthi_c(4,148)=0

       exch2_jthi_c(5,148)=5

       exch2_jthi_c(2,13)=5

       exch2_jthi_c(1,149)=0

       exch2_jthi_c(2,149)=5

       exch2_jthi_c(3,149)=5

       exch2_jthi_c(4,149)=5

       exch2_jthi_c(1,150)=0

       exch2_jthi_c(2,150)=5

       exch2_jthi_c(3,150)=5

       exch2_jthi_c(3,13)=5

       exch2_jthi_c(4,150)=5

       exch2_jthi_c(1,151)=0

       exch2_jthi_c(2,151)=5

       exch2_jthi_c(3,151)=5

       exch2_jthi_c(4,151)=5

       exch2_jthi_c(1,152)=0

       exch2_jthi_c(2,152)=5

       exch2_jthi_c(3,152)=0

       exch2_jthi_c(4,152)=5

       exch2_jthi_c(1,153)=0

       exch2_jthi_c(2,153)=5

       exch2_jthi_c(3,153)=5

       exch2_jthi_c(4,153)=5

       exch2_jthi_c(1,154)=0

       exch2_jthi_c(2,154)=5

       exch2_jthi_c(3,154)=5

       exch2_jthi_c(4,154)=5

       exch2_jthi_c(1,14)=0

       exch2_jthi_c(1,155)=0

       exch2_jthi_c(2,155)=5

       exch2_jthi_c(3,155)=5

       exch2_jthi_c(4,155)=5

       exch2_jthi_c(1,156)=0

       exch2_jthi_c(2,156)=5

       exch2_jthi_c(3,156)=0

       exch2_jthi_c(4,156)=5

       exch2_jthi_c(2,14)=5

       exch2_jthi_c(1,157)=0

       exch2_jthi_c(2,157)=5

       exch2_jthi_c(3,157)=5

       exch2_jthi_c(4,157)=5

       exch2_jthi_c(1,158)=0

       exch2_jthi_c(2,158)=5

       exch2_jthi_c(3,158)=5

       exch2_jthi_c(4,158)=5

       exch2_jthi_c(3,14)=5

       exch2_jthi_c(1,159)=0

       exch2_jthi_c(2,159)=5

       exch2_jthi_c(3,159)=5

       exch2_jthi_c(4,159)=5

       exch2_jthi_c(1,160)=0

       exch2_jthi_c(2,160)=5

       exch2_jthi_c(3,160)=0

       exch2_jthi_c(4,14)=5

       exch2_jthi_c(4,160)=5

       exch2_jthi_c(1,161)=0

       exch2_jthi_c(2,161)=5

       exch2_jthi_c(3,161)=5

       exch2_jthi_c(4,161)=5

       exch2_jthi_c(1,162)=0

       exch2_jthi_c(2,162)=5

       exch2_jthi_c(3,162)=5

       exch2_jthi_c(4,162)=5

       exch2_jthi_c(1,163)=0

       exch2_jthi_c(2,163)=5

       exch2_jthi_c(3,163)=5

       exch2_jthi_c(4,163)=5

       exch2_jthi_c(1,164)=0

       exch2_jthi_c(2,164)=5

       exch2_jthi_c(3,164)=0

       exch2_jthi_c(4,164)=5

       exch2_jthi_c(1,15)=0

       exch2_jthi_c(1,165)=0

       exch2_jthi_c(2,165)=5

       exch2_jthi_c(3,165)=5

       exch2_jthi_c(4,165)=5

       exch2_jthi_c(1,166)=0

       exch2_jthi_c(2,166)=5

       exch2_jthi_c(3,166)=5

       exch2_jthi_c(4,166)=5

       exch2_jthi_c(2,15)=5

       exch2_jthi_c(1,167)=0

       exch2_jthi_c(2,167)=5

       exch2_jthi_c(3,167)=5

       exch2_jthi_c(4,167)=5

       exch2_jthi_c(1,168)=0

       exch2_jthi_c(2,168)=5

       exch2_jthi_c(3,168)=0

       exch2_jthi_c(4,168)=5

       exch2_jthi_c(3,15)=5

       exch2_jthi_c(1,169)=0

       exch2_jthi_c(2,169)=5

       exch2_jthi_c(3,169)=5

       exch2_jthi_c(4,169)=5

       exch2_jthi_c(1,170)=0

       exch2_jthi_c(2,170)=5

       exch2_jthi_c(3,170)=5

       exch2_jthi_c(4,15)=5

       exch2_jthi_c(4,170)=5

       exch2_jthi_c(1,171)=0

       exch2_jthi_c(2,171)=5

       exch2_jthi_c(3,171)=5

       exch2_jthi_c(4,171)=5

       exch2_jthi_c(1,172)=0

       exch2_jthi_c(2,172)=5

       exch2_jthi_c(3,172)=0

       exch2_jthi_c(4,172)=5

       exch2_jthi_c(1,173)=0

       exch2_jthi_c(2,173)=5

       exch2_jthi_c(3,173)=5

       exch2_jthi_c(4,173)=5

       exch2_jthi_c(1,174)=0

       exch2_jthi_c(2,174)=5

       exch2_jthi_c(3,174)=5

       exch2_jthi_c(4,174)=5

       exch2_jthi_c(1,16)=5

       exch2_jthi_c(1,175)=0

       exch2_jthi_c(2,175)=5

       exch2_jthi_c(3,175)=5

       exch2_jthi_c(4,175)=5

       exch2_jthi_c(1,176)=0

       exch2_jthi_c(2,176)=5

       exch2_jthi_c(3,176)=0

       exch2_jthi_c(4,176)=5

       exch2_jthi_c(2,16)=5

       exch2_jthi_c(3,16)=5

       exch2_jthi_c(1,17)=0

       exch2_jthi_c(2,17)=5

       exch2_jthi_c(3,17)=5

       exch2_jthi_c(4,17)=5

       exch2_jthi_c(1,18)=0

       exch2_jthi_c(2,18)=5

       exch2_jthi_c(3,18)=5

       exch2_jthi_c(4,18)=5

       exch2_jthi_c(1,19)=5

       exch2_jthi_c(2,19)=5

       exch2_jthi_c(1,20)=0

       exch2_jthi_c(2,20)=5

       exch2_jthi_c(3,20)=5

       exch2_jthi_c(4,20)=5

       exch2_jthi_c(1,21)=0

       exch2_jthi_c(2,21)=5

       exch2_jthi_c(3,21)=5

       exch2_jthi_c(1,22)=0

       exch2_jthi_c(2,22)=5

       exch2_jthi_c(1,23)=0

       exch2_jthi_c(2,23)=5

       exch2_jthi_c(3,23)=5

       exch2_jthi_c(4,23)=5

       exch2_jthi_c(1,24)=0

       exch2_jthi_c(2,24)=5

       exch2_jthi_c(3,24)=5

       exch2_jthi_c(4,24)=5

       exch2_jthi_c(1,25)=0

       exch2_jthi_c(2,25)=5

       exch2_jthi_c(3,25)=5

       exch2_jthi_c(1,26)=0

       exch2_jthi_c(2,26)=5

       exch2_jthi_c(3,26)=5

       exch2_jthi_c(4,26)=5

       exch2_jthi_c(1,1)=0

       exch2_jthi_c(1,27)=5

       exch2_jthi_c(2,27)=5

       exch2_jthi_c(3,27)=5

       exch2_jthi_c(4,27)=5

       exch2_jthi_c(5,27)=5

       exch2_jthi_c(1,28)=5