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_FeatureAllocArg(n,a,indicies,tfs,dts,rc)integer,intent(in)::n! F2003 and F95+TR15581 allocatable dummy arguments except for stringsreal,allocatable,intent(out)::a(:)integer,allocatable,intent(out)::indicies(:)logical,allocatable,intent(out)::tfs(:)type(ESMF_AllocDType),allocatable,intent(out)::dts(:)integer,intent(out)::rcinteger::iinteger::memstatallocate(a(n),indicies(n),tfs(n),dts(n),stat=memstat)if(ESMF_LogFoundAllocError(memstat,&ESMF_CONTEXT,&rcToReturn=rc))return do,i=1,na(i)=iindicies(i)=itfs=mod(i,1)==1allocate(dts(i)%a(10),dts(i)%indicies(20),dts(i)%tfs(20),dts(i)%chars(32),stat=memstat)if(ESMF_LogFoundAllocError(memstat,&ESMF_CONTEXT,&rcToReturn=rc))returndts(i)%a=0.0dts(i)%indicies=0dts(i)%tfs=.false.dts(i)%chars=' 'end dorc=ESMF_SUCCESSend subroutine ESMF_FeatureAllocArg