16dd63270SBarry Smith! 26dd63270SBarry Smith! 36dd63270SBarry Smith subroutine MPIUNISetModuleBlock() 46dd63270SBarry Smith use mpiuni 56dd63270SBarry Smith implicit none 66dd63270SBarry Smith call MPIUNISetFortranBasePointers(MPI_IN_PLACE) 7*37cc6f30SBarry Smith end subroutine MPIUNISetModuleBlock 8