initialize_cross_section_arrays Subroutine

public subroutine initialize_cross_section_arrays(size_, partial_block_, partial_jtot_, accumulated_)

allocate arrays keeping accumulated and partial cross-sections in each jtot and parity block

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(inout), allocatable :: partial_block_(:)

array holding partial cross-sections in a parity block
real(kind=dp), intent(inout), allocatable :: partial_jtot_(:)

array holding partial cross-sections in a jtot block
real(kind=dp), intent(inout), allocatable :: accumulated_(:)

array holding accumulated cross-sections

Calls

proc~~initialize_cross_section_arrays~~CallsGraph proc~initialize_cross_section_arrays initialize_cross_section_arrays interface~allocate_1d allocate_1d proc~initialize_cross_section_arrays->interface~allocate_1d

Called by

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

Contents

Source Code

initialize_cross_section_arrays

Source Code

      subroutine initialize_cross_section_arrays(size_, partial_block_,        &
         partial_jtot_, accumulated_)
         !! allocate arrays keeping accumulated and partial cross-sections
         !! in each jtot and parity block
         !---------------------------------------------------------------------!
         integer(int32), intent(in) :: size_
            !! number of open basis levels (defines the size of both arrays)
         real(dp), intent(inout), allocatable :: partial_block_(:)
            !! array holding partial cross-sections in a parity block
         real(dp), intent(inout), allocatable :: partial_jtot_(:)
            !! array holding partial cross-sections in a jtot block
         real(dp), intent(inout), allocatable :: accumulated_(:)
            !! array holding accumulated cross-sections
         !---------------------------------------------------------------------!
         call allocate_1d(partial_block_, size_*size_)
         call allocate_1d(partial_jtot_, size_*size_)
         call allocate_1d(accumulated_, size_*size_)
         !---------------------------------------------------------------------!
      end subroutine initialize_cross_section_arrays