detach Subroutine

private subroutine detach(self)

Remove the chunks from the group (also while running), and release them.

Type Bound

LineChain

Arguments

Type IntentOptional Attributes Name
class(LineChain), intent(inout) :: self

Calls

proc~~detach~~CallsGraph proc~detach LineChain%detach interface~vkf_node_remove_child vkf_node_remove_child proc~detach->interface~vkf_node_remove_child proc~check_status check_status proc~detach->proc~check_status proc~release~2 LineChain%release proc~detach->proc~release~2 interface~vkf_node_delete vkf_node_delete proc~release~2->interface~vkf_node_delete

Called by

proc~~detach~~CalledByGraph proc~detach LineChain%detach proc~rebuild_markers rebuild_markers proc~rebuild_markers->proc~detach proc~write_changed write_changed proc~write_changed->proc~detach proc~chain_update ChainArtist%chain_update proc~chain_update->proc~write_changed proc~curve_update CurveArtist%curve_update proc~curve_update->proc~write_changed proc~marker_set_point_colors MarkerArtist%marker_set_point_colors proc~marker_set_point_colors->proc~rebuild_markers proc~marker_update MarkerArtist%marker_update proc~marker_update->proc~rebuild_markers proc~set_marker_image MarkerArtist%set_marker_image proc~set_marker_image->proc~rebuild_markers

Source Code

    subroutine detach(self)
        class(LineChain), intent(inout) :: self
        integer :: j
        do j = 1, self%n_chunks
            call check_status(vkf_node_remove_child(self%group, self%chunks(j)%line), 'trajectory artists')
        end do
        call self%release()
    end subroutine detach