print_cross_sections_for_jtot Subroutine

public subroutine print_cross_sections_for_jtot(total_angular_momentum_, open_basis_levels_, cross_sections_)

Prints information about cross-sections at the end of each total angular momentum (jtot) block

Arguments

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

total angular momentum
integer(kind=int32), intent(in) :: open_basis_levels_(:)

array holding indices to open basis levels
real(kind=dp), intent(in) :: cross_sections_(:)

holds values of the cross-sections

Calls

proc~~print_cross_sections_for_jtot~~CallsGraph proc~print_cross_sections_for_jtot print_cross_sections_for_jtot proc~float_to_character float_to_character proc~print_cross_sections_for_jtot->proc~float_to_character proc~integer_to_character integer_to_character proc~print_cross_sections_for_jtot->proc~integer_to_character proc~total_energy total_energy proc~print_cross_sections_for_jtot->proc~total_energy proc~print_all_cross_sections print_all_cross_sections proc~print_cross_sections_for_jtot->proc~print_all_cross_sections proc~write_message write_message proc~print_cross_sections_for_jtot->proc~write_message proc~print_all_cross_sections->proc~total_energy proc~print_all_cross_sections->proc~write_message

Called by

proc~~print_cross_sections_for_jtot~~CalledByGraph proc~print_cross_sections_for_jtot print_cross_sections_for_jtot program~scattering SCATTERING program~scattering->proc~print_cross_sections_for_jtot

Contents

Source Code

print_cross_sections_for_jtot

Source Code

      subroutine print_cross_sections_for_jtot(total_angular_momentum_,        &
         open_basis_levels_, cross_sections_)
         !! Prints information about cross-sections at the end of each
         !! total angular momentum (jtot) block
         !---------------------------------------------------------------------!
         integer(int32), intent(in) :: total_angular_momentum_
            !! total angular momentum
         integer(int32), intent(in) :: open_basis_levels_(:)
            !! array holding indices to open basis levels
         real(dp), intent(in) :: cross_sections_(:)
            !! holds values of the cross-sections
         !---------------------------------------------------------------------!
         call write_message("Cross sections for J: "//                         &
            trim(adjustl(integer_to_character(total_angular_momentum_))) //    &
            " and energy: " //                                                 &
            trim(adjustl(float_to_character(total_energy()*hartree_to_cm,      &
            "(F10.4)"))) // " cm-1")
         !---------------------------------------------------------------------!
         call print_all_cross_sections(open_basis_levels_, cross_sections_)
         !---------------------------------------------------------------------!
      end subroutine print_cross_sections_for_jtot