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 inverse_gammarnd(shape,scale)result(ans)real(8)::shape,scale,ans! If X is gamma(shape, scale) then! 1/Y is inverse gamma(shape, 1/scale)ans=1d0/gammarnd(shape,1d0/scale)end function inverse_gammarnd