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