handle_coupling_index_error Subroutine

private subroutine handle_coupling_index_error(v_, j_, v_prime_, j_prime_)

Handles error when the appropriate coupling term is not found.

Arguments

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

pre-collisional vibrational quantum number
integer(kind=int32), intent(in) :: j_

pre-collisional rotational quantum number
integer(kind=int32), intent(in) :: v_prime_

post-collisional vibrational quantum number
integer(kind=int32), intent(in) :: j_prime_

post-collisional rotational quantum number

Calls

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

Called by

proc~~handle_coupling_index_error~~CalledByGraph proc~handle_coupling_index_error handle_coupling_index_error proc~get_radial_coupling_term_value get_radial_coupling_term_value proc~get_radial_coupling_term_value->proc~handle_coupling_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_coupling_index_error

Source Code

      subroutine handle_coupling_index_error(v_, j_, v_prime_, j_prime_)
         !! Handles error when the appropriate coupling term is not found.
         !---------------------------------------------------------------------!
         integer(int32), intent(in) :: v_
            !! pre-collisional vibrational quantum number
         integer(int32), intent(in) :: j_
            !! pre-collisional rotational quantum number
         integer(int32), intent(in) :: v_prime_
            !! post-collisional vibrational quantum number
         integer(int32), intent(in) :: j_prime_
            !! post-collisional rotational quantum number
         !---------------------------------------------------------------------!
         call write_error("Coupling term with v = " //                         &
            trim(adjustl(integer_to_character(v_))) // ", j = " //             &
            trim(adjustl(integer_to_character(j_))) // ", v` = " //            &
            trim(adjustl(integer_to_character(v_prime_))) // ", j1` = " //     &
            trim(adjustl(integer_to_character(j_prime_))) // " not found")
         !---------------------------------------------------------------------!
      end subroutine handle_coupling_index_error