multiplex.c File Reference

Include dependency graph for multiplex.c:

Go to the source code of this file.

Macros
#define	ERROR_RETURN(retval)   { fprintf(stderr, "Error %d %s:line %d: \n", retval,__FILE__,__LINE__); exit(retval); }
#define	NUM_ITERS   10000000
#define	MAX_TO_ADD   6

Functions
void	do_flops (int n)
int	multiplex (void)
int	main (int argc, char **argv)

Variables
double	c = 0.11

Macro Definition Documentation

ERROR_RETURN

#define ERROR_RETURN

(

retval

)

{ fprintf(stderr, "Error %d %s:line %d: \n", retval,__FILE__,__LINE__); exit(retval); }

Definition at line 17 of file multiplex.c.

MAX_TO_ADD

#define MAX_TO_ADD   6

Definition at line 20 of file multiplex.c.

NUM_ITERS

#define NUM_ITERS   10000000

Definition at line 19 of file multiplex.c.

Function Documentation

do_flops()

void do_flops

(

int

n

)

Definition at line 23 of file multiplex.c.

{
    int i;
    double a = 0.5;
    double b = 6.2;

    for (i=0; i < n; i++)
        c += a * b;
    return;
}

main()

int main	(	int	argc,
		char **	argv
	)

Definition at line 142 of file multiplex.c.

{

   printf("Using %d iterations\n\n", NUM_ITERS);
   printf("Does PAPI_multiplex_init() handle lots of events?\n");
   multiplex();
   exit(0);
}

Here is the call graph for this function:

multiplex()

int multiplex

(

void

)

Definition at line 35 of file multiplex.c.

{
   int retval, i, EventSet = PAPI_NULL, j = 0;
   long long *values;
   PAPI_event_info_t pset;
   int events[MAX_TO_ADD], number;

   /* Initialize the library */
   retval = PAPI_library_init(PAPI_VER_CURRENT);
   if (retval != PAPI_VER_CURRENT)
   {
      printf("Library initialization error! \n");
      exit(1);
   }

   /* initialize multiplex support */
   retval = PAPI_multiplex_init();
   if (retval != PAPI_OK)
      ERROR_RETURN(retval);

   retval = PAPI_create_eventset(&EventSet);
   if (retval != PAPI_OK)
      ERROR_RETURN(retval);

   /* convert the event set to a multiplex event set */
   retval = PAPI_set_multiplex(EventSet);
   if (retval != PAPI_OK)
      ERROR_RETURN(retval);
/*
   retval = PAPI_add_event(EventSet, PAPI_TOT_INS);
   if ((retval != PAPI_OK) && (retval != PAPI_ECNFLCT))
      ERROR_RETURN(retval);
   printf("Adding %s\n", "PAPI_TOT_INS");
*/

   for (i = 0; i < PAPI_MAX_PRESET_EVENTS; i++) 
   {
      retval = PAPI_get_event_info(i | PAPI_PRESET_MASK, &pset);
      if (retval != PAPI_OK)
         ERROR_RETURN(retval);

      if ((pset.count) && (pset.event_code != PAPI_TOT_CYC)) 
      {
         printf("Adding %s\n", pset.symbol);

         retval = PAPI_add_event(EventSet, pset.event_code);
         if ((retval != PAPI_OK) && (retval != PAPI_ECNFLCT))
            ERROR_RETURN(retval);

         if (retval == PAPI_OK) 
            printf("Added %s\n", pset.symbol);
         else 
            printf("Could not add %s due to resource limitation.\n", 
                  pset.symbol);

         if (retval == PAPI_OK) 
         {
            if (++j >= MAX_TO_ADD)
                break;
         }
      }
   }

   values = (long long *) malloc(MAX_TO_ADD * sizeof(long long));
   if (values == NULL)
   {
      printf("Not enough memory available. \n");
      exit(1);
   }

   if ((retval=PAPI_start(EventSet)) != PAPI_OK)
      ERROR_RETURN(retval);

   do_flops(NUM_ITERS);

   retval = PAPI_stop(EventSet, values);
   if (retval != PAPI_OK)
      ERROR_RETURN(retval);

   /* get the number of events in the event set */
   number=MAX_TO_ADD;
   if ( (retval = PAPI_list_events(EventSet, events, &number)) != PAPI_OK)
      ERROR_RETURN(retval);

   /* print the read result */
   for (i = 0; i < MAX_TO_ADD; i++) 
   {
      retval = PAPI_get_event_info(events[i], &pset);
      if (retval != PAPI_OK)
         ERROR_RETURN(retval);
      printf("Event name: %s  value: %lld \n", pset.symbol, values[i]);
   }

   retval = PAPI_cleanup_eventset(EventSet); 
   if (retval != PAPI_OK)
      ERROR_RETURN(retval);

   retval = PAPI_destroy_eventset(&EventSet);
   if (retval != PAPI_OK)
      ERROR_RETURN(retval);
   
   /* free the resources used by PAPI */
   PAPI_shutdown();

   return (0);
}

Here is the call graph for this function:

Here is the caller graph for this function:

Variable Documentation

c

double c = 0.11

Definition at line 22 of file multiplex.c.