sec_to_hour_min_sec Function

public pure function sec_to_hour_min_sec(sec) result(hour_min_sec)

Uses

  • proc~~sec_to_hour_min_sec~~UsesGraph proc~sec_to_hour_min_sec sec_to_hour_min_sec iso_fortran_env iso_fortran_env proc~sec_to_hour_min_sec->iso_fortran_env

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

Arguments

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

Return Value integer(kind=int32), (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)
        use, intrinsic :: iso_fortran_env, only: int32

        integer(int32), intent(in) :: sec
        integer(int32) :: hour_min_sec(3)

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