write_message Subroutine

public subroutine write_message(message_, unit_)

writes a 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

Called by

proc~~write_message~~CalledByGraph proc~write_message write_message proc~print_pes_matrix_elements_summary print_pes_matrix_elements_summary proc~print_pes_matrix_elements_summary->proc~write_message proc~write_channel_line write_channel_line proc~write_channel_line->proc~write_message proc~print_channels print_channels proc~print_channels->proc~write_message proc~print_channels->proc~write_channel_line proc~wavevector_squared_from_energy wavevector_squared_from_energy proc~print_channels->proc~wavevector_squared_from_energy proc~print_basic_cross_section_info print_basic_cross_section_info proc~print_basic_cross_section_info->proc~write_message proc~invert_symmetric_matrix_sp invert_symmetric_matrix_sp proc~invert_symmetric_matrix_sp->proc~write_message proc~write_error write_error proc~invert_symmetric_matrix_sp->proc~write_error proc~print_pes_quantum_numbers print_pes_quantum_numbers proc~print_pes_quantum_numbers->proc~write_message proc~read_input_file read_input_file proc~read_input_file->proc~write_message proc~check_namelist_input check_namelist_input proc~read_input_file->proc~check_namelist_input proc~input_summary input_summary proc~read_input_file->proc~input_summary proc~file_io_status file_io_status proc~read_input_file->proc~file_io_status proc~check_namelist_basis check_namelist_basis proc~read_input_file->proc~check_namelist_basis proc~check_namelist_potential check_namelist_potential proc~read_input_file->proc~check_namelist_potential proc~check_namelist_input->proc~write_message proc~check_namelist_input->proc~write_error interface~incorrect_value incorrect_value proc~check_namelist_input->interface~incorrect_value proc~print_cross_sections_for_jtot print_cross_sections_for_jtot proc~print_cross_sections_for_jtot->proc~write_message proc~print_all_cross_sections print_all_cross_sections proc~print_cross_sections_for_jtot->proc~print_all_cross_sections proc~print_all_cross_sections->proc~write_message proc~fill_symmetric_matrix_int32 fill_symmetric_matrix_int32 proc~fill_symmetric_matrix_int32->proc~write_message proc~fill_symmetric_matrix_int32->proc~write_error proc~fill_symmetric_matrix_sp fill_symmetric_matrix_sp proc~fill_symmetric_matrix_sp->proc~write_message proc~fill_symmetric_matrix_sp->proc~write_error proc~print_sum_of_squares print_sum_of_squares proc~print_sum_of_squares->proc~write_message proc~propagator_summary propagator_summary proc~propagator_summary->proc~write_message proc~input_summary->proc~write_message proc~no_open_channels_message no_open_channels_message proc~no_open_channels_message->proc~write_message proc~print_detailed_cross_section_info print_detailed_cross_section_info proc~print_detailed_cross_section_info->proc~write_message proc~write_warning write_warning proc~write_warning->proc~write_message proc~time_count_summary time_count_summary proc~time_count_summary->proc~write_message proc~print_final_unitarity_warning print_final_unitarity_warning proc~print_final_unitarity_warning->proc~write_message proc~save_partial_xs_file_header save_partial_xs_file_header proc~save_partial_xs_file_header->proc~write_message proc~save_partial_xs_file_header->proc~file_io_status proc~write_error->proc~write_message proc~print_short_block_summary print_short_block_summary proc~print_short_block_summary->proc~write_message proc~print_final_cross_sections print_final_cross_sections proc~print_final_cross_sections->proc~write_message proc~print_final_cross_sections->proc~print_all_cross_sections proc~fill_symmetric_matrix_dp fill_symmetric_matrix_dp proc~fill_symmetric_matrix_dp->proc~write_message proc~fill_symmetric_matrix_dp->proc~write_error program~scattering SCATTERING program~scattering->proc~write_message program~scattering->proc~print_channels program~scattering->proc~read_input_file program~scattering->proc~print_cross_sections_for_jtot program~scattering->proc~no_open_channels_message program~scattering->proc~time_count_summary program~scattering->proc~print_final_unitarity_warning program~scattering->proc~save_partial_xs_file_header program~scattering->proc~print_short_block_summary program~scattering->proc~print_final_cross_sections proc~reduce_radial_coupling_terms reduce_radial_coupling_terms program~scattering->proc~reduce_radial_coupling_terms proc~unitarity_check unitarity_check program~scattering->proc~unitarity_check proc~write_header write_header program~scattering->proc~write_header proc~save_partial_xs_single_block save_partial_xs_single_block program~scattering->proc~save_partial_xs_single_block proc~print_largest_partial_cross_sections print_largest_partial_cross_sections program~scattering->proc~print_largest_partial_cross_sections proc~numerov numerov program~scattering->proc~numerov proc~prepare_wavevector_array prepare_wavevector_array program~scattering->proc~prepare_wavevector_array proc~initialize_pes_matrix initialize_pes_matrix program~scattering->proc~initialize_pes_matrix proc~set_space_fixed_channels set_space_fixed_channels program~scattering->proc~set_space_fixed_channels proc~calculate_state_to_state_cross_section calculate_state_to_state_cross_section program~scattering->proc~calculate_state_to_state_cross_section proc~set_number_of_channels set_number_of_channels program~scattering->proc~set_number_of_channels proc~save_open_basis_levels save_open_basis_levels program~scattering->proc~save_open_basis_levels proc~interpolate_radial_coupling_terms interpolate_radial_coupling_terms program~scattering->proc~interpolate_radial_coupling_terms proc~read_radial_coupling_terms read_radial_coupling_terms program~scattering->proc~read_radial_coupling_terms proc~calculate_k_matrix calculate_k_matrix program~scattering->proc~calculate_k_matrix proc~save_s_matrix_file_header save_s_matrix_file_header program~scattering->proc~save_s_matrix_file_header proc~set_body_fixed_channels set_body_fixed_channels program~scattering->proc~set_body_fixed_channels proc~calculate_largest_wavevector calculate_largest_wavevector program~scattering->proc~calculate_largest_wavevector proc~reduce_radial_coupling_terms->proc~write_message proc~reduce_radial_coupling_terms->proc~print_pes_quantum_numbers proc~unitarity_check->proc~write_message proc~handle_unitarity_output_message handle_unitarity_output_message proc~unitarity_check->proc~handle_unitarity_output_message proc~handle_unitarity_output_message->proc~write_message proc~handle_unitarity_output_message->proc~print_sum_of_squares proc~handle_unitarity_output_message->proc~write_warning proc~write_header->proc~write_message proc~write_header->proc~write_error proc~write_header->interface~incorrect_value proc~save_partial_xs_single_block->proc~write_message proc~invert_symmetric_matrix_dp invert_symmetric_matrix_dp proc~invert_symmetric_matrix_dp->proc~write_message proc~invert_symmetric_matrix_dp->proc~write_error proc~validate_r_range validate_r_range proc~validate_r_range->proc~write_error proc~incorrect_value_ch incorrect_value_ch proc~incorrect_value_ch->proc~write_error proc~alloc_status alloc_status proc~alloc_status->proc~write_error proc~riccati_bessel_j riccati_bessel_j proc~riccati_bessel_j->proc~write_warning proc~read_and_validate_lambda read_and_validate_lambda proc~read_and_validate_lambda->proc~write_error proc~incorrect_value_dp incorrect_value_dp proc~incorrect_value_dp->proc~write_error proc~check_number_of_channels check_number_of_channels proc~check_number_of_channels->proc~write_error proc~ispline ispline proc~ispline->proc~write_warning proc~file_io_status->proc~write_error proc~update_body_fixed_channels_info update_body_fixed_channels_info proc~update_body_fixed_channels_info->proc~write_error proc~print_largest_partial_cross_sections->proc~print_basic_cross_section_info proc~print_largest_partial_cross_sections->proc~print_detailed_cross_section_info proc~wavevector_squared_from_energy->proc~write_error proc~numerov->proc~propagator_summary proc~numerov->proc~time_count_summary proc~incorrect_value_sp incorrect_value_sp proc~incorrect_value_sp->proc~write_error proc~prepare_wavevector_array->proc~write_error proc~prepare_wavevector_array->proc~wavevector_squared_from_energy proc~initialize_pes_matrix->proc~print_pes_matrix_elements_summary proc~initialize_pes_matrix->proc~time_count_summary proc~handle_lambda_index_error handle_lambda_index_error proc~handle_lambda_index_error->proc~write_error proc~spline spline proc~spline->proc~write_error proc~incorrect_value_int32 incorrect_value_int32 proc~incorrect_value_int32->proc~write_error proc~modified_bessel_temme_algorithm modified_bessel_temme_algorithm proc~modified_bessel_temme_algorithm->proc~write_error proc~set_space_fixed_channels->proc~write_error proc~invert_symmetric_matrix_int32 invert_symmetric_matrix_int32 proc~invert_symmetric_matrix_int32->proc~write_error proc~riccati_bessel_y riccati_bessel_y proc~riccati_bessel_y->proc~write_warning proc~calculate_state_to_state_cross_section->proc~time_count_summary proc~handle_coupling_index_error handle_coupling_index_error proc~handle_coupling_index_error->proc~write_error proc~set_number_of_channels->proc~check_number_of_channels proc~calculate_single_pes_matrix_element calculate_single_pes_matrix_element proc~calculate_single_pes_matrix_element->proc~wavevector_squared_from_energy proc~get_radial_coupling_term_value get_radial_coupling_term_value proc~calculate_single_pes_matrix_element->proc~get_radial_coupling_term_value proc~save_open_basis_levels->proc~wavevector_squared_from_energy proc~interpolate_radial_coupling_terms->proc~spline proc~read_radial_coupling_terms->proc~validate_r_range proc~read_radial_coupling_terms->proc~read_and_validate_lambda proc~read_radial_coupling_terms->proc~file_io_status proc~calculate_k_matrix->proc~riccati_bessel_j proc~calculate_k_matrix->proc~wavevector_squared_from_energy proc~calculate_k_matrix->proc~riccati_bessel_y proc~modified_bessel_k_ratio modified_bessel_k_ratio proc~calculate_k_matrix->proc~modified_bessel_k_ratio proc~get_radial_coupling_term_value->proc~ispline proc~get_radial_coupling_term_value->proc~handle_lambda_index_error proc~get_radial_coupling_term_value->proc~handle_coupling_index_error interface~incorrect_value->proc~incorrect_value_ch interface~incorrect_value->proc~incorrect_value_dp interface~incorrect_value->proc~incorrect_value_sp interface~incorrect_value->proc~incorrect_value_int32 proc~save_s_matrix_file_header->proc~file_io_status proc~set_body_fixed_channels->proc~update_body_fixed_channels_info proc~calculate_largest_wavevector->proc~wavevector_squared_from_energy proc~modified_bessel_k_ratio->proc~modified_bessel_temme_algorithm proc~calculate_pes_matrix calculate_pes_matrix proc~calculate_pes_matrix->proc~calculate_single_pes_matrix_element proc~check_namelist_basis->interface~incorrect_value proc~check_namelist_potential->interface~incorrect_value 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_message

Source Code

      subroutine write_message(message_, unit_)
         !! writes a 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
         !---------------------------------------------------------------------!
         if (present(unit_)) then
            write(unit_, '(a)') trim(message_)
         else
            write(output_unit, '(a)') trim(message_)
         endif
         !---------------------------------------------------------------------!
      end subroutine write_message