write_warning Subroutine

public subroutine write_warning(message_, unit_)

writes a warning message on a chosen unit

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: message_

a message to be written
integer(kind=int32), intent(in), optional :: unit_

optional, unit where the message will be written

Calls

proc~~write_warning~~CallsGraph proc~write_warning write_warning proc~write_message write_message proc~write_warning->proc~write_message

Called by

proc~~write_warning~~CalledByGraph proc~write_warning write_warning proc~ispline ispline proc~ispline->proc~write_warning proc~riccati_bessel_j riccati_bessel_j proc~riccati_bessel_j->proc~write_warning proc~handle_unitarity_output_message handle_unitarity_output_message proc~handle_unitarity_output_message->proc~write_warning proc~riccati_bessel_y riccati_bessel_y proc~riccati_bessel_y->proc~write_warning proc~get_radial_coupling_term_value get_radial_coupling_term_value proc~get_radial_coupling_term_value->proc~ispline proc~calculate_k_matrix calculate_k_matrix proc~calculate_k_matrix->proc~riccati_bessel_j proc~calculate_k_matrix->proc~riccati_bessel_y proc~unitarity_check unitarity_check proc~unitarity_check->proc~handle_unitarity_output_message proc~calculate_single_pes_matrix_element calculate_single_pes_matrix_element proc~calculate_single_pes_matrix_element->proc~get_radial_coupling_term_value program~scattering SCATTERING program~scattering->proc~calculate_k_matrix program~scattering->proc~unitarity_check proc~calculate_pes_matrix calculate_pes_matrix proc~calculate_pes_matrix->proc~calculate_single_pes_matrix_element proc~initial_setup initial_setup proc~initial_setup->proc~calculate_pes_matrix proc~general_propagation_step general_propagation_step proc~general_propagation_step->proc~calculate_pes_matrix

Contents

Source Code

write_warning

Source Code

      subroutine write_warning(message_, unit_)
         !! writes a warning message on a chosen unit
         !---------------------------------------------------------------------!
         character(len = *), intent(in)       :: message_
            !! a message to be written
         integer(int32), optional, intent(in) :: unit_
            !! optional, unit where the message will be written
         !---------------------------------------------------------------------!
         call write_message('Warning: '//trim(message_), unit_)
         !---------------------------------------------------------------------!
      end subroutine write_warning