1 #include <stdio.h>
2 #include <mpi.h>
main()3 main()
4 {
5    MPI_Comm ccomm;
6    int fcomm;
7    extern void *MPIR_ToPointer();
8    extern int   MPIR_FromPointer();
9    extern void *MPIR_RmPointer();
10 
11    if (sizeof(int) < sizeof(int*))
12    {
13       fcomm = MPIR_FromPointer(MPI_COMM_WORLD);
14       ccomm = (MPI_Comm) MPIR_ToPointer(fcomm);
15       if (ccomm == MPI_COMM_WORLD)
16          printf("Set TRANSCOMM = -DUseMpich -DPOINTER_64_BITS=1\n");
17       else
18          printf("Do _NOT_ set TRANSCOMM = -DUseMpich -DPOINTER_64_BITS=1\n");
19    }
20    else
21    {
22       printf("Compile and run xtc_CsameF77 for correct TRANSCOMM setting.\n");
23       printf("If xtc_CsameF77 fails, leave TRANSCOMM blank.\n");
24    }
25 }
26