Nodes of different colours represent the following:
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.
Where possible, edges connecting nodes are
given different colours to make them easier to distinguish in
large graphs.
Nodes of different colours represent the following:
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.
Where possible, edges connecting nodes are
given different colours to make them easier to distinguish in
large graphs.
Source Code
elemental pure subroutine set_by_name(this,name)class(color),intent(inout)::thischaracter(len=*),intent(in)::nametype(color),dimension(:),allocatable::colorsinteger::icall initialize_colors(colors)#if defined(__NVCOMPILER)do i=1,size(colors)#elsedoconcurrent(i=1:size(colors))#endifif(trim(colors(i)%color_name)==trim(name))then! this = colors(i)! this = colors(i) relplaced by the following lines to avoid flang compiler issuethis%r=colors(i)%rthis%g=colors(i)%gthis%b=colors(i)%bthis%c=colors(i)%cthis%m=colors(i)%mthis%y=colors(i)%ythis%k=colors(i)%kthis%decimal=colors(i)%decimalthis%hex=colors(i)%hexthis%h=colors(i)%hthis%s=colors(i)%sthis%v=colors(i)%vthis%hl=colors(i)%hlthis%sl=colors(i)%slthis%vl=colors(i)%vlthis%xyz_x=colors(i)%xyz_xthis%xyz_y=colors(i)%xyz_ythis%xyz_z=colors(i)%xyz_zthis%color_name=colors(i)%color_nameend if end do end subroutine set_by_name