program advection use mpi implicit none integer::myid,ierror,part,nproc,points,part,ierror,istart real,allocatable,dimension(:,:)::phi real,allocatable,dimension(:)