xref: /petsc/src/sys/mpiuni/ftn-src/somempifort.F90 (revision 6dd63270497ad23dcf16ae500a87ff2b2a0b7474)
1*6dd63270SBarry Smith!
2*6dd63270SBarry Smith!
3*6dd63270SBarry Smith      subroutine MPIUNISetModuleBlock()
4*6dd63270SBarry Smith      use mpiuni
5*6dd63270SBarry Smith      implicit none
6*6dd63270SBarry Smith      call MPIUNISetFortranBasePointers(MPI_IN_PLACE)
7*6dd63270SBarry Smith      end
8