INTEGER soNb
soNb = exch2_opposingSend(tgNb,tgTile)
e2_oi1 = exch2_oi(soNb,soTile)
e2_oj1 = exch2_oj(soNb,soTile)
e2_pij(i) = exch2_pij(i,soNb,soTile)