papi_fwrappers.c File Reference

Include dependency graph for papi_fwrappers.c:

Go to the source code of this file.

Macros
#define	PAPI_FCALL(function, caps, args)   void function args

Functions
	PAPI_FCALL (papif_accum, PAPIF_ACCUM,(int *EventSet, long long *values, int *check))
	PAPI_FCALL (papif_add_event, PAPIF_ADD_EVENT,(int *EventSet, int *Event, int *check))
	PAPI_FCALL (papif_add_named_event, PAPIF_ADD_NAMED_EVENT,(int *EventSet, char *EventName, int *check))
	PAPI_FCALL (papif_add_events, PAPIF_ADD_EVENTS,(int *EventSet, int *Events, int *number, int *check))
	PAPI_FCALL (papif_cleanup_eventset, PAPIF_CLEANUP_EVENTSET,(int *EventSet, int *check))
	PAPI_FCALL (papif_create_eventset, PAPIF_CREATE_EVENTSET,(int *EventSet, int *check))
	PAPI_FCALL (papif_assign_eventset_component, PAPIF_ASSIGN_EVENTSET_COMPONENT,(int *EventSet, int *cidx, int *check))
	PAPI_FCALL (papif_destroy_eventset, PAPIF_DESTROY_EVENTSET,(int *EventSet, int *check))
	PAPI_FCALL (papif_get_dmem_info, PAPIF_GET_DMEM_INFO,(long long *dest, int *check))
	PAPI_FCALL (papif_get_exe_info, PAPIF_GET_EXE_INFO,(char *fullname, char *name, long long *text_start, long long *text_end, long long *data_start, long long *data_end, long long *bss_start, long long *bss_end, int *check))
	PAPI_FCALL (papif_get_hardware_info, PAPIF_GET_HARDWARE_INFO,(int *ncpu, int *nnodes, int *totalcpus, int *vendor, char *vendor_string, int *model, char *model_string, float *revision, float *mhz))
	PAPI_FCALL (papif_num_cmp_hwctrs, PAPIF_num_cmp_hwctrs,(int *cidx, int *num))
	PAPI_FCALL (papif_thread_init, PAPIF_THREAD_INIT,(unsigned long int(*handle)(void), int *check))
	PAPI_FCALL (papif_list_events, PAPIF_LIST_EVENTS,(int *EventSet, int *Events, int *number, int *check))
	PAPI_FCALL (papif_get_multiplex, PAPIF_GET_MULTIPLEX,(int *EventSet, int *check))
	PAPI_FCALL (papif_set_multiplex, PAPIF_SET_MULTIPLEX,(int *EventSet, int *check))
	PAPI_FCALL (papif_perror, PAPIF_PERROR,(char *message))
	PAPI_FCALL (papif_query_event, PAPIF_QUERY_EVENT,(int *EventCode, int *check))
	PAPI_FCALL (papif_query_named_event, PAPIF_QUERY_NAMED_EVENT,(char *EventName, int *check))
	PAPI_FCALL (papif_get_event_info, PAPIF_GET_EVENT_INFO,(int *EventCode, char *symbol, char *long_descr, char *short_descr, int *count, char *event_note, int *flags, int *check))
	PAPI_FCALL (papif_event_code_to_name, PAPIF_EVENT_CODE_TO_NAME,(int *EventCode, char *out, int *check))
	PAPI_FCALL (papif_event_name_to_code, PAPIF_EVENT_NAME_TO_CODE,(char *in, int *out, int *check))
	PAPI_FCALL (papif_enum_event, PAPIF_ENUM_EVENT,(int *EventCode, int *modifier, int *check))
	PAPI_FCALL (papif_read, PAPIF_READ,(int *EventSet, long long *values, int *check))
	PAPI_FCALL (papif_read_ts, PAPIF_READ_TS,(int *EventSet, long long *values, long long *cycles, int *check))
	PAPI_FCALL (papif_remove_event, PAPIF_REMOVE_EVENT,(int *EventSet, int *Event, int *check))
	PAPI_FCALL (papif_remove_named_event, PAPIF_REMOVE_NAMED_EVENT,(int *EventSet, char *EventName, int *check))
	PAPI_FCALL (papif_remove_events, PAPIF_REMOVE_EVENTS,(int *EventSet, int *Events, int *number, int *check))
	PAPI_FCALL (papif_set_cmp_domain, PAPIF_SET_CMP_DOMAIN,(int *domain, int *cidx, int *check))
	PAPI_FCALL (papif_set_granularity, PAPIF_SET_GRANULARITY,(int *granularity, int *check))
	PAPI_FCALL (papif_set_cmp_granularity, PAPIF_SET_CMP_GRANULARITY,(int *granularity, int *cidx, int *check))
	PAPI_FCALL (papif_state, PAPIF_STATE,(int *EventSet, int *status, int *check))
	PAPI_FCALL (papif_stop, PAPIF_STOP,(int *EventSet, long long *values, int *check))
	PAPI_FCALL (papif_write, PAPIF_WRITE,(int *EventSet, long long *values, int *check))
	PAPI_FCALL (papif_lock, PAPIF_LOCK,(int *lock, int *check))
	PAPI_FCALL (papif_unlock, PAPIF_unlock,(int *lock, int *check))
	PAPI_FCALL (papif_get_preload, PAPIF_GET_PRELOAD,(char *lib_preload_env, int *check))
	PAPI_FCALL (papif_get_granularity, PAPIF_GET_GRANULARITY,(int *eventset, int *granularity, int *mode, int *check))
	PAPI_FCALL (papif_get_domain, PAPIF_GET_DOMAIN,(int *eventset, int *domain, int *mode, int *check))
	PAPI_FCALL (papif_set_event_domain, PAPIF_SET_EVENT_DOMAIN,(int *es, int *domain, int *check))
	PAPI_FCALL (papif_ipc, PAPIF_IPC,(float *rtime, float *ptime, long long *ins, float *ipc, int *check))
	PAPI_FCALL (papif_epc, PAPIF_EPC,(int event, float *rtime, float *ptime, long long *ref, long long *core, long long *evt, float *epc, int *check))
	PAPI_FCALL (papif_flips_rate, PAPIF_FLIPS_RATE,(int event, float *real_time, float *proc_time, long long *flpins, float *mflips, int *check))
	PAPI_FCALL (papif_flops_rate, PAPIF_FLOPS_RATE,(int event, float *real_time, float *proc_time, long long *flpops, float *mflops, int *check))
	PAPI_FCALL (papif_rate_stop, PAPIF_RATE_STOP,(int *check))
	PAPI_FCALL (papif_get_dev_type_attr, PAPIF_GET_DEV_TYPE_ATTR,(int *handle_index, int *attribute, int *value, char *string, int *check))
	PAPI_FCALL (papif_get_dev_attr, PAPIF_GET_DEV_ATTR,(int *handle_index, int *id, int *attribute, int *value, char *string, int *check))
	PAPI_FCALL (papif_hl_region_begin, PAPIF_HL_REGION_BEGIN,(char *name, int *check))
	PAPI_FCALL (papif_hl_read, PAPIF_HL_READ,(char *name, int *check))
	PAPI_FCALL (papif_hl_region_end, PAPIF_HL_REGION_END,(char *name, int *check))
	PAPI_FCALL (papif_hl_stop, PAPIF_HL_STOP,(int *check))

