zero_shmem.c

Go to the documentation of this file.

/* This code attempts to test that SHMEM works with PAPI    */
/* SHMEM was developed by Cray and supported by various     */
/* other vendors.                       */
 
#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <errno.h>
#include <sys/types.h>
#include <memory.h>
#include <malloc.h>
#include <pthread.h>
 
#include "papi.h"
#include "papi_test.h"
 
#include "do_loops.h"
 
void
Thread( int n )
{
    int retval, num_tests = 1;
    int EventSet1 = PAPI_NULL;
    int mask1 = 0x5;
    int num_events1;
    long long **values;
    long long elapsed_us, elapsed_cyc;
 
    EventSet1 = add_test_events( &num_events1, &mask1, 1 );
 
    /* num_events1 is greater than num_events2 so don't worry. */
 
    values = allocate_test_space( num_tests, num_events1 );
 
    elapsed_us = PAPI_get_real_usec(  );
 
    elapsed_cyc = PAPI_get_real_cyc(  );
 
    retval = PAPI_start( EventSet1 );
 
    /* we should indicate failure somehow, not just exit */
    if ( retval != PAPI_OK )
        exit( 1 );
 
    do_flops( n );
 
    retval = PAPI_stop( EventSet1, values[0] );
    if ( retval != PAPI_OK )
        exit( 1 );
 
    elapsed_us = PAPI_get_real_usec(  ) - elapsed_us;
 
    elapsed_cyc = PAPI_get_real_cyc(  ) - elapsed_cyc;
 
    remove_test_events( &EventSet1, mask1 );
 
    printf( "Thread %#x PAPI_FP_INS : \t%lld\n", n / 1000000,
            ( values[0] )[0] );
    printf( "Thread %#x PAPI_TOT_CYC: \t%lld\n", n / 1000000,
            ( values[0] )[1] );
    printf( "Thread %#x Real usec   : \t%lld\n", n / 1000000,
            elapsed_us );
    printf( "Thread %#x Real cycles : \t%lld\n", n / 1000000,
            elapsed_cyc );
 
    free_test_space( values, num_tests );
}
 
int
main( int argc, char **argv )
{
    int quiet;
    long long elapsed_us, elapsed_cyc;
 
    /* Set TESTS_QUIET variable */
    quiet=tests_quiet( argc, argv );
 
    elapsed_us = PAPI_get_real_usec(  );
 
    elapsed_cyc = PAPI_get_real_cyc(  );
 
#ifdef HAVE_OPENSHMEM
    /* Start 2 processing elements (SHMEM call) */
    start_pes( 2 );
    Thread( 1000000 * ( _my_pe(  ) + 1 ) );
#else
    if (!quiet) {
        printf("No OpenSHMEM support\n");
    }
    test_skip( __FILE__, __LINE__, "OpenSHMEM support not found, skipping.", 0);
#endif
 
    elapsed_cyc = PAPI_get_real_cyc(  ) - elapsed_cyc;
 
    elapsed_us = PAPI_get_real_usec(  ) - elapsed_us;
 
    printf( "Master real usec   : \t%lld\n", elapsed_us );
    printf( "Master real cycles : \t%lld\n", elapsed_cyc );
 
    return 0;
}