Index: /mpich2/trunk/src/mpe2/src/wrappers/src/mpe_proff.c
===================================================================
--- /mpich2/trunk/src/mpe2/src/wrappers/src/mpe_proff.c (revision 4813)
+++ /mpich2/trunk/src/mpe2/src/wrappers/src/mpe_proff.c (revision 4879)
@@ -484,5 +484,4 @@
 void mper_fconsts_init( void )
 {
-    int  world_rank;
     int  use_mpih;
     /*
@@ -512,4 +511,7 @@
     }
 #endif
+/*
+{
+    int  world_rank;
     PMPI_Comm_rank( MPI_COMM_WORLD, &world_rank );
     if ( world_rank == 0 ) {
@@ -520,4 +522,6 @@
         printf( ".TRUE. = %d, .FALSE. = %d\n", MPER_F_TRUE, MPER_F_FALSE );
     }
+}
+*/
 }