glpid.c

/*
 * Copyright (C) by Argonne National Laboratory
 *     See COPYRIGHT in top-level directory
 */

#include <stdio.h>
#include "mpi.h"
#include "mpiimpl.h"

int main(int argc, char *argv[])
{
    MPIR_Group group, *group_ptr = &group;
    int i;

    MPI_Init(&argc, &argv);

    /* Setup a sample group */
    group.handle = 1;
    group.ref_count = 1;
    group.size = 4;
    group.rank = 0;
    group.idx_of_first_lpid = -1;
    group.lrank_to_lpid = (MPII_Group_pmap_t *)
        MPL_malloc(group.size * sizeof(MPII_Group_pmap_t), MPL_MEM_OTHER);
    for (i = 0; i < group.size; i++) {
        group.lrank_to_lpid[i].lrank = i;
        group.lrank_to_lpid[i].lpid = group.size - i - 1;
        group.lrank_to_lpid[i].next_lpid = -1;
        group.lrank_to_lpid[i].flag = 0;
    }

    /* Set up the group lpid list */
    MPII_Group_setup_lpid_list(group_ptr);

    /* Print the group structure */
    printf("Index of first lpid = %d\n", group.idx_of_first_lpid);
    for (i = 0; i < group.size; i++) {
        printf("lrank_to_lpid[%d].next_lpid = %d, .lpid = %d\n",
               i, group.lrank_to_lpid[i].next_lpid, group.lrank_to_lpid[i].lpid);
    }

    MPI_Finalize();
    return 0;
}