print_pes_matrix_elements_summary Subroutine

  1. pes_matrix_mod.f90
  2. pes_matrix_mod
  3. print_pes_matrix_elements_summary

private subroutine print_pes_matrix_elements_summary(number_of_channels, number_of_nonzero_pes_matrix_elements, number_of_nonzero_algebraic_coefficients)

print a shor summary on the number of non-zero matrix elements of the PES matrix

Arguments

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

size of the basis
integer(kind=int32), intent(in) :: number_of_nonzero_pes_matrix_elements

number of non-zero terms in the sum () for each non-zero element of the PES matrix
integer(kind=int32), intent(in) :: number_of_nonzero_algebraic_coefficients

number of all non-zero algberaix coefficients in the whole PES matrix

Calls

proc~~print_pes_matrix_elements_summary~~CallsGraph proc~print_pes_matrix_elements_summary print_pes_matrix_elements_summary proc~integer_to_character integer_to_character proc~print_pes_matrix_elements_summary->proc~integer_to_character proc~write_message write_message proc~print_pes_matrix_elements_summary->proc~write_message

Called by

proc~~print_pes_matrix_elements_summary~~CalledByGraph proc~print_pes_matrix_elements_summary print_pes_matrix_elements_summary proc~initialize_pes_matrix initialize_pes_matrix proc~initialize_pes_matrix->proc~print_pes_matrix_elements_summary program~scattering SCATTERING program~scattering->proc~initialize_pes_matrix

Contents

Source Code

print_pes_matrix_elements_summary

Source Code

      subroutine print_pes_matrix_elements_summary(number_of_channels,         &
         number_of_nonzero_pes_matrix_elements,                                &
         number_of_nonzero_algebraic_coefficients)
         !! print a shor summary on the number of non-zero matrix elements
         !! of the PES matrix
         !---------------------------------------------------------------------!
         integer(int32), intent(in) :: number_of_channels
            !! size of the basis
         integer(int32), intent(in) :: number_of_nonzero_pes_matrix_elements
            !! number of non-zero terms in the sum () for each non-zero element
            !! of the PES matrix
         integer(int32), intent(in) :: number_of_nonzero_algebraic_coefficients
            !! number of all non-zero algberaix coefficients in the whole
            !! PES matrix
         !---------------------------------------------------------------------!
         call write_message(" - Size of the PES matrix: "//                    &
            integer_to_character(number_of_channels))
         call write_message(" - Number of non-zero elements " //               &
            "of the potential matrix: " // integer_to_character(               &
            number_of_nonzero_pes_matrix_elements))
         call write_message(" - Number of non-zero elements " //               &
            " of the PES matrix: " // integer_to_character(                    &
            number_of_nonzero_algebraic_coefficients))
         !---------------------------------------------------------------------!
      end subroutine print_pes_matrix_elements_summary