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.
Where possible, edges connecting nodes are
given different colours to make them easier to distinguish in
large graphs.
Source Code
subroutine latlon2xyz(p,e)!! Routine to map (lon, lat) to (x,y,z)!real(ESMF_KIND_R8),intent(in)::p(2)real(ESMF_KIND_R8),intent(out)::e(3)integer nreal(ESMF_KIND_R8)::q(2)real(ESMF_KIND_R8)::e1,e2,e3do n=1,2q(n)=p(n)enddoe1=cos(q(2))*cos(q(1))e2=cos(q(2))*sin(q(1))e3=sin(q(2))!-----------------------------------! Truncate to the desired precision:!-----------------------------------e(1)=e1e(2)=e2e(3)=e3end subroutine latlon2xyz