1: !
  2: !
  3:       subroutine MPIUNISetModuleBlock()
  4:       use mpiuni
  5:       implicit none
  6:       call MPIUNISetFortranBasePointers(MPI_IN_PLACE)
  7:       return
  8:       end