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
function ESMF_TraceMethodToEnum(method_flag)! !ARGUMENTS: integer::ESMF_TraceMethodToEnumtype(ESMF_Method_Flag),intent(in)::method_flag!!EOPI!-------------------------------------------------------------------------------if(method_flag==ESMF_METHOD_INITIALIZE.or.&method_flag==ESMF_METHOD_INITIALIZEIC)thenESMF_TraceMethodToEnum=0elseif(method_flag==ESMF_METHOD_RUN.or.&method_flag==ESMF_METHOD_RUNIC)thenESMF_TraceMethodToEnum=1elseif(method_flag==ESMF_METHOD_FINALIZE.or.&method_flag==ESMF_METHOD_FINALIZEIC)thenESMF_TraceMethodToEnum=2elseESMF_TraceMethodToEnum=-1! not supportedendif end function ESMF_TraceMethodToEnum