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
pure subroutine fire_colormap(levels,map)integer,intent(in)::levelsinteger,dimension(:,:),allocatable,intent(out)::mapinteger::last,i! Best with 256 levels but you can try other numbers:last=levels-1allocate(map(0:last,1:3))doconcurrent(i=0:last)map(i,1)=nint(last*exp(-((last-i)/200.0_wp)**7.0_wp))map(i,2)=nint(last*exp(-((last-i)/120.0_wp)**1.8_wp))map(i,3)=nint(last*exp(-((last-i)/40.0_wp)**0.7_wp))end do end subroutine fire_colormap