Variables
i inherit	inherit = *inherit
*	check = PAPI_set_opt( PAPI_INHERIT, &i )
static void *	sysdetect_fort_handle
*	handle_index = 0

Macro Definition Documentation

PAPI_FCALL

#define PAPI_FCALL	(		function,
			caps,
			args
	)		void function args

Definition at line 37 of file papi_fwrappers.c.

Function Documentation

PAPI_FCALL() [1/51]

PAPI_FCALL	(	papif_accum	,
		PAPIF_ACCUM	,
		(int *EventSet, long long *values, int *check)
	)

Definition at line 78 of file papi_fwrappers.c.

{
    *check = PAPI_accum( *EventSet, values );
}

PAPI_FCALL() [2/51]

PAPI_FCALL	(	papif_add_event	,
		PAPIF_ADD_EVENT	,
		(int *EventSet, int *Event, int *check)
	)

Definition at line 94 of file papi_fwrappers.c.

{
    *check = PAPI_add_event( *EventSet, *Event );
}

PAPI_FCALL() [3/51]

PAPI_FCALL	(	papif_add_events	,
		PAPIF_ADD_EVENTS	,
		(int *EventSet, int *Events, int *number, int *check)
	)

Definition at line 136 of file papi_fwrappers.c.

{
    *check = PAPI_add_events( *EventSet, Events, *number );
}

PAPI_FCALL() [4/51]

PAPI_FCALL	(	papif_add_named_event	,
		PAPIF_ADD_NAMED_EVENT	,
		(int *EventSet, char *EventName, int *check)
	)

Definition at line 119 of file papi_fwrappers.c.

{
    *check = PAPI_add_named_event( *EventSet, EventName );
}

PAPI_FCALL() [5/51]

PAPI_FCALL	(	papif_assign_eventset_component	,
		PAPIF_ASSIGN_EVENTSET_COMPONENT	,
		(int *EventSet, int *cidx, int *check)
	)

Definition at line 184 of file papi_fwrappers.c.

{
    *check = PAPI_assign_eventset_component( *EventSet, *cidx );
}

PAPI_FCALL() [6/51]

PAPI_FCALL	(	papif_cleanup_eventset	,
		PAPIF_CLEANUP_EVENTSET	,
		(int *EventSet, int *check)
	)

Definition at line 152 of file papi_fwrappers.c.

{
    *check = PAPI_cleanup_eventset( *EventSet );
}

PAPI_FCALL() [7/51]

PAPI_FCALL	(	papif_create_eventset	,
		PAPIF_CREATE_EVENTSET	,
		(int *EventSet, int *check)
	)

Definition at line 168 of file papi_fwrappers.c.

{
    *check = PAPI_create_eventset( EventSet );
}

PAPI_FCALL() [8/51]

PAPI_FCALL	(	papif_destroy_eventset	,
		PAPIF_DESTROY_EVENTSET	,
		(int *EventSet, int *check)
	)

Definition at line 200 of file papi_fwrappers.c.

