thePx = myPx
pxW = myPx
pxW = myPx-1
pxE = myPx
pxE = myPx+1
myPx = mpiPx+1
myPx = 1
& myPx, myPy, myXGlobalLo, myYGlobalLo, nThreads,
INTEGER myPx