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 ESMF_XGridInitialize(xgtypep,rc)!! !ARGUMENTS:type(ESMF_XGridType),pointer::xgtypepinteger,intent(out),optional::rc!! !DESCRIPTION:! Takes an {\tt ESMF\_XGrid} object and default initialize its! auxiliary data members. Only to be used by other XGrid Create methods.!! The arguments are:! \begin{description}! \item [xgtypep]! {\tt ESMF\_XGridType} object to be default initialized.! \item [{[rc]}]! Return code; equals {\tt ESMF\_SUCCESS} if there are no errors.! \end{description}!!EOPIxgtypep%status=ESMF_STATUS_UNINITxgtypep%coordSys=ESMF_COORDSYS_SPH_DEGxgtypep%online=0xgtypep%is_proxy=.false.xgtypep%storeOverlay=.false.nullify(xgtypep%sideA)nullify(xgtypep%sideB)nullify(xgtypep%fracA2X)nullify(xgtypep%fracB2X)nullify(xgtypep%fracX2A)nullify(xgtypep%fracX2B)nullify(xgtypep%frac2A)nullify(xgtypep%frac2B)nullify(xgtypep%area)nullify(xgtypep%centroid)nullify(xgtypep%sparseMatA2X)nullify(xgtypep%sparseMatX2A)nullify(xgtypep%sparseMatB2X)nullify(xgtypep%sparseMatX2B)if(present(rc))rc=ESMF_SUCCESSend subroutine ESMF_XGridInitialize