{
    *check = PAPI_destroy_eventset( EventSet );
}

PAPI_FCALL() [9/51]

PAPI_FCALL	(	papif_enum_event	,
		PAPIF_ENUM_EVENT	,
		(int *EventCode, int *modifier, int *check)
	)

Definition at line 866 of file papi_fwrappers.c.

{
    *check = PAPI_enum_event( EventCode, *modifier );
}

PAPI_FCALL() [10/51]

PAPI_FCALL	(	papif_epc	,
		PAPIF_EPC	,
		(int event, float *rtime, float *ptime, long long *ref, long long *core, long long *evt, float *epc, int *check)
	)

Definition at line 1355 of file papi_fwrappers.c.

{
    *check = PAPI_epc( event, rtime, ptime, ref, core, evt, epc );
}

PAPI_FCALL() [11/51]

PAPI_FCALL	(	papif_event_code_to_name	,
		PAPIF_EVENT_CODE_TO_NAME	,
		(int *EventCode, char *out, int *check)
	)

Definition at line 782 of file papi_fwrappers.c.

{
#if defined(_FORTRAN_STRLEN_AT_END)
    char tmp[PAPI_MAX_STR_LEN];
    int i;
    *check = PAPI_event_code_to_name( *EventCode, tmp );
    /* tmp has \0 within PAPI_MAX_STR_LEN chars so strncpy is safe */
    strncpy( out_str, tmp, ( size_t ) out_len );
    /* overwrite any NULLs and trailing garbage in out_str */
    for ( i = ( int ) strlen( tmp ); i < out_len; out_str[i++] = ' ' );
#else
    /* The array "out" passed by the user must be sufficiently long */
    *check = PAPI_event_code_to_name( *EventCode, out );
#endif
}

PAPI_FCALL() [12/51]

PAPI_FCALL	(	papif_event_name_to_code	,
		PAPIF_EVENT_NAME_TO_CODE	,
		(char *in, int *out, int *check)
	)

Definition at line 814 of file papi_fwrappers.c.

{
#if defined(_FORTRAN_STRLEN_AT_END)
    int slen, i;
    char tmpin[PAPI_MAX_STR_LEN];
 
    /* What is the maximum number of chars to copy ? */
    slen = in_len < PAPI_MAX_STR_LEN ? in_len : PAPI_MAX_STR_LEN;
    strncpy( tmpin, in_str, ( size_t ) slen );
 
    /* Remove trailing blanks from initial Fortran string */
    for ( i = slen - 1; i > -1 && tmpin[i] == ' '; tmpin[i--] = '\0' );
 
    /* Make sure string is NULL terminated before call */
    tmpin[PAPI_MAX_STR_LEN - 1] = '\0';
    if ( slen < PAPI_MAX_STR_LEN )
        tmpin[slen] = '\0';
 
    *check = PAPI_event_name_to_code( tmpin, out );
#else
    /* This will have trouble if argument in is not null terminated */
    *check = PAPI_event_name_to_code( in, out );
#endif
}

PAPI_FCALL() [13/51]

PAPI_FCALL	(	papif_flips_rate	,
		PAPIF_FLIPS_RATE	,
		(int event, float *real_time, float *proc_time, long long *flpins, float *mflips, int *check)
	)

Definition at line 1373 of file papi_fwrappers.c.

{
    *check = PAPI_flips_rate( event, real_time, proc_time, flpins, mflips );
}

PAPI_FCALL() [14/51]

PAPI_FCALL	(	papif_flops_rate	,
		PAPIF_FLOPS_RATE	,
		(int event, float *real_time, float *proc_time, long long *flpops, float *mflops, int *check)
	)

Definition at line 1390 of file papi_fwrappers.c.

{
    *check = PAPI_flops_rate( event, real_time, proc_time, flpops, mflops );
}

PAPI_FCALL() [15/51]

PAPI_FCALL	(	papif_get_dev_attr	,
		PAPIF_GET_DEV_ATTR	,
		(int *handle_index, int *id, int *attribute, int *value, char *string, int *check)
	)

Definition at line 1515 of file papi_fwrappers.c.

