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 attpack_initialize(self,info,convention,purpose,rootKey,rc)class(ESMF_AttPack),intent(out)::selftype(ESMF_Info),intent(in)::infocharacter(*),intent(in),optional::conventioncharacter(*),intent(in),optional::purposecharacter(*),intent(in),optional::rootKeyinteger,intent(out),optional::rcinteger::localrccharacter(:),allocatable::local_convention,local_purposeif(present(rc))rc=ESMF_RC_NOT_IMPLlocalrc=ESMF_FAILUREif(.not.present(rootKey))then if(present(convention))thenlocal_convention=TRIM(convention)elselocal_convention=TRIM(ESMF_ATTR_DEFAULT_CONVENTION)end if if(present(purpose))thenlocal_purpose=TRIM(purpose)elselocal_purpose=TRIM(ESMF_ATTR_DEFAULT_PURPOSE)end ifself%root_key="/"//local_convention//"/"//local_purposeelseself%root_key=rootKeyend ifself%info=info%ptrif(present(rc))rc=ESMF_SUCCESSend subroutine attpack_initialize