A
lgorithmique
N
umérique
D
istribuée
Public GIT Repository
projects
/
simgrid.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
error during modification(cherry picked from commit ac3a4c06f30f861cef2a98f12f5a5d195...
[simgrid.git]
/
src
/
smpi
/
smpi_dvfs.c
diff --git
a/src/smpi/smpi_dvfs.c
b/src/smpi/smpi_dvfs.c
index
b5aee9a
..
4a71979
100644
(file)
--- a/
src/smpi/smpi_dvfs.c
+++ b/
src/smpi/smpi_dvfs.c
@@
-59,3
+59,39
@@
double smpi_get_host_consumed_energy(void)
{
return simcall_host_get_consumed_energy(SIMIX_host_self());
}
+
+#include "smpi/smpif.h"
+
+#ifdef SMPI_F2C
+
+XBT_PUBLIC(doublereal) smpi_get_host_power_peak_at_(integer *pstate_index);
+doublereal smpi_get_host_power_peak_at_(integer *pstate_index)
+{
+ return (doublereal)smpi_get_host_power_peak_at((int)*pstate_index);
+}
+
+XBT_PUBLIC(doublereal) smpi_get_host_current_power_peak_(void);
+doublereal smpi_get_host_current_power_peak_(void)
+{
+ return smpi_get_host_current_power_peak();
+}
+
+XBT_PUBLIC(integer) smpi_get_host_nb_pstates_(void);
+integer smpi_get_host_nb_pstates_(void)
+{
+ return (integer)smpi_get_host_nb_pstates();
+}
+
+XBT_PUBLIC(void) smpi_set_host_power_peak_at_(integer *pstate_index);
+void smpi_set_host_power_peak_at_(integer *pstate_index)
+{
+ smpi_set_host_power_peak_at((int)*pstate_index);
+}
+
+XBT_PUBLIC(doublereal) smpi_get_host_consumed_energy_(void);
+doublereal smpi_get_host_consumed_energy_(void)
+{
+ return (doublereal)smpi_get_host_consumed_energy();
+}
+
+#endif