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.
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.
function Spong_2D(R0,b,w,dlam,R,Z,T)REAL(rp),INTENT(IN)::R0REAL(rp),INTENT(IN)::bREAL(rp),INTENT(IN)::wREAL(rp),INTENT(IN)::dlamREAL(rp),INTENT(IN)::RREAL(rp),INTENT(IN)::ZREAL(rp),INTENT(IN)::TReal(rp)::rmReal(rp)::lamREAL(rp)::Spong_2Drm=sqrt((R-R0)**2+Z**2)lam=(sin(deg2rad(T)))**2Spong_2D=(1-tanh((rm-b)/w))/(1-tanh(-b/w))*exp(-(lam/dlam)**2)end function Spong_2D