calculate_t_matrix Subroutine

private subroutine calculate_t_matrix(step_, coupling_matrix_, t_matrix_)

Calculates the T-matrix from the coupling matrix at grid point N: \( T_{\mathrm{N}} = h^{2}/12 W_{\mathrm{N}} \)

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(in) :: step_

step of the propagator
real(kind=dp), intent(in) :: coupling_matrix_(:,:)

Coupling (W) matrix v
real(kind=dp), intent(inout) :: t_matrix_(:,:)

(output) T-matrix at grid point N

Called by

proc~~calculate_t_matrix~~CalledByGraph proc~calculate_t_matrix calculate_t_matrix proc~initial_setup initial_setup proc~initial_setup->proc~calculate_t_matrix proc~general_propagation_step general_propagation_step proc~general_propagation_step->proc~calculate_t_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~numerov->proc~handle_final_propagation_steps proc~handle_final_propagation_steps->proc~general_propagation_step program~scattering SCATTERING program~scattering->proc~numerov

Contents

Source Code

calculate_t_matrix

Source Code

      subroutine calculate_t_matrix(step_, coupling_matrix_, t_matrix_)
         !! Calculates the T-matrix from the coupling matrix at grid point N:
         !! \\( T_{\mathrm{N}} = h^{2}/12 W_{\mathrm{N}} \\)
         !---------------------------------------------------------------------!
         real(dp), intent(in) :: step_
            !! step of the propagator
         real(dp), intent(in) :: coupling_matrix_(:,:)
            !! Coupling (W) matrix v
         real(dp), intent(inout) :: t_matrix_(:,:)
            !! (output) T-matrix at grid point N
         !---------------------------------------------------------------------!
         t_matrix_ = (step_**2.0_dp)/12.0_dp * coupling_matrix_
         !---------------------------------------------------------------------!
      end subroutine calculate_t_matrix