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 LDSumMax(Width, Height)
! LDSumMax function calculates sum part of equation for maximum 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
LDSumMax = 0.0d0
do i = 1, mmax, 2
do j = 1, nmax, 2
LDSumMax = LDSumMax + (Sin(i*Pi/2) * Sin(j*Pi/2)) / (i*j*((i/Width)**2 + (j/Height)**2)**2)
end do !do j = 1, nmax, 2
end do !do i = 1, mmax, 2
return
end function LDSumMax