total_seconds Function

public pure function total_seconds(td) result(secs)

Return the total duration in seconds as real(dp).

Arguments

Type IntentOptional Attributes Name
type(timedelta_type), intent(in) :: td

Return Value real(kind=dp)


Source Code

    pure function total_seconds(td) result(secs)
        !! version: experimental
        !!
        !! Return the total duration in seconds as real(dp).
        type(timedelta_type), intent(in) :: td
        real(dp) :: secs
        secs = real(td%days, dp) * 86400.0_dp &
             + real(td%seconds, dp) &
             + real(td%milliseconds, dp) * 0.001_dp
    end function total_seconds