File: pernode.c

package info (click to toggle)
papi 5.7.0%2Bdfsg-2
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 9,856 kB
  • sloc: ansic: 93,265; fortran: 3,338; xml: 2,460; makefile: 815; sh: 290
file content (123 lines) | stat: -rw-r--r-- 3,080 bytes parent folder | download | duplicates (10)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
/* This file performs the following test: 

   - make an event set with PAPI_TOT_INS and PAPI_TOT_CYC.
   - enable per node counting
   - enable full domain counting
   - sleeps for 5 seconds
   - print the results
*/

#include <stdlib.h>
#include <stdio.h>
#include <unistd.h>
#include <errno.h>
#include <sys/types.h>
#include <memory.h>
#include <malloc.h>
#include "papi_test.h"

int
main(  )
{
	int ncpu, nctr, i, actual_domain;
	int retval;
	int EventSet = PAPI_NULL;
	long long *values;
	long long elapsed_us, elapsed_cyc;
	PAPI_option_t options;

	retval = PAPI_library_init( PAPI_VER_CURRENT );
	if ( retval != PAPI_VER_CURRENT ) {
		fprintf( stderr, "Library mismatch: code %d, library %d\n", retval,
				 PAPI_VER_CURRENT );
		exit( 1 );
	}

	if ( PAPI_create_eventset( &EventSet ) != PAPI_OK )
		exit( 1 );

	/* Set the domain as high as it will go. */

	options.domain.eventset = EventSet;
	options.domain.domain = PAPI_DOM_ALL;
	retval = PAPI_set_opt( PAPI_DOMAIN, &options );
	if ( retval != PAPI_OK )
		exit( 1 );
	actual_domain = options.domain.domain;

	/* This should only happen to an empty eventset */

	options.granularity.eventset = EventSet;
	options.granularity.granularity = PAPI_GRN_SYS_CPU;
	retval = PAPI_set_opt( PAPI_GRANUL, &options );
	if ( retval != PAPI_OK )
		exit( 1 );

	/* Malloc the output array */

	ncpu = PAPI_get_opt( PAPI_MAX_CPUS, NULL );
	nctr = PAPI_get_opt( PAPI_MAX_HWCTRS, NULL );
	values = ( long long * ) malloc( ncpu * nctr * sizeof ( long long ) );
	memset( values, 0x0, ( ncpu * nctr * sizeof ( long long ) ) );

	/* Add the counters */

	if ( PAPI_add_event( EventSet, PAPI_TOT_CYC ) != PAPI_OK )
		exit( 1 );

	if ( PAPI_add_event( EventSet, PAPI_TOT_INS ) != PAPI_OK )
		exit( 1 );

	elapsed_us = PAPI_get_real_usec(  );

	elapsed_cyc = PAPI_get_real_cyc(  );

	retval = PAPI_start( EventSet );
	if ( retval != PAPI_OK )
		exit( 1 );

	sleep( 5 );

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

	elapsed_us = PAPI_get_real_usec(  ) - elapsed_us;

	elapsed_cyc = PAPI_get_real_cyc(  ) - elapsed_cyc;

	printf( "Test case: per node\n" );
	printf( "-------------------\n\n" );

	printf( "This machine has %d cpus, each with %d counters.\n", ncpu, nctr );
	printf( "Test case asked for: PAPI_DOM_ALL\n" );
	printf( "Test case got: " );
	if ( actual_domain & PAPI_DOM_USER )
		printf( "PAPI_DOM_USER " );
	if ( actual_domain & PAPI_DOM_KERNEL )
		printf( "PAPI_DOM_KERNEL " );
	if ( actual_domain & PAPI_DOM_OTHER )
		printf( "PAPI_DOM_OTHER " );
	printf( "\n" );

	for ( i = 0; i < ncpu; i++ ) {
		printf( "CPU %d\n", i );
		printf( "PAPI_TOT_CYC: \t%lld\n", values[0 + i * nctr] );
		printf( "PAPI_TOT_INS: \t%lld\n", values[1 + i * nctr] );
	}

	printf
		( "\n-------------------------------------------------------------------------\n" );

	printf( "Real usec   : \t%lld\n", elapsed_us );
	printf( "Real cycles : \t%lld\n", elapsed_cyc );

	printf
		( "-------------------------------------------------------------------------\n" );

	free( values );

	PAPI_shutdown(  );

	exit( 0 );
}