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
subroutine ESMF_ConfigSetCurrentAttrUsed(config,used,rc)implicit none type(ESMF_Config),intent(inout)::config! ESMF Configurationlogical,intent(in)::used! used flaginteger,intent(out),optional::rc! Error return code!! !DESCRIPTION: Set the given config's current attribute's used flag!!EOPI -------------------------------------------------------------------integer::i! Initialize return code; assume routine not implementedif(present(rc))thenrc=ESMF_RC_NOT_IMPLendif!check variablesESMF_INIT_CHECK_DEEP(ESMF_ConfigGetInit,config,rc)! find attr label and set its used flag to given value! TODO: pre-sort and use binary search, or use hash functiondo i=1,NATT_MAXif(associated(config%cptr%attr_used(i)%label))then if(trim(config%cptr%current_attr)==ESMF_UtilArray2String(config%cptr%attr_used(i)%label))thenconfig%cptr%attr_used(i)%used=usedexit end if endif enddo if(present(rc))rc=ESMF_SUCCESSreturn end subroutine ESMF_ConfigSetCurrentAttrUsed