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 logical function divides(factor,dividend)integer,intent(in)::factorinteger,intent(in)::dividend! mod returns the remainder of dividend/factor, and if it is 0, factor divides dividend evenlyif(factor/=0)then! To avoid divide by 0divides=mod(dividend,factor)==0elsedivides=.FALSE.endif end function divides