{
    int i;
    const char *string_ptr;
    *handle_index = 0;
    *check = PAPI_OK;
 
    assert(sysdetect_fort_handle);
 
    switch(*attribute) {
        case PAPI_DEV_ATTR__CPU_UINT_L1I_CACHE_SIZE:
        case PAPI_DEV_ATTR__CPU_UINT_L1D_CACHE_SIZE:
        case PAPI_DEV_ATTR__CPU_UINT_L2U_CACHE_SIZE:
        case PAPI_DEV_ATTR__CPU_UINT_L3U_CACHE_SIZE:
        case PAPI_DEV_ATTR__CPU_UINT_L1I_CACHE_LINE_SIZE:
        case PAPI_DEV_ATTR__CPU_UINT_L1D_CACHE_LINE_SIZE:
        case PAPI_DEV_ATTR__CPU_UINT_L2U_CACHE_LINE_SIZE:
        case PAPI_DEV_ATTR__CPU_UINT_L3U_CACHE_LINE_SIZE:
        case PAPI_DEV_ATTR__CPU_UINT_L1I_CACHE_LINE_COUNT:
        case PAPI_DEV_ATTR__CPU_UINT_L1D_CACHE_LINE_COUNT:
        case PAPI_DEV_ATTR__CPU_UINT_L2U_CACHE_LINE_COUNT:
        case PAPI_DEV_ATTR__CPU_UINT_L3U_CACHE_LINE_COUNT:
        case PAPI_DEV_ATTR__CPU_UINT_L1I_CACHE_ASSOC:
        case PAPI_DEV_ATTR__CPU_UINT_L1D_CACHE_ASSOC:
        case PAPI_DEV_ATTR__CPU_UINT_L2U_CACHE_ASSOC:
        case PAPI_DEV_ATTR__CPU_UINT_L3U_CACHE_ASSOC:
        case PAPI_DEV_ATTR__CPU_UINT_FAMILY:
        case PAPI_DEV_ATTR__CPU_UINT_MODEL:
        case PAPI_DEV_ATTR__CPU_UINT_STEPPING:
        case PAPI_DEV_ATTR__CPU_UINT_SOCKET_COUNT:
        case PAPI_DEV_ATTR__CPU_UINT_NUMA_COUNT:
        case PAPI_DEV_ATTR__CPU_UINT_CORE_COUNT:
        case PAPI_DEV_ATTR__CPU_UINT_THREAD_COUNT:
        case PAPI_DEV_ATTR__CPU_UINT_THR_PER_NUMA:
        case PAPI_DEV_ATTR__CUDA_ULONG_UID:
        case PAPI_DEV_ATTR__CUDA_CHAR_DEVICE_NAME:
        case PAPI_DEV_ATTR__CUDA_UINT_WARP_SIZE:
        case PAPI_DEV_ATTR__CUDA_UINT_THR_PER_BLK:
        case PAPI_DEV_ATTR__CUDA_UINT_BLK_PER_SM:
        case PAPI_DEV_ATTR__CUDA_UINT_SHM_PER_BLK:
        case PAPI_DEV_ATTR__CUDA_UINT_SHM_PER_SM:
        case PAPI_DEV_ATTR__CUDA_UINT_BLK_DIM_X:
        case PAPI_DEV_ATTR__CUDA_UINT_BLK_DIM_Y:
        case PAPI_DEV_ATTR__CUDA_UINT_BLK_DIM_Z:
        case PAPI_DEV_ATTR__CUDA_UINT_GRD_DIM_X:
        case PAPI_DEV_ATTR__CUDA_UINT_GRD_DIM_Y:
        case PAPI_DEV_ATTR__CUDA_UINT_GRD_DIM_Z:
        case PAPI_DEV_ATTR__CUDA_UINT_SM_COUNT:
        case PAPI_DEV_ATTR__CUDA_UINT_MULTI_KERNEL:
        case PAPI_DEV_ATTR__CUDA_UINT_MAP_HOST_MEM:
        case PAPI_DEV_ATTR__CUDA_UINT_MEMCPY_OVERLAP:
        case PAPI_DEV_ATTR__CUDA_UINT_UNIFIED_ADDR:
        case PAPI_DEV_ATTR__CUDA_UINT_MANAGED_MEM:
        case PAPI_DEV_ATTR__CUDA_UINT_COMP_CAP_MAJOR:
        case PAPI_DEV_ATTR__CUDA_UINT_COMP_CAP_MINOR:
        case PAPI_DEV_ATTR__ROCM_ULONG_UID:
        case PAPI_DEV_ATTR__ROCM_UINT_SIMD_PER_CU:
        case PAPI_DEV_ATTR__ROCM_UINT_WORKGROUP_SIZE:
        case PAPI_DEV_ATTR__ROCM_UINT_WAVEFRONT_SIZE:
        case PAPI_DEV_ATTR__ROCM_UINT_WAVE_PER_CU:
        case PAPI_DEV_ATTR__ROCM_UINT_SHM_PER_WG:
        case PAPI_DEV_ATTR__ROCM_UINT_WG_DIM_X:
        case PAPI_DEV_ATTR__ROCM_UINT_WG_DIM_Y:
        case PAPI_DEV_ATTR__ROCM_UINT_WG_DIM_Z:
        case PAPI_DEV_ATTR__ROCM_UINT_GRD_DIM_X:
        case PAPI_DEV_ATTR__ROCM_UINT_GRD_DIM_Y:
        case PAPI_DEV_ATTR__ROCM_UINT_GRD_DIM_Z:
        case PAPI_DEV_ATTR__ROCM_UINT_CU_COUNT:
        case PAPI_DEV_ATTR__ROCM_UINT_COMP_CAP_MAJOR:
        case PAPI_DEV_ATTR__ROCM_UINT_COMP_CAP_MINOR:
            *check = PAPI_get_dev_attr(sysdetect_fort_handle, *id, *attribute,
                                       value);
            break;
        case PAPI_DEV_ATTR__CPU_CHAR_NAME:
        case PAPI_DEV_ATTR__ROCM_CHAR_DEVICE_NAME:
            *check = PAPI_get_dev_attr(sysdetect_fort_handle, *id, *attribute,
                                       &string_ptr);
            if (*check != PAPI_OK) {
                break;
            }
#if defined(_FORTRAN_STRLEN_AT_END)
            strncpy(string, string_ptr, (size_t) string_len);
            for ( i = ( int ) strlen(string_ptr); i < PAPI_MAX_STR_LEN;
                string[i++] = ' ' );
#else
            strcpy(string, string_ptr);
            for ( i = ( int ) strlen(string_ptr); i < PAPI_MAX_STR_LEN;
                string[i++] = ' ' );
#endif
            break;
        default:
            *check = PAPI_EINVAL;
    }
    return;
}

