void xfiSetComm (MPI_Comm a_comm)
MPI_Comm xfiGetComm ()
SUBROUTINE XF_SET_COM_PAR (a_comm, error) INTEGER, INTENT(IN) :: a_comm INTEGER, INTENT(OUT) :: error SUBROUTINE XF_GET_COM_PAR (a_comm, error) INTEGER, INTENT(IN) :: a_comm INTEGER, INTENT(OUT) :: error