|
Packit Service |
a1973e |
/**
|
|
Packit Service |
a1973e |
* @author Vince Weaver
|
|
Packit Service |
a1973e |
*/
|
|
Packit Service |
a1973e |
|
|
Packit Service |
a1973e |
#include <stdio.h>
|
|
Packit Service |
a1973e |
#include <stdlib.h>
|
|
Packit Service |
a1973e |
#include <string.h>
|
|
Packit Service |
a1973e |
#include <unistd.h>
|
|
Packit Service |
a1973e |
|
|
Packit Service |
a1973e |
#include "papi.h"
|
|
Packit Service |
a1973e |
|
|
Packit Service |
a1973e |
#define MAX_EVENTS 128
|
|
Packit Service |
a1973e |
|
|
Packit Service |
a1973e |
char events[MAX_EVENTS][BUFSIZ];
|
|
Packit Service |
a1973e |
char units[MAX_EVENTS][BUFSIZ];
|
|
Packit Service |
a1973e |
int data_type[MAX_EVENTS];
|
|
Packit Service |
a1973e |
char filenames[MAX_EVENTS][BUFSIZ];
|
|
Packit Service |
a1973e |
|
|
Packit Service |
a1973e |
FILE *fff[MAX_EVENTS];
|
|
Packit Service |
a1973e |
|
|
Packit Service |
a1973e |
static int num_events=0;
|
|
Packit Service |
a1973e |
|
|
Packit Service |
a1973e |
int main (int argc, char **argv)
|
|
Packit Service |
a1973e |
{
|
|
Packit Service |
a1973e |
|
|
Packit Service |
a1973e |
int retval,cid,rapl_cid=-1,numcmp;
|
|
Packit Service |
a1973e |
int EventSet = PAPI_NULL;
|
|
Packit Service |
a1973e |
long long values[MAX_EVENTS];
|
|
Packit Service |
a1973e |
int i,code,enum_retval;
|
|
Packit Service |
a1973e |
PAPI_event_info_t evinfo;
|
|
Packit Service |
a1973e |
const PAPI_component_info_t *cmpinfo = NULL;
|
|
Packit Service |
a1973e |
long long start_time,before_time,after_time;
|
|
Packit Service |
a1973e |
double elapsed_time,total_time;
|
|
Packit Service |
a1973e |
char event_name[BUFSIZ];
|
|
Packit Service |
a1973e |
|
|
Packit Service |
a1973e |
/* PAPI Initialization */
|
|
Packit Service |
a1973e |
retval = PAPI_library_init( PAPI_VER_CURRENT );
|
|
Packit Service |
a1973e |
if ( retval != PAPI_VER_CURRENT ) {
|
|
Packit Service |
a1973e |
fprintf(stderr,"PAPI_library_init failed\n");
|
|
Packit Service |
a1973e |
exit(1);
|
|
Packit Service |
a1973e |
}
|
|
Packit Service |
a1973e |
|
|
Packit Service |
a1973e |
numcmp = PAPI_num_components();
|
|
Packit Service |
a1973e |
|
|
Packit Service |
a1973e |
for(cid=0; cid
|
|
Packit Service |
a1973e |
|
|
Packit Service |
a1973e |
if ( (cmpinfo = PAPI_get_component_info(cid)) == NULL) {
|
|
Packit Service |
a1973e |
fprintf(stderr,"PAPI_get_component_info failed\n");
|
|
Packit Service |
a1973e |
exit(1);
|
|
Packit Service |
a1973e |
}
|
|
Packit Service |
a1973e |
|
|
Packit Service |
a1973e |
if (strstr(cmpinfo->name,"rapl")) {
|
|
Packit Service |
a1973e |
rapl_cid=cid;
|
|
Packit Service |
a1973e |
printf("Found rapl component at cid %d\n", rapl_cid);
|
|
Packit Service |
a1973e |
|
|
Packit Service |
a1973e |
if (cmpinfo->disabled) {
|
|
Packit Service |
a1973e |
fprintf(stderr,"No rapl events found: %s\n",
|
|
Packit Service |
a1973e |
cmpinfo->disabled_reason);
|
|
Packit Service |
a1973e |
exit(1);
|
|
Packit Service |
a1973e |
}
|
|
Packit Service |
a1973e |
break;
|
|
Packit Service |
a1973e |
}
|
|
Packit Service |
a1973e |
}
|
|
Packit Service |
a1973e |
|
|
Packit Service |
a1973e |
/* Component not found */
|
|
Packit Service |
a1973e |
if (cid==numcmp) {
|
|
Packit Service |
a1973e |
fprintf(stderr,"No rapl component found\n");
|
|
Packit Service |
a1973e |
exit(1);
|
|
Packit Service |
a1973e |
}
|
|
Packit Service |
a1973e |
|
|
Packit Service |
a1973e |
/* Find Events */
|
|
Packit Service |
a1973e |
code = PAPI_NATIVE_MASK;
|
|
Packit Service |
a1973e |
|
|
Packit Service |
a1973e |
enum_retval = PAPI_enum_cmp_event( &code, PAPI_ENUM_FIRST, cid );
|
|
Packit Service |
a1973e |
|
|
Packit Service |
a1973e |
while ( enum_retval == PAPI_OK ) {
|
|
Packit Service |
a1973e |
|
|
Packit Service |
a1973e |
retval = PAPI_event_code_to_name( code, event_name );
|
|
Packit Service |
a1973e |
if ( retval != PAPI_OK ) {
|
|
Packit Service |
a1973e |
printf("Error translating %#x\n",code);
|
|
Packit Service |
a1973e |
exit(1);
|
|
Packit Service |
a1973e |
}
|
|
Packit Service |
a1973e |
|
|
Packit Service |
a1973e |
printf("Found: %s\n",event_name);
|
|
Packit Service |
a1973e |
strncpy(events[num_events],event_name,BUFSIZ);
|
|
Packit Service |
a1973e |
sprintf(filenames[num_events],"results.%s",event_name);
|
|
Packit Service |
a1973e |
|
|
Packit Service |
a1973e |
|
|
Packit Service |
a1973e |
/* Find additional event information: unit, data type */
|
|
Packit Service |
a1973e |
retval = PAPI_get_event_info(code, &evinfo);
|
|
Packit Service |
a1973e |
if (retval != PAPI_OK) {
|
|
Packit Service |
a1973e |
printf("Error getting event info for %#x\n",code);
|
|
Packit Service |
a1973e |
exit(1);
|
|
Packit Service |
a1973e |
}
|
|
Packit Service |
a1973e |
|
|
Packit Service |
a1973e |
strncpy(units[num_events],evinfo.units,sizeof(units[0])-1);
|
|
Packit Service |
a1973e |
/* buffer must be null terminated to safely use strstr operation on it below */
|
|
Packit Service |
a1973e |
units[num_events][sizeof(units[0])-1] = '\0';
|
|
Packit Service |
a1973e |
|
|
Packit Service |
a1973e |
data_type[num_events] = evinfo.data_type;
|
|
Packit Service |
a1973e |
|
|
Packit Service |
a1973e |
num_events++;
|
|
Packit Service |
a1973e |
|
|
Packit Service |
a1973e |
if (num_events==MAX_EVENTS) {
|
|
Packit Service |
a1973e |
printf("Too many events! %d\n",num_events);
|
|
Packit Service |
a1973e |
exit(1);
|
|
Packit Service |
a1973e |
}
|
|
Packit Service |
a1973e |
|
|
Packit Service |
a1973e |
enum_retval = PAPI_enum_cmp_event( &code, PAPI_ENUM_EVENTS, cid );
|
|
Packit Service |
a1973e |
|
|
Packit Service |
a1973e |
}
|
|
Packit Service |
a1973e |
|
|
Packit Service |
a1973e |
|
|
Packit Service |
a1973e |
|
|
Packit Service |
a1973e |
if (num_events==0) {
|
|
Packit Service |
a1973e |
printf("Error! No RAPL events found!\n");
|
|
Packit Service |
a1973e |
exit(1);
|
|
Packit Service |
a1973e |
}
|
|
Packit Service |
a1973e |
|
|
Packit Service |
a1973e |
/* Open output files */
|
|
Packit Service |
a1973e |
for(i=0;i
|
|
Packit Service |
a1973e |
fff[i]=fopen(filenames[i],"w");
|
|
Packit Service |
a1973e |
if (fff[i]==NULL) {
|
|
Packit Service |
a1973e |
fprintf(stderr,"Could not open %s\n",filenames[i]);
|
|
Packit Service |
a1973e |
exit(1);
|
|
Packit Service |
a1973e |
}
|
|
Packit Service |
a1973e |
}
|
|
Packit Service |
a1973e |
|
|
Packit Service |
a1973e |
|
|
Packit Service |
a1973e |
/* Create EventSet */
|
|
Packit Service |
a1973e |
retval = PAPI_create_eventset( &EventSet );
|
|
Packit Service |
a1973e |
if (retval != PAPI_OK) {
|
|
Packit Service |
a1973e |
fprintf(stderr,"Error creating eventset!\n");
|
|
Packit Service |
a1973e |
}
|
|
Packit Service |
a1973e |
|
|
Packit Service |
a1973e |
for(i=0;i
|
|
Packit Service |
a1973e |
|
|
Packit Service |
a1973e |
retval = PAPI_add_named_event( EventSet, events[i] );
|
|
Packit Service |
a1973e |
if (retval != PAPI_OK) {
|
|
Packit Service |
a1973e |
fprintf(stderr,"Error adding event %s\n",events[i]);
|
|
Packit Service |
a1973e |
}
|
|
Packit Service |
a1973e |
}
|
|
Packit Service |
a1973e |
|
|
Packit Service |
a1973e |
|
|
Packit Service |
a1973e |
|
|
Packit Service |
a1973e |
start_time=PAPI_get_real_nsec();
|
|
Packit Service |
a1973e |
|
|
Packit Service |
a1973e |
while(1) {
|
|
Packit Service |
a1973e |
|
|
Packit Service |
a1973e |
/* Start Counting */
|
|
Packit Service |
a1973e |
before_time=PAPI_get_real_nsec();
|
|
Packit Service |
a1973e |
retval = PAPI_start( EventSet);
|
|
Packit Service |
a1973e |
if (retval != PAPI_OK) {
|
|
Packit Service |
a1973e |
fprintf(stderr,"PAPI_start() failed\n");
|
|
Packit Service |
a1973e |
exit(1);
|
|
Packit Service |
a1973e |
}
|
|
Packit Service |
a1973e |
|
|
Packit Service |
a1973e |
|
|
Packit Service |
a1973e |
usleep(100000);
|
|
Packit Service |
a1973e |
|
|
Packit Service |
a1973e |
/* Stop Counting */
|
|
Packit Service |
a1973e |
after_time=PAPI_get_real_nsec();
|
|
Packit Service |
a1973e |
retval = PAPI_stop( EventSet, values);
|
|
Packit Service |
a1973e |
if (retval != PAPI_OK) {
|
|
Packit Service |
a1973e |
fprintf(stderr, "PAPI_start() failed\n");
|
|
Packit Service |
a1973e |
}
|
|
Packit Service |
a1973e |
|
|
Packit Service |
a1973e |
total_time=((double)(after_time-start_time))/1.0e9;
|
|
Packit Service |
a1973e |
elapsed_time=((double)(after_time-before_time))/1.0e9;
|
|
Packit Service |
a1973e |
|
|
Packit Service |
a1973e |
for(i=0;i
|
|
Packit Service |
a1973e |
|
|
Packit Service |
a1973e |
|
|
Packit Service |
a1973e |
if (!strstr(events[i],"ENERGY")) {
|
|
Packit Service |
a1973e |
|
|
Packit Service |
a1973e |
/* Scaled fixed value */
|
|
Packit Service |
a1973e |
if (data_type[i] == PAPI_DATATYPE_FP64) {
|
|
Packit Service |
a1973e |
|
|
Packit Service |
a1973e |
union {
|
|
Packit Service |
a1973e |
long long ll;
|
|
Packit Service |
a1973e |
double fp;
|
|
Packit Service |
a1973e |
} result;
|
|
Packit Service |
a1973e |
|
|
Packit Service |
a1973e |
result.ll=values[i];
|
|
Packit Service |
a1973e |
|
|
Packit Service |
a1973e |
|
|
Packit Service |
a1973e |
fprintf(fff[i],"%.4f %.3f (* %s in (%s) *)\n",
|
|
Packit Service |
a1973e |
total_time,
|
|
Packit Service |
a1973e |
result.fp,
|
|
Packit Service |
a1973e |
events[i], units[i] );
|
|
Packit Service |
a1973e |
|
|
Packit Service |
a1973e |
}
|
|
Packit Service |
a1973e |
/* Fixed value counts */
|
|
Packit Service |
a1973e |
else if (data_type[i] == PAPI_DATATYPE_UINT64) {
|
|
Packit Service |
a1973e |
|
|
Packit Service |
a1973e |
fprintf(fff[i],"%.4f %lld (* %s *)\n",
|
|
Packit Service |
a1973e |
total_time,
|
|
Packit Service |
a1973e |
values[i],
|
|
Packit Service |
a1973e |
events[i] );
|
|
Packit Service |
a1973e |
|
|
Packit Service |
a1973e |
}
|
|
Packit Service |
a1973e |
}
|
|
Packit Service |
a1973e |
|
|
Packit Service |
a1973e |
/* Energy measurement counts */
|
|
Packit Service |
a1973e |
else if (strstr(events[i],"ENERGY_CNT")) {
|
|
Packit Service |
a1973e |
|
|
Packit Service |
a1973e |
fprintf(fff[i],"%.4f %lld (* %s *)\n",
|
|
Packit Service |
a1973e |
total_time,
|
|
Packit Service |
a1973e |
values[i],
|
|
Packit Service |
a1973e |
events[i] );
|
|
Packit Service |
a1973e |
|
|
Packit Service |
a1973e |
}
|
|
Packit Service |
a1973e |
|
|
Packit Service |
a1973e |
/* Scaled energy measurements */
|
|
Packit Service |
a1973e |
else {
|
|
Packit Service |
a1973e |
fprintf(fff[i],"%.4f %.3f %s %.3f %s (* Average Power for %s *)\n",
|
|
Packit Service |
a1973e |
total_time,
|
|
Packit Service |
a1973e |
((double)values[i]/1.0e9), "J",
|
|
Packit Service |
a1973e |
((double)values[i]/1.0e9)/elapsed_time, "W",
|
|
Packit Service |
a1973e |
events[i] );
|
|
Packit Service |
a1973e |
};
|
|
Packit Service |
a1973e |
|
|
Packit Service |
a1973e |
fflush(fff[i]);
|
|
Packit Service |
a1973e |
}
|
|
Packit Service |
a1973e |
}
|
|
Packit Service |
a1973e |
|
|
Packit Service |
a1973e |
return 0;
|
|
Packit Service |
a1973e |
}
|
|
Packit Service |
a1973e |
|