reduce_coupling_terms Subroutine

private subroutine reduce_coupling_terms()

Reduces the coupling terms based on the existence of couplings.

Arguments

None

Calls

proc~~reduce_coupling_terms~~CallsGraph proc~reduce_coupling_terms reduce_coupling_terms proc~find_reduced_term find_reduced_term proc~reduce_coupling_terms->proc~find_reduced_term

Called by

proc~~reduce_coupling_terms~~CalledByGraph proc~reduce_coupling_terms reduce_coupling_terms proc~reduce_radial_coupling_terms reduce_radial_coupling_terms proc~reduce_radial_coupling_terms->proc~reduce_coupling_terms program~scattering SCATTERING program~scattering->proc~reduce_radial_coupling_terms

Contents

Variables

Source Code

reduce_coupling_terms

Variables

Type Visibility Attributes Name Initial
integer(kind=int32), private :: coupling_index_
integer(kind=int32), private :: lambda_index_
integer(kind=int32), private :: r_index_

Source Code

      subroutine reduce_coupling_terms
         !! Reduces the coupling terms based on the existence of couplings.
         !---------------------------------------------------------------------!
         integer(int32) :: lambda_index_, r_index_, coupling_index_
         !---------------------------------------------------------------------!
         do lambda_index_ = 1, number_of_legendre_indices
            do r_index_ = 1, number_of_r_points
               do coupling_index_ = 1, minimal_number_of_coupling_terms
                  coupling_terms(r_index_, lambda_index_, coupling_index_) =   &
                     find_reduced_term(r_index_, lambda_index_, coupling_index_)
               enddo
            enddo
         enddo
         !---------------------------------------------------------------------!
      end subroutine reduce_coupling_terms