Simple2_Lib.c File Reference

Include dependency graph for Simple2_Lib.c:

Go to the source code of this file.

Functions
void	simple_init (void)
double	simple_compute (double x)
long long int	counter_accessor_function (void *param)
papi_handle_t	papi_sde_hook_list_events (papi_sde_fptr_struct_t *fptr_struct)

Variables
static double	comp_value
static long long int	total_iter_cnt
static long long int	low_wtrmrk
static long long int	high_wtrmrk
static papi_handle_t	handle
static const char *	ev_names [4]

Function Documentation

counter_accessor_function()

long long counter_accessor_function

(

void *

param

)

Definition at line 69 of file Simple2_Lib.c.

                                                  {
    long long ll;
    double *dbl_ptr = (double *)param;
 
    // Scale the variable by a factor of two. Real libraries will do meaningful work here.
    double value = *dbl_ptr * 2.0;
 
    // Copy the bits of the result in a long long int.
    (void)memcpy(&ll, &value, sizeof(double));
 
    return ll;
}

Here is the caller graph for this function:

papi_sde_hook_list_events()

papi_handle_t papi_sde_hook_list_events

(

papi_sde_fptr_struct_t *

fptr_struct

)

Definition at line 50 of file Simple2_Lib.c.

                                                                             {
    handle = fptr_struct->init("Simple2");
    fptr_struct->register_counter_cb(handle, ev_names[0], PAPI_SDE_RO|PAPI_SDE_INSTANT, PAPI_SDE_double, counter_accessor_function, &comp_value);
    fptr_struct->register_counter(handle, ev_names[1], PAPI_SDE_RO|PAPI_SDE_DELTA,   PAPI_SDE_long_long, &total_iter_cnt);
    fptr_struct->register_counter(handle, ev_names[2], PAPI_SDE_RO|PAPI_SDE_DELTA,   PAPI_SDE_long_long, &low_wtrmrk);
    fptr_struct->register_counter(handle, ev_names[3], PAPI_SDE_RO|PAPI_SDE_DELTA,   PAPI_SDE_long_long, &high_wtrmrk);
    fptr_struct->add_counter_to_group(handle, ev_names[2], "ANY_WATERMARK_REACHED", PAPI_SDE_SUM);
    fptr_struct->add_counter_to_group(handle, ev_names[3], "ANY_WATERMARK_REACHED", PAPI_SDE_SUM);
 
    fptr_struct->describe_counter(handle, ev_names[0], "Sum of values that are within the watermarks.");
    fptr_struct->describe_counter(handle, ev_names[1], "Total iterations executed by the library.");
    fptr_struct->describe_counter(handle, ev_names[2], "Number of times a value was below the low watermark.");
    fptr_struct->describe_counter(handle, ev_names[3], "Number of times a value was above the high watermark.");
    fptr_struct->describe_counter(handle, "ANY_WATERMARK_REACHED",  "Number of times a value was not between the two watermarks.");
 
    return handle;
}

Here is the call graph for this function:

simple_compute()

double simple_compute

(

double

x

)

Definition at line 84 of file Simple2_Lib.c.

                               {
    double sum = 0.0;
    int lcl_iter = 0;
 
    if( x > 1.0 )
        x = 1.0/x;
    if( x < 0.000001 )
        x += 0.3579;
 
    while( 1 ){
        double y,x2,x3,x4;
        lcl_iter++;
 
        // Compute a function with range [0:1] so we can iterate
        // multiple times without diverging or creating FP exceptions.
        x2 = x*x;
        x3 = x2*x;
        x4 = x2*x2;
        y = 42.53*x4 -67.0*x3 +25.0*x2 +x/2.15;
        y = y*y;
        if( y < 0.01 )
            y = 0.5-y;
 
        // Now set the next x to be the current y, so we can iterate again.
        x = y;
 
        // Add y to sum unconditionally
        sum += y;
 
        if( y < 0.1 ){
            low_wtrmrk++;
            continue;
        }
 
        if( y > 0.9 ){
            high_wtrmrk++;
            continue;
        }
 
        // Only add y to comp_value if y is between the low and high watermarks.
        comp_value += y;
 
        // If some condition is met, terminate the loop
        if( 0.61 < y && y < 0.69 )
            break;
    }
    total_iter_cnt += lcl_iter;
 
    return sum;
}

Here is the caller graph for this function:

simple_init()

void simple_init

(

void

)

Definition at line 27 of file Simple2_Lib.c.

                      {
 
    // Initialize library specific variables
    comp_value = 0.0;
    total_iter_cnt = 0;
    low_wtrmrk = 0;
    high_wtrmrk = 0;
 
    // Initialize PAPI SDEs
    handle = papi_sde_init("Simple2");
    papi_sde_register_counter_cb(handle, ev_names[0], PAPI_SDE_RO|PAPI_SDE_INSTANT, PAPI_SDE_double, counter_accessor_function, &comp_value);
    papi_sde_register_counter(handle, ev_names[1], PAPI_SDE_RO|PAPI_SDE_DELTA,   PAPI_SDE_long_long, &total_iter_cnt);
    papi_sde_register_counter(handle, ev_names[2], PAPI_SDE_RO|PAPI_SDE_DELTA,   PAPI_SDE_long_long, &low_wtrmrk);
    papi_sde_register_counter(handle, ev_names[3], PAPI_SDE_RO|PAPI_SDE_DELTA,   PAPI_SDE_long_long, &high_wtrmrk);
    papi_sde_add_counter_to_group(handle, ev_names[2], "ANY_WATERMARK_REACHED", PAPI_SDE_SUM);
    papi_sde_add_counter_to_group(handle, ev_names[3], "ANY_WATERMARK_REACHED", PAPI_SDE_SUM);
 
    return;
}

Here is the call graph for this function:

Here is the caller graph for this function:

Variable Documentation

comp_value

double comp_value

static

Definition at line 14 of file Simple2_Lib.c.

ev_names

const char* ev_names[4]

static

Initial value:

= {
    "COMPUTED_VALUE",
    "TOTAL_ITERATIONS",
    "LOW_WATERMARK_REACHED",
    "HIGH_WATERMARK_REACHED"
}

Definition at line 18 of file Simple2_Lib.c.

handle

papi_handle_t handle

static

Definition at line 16 of file Simple2_Lib.c.

high_wtrmrk

long long int high_wtrmrk

static

Definition at line 15 of file Simple2_Lib.c.

low_wtrmrk

long long int low_wtrmrk

static

Definition at line 15 of file Simple2_Lib.c.

total_iter_cnt

long long int total_iter_cnt

static

Definition at line 15 of file Simple2_Lib.c.