distribute Subroutine

subroutine distribute(obj, mpid)

Arguments

Type	Intent	Optional	Attributes		Name
type(FEMDomain_),	intent(inout)			::	obj
type(MPI_),	intent(inout)			::	mpid