flop_rate_report Subroutine

private subroutine flop_rate_report(self)

report the flop rate, this will print the flop rate in GFLOP/s

Usage: call my_flop_rate%report()

where my_flop_rate is an instance of flop_rate_type

Type Bound

flop_rate_type

Arguments

Type IntentOptional Attributes Name
class(flop_rate_type), intent(inout) :: self

Calls

proc~~flop_rate_report~~CallsGraph proc~flop_rate_report flop_rate_type%flop_rate_report interface~to_string to_string proc~flop_rate_report->interface~to_string proc~flop_rate_get_flop_rate flop_rate_type%flop_rate_get_flop_rate proc~flop_rate_report->proc~flop_rate_get_flop_rate proc~to_string_char to_string_char interface~to_string->proc~to_string_char proc~to_string_dp to_string_dp interface~to_string->proc~to_string_dp proc~to_string_int32 to_string_int32 interface~to_string->proc~to_string_int32 proc~to_string_int64 to_string_int64 interface~to_string->proc~to_string_int64 proc~to_string_logical to_string_logical interface~to_string->proc~to_string_logical proc~to_string_sp to_string_sp interface~to_string->proc~to_string_sp proc~get_flops flop_recorder_type%get_flops proc~flop_rate_get_flop_rate->proc~get_flops proc~timer_get_elapsed_time pic_timer_type%timer_get_elapsed_time proc~flop_rate_get_flop_rate->proc~timer_get_elapsed_time

Source Code

   subroutine flop_rate_report(self)
      !! report the flop rate, this will print the flop rate in GFLOP/s
      !!
      !! Usage: call my_flop_rate%report()
      !!
      !! where my_flop_rate is an instance of flop_rate_type
      !!
      class(flop_rate_type), intent(inout) :: self
      self%m_flop_rate = self%get_flop_rate()
      print *, "Flop rate is "//to_string(self%m_flop_rate)//" GFLOP/s"

   end subroutine flop_rate_report