chain_init Subroutine

private subroutine chain_init(self)

The chain, colored if the trajectory's colors are drawn.

Type Bound

ChainArtist

Arguments

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

Calls

proc~~chain_init~~CallsGraph proc~chain_init ChainArtist%chain_init chain_kind chain_kind proc~chain_init->chain_kind proc~init LineChain%init proc~chain_init->proc~init proc~set_compile LineChain%set_compile proc~chain_init->proc~set_compile proc~uses_colors uses_colors proc~chain_init->proc~uses_colors num_colors num_colors proc~uses_colors->num_colors

Called by

proc~~chain_init~~CalledByGraph proc~chain_init ChainArtist%chain_init proc~chain_build ChainArtist%chain_build proc~chain_build->proc~chain_init proc~curve_init_chain CurveArtist%curve_init_chain proc~curve_init_chain->proc~chain_init proc~write_changed write_changed proc~write_changed->proc~chain_init 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

    subroutine chain_init(self)
        class(ChainArtist), intent(inout) :: self
        call self%chain%init(self%group, self%chain_kind(), colored=uses_colors(self))
        call self%chain%set_compile(self%compile)
        self%n_colored = 0
    end subroutine chain_init