print_sum_of_squares Subroutine

private subroutine print_sum_of_squares(sum_of_squares)

print S-matrix on screen

Arguments

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

array holding \(\sum_{\gamma^{\prime}}|S_{\gamma,\gamma^{\prime}}|^{2}\) for each \(\gamma\)

Calls

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

Called by

proc~~print_sum_of_squares~~CalledByGraph proc~print_sum_of_squares print_sum_of_squares proc~handle_unitarity_output_message handle_unitarity_output_message proc~handle_unitarity_output_message->proc~print_sum_of_squares proc~unitarity_check unitarity_check proc~unitarity_check->proc~handle_unitarity_output_message program~scattering SCATTERING program~scattering->proc~unitarity_check

Contents

Variables

Source Code

print_sum_of_squares

Variables

Type Visibility Attributes Name Initial
integer(kind=int32), private :: channel_index_

Source Code

      subroutine print_sum_of_squares(sum_of_squares)
         !! print S-matrix on screen
         !---------------------------------------------------------------------!
         real(dp), intent(in) :: sum_of_squares(:)
            !! array holding
            !! \\(\sum\_{\gamma^{\prime}}|S\_{\gamma,\gamma^{\prime}}|^{2}\\)
            !! for each \\(\gamma\\)
         !---------------------------------------------------------------------!
         integer(int32) :: channel_index_
         !---------------------------------------------------------------------!
         call write_message(repeat(" ", 3)// "row" // repeat(" ", 12)//        &
            "sum(S**2)")
         !---------------------------------------------------------------------!
         do channel_index_ = 1, size(sum_of_squares)
            call write_message(" " //                                          &
               trim(adjustl(integer_to_character(channel_index_, "(i5)"))) //  &
               repeat(" ", 8) //                                               &
               trim(adjustl(float_to_character(sum_of_squares(channel_index_), &
               "(E15.8)"))))
         enddo
         !---------------------------------------------------------------------!
      end subroutine print_sum_of_squares