papi_fwrappers.c

Go to the documentation of this file.

/****************************/
/* THIS IS OPEN SOURCE CODE */
/****************************/

/* 
* File:    papi_fwrappers.c
* CVS:     $Id$
* Author:  Philip Mucci
*          mucci@cs.utk.edu
* Mods:    Nils Smeds
*          smeds@pdc.kth.se
*          Anders Nilsson
*          anni@pdc.kth.se
*      Kevin London
*      london@cs.utk.edu
*      dan terpstra
*      terpstra@cs.utk.edu
*          Min Zhou
*      min@cs.utk.edu
*/

#include <stdio.h>
#include <assert.h>
#include <string.h>
#include "papi.h"

/* Lets use defines to rename all the files */

#ifdef FORTRANUNDERSCORE
#define PAPI_FCALL(function,caps,args) void function##_ args
#elif FORTRANDOUBLEUNDERSCORE
#define PAPI_FCALL(function,caps,args) void function##__ args
#elif FORTRANCAPS
#define PAPI_FCALL(function,caps,args) void caps args
#else
#define PAPI_FCALL(function,caps,args) void function args
#endif

/* Many Unix systems passes Fortran string lengths as extra arguments */
#if defined(_AIX) || defined(sun) || defined(linux)
#define _FORTRAN_STRLEN_AT_END
#endif
/* The Low Level Wrappers */

/* helper routine to convert Fortran strings to C strings */
#if defined(_FORTRAN_STRLEN_AT_END)
static void Fortran2cstring( char *cstring, char *Fstring, int clen , int Flen )
{
    int slen, i;

    /* What is the maximum number of chars to copy ? */
    slen = Flen < clen ? Flen : clen;
    strncpy( cstring, Fstring, ( size_t ) slen );

    /* Remove trailing blanks from initial Fortran string */
    for ( i = slen - 1; i > -1 && cstring[i] == ' '; cstring[i--] = '\0' );

    /* Make sure string is NULL terminated */
    cstring[clen - 1] = '\0';
    if ( slen < clen )
        cstring[slen] = '\0';
}
#endif

PAPI_FCALL( papif_accum, PAPIF_ACCUM,
            ( int *EventSet, long long *values, int *check ) )
{
    *check = PAPI_accum( *EventSet, values );
}

PAPI_FCALL( papif_add_event, PAPIF_ADD_EVENT,
            ( int *EventSet, int *Event, int *check ) )
{
    *check = PAPI_add_event( *EventSet, *Event );
}

#if defined(_FORTRAN_STRLEN_AT_END)
PAPI_FCALL( papif_add_named_event, PAPIF_ADD_NAMED_EVENT,
            ( int *EventSet, char *EventName, int *check, int Event_len ) )
{
    char tmp[PAPI_MAX_STR_LEN];
    Fortran2cstring( tmp, EventName, PAPI_MAX_STR_LEN, Event_len );
    *check = PAPI_add_named_event( *EventSet, tmp );    
}
#else
PAPI_FCALL( papif_add_named_event, PAPIF_ADD_NAMED_EVENT,
            ( int *EventSet, char *EventName, int *check ) )
{
    *check = PAPI_add_named_event( *EventSet, EventName );
}
#endif

PAPI_FCALL( papif_add_events, PAPIF_ADD_EVENTS,
            ( int *EventSet, int *Events, int *number, int *check ) )
{
    *check = PAPI_add_events( *EventSet, Events, *number );
}

PAPI_FCALL( papif_cleanup_eventset, PAPIF_CLEANUP_EVENTSET,
            ( int *EventSet, int *check ) )
{
    *check = PAPI_cleanup_eventset( *EventSet );
}

PAPI_FCALL( papif_create_eventset, PAPIF_CREATE_EVENTSET,
            ( int *EventSet, int *check ) )
{
    *check = PAPI_create_eventset( EventSet );
}

