print_basic_cross_section_info Subroutine

private subroutine print_basic_cross_section_info(total_angular_momentum_, cross_section_value_, type_label_)

Prints basic information about the largest elastic and inelastic state-to-state xs (print_level <= 2)

Arguments

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

total angular momentum
real(kind=dp), intent(in) :: cross_section_value_

value of the cross-section
character(len=*), intent(in) :: type_label_

"elastic" or "inelastic"

Calls

proc~~print_basic_cross_section_info~~CallsGraph proc~print_basic_cross_section_info print_basic_cross_section_info proc~integer_to_character integer_to_character proc~print_basic_cross_section_info->proc~integer_to_character proc~float_to_character float_to_character proc~print_basic_cross_section_info->proc~float_to_character proc~write_message write_message proc~print_basic_cross_section_info->proc~write_message

Called by

proc~~print_basic_cross_section_info~~CalledByGraph proc~print_basic_cross_section_info print_basic_cross_section_info proc~print_largest_partial_cross_sections print_largest_partial_cross_sections proc~print_largest_partial_cross_sections->proc~print_basic_cross_section_info program~scattering SCATTERING program~scattering->proc~print_largest_partial_cross_sections

Contents

Source Code

print_basic_cross_section_info

Source Code

      subroutine print_basic_cross_section_info(total_angular_momentum_,       &
         cross_section_value_, type_label_)
         !! Prints basic information about the largest elastic and inelastic
         !! state-to-state xs (print_level <= 2)
         !---------------------------------------------------------------------!
         integer(int32), intent(in) :: total_angular_momentum_
            !! total angular momentum
         real(dp), intent(in) :: cross_section_value_
            !! value of the cross-section
         character(len=*), intent(in) :: type_label_
            !! "elastic" or "inelastic"
         !---------------------------------------------------------------------!
         call write_message(" - Largest partial " // trim(type_label_) //      &
            " state-to-state for JTOT = " //                                   &
            trim(adjustl(integer_to_character(total_angular_momentum_))) //    &
            ": " // trim(adjustl(float_to_character(cross_section_value_))))
         !---------------------------------------------------------------------!
      end subroutine print_basic_cross_section_info