exch2_oj_f(1,12)=32

       exch2_oj_f(2,12)=0

       exch2_oj_f(3,12)=34

       exch2_oj_f(4,12)=0

       exch2_oj_f(1,2)=32

       exch2_oj_f(2,2)=32

       exch2_oj_f(3,2)=0

       exch2_oj_f(4,2)=0

       exch2_oj_f(5,2)=34

       exch2_oj_f(1,3)=0

       exch2_oj_f(2,3)=-32

       exch2_oj_f(3,3)=-32

       exch2_oj_f(4,3)=34

       exch2_oj_f(5,3)=0

       exch2_oj_f(1,4)=32

       exch2_oj_f(2,4)=0

       exch2_oj_f(3,4)=34

       exch2_oj_f(4,4)=0

       exch2_oj_f(1,5)=0

       exch2_oj_f(2,5)=-32

       exch2_oj_f(3,5)=0

       exch2_oj_f(4,5)=34

       exch2_oj_f(1,6)=32

       exch2_oj_f(1,1)=0

       exch2_oj_f(2,6)=32

       exch2_oj_f(3,6)=0

       exch2_oj_f(4,6)=0

       exch2_oj_f(5,6)=34

       exch2_oj_f(1,7)=0

       exch2_oj_f(2,7)=-32

       exch2_oj_f(3,7)=-32

       exch2_oj_f(4,7)=34

       exch2_oj_f(2,1)=-32

       exch2_oj_f(5,7)=0

       exch2_oj_f(1,8)=32

       exch2_oj_f(2,8)=0

       exch2_oj_f(3,8)=34

       exch2_oj_f(4,8)=0

       exch2_oj_f(1,9)=0

       exch2_oj_f(2,9)=-32

       exch2_oj_f(3,9)=0

       exch2_oj_f(3,1)=0

       exch2_oj_f(4,9)=34

       exch2_oj_f(1,10)=32

       exch2_oj_f(2,10)=32

       exch2_oj_f(3,10)=0

       exch2_oj_f(4,10)=0

       exch2_oj_f(5,10)=34

       exch2_oj_f(1,11)=0

       exch2_oj_f(4,1)=34

       exch2_oj_f(2,11)=-32

       exch2_oj_f(3,11)=-32

       exch2_oj_f(4,11)=34

       exch2_oj_f(5,11)=0

       INTEGER exch2_oj_f(MAX_NEIGHBOURS,NTILES)

     &        exch2_oi_f,exch2_oj_f               

       exch2_oj_f(1,127)=0

       exch2_oj_f(2,127)=0

       exch2_oj_f(3,127)=0

       exch2_oj_f(1,128)=0

       exch2_oj_f(2,128)=0

       exch2_oj_f(3,128)=0

       exch2_oj_f(4,128)=0

       exch2_oj_f(2,11)=0

       exch2_oj_f(1,129)=0

       exch2_oj_f(2,129)=0

       exch2_oj_f(3,129)=0

       exch2_oj_f(4,129)=0

       exch2_oj_f(1,130)=0

       exch2_oj_f(2,130)=0

       exch2_oj_f(3,130)=0

       exch2_oj_f(3,11)=0

       exch2_oj_f(4,130)=0

       exch2_oj_f(1,131)=0

       exch2_oj_f(2,131)=0

       exch2_oj_f(3,131)=0

       exch2_oj_f(4,131)=34

       exch2_oj_f(1,132)=0

       exch2_oj_f(2,132)=0

       exch2_oj_f(4,11)=0

       exch2_oj_f(3,132)=0

       exch2_oj_f(4,132)=0

       exch2_oj_f(1,133)=0

       exch2_oj_f(2,133)=0

       exch2_oj_f(3,133)=0

       exch2_oj_f(4,133)=0

       exch2_oj_f(1,134)=0

       exch2_oj_f(2,134)=0

       exch2_oj_f(3,134)=0

       exch2_oj_f(4,134)=0

       exch2_oj_f(1,135)=0

       exch2_oj_f(2,135)=0

       exch2_oj_f(3,135)=0

       exch2_oj_f(4,135)=34

       exch2_oj_f(1,136)=0

       exch2_oj_f(2,136)=0

       exch2_oj_f(3,136)=0

       exch2_oj_f(4,136)=0

       exch2_oj_f(1,12)=0

       exch2_oj_f(1,137)=0

       exch2_oj_f(2,137)=0

       exch2_oj_f(3,137)=0

       exch2_oj_f(1,138)=0

       exch2_oj_f(2,138)=0

       exch2_oj_f(3,138)=0

       exch2_oj_f(4,138)=0

       exch2_oj_f(2,12)=0

       exch2_oj_f(1,139)=0

       exch2_oj_f(2,139)=0

       exch2_oj_f(3,139)=0

       exch2_oj_f(4,139)=34

       exch2_oj_f(1,140)=0

       exch2_oj_f(2,140)=0

       exch2_oj_f(3,140)=0

       exch2_oj_f(3,12)=0

       exch2_oj_f(1,141)=0

       exch2_oj_f(2,141)=0

       exch2_oj_f(3,141)=0

       exch2_oj_f(1,142)=32

       exch2_oj_f(2,142)=32

       exch2_oj_f(3,142)=0

       exch2_oj_f(4,142)=0

       exch2_oj_f(5,142)=34

       exch2_oj_f(4,12)=0

       exch2_oj_f(1,143)=32

       exch2_oj_f(2,143)=32

       exch2_oj_f(3,143)=0

       exch2_oj_f(4,143)=0

       exch2_oj_f(1,144)=32

       exch2_oj_f(2,144)=32

       exch2_oj_f(3,144)=0

       exch2_oj_f(4,144)=0

       exch2_oj_f(1,145)=0

       exch2_oj_f(2,145)=-32

       exch2_oj_f(3,145)=-32

       exch2_oj_f(4,145)=0

       exch2_oj_f(5,145)=0

       exch2_oj_f(1,146)=0

       exch2_oj_f(2,146)=-32

       exch2_oj_f(3,146)=-32

       exch2_oj_f(4,146)=0

       exch2_oj_f(5,146)=0

       exch2_oj_f(1,13)=0

       exch2_oj_f(1,147)=0

       exch2_oj_f(2,147)=-32

       exch2_oj_f(3,147)=-32

       exch2_oj_f(4,147)=0

       exch2_oj_f(5,147)=0

       exch2_oj_f(1,148)=0

       exch2_oj_f(2,148)=-32

       exch2_oj_f(3,148)=-32

       exch2_oj_f(2,13)=0

       exch2_oj_f(4,148)=34

       exch2_oj_f(5,148)=0

       exch2_oj_f(1,149)=0

       exch2_oj_f(2,149)=0

       exch2_oj_f(3,149)=0

       exch2_oj_f(4,149)=0

       exch2_oj_f(1,150)=0

       exch2_oj_f(3,13)=0

       exch2_oj_f(2,150)=0

       exch2_oj_f(3,150)=0

       exch2_oj_f(4,150)=0

       exch2_oj_f(1,151)=0

       exch2_oj_f(2,151)=0

       exch2_oj_f(3,151)=0

       exch2_oj_f(4,151)=0

       exch2_oj_f(1,152)=0

       exch2_oj_f(2,152)=0

       exch2_oj_f(3,152)=34

       exch2_oj_f(4,152)=0

       exch2_oj_f(1,153)=0

       exch2_oj_f(2,153)=0

       exch2_oj_f(3,153)=0

       exch2_oj_f(4,153)=0

       exch2_oj_f(1,154)=0

       exch2_oj_f(2,154)=0

       exch2_oj_f(3,154)=0

       exch2_oj_f(1,14)=0

       exch2_oj_f(4,154)=0

       exch2_oj_f(1,155)=0

       exch2_oj_f(2,155)=0

       exch2_oj_f(3,155)=0

       exch2_oj_f(4,155)=0

       exch2_oj_f(1,156)=0

       exch2_oj_f(2,156)=0

       exch2_oj_f(2,14)=0

       exch2_oj_f(3,156)=34

       exch2_oj_f(4,156)=0

       exch2_oj_f(1,157)=0

       exch2_oj_f(2,157)=0

       exch2_oj_f(3,157)=0

       exch2_oj_f(4,157)=0

       exch2_oj_f(1,158)=0

       exch2_oj_f(2,158)=0

       exch2_oj_f(3,14)=0

       exch2_oj_f(3,158)=0

       exch2_oj_f(4,158)=0

       exch2_oj_f(1,159)=0

       exch2_oj_f(2,159)=0

       exch2_oj_f(3,159)=0

       exch2_oj_f(4,159)=0

       exch2_oj_f(1,160)=0

       exch2_oj_f(4,14)=0

       exch2_oj_f(2,160)=0

       exch2_oj_f(3,160)=34

       exch2_oj_f(4,160)=0

       exch2_oj_f(1,161)=0

       exch2_oj_f(2,161)=0

       exch2_oj_f(3,161)=0

       exch2_oj_f(4,161)=0

       exch2_oj_f(1,162)=0

       exch2_oj_f(2,162)=0

       exch2_oj_f(3,162)=0

       exch2_oj_f(4,162)=0

       exch2_oj_f(1,163)=0

       exch2_oj_f(2,163)=0

       exch2_oj_f(3,163)=0

       exch2_oj_f(4,163)=0

       exch2_oj_f(1,164)=0

       exch2_oj_f(2,164)=0

       exch2_oj_f(3,164)=34

       exch2_oj_f(1,15)=0

       exch2_oj_f(4,164)=0

       exch2_oj_f(1,165)=0

       exch2_oj_f(2,165)=0

       exch2_oj_f(3,165)=0

       exch2_oj_f(4,165)=0

       exch2_oj_f(1,166)=0

       exch2_oj_f(2,166)=0

       exch2_oj_f(2,15)=0

       exch2_oj_f(3,166)=0

       exch2_oj_f(4,166)=0

       exch2_oj_f(1,167)=0

       exch2_oj_f(2,167)=0

       exch2_oj_f(3,167)=0

       exch2_oj_f(4,167)=0

       exch2_oj_f(1,168)=0

       exch2_oj_f(2,168)=0

       exch2_oj_f(3,15)=0

       exch2_oj_f(3,168)=34

       exch2_oj_f(4,168)=0

       exch2_oj_f(1,169)=0

       exch2_oj_f(2,169)=0

       exch2_oj_f(3,169)=0

       exch2_oj_f(4,169)=0

       exch2_oj_f(1,170)=0

       exch2_oj_f(4,15)=0

       exch2_oj_f(2,170)=0

       exch2_oj_f(3,170)=0

       exch2_oj_f(4,170)=0

       exch2_oj_f(1,171)=0

       exch2_oj_f(2,171)=0

       exch2_oj_f(3,171)=0

       exch2_oj_f(4,171)=0

       exch2_oj_f(1,172)=0

       exch2_oj_f(2,172)=0

       exch2_oj_f(3,172)=34

       exch2_oj_f(4,172)=0

       exch2_oj_f(1,173)=32

       exch2_oj_f(2,173)=0

       exch2_oj_f(3,173)=0

       exch2_oj_f(4,173)=0

       exch2_oj_f(1,174)=32

       exch2_oj_f(2,174)=0

       exch2_oj_f(3,174)=0

       exch2_oj_f(1,16)=0

       exch2_oj_f(4,174)=0

       exch2_oj_f(1,175)=32

       exch2_oj_f(2,175)=0

       exch2_oj_f(3,175)=0

       exch2_oj_f(4,175)=0

       exch2_oj_f(1,176)=32

       exch2_oj_f(2,176)=0

       exch2_oj_f(2,16)=0

       exch2_oj_f(3,176)=34

       exch2_oj_f(4,176)=0

       exch2_oj_f(3,16)=0

       exch2_oj_f(1,17)=0

       exch2_oj_f(2,17)=0

       exch2_oj_f(3,17)=0

       exch2_oj_f(4,17)=34

       exch2_oj_f(1,18)=0

       exch2_oj_f(2,18)=0

       exch2_oj_f(3,18)=0

       exch2_oj_f(4,18)=0

       exch2_oj_f(1,19)=0

       exch2_oj_f(2,19)=0

       exch2_oj_f(1,20)=0

       exch2_oj_f(2,20)=0

       exch2_oj_f(3,20)=0

       exch2_oj_f(4,20)=34

       exch2_oj_f(1,21)=0

       exch2_oj_f(2,21)=0

       exch2_oj_f(3,21)=0

       exch2_oj_f(1,22)=0

       exch2_oj_f(2,22)=0

       exch2_oj_f(1,23)=0

       exch2_oj_f(2,23)=0

       exch2_oj_f(3,23)=0

       exch2_oj_f(4,23)=34

       exch2_oj_f(1,24)=0

       exch2_oj_f(2,24)=0

       exch2_oj_f(3,24)=0

       exch2_oj_f(4,24)=0

       exch2_oj_f(1,25)=0

       exch2_oj_f(2,25)=0

       exch2_oj_f(3,25)=0

       exch2_oj_f(1,26)=0

       exch2_oj_f(2,26)=0

       exch2_oj_f(3,26)=0

       exch2_oj_f(1,1)=0

       exch2_oj_f(4,26)=0

       exch2_oj_f(1,27)=32

       exch2_oj_f(2,27)=32

       exch2_oj_f(3,27)=0

       exch2_oj_f(4,27)=0

       exch2_oj_f(5,27)=34

       exch2_oj_f(1,28)=32

       exch2_oj_f(2,28)=32

       exch2_oj_f(2,1)=-32

       exch2_oj_f(3,28)=