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.
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_TimeIntervalEQ(timeinterval1,timeinterval2)!! !RETURN VALUE:logical::ESMF_TimeIntervalEQ! !ARGUMENTS:type(ESMF_TimeInterval),intent(in)::timeinterval1type(ESMF_TimeInterval),intent(in)::timeinterval2!DESCRIPTION:! This method overloads the (==) operator for the {\tt ESMF\_TimeInterval}! class. See "interface operator(==)" above for complete description.!!EOPIinteger::localrc! Initialize output value in case of errorESMF_TimeIntervalEQ=.false.! check inputsESMF_INIT_CHECK_SHALLOW_SHORT(ESMF_TimeIntervalGetInit,timeinterval1,localrc)ESMF_INIT_CHECK_SHALLOW_SHORT(ESMF_TimeIntervalGetInit,timeinterval2,localrc)! invoke C to C++ entry pointcall c_ESMC_TimeIntervalEQ(timeinterval1,timeinterval2,&ESMF_TimeIntervalEQ)end function ESMF_TimeIntervalEQ