PAPI_FCALL() [16/51]

PAPI_FCALL	(	papif_get_dev_type_attr	,
		PAPIF_GET_DEV_TYPE_ATTR	,
		(int *handle_index, int *attribute, int *value, char *string, int *check)
	)

Definition at line 1450 of file papi_fwrappers.c.

{
    const char *string_ptr;
    int i;
    *handle_index = 0;
    *check = PAPI_OK;
 
    assert(sysdetect_fort_handle);
 
    switch(*attribute) {
        case PAPI_DEV_TYPE_ATTR__INT_PAPI_ID:
        case PAPI_DEV_TYPE_ATTR__INT_VENDOR_ID:
        case PAPI_DEV_TYPE_ATTR__INT_COUNT:
            *check = PAPI_get_dev_type_attr(sysdetect_fort_handle, *attribute,
                                            value);
            break;
        case PAPI_DEV_TYPE_ATTR__CHAR_NAME:
        case PAPI_DEV_TYPE_ATTR__CHAR_STATUS:
            *check = PAPI_get_dev_type_attr(sysdetect_fort_handle, *attribute,
                                            &string_ptr);
            if (*check != PAPI_OK) {
                break;
            }
#if defined(_FORTRAN_STRLEN_AT_END)
            strncpy(string, string_ptr, string_len);
            for ( i = ( int ) string_len; i < PAPI_MAX_STR_LEN;
                string[i++] = ' ' );
#else
            strcpy(string, string_ptr);
            for ( i = ( int ) strlen(string_ptr); i < PAPI_MAX_STR_LEN;
                string[i++] = ' ' );
#endif
            break;
        default:
            *check = PAPI_EINVAL;
    }
    *handle_index = 0;
    return;
}

PAPI_FCALL() [17/51]

PAPI_FCALL	(	papif_get_dmem_info	,
		PAPIF_GET_DMEM_INFO	,
		(long long *dest, int *check)
	)

Definition at line 217 of file papi_fwrappers.c.

{
    *check = PAPI_get_dmem_info( ( PAPI_dmem_info_t * ) dest );
}

PAPI_FCALL() [18/51]

PAPI_FCALL	(	papif_get_domain	,
		PAPIF_GET_DOMAIN	,
		(int *eventset, int *domain, int *mode, int *check)
	)

Definition at line 1260 of file papi_fwrappers.c.

{
    PAPI_option_t d;
 
    if ( *mode == PAPI_DEFDOM ) {
        *domain = PAPI_get_opt( *mode, (PAPI_option_t *) NULL );
        *check = PAPI_OK;
    } else if ( *mode == PAPI_DOMAIN ) {
        d.domain.eventset = *eventset;
        if ( ( *check = PAPI_get_opt( *mode, &d ) ) == PAPI_OK ) {
            *domain = d.domain.domain;
        }
    } else {
        *check = PAPI_EINVAL;
    }
}

PAPI_FCALL() [19/51]

PAPI_FCALL	(	papif_get_event_info	,
		PAPIF_GET_EVENT_INFO	,
		(int *EventCode, char *symbol, char *long_descr, char *short_descr, int *count, char *event_note, int *flags, int *check)
	)

Definition at line 723 of file papi_fwrappers.c.

{
    PAPI_event_info_t info;
    ( void ) flags;          /*Unused */
#if defined(_FORTRAN_STRLEN_AT_END)
    int i;
    if ( ( *check = PAPI_get_event_info( *EventCode, &info ) ) == PAPI_OK ) {
        strncpy( symbol, info.symbol, ( size_t ) symbol_len );
        for ( i = ( int ) strlen( info.symbol ); i < symbol_len;
              symbol[i++] = ' ' );
        strncpy( long_descr, info.long_descr, ( size_t ) long_descr_len );
        for ( i = ( int ) strlen( info.long_descr ); i < long_descr_len;
              long_descr[i++] = ' ' );
        strncpy( short_descr, info.short_descr, ( size_t ) short_descr_len );
        for ( i = ( int ) strlen( info.short_descr ); i < short_descr_len;
              short_descr[i++] = ' ' );
 
        *count = ( int ) info.count;
 
        int note_len=0;
 
        strncpy( event_note, info.note,  ( size_t ) event_note_len );
        note_len=strlen(info.note);
 
        for ( i =  note_len; i < event_note_len;
              event_note[i++] = ' ' );
    }
#else
/* printf("EventCode: %d\n", *EventCode ); -KSL */
    if ( ( *check = PAPI_get_event_info( *EventCode, &info ) ) == PAPI_OK ) {
        strncpy( symbol, info.symbol, PAPI_MAX_STR_LEN );
        strncpy( long_descr, info.long_descr, PAPI_MAX_STR_LEN );
        strncpy( short_descr, info.short_descr, PAPI_MAX_STR_LEN );
        *count = info.count;
        if (info.note) 
                   strncpy( event_note, info.note, 
                PAPI_MAX_STR_LEN );
    }
/*  printf("Check: %d\n", *check); -KSL */
#endif
}

