t = MPI_Wtime()
p = smpi_get_host_current_power_peak()
print *, '[', t, '] [rank ', rank, '] Current pstate: ', i, '; Current power: ', p
t = MPI_Wtime()
p = smpi_get_host_current_power_peak()
print *, '[', t, '] [rank ', rank, '] Current pstate: ', i, '; Current power: ', p