calculate_state_to_state_cross_section Subroutine

public subroutine calculate_state_to_state_cross_section(total_angular_momentum_, open_basis_levels_, basis_wavevectors_, s_matrix_real_, s_matrix_imag_, channel_indices_, channel_l_values_, cross_section_array_)

Calculates all state-to-state cross-sections.

Arguments

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

total angular momentum
integer(kind=int32), intent(in) :: open_basis_levels_(:)

holds indices to the basis arrays which correspond to open channels

real(kind=dp), intent(in) :: basis_wavevectors_(:)

holds wavevectors k_{i}
real(kind=dp), intent(in) :: s_matrix_real_(:,:)

real and imaginary parts of the S-matrix
real(kind=dp), intent(in) :: s_matrix_imag_(:,:)

real and imaginary parts of the S-matrix
integer(kind=int32), intent(in) :: channel_indices_(:)

holds the indices pointing to the basis arrays
integer(kind=int32), intent(in) :: channel_l_values_(:)

holds all values of l
real(kind=dp), intent(inout) :: cross_section_array_(:)

array holding all XSs

Calls

proc~~calculate_state_to_state_cross_section~~CallsGraph proc~calculate_state_to_state_cross_section calculate_state_to_state_cross_section proc~compute_individual_cross_section compute_individual_cross_section proc~calculate_state_to_state_cross_section->proc~compute_individual_cross_section proc~time_count_summary time_count_summary proc~calculate_state_to_state_cross_section->proc~time_count_summary proc~get_block_indices get_block_indices proc~compute_individual_cross_section->proc~get_block_indices proc~sum_cross_section_contributions sum_cross_section_contributions proc~compute_individual_cross_section->proc~sum_cross_section_contributions proc~write_message write_message proc~time_count_summary->proc~write_message proc~compute_real_component compute_real_component proc~sum_cross_section_contributions->proc~compute_real_component proc~compute_imag_component compute_imag_component proc~sum_cross_section_contributions->proc~compute_imag_component

Called by

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

Contents

Variables


Variables

Type Visibility Attributes Name Initial
real(kind=dp), private :: calculation_time
integer(kind=int32), private :: cross_section_index_
integer(kind=int32), private :: final_state_
real(kind=dp), private :: finish_time
integer(kind=int32), private :: initial_state_
integer(kind=int32), private :: number_of_open_basis_levels_
real(kind=dp), private :: start_time