MPI_Init">int MPI_Init( int *argc, char ***argv ) 
{ 
    int procid, returnVal; 
    returnVal = PMPI_Init( argc, argv ); 
    MPE_Initlog(); 
    MPI_Comm_rank( MPI_COMM_WORLD, &procid ); 
    if (procid == 0) { 
	MPE_Describe_state( S_SEND_EVENT, E_SEND_EVENT, 
			   "Send", "blue:gray3" ); 
	MPE_Describe_state( S_RECV_EVENT, E_RECV_EVENT, 
			   "Recv", "green:light_gray" ); 
        ... 
    } 
    return returnVal; 
}