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 student_trnd(dof)result(ans)real(8)::ans,dof,y1,y2if(dof<=0.d0)then write(*,*)"STUDENT_TRND: Degrees of freedom must be positive"end if!! ## See Seminumerical Algorithms by Knuthy1=normalrnd(0d0,1d0)y2=chi_squarernd(dof)ans=y1/(y2/dof)**0.5d0!end function student_trnd