tIlo1 = tIlo
tIlo1 = tIlo-tiStride*(eWdth-1)
tIlo1 = tIlo+tiStride
O tIlo1, tIhi1, tJlo1, tJhi1,
tIlo2 = tIlo1
IF ( e2_pij(1).EQ.-1 .OR. e2_pij(3).EQ.-1 ) tIlo1 = tIlo1+1
tIlo1 = tIlo+1
tIlo1 = tIlo1+1
INTEGER tIlo1, tIhi1, tJlo1, tJhi1
tIlo1 = 1-eWdth