Replace MPI_COMM_WORLD by PETSC_COMM_WORLD

[bmxam]

Note : PETSC_COMM_WORLD can be accessed this way:

ptr = cglobal((:PETSC_COMM_WORLD, libpetsc), Int32)
value = unsafe_load(ptr)
unsafe_store!(ptr, new_value)