root/orte/test/mpi/mpi_info.c

DEFINITIONS

1. main

   1 /* -*- C -*-
   2  *
   3  * $HEADER$
   4  *
   5  * The most basic of MPI applications
   6  */
   7 
   8 #include <stdio.h>
   9 #include "mpi.h"
  10 
  11 int main(int argc, char* argv[])
  12 {
  13     char value[MPI_MAX_INFO_VAL];
  14     int flag;
  15     char *keys[] = {
  16         "command",
  17         "argv",
  18         "maxprocs",
  19         "soft",
  20         "host",
  21         "arch",
  22         "wdir",
  23         "thread_level",
  24         "ompi_num_apps",
  25         "ompi_first_rank",
  26         "ompi_np",
  27         "ompi_positioned_file_dir"
  28     };
  29     int i, nk;
  30 
  31     MPI_Init(&argc, &argv);
  32 
  33     nk = sizeof(keys) / sizeof(char*);
  34 
  35     for (i=0; i < nk; i++) {
  36         MPI_Info_get(MPI_INFO_ENV, keys[i], MPI_MAX_INFO_VAL,
  37                      value, &flag);
  38         fprintf(stderr, "%s: %s\n", keys[i], (flag) ? value : "Not found");
  39     }
  40 
  41     MPI_Finalize();
  42     return 0;
  43 }