zero_flip.c File Reference

Include dependency graph for zero_flip.c:

Go to the source code of this file.

Functions
int	main (int argc, char **argv)

Function Documentation

main()

int main	(	int	argc,
		char **	argv
	)

Definition at line 27 of file zero_flip.c.

{
    int retval, eventcnt, events[2], i, tmp;
    int EventSet1 = PAPI_NULL, EventSet2 = PAPI_NULL;
    int PAPI_event;
    long long values1[2], values2[2];
    long long elapsed_us, elapsed_cyc;
    char event_name[PAPI_MAX_STR_LEN], add_event_str[PAPI_MAX_STR_LEN];
    int quiet;

    /* Set TESTS_QUIET variable */
    quiet = tests_quiet( argc, argv );

    retval = PAPI_library_init( PAPI_VER_CURRENT );
    if ( retval != PAPI_VER_CURRENT )
        test_fail( __FILE__, __LINE__, "PAPI_library_init", retval );

    /* query and set up the right instruction to monitor */
    if ( PAPI_query_event( PAPI_FP_OPS ) == PAPI_OK )
        PAPI_event = PAPI_FP_OPS;
    else
        PAPI_event = PAPI_TOT_INS;

    retval = PAPI_event_code_to_name( PAPI_event, event_name );
    if ( retval != PAPI_OK )
        test_fail( __FILE__, __LINE__, "PAPI_event_code_to_name", retval );
    sprintf( add_event_str, "PAPI_add_event[%s]", event_name );

    retval = PAPI_create_eventset( &EventSet1 );
    if ( retval != PAPI_OK )
        test_fail( __FILE__, __LINE__, "PAPI_create_eventset", retval );

    /* Add the events */
    if (!quiet) printf( "Adding: %s\n", event_name );
    retval = PAPI_add_event( EventSet1, PAPI_event );
    if ( retval != PAPI_OK ) {
        if (!quiet) printf("Trouble adding event\n");
        test_skip( __FILE__, __LINE__, "PAPI_add_event", retval );
    }

    retval = PAPI_add_event( EventSet1, PAPI_TOT_CYC );
    if ( retval != PAPI_OK )
        test_fail( __FILE__, __LINE__, "PAPI_add_event", retval );

    /* Add them reversed to EventSet2 */

    retval = PAPI_create_eventset( &EventSet2 );
    if ( retval != PAPI_OK )
        test_fail( __FILE__, __LINE__, "PAPI_create_eventset", retval );

    eventcnt = 2;
    retval = PAPI_list_events( EventSet1, events, &eventcnt );
    if ( retval != PAPI_OK )
        test_fail( __FILE__, __LINE__, "PAPI_list_events", retval );

    for ( i = eventcnt - 1; i >= 0; i-- ) {
        retval = PAPI_event_code_to_name( events[i], event_name );
        if ( retval != PAPI_OK )
            test_fail( __FILE__, __LINE__, "PAPI_event_code_to_name", retval );

        retval = PAPI_add_event( EventSet2, events[i] );
        if ( retval != PAPI_OK )
            test_fail( __FILE__, __LINE__, "PAPI_add_event", retval );
    }

    elapsed_us = PAPI_get_real_usec(  );

    elapsed_cyc = PAPI_get_real_cyc(  );

    retval = PAPI_start( EventSet1 );
    if ( retval != PAPI_OK )
        test_fail( __FILE__, __LINE__, "PAPI_start", retval );

    do_flops( NUM_FLOPS );

    retval = PAPI_stop( EventSet1, values1 );
    if ( retval != PAPI_OK )
        test_fail( __FILE__, __LINE__, "PAPI_stop", retval );

    retval = PAPI_start( EventSet2 );
    if ( retval != PAPI_OK )
        test_fail( __FILE__, __LINE__, "PAPI_start", retval );

    do_flops( NUM_FLOPS );

    retval = PAPI_stop( EventSet2, values2 );
    if ( retval != PAPI_OK )
        test_fail( __FILE__, __LINE__, "PAPI_stop", retval );

    elapsed_us = PAPI_get_real_usec(  ) - elapsed_us;

    elapsed_cyc = PAPI_get_real_cyc(  ) - elapsed_cyc;

    retval = PAPI_cleanup_eventset( EventSet1 );    /* JT */
    if ( retval != PAPI_OK )
        test_fail( __FILE__, __LINE__, "PAPI_cleanup_eventset", retval );

    retval = PAPI_destroy_eventset( &EventSet1 );
    if ( retval != PAPI_OK )
        test_fail( __FILE__, __LINE__, "PAPI_destroy_eventset", retval );

    retval = PAPI_cleanup_eventset( EventSet2 );    /* JT */
    if ( retval != PAPI_OK )
        test_fail( __FILE__, __LINE__, "PAPI_cleanup_eventset", retval );

    retval = PAPI_destroy_eventset( &EventSet2 );
    if ( retval != PAPI_OK )
        test_fail( __FILE__, __LINE__, "PAPI_destroy_eventset", retval );

    if ( !quiet ) {
        printf( "Test case 0: start, stop.\n" );
        printf( "-----------------------------------------------\n" );
        tmp = PAPI_get_opt( PAPI_DEFDOM, NULL );
        printf( "Default domain is: %d (%s)\n", tmp,
                stringify_all_domains( tmp ) );
        tmp = PAPI_get_opt( PAPI_DEFGRN, NULL );
        printf( "Default granularity is: %d (%s)\n", tmp,
                stringify_granularity( tmp ) );
        printf( "Using %d iterations of c += a*b\n", NUM_FLOPS );
        printf
            ( "-------------------------------------------------------------------------\n" );

        printf( "Test type    : \t           1\t           2\n" );

        sprintf( add_event_str, "%-12s : \t", event_name );
        printf( TAB2, add_event_str, values1[0], values2[1] );
        printf( TAB2, "PAPI_TOT_CYC : \t", values1[1], values2[0] );
        printf( TAB1, "Real usec    : \t", elapsed_us );
        printf( TAB1, "Real cycles  : \t", elapsed_cyc );

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

        printf( "Verification: none\n" );
    }

    test_pass( __FILE__ );

    return 0;

}

Here is the call graph for this function: