same_pointer Function

private function same_pointer(a, b)

Whether two frame pointers are both null or point to the same frame.

Arguments

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

the pointers
class(ReferenceFrame), intent(in), pointer :: b

the pointers

Return Value logical


Called by

proc~~same_pointer~~CalledByGraph proc~same_pointer same_pointer proc~motion_changed motion_changed proc~motion_changed->proc~same_pointer proc~data_changed data_changed proc~data_changed->proc~motion_changed proc~marker_update MarkerArtist%marker_update proc~marker_update->proc~data_changed proc~segment_update SegmentArtist%segment_update proc~segment_update->proc~data_changed proc~write_changed write_changed proc~write_changed->proc~data_changed proc~chain_update ChainArtist%chain_update proc~chain_update->proc~write_changed proc~curve_update CurveArtist%curve_update proc~curve_update->proc~write_changed

Source Code

    logical function same_pointer(a, b)
        class(ReferenceFrame), pointer, intent(in) :: a, b  !! the pointers
        if (associated(a)) then
            same_pointer = associated(b, a)
        else
            same_pointer = .not. associated(b)
        end if
    end function same_pointer