sdr_bitfieldColors Function

public function sdr_bitfieldColors(node, bitfield) result(colchar)

Return all colors of the given bitfield encoded in an array of characters.

The bitfield has to correspond with the color definition in nodes. Each character is supposed to hold an ASCII symbol and by setting the byte bits, we can store up to 7 colors in each character.


type(sdr_node_type), intent(in) :: node

Description of the nodes in the prototree.

integer, intent(in) :: bitfield(:)

Index of the node to evaluate.

Return Value character(node%nColorChars)

Gathered color information in an array of characters.

Called by

proc~~sdr_bitfieldcolors~~CalledByGraph proc~sdr_bitfieldcolors sdr_bitfieldColors proc~sdr_nodecolors sdr_nodeColors proc~sdr_nodecolors->proc~sdr_bitfieldcolors proc~create_target create_target proc~create_target->proc~sdr_bitfieldcolors proc~traverse_tree traverse_tree proc~traverse_tree->proc~sdr_nodecolors proc~traverse_tree->proc~create_target proc~traverse_tree->proc~traverse_tree proc~sdr_proto2treelm sdr_proto2treelm proc~sdr_proto2treelm->proc~traverse_tree program~seeder seeder program~seeder->proc~sdr_proto2treelm



integer, private :: charcount
integer, private :: intcount
integer, private :: charbit
integer, private :: intbit
integer, private :: iColor
integer, private :: iNotNone
integer, private :: tmpColor(node%nColorChars)