print_final_unitarity_warning Subroutine

public subroutine print_final_unitarity_warning(list_of_blocks)

print the final warning that the unitarity check failed in given blocks

Arguments

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

array holding values of total angular momenta, for which unitarity condition is not fulfilled


Calls

proc~~print_final_unitarity_warning~~CallsGraph proc~print_final_unitarity_warning print_final_unitarity_warning proc~write_message write_message proc~print_final_unitarity_warning->proc~write_message proc~integer_to_character integer_to_character proc~print_final_unitarity_warning->proc~integer_to_character

Called by

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

Contents

Variables

Source Code

print_final_unitarity_warning

Variables

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

Source Code

      subroutine print_final_unitarity_warning(list_of_blocks)
         !! print the final warning that the unitarity check failed in
         !! given blocks
         !---------------------------------------------------------------------!
         integer(int32), intent(in) :: list_of_blocks(:)
            !! array holding values of total angular momenta, for which
            !! unitarity condition is not fulfilled            
         !---------------------------------------------------------------------!
         integer(int32) :: index_
         !---------------------------------------------------------------------!
         call write_message(repeat("-", 90))
         call write_message(repeat(" ", 37) // "*** WARNING ***")
         call write_message(repeat("-", 90))
         call write_message("Check unitarity of the S-matrix in the following "&
            // "JTOT blocks:")
         do index_=1, size(list_of_blocks)
            call write_message("JTOT:" // repeat(" ", 8) //                    &
               integer_to_character(list_of_blocks(index_)))
         enddo
         call write_message(repeat("-", 90))
         !---------------------------------------------------------------------!
      end subroutine print_final_unitarity_warning