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