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
subroutine histogram_accumulate(h,x,w)type(histogram),intent(inout)::hreal(8),intent(in)::x,winteger::i,index index=0call find_index(h%n,h%range,x,index)if(index>=h%n)then print*,"index lies outside valid range of 0 .. n - 1"stop endifh%bin(index)=h%bin(index)+wend subroutine histogram_accumulate