Nodes of different colours represent the following:
Solid arrows point from a parent (sub)module to the submodule which is descended from it. Dashed arrows point from a module being used to the module or program unit using it. Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| real(kind=r64), | intent(in) | :: | Width | |||
| real(kind=r64), | intent(in) | :: | Height |
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.
real(r64) function LDSumMean(Width, Height)
! LDSumMean function calculates sum part of equation for mean deflection
! Width - glazing system width
! Height - glazing system height
use DataGlobals, only: Pi
use TARCOGParams
!use TARCOGGassesParams
real(r64), intent(in) :: Width
real(r64), intent(in) :: Height
integer :: i, j
LDSumMean = 0.0d0
do i = 1, mmax, 2
do j = 1, nmax, 2
LDSumMean = LDSumMean + 4 / (i**2 * j**2 * Pi**2 * ((i / Width)**2 + (j / Height)**2)**2)
end do !do j = 1, nmax, 2
end do !do i = 1, mmax, 2
return
end function LDSumMean