Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Update to Arguments for PAPIF_flops_rate, PAPIF_flips_rate, PAPIF_epc #154

Merged
merged 1 commit into from
Feb 9, 2024
Merged

Update to Arguments for PAPIF_flops_rate, PAPIF_flips_rate, PAPIF_epc #154

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
18 changes: 9 additions & 9 deletions src/papi_fwrappers.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -1348,16 +1348,16 @@ PAPI_FCALL( papif_ipc, PAPIF_IPC,
*
* @par Fortran Interface:
* \#include "fpapi.h" @n
* PAPIF_epc( C_STRING EventName, C_FLOAT real_time, C_FLOAT proc_time, C_LONG_LONG ref, C_LONG_LONG core, C_LONG_LONG evt, C_FLOAT epc, C_INT check )
* PAPIF_epc( C_INT EventCode, C_FLOAT real_time, C_FLOAT proc_time, C_LONG_LONG ref, C_LONG_LONG core, C_LONG_LONG evt, C_FLOAT epc, C_INT check )
*
* @see PAPI_epc
*/
PAPI_FCALL( papif_epc, PAPIF_EPC,
( int event, float *rtime, float *ptime,
( int *EventCode, float *rtime, float *ptime,
long long *ref, long long *core, long long *evt, float *epc,
int *check) )
{
*check = PAPI_epc( event, rtime, ptime, ref, core, evt, epc );
*check = PAPI_epc( *EventCode, rtime, ptime, ref, core, evt, epc );
}

/** @class PAPIF_flips_rate
Expand All @@ -1366,15 +1366,15 @@ PAPI_FCALL( papif_epc, PAPIF_EPC,
*
* @par Fortran Interface:
* \#include "fpapi.h" @n
* PAPIF_flips_rate ( C_STRING EventName, C_FLOAT real_time, C_FLOAT proc_time, C_LONG_LONG flpins, C_FLOAT mflips, C_INT check )
* PAPIF_flips_rate ( C_INT EventCode, C_FLOAT real_time, C_FLOAT proc_time, C_LONG_LONG flpins, C_FLOAT mflips, C_INT check )
*
* @see PAPI_flips_rate
*/
PAPI_FCALL( papif_flips_rate, PAPIF_FLIPS_RATE,
( int event, float *real_time, float *proc_time, long long *flpins,
( int *EventCode, float *real_time, float *proc_time, long long *flpins,
float *mflips, int *check ) )
{
*check = PAPI_flips_rate( event, real_time, proc_time, flpins, mflips );
*check = PAPI_flips_rate( *EventCode, real_time, proc_time, flpins, mflips );
}

/** @class PAPIF_flops_rate
Expand All @@ -1383,15 +1383,15 @@ PAPI_FCALL( papif_flips_rate, PAPIF_FLIPS_RATE,
*
* @par Fortran Interface:
* \#include "fpapi.h" @n
* PAPIF_flops_rate( C_STRING EventName, C_FLOAT real_time, C_FLOAT proc_time, C_LONG_LONG flpops, C_FLOAT mflops, C_INT check )
* PAPIF_flops_rate( C_INT EventCode, C_FLOAT real_time, C_FLOAT proc_time, C_LONG_LONG flpops, C_FLOAT mflops, C_INT check )
*
* @see PAPI_flops_rate
*/
PAPI_FCALL( papif_flops_rate, PAPIF_FLOPS_RATE,
( int event, float *real_time, float *proc_time, long long *flpops,
( int *EventCode, float *real_time, float *proc_time, long long *flpops,
float *mflops, int *check ) )
{
*check = PAPI_flops_rate( event, real_time, proc_time, flpops, mflops );
*check = PAPI_flops_rate( *EventCode, real_time, proc_time, flpops, mflops );
}

/** @class PAPIF_rate_stop
Expand Down
Loading