tjStride = 1
O tiStride, tjStride,
INTEGER tiStride, tjStride
tjStride =-1
tJlo = tJlo-tjStride*(eWdth-1)
tJhi = tJhi+tjStride*(eWdth-1)
tJlo = tJlo+tjStride
tJhi = tJhi-tjStride
tJlo1 = tJlo+tjStride
tJhi1 = tJhi-tjStride
tJlo1 = tJlo-tjStride*(eWdth-1)
tJhi1 = tJhi+tjStride*(eWdth-1)
tjStride=1
tjStride=-1