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.
Source Code
function histogram_allocate(n)result(h)integer,intent(in)::ntype(histogram)::hif(n<=0)then print*,"histogram length must be positive integer. n=",nstop endif allocate(h%range(0:n));h%range=0.d0allocate(h%bin(0:n));h%bin=0.d0h%n=nend function histogram_allocate