| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | nlayer | |||
| real(kind=r64), | intent(in), | dimension(4*nlayer, 4*nlayer) | :: | a | ||
| real(kind=r64), | intent(in), | dimension(4*nlayer) | :: | b | ||
| real(kind=r64), | intent(in), | dimension(4*nlayer) | :: | x | ||
| real(kind=r64), | intent(inout), | dimension(4*nlayer) | :: | FRes |
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.
subroutine CalculateFuncResults(nlayer, a, b, x, FRes)
!calculate balance equations by using temperature solution and estimates stores error in FRes
!real(r64), intent(in) :: theta(maxlay2)
!real(r64), intent(in) :: R(maxlay2) ! Radiation on layer surfaces
integer, intent(in) :: nlayer
real(r64), dimension(4*nlayer, 4*nlayer), intent(in) :: a
real(r64), dimension(4*nlayer), intent(in) :: b, x
!integer, intent(out) :: nperr
!character*(*), intent(out) :: ErrorMessage
real(r64), dimension(4*nlayer), intent(inout) :: FRes
!Local variables
integer :: i, j
do i=1, 4*nlayer
FRes(i) = - b(i)
do j=1, 4*nlayer
FRes(i) = FRes(i) + a(i,j) * x(j)
end do
end do !do i=1, 4*nlayer
end subroutine CalculateFuncResults