sec_to_hour_min_sec Function

public pure function sec_to_hour_min_sec(sec) result(hour_min_sec)

Convert second(s) to hour(s), minute(s), and second(s). (KCW, 2024-02-07)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: sec

Return Value integer, (3)


Called by

proc~~sec_to_hour_min_sec~~CalledByGraph proc~sec_to_hour_min_sec sec_to_hour_min_sec proc~dyn_readnl dyn_readnl proc~dyn_readnl->proc~sec_to_hour_min_sec interface~dyn_readnl dyn_readnl interface~dyn_readnl->proc~dyn_readnl

Source Code

    pure function sec_to_hour_min_sec(sec) result(hour_min_sec)
        integer, intent(in) :: sec
        integer :: hour_min_sec(3)

        ! These are all intended to be integer arithmetics.
        hour_min_sec(1) = sec / 3600
        hour_min_sec(2) = sec / 60 - hour_min_sec(1) * 60
        hour_min_sec(3) = sec - hour_min_sec(1) * 3600 - hour_min_sec(2) * 60
    end function sec_to_hour_min_sec