PAPI_FCALL( papif_assign_eventset_component, PAPIF_ASSIGN_EVENTSET_COMPONENT,
            ( int *EventSet, int *cidx, int *check ) )
{
    *check = PAPI_assign_eventset_component( *EventSet, *cidx );
}

PAPI_FCALL( papif_destroy_eventset, PAPIF_DESTROY_EVENTSET,
            ( int *EventSet, int *check ) )
{
    *check = PAPI_destroy_eventset( EventSet );
}

 /* XXX This looks totally broken. Should be passed all the members of the dmem_info struct. */
PAPI_FCALL( papif_get_dmem_info, PAPIF_GET_DMEM_INFO,
            ( long long *dest, int *check ) )
{
    *check = PAPI_get_dmem_info( ( PAPI_dmem_info_t * ) dest );
}

#if defined(_FORTRAN_STRLEN_AT_END)
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, int fullname_len, int name_len ) )
#else
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 ) )
#endif
{
    PAPI_option_t e;
/* WARNING: The casts from caddr_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;
    }
}

#if defined(_FORTRAN_STRLEN_AT_END)
PAPI_FCALL( papif_get_hardware_info, PAPIF_GET_HARDWARE_INFO, ( int *ncpu,
                                                                int *nnodes,
                                                                int *totalcpus,
                                                                int *vendor,
                                                                char
                                                                *vendor_str,
                                                                int *model,
                                                                char *model_str,
                                                                float *revision,
                                                                float *mhz,
                                                                int vendor_len,
                                                                int
                                                                model_len ) )
#else
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 ) )
#endif
{
    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( papif_num_hwctrs, PAPIF_num_hwctrs, ( int *num ) )
{
    *num = PAPI_num_hwctrs(  );
}

PAPI_FCALL( papif_num_cmp_hwctrs, PAPIF_num_cmp_hwctrs,
            ( int *cidx, int *num ) )
{
    *num = PAPI_num_cmp_hwctrs( *cidx );
}

PAPI_FCALL( papif_get_real_cyc, PAPIF_GET_REAL_CYC, ( long long *real_cyc ) )
{
    *real_cyc = PAPI_get_real_cyc(  );
}

PAPI_FCALL( papif_get_real_usec, PAPIF_GET_REAL_USEC, ( long long *time ) )
{
    *time = PAPI_get_real_usec(  );
}

PAPI_FCALL( papif_get_real_nsec, PAPIF_GET_REAL_NSEC, ( long long *time ) )
{
    *time = PAPI_get_real_nsec(  );
}

PAPI_FCALL( papif_get_virt_cyc, PAPIF_GET_VIRT_CYC, ( long long *virt_cyc ) )
{
    *virt_cyc = PAPI_get_virt_cyc(  );
}

PAPI_FCALL( papif_get_virt_usec, PAPIF_GET_VIRT_USEC, ( long long *time ) )
{
    *time = PAPI_get_virt_usec(  );
}

PAPI_FCALL( papif_is_initialized, PAPIF_IS_INITIALIZED, ( int *level ) )
{
    *level = PAPI_is_initialized(  );
}

PAPI_FCALL( papif_library_init, PAPIF_LIBRARY_INIT, ( int *check ) )
{
    *check = PAPI_library_init( *check );
}

PAPI_FCALL( papif_thread_id, PAPIF_THREAD_ID, ( unsigned long *id ) )
{
    *id = PAPI_thread_id(  );
}

PAPI_FCALL( papif_register_thread, PAPIF_REGISTER_THREAD, ( int *check ) )
{
    *check = PAPI_register_thread(  );
}

PAPI_FCALL( papif_unregster_thread, PAPIF_UNREGSTER_THREAD, ( int *check ) )
{
    *check = PAPI_unregister_thread(  );
}

/* This must be passed an EXTERNAL or INTRINISIC FUNCTION not a SUBROUTINE */
PAPI_FCALL( papif_thread_init, PAPIF_THREAD_INIT,
            ( unsigned long int ( *handle ) ( void ), int *check ) )
{
    *check = PAPI_thread_init( handle );
}

PAPI_FCALL( papif_list_events, PAPIF_LIST_EVENTS,
            ( int *EventSet, int *Events, int *number, int *check ) )
{
    *check = PAPI_list_events( *EventSet, Events, number );
}

PAPI_FCALL( papif_multiplex_init, PAPIF_MULTIPLEX_INIT, ( int *check ) )
{
    *check = PAPI_multiplex_init(  );
}

PAPI_FCALL( papif_get_multiplex, PAPIF_GET_MULTIPLEX,
            ( int *EventSet, int *check ) )
{
    *check = PAPI_get_multiplex( *EventSet );
}

PAPI_FCALL( papif_set_multiplex, PAPIF_SET_MULTIPLEX,
            ( int *EventSet, int *check ) )
{
    *check = PAPI_set_multiplex( *EventSet );
}

#if defined(_FORTRAN_STRLEN_AT_END)
PAPI_FCALL( papif_perror, PAPIF_PERROR,
            ( char *message,
              int message_len ) )
#else
PAPI_FCALL( papif_perror, PAPIF_PERROR,
            ( char *message ) )
#endif
{
#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
}

/* This will not work until Fortran2000 :)
 * PAPI_FCALL(papif_profil, PAPIF_PROFIL, (unsigned short *buf, unsigned *bufsiz, unsigned long *offset, unsigned *scale, unsigned *eventset, 
 *            unsigned *eventcode, unsigned *threshold, unsigned *flags, unsigned *check))
 * {
 * *check = PAPI_profil(buf, *bufsiz, *offset, *scale, *eventset, *eventcode, *threshold, *flags);
 * }
 */

PAPI_FCALL( papif_query_event, PAPIF_QUERY_EVENT,
            ( int *EventCode, int *check ) )
{
    *check = PAPI_query_event( *EventCode );
}

#if defined(_FORTRAN_STRLEN_AT_END)
PAPI_FCALL( papif_query_named_event, PAPIF_QUERY_NAMED_EVENT,
            ( char *EventName, int *check, int Event_len ) )
{
    char tmp[PAPI_MAX_STR_LEN];
    Fortran2cstring( tmp, EventName, PAPI_MAX_STR_LEN, Event_len );
    *check = PAPI_query_named_event( tmp ); 
}
#else
PAPI_FCALL( papif_query_named_event, PAPIF_QUERY_NAMED_EVENT,
            ( char *EventName, int *check ) )
{
    *check = PAPI_query_named_event( EventName );
}
#endif

#if defined(_FORTRAN_STRLEN_AT_END)
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,
              int symbol_len, int long_descr_len, int short_descr_len,
              int event_note_len ) )
