same_clock Function

private function same_clock(a, b)

True if a points to the clock b.

Arguments

Type IntentOptional Attributes Name
type(SimulationClock), intent(in), pointer :: a

the clock pointer (may be null)
class(SimulationClock), intent(in), target :: b

the clock

Return Value logical


Called by

proc~~same_clock~~CalledByGraph proc~same_clock same_clock proc~synchronize SimulationClock%synchronize proc~synchronize->proc~same_clock proc~synchronize->proc~synchronize

Source Code

    logical function same_clock(a, b)
        type(SimulationClock), pointer, intent(in) :: a !! the clock pointer (may be null)
        class(SimulationClock), intent(in), target :: b !! the clock
        select type (b)
        type is (SimulationClock)
            same_clock = associated(a, b)
        class default
            same_clock = .false.
        end select
    end function same_clock