376 |
C x-face exchanges for xyz real*4 data |
C x-face exchanges for xyz real*4 data |
377 |
elCount = myByHi(I)-myByLo(I)+1 |
elCount = myByHi(I)-myByLo(I)+1 |
378 |
elLen = 1 |
elLen = 1 |
379 |
arrElSep = (sNx+OLx*2)*(sNy+OLy*2)*Nz*nSx |
arrElSep = (sNx+OLx*2)*(sNy+OLy*2)*Nr*nSx |
380 |
arrElSize = 4 |
arrElSize = 4 |
381 |
elStride = arrElSep*arrElSize |
elStride = arrElSep*arrElSize |
382 |
CALL MPI_TYPE_HVECTOR(elCount,elLen,elStride,mpiTypeXFaceBlock_xyz_r4, |
CALL MPI_TYPE_HVECTOR(elCount,elLen,elStride,mpiTypeXFaceBlock_xyz_r4, |
466 |
C y-face exchages for xyz real*4 data |
C y-face exchages for xyz real*4 data |
467 |
elCount = myBxHi(I)-myBxLo(I)+1 |
elCount = myBxHi(I)-myBxLo(I)+1 |
468 |
elLen = 1 |
elLen = 1 |
469 |
arrElSep = (sNx+OLx*2)*(sNy+OLy*2)*Nz |
arrElSep = (sNx+OLx*2)*(sNy+OLy*2)*Nr |
470 |
arrElSize = 4 |
arrElSize = 4 |
471 |
elStride = arrElSep*arrElSize |
elStride = arrElSep*arrElSize |
472 |
CALL MPI_TYPE_HVECTOR(elCount,elLen,elStride,mpiTypeYFaceBlock_xyz_r4, |
CALL MPI_TYPE_HVECTOR(elCount,elLen,elStride,mpiTypeYFaceBlock_xyz_r4, |