add_cross_sections Subroutine

public subroutine add_cross_sections(size_, partial_, accumulated_)

Add partial cross-sections to accumulated cross-sections

Arguments

Type IntentOptional Attributes Name
integer(kind=int32), intent(in) :: size_

number of open basis levels (defines the size of both arrays)
real(kind=dp), intent(in) :: partial_(size_*size_)

array holding partial cross-sections
real(kind=dp), intent(inout) :: accumulated_(size_*size_)

array holding accumulated cross-sections

Called by

proc~~add_cross_sections~~CalledByGraph proc~add_cross_sections add_cross_sections program~scattering SCATTERING program~scattering->proc~add_cross_sections

Contents

Variables

Source Code

add_cross_sections

Variables

Type Visibility Attributes Name Initial
integer(kind=int32), private :: cross_section_index_
integer(kind=int32), private :: index_1_
integer(kind=int32), private :: index_2_

Source Code

      subroutine add_cross_sections(size_, partial_, accumulated_)
         !! Add partial cross-sections to accumulated cross-sections
         !---------------------------------------------------------------------!
         integer(int32), intent(in) :: size_
            !! number of open basis levels (defines the size of both arrays)
         real(dp), intent(in) :: partial_(size_*size_)
            !! array holding partial cross-sections
         real(dp), intent(inout) :: accumulated_(size_*size_)
            !! array holding accumulated cross-sections
         !---------------------------------------------------------------------!
         integer(int32) :: index_1_, index_2_, cross_section_index_
         !---------------------------------------------------------------------!
         do index_1_ = 1, size_
            do index_2_ = 1, size_
               cross_section_index_ = (index_1_-1) * size_ + index_2_
               accumulated_(cross_section_index_) =                            &
                  accumulated_(cross_section_index_)                           &
                  + partial_(cross_section_index_)
            enddo
         enddo
         !---------------------------------------------------------------------!
      end subroutine add_cross_sections