PAPI_FCALL() [20/51]

PAPI_FCALL	(	papif_get_exe_info	,
		PAPIF_GET_EXE_INFO	,
		(char *fullname, char *name, long long *text_start, long long *text_end, long long *data_start, long long *data_end, long long *bss_start, long long *bss_end, int *check)
	)

Definition at line 243 of file papi_fwrappers.c.

{
    PAPI_option_t e;
/* WARNING: The casts from vptr_t to long below WILL BREAK on systems with
    64-bit addresses. I did it here because I was lazy. And because I wanted
    to get rid of those pesky gcc warnings. If you find a 64-bit system,
    conditionalize the cast with (yet another) #ifdef...
*/
    if ( ( *check = PAPI_get_opt( PAPI_EXEINFO, &e ) ) == PAPI_OK ) {
#if defined(_FORTRAN_STRLEN_AT_END)
        int i;
        strncpy( fullname, e.exe_info->fullname, ( size_t ) fullname_len );
        for ( i = ( int ) strlen( e.exe_info->fullname ); i < fullname_len;
              fullname[i++] = ' ' );
        strncpy( name, e.exe_info->address_info.name, ( size_t ) name_len );
        for ( i = ( int ) strlen( e.exe_info->address_info.name ); i < name_len;
              name[i++] = ' ' );
#else
        strncpy( fullname, e.exe_info->fullname, PAPI_MAX_STR_LEN );
        strncpy( name, e.exe_info->address_info.name, PAPI_MAX_STR_LEN );
#endif
        *text_start = ( long ) e.exe_info->address_info.text_start;
        *text_end = ( long ) e.exe_info->address_info.text_end;
        *data_start = ( long ) e.exe_info->address_info.data_start;
        *data_end = ( long ) e.exe_info->address_info.data_end;
        *bss_start = ( long ) e.exe_info->address_info.bss_start;
        *bss_end = ( long ) e.exe_info->address_info.bss_end;
    }
}

PAPI_FCALL() [21/51]

PAPI_FCALL	(	papif_get_granularity	,
		PAPIF_GET_GRANULARITY	,
		(int *eventset, int *granularity, int *mode, int *check)
	)

Definition at line 1232 of file papi_fwrappers.c.

{
    PAPI_option_t g;
 
    if ( *mode == PAPI_DEFGRN ) {
        *granularity = PAPI_get_opt( *mode, &g );
        *check = PAPI_OK;
    } else if ( *mode == PAPI_GRANUL ) {
        g.granularity.eventset = *eventset;
        if ( ( *check = PAPI_get_opt( *mode, &g ) ) == PAPI_OK ) {
            *granularity = g.granularity.granularity;
        }
    } else {
        *check = PAPI_EINVAL;
    }
}

PAPI_FCALL() [22/51]

PAPI_FCALL	(	papif_get_hardware_info	,
		PAPIF_GET_HARDWARE_INFO	,
		(int *ncpu, int *nnodes, int *totalcpus, int *vendor, char *vendor_string, int *model, char *model_string, float *revision, float *mhz)
	)

Definition at line 304 of file papi_fwrappers.c.

{
    const PAPI_hw_info_t *hwinfo;
    int i;
    hwinfo = PAPI_get_hardware_info(  );
    if ( hwinfo == NULL ) {
        *ncpu = 0;
        *nnodes = 0;
        *totalcpus = 0;
        *vendor = 0;
        *model = 0;
        *revision = 0;
        *mhz = 0;
    } else {
        *ncpu = hwinfo->ncpu;
        *nnodes = hwinfo->nnodes;
        *totalcpus = hwinfo->totalcpus;
        *vendor = hwinfo->vendor;
        *model = hwinfo->model;
        *revision = hwinfo->revision;
        *mhz = hwinfo->cpu_max_mhz;
#if defined(_FORTRAN_STRLEN_AT_END)
        strncpy( vendor_str, hwinfo->vendor_string, ( size_t ) vendor_len );
        for ( i = ( int ) strlen( hwinfo->vendor_string ); i < vendor_len;
              vendor_str[i++] = ' ' );
        strncpy( model_str, hwinfo->model_string, ( size_t ) model_len );
        for ( i = ( int ) strlen( hwinfo->model_string ); i < model_len;
              model_str[i++] = ' ' );
#else
        (void)i; /* unused...  */
        /* This case needs the passed strings to be of sufficient size *
         * and will include the NULL character in the target string    */
        strcpy( vendor_string, hwinfo->vendor_string );
        strcpy( model_string, hwinfo->model_string );
#endif
    }
    return;
}

PAPI_FCALL() [23/51]

PAPI_FCALL	(	papif_get_multiplex	,
		PAPIF_GET_MULTIPLEX	,
		(int *EventSet, int *check)
	)

Definition at line 603 of file papi_fwrappers.c.

