examples/smpi/energy/f77/sef.f

   1 ! Copyright (c) 2013-2014. The SimGrid Team.
   2 ! All rights reserved.
   3
   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.
   6
   7       program main
   8       include 'mpif.h'
   9
  10       integer ierr
  11       integer rank, pstates
  12       integer i
  13       double precision p, t, e
  14
  15       call MPI_Init(ierr)
  16       if (ierr .ne. MPI_SUCCESS) then
  17          print *, 'MPI_Init failed:', ierr
  18          stop 1
  19       endif
  20       call MPI_Comm_rank(MPI_COMM_WORLD, rank, ierr)
  21       if (ierr .ne. MPI_SUCCESS) then
  22          print *, 'MPI_Comm_rank failed:', ierr
  23          call MPI_Abort(MPI_COMM_WORLD, 1, ierr)
  24          stop 1
  25       endif
  26
  27       pstates = smpi_get_host_nb_pstates()
  28
  29       t = MPI_Wtime()
  30
  31       print *, '[', t, '] [rank ', rank, ']',
  32      &     pstates, ' pstates available'
  33
  34       do i = 0, pstates - 1
  35          p = smpi_get_host_power_peak_at(i)
  36          print *, '[', t, '] [rank ', rank, '] Power: ', p
  37       end do
  38
  39       do i = 0, pstates - 1
  40          call smpi_set_host_pstate(i)
  41          t = MPI_Wtime()
  42          p = smpi_get_host_current_power_peak()
  43          print *, '[', t, '] [rank ', rank, '] Current pstate: ', i,
  44      &        '; Current power: ', p
  45
  46          e = 1e9
  47          call smpi_execute_flops(e)
  48
  49          t = MPI_Wtime()
  50          e = smpi_get_host_consumed_energy()
  51          print *, '[', t, '] [rank ', rank, ']',
  52      &        ' Energy consumed (Joules): ', e
  53       end do
  54
  55       call MPI_Finalize(ierr)
  56       if (ierr .ne. MPI_SUCCESS) then
  57          print *, 'MPI_Finalize failed:', ierr
  58          call MPI_Abort(MPI_COMM_WORLD, 1, ierr)
  59          stop 1
  60       endif
  61
  62       end program main