Nodes of different colours represent the following:
Solid arrows point from a submodule to the (sub)module which it is
descended from. Dashed arrows point from a module or program unit to
modules which it uses.
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 f_esmf_locstreamgetkeyarray(locstream,keyName,array,rc)use ESMF_UtilTypesModuse ESMF_BaseModuse ESMF_LogErrModuse ESMF_ArraySpecModuse ESMF_ArrayModuse ESMF_LocStreamModimplicit none type(ESMF_LocStream)::locstreamcharacter(len=*),intent(in)::keyNametype(ESMF_Array)::arrayinteger,intent(out)::rc! localtype(ESMF_Array)::l_array! initialize return code; assume routine not implementedrc=ESMF_RC_NOT_IMPLcall ESMF_LocStreamGetKey(locstream,keyName=keyName,keyArray=l_array,rc=rc)if(ESMF_LogFoundError(rc,ESMF_ERR_PASSTHRU,&ESMF_CONTEXT,rcToReturn=rc))return! because ESMF_Array.this is private, it cannot be accessed directly! we use the public interface to do the ptr copy;! the array object returned to the C interface must consist only of the! this pointer. It must not contain the isInit member.call ESMF_ArrayCopyThis(l_array,array,rc)if(ESMF_LogFoundError(rc,ESMF_ERR_PASSTHRU,&ESMF_CONTEXT,rcToReturn=rc))returnrc=ESMF_SUCCESSend subroutine f_esmf_locstreamgetkeyarray