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 sgrnd(seed)! Setting initial seeds to mt[N] using the generator Line 25 of Table 1 in! [KNUTH 1981, The Art of Computer Programming Vol. 2 (2nd Ed.), pp102]integer,intent(in)::seedmt(0)=iand(seed,-1)do mti=1,N-1mt(mti)=iand(69069*mt(mti-1),-1)enddo returnend subroutine sgrnd