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 fillArray1d(arrayToFill,arrayToFillPtr,rc)! Fills a 1-d ESMF_Array with data (localPet times index), and returns a pointer to! the Array's data!! Assumes 1 DE per PET; works best if arrayToFill is created with ESMF_INDEX_GLOBALtype(ESMF_Array),intent(in)::arrayToFillreal(ESMF_KIND_R8),pointer,intent(out)::arrayToFillPtr(:)integer,intent(out)::rcinteger::icall ESMF_ArrayGet(arrayToFill,farrayPtr=arrayToFillPtr,rc=rc)if(rc/=ESMF_SUCCESS)return do i=lbound(arrayToFillPtr,1),ubound(arrayToFillPtr,1)arrayToFillPtr(i)=localPet*100._ESMF_KIND_R8+iend do end subroutine fillArray1d