INTEGER exch2_jthi_c(MAX_NEIGHBOURS,NTILES)

     &        exch2_jtlo_c, exch2_jthi_c          

       exch2_jthi_c(1,2)=0

       exch2_jthi_c(2,2)=33

       exch2_jthi_c(3,2)=0

       exch2_jthi_c(4,2)=33

       exch2_jthi_c(1,3)=33

       exch2_jthi_c(2,3)=33

       exch2_jthi_c(3,3)=33

       exch2_jthi_c(4,3)=33

       exch2_jthi_c(1,4)=0

       exch2_jthi_c(2,4)=33

       exch2_jthi_c(3,4)=0

       exch2_jthi_c(4,4)=33

       exch2_jthi_c(1,5)=33

       exch2_jthi_c(2,5)=33

       exch2_jthi_c(3,5)=33

       exch2_jthi_c(4,5)=33

       exch2_jthi_c(1,6)=0

       exch2_jthi_c(1,1)=33

       exch2_jthi_c(2,6)=33

       exch2_jthi_c(3,6)=0

       exch2_jthi_c(4,6)=33

       exch2_jthi_c(2,1)=33

       exch2_jthi_c(3,1)=33

       exch2_jthi_c(4,1)=33

        targetJhi =exch2_jthi_c(tN,targetTile)

        targetJhi =exch2_jthi_c(N,myTileId)

       INTEGER exch2_jthi_c(MAX_NEIGHBOURS,NTILES)

     &        exch2_jtlo_c, exch2_jthi_c          

       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(2,120)=5

       exch2_jthi_c(3,120)=0

       exch2_jthi_c(4,120)=5

       exch2_jthi_c(1,121)=0

       exch2_jthi_c(2,121)=5

       exch2_jthi_c(3,121)=5

       exch2_jthi_c(4,121)=5

       exch2_jthi_c(1,122)=0

       exch2_jthi_c(2,122)=5

       exch2_jthi_c(3,122)=5

       exch2_jthi_c(4,122)=5

       exch2_jthi_c(1,123)=0

       exch2_jthi_c(2,123)=5

       exch2_jthi_c(3,123)=5

       exch2_jthi_c(4,123)=5

       exch2_jthi_c(1,124)=0

       exch2_jthi_c(1,11)=0

       exch2_jthi_c(2,124)=5

       exch2_jthi_c(3,124)=0

       exch2_jthi_c(4,124)=5

       exch2_jthi_c(1,125)=0

       exch2_jthi_c(2,125)=5

       exch2_jthi_c(3,125)=5

       exch2_jthi_c(4,125)=5

       exch2_jthi_c(2,11)=5

       exch2_jthi_c(1,126)=0

       exch2_jthi_c(2,126)=5

       exch2_jthi_c(3,126)=5

       exch2_jthi_c(4,126)=5

       exch2_jthi_c(1,127)=0

       exch2_jthi_c(2,127)=5

       exch2_jthi_c(3,127)=5

       exch2_jthi_c(4,127)=5

       exch2_jthi_c(3,11)=5

       exch2_jthi_c(1,128)=0

       exch2_jthi_c(2,128)=5

       exch2_jthi_c(3,128)=0

       exch2_jthi_c(4,128)=5

       exch2_jthi_c(1,129)=0

       exch2_jthi_c(2,129)=5

       exch2_jthi_c(3,129)=5

       exch2_jthi_c(4,129)=5

       exch2_jthi_c(4,11)=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(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(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(1,12)=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(2,12)=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)=0

       exch2_jthi_c(2,137)=5

       exch2_jthi_c(3,137)=5

       exch2_jthi_c(4,137)=5

       exch2_jthi_c(3,12)=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(3,139)=5

       exch2_jthi_c(4,139)=5

       exch2_jthi_c(4,12)=5

       exch2_jthi_c(1,140)=0

       exch2_jthi_c(2,140)=5

       exch2_jthi_c(3,140)=5

       exch2_jthi_c(4,140)=5

       exch2_jthi_c(1,141)=0

       exch2_jthi_c(2,141)=5

       exch2_jthi_c(3,141)=5

       exch2_jthi_c(4,141)=5

       exch2_jthi_c(1,142)=0

       exch2_jthi_c(2,142)=5

       exch2_jthi_c(3,142)=5

       exch2_jthi_c(4,142)=5

       exch2_jthi_c(1,143)=0

       exch2_jthi_c(2,143)=5

       exch2_jthi_c(3,143)=5

       exch2_jthi_c(4,143)=5

       exch2_jthi_c(1,144)=0

       exch2_jthi_c(1,13)=0

       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(2,13)=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(1,147)=0

       exch2_jthi_c(2,147)=5

       exch2_jthi_c(3,147)=5

       exch2_jthi_c(4,147)=5

       exch2_jthi_c(3,13)=5

       exch2_jthi_c(1,148)=0

       exch2_jthi_c(2,148)=5

       exch2_jthi_c(3,148)=5

       exch2_jthi_c(4,148)=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(4,13)=5

       exch2_jthi_c(1,150)=0

       exch2_jthi_c(2,150)=5

       exch2_jthi_c(3,150)=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)=5

       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(1,14)=0

       exch2_jthi_c(2,154)=5

       exch2_jthi_c(3,154)=5

       exch2_jthi_c(4,154)=5

       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(2,14)=5

       exch2_jthi_c(1,156)=0

       exch2_jthi_c(2,156)=5

       exch2_jthi_c(3,156)=5

       exch2_jthi_c(4,156)=5

       exch2_jthi_c(1,157)=5

       exch2_jthi_c(2,157)=5

       exch2_jthi_c(3,157)=5

       exch2_jthi_c(4,157)=5

       exch2_jthi_c(5,157)=5

       exch2_jthi_c(3,14)=5

       exch2_jthi_c(1,158)=5

       exch2_jthi_c(2,158)=5

       exch2_jthi_c(3,158)=5

       exch2_jthi_c(4,158)=5

       exch2_jthi_c(5,158)=5

       exch2_jthi_c(1,159)=5

       exch2_jthi_c(2,159)=5

       exch2_jthi_c(4,14)=5

       exch2_jthi_c(3,159)=5

       exch2_jthi_c(4,159)=5

       exch2_jthi_c(5,159)=5

       exch2_jthi_c(1,160)=5

       exch2_jthi_c(2,160)=5

       exch2_jthi_c(3,160)=5

       exch2_jthi_c(4,160)=5

       exch2_jthi_c(5,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(5,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(5,162)=5

       exch2_jthi_c(1,15)=0

       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(5,163)=5

       exch2_jthi_c(1,164)=0

       exch2_jthi_c(2,164)=5

       exch2_jthi_c(3,164)=5

       exch2_jthi_c(4,164)=0

       exch2_jthi_c(2,15)=5

       exch2_jthi_c(5,164)=5

       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,15)=5

       exch2_jthi_c(3,166)=5

       exch2_jthi_c(4,166)=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(4,15)=5

       exch2_jthi_c(3,168)=0

       exch2_jthi_c(4,168)=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,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