1: !
  2: !     Utility routine used to set MPIUNI commonblock
  3: !
  4:       subroutine MPIUNISetCommonBlock()
  5:       implicit none
  6:       include 'mpif.h'
  7:       call MPIUNISetFortranBasePointers(MPI_IN_PLACE)
  8:       return
  9:       end