1 module mpi 2 3 #ifdef MPI 4 include "mpif.h" 5 #else 6 integer :: MPI_COMM_WORLD 7 #endif 8 9 end module mpi 10