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 rgb_to_cmyk(r,g,b,c,m,y,k)integer(ik),intent(in)::r,g,binteger(ik),intent(out)::c,m,y,kreal(rk)::rn,gn,bnreal(rk)::cr,mr,yr,krrn=r/255.0_rkgn=g/255.0_rkbn=b/255.0_rkkr=1.0_rk-max(rn,gn,bn)if(abs(kr-1.0_rk)<1.0e-6_rk)thencr=0.0_rkmr=0.0_rkyr=0.0_rkelsecr=(1.0_rk-rn-kr)/(1.0_rk-kr)mr=(1.0_rk-gn-kr)/(1.0_rk-kr)yr=(1.0_rk-bn-kr)/(1.0_rk-kr)end ifc=nint(cr*100.0_rk,kind=ik)m=nint(mr*100.0_rk,kind=ik)y=nint(yr*100.0_rk,kind=ik)k=nint(kr*100.0_rk,kind=ik)end subroutine rgb_to_cmyk