thId = (J-1)*nTx+I
myBxLo(thId) = bxLo
myBxHi(thId) = bxHi
myByLo(thId) = byLo
myByHi(thId) = byHi
DO thId=1,nThreads
CALL INI_COMMUNICATION_PATTERNS( thId )
INTEGER thId