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_ArraySpecEQ(arrayspec1,arrayspec2)!! !RETURN VALUE:logical::ESMF_ArraySpecEQ!! !ARGUMENTS:type(ESMF_ArraySpec),intent(in)::arrayspec1type(ESMF_ArraySpec),intent(in)::arrayspec2!! !DESCRIPTION:! This method overloads the (==) operator for the {\tt ESMF\_ArraySpec} class.! See "interface operator(==)" above for complete description.!!EOPI!------------------------------------------------------------------------------integer::localrc! Initialize output value in case of errorESMF_ArraySpecEQ=.false.! check inputsESMF_INIT_CHECK_SHALLOW(ESMF_ArraySpecGetInit,arrayspec1,localrc)ESMF_INIT_CHECK_SHALLOW(ESMF_ArraySpecGetInit,arrayspec2,localrc)if((arrayspec1%rank==arrayspec2%rank).and.&arrayspec1%typekind==arrayspec2%typekind)&ESMF_ArraySpecEQ=.true.end function ESMF_ArraySpecEQ