compute_imag_component Function

private function compute_imag_component(initial_index_, final_index_, s_matrix_imag_) result(imag_contribution_)

Computes the imaginary part of the cross-section contribution for given indices.

Arguments

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

index pointing to the basis element involving initial state
integer(kind=int32), intent(in) :: final_index_

index pointing to the basis element involving final state
real(kind=dp), intent(in) :: s_matrix_imag_(:,:)

imaginary part of the S-matrix

Return Value real(kind=dp)

(output) contribution to the cross-section from imaginary part of the S-matrix


Called by

proc~~compute_imag_component~~CalledByGraph proc~compute_imag_component compute_imag_component proc~sum_cross_section_contributions sum_cross_section_contributions proc~sum_cross_section_contributions->proc~compute_imag_component proc~compute_individual_cross_section compute_individual_cross_section proc~compute_individual_cross_section->proc~sum_cross_section_contributions proc~calculate_state_to_state_cross_section calculate_state_to_state_cross_section proc~calculate_state_to_state_cross_section->proc~compute_individual_cross_section program~scattering SCATTERING program~scattering->proc~calculate_state_to_state_cross_section

Contents

Source Code

compute_imag_component

Source Code

      function compute_imag_component(initial_index_, final_index_,            &
         s_matrix_imag_) result(imag_contribution_)
         !! Computes the imaginary part of the cross-section contribution
         !! for given indices.
         !---------------------------------------------------------------------!
         integer(int32), intent(in) :: initial_index_
            !! index pointing to the basis element involving initial state
         integer(int32), intent(in) :: final_index_
            !! index pointing to the basis element involving final state
         real(dp), intent(in) :: s_matrix_imag_(:,:)
            !! imaginary part of the S-matrix
         real(dp) :: imag_contribution_
            !! (output) contribution to the cross-section from imaginary
            !! part of the S-matrix
         !---------------------------------------------------------------------!
         imag_contribution_ = -s_matrix_imag_(initial_index_, final_index_)
         !---------------------------------------------------------------------!
      end function compute_imag_component