t = MPI_Wtime()
print *, '[', t, '] [rank ', rank, ']',
t = MPI_Wtime()
print *, '[', t, '] [rank ', rank, ']',
t = MPI_Wtime()
e = smpi_get_host_consumed_energy()
print *, '[', t, '] [rank ', rank, ']',
t = MPI_Wtime()
e = smpi_get_host_consumed_energy()
print *, '[', t, '] [rank ', rank, ']',