write_error Subroutine

public subroutine write_error(message_, unit_)

writes an error 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_error~~CallsGraph proc~write_error write_error proc~write_message write_message proc~write_error->proc~write_message

Called by

proc~~write_error~~CalledByGraph proc~write_error 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~invert_symmetric_matrix_sp invert_symmetric_matrix_sp proc~invert_symmetric_matrix_sp->proc~write_error 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_namelist_input check_namelist_input proc~check_namelist_input->proc~write_error interface~incorrect_value incorrect_value proc~check_namelist_input->interface~incorrect_value proc~check_number_of_channels check_number_of_channels proc~check_number_of_channels->proc~write_error proc~fill_symmetric_matrix_int32 fill_symmetric_matrix_int32 proc~fill_symmetric_matrix_int32->proc~write_error proc~fill_symmetric_matrix_sp fill_symmetric_matrix_sp proc~fill_symmetric_matrix_sp->proc~write_error proc~file_io_status file_io_status 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~wavevector_squared_from_energy wavevector_squared_from_energy proc~wavevector_squared_from_energy->proc~write_error proc~incorrect_value_sp incorrect_value_sp proc~incorrect_value_sp->proc~write_error proc~prepare_wavevector_array prepare_wavevector_array proc~prepare_wavevector_array->proc~write_error proc~prepare_wavevector_array->proc~wavevector_squared_from_energy proc~fill_symmetric_matrix_dp fill_symmetric_matrix_dp proc~fill_symmetric_matrix_dp->proc~write_error 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 set_space_fixed_channels 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~handle_coupling_index_error handle_coupling_index_error proc~handle_coupling_index_error->proc~write_error proc~write_header write_header proc~write_header->proc~write_error proc~write_header->interface~incorrect_value proc~invert_symmetric_matrix_dp invert_symmetric_matrix_dp proc~invert_symmetric_matrix_dp->proc~write_error proc~set_number_of_channels set_number_of_channels proc~set_number_of_channels->proc~check_number_of_channels proc~save_partial_xs_file_header save_partial_xs_file_header proc~save_partial_xs_file_header->proc~file_io_status 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 save_open_basis_levels proc~save_open_basis_levels->proc~wavevector_squared_from_energy proc~print_channels print_channels proc~print_channels->proc~wavevector_squared_from_energy proc~interpolate_radial_coupling_terms interpolate_radial_coupling_terms proc~interpolate_radial_coupling_terms->proc~spline proc~read_radial_coupling_terms read_radial_coupling_terms 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~read_input_file read_input_file proc~read_input_file->proc~check_namelist_input 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~save_s_matrix_file_header save_s_matrix_file_header proc~save_s_matrix_file_header->proc~file_io_status 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~set_body_fixed_channels set_body_fixed_channels proc~set_body_fixed_channels->proc~update_body_fixed_channels_info proc~calculate_k_matrix calculate_k_matrix proc~calculate_k_matrix->proc~wavevector_squared_from_energy proc~modified_bessel_k_ratio modified_bessel_k_ratio proc~calculate_k_matrix->proc~modified_bessel_k_ratio proc~calculate_largest_wavevector calculate_largest_wavevector proc~calculate_largest_wavevector->proc~wavevector_squared_from_energy program~scattering SCATTERING program~scattering->proc~prepare_wavevector_array program~scattering->proc~set_space_fixed_channels program~scattering->proc~write_header program~scattering->proc~set_number_of_channels program~scattering->proc~save_partial_xs_file_header program~scattering->proc~save_open_basis_levels program~scattering->proc~print_channels program~scattering->proc~interpolate_radial_coupling_terms program~scattering->proc~read_radial_coupling_terms program~scattering->proc~read_input_file program~scattering->proc~save_s_matrix_file_header program~scattering->proc~set_body_fixed_channels program~scattering->proc~calculate_k_matrix program~scattering->proc~calculate_largest_wavevector proc~get_radial_coupling_term_value->proc~handle_lambda_index_error proc~get_radial_coupling_term_value->proc~handle_coupling_index_error 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 proc~numerov numerov proc~numerov->proc~initial_setup proc~numerov->proc~general_propagation_step proc~handle_final_propagation_steps handle_final_propagation_steps proc~handle_final_propagation_steps->proc~general_propagation_step

Contents

Source Code

write_error

Source Code

      subroutine write_error(message_, unit_)
         !! writes an error 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('Error: '//trim(message_), unit_)
         stop
         !---------------------------------------------------------------------!
      end subroutine write_error