tem_getTimerName Function

public pure function tem_getTimerName(me, timerHandle) result(timerName)

Write out the timer name and its value

Arguments

Type IntentOptional Attributes Name
type(tem_labeledtimer_type), intent(in), optional :: me

timer object
integer, intent(in) :: timerHandle

timer handle

Return Value character(len=labelLen)

name of the timer


Called by

proc~~tem_gettimername~~CalledByGraph proc~tem_gettimername tem_getTimerName proc~tem_finalize tem_finalize proc~tem_finalize->proc~tem_gettimername

Source Code

  pure function tem_getTimerName( me, timerHandle ) result( timerName )
    ! -------------------------------------------------------------------- !
    !> timer object
    type(tem_labeledtimer_type), intent(in), optional :: me
    !> timer handle
    integer, intent(in) :: timerHandle
    !> name of the timer
    character(len=labelLen) :: timerName
    ! -------------------------------------------------------------------- !

    if ( present(me) ) then
      timerName = trim( me%label%val(timerHandle) )
    else
      timerName = trim( timer%label%val(timerHandle) )
    end if

  end function tem_getTimerName