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
Add formatting to out fortran energy tests.
[simgrid.git]
/
examples
/
smpi
/
energy
/
f90
/
sef90.f90
diff --git
a/examples/smpi/energy/f90/sef90.f90
b/examples/smpi/energy/f90/sef90.f90
index
14e3a71
..
ebd5485
100644
(file)
--- a/
examples/smpi/energy/f90/sef90.f90
+++ b/
examples/smpi/energy/f90/sef90.f90
@@
-28,24
+28,28
@@
program main
t = MPI_Wtime()
t = MPI_Wtime()
- print *, '[', t, '] [rank ', rank, ']', pstates, 'pstates available'
+ print '(1a,F15.8,1a,i2,1a,i2,1a)', '[', t, '] [rank ', rank, '] ',&
+ pstates, ' pstates available'
do i = 0, pstates - 1
p = smpi_get_host_power_peak_at(i)
do i = 0, pstates - 1
p = smpi_get_host_power_peak_at(i)
- print *, '[', t, '] [rank ', rank, '] Power: ', p
+ print '(1a,F15.8,1a,i2,1a,F15.4)', '[', t, '] [rank ', rank, &
+ '] Power: ', p
end do
do i = 0, pstates - 1
call smpi_set_host_pstate(i)
t = MPI_Wtime()
p = smpi_get_host_current_power_peak()
end do
do i = 0, pstates - 1
call smpi_set_host_pstate(i)
t = MPI_Wtime()
p = smpi_get_host_current_power_peak()
- print *, '[', t, '] [rank ', rank, '] Current pstate: ', i, '; Current power: ', p
+ print '(1a,F15.8,1a,i2,1a,i2,1a,F15.4)', '[', t, '] [rank ', &
+ rank, '] Current pstate: ', i, '; Current power: ', p
e = 1e9
call smpi_execute_flops(e)
t = MPI_Wtime()
e = smpi_get_host_consumed_energy()
e = 1e9
call smpi_execute_flops(e)
t = MPI_Wtime()
e = smpi_get_host_consumed_energy()
- print *, '[', t, '] [rank ', rank, '] Energy consumed (Joules): ', e
+ print '(1a,F15.8,1a,i2,1a,F15.4)', '[', t, '] [rank ', &
+ rank, '] Energy consumed (Joules): ', e
end do
call MPI_Finalize(ierr)
end do
call MPI_Finalize(ierr)