7 double precision p, t, e
10 call MPI_Comm_rank(MPI_COMM_WORLD, rank, ierr)
12 pstates = smpi_get_host_nb_pstates()
16 print *, '[', t, '] [rank ', rank, ']',
17 & pstates, 'pstates available'
20 p = smpi_get_host_power_peak_at(i)
21 print *, '[', t, '] [rank ', rank, '] Power: ', p
25 call smpi_set_host_power_peak_at(i)
27 p = smpi_get_host_current_power_peak()
28 print *, '[', t, '] [rank ', rank, '] Current pstate: ', i,
29 & '; Current power: ', p
32 call smpi_execute_flops(e)
35 e = smpi_get_host_consumed_energy()
36 print *, '[', t, '] [rank ', rank, ']',
37 & 'Energy consumed (Joules): ', e
40 call MPI_Finalize(ierr)