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

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
            write (*, *) "Error: Unknown time label"
            stop
        end select
    end subroutine record_timestamp