& mpiTypeXFaceBlock_xy_r4, mpiTypeXFaceBlock_xy_r8,
INTEGER mpiTypeXFaceBlock_xy_r4
& mpiTypeXFaceBlock_xy_r4, mpiRC)
CALL MPI_TYPE_COMMIT( mpiTypeXFaceBlock_xy_r4, mpiRC)
& mpiTypeXFaceBlock_xy_r4,