!
!
subroutine MPIUNISetModuleBlock()
  use mpiuni
  implicit none
  call MPIUNISetFortranBasePointers(MPI_IN_PLACE)
end subroutine MPIUNISetModuleBlock