same_frame Function

private function same_frame(a, b)

True if a and b are the same frame (object).

Arguments

Type IntentOptional Attributes Name
class(ReferenceFrame), intent(in), target :: a

the frames compared
class(ReferenceFrame), intent(in), target :: b

the frames compared

Return Value logical


Called by

proc~~same_frame~~CalledByGraph proc~same_frame same_frame proc~add_child ReferenceFrame%add_child proc~add_child->proc~same_frame proc~is_descendant is_descendant proc~add_child->proc~is_descendant proc~is_descendant->proc~same_frame proc~is_descendant->proc~is_descendant

Source Code

    logical function same_frame(a, b)
        class(ReferenceFrame), intent(in), target :: a, b   !! the frames compared
        class(ReferenceFrame), pointer :: pa
        pa => a
        same_frame = associated(pa, b)
    end function same_frame