{
    *check = PAPI_get_multiplex( *EventSet );
}

PAPI_FCALL() [24/51]

PAPI_FCALL	(	papif_get_preload	,
		PAPIF_GET_PRELOAD	,
		(char *lib_preload_env, int *check)
	)

Definition at line 1201 of file papi_fwrappers.c.

{
    PAPI_option_t p;
#if defined(_FORTRAN_STRLEN_AT_END)
    int i;
 
    if ( ( *check = PAPI_get_opt( PAPI_PRELOAD, &p ) ) == PAPI_OK ) {
        strncpy( lib_preload_env, p.preload.lib_preload_env,
                 ( size_t ) lib_preload_env_len );
        for ( i = ( int ) strlen( p.preload.lib_preload_env );
              i < lib_preload_env_len; lib_preload_env[i++] = ' ' );
    }
#else
    if ( ( *check = PAPI_get_opt( PAPI_PRELOAD, &p ) ) == PAPI_OK ) {
        strncpy( lib_preload_env, p.preload.lib_preload_env, PAPI_MAX_STR_LEN );
    }
#endif
}

PAPI_FCALL() [25/51]

PAPI_FCALL	(	papif_hl_read	,
		PAPIF_HL_READ	,
		(char *name, int *check)
	)

Definition at line 1749 of file papi_fwrappers.c.

{
    *check = PAPI_hl_read( name );
}

PAPI_FCALL() [26/51]

PAPI_FCALL	(	papif_hl_region_begin	,
		PAPIF_HL_REGION_BEGIN	,
		(char *name, int *check)
	)

Definition at line 1680 of file papi_fwrappers.c.

{
    *check = PAPI_hl_region_begin( name );
}

PAPI_FCALL() [27/51]

PAPI_FCALL	(	papif_hl_region_end	,
		PAPIF_HL_REGION_END	,
		(char *name, int *check)
	)

Definition at line 1812 of file papi_fwrappers.c.

{
    *check = PAPI_hl_region_end( name );
}

PAPI_FCALL() [28/51]

PAPI_FCALL	(	papif_hl_stop	,
		PAPIF_HL_STOP	,
		(int *check)
	)

Definition at line 1865 of file papi_fwrappers.c.

{
    *check = PAPI_hl_stop( );
}

PAPI_FCALL() [29/51]

PAPI_FCALL	(	papif_ipc	,
		PAPIF_IPC	,
		(float *rtime, float *ptime, long long *ins, float *ipc, int *check)
	)

Definition at line 1338 of file papi_fwrappers.c.

{
    *check = PAPI_ipc( rtime, ptime, ins, ipc );
}

PAPI_FCALL() [30/51]

PAPI_FCALL	(	papif_list_events	,
		PAPIF_LIST_EVENTS	,
		(int *EventSet, int *Events, int *number, int *check)
	)

Definition at line 572 of file papi_fwrappers.c.

{
    *check = PAPI_list_events( *EventSet, Events, number );
}

PAPI_FCALL() [31/51]

PAPI_FCALL	(	papif_lock	,
		PAPIF_LOCK	,
		(int *lock, int *check)
	)

Definition at line 1143 of file papi_fwrappers.c.

{
    *check = PAPI_lock( *lock );
}

PAPI_FCALL() [32/51]

PAPI_FCALL	(	papif_num_cmp_hwctrs	,
		PAPIF_num_cmp_hwctrs	,
		(int *cidx, int *num)
	)

Definition at line 381 of file papi_fwrappers.c.

{
    *num = PAPI_num_cmp_hwctrs( *cidx );
}

PAPI_FCALL() [33/51]

PAPI_FCALL	(	papif_perror	,
		PAPIF_PERROR	,
		(char *message)
	)

Definition at line 640 of file papi_fwrappers.c.

{
#if defined(_FORTRAN_STRLEN_AT_END)
        char tmp[PAPI_MAX_STR_LEN];
        Fortran2cstring( tmp, message, PAPI_MAX_STR_LEN, message_len );
 
    PAPI_perror( tmp );
#else
    PAPI_perror( message );
#endif
}

Here is the call graph for this function:

PAPI_FCALL() [34/51]

PAPI_FCALL	(	papif_query_event	,
		PAPIF_QUERY_EVENT	,
		(int *EventCode, int *check)
	)

Definition at line 672 of file papi_fwrappers.c.

{
    *check = PAPI_query_event( *EventCode );
}

PAPI_FCALL() [35/51]

PAPI_FCALL	(	papif_query_named_event	,
		PAPIF_QUERY_NAMED_EVENT	,
		(char *EventName, int *check)
	)

Definition at line 697 of file papi_fwrappers.c.

{
    *check = PAPI_query_named_event( EventName );
}

PAPI_FCALL() [36/51]

PAPI_FCALL	(	papif_rate_stop	,
		PAPIF_RATE_STOP	,
		(int *check)
	)

Definition at line 1407 of file papi_fwrappers.c.

{
    *check = PAPI_rate_stop( );
}

PAPI_FCALL() [37/51]

PAPI_FCALL	(	papif_read	,
		PAPIF_READ	,
		(int *EventSet, long long *values, int *check)
	)

Definition at line 882 of file papi_fwrappers.c.

