1 #include <stdio.h> 2 #include <mpi.h> main()3main() 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