sw/lib/mpi/mpi_internal.h
// send a flit to all other processes
send a flit to all other processes
send a flit to all other processes
static inline void broadcast_flit(MPI_Comm comm, flit_t f)
{
    int n = comm->group.size;
    int i;
    if (comm==MPI_COMM_WORLD) {
        for (i=0; i<n; i++)
            if (i!=mpi_comm_world.rank)
                fgmp_send_flit(i, f);
    } else {
        for (i=0; i<n; i++)
            if (i!=comm->rank)
                fgmp_send_flit(comm->group.cids[i], f);
    }
}
static inline void broadcast_flit ( MPI_Comm comm , flit_t f ) { int n = comm -> group . size ; int i ; if ( comm == MPI_COMM_WORLD ) { for ( i = 0 ; i < n ; i ++ ) if ( i != mpi_comm_world . rank ) fgmp_send_flit ( i , f ) ; } else { for ( i = 0 ; i < n ; i ++ ) if ( i != comm -> rank ) fgmp_send_flit ( comm -> group . cids [ i ] , f ) ; } }
send a flit to all other processes
send a flit to all other processes