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 symm_ed(im,lamda,theta)! Make grid symmetrical to i=im/2+1integer imreal(ESMF_KIND_R8)lamda(im+1,im+1)real(ESMF_KIND_R8)theta(im+1,im+1)integer i,j,ip,jpreal(ESMF_KIND_R8)avgdo j=2,im+1do i=2,imlamda(i,j)=lamda(i,1)enddo enddo do j=1,im+1do i=1,im/2ip=im+2-iavg=0.5*(lamda(i,j)-lamda(ip,j))lamda(i,j)=avg+pilamda(ip,j)=pi-avgavg=0.5*(theta(i,j)+theta(ip,j))theta(i,j)=avgtheta(ip,j)=avgenddo enddo! Make grid symmetrical to j=im/2+1do j=1,im/2jp=im+2-jdo i=2,imavg=0.5*(lamda(i,j)+lamda(i,jp))lamda(i,j)=avglamda(i,jp)=avgavg=0.5*(theta(i,j)-theta(i,jp))theta(i,j)=avgtheta(i,jp)=-avgenddo enddo end subroutine symm_ed