timer_type Derived Type

type, public :: timer_type


Components

Type Visibility Attributes Name Initial
character(len=:), public, allocatable :: last
integer, public :: n = 0
type(time_record), public, allocatable :: record(:)

Type-Bound Procedures

procedure, public :: get

  • private function get(self, label) result(time)

    Arguments

    Type IntentOptional Attributes Name
    class(timer_type), intent(in) :: self
    character(len=*), intent(in) :: label

    Return Value real(kind=wp)

procedure, public :: pop

  • private subroutine pop(self)

    Arguments

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

procedure, public :: push

  • private subroutine push(self, label)

    Arguments

    Type IntentOptional Attributes Name
    class(timer_type), intent(inout) :: self
    character(len=*), intent(in) :: label

Source Code

   type :: timer_type
      integer :: n = 0
      character(len=:), allocatable :: last
      type(time_record), allocatable :: record(:)
   contains
      procedure :: push
      procedure :: pop
      procedure :: get
   end type timer_type