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