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