profile_start_timer Subroutine

private subroutine profile_start_timer(self, label)

Type Bound

type_time

Arguments

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

Calls

proc~~profile_start_timer~~CallsGraph proc~profile_start_timer type_time%profile_start_timer proc~error_message error_message proc~profile_start_timer->proc~error_message proc~get_current_time get_current_time proc~profile_start_timer->proc~get_current_time log_error log_error proc~error_message->log_error

Called by

proc~~profile_start_timer~~CalledByGraph proc~profile_start_timer type_time%profile_start_timer proc~compute_type_hydraulic_crs compute_type_hydraulic_crs proc~compute_type_hydraulic_crs->proc~profile_start_timer proc~compute_type_thermal_crs compute_type_thermal_crs proc~compute_type_thermal_crs->proc~profile_start_timer proc~initialize_type_ftdss type_ftdss%initialize_type_ftdss proc~initialize_type_ftdss->proc~profile_start_timer interface~compute_type_hydraulic_crs type_hydraulic_crs%compute_type_hydraulic_crs interface~compute_type_hydraulic_crs->proc~compute_type_hydraulic_crs interface~compute_type_thermal_crs type_thermal_crs%compute_type_thermal_crs interface~compute_type_thermal_crs->proc~compute_type_thermal_crs

Source Code

    subroutine profile_start_timer(self, label)
        implicit none
        class(type_time), intent(inout) :: self
        character(len=*), intent(in) :: label
        integer(int32) :: i

        do i = 1, size(self%sections)
            if (trim(self%sections(i)%label) == trim(label)) then
                self%sections(i)%start_time = get_current_time()
                return
            end if
        end do

        call error_message(982, c_opt=label)
    end subroutine profile_start_timer