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
1.4.6-NO