find_lambda_index Function

private function find_lambda_index(lambda_) result(result_index_)

Locates given \(\lambda\) value in legendre_indices.

Arguments

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

Legendre expansion index, \(\lambda\)

Return Value integer(kind=int32)

Index pointing to \(\lambda\) in legendre_indices


Called by

proc~~find_lambda_index~~CalledByGraph proc~find_lambda_index find_lambda_index proc~get_radial_coupling_term_value get_radial_coupling_term_value proc~get_radial_coupling_term_value->proc~find_lambda_index proc~calculate_single_pes_matrix_element calculate_single_pes_matrix_element proc~calculate_single_pes_matrix_element->proc~get_radial_coupling_term_value proc~calculate_pes_matrix calculate_pes_matrix proc~calculate_pes_matrix->proc~calculate_single_pes_matrix_element proc~initial_setup initial_setup proc~initial_setup->proc~calculate_pes_matrix proc~general_propagation_step general_propagation_step proc~general_propagation_step->proc~calculate_pes_matrix proc~numerov numerov proc~numerov->proc~initial_setup proc~numerov->proc~general_propagation_step proc~handle_final_propagation_steps handle_final_propagation_steps proc~handle_final_propagation_steps->proc~general_propagation_step

Contents

Variables

Source Code

find_lambda_index

Variables

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

Source Code

      function find_lambda_index(lambda_) result(result_index_)
         !! Locates given \\(\lambda\\) value in legendre_indices.
         !---------------------------------------------------------------------!
         integer(int32), intent(in) :: lambda_
            !! Legendre expansion index, \\(\lambda\\)
         integer(int32) :: result_index_
            !! Index pointing to  \\(\lambda\\) in legendre_indices
         !---------------------------------------------------------------------!
         integer(int32) :: lambda_index_
         !---------------------------------------------------------------------!
         result_index_ = 0
         do lambda_index_ = 1, number_of_legendre_indices
            if (legendre_indices(lambda_index_) == lambda_) then
               result_index_ = lambda_index_
               exit
            endif
         enddo
         !---------------------------------------------------------------------!
      end function find_lambda_index