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 bin_prob(n,p,r)RESULT(fn_val)! Calculate a binomial probabilityINTEGER,INTENT(IN)::n,rREAL,INTENT(IN)::pREAL::fn_val! Local variableREAL::one=1.0fn_val=EXP(lngamma(DBLE(n+1))-lngamma(DBLE(r+1))-lngamma(DBLE(n-r+1))&+r*LOG(p)+(n-r)*LOG(one-p))RETURNEND FUNCTION bin_prob