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 init_genrand(seed)! This initialization is based upon the multiplier given on p.106 of the! 3rd edition of Knuth, The Art of Computer Programming Vol. 2.! This version assumes that integer overflow does NOT cause a crash.integer,intent(in)::seed!integer::latestmt(0)=seedlatest=seeddo mti=1,n-1latest=IEOR(latest,ISHFT(latest,-30))latest=latest*1812433253+mtimt(mti)=latestend do returnend subroutine init_genrand