record_timestamp Subroutine

private subroutine record_timestamp(self, label)

Type Bound

type_time

Arguments

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

Calls

proc~~record_timestamp~~CallsGraph proc~record_timestamp type_time%record_timestamp proc~error_message error_message proc~record_timestamp->proc~error_message log_error log_error proc~error_message->log_error

Called by

proc~~record_timestamp~~CalledByGraph proc~record_timestamp type_time%record_timestamp proc~initialize_type_ftdss type_ftdss%initialize_type_ftdss proc~initialize_type_ftdss->proc~record_timestamp

Source Code

    subroutine record_timestamp(self, label)
        implicit none
        class(type_time), intent(inout) :: self
        character(*), intent(in) :: label

        select case (trim(label))
        case ("Start")
            call date_and_time(date=self%start%date, time=self%start%time, zone=self%start%zone)
            self%start%label = label
        case ("End")
            call date_and_time(date=self%end%date, time=self%end%time, zone=self%end%zone)
            self%end%label = label
        case default
            call error_message(982, c_opt=label)
        end select
    end subroutine record_timestamp