handle_lambda_index_error Subroutine

private subroutine handle_lambda_index_error(lambda_)

Handles error when \(\lambda\) is not found in legendre_indices.

Arguments

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

Legendre expansion index, \(\lambda\)

Calls

proc~~handle_lambda_index_error~~CallsGraph proc~handle_lambda_index_error handle_lambda_index_error proc~integer_to_character integer_to_character proc~handle_lambda_index_error->proc~integer_to_character proc~write_error write_error proc~handle_lambda_index_error->proc~write_error proc~write_message write_message proc~write_error->proc~write_message

Called by

proc~~handle_lambda_index_error~~CalledByGraph proc~handle_lambda_index_error handle_lambda_index_error proc~get_radial_coupling_term_value get_radial_coupling_term_value proc~get_radial_coupling_term_value->proc~handle_lambda_index_error 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

Source Code

handle_lambda_index_error

Source Code

      subroutine handle_lambda_index_error(lambda_)
         !! Handles error when \\(\lambda\\) is not found in legendre_indices.
         !---------------------------------------------------------------------!
         integer(int32), intent(in) :: lambda_
            !! Legendre expansion index, \\(\lambda\\)
         !---------------------------------------------------------------------!
         call write_error("Radial coupling terms with lambda = " //            &
            trim(adjustl(integer_to_character(lambda_))) //                    &
            " not found in legendre_indices")
         !---------------------------------------------------------------------!
      end subroutine handle_lambda_index_error