NumCyclesColumn.F90 Source File

#include "unused_dummy.H"

module MAPL_NumCyclesColumn
   use MAPL_AbstractColumn
   use MAPL_SimpleColumn
   use MAPL_AbstractMeterNode
   use MAPL_AdvancedMeter
   use MAPL_AbstractMeter
   implicit none
   private

   public :: NumCyclesColumn

   type, extends(SimpleColumn) :: NumCyclesColumn
      private
   contains
      procedure :: get_row
   end type NumCyclesColumn


contains


   function get_row(this, node) result(row)
      class(*), allocatable :: row
      class(NumCyclesColumn), intent(in) :: this
      class (AbstractMeterNode), target, intent(in) :: node
      class (AbstractMeter), pointer :: tmr

      _UNUSED_DUMMY(this)

      tmr => node%get_meter()

      select type (tmr)
      class is (AdvancedMeter)
         allocate(row, source=tmr%get_num_cycles())
      class default
         print*,'error handling here'
      end select

   end function get_row


end module MAPL_NumCyclesColumn