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