public function sdr_color_log2char(node, logicals) result(colchar)
Return all colors encoded in an array of characters based on an array of
logicals indicating for each color wether it should be set or not.
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.
Arguments
Type Intent Optional Attributes Name
sdr_node_type ),intent(in)
::
node Description of the nodes in the prototree.
intent(in)
::
logicals (:)Flag for each color wether it should be set or not.
Return Value
Gathered color information in an array of characters.
Called by
proc~~sdr_color_log2char~~CalledByGraph
proc~sdr_color_log2char
sdr_color_log2char
proc~create_target
create_target
proc~create_target->proc~sdr_color_log2char
proc~traverse_tree
traverse_tree
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
Nodes of different colours represent the following:
Graph Key
Subroutine
Subroutine
Function
Function
Interface
Interface
Unknown Procedure Type
Unknown Procedure Type
Program
Program
This Page's Entity
This Page's Entity
Solid arrows point from a procedure to one which it calls. Dashed
arrows point from an interface to procedures which implement that interface.
This could include the module procedures in a generic interface or the
implementation in a submodule of an interface in a parent module.
Variables
Type Visibility Attributes Name Initial
private ::
charcount
private ::
charbit
private ::
iColor
private ::
iNotNone
private ::
tmpColor (node%nColorChars)