{
    *check = PAPI_read( *EventSet, values );
}

PAPI_FCALL() [38/51]

PAPI_FCALL	(	papif_read_ts	,
		PAPIF_READ_TS	,
		(int *EventSet, long long *values, long long *cycles, int *check)
	)

Definition at line 898 of file papi_fwrappers.c.

{
    *check = PAPI_read_ts( *EventSet, values, cycles );
}

PAPI_FCALL() [39/51]

PAPI_FCALL	(	papif_remove_event	,
		PAPIF_REMOVE_EVENT	,
		(int *EventSet, int *Event, int *check)
	)

Definition at line 914 of file papi_fwrappers.c.

{
    *check = PAPI_remove_event( *EventSet, *Event );
}

PAPI_FCALL() [40/51]

PAPI_FCALL	(	papif_remove_events	,
		PAPIF_REMOVE_EVENTS	,
		(int *EventSet, int *Events, int *number, int *check)
	)

Definition at line 956 of file papi_fwrappers.c.

{
    *check = PAPI_remove_events( *EventSet, Events, *number );
}

PAPI_FCALL() [41/51]

PAPI_FCALL	(	papif_remove_named_event	,
		PAPIF_REMOVE_NAMED_EVENT	,
		(int *EventSet, char *EventName, int *check)
	)

Definition at line 939 of file papi_fwrappers.c.

{
    *check = PAPI_remove_named_event( *EventSet, EventName );
}

PAPI_FCALL() [42/51]

PAPI_FCALL	(	papif_set_cmp_domain	,
		PAPIF_SET_CMP_DOMAIN	,
		(int *domain, int *cidx, int *check)
	)

Definition at line 1017 of file papi_fwrappers.c.

{
    *check = PAPI_set_cmp_domain( *domain, *cidx );
}

PAPI_FCALL() [43/51]

PAPI_FCALL	(	papif_set_cmp_granularity	,
		PAPIF_SET_CMP_GRANULARITY	,
		(int *granularity, int *cidx, int *check)
	)

Definition at line 1049 of file papi_fwrappers.c.

{
    *check = PAPI_set_cmp_granularity( *granularity, *cidx );
}

PAPI_FCALL() [44/51]

PAPI_FCALL	(	papif_set_event_domain	,
		PAPIF_SET_EVENT_DOMAIN	,
		(int *es, int *domain, int *check)
	)

Definition at line 1300 of file papi_fwrappers.c.

{
    PAPI_option_t d;
 
    d.domain.domain = *domain;
    d.domain.eventset = *es;
    *check = PAPI_set_opt( PAPI_DOMAIN, &d );
}

PAPI_FCALL() [45/51]

PAPI_FCALL	(	papif_set_granularity	,
		PAPIF_SET_GRANULARITY	,
		(int *granularity, int *check)
	)

Definition at line 1033 of file papi_fwrappers.c.

{
    *check = PAPI_set_granularity( *granularity );
}

PAPI_FCALL() [46/51]

PAPI_FCALL	(	papif_set_multiplex	,
		PAPIF_SET_MULTIPLEX	,
		(int *EventSet, int *check)
	)

Definition at line 619 of file papi_fwrappers.c.

{
    *check = PAPI_set_multiplex( *EventSet );
}

PAPI_FCALL() [47/51]

PAPI_FCALL	(	papif_state	,
		PAPIF_STATE	,
		(int *EventSet, int *status, int *check)
	)

Definition at line 1095 of file papi_fwrappers.c.

{
    *check = PAPI_state( *EventSet, status );
}

PAPI_FCALL() [48/51]

PAPI_FCALL	(	papif_stop	,
		PAPIF_STOP	,
		(int *EventSet, long long *values, int *check)
	)

Definition at line 1111 of file papi_fwrappers.c.

{
    *check = PAPI_stop( *EventSet, values );
}

PAPI_FCALL() [49/51]

PAPI_FCALL	(	papif_thread_init	,
		PAPIF_THREAD_INIT	,
		(unsigned long int(*handle)(void), int *check)
	)

Definition at line 556 of file papi_fwrappers.c.

{
    *check = PAPI_thread_init( handle );
}

PAPI_FCALL() [50/51]

PAPI_FCALL	(	papif_unlock	,
		PAPIF_unlock	,
		(int *lock, int *check)
	)

Definition at line 1159 of file papi_fwrappers.c.

{
    *check = PAPI_unlock( *lock );
}

PAPI_FCALL() [51/51]

PAPI_FCALL	(	papif_write	,
		PAPIF_WRITE	,
		(int *EventSet, long long *values, int *check)
	)

Definition at line 1127 of file papi_fwrappers.c.

{
    *check = PAPI_write( *EventSet, values );
}

Variable Documentation

check

* check = PAPI_set_opt( PAPI_INHERIT, &i )

Definition at line 1325 of file papi_fwrappers.c.

handle_index

* handle_index = 0

Definition at line 1428 of file papi_fwrappers.c.

inherit

i inherit inherit = *inherit

Definition at line 1324 of file papi_fwrappers.c.

sysdetect_fort_handle

void* sysdetect_fort_handle

static

Definition at line 1413 of file papi_fwrappers.c.