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