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