init_level_report_time Subroutine

private subroutine init_level_report_time(self, unit)

Uses

Report the time spent in init for this level

Type Bound

init_level_type

Arguments

Type IntentOptional Attributes Name
class(init_level_type), intent(in) :: self
integer, intent(in), optional :: unit

Contents

Source Code

init_level_report_time

Source Code

  subroutine init_level_report_time(self, unit)
    use iso_fortran_env, only: output_unit
    use optionals, only: get_option_with_default
    implicit none
    class(init_level_type), intent(in) :: self
    integer, intent(in), optional :: unit
    write(get_option_with_default(unit, output_unit), '(A," : ",0pf9.3," seconds")') &
         trim(adjustl(self%name)), self%time_init(1)
  end subroutine init_level_report_time