int EventCode, EventSet = PAPI_NULL;
char EventCodeStr[PAPI_MAX_STR_LEN];
char EventDescr[PAPI_MAX_STR_LEN];
/* Convert to integer */
if (PAPI_event_name_to_code("PAPI_TOT_INS",&EventCode) != PAPI_OK)
handle_error(1);
/* Query Total Instructions Executed to our EventSet */
if (PAPI_query(EventCode) != PAPI_OK)
handle_error(1);
/* Describe event from EventCode */
if (PAPI_describe_event(EventCodeStr,&EventCode,EventDescr) != PAPI_OK)
handle_error(1);
/* Create the EventSet */
if (PAPI_create_eventset(&EventSet) != PAPI_OK)
handle_error(1);
/* Add Total Instructions Executed to our EventSet */
if (PAPI_add_event(&EventSet, EventCode) != PAPI_OK)
handle_error(1);