1 ! Copyright (c) 2013-2014. The SimGrid Team.
4 ! This program is free software; you can redistribute it and/or modify it
5 ! under the terms of the license (GNU LGPL) which comes with this package.
13 double precision p, t, e
16 call MPI_Comm_rank(MPI_COMM_WORLD, rank, ierr)
18 pstates = smpi_get_host_nb_pstates()
22 print *, '[', t, '] [rank ', rank, ']', pstates, 'pstates available'
24 p = smpi_get_host_power_peak_at(i)
25 print *, '[', t, '] [rank ', rank, '] Power: ', p
29 call smpi_set_host_power_peak_at(i)
31 p = smpi_get_host_current_power_peak()
32 print *, '[', t, '] [rank ', rank, '] Current pstate: ', i, '; Current power: ', p
35 call smpi_execute_flops(e)
38 e = smpi_get_host_consumed_energy()
39 print *, '[', t, '] [rank ', rank, '] Energy consumed (Joules): ', e
42 call MPI_Finalize(ierr)