IF ( e2_pij(1) .EQ. -1 ) THEN
IF ( e2_pij(3) .EQ. -1 ) THEN
IF ( e2_pij(2) .EQ. -1 ) THEN
IF ( e2_pij(4) .EQ. -1 ) THEN
IF ( e2_pij(1).EQ.-1 .OR. e2_pij(3).EQ.-1 ) tIlo1 = tIlo1+1
IF ( e2_pij(2).EQ.-1 .OR. e2_pij(4).EQ.-1 ) tJlo2 = tJlo2+1
IF ( e2_pij(1).EQ.-1 .OR. e2_pij(3).EQ.-1 ) THEN
IF ( e2_pij(2).EQ.-1 .OR. e2_pij(4).EQ.-1 ) THEN
INTEGER i, e2_pij(4)
e2_pij(i) = exch2_pij(i,soNb,soTile)