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 Finalization()!--------------------------------------------------------------------character(ESMF_MAXSTR)::failMsgcharacter(ESMF_MAXSTR)::nameinteger::result=0rc=0!''''''''''''''''''''''''''''!------------------------------------------------------------------------!EX_UTest! Test Config Validatewrite(failMsg,*)"Did not return ESMF_RC_ATTR_UNUSED"write(name,*)"Config Validate Test"call ESMF_ConfigValidate(cf,options="unusedAttributes",rc=rc)call ESMF_Test((rc.eq.ESMF_RC_ATTR_UNUSED),name,failMsg,result,ESMF_SRCLINE)!''''''''''''''''''''''''''''counter_total=counter_total+1if(rc==ESMF_RC_ATTR_UNUSED)thencounter_success=counter_success+1else print*,'ESMF_ConfigValidate failed, rc =',rcendif!''''''''''''''''''''''''''''!------------------------------------------------------------------------!EX_UTest! Test Config Destroywrite(failMsg,*)"Did not return ESMF_SUCCESS"write(name,*)"Config Destroy Test"call ESMF_ConfigDestroy(cf,rc=rc)call ESMF_Test((rc.eq.ESMF_SUCCESS),name,failMsg,result,ESMF_SRCLINE)!''''''''''''''''''''''''''''counter_total=counter_total+1if(rc==ESMF_SUCCESS)thencounter_success=counter_success+1else print*,'ESMF_ConfigDestroy failed, rc =',rcendif end subroutine Finalization