tools/mpi2_test.c

   1 #include <stdio.h>
   2 #include <mpi.h>
   3 main()
   4 {
   5    int y ;
   6    MPI_Comm x ;
   7    y = 1 ;
   8 #if 1
   9    x = MPI_Comm_f2c( y ) ;
  10    y = MPI_Comm_c2f( x ) ;
  11 #endif
  12    fprintf(stderr,"y %d \n",y) ;
  13 }