& mpiTypeYFaceBlock_xy_r4, mpiTypeYFaceBlock_xy_r8,
INTEGER mpiTypeYFaceBlock_xy_r8
& mpiTypeYFaceBlock_xy_r8, mpiRC)
CALL MPI_TYPE_COMMIT( mpiTypeYFaceBlock_xy_r8, mpiRC)
& mpiTypeYFaceBlock_xy_r8,