INTEGER tNx, tNy, global_nTx
global_nTx = xSize/sNx
& + ( tBy + (j-1)*jGjLoc )*global_nTx
& +( k-kLo + (irecord-1)*nNz )*global_nTx*ySize
& + ( k-1 + (irecord-1)*nNz )*global_nTx*ySize