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
impure elemental function ESMF_CoordSysEqual(CoordSys1,CoordSys2)! !RETURN VALUE:logical::ESMF_CoordSysEqual! !ARGUMENTS:type(ESMF_CoordSys_Flag),intent(in)::&CoordSys1,&! Two igrid statuses to compare forCoordSys2! equality! !DESCRIPTION:! This routine compares two ESMF CoordSys statuses to see if! they are equivalent.!! The arguments are:! \begin{description}! \item[CoordSys1, CoordSys2]! Two igrid statuses to compare for equality! \end{description}!!EOPIESMF_CoordSysEqual=(CoordSys1%coordsys==&CoordSys2%coordsys)end function ESMF_CoordSysEqual