1module mpiuni 2 use, intrinsic :: ISO_C_binding 3#include <petsc/mpiuni/mpif.h> 4 integer :: MPI_IN_PLACE 5#if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES) 6!DEC$ ATTRIBUTES DLLEXPORT::MPI_IN_PLACE 7#endif 8end module mpiuni 9