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 check_quad(quad,vname,nvars,aliases,nalias,qloc)integer::nvars,naliascharacter(len=ESMF_MAXSTR)quad(2),aliases(2,nalias),vname(nvars)integer qloc(2)integer m,n! Initialize Location of Quadratics! ---------------------------------qloc=0! Check Quadratic Name against HDF Variable Names! -----------------------------------------------do n=1,nvarsif(trim(vname(n)).eq.trim(quad(1)))qloc(1)=nif(trim(vname(n)).eq.trim(quad(2)))qloc(2)=nenddo! Check Quadratic Name against Aliases! ------------------------------------do m=1,naliasif(trim(quad(1)).eq.trim(aliases(1,m)))then do n=1,nvarsif(trim(vname(n)).eq.trim(quad(1)).or.&trim(vname(n)).eq.trim(aliases(2,m)))thenqloc(1)=nexit endif enddo endif if(trim(quad(2)).eq.trim(aliases(1,m)))then do n=1,nvarsif(trim(vname(n)).eq.trim(quad(2)).or.&trim(vname(n)).eq.trim(aliases(2,m)))thenqloc(2)=nexit endif enddo endif enddo end subroutine check_quad