#else
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 ) )
#endif
{
    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
}

#if defined(_FORTRAN_STRLEN_AT_END)
PAPI_FCALL( papif_event_code_to_name, PAPIF_EVENT_CODE_TO_NAME,
            ( int *EventCode, char *out_str, int *check, int out_len ) )
#else
PAPI_FCALL( papif_event_code_to_name, PAPIF_EVENT_CODE_TO_NAME,
            ( int *EventCode, char *out, int *check ) )
#endif
{
#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
}

#if defined(_FORTRAN_STRLEN_AT_END)
PAPI_FCALL( papif_event_name_to_code, PAPIF_EVENT_NAME_TO_CODE,
            ( char *in_str, int *out, int *check, int in_len ) )
#else
PAPI_FCALL( papif_event_name_to_code, PAPIF_EVENT_NAME_TO_CODE,
            ( char *in, int *out, int *check ) )
#endif
{
#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( papif_num_events, PAPIF_NUM_EVENTS, ( int *EventCode, int *count ) )
{
    *count = PAPI_num_events( *EventCode );
}

PAPI_FCALL( papif_enum_event, PAPIF_ENUM_EVENT,
            ( int *EventCode, int *modifier, int *check ) )
{
    *check = PAPI_enum_event( EventCode, *modifier );
}

PAPI_FCALL( papif_read, PAPIF_READ,
            ( int *EventSet, long long *values, int *check ) )
{
    *check = PAPI_read( *EventSet, values );
}

PAPI_FCALL( papif_read_ts, PAPIF_READ_TS,
            ( int *EventSet, long long *values, long long *cycles, int *check ) )
{
    *check = PAPI_read_ts( *EventSet, values, cycles );
}

PAPI_FCALL( papif_remove_event, PAPIF_REMOVE_EVENT,
            ( int *EventSet, int *Event, int *check ) )
{
    *check = PAPI_remove_event( *EventSet, *Event );
}

#if defined(_FORTRAN_STRLEN_AT_END)
PAPI_FCALL( papif_remove_named_event, PAPIF_REMOVE_NAMED_EVENT,
            ( int *EventSet, char *EventName, int *check, int Event_len ) )
{
    char tmp[PAPI_MAX_STR_LEN];
    Fortran2cstring( tmp, EventName, PAPI_MAX_STR_LEN, Event_len );
    *check = PAPI_remove_named_event( *EventSet, tmp ); 
}
#else
PAPI_FCALL( papif_remove_named_event, PAPIF_REMOVE_NAMED_EVENT,
            ( int *EventSet, char *EventName, int *check ) )
{
    *check = PAPI_remove_named_event( *EventSet, EventName );
}
#endif

PAPI_FCALL( papif_remove_events, PAPIF_REMOVE_EVENTS,
            ( int *EventSet, int *Events, int *number, int *check ) )
{
    *check = PAPI_remove_events( *EventSet, Events, *number );
}

PAPI_FCALL( papif_reset, PAPIF_RESET, ( int *EventSet, int *check ) )
{
    *check = PAPI_reset( *EventSet );
}

PAPI_FCALL( papif_set_debug, PAPIF_SET_DEBUG, ( int *debug, int *check ) )
{
    *check = PAPI_set_debug( *debug );
}

PAPI_FCALL( papif_set_domain, PAPIF_SET_DOMAIN, ( int *domain, int *check ) )
{
    *check = PAPI_set_domain( *domain );
}

PAPI_FCALL( papif_set_cmp_domain, PAPIF_SET_CMP_DOMAIN,
            ( int *domain, int *cidx, int *check ) )
{
    *check = PAPI_set_cmp_domain( *domain, *cidx );
}

PAPI_FCALL( papif_set_granularity, PAPIF_SET_GRANULARITY,
            ( int *granularity, int *check ) )
{
    *check = PAPI_set_granularity( *granularity );
}

PAPI_FCALL( papif_set_cmp_granularity, PAPIF_SET_CMP_GRANULARITY,
            ( int *granularity, int *cidx, int *check ) )
{
    *check = PAPI_set_cmp_granularity( *granularity, *cidx );
}

PAPI_FCALL( papif_shutdown, PAPIF_SHUTDOWN, ( void ) )
{
    PAPI_shutdown(  );
}

PAPI_FCALL( papif_start, PAPIF_START, ( int *EventSet, int *check ) )
{
    *check = PAPI_start( *EventSet );
}

PAPI_FCALL( papif_state, PAPIF_STATE,
            ( int *EventSet, int *status, int *check ) )
{
    *check = PAPI_state( *EventSet, status );
}

PAPI_FCALL( papif_stop, PAPIF_STOP,
            ( int *EventSet, long long *values, int *check ) )
{
    *check = PAPI_stop( *EventSet, values );
}

PAPI_FCALL( papif_write, PAPIF_WRITE,
            ( int *EventSet, long long *values, int *check ) )
{
    *check = PAPI_write( *EventSet, values );
}

PAPI_FCALL( papif_lock, PAPIF_LOCK,
            ( int *lock, int *check ) )
{
    *check = PAPI_lock( *lock );
}

PAPI_FCALL( papif_unlock, PAPIF_unlock,
            ( int *lock, int *check ) )
{
    *check = PAPI_unlock( *lock );
}

/* The High Level API Wrappers */

PAPI_FCALL( papif_start_counters, PAPIF_START_COUNTERS,
            ( int *events, int *array_len, int *check ) )
{
    *check = PAPI_start_counters( events, *array_len );
}

PAPI_FCALL( papif_read_counters, PAPIF_READ_COUNTERS,
            ( long long *values, int *array_len, int *check ) )
{
    *check = PAPI_read_counters( values, *array_len );
}

PAPI_FCALL( papif_stop_counters, PAPIF_STOP_COUNTERS,
            ( long long *values, int *array_len, int *check ) )
{
    *check = PAPI_stop_counters( values, *array_len );
}

PAPI_FCALL( papif_accum_counters, PAPIF_ACCUM_COUNTERS,
            ( long long *values, int *array_len, int *check ) )
{
    *check = PAPI_accum_counters( values, *array_len );
}

PAPI_FCALL( papif_num_counters, PAPIF_NUM_COUNTERS, ( int *numevents ) )
{
    *numevents = PAPI_num_counters(  );
}

PAPI_FCALL( papif_ipc, PAPIF_IPC,
            ( float *rtime, float *ptime, long long *ins, float *ipc,
              int *check ) )
{
    *check = PAPI_ipc( rtime, ptime, ins, ipc );
}

PAPI_FCALL( papif_flips, PAPIF_FLIPS,
            ( float *real_time, float *proc_time, long long *flpins,
              float *mflips, int *check ) )
{
    *check = PAPI_flips( real_time, proc_time, flpins, mflips );
}

PAPI_FCALL( papif_flops, PAPIF_FLOPS,
            ( float *real_time, float *proc_time, long long *flpops,
              float *mflops, int *check ) )
{
    *check = PAPI_flops( real_time, proc_time, flpops, mflops );
}


/* Fortran only APIs for get_opt and set_opt functionality */

PAPI_FCALL( papif_get_clockrate, PAPIF_GET_CLOCKRATE, ( int *cr ) )
{
    *cr = PAPI_get_opt( PAPI_CLOCKRATE, NULL );
}

#if defined(_FORTRAN_STRLEN_AT_END)
PAPI_FCALL( papif_get_preload, PAPIF_GET_PRELOAD,
            ( char *lib_preload_env, int *check, int lib_preload_env_len ) )
#else
PAPI_FCALL( papif_get_preload, PAPIF_GET_PRELOAD,
            ( char *lib_preload_env, int *check ) )
#endif
{
    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( papif_get_granularity, PAPIF_GET_GRANULARITY,
            ( int *eventset, int *granularity, int *mode, int *check ) )
{
    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( papif_get_domain, PAPIF_GET_DOMAIN,
            ( int *eventset, int *domain, int *mode, int *check ) )
{
    PAPI_option_t d;

    if ( *mode == PAPI_DEFDOM ) {
        *domain = PAPI_get_opt( *mode, 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;
    }
}

#if 0
PAPI_FCALL( papif_get_inherit, PAPIF_GET_INHERIT, ( int *inherit, int *check ) )
{
    PAPI_option_t i;

    if ( ( *check = PAPI_get_opt( PAPI_INHERIT, &i ) ) == PAPI_OK ) {
        *inherit = i.inherit.inherit;
    }
}
#endif

PAPI_FCALL( papif_set_event_domain, PAPIF_SET_EVENT_DOMAIN,
            ( int *es, int *domain, int *check ) )
{
    PAPI_option_t d;

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

PAPI_FCALL( papif_set_inherit, PAPIF_SET_INHERIT, ( int *inherit, int *check ) )
{
    PAPI_option_t i;

    i.inherit.inherit = *inherit;
    *check = PAPI_set_opt( PAPI_INHERIT, &i );
}