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