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