total_seconds Function

experimental
5 statements
Source File

public pure function total_seconds(td) result(secs)

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

Arguments

Type	Intent	Optional	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