print_final_cross_sections Subroutine

public subroutine print_final_cross_sections(open_basis_levels_, cross_sections_)

Prints information about cross-sections at the end of the program

Arguments

Type IntentOptional Attributes Name
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_final_cross_sections~~CallsGraph proc~print_final_cross_sections print_final_cross_sections proc~write_message write_message proc~print_final_cross_sections->proc~write_message proc~print_all_cross_sections print_all_cross_sections proc~print_final_cross_sections->proc~print_all_cross_sections proc~print_all_cross_sections->proc~write_message proc~total_energy total_energy proc~print_all_cross_sections->proc~total_energy

Called by

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

Contents

Source Code

print_final_cross_sections

Source Code

      subroutine print_final_cross_sections(open_basis_levels_, cross_sections_)
         !! Prints information about cross-sections at the end of the program
         !---------------------------------------------------------------------!
         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("Final state-to-state XS")
         !---------------------------------------------------------------------!
         call print_all_cross_sections(open_basis_levels_, cross_sections_)
         !---------------------------------------------------------------------!
      end subroutine print_final_cross_sections