release Subroutine

private subroutine release(self)

Forget the chunks (after their group was removed from the scene): init starts again.

Type Bound

LineChain

Arguments

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

Calls

proc~~release~2~~CallsGraph proc~release~2 LineChain%release interface~vkf_node_delete vkf_node_delete proc~release~2->interface~vkf_node_delete

Called by

proc~~release~2~~CalledByGraph proc~release~2 LineChain%release proc~chain_release ChainArtist%chain_release proc~chain_release->proc~release~2 proc~detach LineChain%detach proc~detach->proc~release~2 proc~marker_release MarkerArtist%marker_release proc~marker_release->proc~release~2 proc~segment_release SegmentArtist%segment_release proc~segment_release->proc~release~2 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 release(self)
        class(LineChain), intent(inout) :: self
        integer :: j
        do j = 1, self%n_chunks
            call vkf_node_delete(self%chunks(j)%line)
        end do
        self%n_chunks = 0
        self%group = c_null_ptr
        self%compile_new = .false.
    end subroutine release